Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 22:30:49 +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
; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013
; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013,2018
; TODO:
; non-slot6? self modfiy code?
@ -303,9 +303,11 @@ seekread1:
; if track does not match, then seek
lda curtrk
cmp phase
beq re_read_addr ; **was** repeat_until_right_sector
; lda curtrk ; BUG fixed recently
; cmp phase
cpx phase
beq repeat_until_right_sector
jsr seek
; [re-]read sector
@ -401,6 +403,7 @@ adr_96:
; then sector/sector?
adr_read_two_bytes:
sta curtrk ; store out current track
tax
L20:
lda $c0ec ; read until full value
bpl L20