--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/to_upprs.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,32 @@
+*******************************
+
+* convert a null terminated string to all uppercase
+
+* OTHER MODULES NEEDED: TO_UPPER
+
+* ENTRY: X=start of string
+
+* EXIT:  all registers (except CC) preserved
+
+
+ nam Convert String to Uppercase
+ ttl Assembler Library Module
+
+
+ psect TO_UPPRS,0,0,0,0,0
+
+TO_UPPRS:
+ pshs cc,b,x
+
+loop
+ ldb ,x get char to check
+ beq exit exit if all done
+ bsr TO_UPPER convert to upper 
+ stb ,x+ put back in string
+ bra loop
+
+exit
+ puls cc,b,x,pc
+
+ endsect
+