Mercurial > hg > Members > kono > nitros9-code

view lib/alib/to_upper.as @ 3038:c6eafb074443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not return error for SDC setstat
author darrenatk
date Thu, 22 Jan 2015 00:05:11 -0700
parents 03f26e88b809
children
line wrap: on
line source

***************************************************

* Convert character in "B" to uppercase

* OTHER MODULES NEEDED: IS_LOWER

* ENTRY: B=ascii value of character to convert

* EXIT: B=ascii value of character in uppercase

* Note: control codes, etc. are not effected.


 nam Convert Char to Uppercase
 ttl Assembler Library Module


 section .text

TO_UPPER:
 pshs cc
 lbsr IS_LOWER only lowercase can be converted to upper
 bne toupx
 subb #$20 make uppercase

toupx
 puls cc,pc

 endsect