6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2026-04-26 13:18:31 +00:00
Code Issues Projects Releases Wiki Activity

Shortened names and adjusted style.

Browse Source
This commit is contained in:
Oliver Schmidt
2020-04-02 22:58:16 +02:00
parent 411fe87f64
commit 0981c020b2
27 changed files with 92 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libsrc/common/strupper.s
+3 -3
View File
@@ -11,7 +11,7 @@
.export _strupper, _strupr
.import popax
.importzp ptr1, ptr2
.import ctype_preprocessor_no_check
.import ctypemaskdirect
.include "ctype.inc"
_strupper:
@@ -24,11 +24,11 @@ _strupr:
loop: lda (ptr1),y ; get character
beq L9 ; jump if done
jsr ctype_preprocessor_no_check
jsr ctypemaskdirect ; get character classification
and #CT_LOWER ; lower case char?
beq L1 ; jump if no
lda (ptr1),y ; fetch character again
adc #<('A'-'a') ; make upper case char (ctype_preprocessor_no_check ensures carry clear)
adc #<('A'-'a') ; make upper case char (ctypemaskdirect ensures carry clear)
sta (ptr1),y ; store back
L1: iny ; next char
bne loop