Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-27 08:50:01 +00:00
Code Issues Projects Releases Wiki Activity

really support 24-bit seek

Browse Source
This commit is contained in:
Peter Ferrie 2021-10-18 22:01:58 -07:00
parent 68e2fbd688
commit 47ca72a1b7
2 changed files with 41 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/constants.a
View File

@ -149,8 +149,8 @@ CHEATS_ENABLED = %00001000
iCurBlockLo = $D401 ; constant iCurBlockLo = $D401 ; constant
iCurBlockHi = $D403 ; constant iCurBlockHi = $D403 ; constant
launchpatch = $D655 ; glue.launch.a launchpatch = $D655 ; glue.launch.a
iAddToPath = $FE64 ; Roger Rabbit, avoid, use Infiltrator 2 style instead iAddToPath = $FE6C ; Roger Rabbit, avoid, use Infiltrator 2 style instead
itraverse = $D933 ; Roger Rabbit, avoid, use Infiltrator 2 style instead itraverse = $D94A ; Roger Rabbit, avoid, use Infiltrator 2 style instead
ldrhi = $56 ; constant ldrhi = $56 ; constant
namlo = $57 ; constant namlo = $57 ; constant
namhi = $58 ; constant namhi = $58 ; constant

58
src/prodos.impl.lc2.a
View File

@ -222,43 +222,63 @@ resetval=$f0
stx blkofflo stx blkofflo
stx blkoffhi stx blkoffhi
stx reqcmd stx reqcmd
@seekloop
jsr @reset jsr @reset
ldx sizelo ldy sizelo
bne @seek64 bne @seek64
cmp ldrhi cmp ldrhi
bcc @seek64 bcc @seek64
bne @seek32 bne @seek32
ldx ldrlo cmp ldrlo
beq @seek32 bcc @seek64
@seek64
sta sizehi
sta sizelo
jsr @seekreset
lda ldrhi
sbc #resetval
sta ldrhi
@seek32 @seek32
lda ldrhi lda ldrhi
ldx ldrlo
+HIDE_NEXT_BYTE
@seek64
tax
sta sizehi sta sizehi
lda ldrlo stx sizelo
sta sizelo
jsr @seekreset
lda ldrhi lda ldrhi
pha
lda sizehi
pha
lda ldrlo
pha
txa
pha
tya
pha
jsr @seekreset
pla
tay
sec
pla
sta ldrlo
pla
sbc ldrlo
sta ldrlo
pla
sta ldrhi
pla
sbc ldrhi
sta ldrhi
tya
sbc #0
sta sizelo
ora ldrlo ora ldrlo
bne @jmp_zp ora ldrhi
dec blkidx bne @seekloop
sta treeidx
@link_jmpzp @link_jmpzp
beq @jmp_zp ;always jmp @jmp_zp
@seekreset @seekreset
jsr hddrdwrpart jsr hddrdwrpart
@reset @reset
lda #resetval lda #resetval
sta blefthi sta blefthi
stx bleftlo sta bleftlo
rts rts
@imp_read @imp_read