Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-14 13:33:48 +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
Show Stats 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