mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-10 08:23:49 +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
|
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)
|
||||||
|
Loading…
Reference in New Issue
Block a user