--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/to_sp.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,26 @@
+**********************************
+
+* Advance X to 1st space character
+
+* OTHER MODULES NEEDED: none
+
+* ENTRY: X=somewhere in a string
+
+* EXIT: X=1st space character in string
+
+
+ nam Advance to space
+ ttl Assembler Library Module
+
+ psect TO_SP,0,0,0,0,0
+
+TO_SP:
+ pshs b
+spl
+ ldb ,x+
+ cmpb #$20 is it space?
+ bne spl no, loop
+ leax -1,x point to space
+ puls b,pc
+
+ endsect