mirror of
https://github.com/a2-4am/4cade.git
synced 2025-04-03 05:32:00 +00:00
fix Berzap again
This commit is contained in:
parent
8bfac3e235
commit
0d25b35d8e
@ -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)
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user