--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/is_print.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,30 @@
+*****************************************
+
+* See if character in "B" is a printable character
+* controls are defined as $00..$1F and $7F+ -- all others are printable
+
+* OTHER MODULES NEEDED: IS_CNTRL
+
+* ENTRY: B=character to test
+
+* EXIT: CC zero=1 if printable, 0 if not
+
+
+ nam Is Char Printable?
+ ttl Assembler Library Module
+
+
+ psect IS_PRINT,0,0,0,0,0
+
+IS_PRINT:
+ lbsr IS_CNTRL
+ beq no
+ orcc #%00000100 set zero
+ rts
+
+no
+ andcc #%11111011 clear zero
+ rts
+
+ endsect
+