Commit | Line | Data |
---|---|---|
ed4c4f10 BJ |
1 | / |
2 | / RELATIONAL OPERATORS | |
3 | / | |
4 | _REL2: | |
5 | mov (sp)+,r0 | |
6 | cmp (sp)+,r0 | |
7 | jmp *reltab(r3) | |
8 | _REL42: | |
9 | mov (sp)+,r0 | |
10 | mov (sp)+,r1 | |
11 | tst (sp) | |
12 | sxt r2 | |
13 | br 2f | |
14 | _REL24: | |
15 | mov (sp)+,r1 | |
16 | sxt r0 | |
17 | br 1f | |
18 | _REL4: | |
19 | mov (sp)+,r0 | |
20 | mov (sp)+,r1 | |
21 | 1: | |
22 | mov (sp)+,r2 | |
23 | 2: | |
24 | cmp r2,r0 | |
25 | bne 1f | |
26 | cmp (sp)+,r1 | |
27 | bhi 3f | |
28 | beq 2f | |
29 | tst $-1 | |
30 | 2: | |
31 | jmp *reltab(r3) | |
32 | 3: | |
33 | tst $1 | |
34 | jmp *reltab(r3) | |
35 | 1: | |
36 | tst (sp)+ | |
37 | cmp r2,r0 | |
38 | jmp *reltab(r3) | |
39 | _REL28: | |
40 | tst (sp) | |
41 | sxt -(sp) | |
42 | _REL48: | |
43 | movif (sp)+,fr0 | |
44 | cmpf (sp)+,fr0 | |
45 | cfcc | |
46 | jmp *reltab(r3) | |
47 | _REL82: | |
48 | movf (sp)+,fr0 | |
49 | tst (sp) | |
50 | sxt -(sp) | |
51 | br 1f | |
52 | _REL84: | |
53 | movf (sp)+,fr0 | |
54 | 1: | |
55 | movif (sp)+,fr2 | |
56 | cmpf fr2,fr0 | |
57 | cfcc | |
58 | jmp *reltab(r3) | |
59 | _REL8: | |
60 | movf (sp)+,fr0 | |
61 | cmpf (sp)+,fr0 | |
62 | cfcc | |
63 | jmp *reltab(r3) | |
64 | _RELG: | |
65 | mov sp,r0 | |
66 | mov (lc),r2 | |
67 | inc r2 | |
68 | bic $1,r2 | |
69 | add r2,sp | |
70 | mov sp,r1 | |
71 | add r2,sp | |
72 | mov (lc)+,r2 | |
73 | 1: | |
74 | cmpb (r1)+,(r0)+ | |
75 | bne 1f | |
76 | sob r2,1b | |
77 | tst $0 | |
78 | 1: | |
79 | jmp *reltab(r3) | |
80 | .data | |
81 | reltab: | |
82 | releq | |
83 | relne | |
84 | rellt | |
85 | relgt | |
86 | relle | |
87 | relge | |
88 | ifeq | |
89 | ifne | |
90 | iflt | |
91 | ifgt | |
92 | ifle | |
93 | ifge | |
94 | .text | |
95 | releq: | |
96 | beq true | |
97 | clr -(sp) | |
98 | return | |
99 | relne: | |
100 | bne true | |
101 | clr -(sp) | |
102 | return | |
103 | rellt: | |
104 | blt true | |
105 | clr -(sp) | |
106 | return | |
107 | relgt: | |
108 | bgt true | |
109 | clr -(sp) | |
110 | return | |
111 | relle: | |
112 | ble true | |
113 | clr -(sp) | |
114 | return | |
115 | relge: | |
116 | bge true | |
117 | clr -(sp) | |
118 | return | |
119 | true: | |
120 | mov $1,-(sp) | |
121 | return | |
122 | false: | |
123 | clr -(sp) | |
124 | return | |
125 | ifeq: | |
126 | bne iftra | |
127 | tst (lc)+ | |
128 | return | |
129 | ifne: | |
130 | beq iftra | |
131 | tst (lc)+ | |
132 | return | |
133 | iflt: | |
134 | bge iftra | |
135 | tst (lc)+ | |
136 | return | |
137 | ifgt: | |
138 | ble iftra | |
139 | tst (lc)+ | |
140 | return | |
141 | ifle: | |
142 | bgt iftra | |
143 | tst (lc)+ | |
144 | return | |
145 | ifge: | |
146 | blt iftra | |
147 | tst (lc)+ | |
148 | return | |
149 | iftra: | |
150 | add (lc),lc | |
151 | return |