equal
deleted
inserted
replaced
|
1 .global main |
|
2 .type main, @function |
|
3 main: |
|
4 clearf nzvc |
|
5 setf nzv |
|
6 bcc 0f |
|
7 addq 1, $r3 |
|
8 jump dofail |
|
9 |
|
10 0: |
|
11 clearf nzvc |
|
12 setf nzv |
|
13 bcs dofail |
|
14 addq 1,$r3 |
|
15 |
|
16 clearf nzvc |
|
17 setf ncv |
|
18 bne 1f |
|
19 addq 1, $r3 |
|
20 |
|
21 fail: |
|
22 dofail: |
|
23 jump _fail |
|
24 |
|
25 1: |
|
26 clearf nzvc |
|
27 setf ncv |
|
28 beq dofail |
|
29 addq 1,$r3 |
|
30 |
|
31 clearf nzvc |
|
32 setf ncz |
|
33 bvc 2f |
|
34 addq 1,$r3 |
|
35 jump dofail |
|
36 |
|
37 2: |
|
38 clearf nzvc |
|
39 setf ncz |
|
40 bvs dofail |
|
41 addq 1,$r3 |
|
42 |
|
43 clearf nzvc |
|
44 setf vcz |
|
45 bpl 3f |
|
46 addq 1,$r3 |
|
47 jump fail |
|
48 3: |
|
49 clearf nzvc |
|
50 setf vcz |
|
51 bmi dofail |
|
52 addq 1,$r3 |
|
53 |
|
54 clearf nzvc |
|
55 setf nv |
|
56 bls dofail |
|
57 addq 1,$r3 |
|
58 |
|
59 clearf nzvc |
|
60 setf nv |
|
61 bhi 4f |
|
62 addq 1,$r3 |
|
63 jump dofail |
|
64 |
|
65 4: |
|
66 clearf nzvc |
|
67 setf zc |
|
68 bge 5f |
|
69 addq 1,$r3 |
|
70 jump dofail |
|
71 |
|
72 5: |
|
73 clearf nzvc |
|
74 setf zc |
|
75 blt dofail |
|
76 addq 1,$r3 |
|
77 |
|
78 clearf nzvc |
|
79 setf c |
|
80 bgt 6f |
|
81 addq 1,$r3 |
|
82 jump fail |
|
83 |
|
84 6: |
|
85 clearf nzvc |
|
86 setf c |
|
87 ble dofail |
|
88 addq 1,$r3 |
|
89 |
|
90 ;;;;;;;;;; |
|
91 |
|
92 setf nzvc |
|
93 clearf nzv |
|
94 bcc dofail |
|
95 addq 1,$r3 |
|
96 |
|
97 setf nzvc |
|
98 clearf nzv |
|
99 bcs 0f |
|
100 addq 1,$r3 |
|
101 jump fail |
|
102 |
|
103 0: |
|
104 setf nzvc |
|
105 clearf ncv |
|
106 bne dofail |
|
107 addq 1,$r3 |
|
108 |
|
109 setf nzvc |
|
110 clearf ncv |
|
111 beq 1f |
|
112 addq 1,$r3 |
|
113 jump fail |
|
114 |
|
115 1: |
|
116 setf nzvc |
|
117 clearf ncz |
|
118 bvc dofail |
|
119 addq 1,$r3 |
|
120 |
|
121 setf nzvc |
|
122 clearf ncz |
|
123 bvs 2f |
|
124 addq 1,$r3 |
|
125 jump fail |
|
126 |
|
127 2: |
|
128 setf nzvc |
|
129 clearf vcz |
|
130 bpl dofail |
|
131 addq 1,$r3 |
|
132 |
|
133 setf nzvc |
|
134 clearf vcz |
|
135 bmi 3f |
|
136 addq 1,$r3 |
|
137 jump fail |
|
138 |
|
139 3: |
|
140 setf nzvc |
|
141 clearf nv |
|
142 bls 4f |
|
143 addq 1,$r3 |
|
144 jump fail |
|
145 |
|
146 4: |
|
147 setf nzvc |
|
148 clearf nv |
|
149 bhi dofail |
|
150 addq 1,$r3 |
|
151 |
|
152 setf zvc |
|
153 clearf nzc |
|
154 bge dofail |
|
155 addq 1,$r3 |
|
156 |
|
157 setf nzc |
|
158 clearf vzc |
|
159 blt 5f |
|
160 addq 1,$r3 |
|
161 jump fail |
|
162 |
|
163 5: |
|
164 setf nzvc |
|
165 clearf c |
|
166 bgt dofail |
|
167 addq 1,$r3 |
|
168 |
|
169 setf nzvc |
|
170 clearf c |
|
171 ble 6f |
|
172 addq 1,$r3 |
|
173 jump fail |
|
174 |
|
175 6: |
|
176 ; do a forward branch. |
|
177 ba 2f |
|
178 nop |
|
179 .fill 100 |
|
180 1: |
|
181 ba 3f |
|
182 nop |
|
183 .fill 800 |
|
184 2: |
|
185 ba 1b |
|
186 nop |
|
187 .fill 1024 |
|
188 3: |
|
189 |
|
190 moveq 31, $r0 |
|
191 1: bne 1b |
|
192 subq 1, $r0 |
|
193 |
|
194 jsr pass |
|
195 moveq 0, $r10 |
|
196 ret |
|
197 nop |