Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-13 22:29:14 +00:00
Code Issues Projects Releases Wiki Activity

megaload: start merging in qkumba fixes

Browse Source 
this is theo "official" 65c02 -> 6502 conversion, which mostly matched
mine
This commit is contained in:
Vince Weaver 2018-10-30 11:23:10 -04:00
parent 6209f1f5dc
commit 215d48739b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
megademo/megaload.s
View File

@ -299,8 +299,8 @@ L5:
adc #0 adc #0
sta sizehi sta sizehi
beq readfirst beq readfirst
ldy #0 ; was **stz secsize** lda #0 ; was **stz secsize**
sty secsize sta secsize
readfirst: readfirst:
ldy #$0c ldy #$0c
@ -308,11 +308,13 @@ readfirst:
; read a file sector ; read a file sector
readnext: readnext:
tya
pha
lda dirbuf, y ; A = track lda dirbuf, y ; A = track
ldx dirbuf+1, y ; x = sector ldx dirbuf+1, y ; x = sector
sty TEMPY ; save t/s ptr ** was phy **
jsr seekread1 jsr seekread1
ldy TEMPY ; restore t/s ptr ** was ply ** pla
tay
; if low count is non-zero then we are done ; if low count is non-zero then we are done
; (can happen only for partial last block) ; (can happen only for partial last block)