Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/is_xdigit.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 hexdigit 0..9, A..F or a..f
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5 * OTHER MODULES NEEDED: IS_DIGIT
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7 * ENTRY: B=character to test
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9 * EXIT: CC zero=1 if hex digit, 0 if not
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11 nam Is Char a Hex Digit?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15 psect IS_XDIGIT,0,0,0,0,0
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
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 IS_XDIGIT:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 pshs b
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 lbsr IS_DIGIT
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 beq exit digits are okay
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 cmpb #'A
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 blo exit exit, zero not set
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 cmpb #'f
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 bhi exit zero not set
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 cmpb #'a
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 bhs yes
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 cmpb #'F
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 bhi exit
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31 yes
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 orcc #%00000100 set zero
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
34 exit
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
35 puls b,pc
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
36
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
37 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
38