Apple-2-Tools
/
4cade
mirror of https://github.com/a2-4am/4cade.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix seek(*128k)

This commit is contained in:
Peter Ferrie 2021-11-15 12:18:23 -08:00
parent 13d65a0b67
commit 5cda88b60b
2 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/constants.a
View File

@ -202,7 +202,7 @@ iCurBlockLo = $D601 ; constant
iCurBlockHi = $D603 ; constant
launchpatch = $D853 ; glue.launch.a
iAddToPath = $FEA5 ; Roger Rabbit, avoid, use Infiltrator 2 style instead
itraverse = $DB3F ; Roger Rabbit, avoid, use Infiltrator 2 style instead
itraverse = $DB31 ; Roger Rabbit, avoid, use Infiltrator 2 style instead
ldrlo = $55 ; constant
ldrhi = $56 ; constant
namlo = $57 ; constant

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

@ -218,32 +218,24 @@ ProDOS_enter
resetval=$f0
@imp_seek
jsr @set_rdwrbuff
lda sizelo
ora ldrlo
ora ldrhi
bne @not_zero
sta treeidx
sta blkidx
beq @link_jmpzp
@not_zero
lda sizelo
lsr
pha
tay
lda ldrhi
ror
sta blkidx
pla
tay
ldx istree
beq @sametree
tax
lda istree
beq @skiptree
iny
cpy treeidx
@skiptree
sty treeidx
beq @sametree
inx
cpx treeidx
beq @sametree
stx treeidx
ldx hddtreebuf, y
lda hddtreebuf + 256, y
ldx hddtreebuf - 1, y
lda hddtreebuf + 255, y
jsr hddreaddirsel
@sametree