Removed (pretty inconsistently used) tab chars from source code base.

[cc65] / libsrc / common / strlower.s

diff --git a/libsrc/common/strlower.s b/libsrc/common/strlower.s
index 28214b9905a9f63165e6954cee0527931ad482a8..9df79b732f9d1305c2f19d9420aa80c3f4a94a63 100644 (file)
--- a/libsrc/common/strlower.s
+++ b/libsrc/common/strlower.s
@@ -7,41 +7,41 @@
 ; Non-ANSI
 ;
 
-       .export         _strlower, _strlwr
-       .import         popax
-       .import         __ctype
-       .importzp       ptr1, ptr2
+        .export         _strlower, _strlwr
+        .import         popax
+        .import         __ctype
+        .importzp       ptr1, ptr2
 
         .include        "ctype.inc"
 
 _strlower:
 _strlwr:
-       sta     ptr1            ; Save s (working copy)
-       stx     ptr1+1
-       sta     ptr2
-               sta     ptr2+1          ; save function result
-       ldy     #0
-
-loop:  lda     (ptr1),y        ; get character
-       beq     L9              ; jump if done
-       tax
-       lda     __ctype,x       ; get character classification
-               and     #CT_UPPER       ; upper case char?
-       beq     L1              ; jump if no
-       txa                     ; get character back into accu
-       sec
-       sbc     #<('A'-'a')     ; make lower case char
-       sta     (ptr1),y        ; store back
-L1:    iny                     ; next char
-       bne     loop
-       inc     ptr1+1          ; handle offset overflow
-       bne     loop            ; branch always
+        sta     ptr1            ; Save s (working copy)
+        stx     ptr1+1
+        sta     ptr2
+        sta     ptr2+1          ; save function result
+        ldy     #0
+
+loop:   lda     (ptr1),y        ; get character
+        beq     L9              ; jump if done
+        tax
+        lda     __ctype,x       ; get character classification
+        and     #CT_UPPER       ; upper case char?
+        beq     L1              ; jump if no
+        txa                     ; get character back into accu
+        sec
+        sbc     #<('A'-'a')     ; make lower case char
+        sta     (ptr1),y        ; store back
+L1:     iny                     ; next char
+        bne     loop
+        inc     ptr1+1          ; handle offset overflow
+        bne     loop            ; branch always
 
 ; Done, return the argument string
 
-L9:    lda     ptr2
-       ldx     ptr2+1
-       rts
+L9:     lda     ptr2
+        ldx     ptr2+1
+        rts