1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
cc65/libsrc/common/toupper.s
cuz d7a5fbeb1a Removed __cdiff. Since the assembler does character set translation for
some time now, it is no longer needed.


git-svn-id: svn://svn.cc65.org/cc65/trunk@1573 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-22 00:53:46 +00:00

22 lines
517 B
ArmAsm

;
; Ullrich von Bassewitz, 02.06.1998
;
; int toupper (int c);
;
.export _toupper
.import __ctype
_toupper:
cpx #$00 ; Outside valid range?
bne L9 ; If so, return the argument unchanged
tay ; Get c into Y
lda __ctype,y ; Get character classification
lsr a ; Get bit 0 (lower char) into carry
tya ; Get C back into A
bcc L9 ; Jump if not lower char
clc
adc #<('A'-'a') ; make upper case char
L9: rts ; CC are set