Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/is_print.a @ 2474:7d70b7e1cb21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved net and alib files into here
author boisy
date Tue, 30 Mar 2010 02:44:42 +0000
parents
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 *****************************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3 * See if character in "B" is a printable character
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4 * controls are defined as $00..$1F and $7F+ -- all others are printable
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6 * OTHER MODULES NEEDED: IS_CNTRL
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * ENTRY: B=character to test
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10 * EXIT: CC zero=1 if printable, 0 if not
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 nam Is Char Printable?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17 psect IS_PRINT,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 IS_PRINT:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 lbsr IS_CNTRL
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 beq no
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 orcc #%00000100 set zero
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 rts
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 no
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 andcc #%11111011 clear zero
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 rts
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30