remove TABs

[cc65] / libsrc / telestrat / write.s

diff --git a/libsrc/telestrat/write.s b/libsrc/telestrat/write.s
index 4e059a311049cbcc190f2e14c1cff04b4156bf97..68aef42d6cd1c680f7a1f94821206e01adf2ea77 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,40 +19,38 @@
         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
-        cpx    #0
-        beq    next
-        jmp    L1
-next:          
-        cmp    #1
-        beq    L1              
-               
+        cpx     #0
+        beq     next
+        jmp     L1
+next:
+        cmp     #1
+        beq     L1
+
         ; here it's a file opened
-        lda    ptr1
-        sta    PTR_READ_DEST
-        lda    ptr1+1
-        sta    PTR_READ_DEST+1
-        lda    ptr3
-        ldy    ptr3+1
+        lda     ptr1
+        sta     PTR_READ_DEST
+        lda     ptr1+1
+        sta     PTR_READ_DEST+1
+        lda     ptr3
+        ldy     ptr3+1
         BRK_TELEMON  XFWRITE
         ;  compute nb of bytes written
-       
+
 
         lda     PTR_READ_DEST+1
         sec
         sbc     ptr1+1
-        tax                    
+        tax
         lda     PTR_READ_DEST
         sec
         sbc     ptr1
         rts
-               
-               
+
+
 L1:     inc     ptr2
         bne     L2
         inc     ptr2+1
@@ -65,10 +63,10 @@ L2:     ldy     #0
         BRK_TELEMON  XWR0       ; macro send char to screen (channel 0 in telemon terms)
         lda     #$0D            ; return to the beggining of the line
         BRK_TELEMON  XWR0       ; macro
-       
+
 
         ldx     #$0D
-L3:     
+L3:
         BRK_TELEMON  XWR0       ; macro
 
         inc     ptr1
@@ -83,5 +81,3 @@ L9:     lda     ptr3
         rts
 
 .endproc
-
-