Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-07-15 20:24:06 +00:00
Code Issues Projects Releases Wiki Activity

megaload: get actual RTS fix from qkumba

Browse Source
This commit is contained in:
Vince Weaver
2018-10-15 12:23:00 -04:00
parent 4023d7fe0f
commit ed435d1632
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
megademo/megaload.s
View File

@@ -1,5 +1,5 @@
; read any file slot 6 version ; read any file slot 6 version
; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013 ; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013,2018
; TODO: ; TODO:
; non-slot6? self modfiy code? ; non-slot6? self modfiy code?
@@ -303,9 +303,11 @@ seekread1:
; if track does not match, then seek ; if track does not match, then seek
lda curtrk ; lda curtrk ; BUG fixed recently
cmp phase ; cmp phase
beq re_read_addr ; **was** repeat_until_right_sector
cpx phase
beq repeat_until_right_sector
jsr seek jsr seek
; [re-]read sector ; [re-]read sector
@@ -401,6 +403,7 @@ adr_96:
; then sector/sector? ; then sector/sector?
adr_read_two_bytes: adr_read_two_bytes:
sta curtrk ; store out current track sta curtrk ; store out current track
tax
L20: L20:
lda $c0ec ; read until full value lda $c0ec ; read until full value
bpl L20 bpl L20