2474
|
1 *****************************************
|
|
2
|
|
3 * See if character in "B" is a valid string terminator.
|
|
4
|
|
5 * NOTE: This module is used by HEX_BIN, DEC_BIN, etc. It permits
|
|
6 * SPACE, CR, COMMA and NULL to be used as a delimiter -- useful
|
|
7 * for paramater and list processing....
|
|
8
|
|
9 * OTHER MODULES NEEDED: none
|
|
10
|
|
11 * ENTRY: B=character to test
|
|
12
|
|
13 * EXIT: CC zero=1 if space, 0 if not
|
|
14
|
|
15
|
|
16 nam Is Char a Terminator?
|
|
17 ttl Assembler Library Module
|
|
18
|
|
19
|
|
20 psect IS_TERMIN,0,0,0,0,0
|
|
21
|
|
22
|
|
23 IS_TERMIN:
|
|
24 tstb null?
|
|
25 beq exit
|
|
26 cmpb #$20 space
|
|
27 beq exit
|
|
28 cmpb #$0d carriage return
|
|
29 beq exit
|
|
30 cmpb #', comma?
|
|
31
|
|
32 exit
|
|
33 rts
|
|
34
|
|
35 endsect
|
|
36
|