2474
|
1 *****************************************
|
|
2
|
|
3 * See if character in "B" is a printable character
|
|
4 * controls are defined as $00..$1F and $7F+ -- all others are printable
|
|
5
|
|
6 * OTHER MODULES NEEDED: IS_CNTRL
|
|
7
|
|
8 * ENTRY: B=character to test
|
|
9
|
|
10 * EXIT: CC zero=1 if printable, 0 if not
|
|
11
|
|
12
|
|
13 nam Is Char Printable?
|
|
14 ttl Assembler Library Module
|
|
15
|
|
16
|
|
17 psect IS_PRINT,0,0,0,0,0
|
|
18
|
|
19 IS_PRINT:
|
|
20 lbsr IS_CNTRL
|
|
21 beq no
|
|
22 orcc #%00000100 set zero
|
|
23 rts
|
|
24
|
|
25 no
|
|
26 andcc #%11111011 clear zero
|
|
27 rts
|
|
28
|
|
29 endsect
|
|
30
|