Added "popptr1" which is of common use to save some bytes.

2018-05-20 15:30:18 +02:00
parent 3a6430b13d
commit c95ed4b8b5
35 changed files with 113 additions and 151 deletions
--- a/libsrc/geos-common/drivers/fio_module.s
+++ b/libsrc/geos-common/drivers/fio_module.s
@@ -13,7 +13,7 @@
 FILEDES         = 3             ; first free to use file descriptor

            .importzp ptr1, ptr2, ptr3, tmp1
-            .import addysp, popax
+            .import addysp, popax, poptr1
            .import __oserror
            .import _FindFile, _ReadByte
            .export _open, _close, _read
@@ -37,9 +37,7 @@ _open:
@parmok:
        jsr popax               ; Get flags
        sta tmp1
-        jsr popax               ; Get name
-        sta ptr1
-        stx ptr1+1
+        jsr popptr1             ; Get name
            
        lda filedesc            ; is there a file already open?
        bne @alreadyopen