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

2025-10-25 13:45:31 +02:00
parent 850accee3a
commit 9390e5c2ce
7 changed files with 40 additions and 25 deletions
--- a/libsrc/apple2/mli_set_pathname.s
+++ b/libsrc/apple2/mli_set_pathname.s
@@ -0,0 +1,16 @@
+;
+; Colin Leroy-Mira, 2025 <colin@colino.net>
+;
+
+        .export         mli_set_pathname_tos
+        .include        "zeropage.inc"
+        .include        "mli.inc"
+
+        ; Sets MLI PATHNAME parameter from TOS
+mli_set_pathname_tos:
+        ; Set pushed name from TOS
+        lda     c_sp
+        ldx     c_sp+1
+        sta     mliparam + MLI::PATH::PATHNAME
+        stx     mliparam + MLI::PATH::PATHNAME+1
+        rts