2824
|
1 * Disassembly by Os9disasm of patmatch.r
|
|
2
|
|
3 section code
|
|
4
|
|
5 patmatch: pshs u
|
|
6 ldu 6,s
|
|
7 leas -2,s
|
|
8 bra L0041
|
|
9 L0008 cmpb #$2a
|
|
10 bne L0023
|
|
11 L000c ldb 11,s
|
|
12 clra
|
|
13 pshs d
|
|
14 pshs u
|
|
15 ldd 10,s
|
|
16 pshs d
|
|
17 bsr patmatch
|
|
18 leas 6,s
|
|
19 bne L005b
|
|
20 ldb ,u+
|
|
21 bne L000c
|
|
22 bra L0060
|
|
23 L0023 tst ,u
|
|
24 beq L0060
|
|
25 cmpb #$3f
|
|
26 bne L002f
|
|
27 leau 1,u
|
|
28 bra L0041
|
|
29 L002f ldb ,u+
|
|
30 tst 11,s
|
|
31 beq L003d
|
|
32 clra
|
|
33 pshs d
|
|
34 lbsr toupper
|
|
35 leas 2,s
|
|
36 L003d cmpb 1,s
|
|
37 bne L0060
|
|
38 L0041 ldx 6,s
|
|
39 ldb ,x+
|
|
40 stx 6,s
|
|
41 tst 11,s
|
|
42 beq L0053
|
|
43 clra
|
|
44 pshs d
|
|
45 lbsr toupper
|
|
46 leas 2,s
|
|
47 L0053 stb 1,s
|
|
48 bne L0008
|
|
49 ldb ,u
|
|
50 bne L0060
|
|
51 L005b ldd #1
|
|
52 bra L0062
|
|
53 L0060 clra
|
|
54 clrb
|
|
55 L0062 leas 2,s
|
|
56 puls u,pc
|
|
57
|
|
58 endsect
|
|
59
|