--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/to_non_sp.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,25 @@
+**********************************
+
+* Advance X to 1st non-space character
+
+* OTHER MODULES NEEDED: none
+
+* ENTRY: X=somewhere in a string
+
+* EXIT: X=1st non-space character in string
+*       B=char at X
+
+
+ nam Advance to non-space
+ ttl Assembler Library Module
+
+ psect TO_NON_SP,0,0,0,0,0
+
+TO_NON_SP:
+ ldb ,x+
+ cmpb #$20 is it space?
+ beq TO_NON_SP yes, loop
+ leax -1,x point to non-space
+ rts
+
+ endsect