2474
|
1 *****************************************
|
|
2
|
|
3 * See if character in "B" is a lowercase letter
|
|
4
|
|
5 * OTHER MODULES NEEDED: none
|
|
6
|
|
7 * ENTRY: B=character to test
|
|
8
|
|
9 * EXIT: CC zero=1 if lowercase, 0 if not
|
|
10
|
|
11 nam Is Char. Lowercase?
|
|
12 ttl Assembler Library Module
|
|
13
|
|
14
|
|
15 psect IS_LOWER,0,0,0,0,0
|
|
16
|
|
17
|
|
18 IS_LOWER:
|
|
19 cmpb #'a
|
|
20 blo no not lowercase, zero cleared
|
|
21 cmpb #'z if equal, zero set
|
|
22 bhi no not lowc, zero cleared
|
|
23 orcc #%00000100 set zero
|
|
24
|
|
25 no
|
|
26 rts
|
|
27
|
|
28 endsect
|
|
29
|