Use more compact loops.

2020-11-01 22:59:07 +01:00
parent 99c0815cdb
commit f59cb9af06
13 changed files with 90 additions and 94 deletions
--- a/libsrc/atmos/write.s
+++ b/libsrc/atmos/write.s
@@ -17,17 +17,17 @@
        sta     ptr3
        stx     ptr3+1          ; save count as result

-        eor     #$FF
-        sta     ptr2
-        txa
-        eor     #$FF
-        sta     ptr2+1          ; Remember -count-1
+        inx
+        stx     ptr2+1
+        tax
+        inx
+        stx     ptr2            ; save count with each byte incremented separately

        jsr     popptr1         ; get buf
        jsr     popax           ; get fd and discard
-L1:     inc     ptr2
+L1:     dec     ptr2
        bne     L2
-        inc     ptr2+1
+        dec     ptr2+1
        beq     L9
 L2:     ldy     #0
        lda     (ptr1),y