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/atmos/read.s
+++ b/libsrc/atmos/read.s
@@ -9,7 +9,7 @@
        .export         _read
        .constructor    initstdin

-        .import         popax
+        .import         popax, popptr1
        .importzp       ptr1, ptr2, ptr3
        .forceimport    disable_caps

@@ -26,9 +26,7 @@
        eor     #$FF
        sta     ptr2+1          ; Remember -count-1

-        jsr     popax           ; get buf
-        sta     ptr1
-        stx     ptr1+1
+        jsr     popptr1         ; get buf
        jsr     popax           ; get fd and discard

 L1:     inc     ptr2
--- a/libsrc/atmos/write.s
+++ b/libsrc/atmos/write.s
@@ -7,7 +7,7 @@
 ;

        .export         _write
-        .import         popax
+        .import         popax, popptr1
        .importzp       ptr1, ptr2, ptr3, tmp1

        .include        "atmos.inc"
@@ -23,9 +23,7 @@
        eor     #$FF
        sta     ptr2+1          ; Remember -count-1

-        jsr     popax           ; get buf
-        sta     ptr1
-        stx     ptr1+1
+        jsr     popptr1         ; get buf
        jsr     popax           ; get fd and discard
 L1:     inc     ptr2
        bne     L2