--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/prints.as	Sat Jan 26 17:18:24 2013 -0600
@@ -0,0 +1,40 @@
+***********************************
+
+* Print a program-embedded, null terminated string to standard out.
+
+* OTHER MODULES NEEDED: puts
+
+* ENTRY: Null terminated string must follow PRINTS call
+*        eg: LBSR PRINTS
+*            fcc /this is stuff to print/
+*            fcb $0d  * a new line
+*            fcc /more stuff to print/
+*            fcb $0d,0  the end
+*            lda #xx or whatever..
+*            * the rest of the program....
+
+* EXIT: CC carry set if error
+*       B error code (if any)
+
+
+ nam Print Embedded String to Std. Out
+ ttl Assembler Library Module
+
+
+ section .text
+
+PRINTS:
+ pshs x,u
+ ldx 4,s get start of string (old return address)
+ tfr x,u copy it
+
+loop
+ tst ,u+ advance U to end of string
+ bne loop
+
+ stu 4,s one past null=return address
+ lbsr PUTS print from orig pos.
+ puls x,u,pc return to caller
+
+ endsect
+