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

[cc65] / libsrc / atmos / write.s

diff --git a/libsrc/atmos/write.s b/libsrc/atmos/write.s
index c6399f2bf7c3573377cb1ce586d4bd7c896d1a66..7865b569866478e9b419dd48e5468fdb606b4c15 100644 (file)
--- 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