2474
|
1 *****************************************
|
|
2
|
|
3 * See if character in "B" is a alpha letter a..z or A..Z or digit 0..9
|
|
4
|
|
5 * OTHER MODULES NEEDED: IS_ALPHA, IS_DIGIT
|
|
6
|
|
7 * ENTRY: B=character to test
|
|
8
|
|
9 * EXIT: CC zero=1 if alphanumeric, 0 if not
|
|
10
|
|
11
|
|
12 nam Is Char AlphaNumeric?
|
|
13 ttl Assembler Library Module
|
|
14
|
|
15
|
|
16 psect IS_ALNUM,0,0,0,0,0
|
|
17
|
|
18
|
|
19 IS_ALNUM:
|
|
20 lbsr IS_ALPHA
|
|
21 BEQ yes upper/lowercase letters are alphanumeric
|
|
22 lbsr IS_DIGIT last chance to set flags.
|
|
23
|
|
24 yes
|
|
25 rts
|
|
26
|
|
27
|
|
28 endsect
|
|
29
|