6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-07 23:29:39 +00:00
Code Issues Projects Releases Wiki Activity

Fixed tolower() and toupper() to save high byte.

Browse Source
This commit is contained in:
Oliver Schmidt 2020-04-02 22:14:22 +02:00
parent df015f4766
commit 411fe87f64
2 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
libsrc/common/tolower.s
View File

@ -12,16 +12,17 @@
.export _tolower
.include "ctype.inc"
.import ctype_preprocessor
.import ctype_preprocessor_no_check
_tolower:
tay ; save char
jsr ctype_preprocessor ; (always clears X)
bcc @L2 ; out of range?
@L1: tya ; if so, return the argument unchanged
rts
@L2: and #CT_UPPER ; upper case char?
beq @L1 ; jump if no
tya ; restore char
adc #<('a'-'A') ; make lower case char (ctype_preprocessor ensures carry clear)
cpx #$00 ; out of range?
bne @L2 ; if so, return the argument unchanged
tay ; save char
jsr ctype_preprocessor_no_check
and #CT_UPPER ; upper case char?
beq @L1 ; jump if no
tya ; restore char
adc #<('a'-'A') ; make lower case char (ctype_preprocessor_no_check ensures carry clear)
rts
@L1: tya ; restore char
@L2: rts

21
libsrc/common/toupper.s
View File

@ -12,16 +12,17 @@
.export _toupper
.include "ctype.inc"
.import ctype_preprocessor
.import ctype_preprocessor_no_check
_toupper:
tay ; save char
jsr ctype_preprocessor ; (always clears X)
bcc @L2 ; out of range?
@L1: tya ; if so, return the argument unchanged
rts
@L2: and #CT_LOWER ; lower case char?
beq @L1 ; jump if no
tya ; restore char
adc #<('A'-'a') ; make upper case char (ctype_preprocessor ensures carry clear)
cpx #$00 ; out of range?
bne @L2 ; if so, return the argument unchanged
tay ; save char
jsr ctype_preprocessor_no_check
and #CT_LOWER ; lower case char?
beq @L1 ; jump if no
tya ; restore char
adc #<('A'-'a') ; make upper case char (ctype_preprocessor_no_check ensures carry clear)
rts
@L1: tya ; restore char
@L2: rts