cc65/libsrc/common/toupper.s

; toupper.s
;
; This file is part of
; cc65 - a freeware C compiler for 6502 based systems
;
; https://cc65.github.io
;
; See "LICENSE" file for legal information.
;
; int toupper (int c);
;

        .export         _toupper
        .include        "ctype.inc"
        .import         ctypemaskdirect

_toupper:
        cpx     #$00            ; out of range?
        bne     @L2             ; if so, return the argument unchanged
        tay                     ; save char
        jsr     ctypemaskdirect ; get character classification
        and     #CT_LOWER       ; lower case char?
        beq     @L1             ; jump if no
        tya                     ; restore char
        adc     #<('A'-'a')     ; make upper case char (ctypemaskdirect ensures carry clear)
        rts
@L1:    tya                     ; restore char
@L2:    rts
Adjusted tolower() and toupper() to https://github.com/cc65/cc65/pull/997 For some reason or another both the author of the PR in question and its reviewers didn't notice that the two functions in question were totally overlooked. 2020-04-02 09:15:53 +00:00			`; toupper.s`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
Adjusted tolower() and toupper() to https://github.com/cc65/cc65/pull/997 For some reason or another both the author of the PR in question and its reviewers didn't notice that the two functions in question were totally overlooked. 2020-04-02 09:15:53 +00:00			`; This file is part of`
			`; cc65 - a freeware C compiler for 6502 based systems`
			`;`
			`; https://cc65.github.io`
			`;`
			`; See "LICENSE" file for legal information.`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; int toupper (int c);`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _toupper`
Adjusted tolower() and toupper() to https://github.com/cc65/cc65/pull/997 For some reason or another both the author of the PR in question and its reviewers didn't notice that the two functions in question were totally overlooked. 2020-04-02 09:15:53 +00:00			`.include "ctype.inc"`
Shortened names and adjusted style. 2020-04-02 20:58:16 +00:00			`.import ctypemaskdirect`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
			`_toupper:`
Fixed tolower() and toupper() to save high byte. 2020-04-02 20:14:22 +00:00			`cpx #$00 ; out of range?`
			`bne @L2 ; if so, return the argument unchanged`
			`tay ; save char`
Shortened names and adjusted style. 2020-04-02 20:58:16 +00:00			`jsr ctypemaskdirect ; get character classification`
Fixed tolower() and toupper() to save high byte. 2020-04-02 20:14:22 +00:00			`and #CT_LOWER ; lower case char?`
			`beq @L1 ; jump if no`
			`tya ; restore char`
Shortened names and adjusted style. 2020-04-02 20:58:16 +00:00			`adc #<('A'-'a') ; make upper case char (ctypemaskdirect ensures carry clear)`
Adjusted tolower() and toupper() to https://github.com/cc65/cc65/pull/997 For some reason or another both the author of the PR in question and its reviewers didn't notice that the two functions in question were totally overlooked. 2020-04-02 09:15:53 +00:00			`rts`
Fixed tolower() and toupper() to save high byte. 2020-04-02 20:14:22 +00:00			`@L1: tya ; restore char`
			`@L2: rts`