fix Berzap again

This commit is contained in:
Peter Ferrie 2020-05-23 10:10:07 -07:00
parent 8bfac3e235
commit 0d25b35d8e
2 changed files with 9 additions and 1 deletions

View File

@ -12,6 +12,14 @@ LoadFileInternal
LoadFileAuxInternal
sta @auxreq+1 ; call with A=1 to load directly into aux memory
+LDADDR gPathname
!if RELBASE != $2000 {
!ifdef PASS2 {
} else { ;PASS2
!if * != $DAF3 {
!error "LoadFileDirect=",*, ", adjust !if and fix Berzap"
}
}
}
+ST16 namlo ; set filename
jsr traverse ; go to subdirectory, set up filename for read
lda #cmdread ; read (instead of write)

View File

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