Commit | Line | Data |
---|---|---|
fe8aec39 MS |
1 | # |
2 | # Some h8300sx tests -- t02_mova | |
3 | # | |
4 | ||
5 | proc do_t02_mova_test {} { | |
6 | set testname "t02_mova.s -- h8sx mova tests" | |
7 | ||
8 | gas_start "t02_mova.s" "-al" | |
9 | ||
10 | # Check each instruction bit pattern to verify it got assembled correctly. | |
11 | ||
12 | set x 0 | |
13 | expect { | |
14 | -re ".* 7 0000 78B87A89" { set x [expr $x+1]; exp_continue; } | |
15 | -re ".* 7 1234" { set x [expr $x+1]; exp_continue; } | |
16 | -re ".* 8 0006 78397A99" { set x [expr $x+1]; exp_continue; } | |
17 | -re ".* 8 1234" { set x [expr $x+1]; exp_continue; } | |
18 | -re ".* 9 000c 78B87AA9" { set x [expr $x+1]; exp_continue; } | |
19 | -re ".* 9 1234" { set x [expr $x+1]; exp_continue; } | |
20 | -re ".* 10 0012 78397AB9" { set x [expr $x+1]; exp_continue; } | |
21 | -re ".* 10 1234" { set x [expr $x+1]; exp_continue; } | |
22 | -re ".* 11 0018 78B87AC9" { set x [expr $x+1]; exp_continue; } | |
23 | -re ".* 11 1234" { set x [expr $x+1]; exp_continue; } | |
24 | -re ".* 12 001e 78397AD9" { set x [expr $x+1]; exp_continue; } | |
25 | -re ".* 12 1234" { set x [expr $x+1]; exp_continue; } | |
26 | -re ".* 13 0024 78B87A81" { set x [expr $x+1]; exp_continue; } | |
27 | -re ".* 13 12345678" { set x [expr $x+1]; exp_continue; } | |
28 | -re ".* 14 002c 78397A91" { set x [expr $x+1]; exp_continue; } | |
29 | -re ".* 14 12345678" { set x [expr $x+1]; exp_continue; } | |
30 | -re ".* 15 0034 78B87AA1" { set x [expr $x+1]; exp_continue; } | |
31 | -re ".* 15 12345678" { set x [expr $x+1]; exp_continue; } | |
32 | -re ".* 16 003c 78397AB1" { set x [expr $x+1]; exp_continue; } | |
33 | -re ".* 16 12345678" { set x [expr $x+1]; exp_continue; } | |
34 | -re ".* 17 0044 78B87AC1" { set x [expr $x+1]; exp_continue; } | |
35 | -re ".* 17 12345678" { set x [expr $x+1]; exp_continue; } | |
36 | -re ".* 18 004c 78397AD1" { set x [expr $x+1]; exp_continue; } | |
37 | -re ".* 18 12345678" { set x [expr $x+1]; exp_continue; } | |
38 | -re ".* 19 " { | |
39 | if [expr $x == 24] then { | |
40 | pass "$testname: a" | |
41 | } else { | |
42 | fail "$testname: a ($x)" | |
43 | } | |
44 | } | |
45 | default { fail "$testname: a ($x)" } | |
46 | } | |
47 | ||
48 | set x 0 | |
49 | expect { | |
50 | -re ".* 20 0054 78B87A89" { set x [expr $x+1]; exp_continue; } | |
51 | -re ".* 20 1234" { set x [expr $x+1]; exp_continue; } | |
52 | -re ".* 21 005a 78397A99" { set x [expr $x+1]; exp_continue; } | |
53 | -re ".* 21 1234" { set x [expr $x+1]; exp_continue; } | |
54 | -re ".* 22 0060 78B87AA9" { set x [expr $x+1]; exp_continue; } | |
55 | -re ".* 22 1234" { set x [expr $x+1]; exp_continue; } | |
56 | -re ".* 23 0066 78397AB9" { set x [expr $x+1]; exp_continue; } | |
57 | -re ".* 23 1234" { set x [expr $x+1]; exp_continue; } | |
58 | -re ".* 24 006c 78B87AC9" { set x [expr $x+1]; exp_continue; } | |
59 | -re ".* 24 1234" { set x [expr $x+1]; exp_continue; } | |
60 | -re ".* 25 0072 78397AD9" { set x [expr $x+1]; exp_continue; } | |
61 | -re ".* 25 1234" { set x [expr $x+1]; exp_continue; } | |
62 | -re ".* 26 0078 78B87A81" { set x [expr $x+1]; exp_continue; } | |
63 | -re ".* 26 12345678" { set x [expr $x+1]; exp_continue; } | |
64 | -re ".* 27 0080 78397A91" { set x [expr $x+1]; exp_continue; } | |
65 | -re ".* 27 12345678" { set x [expr $x+1]; exp_continue; } | |
66 | -re ".* 28 0088 78B87AA1" { set x [expr $x+1]; exp_continue; } | |
67 | -re ".* 28 12345678" { set x [expr $x+1]; exp_continue; } | |
68 | -re ".* 29 0090 78397AB1" { set x [expr $x+1]; exp_continue; } | |
69 | -re ".* 29 12345678" { set x [expr $x+1]; exp_continue; } | |
70 | -re ".* 30 0098 78B87AC1" { set x [expr $x+1]; exp_continue; } | |
71 | -re ".* 30 12345678" { set x [expr $x+1]; exp_continue; } | |
72 | -re ".* 31 00a0 78397AD1" { set x [expr $x+1]; exp_continue; } | |
73 | -re ".* 31 12345678" { set x [expr $x+1]; exp_continue; } | |
74 | -re ".* 32 " { | |
75 | if [expr $x == 24] then { | |
76 | pass "$testname: b" | |
77 | } else { | |
78 | fail "$testname: b ($x)" | |
79 | } | |
80 | } | |
81 | default { fail "$testname: b ($x)" } | |
82 | } | |
83 | ||
84 | set x 0 | |
85 | expect { | |
86 | -re ".* 33 00a8 017F0281" { set x [expr $x+1]; exp_continue; } | |
87 | -re ".* 33 1234" { set x [expr $x+1]; exp_continue; } | |
88 | -re ".* 34 00ae 017F1281" { set x [expr $x+1]; exp_continue; } | |
89 | -re ".* 34 1234" { set x [expr $x+1]; exp_continue; } | |
90 | -re ".* 35 00b4 017F8281" { set x [expr $x+1]; exp_continue; } | |
91 | -re ".* 35 1234" { set x [expr $x+1]; exp_continue; } | |
92 | -re ".* 36 00ba 017FB281" { set x [expr $x+1]; exp_continue; } | |
93 | -re ".* 36 1234" { set x [expr $x+1]; exp_continue; } | |
94 | -re ".* 37 00c0 017F9281" { set x [expr $x+1]; exp_continue; } | |
95 | -re ".* 37 1234" { set x [expr $x+1]; exp_continue; } | |
96 | -re ".* 38 00c6 017FA281" { set x [expr $x+1]; exp_continue; } | |
97 | -re ".* 38 1234" { set x [expr $x+1]; exp_continue; } | |
98 | -re ".* 39 00cc 017FC281" { set x [expr $x+1]; exp_continue; } | |
99 | -re ".* 39 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
100 | -re ".* 40 00d4 017FCA81" { set x [expr $x+1]; exp_continue; } | |
101 | -re ".* 40 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
102 | -re ".* 40 1234" { set x [expr $x+1]; exp_continue; } | |
103 | -re ".* 41 00de 017FD281" { set x [expr $x+1]; exp_continue; } | |
104 | -re ".* 41 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
105 | -re ".* 42 00e6 017FE281" { set x [expr $x+1]; exp_continue; } | |
106 | -re ".* 42 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
107 | -re ".* 43 00ee 017FF281" { set x [expr $x+1]; exp_continue; } | |
108 | -re ".* 43 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
109 | -re ".* 44 00f6 017FDA81" { set x [expr $x+1]; exp_continue; } | |
110 | -re ".* 44 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
111 | -re ".* 44 1234" { set x [expr $x+1]; exp_continue; } | |
112 | -re ".* 45 0100 017FEA81" { set x [expr $x+1]; exp_continue; } | |
113 | -re ".* 45 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
114 | -re ".* 45 1234" { set x [expr $x+1]; exp_continue; } | |
115 | -re ".* 46 010a 017FFA81" { set x [expr $x+1]; exp_continue; } | |
116 | -re ".* 46 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
117 | -re ".* 46 1234" { set x [expr $x+1]; exp_continue; } | |
118 | -re ".* 47 0114 017F4081" { set x [expr $x+1]; exp_continue; } | |
119 | -re ".* 47 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
120 | -re ".* 48 011c 017F4881" { set x [expr $x+1]; exp_continue; } | |
121 | -re ".* 48 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
122 | -re ".* 48 1234" { set x [expr $x+1]; exp_continue; } | |
123 | -re ".* 49 " { | |
124 | if [expr $x == 37] then { | |
125 | pass "$testname: c" | |
126 | } else { | |
127 | fail "$testname: c ($x)" | |
128 | } | |
129 | } | |
130 | default { fail "$testname: c ($x)" } | |
131 | } | |
132 | ||
133 | set x 0 | |
134 | expect { | |
135 | -re ".* 50 0126 015F0291" { set x [expr $x+1]; exp_continue; } | |
136 | -re ".* 50 1234" { set x [expr $x+1]; exp_continue; } | |
137 | -re ".* 51 012c 015F1291" { set x [expr $x+1]; exp_continue; } | |
138 | -re ".* 51 1234" { set x [expr $x+1]; exp_continue; } | |
139 | -re ".* 52 0132 015F8291" { set x [expr $x+1]; exp_continue; } | |
140 | -re ".* 52 1234" { set x [expr $x+1]; exp_continue; } | |
141 | -re ".* 53 0138 015FB291" { set x [expr $x+1]; exp_continue; } | |
142 | -re ".* 53 1234" { set x [expr $x+1]; exp_continue; } | |
143 | -re ".* 54 013e 015F9291" { set x [expr $x+1]; exp_continue; } | |
144 | -re ".* 54 1234" { set x [expr $x+1]; exp_continue; } | |
145 | -re ".* 55 0144 015FA291" { set x [expr $x+1]; exp_continue; } | |
146 | -re ".* 55 1234" { set x [expr $x+1]; exp_continue; } | |
147 | -re ".* 56 014a 015FC291" { set x [expr $x+1]; exp_continue; } | |
148 | -re ".* 56 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
149 | -re ".* 57 0152 015FCA91" { set x [expr $x+1]; exp_continue; } | |
150 | -re ".* 57 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
151 | -re ".* 57 1234" { set x [expr $x+1]; exp_continue; } | |
152 | -re ".* 58 015c 015FD291" { set x [expr $x+1]; exp_continue; } | |
153 | -re ".* 58 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
154 | -re ".* 59 0164 015FE291" { set x [expr $x+1]; exp_continue; } | |
155 | -re ".* 59 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
156 | -re ".* 60 016c 015FF291" { set x [expr $x+1]; exp_continue; } | |
157 | -re ".* 60 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
158 | -re ".* 61 0174 015FDA91" { set x [expr $x+1]; exp_continue; } | |
159 | -re ".* 61 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
160 | -re ".* 61 1234" { set x [expr $x+1]; exp_continue; } | |
161 | -re ".* 62 017e 015FEA91" { set x [expr $x+1]; exp_continue; } | |
162 | -re ".* 62 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
163 | -re ".* 62 1234" { set x [expr $x+1]; exp_continue; } | |
164 | -re ".* 63 0188 015FFA91" { set x [expr $x+1]; exp_continue; } | |
165 | -re ".* 63 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
166 | -re ".* 63 1234" { set x [expr $x+1]; exp_continue; } | |
167 | -re ".* 64 0192 015F4091" { set x [expr $x+1]; exp_continue; } | |
168 | -re ".* 64 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
169 | -re ".* 65 019a 015F4891" { set x [expr $x+1]; exp_continue; } | |
170 | -re ".* 65 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
171 | -re ".* 65 1234" { set x [expr $x+1]; exp_continue; } | |
172 | -re ".* 66 " { | |
173 | if [expr $x == 37] then { | |
174 | pass "$testname: d" | |
175 | } else { | |
176 | fail "$testname: d ($x)" | |
177 | } | |
178 | } | |
179 | default { fail "$testname: d ($x)" } | |
180 | } | |
181 | ||
182 | set x 0 | |
183 | expect { | |
184 | -re ".* 67 01a4 017F02A1" { set x [expr $x+1]; exp_continue; } | |
185 | -re ".* 67 1234" { set x [expr $x+1]; exp_continue; } | |
186 | -re ".* 68 01aa 017F12A1" { set x [expr $x+1]; exp_continue; } | |
187 | -re ".* 68 1234" { set x [expr $x+1]; exp_continue; } | |
188 | -re ".* 69 01b0 017F82A1" { set x [expr $x+1]; exp_continue; } | |
189 | -re ".* 69 1234" { set x [expr $x+1]; exp_continue; } | |
190 | -re ".* 70 01b6 017FB2A1" { set x [expr $x+1]; exp_continue; } | |
191 | -re ".* 70 1234" { set x [expr $x+1]; exp_continue; } | |
192 | -re ".* 71 01bc 017F92A1" { set x [expr $x+1]; exp_continue; } | |
193 | -re ".* 71 1234" { set x [expr $x+1]; exp_continue; } | |
194 | -re ".* 72 01c2 017FA2A1" { set x [expr $x+1]; exp_continue; } | |
195 | -re ".* 72 1234" { set x [expr $x+1]; exp_continue; } | |
196 | -re ".* 73 01c8 017FC2A1" { set x [expr $x+1]; exp_continue; } | |
197 | -re ".* 73 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
198 | -re ".* 74 01d0 017FCAA1" { set x [expr $x+1]; exp_continue; } | |
199 | -re ".* 74 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
200 | -re ".* 74 1234" { set x [expr $x+1]; exp_continue; } | |
201 | -re ".* 75 01da 017FD2A1" { set x [expr $x+1]; exp_continue; } | |
202 | -re ".* 75 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
203 | -re ".* 76 01e2 017FE2A1" { set x [expr $x+1]; exp_continue; } | |
204 | -re ".* 76 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
205 | -re ".* 77 01ea 017FF2A1" { set x [expr $x+1]; exp_continue; } | |
206 | -re ".* 77 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
207 | -re ".* 78 01f2 017FDAA1" { set x [expr $x+1]; exp_continue; } | |
208 | -re ".* 78 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
209 | -re ".* 78 1234" { set x [expr $x+1]; exp_continue; } | |
210 | -re ".* 79 01fc 017FEAA1" { set x [expr $x+1]; exp_continue; } | |
211 | -re ".* 79 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
212 | -re ".* 79 1234" { set x [expr $x+1]; exp_continue; } | |
213 | -re ".* 80 0206 017FFAA1" { set x [expr $x+1]; exp_continue; } | |
214 | -re ".* 80 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
215 | -re ".* 80 1234" { set x [expr $x+1]; exp_continue; } | |
216 | -re ".* 81 0210 017F40A1" { set x [expr $x+1]; exp_continue; } | |
217 | -re ".* 81 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
218 | -re ".* 82 0218 017F48A1" { set x [expr $x+1]; exp_continue; } | |
219 | -re ".* 82 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
220 | -re ".* 82 1234" { set x [expr $x+1]; exp_continue; } | |
221 | -re ".* 83 " { | |
222 | if [expr $x == 37] then { | |
223 | pass "$testname: e" | |
224 | } else { | |
225 | fail "$testname: e ($x)" | |
226 | } | |
227 | } | |
228 | default { fail "$testname: e ($x)" } | |
229 | } | |
230 | ||
231 | set x 0 | |
232 | expect { | |
233 | -re ".* 84 0222 015F02B1" { set x [expr $x+1]; exp_continue; } | |
234 | -re ".* 84 1234" { set x [expr $x+1]; exp_continue; } | |
235 | -re ".* 85 0228 015F12B1" { set x [expr $x+1]; exp_continue; } | |
236 | -re ".* 85 1234" { set x [expr $x+1]; exp_continue; } | |
237 | -re ".* 86 022e 015F82B1" { set x [expr $x+1]; exp_continue; } | |
238 | -re ".* 86 1234" { set x [expr $x+1]; exp_continue; } | |
239 | -re ".* 87 0234 015FB2B1" { set x [expr $x+1]; exp_continue; } | |
240 | -re ".* 87 1234" { set x [expr $x+1]; exp_continue; } | |
241 | -re ".* 88 023a 015F92B1" { set x [expr $x+1]; exp_continue; } | |
242 | -re ".* 88 1234" { set x [expr $x+1]; exp_continue; } | |
243 | -re ".* 89 0240 015FA2B1" { set x [expr $x+1]; exp_continue; } | |
244 | -re ".* 89 1234" { set x [expr $x+1]; exp_continue; } | |
245 | -re ".* 90 0246 015FC2B1" { set x [expr $x+1]; exp_continue; } | |
246 | -re ".* 90 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
247 | -re ".* 91 024e 015FCAB1" { set x [expr $x+1]; exp_continue; } | |
248 | -re ".* 91 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
249 | -re ".* 91 1234" { set x [expr $x+1]; exp_continue; } | |
250 | -re ".* 92 0258 015FD2B1" { set x [expr $x+1]; exp_continue; } | |
251 | -re ".* 92 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
252 | -re ".* 93 0260 015FE2B1" { set x [expr $x+1]; exp_continue; } | |
253 | -re ".* 93 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
254 | -re ".* 94 0268 015FF2B1" { set x [expr $x+1]; exp_continue; } | |
255 | -re ".* 94 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
256 | -re ".* 95 0270 015FDAB1" { set x [expr $x+1]; exp_continue; } | |
257 | -re ".* 95 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
258 | -re ".* 95 1234" { set x [expr $x+1]; exp_continue; } | |
259 | -re ".* 96 027a 015FEAB1" { set x [expr $x+1]; exp_continue; } | |
260 | -re ".* 96 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
261 | -re ".* 96 1234" { set x [expr $x+1]; exp_continue; } | |
262 | -re ".* 97 0284 015FFAB1" { set x [expr $x+1]; exp_continue; } | |
263 | -re ".* 97 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
264 | -re ".* 97 1234" { set x [expr $x+1]; exp_continue; } | |
265 | -re ".* 98 028e 015F40B1" { set x [expr $x+1]; exp_continue; } | |
266 | -re ".* 98 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
267 | -re ".* 99 0296 015F48B1" { set x [expr $x+1]; exp_continue; } | |
268 | -re ".* 99 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
269 | -re ".* 99 1234" { set x [expr $x+1]; exp_continue; } | |
270 | -re ".* 100 " { | |
271 | if [expr $x == 37] then { | |
272 | pass "$testname: f" | |
273 | } else { | |
274 | fail "$testname: f ($x)" | |
275 | } | |
276 | } | |
277 | default { fail "$testname: f ($x)" } | |
278 | } | |
279 | ||
280 | set x 0 | |
281 | expect { | |
282 | -re ".* 101 02a0 017F02C1" { set x [expr $x+1]; exp_continue; } | |
283 | -re ".* 101 1234" { set x [expr $x+1]; exp_continue; } | |
284 | -re ".* 102 02a6 017F12C1" { set x [expr $x+1]; exp_continue; } | |
285 | -re ".* 102 1234" { set x [expr $x+1]; exp_continue; } | |
286 | -re ".* 103 02ac 017F82C1" { set x [expr $x+1]; exp_continue; } | |
287 | -re ".* 103 1234" { set x [expr $x+1]; exp_continue; } | |
288 | -re ".* 104 02b2 017FB2C1" { set x [expr $x+1]; exp_continue; } | |
289 | -re ".* 104 1234" { set x [expr $x+1]; exp_continue; } | |
290 | -re ".* 105 02b8 017F92C1" { set x [expr $x+1]; exp_continue; } | |
291 | -re ".* 105 1234" { set x [expr $x+1]; exp_continue; } | |
292 | -re ".* 106 02be 017FA2C1" { set x [expr $x+1]; exp_continue; } | |
293 | -re ".* 106 1234" { set x [expr $x+1]; exp_continue; } | |
294 | -re ".* 107 02c4 017FC2C1" { set x [expr $x+1]; exp_continue; } | |
295 | -re ".* 107 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
296 | -re ".* 108 02cc 017FCAC1" { set x [expr $x+1]; exp_continue; } | |
297 | -re ".* 108 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
298 | -re ".* 108 1234" { set x [expr $x+1]; exp_continue; } | |
299 | -re ".* 109 02d6 017FD2C1" { set x [expr $x+1]; exp_continue; } | |
300 | -re ".* 109 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
301 | -re ".* 110 02de 017FE2C1" { set x [expr $x+1]; exp_continue; } | |
302 | -re ".* 110 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
303 | -re ".* 111 02e6 017FF2C1" { set x [expr $x+1]; exp_continue; } | |
304 | -re ".* 111 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
305 | -re ".* 112 02ee 017FDAC1" { set x [expr $x+1]; exp_continue; } | |
306 | -re ".* 112 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
307 | -re ".* 112 1234" { set x [expr $x+1]; exp_continue; } | |
308 | -re ".* 113 02f8 017FEAC1" { set x [expr $x+1]; exp_continue; } | |
309 | -re ".* 113 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
310 | -re ".* 113 1234" { set x [expr $x+1]; exp_continue; } | |
311 | -re ".* 114 0302 017FFAC1" { set x [expr $x+1]; exp_continue; } | |
312 | -re ".* 114 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
313 | -re ".* 114 1234" { set x [expr $x+1]; exp_continue; } | |
314 | -re ".* 115 030c 017F40C1" { set x [expr $x+1]; exp_continue; } | |
315 | -re ".* 115 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
316 | -re ".* 116 0314 017F48C1" { set x [expr $x+1]; exp_continue; } | |
317 | -re ".* 116 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
318 | -re ".* 116 1234" { set x [expr $x+1]; exp_continue; } | |
319 | -re ".* 117 " { | |
320 | if [expr $x == 37] then { | |
321 | pass "$testname: g" | |
322 | } else { | |
323 | fail "$testname: g ($x)" | |
324 | } | |
325 | } | |
326 | default { fail "$testname: g ($x)" } | |
327 | } | |
328 | ||
329 | set x 0 | |
330 | expect { | |
331 | -re ".* 118 031e 015F02D1" { set x [expr $x+1]; exp_continue; } | |
332 | -re ".* 118 1234" { set x [expr $x+1]; exp_continue; } | |
333 | -re ".* 119 0324 015F12D1" { set x [expr $x+1]; exp_continue; } | |
334 | -re ".* 119 1234" { set x [expr $x+1]; exp_continue; } | |
335 | -re ".* 120 032a 015F82D1" { set x [expr $x+1]; exp_continue; } | |
336 | -re ".* 120 1234" { set x [expr $x+1]; exp_continue; } | |
337 | -re ".* 121 0330 015FB2D1" { set x [expr $x+1]; exp_continue; } | |
338 | -re ".* 121 1234" { set x [expr $x+1]; exp_continue; } | |
339 | -re ".* 122 0336 015F92D1" { set x [expr $x+1]; exp_continue; } | |
340 | -re ".* 122 1234" { set x [expr $x+1]; exp_continue; } | |
341 | -re ".* 123 033c 015FA2D1" { set x [expr $x+1]; exp_continue; } | |
342 | -re ".* 123 1234" { set x [expr $x+1]; exp_continue; } | |
343 | -re ".* 124 0342 015FC2D1" { set x [expr $x+1]; exp_continue; } | |
344 | -re ".* 124 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
345 | -re ".* 125 034a 015FCAD1" { set x [expr $x+1]; exp_continue; } | |
346 | -re ".* 125 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
347 | -re ".* 125 1234" { set x [expr $x+1]; exp_continue; } | |
348 | -re ".* 126 0354 015FD2D1" { set x [expr $x+1]; exp_continue; } | |
349 | -re ".* 126 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
350 | -re ".* 127 035c 015FE2D1" { set x [expr $x+1]; exp_continue; } | |
351 | -re ".* 127 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
352 | -re ".* 128 0364 015FF2D1" { set x [expr $x+1]; exp_continue; } | |
353 | -re ".* 128 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
354 | -re ".* 129 036c 015FDAD1" { set x [expr $x+1]; exp_continue; } | |
355 | -re ".* 129 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
356 | -re ".* 129 1234" { set x [expr $x+1]; exp_continue; } | |
357 | -re ".* 130 0376 015FEAD1" { set x [expr $x+1]; exp_continue; } | |
358 | -re ".* 130 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
359 | -re ".* 130 1234" { set x [expr $x+1]; exp_continue; } | |
360 | -re ".* 131 0380 015FFAD1" { set x [expr $x+1]; exp_continue; } | |
361 | -re ".* 131 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
362 | -re ".* 131 1234" { set x [expr $x+1]; exp_continue; } | |
363 | -re ".* 132 038a 015F40D1" { set x [expr $x+1]; exp_continue; } | |
364 | -re ".* 132 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
365 | -re ".* 133 0392 015F48D1" { set x [expr $x+1]; exp_continue; } | |
366 | -re ".* 133 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
367 | -re ".* 133 1234" { set x [expr $x+1]; exp_continue; } | |
368 | -re ".* 134 " { | |
369 | if [expr $x == 37] then { | |
370 | pass "$testname: h" | |
371 | } else { | |
372 | fail "$testname: h ($x)" | |
373 | } | |
374 | } | |
375 | default { fail "$testname: h ($x)" } | |
376 | } | |
377 | ||
378 | set x 0 | |
379 | expect { | |
380 | -re ".* 135 039c 017F0289" { set x [expr $x+1]; exp_continue; } | |
381 | -re ".* 135 12345678" { set x [expr $x+1]; exp_continue; } | |
382 | -re ".* 136 03a4 017F1289" { set x [expr $x+1]; exp_continue; } | |
383 | -re ".* 136 12345678" { set x [expr $x+1]; exp_continue; } | |
384 | -re ".* 137 03ac 017F8289" { set x [expr $x+1]; exp_continue; } | |
385 | -re ".* 137 12345678" { set x [expr $x+1]; exp_continue; } | |
386 | -re ".* 138 03b4 017FB289" { set x [expr $x+1]; exp_continue; } | |
387 | -re ".* 138 12345678" { set x [expr $x+1]; exp_continue; } | |
388 | -re ".* 139 03bc 017F9289" { set x [expr $x+1]; exp_continue; } | |
389 | -re ".* 139 12345678" { set x [expr $x+1]; exp_continue; } | |
390 | -re ".* 140 03c4 017FA289" { set x [expr $x+1]; exp_continue; } | |
391 | -re ".* 140 12345678" { set x [expr $x+1]; exp_continue; } | |
392 | -re ".* 141 03cc 017FC289" { set x [expr $x+1]; exp_continue; } | |
393 | -re ".* 141 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
394 | -re ".* 141 5678" { set x [expr $x+1]; exp_continue; } | |
395 | -re ".* 142 03d6 017FCA89" { set x [expr $x+1]; exp_continue; } | |
396 | -re ".* 142 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
397 | -re ".* 142 12345678" { set x [expr $x+1]; exp_continue; } | |
398 | -re ".* 143 03e2 017FD289" { set x [expr $x+1]; exp_continue; } | |
399 | -re ".* 143 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
400 | -re ".* 143 5678" { set x [expr $x+1]; exp_continue; } | |
401 | -re ".* 144 03ec 017FE289" { set x [expr $x+1]; exp_continue; } | |
402 | -re ".* 144 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
403 | -re ".* 144 5678" { set x [expr $x+1]; exp_continue; } | |
404 | -re ".* 145 03f6 017FF289" { set x [expr $x+1]; exp_continue; } | |
405 | -re ".* 145 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
406 | -re ".* 145 5678" { set x [expr $x+1]; exp_continue; } | |
407 | -re ".* 146 0400 017FDA89" { set x [expr $x+1]; exp_continue; } | |
408 | -re ".* 146 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
409 | -re ".* 146 12345678" { set x [expr $x+1]; exp_continue; } | |
410 | -re ".* 147 040c 017FEA89" { set x [expr $x+1]; exp_continue; } | |
411 | -re ".* 147 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
412 | -re ".* 147 12345678" { set x [expr $x+1]; exp_continue; } | |
413 | -re ".* 148 0418 017FFA89" { set x [expr $x+1]; exp_continue; } | |
414 | -re ".* 148 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
415 | -re ".* 148 12345678" { set x [expr $x+1]; exp_continue; } | |
416 | -re ".* 149 0424 017F4089" { set x [expr $x+1]; exp_continue; } | |
417 | -re ".* 149 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
418 | -re ".* 149 5678" { set x [expr $x+1]; exp_continue; } | |
419 | -re ".* 150 042e 017F4889" { set x [expr $x+1]; exp_continue; } | |
420 | -re ".* 150 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
421 | -re ".* 150 12345678" { set x [expr $x+1]; exp_continue; } | |
422 | -re ".* 151 " { | |
423 | if [expr $x == 42] then { | |
424 | pass "$testname: i" | |
425 | } else { | |
426 | fail "$testname: i ($x)" | |
427 | } | |
428 | } | |
429 | default { fail "$testname: i ($x)" } | |
430 | } | |
431 | ||
432 | set x 0 | |
433 | expect { | |
434 | -re ".* 152 043a 015F0299" { set x [expr $x+1]; exp_continue; } | |
435 | -re ".* 152 12345678" { set x [expr $x+1]; exp_continue; } | |
436 | -re ".* 153 0442 015F1299" { set x [expr $x+1]; exp_continue; } | |
437 | -re ".* 153 12345678" { set x [expr $x+1]; exp_continue; } | |
438 | -re ".* 154 044a 015F8299" { set x [expr $x+1]; exp_continue; } | |
439 | -re ".* 154 12345678" { set x [expr $x+1]; exp_continue; } | |
440 | -re ".* 155 0452 015FB299" { set x [expr $x+1]; exp_continue; } | |
441 | -re ".* 155 12345678" { set x [expr $x+1]; exp_continue; } | |
442 | -re ".* 156 045a 015F9299" { set x [expr $x+1]; exp_continue; } | |
443 | -re ".* 156 12345678" { set x [expr $x+1]; exp_continue; } | |
444 | -re ".* 157 0462 015FA299" { set x [expr $x+1]; exp_continue; } | |
445 | -re ".* 157 12345678" { set x [expr $x+1]; exp_continue; } | |
446 | -re ".* 158 046a 015FC299" { set x [expr $x+1]; exp_continue; } | |
447 | -re ".* 158 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
448 | -re ".* 158 5678" { set x [expr $x+1]; exp_continue; } | |
449 | -re ".* 159 0474 015FCA99" { set x [expr $x+1]; exp_continue; } | |
450 | -re ".* 159 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
451 | -re ".* 159 12345678" { set x [expr $x+1]; exp_continue; } | |
452 | -re ".* 160 0480 015FD299" { set x [expr $x+1]; exp_continue; } | |
453 | -re ".* 160 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
454 | -re ".* 160 5678" { set x [expr $x+1]; exp_continue; } | |
455 | -re ".* 161 048a 015FE299" { set x [expr $x+1]; exp_continue; } | |
456 | -re ".* 161 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
457 | -re ".* 161 5678" { set x [expr $x+1]; exp_continue; } | |
458 | -re ".* 162 0494 015FF299" { set x [expr $x+1]; exp_continue; } | |
459 | -re ".* 162 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
460 | -re ".* 162 5678" { set x [expr $x+1]; exp_continue; } | |
461 | -re ".* 163 049e 015FDA99" { set x [expr $x+1]; exp_continue; } | |
462 | -re ".* 163 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
463 | -re ".* 163 12345678" { set x [expr $x+1]; exp_continue; } | |
464 | -re ".* 164 04aa 015FEA99" { set x [expr $x+1]; exp_continue; } | |
465 | -re ".* 164 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
466 | -re ".* 164 12345678" { set x [expr $x+1]; exp_continue; } | |
467 | -re ".* 165 04b6 015FFA99" { set x [expr $x+1]; exp_continue; } | |
468 | -re ".* 165 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
469 | -re ".* 165 12345678" { set x [expr $x+1]; exp_continue; } | |
470 | -re ".* 166 04c2 015F4099" { set x [expr $x+1]; exp_continue; } | |
471 | -re ".* 166 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
472 | -re ".* 166 5678" { set x [expr $x+1]; exp_continue; } | |
473 | -re ".* 167 04cc 015F4899" { set x [expr $x+1]; exp_continue; } | |
474 | -re ".* 167 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
475 | -re ".* 167 12345678" { set x [expr $x+1]; exp_continue; } | |
476 | -re ".* 168 " { | |
477 | if [expr $x == 42] then { | |
478 | pass "$testname: j" | |
479 | } else { | |
480 | fail "$testname: j ($x)" | |
481 | } | |
482 | } | |
483 | default { fail "$testname: j ($x)" } | |
484 | } | |
485 | ||
486 | set x 0 | |
487 | expect { | |
488 | -re ".* 169 04d8 017F02A9" { set x [expr $x+1]; exp_continue; } | |
489 | -re ".* 169 12345678" { set x [expr $x+1]; exp_continue; } | |
490 | -re ".* 170 04e0 017F12A9" { set x [expr $x+1]; exp_continue; } | |
491 | -re ".* 170 12345678" { set x [expr $x+1]; exp_continue; } | |
492 | -re ".* 171 04e8 017F82A9" { set x [expr $x+1]; exp_continue; } | |
493 | -re ".* 171 12345678" { set x [expr $x+1]; exp_continue; } | |
494 | -re ".* 172 04f0 017FB2A9" { set x [expr $x+1]; exp_continue; } | |
495 | -re ".* 172 12345678" { set x [expr $x+1]; exp_continue; } | |
496 | -re ".* 173 04f8 017F92A9" { set x [expr $x+1]; exp_continue; } | |
497 | -re ".* 173 12345678" { set x [expr $x+1]; exp_continue; } | |
498 | -re ".* 174 0500 017FA2A9" { set x [expr $x+1]; exp_continue; } | |
499 | -re ".* 174 12345678" { set x [expr $x+1]; exp_continue; } | |
500 | -re ".* 175 0508 017FC2A9" { set x [expr $x+1]; exp_continue; } | |
501 | -re ".* 175 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
502 | -re ".* 175 5678" { set x [expr $x+1]; exp_continue; } | |
503 | -re ".* 176 0512 017FCAA9" { set x [expr $x+1]; exp_continue; } | |
504 | -re ".* 176 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
505 | -re ".* 176 12345678" { set x [expr $x+1]; exp_continue; } | |
506 | -re ".* 177 051e 017FD2A9" { set x [expr $x+1]; exp_continue; } | |
507 | -re ".* 177 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
508 | -re ".* 177 5678" { set x [expr $x+1]; exp_continue; } | |
509 | -re ".* 178 0528 017FE2A9" { set x [expr $x+1]; exp_continue; } | |
510 | -re ".* 178 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
511 | -re ".* 178 5678" { set x [expr $x+1]; exp_continue; } | |
512 | -re ".* 179 0532 017FF2A9" { set x [expr $x+1]; exp_continue; } | |
513 | -re ".* 179 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
514 | -re ".* 179 5678" { set x [expr $x+1]; exp_continue; } | |
515 | -re ".* 180 053c 017FDAA9" { set x [expr $x+1]; exp_continue; } | |
516 | -re ".* 180 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
517 | -re ".* 180 12345678" { set x [expr $x+1]; exp_continue; } | |
518 | -re ".* 181 0548 017FEAA9" { set x [expr $x+1]; exp_continue; } | |
519 | -re ".* 181 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
520 | -re ".* 181 12345678" { set x [expr $x+1]; exp_continue; } | |
521 | -re ".* 182 0554 017FFAA9" { set x [expr $x+1]; exp_continue; } | |
522 | -re ".* 182 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
523 | -re ".* 182 12345678" { set x [expr $x+1]; exp_continue; } | |
524 | -re ".* 183 0560 017F40A9" { set x [expr $x+1]; exp_continue; } | |
525 | -re ".* 183 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
526 | -re ".* 183 5678" { set x [expr $x+1]; exp_continue; } | |
527 | -re ".* 184 056a 017F48A9" { set x [expr $x+1]; exp_continue; } | |
528 | -re ".* 184 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
529 | -re ".* 184 12345678" { set x [expr $x+1]; exp_continue; } | |
530 | -re ".* 185 " { | |
531 | if [expr $x == 42] then { | |
532 | pass "$testname: k" | |
533 | } else { | |
534 | fail "$testname: k ($x)" | |
535 | } | |
536 | } | |
537 | default { fail "$testname: k ($x)" } | |
538 | } | |
539 | ||
540 | set x 0 | |
541 | expect { | |
542 | -re ".* 186 0576 015F02B9" { set x [expr $x+1]; exp_continue; } | |
543 | -re ".* 186 12345678" { set x [expr $x+1]; exp_continue; } | |
544 | -re ".* 187 057e 015F12B9" { set x [expr $x+1]; exp_continue; } | |
545 | -re ".* 187 12345678" { set x [expr $x+1]; exp_continue; } | |
546 | -re ".* 188 0586 015F82B9" { set x [expr $x+1]; exp_continue; } | |
547 | -re ".* 188 12345678" { set x [expr $x+1]; exp_continue; } | |
548 | -re ".* 189 058e 015FB2B9" { set x [expr $x+1]; exp_continue; } | |
549 | -re ".* 189 12345678" { set x [expr $x+1]; exp_continue; } | |
550 | -re ".* 190 0596 015F92B9" { set x [expr $x+1]; exp_continue; } | |
551 | -re ".* 190 12345678" { set x [expr $x+1]; exp_continue; } | |
552 | -re ".* 191 059e 015FA2B9" { set x [expr $x+1]; exp_continue; } | |
553 | -re ".* 191 12345678" { set x [expr $x+1]; exp_continue; } | |
554 | -re ".* 192 05a6 015FC2B9" { set x [expr $x+1]; exp_continue; } | |
555 | -re ".* 192 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
556 | -re ".* 192 5678" { set x [expr $x+1]; exp_continue; } | |
557 | -re ".* 193 05b0 015FCAB9" { set x [expr $x+1]; exp_continue; } | |
558 | -re ".* 193 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
559 | -re ".* 193 12345678" { set x [expr $x+1]; exp_continue; } | |
560 | -re ".* 194 05bc 015FD2B9" { set x [expr $x+1]; exp_continue; } | |
561 | -re ".* 194 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
562 | -re ".* 194 5678" { set x [expr $x+1]; exp_continue; } | |
563 | -re ".* 195 05c6 015FE2B9" { set x [expr $x+1]; exp_continue; } | |
564 | -re ".* 195 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
565 | -re ".* 195 5678" { set x [expr $x+1]; exp_continue; } | |
566 | -re ".* 196 05d0 015FF2B9" { set x [expr $x+1]; exp_continue; } | |
567 | -re ".* 196 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
568 | -re ".* 196 5678" { set x [expr $x+1]; exp_continue; } | |
569 | -re ".* 197 05da 015FDAB9" { set x [expr $x+1]; exp_continue; } | |
570 | -re ".* 197 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
571 | -re ".* 197 12345678" { set x [expr $x+1]; exp_continue; } | |
572 | -re ".* 198 05e6 015FEAB9" { set x [expr $x+1]; exp_continue; } | |
573 | -re ".* 198 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
574 | -re ".* 198 12345678" { set x [expr $x+1]; exp_continue; } | |
575 | -re ".* 199 05f2 015FFAB9" { set x [expr $x+1]; exp_continue; } | |
576 | -re ".* 199 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
577 | -re ".* 199 12345678" { set x [expr $x+1]; exp_continue; } | |
578 | -re ".* 200 05fe 015F40B9" { set x [expr $x+1]; exp_continue; } | |
579 | -re ".* 200 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
580 | -re ".* 200 5678" { set x [expr $x+1]; exp_continue; } | |
581 | -re ".* 201 0608 015F48B9" { set x [expr $x+1]; exp_continue; } | |
582 | -re ".* 201 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
583 | -re ".* 201 12345678" { set x [expr $x+1]; exp_continue; } | |
584 | -re ".* 202 " { | |
585 | if [expr $x == 42] then { | |
586 | pass "$testname: l" | |
587 | } else { | |
588 | fail "$testname: l ($x)" | |
589 | } | |
590 | } | |
591 | default { fail "$testname: l ($x)" } | |
592 | } | |
593 | ||
594 | set x 0 | |
595 | expect { | |
596 | -re ".* 203 0614 017F02C9" { set x [expr $x+1]; exp_continue; } | |
597 | -re ".* 203 12345678" { set x [expr $x+1]; exp_continue; } | |
598 | -re ".* 204 061c 017F12C9" { set x [expr $x+1]; exp_continue; } | |
599 | -re ".* 204 12345678" { set x [expr $x+1]; exp_continue; } | |
600 | -re ".* 205 0624 017F82C9" { set x [expr $x+1]; exp_continue; } | |
601 | -re ".* 205 12345678" { set x [expr $x+1]; exp_continue; } | |
602 | -re ".* 206 062c 017FB2C9" { set x [expr $x+1]; exp_continue; } | |
603 | -re ".* 206 12345678" { set x [expr $x+1]; exp_continue; } | |
604 | -re ".* 207 0634 017F92C9" { set x [expr $x+1]; exp_continue; } | |
605 | -re ".* 207 12345678" { set x [expr $x+1]; exp_continue; } | |
606 | -re ".* 208 063c 017FA2C9" { set x [expr $x+1]; exp_continue; } | |
607 | -re ".* 208 12345678" { set x [expr $x+1]; exp_continue; } | |
608 | -re ".* 209 0644 017FC2C9" { set x [expr $x+1]; exp_continue; } | |
609 | -re ".* 209 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
610 | -re ".* 209 5678" { set x [expr $x+1]; exp_continue; } | |
611 | -re ".* 210 064e 017FCAC9" { set x [expr $x+1]; exp_continue; } | |
612 | -re ".* 210 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
613 | -re ".* 210 12345678" { set x [expr $x+1]; exp_continue; } | |
614 | -re ".* 211 065a 017FD2C9" { set x [expr $x+1]; exp_continue; } | |
615 | -re ".* 211 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
616 | -re ".* 211 5678" { set x [expr $x+1]; exp_continue; } | |
617 | -re ".* 212 0664 017FE2C9" { set x [expr $x+1]; exp_continue; } | |
618 | -re ".* 212 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
619 | -re ".* 212 5678" { set x [expr $x+1]; exp_continue; } | |
620 | -re ".* 213 066e 017FF2C9" { set x [expr $x+1]; exp_continue; } | |
621 | -re ".* 213 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
622 | -re ".* 213 5678" { set x [expr $x+1]; exp_continue; } | |
623 | -re ".* 214 0678 017FDAC9" { set x [expr $x+1]; exp_continue; } | |
624 | -re ".* 214 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
625 | -re ".* 214 12345678" { set x [expr $x+1]; exp_continue; } | |
626 | -re ".* 215 0684 017FEAC9" { set x [expr $x+1]; exp_continue; } | |
627 | -re ".* 215 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
628 | -re ".* 215 12345678" { set x [expr $x+1]; exp_continue; } | |
629 | -re ".* 216 0690 017FFAC9" { set x [expr $x+1]; exp_continue; } | |
630 | -re ".* 216 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
631 | -re ".* 216 12345678" { set x [expr $x+1]; exp_continue; } | |
632 | -re ".* 217 069c 017F40C9" { set x [expr $x+1]; exp_continue; } | |
633 | -re ".* 217 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
634 | -re ".* 217 5678" { set x [expr $x+1]; exp_continue; } | |
635 | -re ".* 218 06a6 017F48C9" { set x [expr $x+1]; exp_continue; } | |
636 | -re ".* 218 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
637 | -re ".* 218 12345678" { set x [expr $x+1]; exp_continue; } | |
638 | -re ".* 219 " { | |
639 | if [expr $x == 42] then { | |
640 | pass "$testname: m" | |
641 | } else { | |
642 | fail "$testname: m ($x)" | |
643 | } | |
644 | } | |
645 | default { fail "$testname: m ($x)" } | |
646 | } | |
647 | ||
648 | set x 0 | |
649 | expect { | |
650 | -re ".* 220 06b2 015F02D9" { set x [expr $x+1]; exp_continue; } | |
651 | -re ".* 220 12345678" { set x [expr $x+1]; exp_continue; } | |
652 | -re ".* 221 06ba 015F12D9" { set x [expr $x+1]; exp_continue; } | |
653 | -re ".* 221 12345678" { set x [expr $x+1]; exp_continue; } | |
654 | -re ".* 222 06c2 015F82D9" { set x [expr $x+1]; exp_continue; } | |
655 | -re ".* 222 12345678" { set x [expr $x+1]; exp_continue; } | |
656 | -re ".* 223 06ca 015FB2D9" { set x [expr $x+1]; exp_continue; } | |
657 | -re ".* 223 12345678" { set x [expr $x+1]; exp_continue; } | |
658 | -re ".* 224 06d2 015F92D9" { set x [expr $x+1]; exp_continue; } | |
659 | -re ".* 224 12345678" { set x [expr $x+1]; exp_continue; } | |
660 | -re ".* 225 06da 015FA2D9" { set x [expr $x+1]; exp_continue; } | |
661 | -re ".* 225 12345678" { set x [expr $x+1]; exp_continue; } | |
662 | -re ".* 226 06e2 015FC2D9" { set x [expr $x+1]; exp_continue; } | |
663 | -re ".* 226 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
664 | -re ".* 226 5678" { set x [expr $x+1]; exp_continue; } | |
665 | -re ".* 227 06ec 015FCAD9" { set x [expr $x+1]; exp_continue; } | |
666 | -re ".* 227 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
667 | -re ".* 227 12345678" { set x [expr $x+1]; exp_continue; } | |
668 | -re ".* 228 06f8 015FD2D9" { set x [expr $x+1]; exp_continue; } | |
669 | -re ".* 228 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
670 | -re ".* 228 5678" { set x [expr $x+1]; exp_continue; } | |
671 | -re ".* 229 0702 015FE2D9" { set x [expr $x+1]; exp_continue; } | |
672 | -re ".* 229 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
673 | -re ".* 229 5678" { set x [expr $x+1]; exp_continue; } | |
674 | -re ".* 230 070c 015FF2D9" { set x [expr $x+1]; exp_continue; } | |
675 | -re ".* 230 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
676 | -re ".* 230 5678" { set x [expr $x+1]; exp_continue; } | |
677 | -re ".* 231 0716 015FDAD9" { set x [expr $x+1]; exp_continue; } | |
678 | -re ".* 231 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
679 | -re ".* 231 12345678" { set x [expr $x+1]; exp_continue; } | |
680 | -re ".* 232 0722 015FEAD9" { set x [expr $x+1]; exp_continue; } | |
681 | -re ".* 232 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
682 | -re ".* 232 12345678" { set x [expr $x+1]; exp_continue; } | |
683 | -re ".* 233 072e 015FFAD9" { set x [expr $x+1]; exp_continue; } | |
684 | -re ".* 233 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
685 | -re ".* 233 12345678" { set x [expr $x+1]; exp_continue; } | |
686 | -re ".* 234 073a 015F40D9" { set x [expr $x+1]; exp_continue; } | |
687 | -re ".* 234 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
688 | -re ".* 234 5678" { set x [expr $x+1]; exp_continue; } | |
689 | -re ".* 235 0744 015F48D9" { set x [expr $x+1]; exp_continue; } | |
690 | -re ".* 235 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
691 | -re ".* 235 12345678" { set x [expr $x+1]; exp_continue; } | |
692 | -re ".* 236 " { | |
693 | if [expr $x == 42] then { | |
694 | pass "$testname: n" | |
695 | } else { | |
696 | fail "$testname: n ($x)" | |
697 | } | |
698 | } | |
699 | default { fail "$testname: n ($x)" } | |
700 | } | |
701 | ||
702 | # This was intended to do any cleanup necessary. | |
703 | # It kinda looks like it isn't needed, but just | |
704 | # in case, please keep it in for now. | |
705 | ||
706 | gas_finish | |
707 | ||
708 | } | |
709 | ||
710 | if [istarget h8300*-*-elf] then { | |
711 | # Test advanced h8300sx instructions. | |
712 | do_t02_mova_test | |
713 | } | |
714 |