|
2474
|
1 **************************************
|
|
|
2
|
|
|
3 * COMPARE: Subroutine for string comparsion routines.
|
|
|
4 * Compares chars in A/B, will convert both to
|
|
|
5 * uppercase first if CASEMTCH is set (negative)
|
|
|
6
|
|
|
7
|
|
|
8 * OTHER MODULES NEEDED: TO_UPPER
|
|
|
9
|
|
|
10 * ENTRY: A/B=characters to compare
|
|
|
11 * CASEMTCH=0 (or positive value) if A<>a
|
|
|
12 * -1 (or neg value) if A=a
|
|
|
13
|
|
|
14
|
|
|
15 * EXIT: CC zero set if characters match.
|
|
|
16 * All other registers preserved.
|
|
|
17
|
|
|
18
|
|
|
19 nam Compare 2 Chars
|
|
|
20 ttl Assembler Library Module
|
|
|
21
|
|
|
22
|
|
|
23 Psect COMPARE,0,0,0,0,0
|
|
|
24
|
|
|
25 vsect dp
|
|
|
26
|
|
|
27 CASEMTCH: rmb 1
|
|
|
28
|
|
|
29 endsect
|
|
|
30
|
|
|
31 COMPARE:
|
|
|
32 pshs d
|
|
|
33 tst CASEMTCH need to covert to upper?
|
|
|
34 bpl no
|
|
|
35 lbsr TO_UPPER
|
|
|
36 exg a,b
|
|
|
37 lbsr TO_UPPER
|
|
|
38 no
|
|
|
39 pshs a somewhere to compare it
|
|
|
40 cmpb ,s+ do compare, set zero
|
|
|
41 puls d,pc go home
|
|
|
42
|
|
|
43 endsect
|
