]> git.sur5r.net Git - cc65/blobdiff - libsrc/common/strcat.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / common / strcat.s
index 7297579bbea9526a7b07ce3239ea8b86214bf067..7784d89f762bc42be2577a4393976bad49c4c7d4 100644 (file)
@@ -4,54 +4,52 @@
 ; char* strcat (char* dest, const char* src);
 ;
 
-               .export         _strcat
-       .import         popax
-       .importzp       ptr1, ptr2, ptr3
+        .export         _strcat
+        .import         popax
+        .importzp       ptr1, ptr2, tmp3
 
 _strcat:
-               sta     ptr1            ; Save src
-               stx     ptr1+1
-               jsr     popax           ; Get dest
-       sta     ptr2
-       stx     ptr2+1
-       sta     ptr3            ; Remember for function return
-       stx     ptr3+1
-       ldy     #0
+        sta     ptr1            ; Save src
+        stx     ptr1+1
+        jsr     popax           ; Get dest
+        sta     ptr2
+        stx     ptr2+1
+        sta     tmp3            ; Remember for function return
+        ldy     #0
 
 ; find end of dest
 
-sc1:   lda     (ptr2),y
-       beq     sc2
-       iny
-       bne     sc1
-       inc     ptr2+1
-       bne     sc1
+sc1:    lda     (ptr2),y
+        beq     sc2
+        iny
+        bne     sc1
+        inc     ptr2+1
+        bne     sc1
 
 ; end found, get offset in y into pointer
 
-sc2:   tya
-       clc
-       adc     ptr2
-       sta     ptr2
-       bcc     sc3
-       inc     ptr2+1
+sc2:    tya
+        clc
+        adc     ptr2
+        sta     ptr2
+        bcc     sc3
+        inc     ptr2+1
 
 ; copy src
 
-sc3:   ldy     #0
-sc4:   lda     (ptr1),y
-       sta     (ptr2),y
-       beq     sc5
-       iny
-       bne     sc4
-       inc     ptr1+1
-       inc     ptr2+1
-       bne     sc4
+sc3:    ldy     #0
+sc4:    lda     (ptr1),y
+        sta     (ptr2),y
+        beq     sc5
+        iny
+        bne     sc4
+        inc     ptr1+1
+        inc     ptr2+1
+        bne     sc4
 
 ; done, return pointer to dest
 
-sc5:   lda     ptr3
-       ldx     ptr3+1
-       rts
+sc5:    lda     tmp3            ; X does still contain high byte
+        rts