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/mli_file_info.s
+++ b/libsrc/apple2/mli_file_info.s
@@ -3,7 +3,7 @@
 ;

        .export         mli_file_info
-        .import         pushname, popname, mli_file_info_direct
+        .import         pushname_tos, popname, mli_file_info_direct
        .import         popax
        .include        "zeropage.inc"
        .include        "errno.inc"
@@ -13,9 +13,8 @@
        ; stored as C string in AX at top of stack
        ; Returns with carry set on error, and sets errno
 mli_file_info:
-        ; Get pathname
-        jsr     popax
-        jsr     pushname
+        ; Get pathname from top of stack
+        jsr     pushname_tos
        bne     oserr

        jsr     mli_file_info_direct