Apple2: mutualize mli filename push (-0 to -18 bytes)

2025-10-25 12:00:17 +02:00
parent 3b8531a422
commit 280f296952
8 changed files with 19 additions and 23 deletions
--- a/libsrc/apple2/open.s
+++ b/libsrc/apple2/open.s
@@ -9,7 +9,7 @@
        .constructor    raisefilelevel
        .destructor     closeallfiles, 5

-        .import         pushname, popname, __dos_type
+        .import         pushname_tos, popname, __dos_type
        .import         iobuf_alloc, iobuf_free
        .import         addysp, incsp4, incaxy, pushax, popax

@@ -87,8 +87,7 @@ found:  sty     tmp2
        sta     tmp3

        ; Get and push name
-        jsr     popax
-        jsr     pushname
+        jsr     pushname_tos
        bne     oserr1

        ; Set pushed name