Merge branch 'master' into popptr1

[cc65] / libsrc / telestrat / write.s

diff --git a/libsrc/telestrat/write.s b/libsrc/telestrat/write.s
index 4e059a311049cbcc190f2e14c1cff04b4156bf97..6498283fba87fe02b9e6fe9947979973f6ae0c1a 100644 (file)
--- a/libsrc/telestrat/write.s
+++ b/libsrc/telestrat/write.s
@@ -2,7 +2,7 @@
 ; jede jede@oric.org 2017-01-22
 
         .export         _write
-        .import         popax
+        .import         popax, popptr1
         .importzp       ptr1, ptr2, ptr3, tmp1
 
         .include        "telestrat.inc"
@@ -19,9 +19,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
 
         ; if fd=0001 then it stdout