mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-13 22:29:14 +00:00
megaload: start merging in qkumba fixes
this is theo "official" 65c02 -> 6502 conversion, which mostly matched mine
This commit is contained in:
parent
6209f1f5dc
commit
215d48739b
@ -299,8 +299,8 @@ L5:
|
||||
adc #0
|
||||
sta sizehi
|
||||
beq readfirst
|
||||
ldy #0 ; was **stz secsize**
|
||||
sty secsize
|
||||
lda #0 ; was **stz secsize**
|
||||
sta secsize
|
||||
|
||||
readfirst:
|
||||
ldy #$0c
|
||||
@ -308,11 +308,13 @@ readfirst:
|
||||
; read a file sector
|
||||
|
||||
readnext:
|
||||
tya
|
||||
pha
|
||||
lda dirbuf, y ; A = track
|
||||
ldx dirbuf+1, y ; x = sector
|
||||
sty TEMPY ; save t/s ptr ** was phy **
|
||||
jsr seekread1
|
||||
ldy TEMPY ; restore t/s ptr ** was ply **
|
||||
pla
|
||||
tay
|
||||
|
||||
; if low count is non-zero then we are done
|
||||
; (can happen only for partial last block)
|
||||
|
Loading…
Reference in New Issue
Block a user