]> git.proxmox.com Git - qemu.git/blob - tests/cris/check_bcc.s
Merge remote branch 'mst/for_anthony' into staging
[qemu.git] / tests / cris / check_bcc.s
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