Apple2: factorize MLI pathname setting (up to -22 bytes)

This commit is contained in:
Colin Leroy-Mira
2025-10-25 13:45:31 +02:00
committed by Oliver Schmidt
parent 850accee3a
commit 9390e5c2ce
7 changed files with 40 additions and 25 deletions

View File

@@ -9,7 +9,7 @@
.constructor raisefilelevel
.destructor closeallfiles, 5
.import pushname_tos, popname, __dos_type
.import pushname_tos, popname, mli_set_pathname_tos, __dos_type
.import iobuf_alloc, iobuf_free
.import addysp, incsp4, incaxy, pushax, popax
@@ -91,10 +91,7 @@ found: sty tmp2
bne oserr1
; Set pushed name
lda c_sp
ldx c_sp+1
sta mliparam + MLI::OPEN::PATHNAME
stx mliparam + MLI::OPEN::PATHNAME+1
jsr mli_set_pathname_tos
; Check for create flag
lda tmp3 ; Restore flags