--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/to_lower.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,30 @@
+***************************************************
+
+* Convert character in "B" to lowercase
+
+* OTHER MODULES NEEDED: IS_UPPER
+
+* ENTRY: B=ascii value of character to convert
+
+* EXIT: B=ascii value of character in lowercase
+
+* Note: control codes, etc. are not effected.
+
+
+ nam Convert Char to Lowercase
+ ttl Assembler Library Module
+
+
+ psect TO_LOWER,0,0,0,0,0
+
+TO_LOWER:
+ pshs cc
+ lbsr IS_UPPER only uppercase can be converted
+ bne tolox no upper, exit
+ addb #$20 make lowercase
+
+tolox
+ puls cc,pc
+
+ endsect
+ 
\ No newline at end of file