Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-09-27 12:57:21 +00:00
Code Issues Projects Releases Wiki Activity

fix big seek

Browse Source
This commit is contained in:
Peter Ferrie 2020-05-23 12:30:30 -07:00
parent 0d25b35d8e
commit e473a430d9
3 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/glue.prorwts2.lc2.a
View File

@ -15,7 +15,7 @@ LoadFileAuxInternal
!if RELBASE != $2000 { !if RELBASE != $2000 {
!ifdef PASS2 { !ifdef PASS2 {
} else { ;PASS2 } else { ;PASS2
!if * != $DAF3 { !if * != $DAFD {
!error "LoadFileDirect=",*, ", adjust !if and fix Berzap" !error "LoadFileDirect=",*, ", adjust !if and fix Berzap"
} }
} }

2
src/prelaunch/berzap.a
View File

@ -36,7 +36,7 @@ callback2
pha pha
lda #<berzap_mb lda #<berzap_mb
ldy #>berzap_mb ldy #>berzap_mb
jsr $DAF3 ; ahem, LoadFileDirect jsr $DAFD ; ahem, LoadFileDirect
pla pla
sta $D403 sta $D403
pla pla

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

@ -214,7 +214,7 @@ ProDOS_enter
sta sizelo sta sizelo
jsr hddopendir jsr hddopendir
stx blkidx stx blkidx
beq @jmp_zp ;always beq @link_jmpzp ;always
resetval=$f0 resetval=$f0
@imp_seek @imp_seek
@ -226,7 +226,14 @@ resetval=$f0
stx reqcmd stx reqcmd
jsr @reset jsr @reset
ldx sizelo ldx sizelo
beq @seek64 bne @seek64
cmp ldrhi
bcc @seek64
bne @seek32
ldx ldrlo
beq @seek32
@seek64
sta sizehi sta sizehi
sta sizelo sta sizelo
jsr @seekreset jsr @seekreset
@ -234,7 +241,7 @@ resetval=$f0
sbc #resetval sbc #resetval
sta ldrhi sta ldrhi
@seek64 @seek32
lda ldrhi lda ldrhi
sta sizehi sta sizehi
lda ldrlo lda ldrlo
@ -244,6 +251,7 @@ resetval=$f0
ora ldrlo ora ldrlo
bne @jmp_zp bne @jmp_zp
dec blkidx dec blkidx
@link_jmpzp
beq @jmp_zp ;always beq @jmp_zp ;always
@seekreset @seekreset