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/filename.s
+++ b/libsrc/apple2/filename.s
@@ -4,13 +4,15 @@
 ; File name handling for ProDOS 8 file I/O
 ;

-        .export         pushname, popname
-        .import         subysp, addysp, decsp1
+        .export         pushname_tos, pushname, popname
+        .import         popax, subysp, addysp, decsp1

        .include        "zeropage.inc"
        .include        "apple2.inc"
        .include        "mli.inc"

+pushname_tos:
+        jsr     popax
 pushname:
        sta     ptr1
        stx     ptr1+1