Mercurial > hg > Members > kono > nitros9-code

diff lib/alib/to_upper.as @ 2783:03f26e88b809 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed files and setup for lwasm/lwlink work
author Boisy Pitre <boisy.pitre@nuance.com>
date Sat, 26 Jan 2013 17:18:24 -0600
parents lib/alib/to_upper.a@aaba193af04f
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/to_upper.as	Sat Jan 26 17:18:24 2013 -0600
@@ -0,0 +1,30 @@
+***************************************************
+
+* 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
+