the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
libsrc/common/strlower.s
View File

@@ -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
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
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