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