Commit | Line | Data |
---|---|---|
219d1afa | 1 | # Copyright (C) 2012-2018 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 -- t03_add | |
19 | # | |
20 | ||
21 | proc do_t03_add_test {} { | |
22 | set testname "t03_add.s -- h8sx tests" | |
23 | ||
24 | gas_start "t03_add.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 8112" { set x [expr $x+1]; exp_continue; } | |
31 | -re ".* 8 0002 7D108012" { set x [expr $x+1]; exp_continue; } | |
32 | -re ".* 9 0006 01776818" { set x [expr $x+1]; exp_continue; } | |
33 | -re ".* 9 8012" { set x [expr $x+1]; exp_continue; } | |
34 | -re ".* 10 000c 01746C18" { set x [expr $x+1]; exp_continue; } | |
35 | -re ".* 10 8012" { set x [expr $x+1]; exp_continue; } | |
36 | -re ".* 11 0012 01776C18" { set x [expr $x+1]; exp_continue; } | |
37 | -re ".* 11 8012" { set x [expr $x+1]; exp_continue; } | |
38 | -re ".* 12 0018 01756C18" { set x [expr $x+1]; exp_continue; } | |
39 | -re ".* 12 8012" { set x [expr $x+1]; exp_continue; } | |
40 | -re ".* 13 001e 01766C18" { set x [expr $x+1]; exp_continue; } | |
41 | -re ".* 13 8012" { set x [expr $x+1]; exp_continue; } | |
42 | -re ".* 14 0024 01746E18" { set x [expr $x+1]; exp_continue; } | |
43 | -re ".* 14 12348012" { set x [expr $x+1]; exp_continue; } | |
44 | -re ".* 15 002c 78146A28" { set x [expr $x+1]; exp_continue; } | |
45 | -re ".* 15 12345678" { set x [expr $x+1]; exp_continue; } | |
46 | -re ".* 15 8012" { set x [expr $x+1]; exp_continue; } | |
47 | -re ".* 16 0036 01756E28" { set x [expr $x+1]; exp_continue; } | |
48 | -re ".* 16 12348012" { set x [expr $x+1]; exp_continue; } | |
49 | -re ".* 17 003e 01766E28" { set x [expr $x+1]; exp_continue; } | |
50 | -re ".* 17 12348012" { set x [expr $x+1]; exp_continue; } | |
51 | -re ".* 18 0046 01776E28" { set x [expr $x+1]; exp_continue; } | |
52 | -re ".* 18 12348012" { set x [expr $x+1]; exp_continue; } | |
53 | -re ".* 19 004e 78256A28" { set x [expr $x+1]; exp_continue; } | |
54 | -re ".* 19 12345678" { set x [expr $x+1]; exp_continue; } | |
55 | -re ".* 19 8012" { set x [expr $x+1]; exp_continue; } | |
56 | -re ".* 20 0058 78266A28" { set x [expr $x+1]; exp_continue; } | |
57 | -re ".* 20 12345678" { set x [expr $x+1]; exp_continue; } | |
58 | -re ".* 20 8012" { set x [expr $x+1]; exp_continue; } | |
59 | -re ".* 21 0062 78276A28" { set x [expr $x+1]; exp_continue; } | |
60 | -re ".* 21 12345678" { set x [expr $x+1]; exp_continue; } | |
61 | -re ".* 21 8012" { set x [expr $x+1]; exp_continue; } | |
62 | -re ".* 22 006c 7F9A8012" { set x [expr $x+1]; exp_continue; } | |
63 | -re ".* 23 0070 6A181234" { set x [expr $x+1]; exp_continue; } | |
64 | -re ".* 23 8012" { set x [expr $x+1]; exp_continue; } | |
65 | -re ".* 24 0076 6A381234" { set x [expr $x+1]; exp_continue; } | |
66 | -re ".* 24 56788012" { set x [expr $x+1]; exp_continue; } | |
67 | -re ".* 25 " { | |
68 | if [expr $x == 37] then { | |
69 | pass "$testname: add.b #0x12:8, ..." | |
70 | } else { | |
71 | fail "$testname: add.b #0x12:8, ... ($x)" | |
72 | } | |
73 | } | |
74 | default { fail "$testname: add.b #0x12:8, ... ($x)" } | |
75 | } | |
76 | ||
77 | set x 0 | |
78 | expect { | |
79 | -re ".* 26 007e 0831" { set x [expr $x+1]; exp_continue; } | |
80 | -re ".* 27 " { | |
81 | if [expr $x == 1] then { | |
82 | pass "$testname: add.b r3h, r1h" | |
83 | } else { | |
84 | fail "$testname: add.b r3h, r1h ($x)" | |
85 | } | |
86 | } | |
87 | default { fail "$testname: add.b r3h, r1h ($x)" } | |
88 | } | |
89 | ||
90 | set x 0 | |
91 | expect { | |
92 | -re ".* 28 0080 7D100830" { set x [expr $x+1]; exp_continue; } | |
93 | -re ".* 29 0084 01793113" { set x [expr $x+1]; exp_continue; } | |
94 | -re ".* 30 0088 01798113" { set x [expr $x+1]; exp_continue; } | |
95 | -re ".* 31 008c 0179B113" { set x [expr $x+1]; exp_continue; } | |
96 | -re ".* 32 0090 01799113" { set x [expr $x+1]; exp_continue; } | |
97 | -re ".* 33 0094 0179A113" { set x [expr $x+1]; exp_continue; } | |
98 | -re ".* 34 0098 0179C113" { set x [expr $x+1]; exp_continue; } | |
99 | -re ".* 34 1234" { set x [expr $x+1]; exp_continue; } | |
100 | -re ".* 35 009e 0179C913" { set x [expr $x+1]; exp_continue; } | |
101 | -re ".* 35 12345678" { set x [expr $x+1]; exp_continue; } | |
102 | -re ".* 36 00a6 0179D213" { set x [expr $x+1]; exp_continue; } | |
103 | -re ".* 36 1234" { set x [expr $x+1]; exp_continue; } | |
104 | -re ".* 37 00ac 0179E213" { set x [expr $x+1]; exp_continue; } | |
105 | -re ".* 37 1234" { set x [expr $x+1]; exp_continue; } | |
106 | -re ".* 38 00b2 0179F213" { set x [expr $x+1]; exp_continue; } | |
107 | -re ".* 38 1234" { set x [expr $x+1]; exp_continue; } | |
108 | -re ".* 39 00b8 0179DA13" { set x [expr $x+1]; exp_continue; } | |
109 | -re ".* 39 12345678" { set x [expr $x+1]; exp_continue; } | |
110 | -re ".* 40 00c0 0179EA13" { set x [expr $x+1]; exp_continue; } | |
111 | -re ".* 40 12345678" { set x [expr $x+1]; exp_continue; } | |
112 | -re ".* 41 00c8 0179FA13" { set x [expr $x+1]; exp_continue; } | |
113 | -re ".* 41 12345678" { set x [expr $x+1]; exp_continue; } | |
114 | -re ".* 42 00d0 7F120830" { set x [expr $x+1]; exp_continue; } | |
115 | -re ".* 43 00d4 6A181234" { set x [expr $x+1]; exp_continue; } | |
116 | -re ".* 43 0830" { set x [expr $x+1]; exp_continue; } | |
117 | -re ".* 44 00da 6A381234" { set x [expr $x+1]; exp_continue; } | |
118 | -re ".* 44 56780830" { set x [expr $x+1]; exp_continue; } | |
119 | -re ".* 45 " { | |
120 | if [expr $x == 27] then { | |
121 | pass "$testname: add.b r3h, ..." | |
122 | } else { | |
123 | fail "$testname: add.b r3h, ... ($x)" | |
124 | } | |
125 | } | |
126 | default { fail "$testname: add.b r3h, ... ($x)" } | |
127 | } | |
128 | ||
129 | set x 0 | |
130 | expect { | |
131 | -re ".* 46 00e2 7C300801" { set x [expr $x+1]; exp_continue; } | |
132 | -re ".* 47 00e6 017A3311" { set x [expr $x+1]; exp_continue; } | |
133 | -re ".* 48 00ea 017A8311" { set x [expr $x+1]; exp_continue; } | |
134 | -re ".* 49 00ee 017AB311" { set x [expr $x+1]; exp_continue; } | |
135 | -re ".* 50 00f2 017A9311" { set x [expr $x+1]; exp_continue; } | |
136 | -re ".* 51 00f6 017AA311" { set x [expr $x+1]; exp_continue; } | |
137 | -re ".* 52 00fa 017AC111" { set x [expr $x+1]; exp_continue; } | |
138 | -re ".* 52 1234" { set x [expr $x+1]; exp_continue; } | |
139 | -re ".* 53 0100 017AC911" { set x [expr $x+1]; exp_continue; } | |
140 | -re ".* 53 12345678" { set x [expr $x+1]; exp_continue; } | |
141 | -re ".* 54 0108 017AD211" { set x [expr $x+1]; exp_continue; } | |
142 | -re ".* 54 1234" { set x [expr $x+1]; exp_continue; } | |
143 | -re ".* 55 010e 017AE211" { set x [expr $x+1]; exp_continue; } | |
144 | -re ".* 55 1234" { set x [expr $x+1]; exp_continue; } | |
145 | -re ".* 56 0114 017AF211" { set x [expr $x+1]; exp_continue; } | |
146 | -re ".* 56 1234" { set x [expr $x+1]; exp_continue; } | |
147 | -re ".* 57 011a 017ADA11" { set x [expr $x+1]; exp_continue; } | |
148 | -re ".* 57 12345678" { set x [expr $x+1]; exp_continue; } | |
149 | -re ".* 58 0122 017AEA11" { set x [expr $x+1]; exp_continue; } | |
150 | -re ".* 58 12345678" { set x [expr $x+1]; exp_continue; } | |
151 | -re ".* 59 012a 017AFA11" { set x [expr $x+1]; exp_continue; } | |
152 | -re ".* 59 12345678" { set x [expr $x+1]; exp_continue; } | |
153 | -re ".* 60 0132 7E120801" { set x [expr $x+1]; exp_continue; } | |
154 | -re ".* 61 0136 6A101234" { set x [expr $x+1]; exp_continue; } | |
155 | -re ".* 61 0801" { set x [expr $x+1]; exp_continue; } | |
156 | -re ".* 62 013c 6A301234" { set x [expr $x+1]; exp_continue; } | |
157 | -re ".* 62 56780801" { set x [expr $x+1]; exp_continue; } | |
158 | -re ".* 63 " { | |
159 | if [expr $x == 27] then { | |
160 | pass "$testname: add.b ..., r1h" | |
161 | } else { | |
162 | fail "$testname: add.b ..., r1h ($x)" | |
163 | } | |
164 | } | |
165 | default { fail "$testname: add.b ..., r1h ($x)" } | |
166 | } | |
167 | ||
168 | set x 0 | |
169 | expect { | |
170 | -re ".* 64 0144 7C350110" { set x [expr $x+1]; exp_continue; } | |
171 | -re ".* 65 0148 7C353110" { set x [expr $x+1]; exp_continue; } | |
172 | -re ".* 66 014c 7C35B110" { set x [expr $x+1]; exp_continue; } | |
173 | -re ".* 67 0150 7C358110" { set x [expr $x+1]; exp_continue; } | |
174 | -re ".* 68 0154 7C35A110" { set x [expr $x+1]; exp_continue; } | |
175 | -re ".* 69 0158 7C359110" { set x [expr $x+1]; exp_continue; } | |
176 | -re ".* 70 015c 7C35C110" { set x [expr $x+1]; exp_continue; } | |
177 | -re ".* 70 9ABC" { set x [expr $x+1]; exp_continue; } | |
178 | -re ".* 71 0162 7C35C910" { set x [expr $x+1]; exp_continue; } | |
179 | -re ".* 71 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
180 | -re ".* 72 016a 7C35D210" { set x [expr $x+1]; exp_continue; } | |
181 | -re ".* 72 9ABC" { set x [expr $x+1]; exp_continue; } | |
182 | -re ".* 73 0170 7C35E210" { set x [expr $x+1]; exp_continue; } | |
183 | -re ".* 73 9ABC" { set x [expr $x+1]; exp_continue; } | |
184 | -re ".* 74 0176 7C35F210" { set x [expr $x+1]; exp_continue; } | |
185 | -re ".* 74 9ABC" { set x [expr $x+1]; exp_continue; } | |
186 | -re ".* 75 017c 7C35DA10" { set x [expr $x+1]; exp_continue; } | |
187 | -re ".* 75 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
188 | -re ".* 76 0184 7C35EA10" { set x [expr $x+1]; exp_continue; } | |
189 | -re ".* 76 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
190 | -re ".* 77 018c 7C35FA10" { set x [expr $x+1]; exp_continue; } | |
191 | -re ".* 77 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
192 | -re ".* 78 0194 7C354010" { set x [expr $x+1]; exp_continue; } | |
193 | -re ".* 78 9ABC" { set x [expr $x+1]; exp_continue; } | |
194 | -re ".* 79 019a 7C354810" { set x [expr $x+1]; exp_continue; } | |
195 | -re ".* 79 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
196 | -re ".* 80 " { | |
197 | if [expr $x == 26] then { | |
198 | pass "$testname: add.b @er3, ..." | |
199 | } else { | |
200 | fail "$testname: add.b @er3, ... ($x)" | |
201 | } | |
202 | } | |
203 | default { fail "$testname: add.b @er3, ... ($x)" } | |
204 | } | |
205 | ||
206 | set x 0 | |
207 | expect { | |
208 | -re ".* 81 01a2 01776C3C" { set x [expr $x+1]; exp_continue; } | |
209 | -re ".* 81 0110" { set x [expr $x+1]; exp_continue; } | |
210 | -re ".* 82 01a8 01776C3C" { set x [expr $x+1]; exp_continue; } | |
211 | -re ".* 82 3110" { set x [expr $x+1]; exp_continue; } | |
212 | -re ".* 83 01ae 01776C3C" { set x [expr $x+1]; exp_continue; } | |
213 | -re ".* 83 B110" { set x [expr $x+1]; exp_continue; } | |
214 | -re ".* 84 01b4 01776C3C" { set x [expr $x+1]; exp_continue; } | |
215 | -re ".* 84 8110" { set x [expr $x+1]; exp_continue; } | |
216 | -re ".* 85 01ba 01776C3C" { set x [expr $x+1]; exp_continue; } | |
217 | -re ".* 85 A110" { set x [expr $x+1]; exp_continue; } | |
218 | -re ".* 86 01c0 01776C3C" { set x [expr $x+1]; exp_continue; } | |
219 | -re ".* 86 9110" { set x [expr $x+1]; exp_continue; } | |
220 | -re ".* 87 01c6 01776C3C" { set x [expr $x+1]; exp_continue; } | |
221 | -re ".* 87 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
222 | -re ".* 88 01ce 01776C3C" { set x [expr $x+1]; exp_continue; } | |
223 | -re ".* 88 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
224 | -re ".* 88 DEF0" { set x [expr $x+1]; exp_continue; } | |
225 | -re ".* 89 01d8 01776C3C" { set x [expr $x+1]; exp_continue; } | |
226 | -re ".* 89 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
227 | -re ".* 90 01e0 01776C3C" { set x [expr $x+1]; exp_continue; } | |
228 | -re ".* 90 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
229 | -re ".* 91 01e8 01776C3C" { set x [expr $x+1]; exp_continue; } | |
230 | -re ".* 91 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
231 | -re ".* 92 01f0 01776C3C" { set x [expr $x+1]; exp_continue; } | |
232 | -re ".* 92 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
233 | -re ".* 92 DEF0" { set x [expr $x+1]; exp_continue; } | |
234 | -re ".* 93 01fa 01776C3C" { set x [expr $x+1]; exp_continue; } | |
235 | -re ".* 93 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
236 | -re ".* 93 DEF0" { set x [expr $x+1]; exp_continue; } | |
237 | -re ".* 94 0204 01776C3C" { set x [expr $x+1]; exp_continue; } | |
238 | -re ".* 94 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
239 | -re ".* 94 DEF0" { set x [expr $x+1]; exp_continue; } | |
240 | -re ".* 95 020e 01776C3C" { set x [expr $x+1]; exp_continue; } | |
241 | -re ".* 95 40109ABC" { set x [expr $x+1]; exp_continue; } | |
242 | -re ".* 96 0216 01776C3C" { set x [expr $x+1]; exp_continue; } | |
243 | -re ".* 96 48109ABC" { set x [expr $x+1]; exp_continue; } | |
244 | -re ".* 96 DEF0" { set x [expr $x+1]; exp_continue; } | |
245 | -re ".* 97 " { | |
246 | if [expr $x == 37] then { | |
247 | pass "$testname: add.b @-er3, ..." | |
248 | } else { | |
249 | fail "$testname: add.b @-er3, ... ($x)" | |
250 | } | |
251 | } | |
252 | default { fail "$testname: add.b @-er3, ... ($x)" } | |
253 | } | |
254 | ||
255 | set x 0 | |
256 | expect { | |
257 | -re ".* 98 0220 01746C3C" { set x [expr $x+1]; exp_continue; } | |
258 | -re ".* 98 0110" { set x [expr $x+1]; exp_continue; } | |
259 | -re ".* 99 0226 01746C3C" { set x [expr $x+1]; exp_continue; } | |
260 | -re ".* 99 3110" { set x [expr $x+1]; exp_continue; } | |
261 | -re ".* 100 022c 01746C3C" { set x [expr $x+1]; exp_continue; } | |
262 | -re ".* 100 B110" { set x [expr $x+1]; exp_continue; } | |
263 | -re ".* 101 0232 01746C3C" { set x [expr $x+1]; exp_continue; } | |
264 | -re ".* 101 8110" { set x [expr $x+1]; exp_continue; } | |
265 | -re ".* 102 0238 01746C3C" { set x [expr $x+1]; exp_continue; } | |
266 | -re ".* 102 A110" { set x [expr $x+1]; exp_continue; } | |
267 | -re ".* 103 023e 01746C3C" { set x [expr $x+1]; exp_continue; } | |
268 | -re ".* 103 9110" { set x [expr $x+1]; exp_continue; } | |
269 | -re ".* 104 0244 01746C3C" { set x [expr $x+1]; exp_continue; } | |
270 | -re ".* 104 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
271 | -re ".* 105 024c 01746C3C" { set x [expr $x+1]; exp_continue; } | |
272 | -re ".* 105 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
273 | -re ".* 105 DEF0" { set x [expr $x+1]; exp_continue; } | |
274 | -re ".* 106 0256 01746C3C" { set x [expr $x+1]; exp_continue; } | |
275 | -re ".* 106 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
276 | -re ".* 107 025e 01746C3C" { set x [expr $x+1]; exp_continue; } | |
277 | -re ".* 107 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
278 | -re ".* 108 0266 01746C3C" { set x [expr $x+1]; exp_continue; } | |
279 | -re ".* 108 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
280 | -re ".* 109 026e 01746C3C" { set x [expr $x+1]; exp_continue; } | |
281 | -re ".* 109 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
282 | -re ".* 109 DEF0" { set x [expr $x+1]; exp_continue; } | |
283 | -re ".* 110 0278 01746C3C" { set x [expr $x+1]; exp_continue; } | |
284 | -re ".* 110 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
285 | -re ".* 110 DEF0" { set x [expr $x+1]; exp_continue; } | |
286 | -re ".* 111 0282 01746C3C" { set x [expr $x+1]; exp_continue; } | |
287 | -re ".* 111 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
288 | -re ".* 111 DEF0" { set x [expr $x+1]; exp_continue; } | |
289 | -re ".* 112 028c 01746C3C" { set x [expr $x+1]; exp_continue; } | |
290 | -re ".* 112 40109ABC" { set x [expr $x+1]; exp_continue; } | |
291 | -re ".* 113 0294 01746C3C" { set x [expr $x+1]; exp_continue; } | |
292 | -re ".* 113 48109ABC" { set x [expr $x+1]; exp_continue; } | |
293 | -re ".* 113 DEF0" { set x [expr $x+1]; exp_continue; } | |
294 | -re ".* 114 " { | |
295 | if [expr $x == 37] then { | |
296 | pass "$testname: add.b @er3+, ..." | |
297 | } else { | |
298 | fail "$testname: add.b @er3+, ... ($x)" | |
299 | } | |
300 | } | |
301 | default { fail "$testname: add.b @er3+, ... ($x)" } | |
302 | } | |
303 | ||
304 | set x 0 | |
305 | expect { | |
306 | -re ".* 115 029e 01766C3C" { set x [expr $x+1]; exp_continue; } | |
307 | -re ".* 115 0110" { set x [expr $x+1]; exp_continue; } | |
308 | -re ".* 116 02a4 01766C3C" { set x [expr $x+1]; exp_continue; } | |
309 | -re ".* 116 3110" { set x [expr $x+1]; exp_continue; } | |
310 | -re ".* 117 02aa 01766C3C" { set x [expr $x+1]; exp_continue; } | |
311 | -re ".* 117 B110" { set x [expr $x+1]; exp_continue; } | |
312 | -re ".* 118 02b0 01766C3C" { set x [expr $x+1]; exp_continue; } | |
313 | -re ".* 118 8110" { set x [expr $x+1]; exp_continue; } | |
314 | -re ".* 119 02b6 01766C3C" { set x [expr $x+1]; exp_continue; } | |
315 | -re ".* 119 A110" { set x [expr $x+1]; exp_continue; } | |
316 | -re ".* 120 02bc 01766C3C" { set x [expr $x+1]; exp_continue; } | |
317 | -re ".* 120 9110" { set x [expr $x+1]; exp_continue; } | |
318 | -re ".* 121 02c2 01766C3C" { set x [expr $x+1]; exp_continue; } | |
319 | -re ".* 121 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
320 | -re ".* 122 02ca 01766C3C" { set x [expr $x+1]; exp_continue; } | |
321 | -re ".* 122 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
322 | -re ".* 122 DEF0" { set x [expr $x+1]; exp_continue; } | |
323 | -re ".* 123 02d4 01766C3C" { set x [expr $x+1]; exp_continue; } | |
324 | -re ".* 123 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
325 | -re ".* 124 02dc 01766C3C" { set x [expr $x+1]; exp_continue; } | |
326 | -re ".* 124 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
327 | -re ".* 125 02e4 01766C3C" { set x [expr $x+1]; exp_continue; } | |
328 | -re ".* 125 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
329 | -re ".* 126 02ec 01766C3C" { set x [expr $x+1]; exp_continue; } | |
330 | -re ".* 126 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
331 | -re ".* 126 DEF0" { set x [expr $x+1]; exp_continue; } | |
332 | -re ".* 127 02f6 01766C3C" { set x [expr $x+1]; exp_continue; } | |
333 | -re ".* 127 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
334 | -re ".* 127 DEF0" { set x [expr $x+1]; exp_continue; } | |
335 | -re ".* 128 0300 01766C3C" { set x [expr $x+1]; exp_continue; } | |
336 | -re ".* 128 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
337 | -re ".* 128 DEF0" { set x [expr $x+1]; exp_continue; } | |
338 | -re ".* 129 030a 01766C3C" { set x [expr $x+1]; exp_continue; } | |
339 | -re ".* 129 40109ABC" { set x [expr $x+1]; exp_continue; } | |
340 | -re ".* 130 0312 01766C3C" { set x [expr $x+1]; exp_continue; } | |
341 | -re ".* 130 48109ABC" { set x [expr $x+1]; exp_continue; } | |
342 | -re ".* 130 DEF0" { set x [expr $x+1]; exp_continue; } | |
343 | -re ".* 131 " { | |
344 | if [expr $x == 37] then { | |
345 | pass "$testname: add.b @er3-, ..." | |
346 | } else { | |
347 | fail "$testname: add.b @er3-, ... ($x)" | |
348 | } | |
349 | } | |
350 | default { fail "$testname: add.b @er3-, ... ($x)" } | |
351 | } | |
352 | ||
353 | set x 0 | |
354 | expect { | |
355 | -re ".* 132 031c 01756C3C" { set x [expr $x+1]; exp_continue; } | |
356 | -re ".* 132 0110" { set x [expr $x+1]; exp_continue; } | |
357 | -re ".* 133 0322 01756C3C" { set x [expr $x+1]; exp_continue; } | |
358 | -re ".* 133 3110" { set x [expr $x+1]; exp_continue; } | |
359 | -re ".* 134 0328 01756C3C" { set x [expr $x+1]; exp_continue; } | |
360 | -re ".* 134 B110" { set x [expr $x+1]; exp_continue; } | |
361 | -re ".* 135 032e 01756C3C" { set x [expr $x+1]; exp_continue; } | |
362 | -re ".* 135 8110" { set x [expr $x+1]; exp_continue; } | |
363 | -re ".* 136 0334 01756C3C" { set x [expr $x+1]; exp_continue; } | |
364 | -re ".* 136 A110" { set x [expr $x+1]; exp_continue; } | |
365 | -re ".* 137 033a 01756C3C" { set x [expr $x+1]; exp_continue; } | |
366 | -re ".* 137 9110" { set x [expr $x+1]; exp_continue; } | |
367 | -re ".* 138 0340 01756C3C" { set x [expr $x+1]; exp_continue; } | |
368 | -re ".* 138 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
369 | -re ".* 139 0348 01756C3C" { set x [expr $x+1]; exp_continue; } | |
370 | -re ".* 139 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
371 | -re ".* 139 DEF0" { set x [expr $x+1]; exp_continue; } | |
372 | -re ".* 140 0352 01756C3C" { set x [expr $x+1]; exp_continue; } | |
373 | -re ".* 140 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
374 | -re ".* 141 035a 01756C3C" { set x [expr $x+1]; exp_continue; } | |
375 | -re ".* 141 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
376 | -re ".* 142 0362 01756C3C" { set x [expr $x+1]; exp_continue; } | |
377 | -re ".* 142 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
378 | -re ".* 143 036a 01756C3C" { set x [expr $x+1]; exp_continue; } | |
379 | -re ".* 143 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
380 | -re ".* 143 DEF0" { set x [expr $x+1]; exp_continue; } | |
381 | -re ".* 144 0374 01756C3C" { set x [expr $x+1]; exp_continue; } | |
382 | -re ".* 144 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
383 | -re ".* 144 DEF0" { set x [expr $x+1]; exp_continue; } | |
384 | -re ".* 145 037e 01756C3C" { set x [expr $x+1]; exp_continue; } | |
385 | -re ".* 145 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
386 | -re ".* 145 DEF0" { set x [expr $x+1]; exp_continue; } | |
387 | -re ".* 146 0388 01756C3C" { set x [expr $x+1]; exp_continue; } | |
388 | -re ".* 146 40109ABC" { set x [expr $x+1]; exp_continue; } | |
389 | -re ".* 147 0390 01756C3C" { set x [expr $x+1]; exp_continue; } | |
390 | -re ".* 147 48109ABC" { set x [expr $x+1]; exp_continue; } | |
391 | -re ".* 147 DEF0" { set x [expr $x+1]; exp_continue; } | |
392 | -re ".* 148 " { | |
393 | if [expr $x == 37] then { | |
394 | pass "$testname: add.b @+er3, ..." | |
395 | } else { | |
396 | fail "$testname: add.b @+er3, ... ($x)" | |
397 | } | |
398 | } | |
399 | default { fail "$testname: add.b @+er3, ... ($x)" } | |
400 | } | |
401 | ||
402 | set x 0 | |
403 | expect { | |
404 | -re ".* 149 039a 01746E3C" { set x [expr $x+1]; exp_continue; } | |
405 | -re ".* 149 12340110" { set x [expr $x+1]; exp_continue; } | |
406 | -re ".* 150 03a2 01746E3C" { set x [expr $x+1]; exp_continue; } | |
407 | -re ".* 150 12343110" { set x [expr $x+1]; exp_continue; } | |
408 | -re ".* 151 03aa 01746E3C" { set x [expr $x+1]; exp_continue; } | |
409 | -re ".* 151 1234B110" { set x [expr $x+1]; exp_continue; } | |
410 | -re ".* 152 03b2 01746E3C" { set x [expr $x+1]; exp_continue; } | |
411 | -re ".* 152 12348110" { set x [expr $x+1]; exp_continue; } | |
412 | -re ".* 153 03ba 01746E3C" { set x [expr $x+1]; exp_continue; } | |
413 | -re ".* 153 1234A110" { set x [expr $x+1]; exp_continue; } | |
414 | -re ".* 154 03c2 01746E3C" { set x [expr $x+1]; exp_continue; } | |
415 | -re ".* 154 12349110" { set x [expr $x+1]; exp_continue; } | |
416 | -re ".* 155 03ca 01746E3C" { set x [expr $x+1]; exp_continue; } | |
417 | -re ".* 155 1234C110" { set x [expr $x+1]; exp_continue; } | |
418 | -re ".* 155 9ABC" { set x [expr $x+1]; exp_continue; } | |
419 | -re ".* 156 03d4 01746E3C" { set x [expr $x+1]; exp_continue; } | |
420 | -re ".* 156 1234C910" { set x [expr $x+1]; exp_continue; } | |
421 | -re ".* 156 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
422 | -re ".* 157 03e0 01746E3C" { set x [expr $x+1]; exp_continue; } | |
423 | -re ".* 157 1234D210" { set x [expr $x+1]; exp_continue; } | |
424 | -re ".* 157 9ABC" { set x [expr $x+1]; exp_continue; } | |
425 | -re ".* 158 03ea 01746E3C" { set x [expr $x+1]; exp_continue; } | |
426 | -re ".* 158 1234E210" { set x [expr $x+1]; exp_continue; } | |
427 | -re ".* 158 9ABC" { set x [expr $x+1]; exp_continue; } | |
428 | -re ".* 159 03f4 01746E3C" { set x [expr $x+1]; exp_continue; } | |
429 | -re ".* 159 1234F210" { set x [expr $x+1]; exp_continue; } | |
430 | -re ".* 159 9ABC" { set x [expr $x+1]; exp_continue; } | |
431 | -re ".* 160 03fe 01746E3C" { set x [expr $x+1]; exp_continue; } | |
432 | -re ".* 160 1234DA10" { set x [expr $x+1]; exp_continue; } | |
433 | -re ".* 160 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
434 | -re ".* 161 040a 01746E3C" { set x [expr $x+1]; exp_continue; } | |
435 | -re ".* 161 1234EA10" { set x [expr $x+1]; exp_continue; } | |
436 | -re ".* 161 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
437 | -re ".* 162 0416 01746E3C" { set x [expr $x+1]; exp_continue; } | |
438 | -re ".* 162 1234FA10" { set x [expr $x+1]; exp_continue; } | |
439 | -re ".* 162 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
440 | -re ".* 163 0422 01746E3C" { set x [expr $x+1]; exp_continue; } | |
441 | -re ".* 163 12344010" { set x [expr $x+1]; exp_continue; } | |
442 | -re ".* 163 9ABC" { set x [expr $x+1]; exp_continue; } | |
443 | -re ".* 164 042c 01746E3C" { set x [expr $x+1]; exp_continue; } | |
444 | -re ".* 164 12344810" { set x [expr $x+1]; exp_continue; } | |
445 | -re ".* 164 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
446 | -re ".* 165 " { | |
447 | if [expr $x == 42] then { | |
448 | pass "$testname: add.b @(0x1234:16,er3), ..." | |
449 | } else { | |
450 | fail "$testname: add.b @(0x1234:16,er3), ... ($x)" | |
451 | } | |
452 | } | |
453 | default { fail "$testname: add.b @(0x1234:16,er3), ... ($x)" } | |
454 | } | |
455 | ||
456 | set x 0 | |
457 | expect { | |
458 | -re ".* 166 0438 78346A2C" { set x [expr $x+1]; exp_continue; } | |
459 | -re ".* 166 12345678" { set x [expr $x+1]; exp_continue; } | |
460 | -re ".* 166 0110" { set x [expr $x+1]; exp_continue; } | |
461 | -re ".* 167 0442 78346A2C" { set x [expr $x+1]; exp_continue; } | |
462 | -re ".* 167 12345678" { set x [expr $x+1]; exp_continue; } | |
463 | -re ".* 167 3110" { set x [expr $x+1]; exp_continue; } | |
464 | -re ".* 168 044c 78346A2C" { set x [expr $x+1]; exp_continue; } | |
465 | -re ".* 168 12345678" { set x [expr $x+1]; exp_continue; } | |
466 | -re ".* 168 B110" { set x [expr $x+1]; exp_continue; } | |
467 | -re ".* 169 0456 78346A2C" { set x [expr $x+1]; exp_continue; } | |
468 | -re ".* 169 12345678" { set x [expr $x+1]; exp_continue; } | |
469 | -re ".* 169 8110" { set x [expr $x+1]; exp_continue; } | |
470 | -re ".* 170 0460 78346A2C" { set x [expr $x+1]; exp_continue; } | |
471 | -re ".* 170 12345678" { set x [expr $x+1]; exp_continue; } | |
472 | -re ".* 170 A110" { set x [expr $x+1]; exp_continue; } | |
473 | -re ".* 171 046a 78346A2C" { set x [expr $x+1]; exp_continue; } | |
474 | -re ".* 171 12345678" { set x [expr $x+1]; exp_continue; } | |
475 | -re ".* 171 9110" { set x [expr $x+1]; exp_continue; } | |
476 | -re ".* 172 0474 78346A2C" { set x [expr $x+1]; exp_continue; } | |
477 | -re ".* 172 12345678" { set x [expr $x+1]; exp_continue; } | |
478 | -re ".* 172 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
479 | -re ".* 173 0480 78346A2C" { set x [expr $x+1]; exp_continue; } | |
480 | -re ".* 173 12345678" { set x [expr $x+1]; exp_continue; } | |
481 | -re ".* 173 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
482 | -re ".* 173 DEF0" { set x [expr $x+1]; exp_continue; } | |
483 | -re ".* 174 048e 78346A2C" { set x [expr $x+1]; exp_continue; } | |
484 | -re ".* 174 12345678" { set x [expr $x+1]; exp_continue; } | |
485 | -re ".* 174 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
486 | -re ".* 175 049a 78346A2C" { set x [expr $x+1]; exp_continue; } | |
487 | -re ".* 175 12345678" { set x [expr $x+1]; exp_continue; } | |
488 | -re ".* 175 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
489 | -re ".* 176 04a6 78346A2C" { set x [expr $x+1]; exp_continue; } | |
490 | -re ".* 176 12345678" { set x [expr $x+1]; exp_continue; } | |
491 | -re ".* 176 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
492 | -re ".* 177 04b2 78346A2C" { set x [expr $x+1]; exp_continue; } | |
493 | -re ".* 177 12345678" { set x [expr $x+1]; exp_continue; } | |
494 | -re ".* 177 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
495 | -re ".* 177 DEF0" { set x [expr $x+1]; exp_continue; } | |
496 | -re ".* 178 04c0 78346A2C" { set x [expr $x+1]; exp_continue; } | |
497 | -re ".* 178 12345678" { set x [expr $x+1]; exp_continue; } | |
498 | -re ".* 178 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
499 | -re ".* 178 DEF0" { set x [expr $x+1]; exp_continue; } | |
500 | -re ".* 179 04ce 78346A2C" { set x [expr $x+1]; exp_continue; } | |
501 | -re ".* 179 12345678" { set x [expr $x+1]; exp_continue; } | |
502 | -re ".* 179 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
503 | -re ".* 179 DEF0" { set x [expr $x+1]; exp_continue; } | |
504 | -re ".* 180 04dc 78346A2C" { set x [expr $x+1]; exp_continue; } | |
505 | -re ".* 180 12345678" { set x [expr $x+1]; exp_continue; } | |
506 | -re ".* 180 40109ABC" { set x [expr $x+1]; exp_continue; } | |
507 | -re ".* 181 04e8 78346A2C" { set x [expr $x+1]; exp_continue; } | |
508 | -re ".* 181 12345678" { set x [expr $x+1]; exp_continue; } | |
509 | -re ".* 181 48109ABC" { set x [expr $x+1]; exp_continue; } | |
510 | -re ".* 181 DEF0" { set x [expr $x+1]; exp_continue; } | |
511 | -re ".* 182 " { | |
512 | if [expr $x == 53] then { | |
513 | pass "$testname: add.b @(0x12345678:32,er3), ..." | |
514 | } else { | |
515 | fail "$testname: add.b @(0x12345678:32,er3), ... ($x)" | |
516 | } | |
517 | } | |
518 | default { fail "$testname: add.b @(0x12345678:32,er3), ... ($x)" } | |
519 | } | |
520 | ||
521 | set x 0 | |
522 | expect { | |
523 | -re ".* 183 04f6 01756E3C" { set x [expr $x+1]; exp_continue; } | |
524 | -re ".* 183 12340110" { set x [expr $x+1]; exp_continue; } | |
525 | -re ".* 184 04fe 01756E3C" { set x [expr $x+1]; exp_continue; } | |
526 | -re ".* 184 12343110" { set x [expr $x+1]; exp_continue; } | |
527 | -re ".* 185 0506 01756E3C" { set x [expr $x+1]; exp_continue; } | |
528 | -re ".* 185 1234B110" { set x [expr $x+1]; exp_continue; } | |
529 | -re ".* 186 050e 01756E3C" { set x [expr $x+1]; exp_continue; } | |
530 | -re ".* 186 12348110" { set x [expr $x+1]; exp_continue; } | |
531 | -re ".* 187 0516 01756E3C" { set x [expr $x+1]; exp_continue; } | |
532 | -re ".* 187 1234A110" { set x [expr $x+1]; exp_continue; } | |
533 | -re ".* 188 051e 01756E3C" { set x [expr $x+1]; exp_continue; } | |
534 | -re ".* 188 12349110" { set x [expr $x+1]; exp_continue; } | |
535 | -re ".* 189 0526 01756E3C" { set x [expr $x+1]; exp_continue; } | |
536 | -re ".* 189 1234C110" { set x [expr $x+1]; exp_continue; } | |
537 | -re ".* 189 9ABC" { set x [expr $x+1]; exp_continue; } | |
538 | -re ".* 190 0530 01756E3C" { set x [expr $x+1]; exp_continue; } | |
539 | -re ".* 190 1234C910" { set x [expr $x+1]; exp_continue; } | |
540 | -re ".* 190 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
541 | -re ".* 191 053c 01756E3C" { set x [expr $x+1]; exp_continue; } | |
542 | -re ".* 191 1234D210" { set x [expr $x+1]; exp_continue; } | |
543 | -re ".* 191 9ABC" { set x [expr $x+1]; exp_continue; } | |
544 | -re ".* 192 0546 01756E3C" { set x [expr $x+1]; exp_continue; } | |
545 | -re ".* 192 1234E210" { set x [expr $x+1]; exp_continue; } | |
546 | -re ".* 192 9ABC" { set x [expr $x+1]; exp_continue; } | |
547 | -re ".* 193 0550 01756E3C" { set x [expr $x+1]; exp_continue; } | |
548 | -re ".* 193 1234F210" { set x [expr $x+1]; exp_continue; } | |
549 | -re ".* 193 9ABC" { set x [expr $x+1]; exp_continue; } | |
550 | -re ".* 194 055a 01756E3C" { set x [expr $x+1]; exp_continue; } | |
551 | -re ".* 194 1234DA10" { set x [expr $x+1]; exp_continue; } | |
552 | -re ".* 194 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
553 | -re ".* 195 0566 01756E3C" { set x [expr $x+1]; exp_continue; } | |
554 | -re ".* 195 1234EA10" { set x [expr $x+1]; exp_continue; } | |
555 | -re ".* 195 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
556 | -re ".* 196 0572 01756E3C" { set x [expr $x+1]; exp_continue; } | |
557 | -re ".* 196 1234FA10" { set x [expr $x+1]; exp_continue; } | |
558 | -re ".* 196 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
559 | -re ".* 197 057e 01756E3C" { set x [expr $x+1]; exp_continue; } | |
560 | -re ".* 197 12344010" { set x [expr $x+1]; exp_continue; } | |
561 | -re ".* 197 9ABC" { set x [expr $x+1]; exp_continue; } | |
562 | -re ".* 198 0588 01756E3C" { set x [expr $x+1]; exp_continue; } | |
563 | -re ".* 198 12344810" { set x [expr $x+1]; exp_continue; } | |
564 | -re ".* 198 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
565 | -re ".* 199 " { | |
566 | if [expr $x == 42] then { | |
567 | pass "$testname: add.b @(0x1234:16,r3l.b), ..." | |
568 | } else { | |
569 | fail "$testname: add.b @(0x1234:16,r3l.b), ... ($x)" | |
570 | } | |
571 | } | |
572 | default { fail "$testname: add.b @(0x1234:16,r3l.b), ... ($x)" } | |
573 | } | |
574 | ||
575 | set x 0 | |
576 | expect { | |
577 | -re ".* 200 0594 01766E3C" { set x [expr $x+1]; exp_continue; } | |
578 | -re ".* 200 12340110" { set x [expr $x+1]; exp_continue; } | |
579 | -re ".* 201 059c 01766E3C" { set x [expr $x+1]; exp_continue; } | |
580 | -re ".* 201 12343110" { set x [expr $x+1]; exp_continue; } | |
581 | -re ".* 202 05a4 01766E3C" { set x [expr $x+1]; exp_continue; } | |
582 | -re ".* 202 1234B110" { set x [expr $x+1]; exp_continue; } | |
583 | -re ".* 203 05ac 01766E3C" { set x [expr $x+1]; exp_continue; } | |
584 | -re ".* 203 12348110" { set x [expr $x+1]; exp_continue; } | |
585 | -re ".* 204 05b4 01766E3C" { set x [expr $x+1]; exp_continue; } | |
586 | -re ".* 204 1234A110" { set x [expr $x+1]; exp_continue; } | |
587 | -re ".* 205 05bc 01766E3C" { set x [expr $x+1]; exp_continue; } | |
588 | -re ".* 205 12349110" { set x [expr $x+1]; exp_continue; } | |
589 | -re ".* 206 05c4 01766E3C" { set x [expr $x+1]; exp_continue; } | |
590 | -re ".* 206 1234C110" { set x [expr $x+1]; exp_continue; } | |
591 | -re ".* 206 9ABC" { set x [expr $x+1]; exp_continue; } | |
592 | -re ".* 207 05ce 01766E3C" { set x [expr $x+1]; exp_continue; } | |
593 | -re ".* 207 1234C910" { set x [expr $x+1]; exp_continue; } | |
594 | -re ".* 207 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
595 | -re ".* 208 05da 01766E3C" { set x [expr $x+1]; exp_continue; } | |
596 | -re ".* 208 1234D210" { set x [expr $x+1]; exp_continue; } | |
597 | -re ".* 208 9ABC" { set x [expr $x+1]; exp_continue; } | |
598 | -re ".* 209 05e4 01766E3C" { set x [expr $x+1]; exp_continue; } | |
599 | -re ".* 209 1234E210" { set x [expr $x+1]; exp_continue; } | |
600 | -re ".* 209 9ABC" { set x [expr $x+1]; exp_continue; } | |
601 | -re ".* 210 05ee 01766E3C" { set x [expr $x+1]; exp_continue; } | |
602 | -re ".* 210 1234F210" { set x [expr $x+1]; exp_continue; } | |
603 | -re ".* 210 9ABC" { set x [expr $x+1]; exp_continue; } | |
604 | -re ".* 211 05f8 01766E3C" { set x [expr $x+1]; exp_continue; } | |
605 | -re ".* 211 1234DA10" { set x [expr $x+1]; exp_continue; } | |
606 | -re ".* 211 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
607 | -re ".* 212 0604 01766E3C" { set x [expr $x+1]; exp_continue; } | |
608 | -re ".* 212 1234EA10" { set x [expr $x+1]; exp_continue; } | |
609 | -re ".* 212 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
610 | -re ".* 213 0610 01766E3C" { set x [expr $x+1]; exp_continue; } | |
611 | -re ".* 213 1234FA10" { set x [expr $x+1]; exp_continue; } | |
612 | -re ".* 213 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
613 | -re ".* 214 061c 01766E3C" { set x [expr $x+1]; exp_continue; } | |
614 | -re ".* 214 12344010" { set x [expr $x+1]; exp_continue; } | |
615 | -re ".* 214 9ABC" { set x [expr $x+1]; exp_continue; } | |
616 | -re ".* 215 0626 01766E3C" { set x [expr $x+1]; exp_continue; } | |
617 | -re ".* 215 12344810" { set x [expr $x+1]; exp_continue; } | |
618 | -re ".* 215 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
619 | -re ".* 216 " { | |
620 | if [expr $x == 42] then { | |
621 | pass "$testname: add.b @(0x1234:16,r3.w), ..." | |
622 | } else { | |
623 | fail "$testname: add.b @(0x1234:16,r3.w), ... ($x)" | |
624 | } | |
625 | } | |
626 | default { fail "$testname: add.b @(0x1234:16,r3.w), ... ($x)" } | |
627 | } | |
628 | ||
629 | set x 0 | |
630 | expect { | |
631 | -re ".* 217 0632 01776E3C" { set x [expr $x+1]; exp_continue; } | |
632 | -re ".* 217 12340110" { set x [expr $x+1]; exp_continue; } | |
633 | -re ".* 218 063a 01776E3C" { set x [expr $x+1]; exp_continue; } | |
634 | -re ".* 218 12343110" { set x [expr $x+1]; exp_continue; } | |
635 | -re ".* 219 0642 01776E3C" { set x [expr $x+1]; exp_continue; } | |
636 | -re ".* 219 1234B110" { set x [expr $x+1]; exp_continue; } | |
637 | -re ".* 220 064a 01776E3C" { set x [expr $x+1]; exp_continue; } | |
638 | -re ".* 220 12348110" { set x [expr $x+1]; exp_continue; } | |
639 | -re ".* 221 0652 01776E3C" { set x [expr $x+1]; exp_continue; } | |
640 | -re ".* 221 1234A110" { set x [expr $x+1]; exp_continue; } | |
641 | -re ".* 222 065a 01776E3C" { set x [expr $x+1]; exp_continue; } | |
642 | -re ".* 222 12349110" { set x [expr $x+1]; exp_continue; } | |
643 | -re ".* 223 0662 01776E3C" { set x [expr $x+1]; exp_continue; } | |
644 | -re ".* 223 1234C110" { set x [expr $x+1]; exp_continue; } | |
645 | -re ".* 223 9ABC" { set x [expr $x+1]; exp_continue; } | |
646 | -re ".* 224 066c 01776E3C" { set x [expr $x+1]; exp_continue; } | |
647 | -re ".* 224 1234C910" { set x [expr $x+1]; exp_continue; } | |
648 | -re ".* 224 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
649 | -re ".* 225 0678 01776E3C" { set x [expr $x+1]; exp_continue; } | |
650 | -re ".* 225 1234D210" { set x [expr $x+1]; exp_continue; } | |
651 | -re ".* 225 9ABC" { set x [expr $x+1]; exp_continue; } | |
652 | -re ".* 226 0682 01776E3C" { set x [expr $x+1]; exp_continue; } | |
653 | -re ".* 226 1234E210" { set x [expr $x+1]; exp_continue; } | |
654 | -re ".* 226 9ABC" { set x [expr $x+1]; exp_continue; } | |
655 | -re ".* 227 068c 01776E3C" { set x [expr $x+1]; exp_continue; } | |
656 | -re ".* 227 1234F210" { set x [expr $x+1]; exp_continue; } | |
657 | -re ".* 227 9ABC" { set x [expr $x+1]; exp_continue; } | |
658 | -re ".* 228 0696 01776E3C" { set x [expr $x+1]; exp_continue; } | |
659 | -re ".* 228 1234DA10" { set x [expr $x+1]; exp_continue; } | |
660 | -re ".* 228 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
661 | -re ".* 229 06a2 01776E3C" { set x [expr $x+1]; exp_continue; } | |
662 | -re ".* 229 1234EA10" { set x [expr $x+1]; exp_continue; } | |
663 | -re ".* 229 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
664 | -re ".* 230 06ae 01776E3C" { set x [expr $x+1]; exp_continue; } | |
665 | -re ".* 230 1234FA10" { set x [expr $x+1]; exp_continue; } | |
666 | -re ".* 230 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
667 | -re ".* 231 06ba 01776E3C" { set x [expr $x+1]; exp_continue; } | |
668 | -re ".* 231 12344010" { set x [expr $x+1]; exp_continue; } | |
669 | -re ".* 231 9ABC" { set x [expr $x+1]; exp_continue; } | |
670 | -re ".* 232 06c4 01776E3C" { set x [expr $x+1]; exp_continue; } | |
671 | -re ".* 232 12344810" { set x [expr $x+1]; exp_continue; } | |
672 | -re ".* 232 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
673 | -re ".* 233 " { | |
674 | if [expr $x == 42] then { | |
675 | pass "$testname: add.b @(0x1234:16,er3.l), ..." | |
676 | } else { | |
677 | fail "$testname: add.b @(0x1234:16,er3.l), ... ($x)" | |
678 | } | |
679 | } | |
680 | default { fail "$testname: add.b @(0x1234:16,er3.l), ... ($x)" } | |
681 | } | |
682 | ||
683 | set x 0 | |
684 | expect { | |
685 | -re ".* 234 06d0 78356A2C" { set x [expr $x+1]; exp_continue; } | |
686 | -re ".* 234 12345678" { set x [expr $x+1]; exp_continue; } | |
687 | -re ".* 234 0110" { set x [expr $x+1]; exp_continue; } | |
688 | -re ".* 235 06da 78356A2C" { set x [expr $x+1]; exp_continue; } | |
689 | -re ".* 235 12345678" { set x [expr $x+1]; exp_continue; } | |
690 | -re ".* 235 3110" { set x [expr $x+1]; exp_continue; } | |
691 | -re ".* 236 06e4 78356A2C" { set x [expr $x+1]; exp_continue; } | |
692 | -re ".* 236 12345678" { set x [expr $x+1]; exp_continue; } | |
693 | -re ".* 236 B110" { set x [expr $x+1]; exp_continue; } | |
694 | -re ".* 237 06ee 78356A2C" { set x [expr $x+1]; exp_continue; } | |
695 | -re ".* 237 12345678" { set x [expr $x+1]; exp_continue; } | |
696 | -re ".* 237 8110" { set x [expr $x+1]; exp_continue; } | |
697 | -re ".* 238 06f8 78356A2C" { set x [expr $x+1]; exp_continue; } | |
698 | -re ".* 238 12345678" { set x [expr $x+1]; exp_continue; } | |
699 | -re ".* 238 A110" { set x [expr $x+1]; exp_continue; } | |
700 | -re ".* 239 0702 78356A2C" { set x [expr $x+1]; exp_continue; } | |
701 | -re ".* 239 12345678" { set x [expr $x+1]; exp_continue; } | |
702 | -re ".* 239 9110" { set x [expr $x+1]; exp_continue; } | |
703 | -re ".* 240 070c 78356A2C" { set x [expr $x+1]; exp_continue; } | |
704 | -re ".* 240 12345678" { set x [expr $x+1]; exp_continue; } | |
705 | -re ".* 240 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
706 | -re ".* 241 0718 78356A2C" { set x [expr $x+1]; exp_continue; } | |
707 | -re ".* 241 12345678" { set x [expr $x+1]; exp_continue; } | |
708 | -re ".* 241 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
709 | -re ".* 241 DEF0" { set x [expr $x+1]; exp_continue; } | |
710 | -re ".* 242 0726 78356A2C" { set x [expr $x+1]; exp_continue; } | |
711 | -re ".* 242 12345678" { set x [expr $x+1]; exp_continue; } | |
712 | -re ".* 242 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
713 | -re ".* 243 0732 78356A2C" { set x [expr $x+1]; exp_continue; } | |
714 | -re ".* 243 12345678" { set x [expr $x+1]; exp_continue; } | |
715 | -re ".* 243 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
716 | -re ".* 244 073e 78356A2C" { set x [expr $x+1]; exp_continue; } | |
717 | -re ".* 244 12345678" { set x [expr $x+1]; exp_continue; } | |
718 | -re ".* 244 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
719 | -re ".* 245 074a 78356A2C" { set x [expr $x+1]; exp_continue; } | |
720 | -re ".* 245 12345678" { set x [expr $x+1]; exp_continue; } | |
721 | -re ".* 245 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
722 | -re ".* 245 DEF0" { set x [expr $x+1]; exp_continue; } | |
723 | -re ".* 246 0758 78356A2C" { set x [expr $x+1]; exp_continue; } | |
724 | -re ".* 246 12345678" { set x [expr $x+1]; exp_continue; } | |
725 | -re ".* 246 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
726 | -re ".* 246 DEF0" { set x [expr $x+1]; exp_continue; } | |
727 | -re ".* 247 0766 78356A2C" { set x [expr $x+1]; exp_continue; } | |
728 | -re ".* 247 12345678" { set x [expr $x+1]; exp_continue; } | |
729 | -re ".* 247 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
730 | -re ".* 247 DEF0" { set x [expr $x+1]; exp_continue; } | |
731 | -re ".* 248 0774 78356A2C" { set x [expr $x+1]; exp_continue; } | |
732 | -re ".* 248 12345678" { set x [expr $x+1]; exp_continue; } | |
733 | -re ".* 248 40109ABC" { set x [expr $x+1]; exp_continue; } | |
734 | -re ".* 249 0780 78356A2C" { set x [expr $x+1]; exp_continue; } | |
735 | -re ".* 249 12345678" { set x [expr $x+1]; exp_continue; } | |
736 | -re ".* 249 48109ABC" { set x [expr $x+1]; exp_continue; } | |
737 | -re ".* 249 DEF0" { set x [expr $x+1]; exp_continue; } | |
738 | -re ".* 250 " { | |
739 | if [expr $x == 53] then { | |
740 | pass "$testname: add.b @(0x12345678:32,r3l.b), ..." | |
741 | } else { | |
742 | fail "$testname: add.b @(0x12345678:32,r3l.b), ... ($x)" | |
743 | } | |
744 | } | |
745 | default { fail "$testname: add.b @(0x12345678:32,r3l.b), ... ($x)" } | |
746 | } | |
747 | ||
748 | set x 0 | |
749 | expect { | |
750 | -re ".* 251 078e 78366A2C" { set x [expr $x+1]; exp_continue; } | |
751 | -re ".* 251 12345678" { set x [expr $x+1]; exp_continue; } | |
752 | -re ".* 251 0110" { set x [expr $x+1]; exp_continue; } | |
753 | -re ".* 252 0798 78366A2C" { set x [expr $x+1]; exp_continue; } | |
754 | -re ".* 252 12345678" { set x [expr $x+1]; exp_continue; } | |
755 | -re ".* 252 3110" { set x [expr $x+1]; exp_continue; } | |
756 | -re ".* 253 07a2 78366A2C" { set x [expr $x+1]; exp_continue; } | |
757 | -re ".* 253 12345678" { set x [expr $x+1]; exp_continue; } | |
758 | -re ".* 253 B110" { set x [expr $x+1]; exp_continue; } | |
759 | -re ".* 254 07ac 78366A2C" { set x [expr $x+1]; exp_continue; } | |
760 | -re ".* 254 12345678" { set x [expr $x+1]; exp_continue; } | |
761 | -re ".* 254 8110" { set x [expr $x+1]; exp_continue; } | |
762 | -re ".* 255 07b6 78366A2C" { set x [expr $x+1]; exp_continue; } | |
763 | -re ".* 255 12345678" { set x [expr $x+1]; exp_continue; } | |
764 | -re ".* 255 A110" { set x [expr $x+1]; exp_continue; } | |
765 | -re ".* 256 07c0 78366A2C" { set x [expr $x+1]; exp_continue; } | |
766 | -re ".* 256 12345678" { set x [expr $x+1]; exp_continue; } | |
767 | -re ".* 256 9110" { set x [expr $x+1]; exp_continue; } | |
768 | -re ".* 257 07ca 78366A2C" { set x [expr $x+1]; exp_continue; } | |
769 | -re ".* 257 12345678" { set x [expr $x+1]; exp_continue; } | |
770 | -re ".* 257 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
771 | -re ".* 258 07d6 78366A2C" { set x [expr $x+1]; exp_continue; } | |
772 | -re ".* 258 12345678" { set x [expr $x+1]; exp_continue; } | |
773 | -re ".* 258 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
774 | -re ".* 258 DEF0" { set x [expr $x+1]; exp_continue; } | |
775 | -re ".* 259 07e4 78366A2C" { set x [expr $x+1]; exp_continue; } | |
776 | -re ".* 259 12345678" { set x [expr $x+1]; exp_continue; } | |
777 | -re ".* 259 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
778 | -re ".* 260 07f0 78366A2C" { set x [expr $x+1]; exp_continue; } | |
779 | -re ".* 260 12345678" { set x [expr $x+1]; exp_continue; } | |
780 | -re ".* 260 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
781 | -re ".* 261 07fc 78366A2C" { set x [expr $x+1]; exp_continue; } | |
782 | -re ".* 261 12345678" { set x [expr $x+1]; exp_continue; } | |
783 | -re ".* 261 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
784 | -re ".* 262 0808 78366A2C" { set x [expr $x+1]; exp_continue; } | |
785 | -re ".* 262 12345678" { set x [expr $x+1]; exp_continue; } | |
786 | -re ".* 262 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
787 | -re ".* 262 DEF0" { set x [expr $x+1]; exp_continue; } | |
788 | -re ".* 263 0816 78366A2C" { set x [expr $x+1]; exp_continue; } | |
789 | -re ".* 263 12345678" { set x [expr $x+1]; exp_continue; } | |
790 | -re ".* 263 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
791 | -re ".* 263 DEF0" { set x [expr $x+1]; exp_continue; } | |
792 | -re ".* 264 0824 78366A2C" { set x [expr $x+1]; exp_continue; } | |
793 | -re ".* 264 12345678" { set x [expr $x+1]; exp_continue; } | |
794 | -re ".* 264 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
795 | -re ".* 264 DEF0" { set x [expr $x+1]; exp_continue; } | |
796 | -re ".* 265 0832 78366A2C" { set x [expr $x+1]; exp_continue; } | |
797 | -re ".* 265 12345678" { set x [expr $x+1]; exp_continue; } | |
798 | -re ".* 265 40109ABC" { set x [expr $x+1]; exp_continue; } | |
799 | -re ".* 266 083e 78366A2C" { set x [expr $x+1]; exp_continue; } | |
800 | -re ".* 266 12345678" { set x [expr $x+1]; exp_continue; } | |
801 | -re ".* 266 48109ABC" { set x [expr $x+1]; exp_continue; } | |
802 | -re ".* 266 DEF0" { set x [expr $x+1]; exp_continue; } | |
803 | -re ".* 267 " { | |
804 | if [expr $x == 53] then { | |
805 | pass "$testname: add.b @(0x12345678:32,r3.w), ..." | |
806 | } else { | |
807 | fail "$testname: add.b @(0x12345678:32,r3.w), ... ($x)" | |
808 | } | |
809 | } | |
810 | default { fail "$testname: add.b @(0x12345678:32,r3.w), ... ($x)" } | |
811 | } | |
812 | ||
813 | set x 0 | |
814 | expect { | |
815 | -re ".* 268 084c 78376A2C" { set x [expr $x+1]; exp_continue; } | |
816 | -re ".* 268 12345678" { set x [expr $x+1]; exp_continue; } | |
817 | -re ".* 268 0110" { set x [expr $x+1]; exp_continue; } | |
818 | -re ".* 269 0856 78376A2C" { set x [expr $x+1]; exp_continue; } | |
819 | -re ".* 269 12345678" { set x [expr $x+1]; exp_continue; } | |
820 | -re ".* 269 3110" { set x [expr $x+1]; exp_continue; } | |
821 | -re ".* 270 0860 78376A2C" { set x [expr $x+1]; exp_continue; } | |
822 | -re ".* 270 12345678" { set x [expr $x+1]; exp_continue; } | |
823 | -re ".* 270 B110" { set x [expr $x+1]; exp_continue; } | |
824 | -re ".* 271 086a 78376A2C" { set x [expr $x+1]; exp_continue; } | |
825 | -re ".* 271 12345678" { set x [expr $x+1]; exp_continue; } | |
826 | -re ".* 271 8110" { set x [expr $x+1]; exp_continue; } | |
827 | -re ".* 272 0874 78376A2C" { set x [expr $x+1]; exp_continue; } | |
828 | -re ".* 272 12345678" { set x [expr $x+1]; exp_continue; } | |
829 | -re ".* 272 A110" { set x [expr $x+1]; exp_continue; } | |
830 | -re ".* 273 087e 78376A2C" { set x [expr $x+1]; exp_continue; } | |
831 | -re ".* 273 12345678" { set x [expr $x+1]; exp_continue; } | |
832 | -re ".* 273 9110" { set x [expr $x+1]; exp_continue; } | |
833 | -re ".* 274 0888 78376A2C" { set x [expr $x+1]; exp_continue; } | |
834 | -re ".* 274 12345678" { set x [expr $x+1]; exp_continue; } | |
835 | -re ".* 274 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
836 | -re ".* 275 0894 78376A2C" { set x [expr $x+1]; exp_continue; } | |
837 | -re ".* 275 12345678" { set x [expr $x+1]; exp_continue; } | |
838 | -re ".* 275 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
839 | -re ".* 275 DEF0" { set x [expr $x+1]; exp_continue; } | |
840 | -re ".* 276 08a2 78376A2C" { set x [expr $x+1]; exp_continue; } | |
841 | -re ".* 276 12345678" { set x [expr $x+1]; exp_continue; } | |
842 | -re ".* 276 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
843 | -re ".* 277 08ae 78376A2C" { set x [expr $x+1]; exp_continue; } | |
844 | -re ".* 277 12345678" { set x [expr $x+1]; exp_continue; } | |
845 | -re ".* 277 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
846 | -re ".* 278 08ba 78376A2C" { set x [expr $x+1]; exp_continue; } | |
847 | -re ".* 278 12345678" { set x [expr $x+1]; exp_continue; } | |
848 | -re ".* 278 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
849 | -re ".* 279 08c6 78376A2C" { set x [expr $x+1]; exp_continue; } | |
850 | -re ".* 279 12345678" { set x [expr $x+1]; exp_continue; } | |
851 | -re ".* 279 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
852 | -re ".* 279 DEF0" { set x [expr $x+1]; exp_continue; } | |
853 | -re ".* 280 08d4 78376A2C" { set x [expr $x+1]; exp_continue; } | |
854 | -re ".* 280 12345678" { set x [expr $x+1]; exp_continue; } | |
855 | -re ".* 280 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
856 | -re ".* 280 DEF0" { set x [expr $x+1]; exp_continue; } | |
857 | -re ".* 281 08e2 78376A2C" { set x [expr $x+1]; exp_continue; } | |
858 | -re ".* 281 12345678" { set x [expr $x+1]; exp_continue; } | |
859 | -re ".* 281 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
860 | -re ".* 281 DEF0" { set x [expr $x+1]; exp_continue; } | |
861 | -re ".* 282 08f0 78376A2C" { set x [expr $x+1]; exp_continue; } | |
862 | -re ".* 282 12345678" { set x [expr $x+1]; exp_continue; } | |
863 | -re ".* 282 40109ABC" { set x [expr $x+1]; exp_continue; } | |
864 | -re ".* 283 08fc 78376A2C" { set x [expr $x+1]; exp_continue; } | |
865 | -re ".* 283 12345678" { set x [expr $x+1]; exp_continue; } | |
866 | -re ".* 283 48109ABC" { set x [expr $x+1]; exp_continue; } | |
867 | -re ".* 283 DEF0" { set x [expr $x+1]; exp_continue; } | |
868 | -re ".* 284 " { | |
869 | if [expr $x == 53] then { | |
870 | pass "$testname: add.b @(0x12345678:32,er3.l), ..." | |
871 | } else { | |
872 | fail "$testname: add.b @(0x12345678:32,er3.l), ... ($x)" | |
873 | } | |
874 | } | |
875 | default { fail "$testname: add.b @(0x12345678:32,er3.l), ... ($x)" } | |
876 | } | |
877 | ||
878 | set x 0 | |
879 | expect { | |
880 | -re ".* 285 090a 6A151234" { set x [expr $x+1]; exp_continue; } | |
881 | -re ".* 285 0110" { set x [expr $x+1]; exp_continue; } | |
882 | -re ".* 286 0910 6A151234" { set x [expr $x+1]; exp_continue; } | |
883 | -re ".* 286 3110" { set x [expr $x+1]; exp_continue; } | |
884 | -re ".* 287 0916 6A151234" { set x [expr $x+1]; exp_continue; } | |
885 | -re ".* 287 B110" { set x [expr $x+1]; exp_continue; } | |
886 | -re ".* 288 091c 6A151234" { set x [expr $x+1]; exp_continue; } | |
887 | -re ".* 288 8110" { set x [expr $x+1]; exp_continue; } | |
888 | -re ".* 289 0922 6A151234" { set x [expr $x+1]; exp_continue; } | |
889 | -re ".* 289 A110" { set x [expr $x+1]; exp_continue; } | |
890 | -re ".* 290 0928 6A151234" { set x [expr $x+1]; exp_continue; } | |
891 | -re ".* 290 9110" { set x [expr $x+1]; exp_continue; } | |
892 | -re ".* 291 092e 6A151234" { set x [expr $x+1]; exp_continue; } | |
893 | -re ".* 291 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
894 | -re ".* 292 0936 6A151234" { set x [expr $x+1]; exp_continue; } | |
895 | -re ".* 292 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
896 | -re ".* 292 DEF0" { set x [expr $x+1]; exp_continue; } | |
897 | -re ".* 293 0940 6A151234" { set x [expr $x+1]; exp_continue; } | |
898 | -re ".* 293 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
899 | -re ".* 294 0948 6A151234" { set x [expr $x+1]; exp_continue; } | |
900 | -re ".* 294 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
901 | -re ".* 295 0950 6A151234" { set x [expr $x+1]; exp_continue; } | |
902 | -re ".* 295 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
903 | -re ".* 296 0958 6A151234" { set x [expr $x+1]; exp_continue; } | |
904 | -re ".* 296 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
905 | -re ".* 296 DEF0" { set x [expr $x+1]; exp_continue; } | |
906 | -re ".* 297 0962 6A151234" { set x [expr $x+1]; exp_continue; } | |
907 | -re ".* 297 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
908 | -re ".* 297 DEF0" { set x [expr $x+1]; exp_continue; } | |
909 | -re ".* 298 096c 6A151234" { set x [expr $x+1]; exp_continue; } | |
910 | -re ".* 298 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
911 | -re ".* 298 DEF0" { set x [expr $x+1]; exp_continue; } | |
912 | -re ".* 299 0976 6A151234" { set x [expr $x+1]; exp_continue; } | |
913 | -re ".* 299 40109ABC" { set x [expr $x+1]; exp_continue; } | |
914 | -re ".* 300 097e 6A151234" { set x [expr $x+1]; exp_continue; } | |
915 | -re ".* 300 48109ABC" { set x [expr $x+1]; exp_continue; } | |
916 | -re ".* 300 DEF0" { set x [expr $x+1]; exp_continue; } | |
917 | -re ".* 301 " { | |
918 | if [expr $x == 37] then { | |
919 | pass "$testname: add.b @0x1234:16, ..." | |
920 | } else { | |
921 | fail "$testname: add.b @0x1234:16, ... ($x)" | |
922 | } | |
923 | } | |
924 | default { fail "$testname: add.b @0x1234:16, ... ($x)" } | |
925 | } | |
926 | ||
927 | set x 0 | |
928 | expect { | |
929 | -re ".* 302 0988 6A351234" { set x [expr $x+1]; exp_continue; } | |
930 | -re ".* 302 56780110" { set x [expr $x+1]; exp_continue; } | |
931 | -re ".* 303 0990 6A351234" { set x [expr $x+1]; exp_continue; } | |
932 | -re ".* 303 56783110" { set x [expr $x+1]; exp_continue; } | |
933 | -re ".* 304 0998 6A351234" { set x [expr $x+1]; exp_continue; } | |
934 | -re ".* 304 5678B110" { set x [expr $x+1]; exp_continue; } | |
935 | -re ".* 305 09a0 6A351234" { set x [expr $x+1]; exp_continue; } | |
936 | -re ".* 305 56788110" { set x [expr $x+1]; exp_continue; } | |
937 | -re ".* 306 09a8 6A351234" { set x [expr $x+1]; exp_continue; } | |
938 | -re ".* 306 5678A110" { set x [expr $x+1]; exp_continue; } | |
939 | -re ".* 307 09b0 6A351234" { set x [expr $x+1]; exp_continue; } | |
940 | -re ".* 307 56789110" { set x [expr $x+1]; exp_continue; } | |
941 | -re ".* 308 09b8 6A351234" { set x [expr $x+1]; exp_continue; } | |
942 | -re ".* 308 5678C110" { set x [expr $x+1]; exp_continue; } | |
943 | -re ".* 308 9ABC" { set x [expr $x+1]; exp_continue; } | |
944 | -re ".* 309 09c2 6A351234" { set x [expr $x+1]; exp_continue; } | |
945 | -re ".* 309 5678C910" { set x [expr $x+1]; exp_continue; } | |
946 | -re ".* 309 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
947 | -re ".* 310 09ce 6A351234" { set x [expr $x+1]; exp_continue; } | |
948 | -re ".* 310 5678D210" { set x [expr $x+1]; exp_continue; } | |
949 | -re ".* 310 9ABC" { set x [expr $x+1]; exp_continue; } | |
950 | -re ".* 311 09d8 6A351234" { set x [expr $x+1]; exp_continue; } | |
951 | -re ".* 311 5678E210" { set x [expr $x+1]; exp_continue; } | |
952 | -re ".* 311 9ABC" { set x [expr $x+1]; exp_continue; } | |
953 | -re ".* 312 09e2 6A351234" { set x [expr $x+1]; exp_continue; } | |
954 | -re ".* 312 5678F210" { set x [expr $x+1]; exp_continue; } | |
955 | -re ".* 312 9ABC" { set x [expr $x+1]; exp_continue; } | |
956 | -re ".* 313 09ec 6A351234" { set x [expr $x+1]; exp_continue; } | |
957 | -re ".* 313 5678DA10" { set x [expr $x+1]; exp_continue; } | |
958 | -re ".* 313 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
959 | -re ".* 314 09f8 6A351234" { set x [expr $x+1]; exp_continue; } | |
960 | -re ".* 314 5678EA10" { set x [expr $x+1]; exp_continue; } | |
961 | -re ".* 314 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
962 | -re ".* 315 0a04 6A351234" { set x [expr $x+1]; exp_continue; } | |
963 | -re ".* 315 5678FA10" { set x [expr $x+1]; exp_continue; } | |
964 | -re ".* 315 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
965 | -re ".* 316 0a10 6A351234" { set x [expr $x+1]; exp_continue; } | |
966 | -re ".* 316 56784010" { set x [expr $x+1]; exp_continue; } | |
967 | -re ".* 316 9ABC" { set x [expr $x+1]; exp_continue; } | |
968 | -re ".* 317 0a1a 6A351234" { set x [expr $x+1]; exp_continue; } | |
969 | -re ".* 317 56784810" { set x [expr $x+1]; exp_continue; } | |
970 | -re ".* 317 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
971 | -re ".* 318 " { | |
972 | if [expr $x == 42] then { | |
973 | pass "$testname: add.b @0x12345678:32, ..." | |
974 | } else { | |
975 | fail "$testname: add.b @0x12345678:32, ... ($x)" | |
976 | } | |
977 | } | |
978 | default { fail "$testname: add.b @0x12345678:32, ... ($x)" } | |
979 | } | |
980 | ||
981 | set x 0 | |
982 | expect { | |
983 | -re ".* 319 0a26 79111234" { set x [expr $x+1]; exp_continue; } | |
984 | -re ".* 320 0a2a 0A72" { set x [expr $x+1]; exp_continue; } | |
985 | -re ".* 321 0a2c 015E0110" { set x [expr $x+1]; exp_continue; } | |
986 | -re ".* 321 1234" { set x [expr $x+1]; exp_continue; } | |
987 | -re ".* 322 0a32 015E3110" { set x [expr $x+1]; exp_continue; } | |
988 | -re ".* 322 1234" { set x [expr $x+1]; exp_continue; } | |
989 | -re ".* 323 0a38 015E8110" { set x [expr $x+1]; exp_continue; } | |
990 | -re ".* 323 1234" { set x [expr $x+1]; exp_continue; } | |
991 | -re ".* 324 0a3e 015EB110" { set x [expr $x+1]; exp_continue; } | |
992 | -re ".* 324 1234" { set x [expr $x+1]; exp_continue; } | |
993 | -re ".* 325 0a44 015E9110" { set x [expr $x+1]; exp_continue; } | |
994 | -re ".* 325 1234" { set x [expr $x+1]; exp_continue; } | |
995 | -re ".* 326 0a4a 015EA110" { set x [expr $x+1]; exp_continue; } | |
996 | -re ".* 326 1234" { set x [expr $x+1]; exp_continue; } | |
997 | -re ".* 327 0a50 015EC110" { set x [expr $x+1]; exp_continue; } | |
998 | -re ".* 327 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
999 | -re ".* 328 0a58 015EC910" { set x [expr $x+1]; exp_continue; } | |
1000 | -re ".* 328 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1001 | -re ".* 328 1234" { set x [expr $x+1]; exp_continue; } | |
1002 | -re ".* 329 0a62 015ED210" { set x [expr $x+1]; exp_continue; } | |
1003 | -re ".* 329 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1004 | -re ".* 330 0a6a 015EE210" { set x [expr $x+1]; exp_continue; } | |
1005 | -re ".* 330 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1006 | -re ".* 331 0a72 015EF210" { set x [expr $x+1]; exp_continue; } | |
1007 | -re ".* 331 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1008 | -re ".* 332 0a7a 015EDA10" { set x [expr $x+1]; exp_continue; } | |
1009 | -re ".* 332 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1010 | -re ".* 332 1234" { set x [expr $x+1]; exp_continue; } | |
1011 | -re ".* 333 0a84 015EEA10" { set x [expr $x+1]; exp_continue; } | |
1012 | -re ".* 333 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1013 | -re ".* 333 1234" { set x [expr $x+1]; exp_continue; } | |
1014 | -re ".* 334 0a8e 015EFA10" { set x [expr $x+1]; exp_continue; } | |
1015 | -re ".* 334 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1016 | -re ".* 334 1234" { set x [expr $x+1]; exp_continue; } | |
1017 | -re ".* 335 0a98 015E4010" { set x [expr $x+1]; exp_continue; } | |
1018 | -re ".* 335 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1019 | -re ".* 336 0aa0 015E4810" { set x [expr $x+1]; exp_continue; } | |
1020 | -re ".* 336 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1021 | -re ".* 336 1234" { set x [expr $x+1]; exp_continue; } | |
1022 | -re ".* 337 " { | |
1023 | if [expr $x == 39] then { | |
1024 | pass "$testname: add.w #0x1234:16, ..." | |
1025 | } else { | |
1026 | fail "$testname: add.w #0x1234:16, ... ($x)" | |
1027 | } | |
1028 | } | |
1029 | default { fail "$testname: add.w #0x1234:16, ... ($x)" } | |
1030 | } | |
1031 | ||
1032 | set x 0 | |
1033 | expect { | |
1034 | -re ".* 338 0aaa 7D900A70" { set x [expr $x+1]; exp_continue; } | |
1035 | -re ".* 339 0aae 6B181234" { set x [expr $x+1]; exp_continue; } | |
1036 | -re ".* 339 0A70" { set x [expr $x+1]; exp_continue; } | |
1037 | -re ".* 340 0ab4 6B381234" { set x [expr $x+1]; exp_continue; } | |
1038 | -re ".* 340 56780A70" { set x [expr $x+1]; exp_continue; } | |
1039 | -re ".* 341 " { | |
1040 | if [expr $x == 5] then { | |
1041 | pass "$testname: add.w #0x7:3, ..." | |
1042 | } else { | |
1043 | fail "$testname: add.w #0x7:3, ... ($x)" | |
1044 | } | |
1045 | } | |
1046 | default { fail "$testname: add.w #0x7:3, ... ($x)" } | |
1047 | } | |
1048 | ||
1049 | set x 0 | |
1050 | expect { | |
1051 | -re ".* 342 0abc 0931" { set x [expr $x+1]; exp_continue; } | |
1052 | -re ".* 343 " { | |
1053 | if [expr $x == 1] then { | |
1054 | pass "$testname: add.w r3, r1" | |
1055 | } else { | |
1056 | fail "$testname: add.w r3, r1 ($x)" | |
1057 | } | |
1058 | } | |
1059 | default { fail "$testname: add.w r3, r1 ($x)" } | |
1060 | } | |
1061 | ||
1062 | set x 0 | |
1063 | expect { | |
1064 | -re ".* 344 0abe 7D900930" { set x [expr $x+1]; exp_continue; } | |
1065 | -re ".* 345 0ac2 01593113" { set x [expr $x+1]; exp_continue; } | |
1066 | -re ".* 346 0ac6 01598113" { set x [expr $x+1]; exp_continue; } | |
1067 | -re ".* 347 0aca 0159B113" { set x [expr $x+1]; exp_continue; } | |
1068 | -re ".* 348 0ace 01599113" { set x [expr $x+1]; exp_continue; } | |
1069 | -re ".* 349 0ad2 0159A113" { set x [expr $x+1]; exp_continue; } | |
1070 | -re ".* 350 0ad6 0159C113" { set x [expr $x+1]; exp_continue; } | |
1071 | -re ".* 350 1234" { set x [expr $x+1]; exp_continue; } | |
1072 | -re ".* 351 0adc 0159C913" { set x [expr $x+1]; exp_continue; } | |
1073 | -re ".* 351 12345678" { set x [expr $x+1]; exp_continue; } | |
1074 | -re ".* 352 0ae4 0159D213" { set x [expr $x+1]; exp_continue; } | |
1075 | -re ".* 352 1234" { set x [expr $x+1]; exp_continue; } | |
1076 | -re ".* 353 0aea 0159E213" { set x [expr $x+1]; exp_continue; } | |
1077 | -re ".* 353 1234" { set x [expr $x+1]; exp_continue; } | |
1078 | -re ".* 354 0af0 0159F213" { set x [expr $x+1]; exp_continue; } | |
1079 | -re ".* 354 1234" { set x [expr $x+1]; exp_continue; } | |
1080 | -re ".* 355 0af6 0159DA13" { set x [expr $x+1]; exp_continue; } | |
1081 | -re ".* 355 12345678" { set x [expr $x+1]; exp_continue; } | |
1082 | -re ".* 356 0afe 0159EA13" { set x [expr $x+1]; exp_continue; } | |
1083 | -re ".* 356 12345678" { set x [expr $x+1]; exp_continue; } | |
1084 | -re ".* 357 0b06 0159FA13" { set x [expr $x+1]; exp_continue; } | |
1085 | -re ".* 357 12345678" { set x [expr $x+1]; exp_continue; } | |
1086 | -re ".* 358 0b0e 6B181234" { set x [expr $x+1]; exp_continue; } | |
1087 | -re ".* 358 0930" { set x [expr $x+1]; exp_continue; } | |
1088 | -re ".* 359 0b14 6B381234" { set x [expr $x+1]; exp_continue; } | |
1089 | -re ".* 359 56780930" { set x [expr $x+1]; exp_continue; } | |
1090 | -re ".* 360 " { | |
1091 | if [expr $x == 26] then { | |
1092 | pass "$testname: add.w r3, ..." | |
1093 | } else { | |
1094 | fail "$testname: add.w r3, ... ($x)" | |
1095 | } | |
1096 | } | |
1097 | default { fail "$testname: add.w r3, ... ($x)" } | |
1098 | } | |
1099 | ||
1100 | set x 0 | |
1101 | expect { | |
1102 | -re ".* 361 0b1c 7CB00901" { set x [expr $x+1]; exp_continue; } | |
1103 | -re ".* 362 0b20 015A3111" { set x [expr $x+1]; exp_continue; } | |
1104 | -re ".* 363 0b24 015A8311" { set x [expr $x+1]; exp_continue; } | |
1105 | -re ".* 364 0b28 015AB311" { set x [expr $x+1]; exp_continue; } | |
1106 | -re ".* 365 0b2c 015A9311" { set x [expr $x+1]; exp_continue; } | |
1107 | -re ".* 366 0b30 015AA311" { set x [expr $x+1]; exp_continue; } | |
1108 | -re ".* 367 0b34 015AC111" { set x [expr $x+1]; exp_continue; } | |
1109 | -re ".* 367 1234" { set x [expr $x+1]; exp_continue; } | |
1110 | -re ".* 368 0b3a 015AC911" { set x [expr $x+1]; exp_continue; } | |
1111 | -re ".* 368 12345678" { set x [expr $x+1]; exp_continue; } | |
1112 | -re ".* 369 0b42 015AD211" { set x [expr $x+1]; exp_continue; } | |
1113 | -re ".* 369 1234" { set x [expr $x+1]; exp_continue; } | |
1114 | -re ".* 370 0b48 015AE211" { set x [expr $x+1]; exp_continue; } | |
1115 | -re ".* 370 1234" { set x [expr $x+1]; exp_continue; } | |
1116 | -re ".* 371 0b4e 015AF211" { set x [expr $x+1]; exp_continue; } | |
1117 | -re ".* 371 1234" { set x [expr $x+1]; exp_continue; } | |
1118 | -re ".* 372 0b54 015ADA11" { set x [expr $x+1]; exp_continue; } | |
1119 | -re ".* 372 12345678" { set x [expr $x+1]; exp_continue; } | |
1120 | -re ".* 373 0b5c 015AEA11" { set x [expr $x+1]; exp_continue; } | |
1121 | -re ".* 373 12345678" { set x [expr $x+1]; exp_continue; } | |
1122 | -re ".* 374 0b64 015AFA11" { set x [expr $x+1]; exp_continue; } | |
1123 | -re ".* 374 12345678" { set x [expr $x+1]; exp_continue; } | |
1124 | -re ".* 375 0b6c 6B101234" { set x [expr $x+1]; exp_continue; } | |
1125 | -re ".* 375 0901" { set x [expr $x+1]; exp_continue; } | |
1126 | -re ".* 376 0b72 6B301234" { set x [expr $x+1]; exp_continue; } | |
1127 | -re ".* 376 56780901" { set x [expr $x+1]; exp_continue; } | |
1128 | -re ".* 377 " { | |
1129 | if [expr $x == 26] then { | |
1130 | pass "$testname: add.w ..., r1" | |
1131 | } else { | |
1132 | fail "$testname: add.w ..., r1 ($x)" | |
1133 | } | |
1134 | } | |
1135 | default { fail "$testname: add.w ..., r1 ($x)" } | |
1136 | } | |
1137 | ||
1138 | set x 0 | |
1139 | expect { | |
1140 | -re ".* 378 0b7a 7CB50110" { set x [expr $x+1]; exp_continue; } | |
1141 | -re ".* 379 0b7e 7CB53110" { set x [expr $x+1]; exp_continue; } | |
1142 | -re ".* 380 0b82 7CB5B110" { set x [expr $x+1]; exp_continue; } | |
1143 | -re ".* 381 0b86 7CB58110" { set x [expr $x+1]; exp_continue; } | |
1144 | -re ".* 382 0b8a 7CB5A110" { set x [expr $x+1]; exp_continue; } | |
1145 | -re ".* 383 0b8e 7CB59110" { set x [expr $x+1]; exp_continue; } | |
1146 | -re ".* 384 0b92 7CB5C110" { set x [expr $x+1]; exp_continue; } | |
1147 | -re ".* 384 9ABC" { set x [expr $x+1]; exp_continue; } | |
1148 | -re ".* 385 0b98 7CB5C910" { set x [expr $x+1]; exp_continue; } | |
1149 | -re ".* 385 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1150 | -re ".* 386 0ba0 7CB5D210" { set x [expr $x+1]; exp_continue; } | |
1151 | -re ".* 386 9ABC" { set x [expr $x+1]; exp_continue; } | |
1152 | -re ".* 387 0ba6 7CB5E210" { set x [expr $x+1]; exp_continue; } | |
1153 | -re ".* 387 9ABC" { set x [expr $x+1]; exp_continue; } | |
1154 | -re ".* 388 0bac 7CB5F210" { set x [expr $x+1]; exp_continue; } | |
1155 | -re ".* 388 9ABC" { set x [expr $x+1]; exp_continue; } | |
1156 | -re ".* 389 0bb2 7CB5DA10" { set x [expr $x+1]; exp_continue; } | |
1157 | -re ".* 389 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1158 | -re ".* 390 0bba 7CB5EA10" { set x [expr $x+1]; exp_continue; } | |
1159 | -re ".* 390 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1160 | -re ".* 391 0bc2 7CB5FA10" { set x [expr $x+1]; exp_continue; } | |
1161 | -re ".* 391 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1162 | -re ".* 392 0bca 7CB54010" { set x [expr $x+1]; exp_continue; } | |
1163 | -re ".* 392 9ABC" { set x [expr $x+1]; exp_continue; } | |
1164 | -re ".* 393 0bd0 7CB54810" { set x [expr $x+1]; exp_continue; } | |
1165 | -re ".* 393 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1166 | -re ".* 394 " { | |
1167 | if [expr $x == 26] then { | |
1168 | pass "$testname: add.w @er3, ..." | |
1169 | } else { | |
1170 | fail "$testname: add.w @er3, ... ($x)" | |
1171 | } | |
1172 | } | |
1173 | default { fail "$testname: add.w @er3, ... ($x)" } | |
1174 | } | |
1175 | ||
1176 | set x 0 | |
1177 | expect { | |
1178 | -re ".* 395 0bd8 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1179 | -re ".* 395 0110" { set x [expr $x+1]; exp_continue; } | |
1180 | -re ".* 396 0bde 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1181 | -re ".* 396 3110" { set x [expr $x+1]; exp_continue; } | |
1182 | -re ".* 397 0be4 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1183 | -re ".* 397 B110" { set x [expr $x+1]; exp_continue; } | |
1184 | -re ".* 398 0bea 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1185 | -re ".* 398 8110" { set x [expr $x+1]; exp_continue; } | |
1186 | -re ".* 399 0bf0 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1187 | -re ".* 399 A110" { set x [expr $x+1]; exp_continue; } | |
1188 | -re ".* 400 0bf6 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1189 | -re ".* 400 9110" { set x [expr $x+1]; exp_continue; } | |
1190 | -re ".* 401 0bfc 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1191 | -re ".* 401 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1192 | -re ".* 402 0c04 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1193 | -re ".* 402 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1194 | -re ".* 402 DEF0" { set x [expr $x+1]; exp_continue; } | |
1195 | -re ".* 403 0c0e 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1196 | -re ".* 403 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1197 | -re ".* 404 0c16 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1198 | -re ".* 404 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1199 | -re ".* 405 0c1e 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1200 | -re ".* 405 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1201 | -re ".* 406 0c26 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1202 | -re ".* 406 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1203 | -re ".* 406 DEF0" { set x [expr $x+1]; exp_continue; } | |
1204 | -re ".* 407 0c30 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1205 | -re ".* 407 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1206 | -re ".* 407 DEF0" { set x [expr $x+1]; exp_continue; } | |
1207 | -re ".* 408 0c3a 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1208 | -re ".* 408 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1209 | -re ".* 408 DEF0" { set x [expr $x+1]; exp_continue; } | |
1210 | -re ".* 409 0c44 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1211 | -re ".* 409 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1212 | -re ".* 410 0c4c 01576D3C" { set x [expr $x+1]; exp_continue; } | |
1213 | -re ".* 410 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1214 | -re ".* 410 DEF0" { set x [expr $x+1]; exp_continue; } | |
1215 | -re ".* 411 " { | |
1216 | if [expr $x == 37] then { | |
1217 | pass "$testname: add.w @-er3, ..." | |
1218 | } else { | |
1219 | fail "$testname: add.w @-er3, ... ($x)" | |
1220 | } | |
1221 | } | |
1222 | default { fail "$testname: add.w @-er3, ... ($x)" } | |
1223 | } | |
1224 | ||
1225 | set x 0 | |
1226 | expect { | |
1227 | -re ".* 412 0c56 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1228 | -re ".* 412 0110" { set x [expr $x+1]; exp_continue; } | |
1229 | -re ".* 413 0c5c 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1230 | -re ".* 413 3110" { set x [expr $x+1]; exp_continue; } | |
1231 | -re ".* 414 0c62 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1232 | -re ".* 414 B110" { set x [expr $x+1]; exp_continue; } | |
1233 | -re ".* 415 0c68 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1234 | -re ".* 415 8110" { set x [expr $x+1]; exp_continue; } | |
1235 | -re ".* 416 0c6e 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1236 | -re ".* 416 A110" { set x [expr $x+1]; exp_continue; } | |
1237 | -re ".* 417 0c74 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1238 | -re ".* 417 9110" { set x [expr $x+1]; exp_continue; } | |
1239 | -re ".* 418 0c7a 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1240 | -re ".* 418 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1241 | -re ".* 419 0c82 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1242 | -re ".* 419 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1243 | -re ".* 419 DEF0" { set x [expr $x+1]; exp_continue; } | |
1244 | -re ".* 420 0c8c 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1245 | -re ".* 420 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1246 | -re ".* 421 0c94 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1247 | -re ".* 421 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1248 | -re ".* 422 0c9c 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1249 | -re ".* 422 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1250 | -re ".* 423 0ca4 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1251 | -re ".* 423 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1252 | -re ".* 423 DEF0" { set x [expr $x+1]; exp_continue; } | |
1253 | -re ".* 424 0cae 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1254 | -re ".* 424 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1255 | -re ".* 424 DEF0" { set x [expr $x+1]; exp_continue; } | |
1256 | -re ".* 425 0cb8 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1257 | -re ".* 425 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1258 | -re ".* 425 DEF0" { set x [expr $x+1]; exp_continue; } | |
1259 | -re ".* 426 0cc2 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1260 | -re ".* 426 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1261 | -re ".* 427 0cca 01546D3C" { set x [expr $x+1]; exp_continue; } | |
1262 | -re ".* 427 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1263 | -re ".* 427 DEF0" { set x [expr $x+1]; exp_continue; } | |
1264 | -re ".* 428 " { | |
1265 | if [expr $x == 37] then { | |
1266 | pass "$testname: add.w @er3+, ..." | |
1267 | } else { | |
1268 | fail "$testname: add.w @er3+, ... ($x)" | |
1269 | } | |
1270 | } | |
1271 | default { fail "$testname: add.w @er3+, ... ($x)" } | |
1272 | } | |
1273 | ||
1274 | set x 0 | |
1275 | expect { | |
1276 | -re ".* 429 0cd4 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1277 | -re ".* 429 0110" { set x [expr $x+1]; exp_continue; } | |
1278 | -re ".* 430 0cda 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1279 | -re ".* 430 3110" { set x [expr $x+1]; exp_continue; } | |
1280 | -re ".* 431 0ce0 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1281 | -re ".* 431 B110" { set x [expr $x+1]; exp_continue; } | |
1282 | -re ".* 432 0ce6 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1283 | -re ".* 432 8110" { set x [expr $x+1]; exp_continue; } | |
1284 | -re ".* 433 0cec 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1285 | -re ".* 433 A110" { set x [expr $x+1]; exp_continue; } | |
1286 | -re ".* 434 0cf2 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1287 | -re ".* 434 9110" { set x [expr $x+1]; exp_continue; } | |
1288 | -re ".* 435 0cf8 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1289 | -re ".* 435 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1290 | -re ".* 436 0d00 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1291 | -re ".* 436 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1292 | -re ".* 436 DEF0" { set x [expr $x+1]; exp_continue; } | |
1293 | -re ".* 437 0d0a 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1294 | -re ".* 437 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1295 | -re ".* 438 0d12 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1296 | -re ".* 438 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1297 | -re ".* 439 0d1a 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1298 | -re ".* 439 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1299 | -re ".* 440 0d22 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1300 | -re ".* 440 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1301 | -re ".* 440 DEF0" { set x [expr $x+1]; exp_continue; } | |
1302 | -re ".* 441 0d2c 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1303 | -re ".* 441 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1304 | -re ".* 441 DEF0" { set x [expr $x+1]; exp_continue; } | |
1305 | -re ".* 442 0d36 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1306 | -re ".* 442 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1307 | -re ".* 442 DEF0" { set x [expr $x+1]; exp_continue; } | |
1308 | -re ".* 443 0d40 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1309 | -re ".* 443 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1310 | -re ".* 444 0d48 01566D3C" { set x [expr $x+1]; exp_continue; } | |
1311 | -re ".* 444 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1312 | -re ".* 444 DEF0" { set x [expr $x+1]; exp_continue; } | |
1313 | -re ".* 445 " { | |
1314 | if [expr $x == 37] then { | |
1315 | pass "$testname: add.w @er3-, ..." | |
1316 | } else { | |
1317 | fail "$testname: add.w @er3-, ... ($x)" | |
1318 | } | |
1319 | } | |
1320 | default { fail "$testname: add.w @er3-, ... ($x)" } | |
1321 | } | |
1322 | ||
1323 | set x 0 | |
1324 | expect { | |
1325 | -re ".* 446 0d52 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1326 | -re ".* 446 0110" { set x [expr $x+1]; exp_continue; } | |
1327 | -re ".* 447 0d58 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1328 | -re ".* 447 3110" { set x [expr $x+1]; exp_continue; } | |
1329 | -re ".* 448 0d5e 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1330 | -re ".* 448 B110" { set x [expr $x+1]; exp_continue; } | |
1331 | -re ".* 449 0d64 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1332 | -re ".* 449 8110" { set x [expr $x+1]; exp_continue; } | |
1333 | -re ".* 450 0d6a 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1334 | -re ".* 450 A110" { set x [expr $x+1]; exp_continue; } | |
1335 | -re ".* 451 0d70 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1336 | -re ".* 451 9110" { set x [expr $x+1]; exp_continue; } | |
1337 | -re ".* 452 0d76 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1338 | -re ".* 452 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1339 | -re ".* 453 0d7e 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1340 | -re ".* 453 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1341 | -re ".* 453 DEF0" { set x [expr $x+1]; exp_continue; } | |
1342 | -re ".* 454 0d88 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1343 | -re ".* 454 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1344 | -re ".* 455 0d90 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1345 | -re ".* 455 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1346 | -re ".* 456 0d98 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1347 | -re ".* 456 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1348 | -re ".* 457 0da0 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1349 | -re ".* 457 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1350 | -re ".* 457 DEF0" { set x [expr $x+1]; exp_continue; } | |
1351 | -re ".* 458 0daa 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1352 | -re ".* 458 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1353 | -re ".* 458 DEF0" { set x [expr $x+1]; exp_continue; } | |
1354 | -re ".* 459 0db4 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1355 | -re ".* 459 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1356 | -re ".* 459 DEF0" { set x [expr $x+1]; exp_continue; } | |
1357 | -re ".* 460 0dbe 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1358 | -re ".* 460 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1359 | -re ".* 461 0dc6 01556D3C" { set x [expr $x+1]; exp_continue; } | |
1360 | -re ".* 461 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1361 | -re ".* 461 DEF0" { set x [expr $x+1]; exp_continue; } | |
1362 | -re ".* 462 " { | |
1363 | if [expr $x == 37] then { | |
1364 | pass "$testname: add.w @+er3, ..." | |
1365 | } else { | |
1366 | fail "$testname: add.w @+er3, ... ($x)" | |
1367 | } | |
1368 | } | |
1369 | default { fail "$testname: add.w @+er3, ... ($x)" } | |
1370 | } | |
1371 | ||
1372 | set x 0 | |
1373 | expect { | |
1374 | -re ".* 463 0dd0 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1375 | -re ".* 463 12340110" { set x [expr $x+1]; exp_continue; } | |
1376 | -re ".* 464 0dd8 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1377 | -re ".* 464 12343110" { set x [expr $x+1]; exp_continue; } | |
1378 | -re ".* 465 0de0 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1379 | -re ".* 465 1234B110" { set x [expr $x+1]; exp_continue; } | |
1380 | -re ".* 466 0de8 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1381 | -re ".* 466 12348110" { set x [expr $x+1]; exp_continue; } | |
1382 | -re ".* 467 0df0 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1383 | -re ".* 467 1234A110" { set x [expr $x+1]; exp_continue; } | |
1384 | -re ".* 468 0df8 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1385 | -re ".* 468 12349110" { set x [expr $x+1]; exp_continue; } | |
1386 | -re ".* 469 0e00 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1387 | -re ".* 469 1234C110" { set x [expr $x+1]; exp_continue; } | |
1388 | -re ".* 469 9ABC" { set x [expr $x+1]; exp_continue; } | |
1389 | -re ".* 470 0e0a 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1390 | -re ".* 470 1234C910" { set x [expr $x+1]; exp_continue; } | |
1391 | -re ".* 470 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1392 | -re ".* 471 0e16 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1393 | -re ".* 471 1234D210" { set x [expr $x+1]; exp_continue; } | |
1394 | -re ".* 471 9ABC" { set x [expr $x+1]; exp_continue; } | |
1395 | -re ".* 472 0e20 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1396 | -re ".* 472 1234E210" { set x [expr $x+1]; exp_continue; } | |
1397 | -re ".* 472 9ABC" { set x [expr $x+1]; exp_continue; } | |
1398 | -re ".* 473 0e2a 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1399 | -re ".* 473 1234F210" { set x [expr $x+1]; exp_continue; } | |
1400 | -re ".* 473 9ABC" { set x [expr $x+1]; exp_continue; } | |
1401 | -re ".* 474 0e34 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1402 | -re ".* 474 1234DA10" { set x [expr $x+1]; exp_continue; } | |
1403 | -re ".* 474 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1404 | -re ".* 475 0e40 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1405 | -re ".* 475 1234EA10" { set x [expr $x+1]; exp_continue; } | |
1406 | -re ".* 475 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1407 | -re ".* 476 0e4c 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1408 | -re ".* 476 1234FA10" { set x [expr $x+1]; exp_continue; } | |
1409 | -re ".* 476 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1410 | -re ".* 477 0e58 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1411 | -re ".* 477 12344010" { set x [expr $x+1]; exp_continue; } | |
1412 | -re ".* 477 9ABC" { set x [expr $x+1]; exp_continue; } | |
1413 | -re ".* 478 0e62 01546F3C" { set x [expr $x+1]; exp_continue; } | |
1414 | -re ".* 478 12344810" { set x [expr $x+1]; exp_continue; } | |
1415 | -re ".* 478 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1416 | -re ".* 479 " { | |
1417 | if [expr $x == 42] then { | |
1418 | pass "$testname: add.w @(0x1234:16,er3), ..." | |
1419 | } else { | |
1420 | fail "$testname: add.w @(0x1234:16,er3), ... ($x)" | |
1421 | } | |
1422 | } | |
1423 | default { fail "$testname: add.w @(0x1234:16,er3), ... ($x)" } | |
1424 | } | |
1425 | ||
1426 | set x 0 | |
1427 | expect { | |
1428 | -re ".* 480 0e6e 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1429 | -re ".* 480 12345678" { set x [expr $x+1]; exp_continue; } | |
1430 | -re ".* 480 0110" { set x [expr $x+1]; exp_continue; } | |
1431 | -re ".* 481 0e78 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1432 | -re ".* 481 12345678" { set x [expr $x+1]; exp_continue; } | |
1433 | -re ".* 481 3110" { set x [expr $x+1]; exp_continue; } | |
1434 | -re ".* 482 0e82 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1435 | -re ".* 482 12345678" { set x [expr $x+1]; exp_continue; } | |
1436 | -re ".* 482 B110" { set x [expr $x+1]; exp_continue; } | |
1437 | -re ".* 483 0e8c 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1438 | -re ".* 483 12345678" { set x [expr $x+1]; exp_continue; } | |
1439 | -re ".* 483 8110" { set x [expr $x+1]; exp_continue; } | |
1440 | -re ".* 484 0e96 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1441 | -re ".* 484 12345678" { set x [expr $x+1]; exp_continue; } | |
1442 | -re ".* 484 A110" { set x [expr $x+1]; exp_continue; } | |
1443 | -re ".* 485 0ea0 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1444 | -re ".* 485 12345678" { set x [expr $x+1]; exp_continue; } | |
1445 | -re ".* 485 9110" { set x [expr $x+1]; exp_continue; } | |
1446 | -re ".* 486 0eaa 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1447 | -re ".* 486 12345678" { set x [expr $x+1]; exp_continue; } | |
1448 | -re ".* 486 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1449 | -re ".* 487 0eb6 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1450 | -re ".* 487 12345678" { set x [expr $x+1]; exp_continue; } | |
1451 | -re ".* 487 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1452 | -re ".* 487 DEF0" { set x [expr $x+1]; exp_continue; } | |
1453 | -re ".* 488 0ec4 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1454 | -re ".* 488 12345678" { set x [expr $x+1]; exp_continue; } | |
1455 | -re ".* 488 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1456 | -re ".* 489 0ed0 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1457 | -re ".* 489 12345678" { set x [expr $x+1]; exp_continue; } | |
1458 | -re ".* 489 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1459 | -re ".* 490 0edc 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1460 | -re ".* 490 12345678" { set x [expr $x+1]; exp_continue; } | |
1461 | -re ".* 490 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1462 | -re ".* 491 0ee8 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1463 | -re ".* 491 12345678" { set x [expr $x+1]; exp_continue; } | |
1464 | -re ".* 491 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1465 | -re ".* 491 DEF0" { set x [expr $x+1]; exp_continue; } | |
1466 | -re ".* 492 0ef6 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1467 | -re ".* 492 12345678" { set x [expr $x+1]; exp_continue; } | |
1468 | -re ".* 492 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1469 | -re ".* 492 DEF0" { set x [expr $x+1]; exp_continue; } | |
1470 | -re ".* 493 0f04 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1471 | -re ".* 493 12345678" { set x [expr $x+1]; exp_continue; } | |
1472 | -re ".* 493 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1473 | -re ".* 493 DEF0" { set x [expr $x+1]; exp_continue; } | |
1474 | -re ".* 494 0f12 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1475 | -re ".* 494 12345678" { set x [expr $x+1]; exp_continue; } | |
1476 | -re ".* 494 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1477 | -re ".* 495 0f1e 78346B2C" { set x [expr $x+1]; exp_continue; } | |
1478 | -re ".* 495 12345678" { set x [expr $x+1]; exp_continue; } | |
1479 | -re ".* 495 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1480 | -re ".* 495 DEF0" { set x [expr $x+1]; exp_continue; } | |
1481 | -re ".* 496 " { | |
1482 | if [expr $x == 53] then { | |
1483 | pass "$testname: add.w @(0x12345678:32,er3), ..." | |
1484 | } else { | |
1485 | fail "$testname: add.w @(0x12345678:32,er3), ... ($x)" | |
1486 | } | |
1487 | } | |
1488 | default { fail "$testname: add.w @(0x12345678:32,er3), ... ($x)" } | |
1489 | } | |
1490 | ||
1491 | set x 0 | |
1492 | expect { | |
1493 | -re ".* 497 0f2c 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1494 | -re ".* 497 12340110" { set x [expr $x+1]; exp_continue; } | |
1495 | -re ".* 498 0f34 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1496 | -re ".* 498 12343110" { set x [expr $x+1]; exp_continue; } | |
1497 | -re ".* 499 0f3c 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1498 | -re ".* 499 1234B110" { set x [expr $x+1]; exp_continue; } | |
1499 | -re ".* 500 0f44 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1500 | -re ".* 500 12348110" { set x [expr $x+1]; exp_continue; } | |
1501 | -re ".* 501 0f4c 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1502 | -re ".* 501 1234A110" { set x [expr $x+1]; exp_continue; } | |
1503 | -re ".* 502 0f54 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1504 | -re ".* 502 12349110" { set x [expr $x+1]; exp_continue; } | |
1505 | -re ".* 503 0f5c 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1506 | -re ".* 503 1234C110" { set x [expr $x+1]; exp_continue; } | |
1507 | -re ".* 503 9ABC" { set x [expr $x+1]; exp_continue; } | |
1508 | -re ".* 504 0f66 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1509 | -re ".* 504 1234C910" { set x [expr $x+1]; exp_continue; } | |
1510 | -re ".* 504 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1511 | -re ".* 505 0f72 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1512 | -re ".* 505 1234D210" { set x [expr $x+1]; exp_continue; } | |
1513 | -re ".* 505 9ABC" { set x [expr $x+1]; exp_continue; } | |
1514 | -re ".* 506 0f7c 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1515 | -re ".* 506 1234E210" { set x [expr $x+1]; exp_continue; } | |
1516 | -re ".* 506 9ABC" { set x [expr $x+1]; exp_continue; } | |
1517 | -re ".* 507 0f86 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1518 | -re ".* 507 1234F210" { set x [expr $x+1]; exp_continue; } | |
1519 | -re ".* 507 9ABC" { set x [expr $x+1]; exp_continue; } | |
1520 | -re ".* 508 0f90 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1521 | -re ".* 508 1234DA10" { set x [expr $x+1]; exp_continue; } | |
1522 | -re ".* 508 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1523 | -re ".* 509 0f9c 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1524 | -re ".* 509 1234EA10" { set x [expr $x+1]; exp_continue; } | |
1525 | -re ".* 509 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1526 | -re ".* 510 0fa8 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1527 | -re ".* 510 1234FA10" { set x [expr $x+1]; exp_continue; } | |
1528 | -re ".* 510 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1529 | -re ".* 511 0fb4 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1530 | -re ".* 511 12344010" { set x [expr $x+1]; exp_continue; } | |
1531 | -re ".* 511 9ABC" { set x [expr $x+1]; exp_continue; } | |
1532 | -re ".* 512 0fbe 01556F3C" { set x [expr $x+1]; exp_continue; } | |
1533 | -re ".* 512 12344810" { set x [expr $x+1]; exp_continue; } | |
1534 | -re ".* 512 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1535 | -re ".* 513 " { | |
1536 | if [expr $x == 42] then { | |
1537 | pass "$testname: add.w @(0x1234:16,r3l.b), ..." | |
1538 | } else { | |
1539 | fail "$testname: add.w @(0x1234:16,r3l.b), ... ($x)" | |
1540 | } | |
1541 | } | |
1542 | default { fail "$testname: add.w @(0x1234:16,r3l.b), ... ($x)" } | |
1543 | } | |
1544 | ||
1545 | set x 0 | |
1546 | expect { | |
1547 | -re ".* 514 0fca 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1548 | -re ".* 514 12340110" { set x [expr $x+1]; exp_continue; } | |
1549 | -re ".* 515 0fd2 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1550 | -re ".* 515 12343110" { set x [expr $x+1]; exp_continue; } | |
1551 | -re ".* 516 0fda 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1552 | -re ".* 516 1234B110" { set x [expr $x+1]; exp_continue; } | |
1553 | -re ".* 517 0fe2 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1554 | -re ".* 517 12348110" { set x [expr $x+1]; exp_continue; } | |
1555 | -re ".* 518 0fea 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1556 | -re ".* 518 1234A110" { set x [expr $x+1]; exp_continue; } | |
1557 | -re ".* 519 0ff2 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1558 | -re ".* 519 12349110" { set x [expr $x+1]; exp_continue; } | |
1559 | -re ".* 520 0ffa 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1560 | -re ".* 520 1234C110" { set x [expr $x+1]; exp_continue; } | |
1561 | -re ".* 520 9ABC" { set x [expr $x+1]; exp_continue; } | |
1562 | -re ".* 521 1004 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1563 | -re ".* 521 1234C910" { set x [expr $x+1]; exp_continue; } | |
1564 | -re ".* 521 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1565 | -re ".* 522 1010 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1566 | -re ".* 522 1234D210" { set x [expr $x+1]; exp_continue; } | |
1567 | -re ".* 522 9ABC" { set x [expr $x+1]; exp_continue; } | |
1568 | -re ".* 523 101a 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1569 | -re ".* 523 1234E210" { set x [expr $x+1]; exp_continue; } | |
1570 | -re ".* 523 9ABC" { set x [expr $x+1]; exp_continue; } | |
1571 | -re ".* 524 1024 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1572 | -re ".* 524 1234F210" { set x [expr $x+1]; exp_continue; } | |
1573 | -re ".* 524 9ABC" { set x [expr $x+1]; exp_continue; } | |
1574 | -re ".* 525 102e 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1575 | -re ".* 525 1234DA10" { set x [expr $x+1]; exp_continue; } | |
1576 | -re ".* 525 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1577 | -re ".* 526 103a 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1578 | -re ".* 526 1234EA10" { set x [expr $x+1]; exp_continue; } | |
1579 | -re ".* 526 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1580 | -re ".* 527 1046 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1581 | -re ".* 527 1234FA10" { set x [expr $x+1]; exp_continue; } | |
1582 | -re ".* 527 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1583 | -re ".* 528 1052 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1584 | -re ".* 528 12344010" { set x [expr $x+1]; exp_continue; } | |
1585 | -re ".* 528 9ABC" { set x [expr $x+1]; exp_continue; } | |
1586 | -re ".* 529 105c 01566F3C" { set x [expr $x+1]; exp_continue; } | |
1587 | -re ".* 529 12344810" { set x [expr $x+1]; exp_continue; } | |
1588 | -re ".* 529 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1589 | -re ".* 530 " { | |
1590 | if [expr $x == 42] then { | |
1591 | pass "$testname: add.w @(0x1234:16,r3.w), ..." | |
1592 | } else { | |
1593 | fail "$testname: add.w @(0x1234:16,r3.w), ... ($x)" | |
1594 | } | |
1595 | } | |
1596 | default { fail "$testname: add.w @(0x1234:16,r3.w), ... ($x)" } | |
1597 | } | |
1598 | ||
1599 | set x 0 | |
1600 | expect { | |
1601 | -re ".* 531 1068 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1602 | -re ".* 531 12340110" { set x [expr $x+1]; exp_continue; } | |
1603 | -re ".* 532 1070 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1604 | -re ".* 532 12343110" { set x [expr $x+1]; exp_continue; } | |
1605 | -re ".* 533 1078 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1606 | -re ".* 533 1234B110" { set x [expr $x+1]; exp_continue; } | |
1607 | -re ".* 534 1080 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1608 | -re ".* 534 12348110" { set x [expr $x+1]; exp_continue; } | |
1609 | -re ".* 535 1088 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1610 | -re ".* 535 1234A110" { set x [expr $x+1]; exp_continue; } | |
1611 | -re ".* 536 1090 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1612 | -re ".* 536 12349110" { set x [expr $x+1]; exp_continue; } | |
1613 | -re ".* 537 1098 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1614 | -re ".* 537 1234C110" { set x [expr $x+1]; exp_continue; } | |
1615 | -re ".* 537 9ABC" { set x [expr $x+1]; exp_continue; } | |
1616 | -re ".* 538 10a2 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1617 | -re ".* 538 1234C910" { set x [expr $x+1]; exp_continue; } | |
1618 | -re ".* 538 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1619 | -re ".* 539 10ae 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1620 | -re ".* 539 1234D210" { set x [expr $x+1]; exp_continue; } | |
1621 | -re ".* 539 9ABC" { set x [expr $x+1]; exp_continue; } | |
1622 | -re ".* 540 10b8 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1623 | -re ".* 540 1234E210" { set x [expr $x+1]; exp_continue; } | |
1624 | -re ".* 540 9ABC" { set x [expr $x+1]; exp_continue; } | |
1625 | -re ".* 541 10c2 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1626 | -re ".* 541 1234F210" { set x [expr $x+1]; exp_continue; } | |
1627 | -re ".* 541 9ABC" { set x [expr $x+1]; exp_continue; } | |
1628 | -re ".* 542 10cc 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1629 | -re ".* 542 1234DA10" { set x [expr $x+1]; exp_continue; } | |
1630 | -re ".* 542 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1631 | -re ".* 543 10d8 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1632 | -re ".* 543 1234EA10" { set x [expr $x+1]; exp_continue; } | |
1633 | -re ".* 543 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1634 | -re ".* 544 10e4 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1635 | -re ".* 544 1234FA10" { set x [expr $x+1]; exp_continue; } | |
1636 | -re ".* 544 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1637 | -re ".* 545 10f0 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1638 | -re ".* 545 12344010" { set x [expr $x+1]; exp_continue; } | |
1639 | -re ".* 545 9ABC" { set x [expr $x+1]; exp_continue; } | |
1640 | -re ".* 546 10fa 01576F3C" { set x [expr $x+1]; exp_continue; } | |
1641 | -re ".* 546 12344810" { set x [expr $x+1]; exp_continue; } | |
1642 | -re ".* 546 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1643 | -re ".* 547 " { | |
1644 | if [expr $x == 42] then { | |
1645 | pass "$testname: add.w @(0x1234:16,er3.l), ..." | |
1646 | } else { | |
1647 | fail "$testname: add.w @(0x1234:16,er3.l), ... ($x)" | |
1648 | } | |
1649 | } | |
1650 | default { fail "$testname: add.w @(0x1234:16,er3.l), ... ($x)" } | |
1651 | } | |
1652 | ||
1653 | set x 0 | |
1654 | expect { | |
1655 | -re ".* 548 1106 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1656 | -re ".* 548 12345678" { set x [expr $x+1]; exp_continue; } | |
1657 | -re ".* 548 0110" { set x [expr $x+1]; exp_continue; } | |
1658 | -re ".* 549 1110 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1659 | -re ".* 549 12345678" { set x [expr $x+1]; exp_continue; } | |
1660 | -re ".* 549 3110" { set x [expr $x+1]; exp_continue; } | |
1661 | -re ".* 550 111a 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1662 | -re ".* 550 12345678" { set x [expr $x+1]; exp_continue; } | |
1663 | -re ".* 550 B110" { set x [expr $x+1]; exp_continue; } | |
1664 | -re ".* 551 1124 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1665 | -re ".* 551 12345678" { set x [expr $x+1]; exp_continue; } | |
1666 | -re ".* 551 8110" { set x [expr $x+1]; exp_continue; } | |
1667 | -re ".* 552 112e 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1668 | -re ".* 552 12345678" { set x [expr $x+1]; exp_continue; } | |
1669 | -re ".* 552 A110" { set x [expr $x+1]; exp_continue; } | |
1670 | -re ".* 553 1138 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1671 | -re ".* 553 12345678" { set x [expr $x+1]; exp_continue; } | |
1672 | -re ".* 553 9110" { set x [expr $x+1]; exp_continue; } | |
1673 | -re ".* 554 1142 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1674 | -re ".* 554 12345678" { set x [expr $x+1]; exp_continue; } | |
1675 | -re ".* 554 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1676 | -re ".* 555 114e 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1677 | -re ".* 555 12345678" { set x [expr $x+1]; exp_continue; } | |
1678 | -re ".* 555 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1679 | -re ".* 555 DEF0" { set x [expr $x+1]; exp_continue; } | |
1680 | -re ".* 556 115c 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1681 | -re ".* 556 12345678" { set x [expr $x+1]; exp_continue; } | |
1682 | -re ".* 556 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1683 | -re ".* 557 1168 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1684 | -re ".* 557 12345678" { set x [expr $x+1]; exp_continue; } | |
1685 | -re ".* 557 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1686 | -re ".* 558 1174 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1687 | -re ".* 558 12345678" { set x [expr $x+1]; exp_continue; } | |
1688 | -re ".* 558 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1689 | -re ".* 559 1180 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1690 | -re ".* 559 12345678" { set x [expr $x+1]; exp_continue; } | |
1691 | -re ".* 559 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1692 | -re ".* 559 DEF0" { set x [expr $x+1]; exp_continue; } | |
1693 | -re ".* 560 118e 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1694 | -re ".* 560 12345678" { set x [expr $x+1]; exp_continue; } | |
1695 | -re ".* 560 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1696 | -re ".* 560 DEF0" { set x [expr $x+1]; exp_continue; } | |
1697 | -re ".* 561 119c 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1698 | -re ".* 561 12345678" { set x [expr $x+1]; exp_continue; } | |
1699 | -re ".* 561 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1700 | -re ".* 561 DEF0" { set x [expr $x+1]; exp_continue; } | |
1701 | -re ".* 562 11aa 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1702 | -re ".* 562 12345678" { set x [expr $x+1]; exp_continue; } | |
1703 | -re ".* 562 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1704 | -re ".* 563 11b6 78356B2C" { set x [expr $x+1]; exp_continue; } | |
1705 | -re ".* 563 12345678" { set x [expr $x+1]; exp_continue; } | |
1706 | -re ".* 563 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1707 | -re ".* 563 DEF0" { set x [expr $x+1]; exp_continue; } | |
1708 | -re ".* 564 " { | |
1709 | if [expr $x == 53] then { | |
1710 | pass "$testname: add.w @(0x12345678:32,r3l.b), ..." | |
1711 | } else { | |
1712 | fail "$testname: add.w @(0x12345678:32,r3l.b), ... ($x)" | |
1713 | } | |
1714 | } | |
1715 | default { fail "$testname: add.w @(0x12345678:32,r3l.b), ... ($x)" } | |
1716 | } | |
1717 | ||
1718 | set x 0 | |
1719 | expect { | |
1720 | -re ".* 565 11c4 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1721 | -re ".* 565 12345678" { set x [expr $x+1]; exp_continue; } | |
1722 | -re ".* 565 0110" { set x [expr $x+1]; exp_continue; } | |
1723 | -re ".* 566 11ce 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1724 | -re ".* 566 12345678" { set x [expr $x+1]; exp_continue; } | |
1725 | -re ".* 566 3110" { set x [expr $x+1]; exp_continue; } | |
1726 | -re ".* 567 11d8 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1727 | -re ".* 567 12345678" { set x [expr $x+1]; exp_continue; } | |
1728 | -re ".* 567 B110" { set x [expr $x+1]; exp_continue; } | |
1729 | -re ".* 568 11e2 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1730 | -re ".* 568 12345678" { set x [expr $x+1]; exp_continue; } | |
1731 | -re ".* 568 8110" { set x [expr $x+1]; exp_continue; } | |
1732 | -re ".* 569 11ec 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1733 | -re ".* 569 12345678" { set x [expr $x+1]; exp_continue; } | |
1734 | -re ".* 569 A110" { set x [expr $x+1]; exp_continue; } | |
1735 | -re ".* 570 11f6 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1736 | -re ".* 570 12345678" { set x [expr $x+1]; exp_continue; } | |
1737 | -re ".* 570 9110" { set x [expr $x+1]; exp_continue; } | |
1738 | -re ".* 571 1200 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1739 | -re ".* 571 12345678" { set x [expr $x+1]; exp_continue; } | |
1740 | -re ".* 571 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1741 | -re ".* 572 120c 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1742 | -re ".* 572 12345678" { set x [expr $x+1]; exp_continue; } | |
1743 | -re ".* 572 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1744 | -re ".* 572 DEF0" { set x [expr $x+1]; exp_continue; } | |
1745 | -re ".* 573 121a 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1746 | -re ".* 573 12345678" { set x [expr $x+1]; exp_continue; } | |
1747 | -re ".* 573 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1748 | -re ".* 574 1226 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1749 | -re ".* 574 12345678" { set x [expr $x+1]; exp_continue; } | |
1750 | -re ".* 574 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1751 | -re ".* 575 1232 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1752 | -re ".* 575 12345678" { set x [expr $x+1]; exp_continue; } | |
1753 | -re ".* 575 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1754 | -re ".* 576 123e 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1755 | -re ".* 576 12345678" { set x [expr $x+1]; exp_continue; } | |
1756 | -re ".* 576 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1757 | -re ".* 576 DEF0" { set x [expr $x+1]; exp_continue; } | |
1758 | -re ".* 577 124c 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1759 | -re ".* 577 12345678" { set x [expr $x+1]; exp_continue; } | |
1760 | -re ".* 577 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1761 | -re ".* 577 DEF0" { set x [expr $x+1]; exp_continue; } | |
1762 | -re ".* 578 125a 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1763 | -re ".* 578 12345678" { set x [expr $x+1]; exp_continue; } | |
1764 | -re ".* 578 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1765 | -re ".* 578 DEF0" { set x [expr $x+1]; exp_continue; } | |
1766 | -re ".* 579 1268 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1767 | -re ".* 579 12345678" { set x [expr $x+1]; exp_continue; } | |
1768 | -re ".* 579 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1769 | -re ".* 580 1274 78366B2C" { set x [expr $x+1]; exp_continue; } | |
1770 | -re ".* 580 12345678" { set x [expr $x+1]; exp_continue; } | |
1771 | -re ".* 580 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1772 | -re ".* 580 DEF0" { set x [expr $x+1]; exp_continue; } | |
1773 | -re ".* 581 " { | |
1774 | if [expr $x == 53] then { | |
1775 | pass "$testname: add.w @(0x12345678:32,r3.w), ..." | |
1776 | } else { | |
1777 | fail "$testname: add.w @(0x12345678:32,r3.w), ... ($x)" | |
1778 | } | |
1779 | } | |
1780 | default { fail "$testname: add.w @(0x12345678:32,r3.w), ... ($x)" } | |
1781 | } | |
1782 | ||
1783 | set x 0 | |
1784 | expect { | |
1785 | -re ".* 582 1282 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1786 | -re ".* 582 12345678" { set x [expr $x+1]; exp_continue; } | |
1787 | -re ".* 582 0110" { set x [expr $x+1]; exp_continue; } | |
1788 | -re ".* 583 128c 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1789 | -re ".* 583 12345678" { set x [expr $x+1]; exp_continue; } | |
1790 | -re ".* 583 3110" { set x [expr $x+1]; exp_continue; } | |
1791 | -re ".* 584 1296 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1792 | -re ".* 584 12345678" { set x [expr $x+1]; exp_continue; } | |
1793 | -re ".* 584 B110" { set x [expr $x+1]; exp_continue; } | |
1794 | -re ".* 585 12a0 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1795 | -re ".* 585 12345678" { set x [expr $x+1]; exp_continue; } | |
1796 | -re ".* 585 8110" { set x [expr $x+1]; exp_continue; } | |
1797 | -re ".* 586 12aa 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1798 | -re ".* 586 12345678" { set x [expr $x+1]; exp_continue; } | |
1799 | -re ".* 586 A110" { set x [expr $x+1]; exp_continue; } | |
1800 | -re ".* 587 12b4 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1801 | -re ".* 587 12345678" { set x [expr $x+1]; exp_continue; } | |
1802 | -re ".* 587 9110" { set x [expr $x+1]; exp_continue; } | |
1803 | -re ".* 588 12be 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1804 | -re ".* 588 12345678" { set x [expr $x+1]; exp_continue; } | |
1805 | -re ".* 588 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1806 | -re ".* 589 12ca 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1807 | -re ".* 589 12345678" { set x [expr $x+1]; exp_continue; } | |
1808 | -re ".* 589 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1809 | -re ".* 589 DEF0" { set x [expr $x+1]; exp_continue; } | |
1810 | -re ".* 590 12d8 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1811 | -re ".* 590 12345678" { set x [expr $x+1]; exp_continue; } | |
1812 | -re ".* 590 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1813 | -re ".* 591 12e4 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1814 | -re ".* 591 12345678" { set x [expr $x+1]; exp_continue; } | |
1815 | -re ".* 591 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1816 | -re ".* 592 12f0 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1817 | -re ".* 592 12345678" { set x [expr $x+1]; exp_continue; } | |
1818 | -re ".* 592 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1819 | -re ".* 593 12fc 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1820 | -re ".* 593 12345678" { set x [expr $x+1]; exp_continue; } | |
1821 | -re ".* 593 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1822 | -re ".* 593 DEF0" { set x [expr $x+1]; exp_continue; } | |
1823 | -re ".* 594 130a 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1824 | -re ".* 594 12345678" { set x [expr $x+1]; exp_continue; } | |
1825 | -re ".* 594 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1826 | -re ".* 594 DEF0" { set x [expr $x+1]; exp_continue; } | |
1827 | -re ".* 595 1318 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1828 | -re ".* 595 12345678" { set x [expr $x+1]; exp_continue; } | |
1829 | -re ".* 595 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1830 | -re ".* 595 DEF0" { set x [expr $x+1]; exp_continue; } | |
1831 | -re ".* 596 1326 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1832 | -re ".* 596 12345678" { set x [expr $x+1]; exp_continue; } | |
1833 | -re ".* 596 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1834 | -re ".* 597 1332 78376B2C" { set x [expr $x+1]; exp_continue; } | |
1835 | -re ".* 597 12345678" { set x [expr $x+1]; exp_continue; } | |
1836 | -re ".* 597 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1837 | -re ".* 597 DEF0" { set x [expr $x+1]; exp_continue; } | |
1838 | -re ".* 598 " { | |
1839 | if [expr $x == 53] then { | |
1840 | pass "$testname: add.w @(0x12345678:32,er3.l), ..." | |
1841 | } else { | |
1842 | fail "$testname: add.w @(0x12345678:32,er3.l), ... ($x)" | |
1843 | } | |
1844 | } | |
1845 | default { fail "$testname: add.w @(0x12345678:32,er3.l), ... ($x)" } | |
1846 | } | |
1847 | ||
1848 | set x 0 | |
1849 | expect { | |
1850 | -re ".* 599 1340 6B151234" { set x [expr $x+1]; exp_continue; } | |
1851 | -re ".* 599 0110" { set x [expr $x+1]; exp_continue; } | |
1852 | -re ".* 600 1346 6B151234" { set x [expr $x+1]; exp_continue; } | |
1853 | -re ".* 600 3110" { set x [expr $x+1]; exp_continue; } | |
1854 | -re ".* 601 134c 6B151234" { set x [expr $x+1]; exp_continue; } | |
1855 | -re ".* 601 B110" { set x [expr $x+1]; exp_continue; } | |
1856 | -re ".* 602 1352 6B151234" { set x [expr $x+1]; exp_continue; } | |
1857 | -re ".* 602 8110" { set x [expr $x+1]; exp_continue; } | |
1858 | -re ".* 603 1358 6B151234" { set x [expr $x+1]; exp_continue; } | |
1859 | -re ".* 603 A110" { set x [expr $x+1]; exp_continue; } | |
1860 | -re ".* 604 135e 6B151234" { set x [expr $x+1]; exp_continue; } | |
1861 | -re ".* 604 9110" { set x [expr $x+1]; exp_continue; } | |
1862 | -re ".* 605 1364 6B151234" { set x [expr $x+1]; exp_continue; } | |
1863 | -re ".* 605 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
1864 | -re ".* 606 136c 6B151234" { set x [expr $x+1]; exp_continue; } | |
1865 | -re ".* 606 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
1866 | -re ".* 606 DEF0" { set x [expr $x+1]; exp_continue; } | |
1867 | -re ".* 607 1376 6B151234" { set x [expr $x+1]; exp_continue; } | |
1868 | -re ".* 607 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
1869 | -re ".* 608 137e 6B151234" { set x [expr $x+1]; exp_continue; } | |
1870 | -re ".* 608 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
1871 | -re ".* 609 1386 6B151234" { set x [expr $x+1]; exp_continue; } | |
1872 | -re ".* 609 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
1873 | -re ".* 610 138e 6B151234" { set x [expr $x+1]; exp_continue; } | |
1874 | -re ".* 610 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
1875 | -re ".* 610 DEF0" { set x [expr $x+1]; exp_continue; } | |
1876 | -re ".* 611 1398 6B151234" { set x [expr $x+1]; exp_continue; } | |
1877 | -re ".* 611 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
1878 | -re ".* 611 DEF0" { set x [expr $x+1]; exp_continue; } | |
1879 | -re ".* 612 13a2 6B151234" { set x [expr $x+1]; exp_continue; } | |
1880 | -re ".* 612 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
1881 | -re ".* 612 DEF0" { set x [expr $x+1]; exp_continue; } | |
1882 | -re ".* 613 13ac 6B151234" { set x [expr $x+1]; exp_continue; } | |
1883 | -re ".* 613 40109ABC" { set x [expr $x+1]; exp_continue; } | |
1884 | -re ".* 614 13b4 6B151234" { set x [expr $x+1]; exp_continue; } | |
1885 | -re ".* 614 48109ABC" { set x [expr $x+1]; exp_continue; } | |
1886 | -re ".* 614 DEF0" { set x [expr $x+1]; exp_continue; } | |
1887 | -re ".* 615 " { | |
1888 | if [expr $x == 37] then { | |
1889 | pass "$testname: add.w @0x1234:16, ..." | |
1890 | } else { | |
1891 | fail "$testname: add.w @0x1234:16, ... ($x)" | |
1892 | } | |
1893 | } | |
1894 | default { fail "$testname: add.w @0x1234:16, ... ($x)" } | |
1895 | } | |
1896 | ||
1897 | set x 0 | |
1898 | expect { | |
1899 | -re ".* 616 13be 6B351234" { set x [expr $x+1]; exp_continue; } | |
1900 | -re ".* 616 56780110" { set x [expr $x+1]; exp_continue; } | |
1901 | -re ".* 617 13c6 6B351234" { set x [expr $x+1]; exp_continue; } | |
1902 | -re ".* 617 56783110" { set x [expr $x+1]; exp_continue; } | |
1903 | -re ".* 618 13ce 6B351234" { set x [expr $x+1]; exp_continue; } | |
1904 | -re ".* 618 5678B110" { set x [expr $x+1]; exp_continue; } | |
1905 | -re ".* 619 13d6 6B351234" { set x [expr $x+1]; exp_continue; } | |
1906 | -re ".* 619 56788110" { set x [expr $x+1]; exp_continue; } | |
1907 | -re ".* 620 13de 6B351234" { set x [expr $x+1]; exp_continue; } | |
1908 | -re ".* 620 5678A110" { set x [expr $x+1]; exp_continue; } | |
1909 | -re ".* 621 13e6 6B351234" { set x [expr $x+1]; exp_continue; } | |
1910 | -re ".* 621 56789110" { set x [expr $x+1]; exp_continue; } | |
1911 | -re ".* 622 13ee 6B351234" { set x [expr $x+1]; exp_continue; } | |
1912 | -re ".* 622 5678C110" { set x [expr $x+1]; exp_continue; } | |
1913 | -re ".* 622 9ABC" { set x [expr $x+1]; exp_continue; } | |
1914 | -re ".* 623 13f8 6B351234" { set x [expr $x+1]; exp_continue; } | |
1915 | -re ".* 623 5678C910" { set x [expr $x+1]; exp_continue; } | |
1916 | -re ".* 623 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1917 | -re ".* 624 1404 6B351234" { set x [expr $x+1]; exp_continue; } | |
1918 | -re ".* 624 5678D210" { set x [expr $x+1]; exp_continue; } | |
1919 | -re ".* 624 9ABC" { set x [expr $x+1]; exp_continue; } | |
1920 | -re ".* 625 140e 6B351234" { set x [expr $x+1]; exp_continue; } | |
1921 | -re ".* 625 5678E210" { set x [expr $x+1]; exp_continue; } | |
1922 | -re ".* 625 9ABC" { set x [expr $x+1]; exp_continue; } | |
1923 | -re ".* 626 1418 6B351234" { set x [expr $x+1]; exp_continue; } | |
1924 | -re ".* 626 5678F210" { set x [expr $x+1]; exp_continue; } | |
1925 | -re ".* 626 9ABC" { set x [expr $x+1]; exp_continue; } | |
1926 | -re ".* 627 1422 6B351234" { set x [expr $x+1]; exp_continue; } | |
1927 | -re ".* 627 5678DA10" { set x [expr $x+1]; exp_continue; } | |
1928 | -re ".* 627 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1929 | -re ".* 628 142e 6B351234" { set x [expr $x+1]; exp_continue; } | |
1930 | -re ".* 628 5678EA10" { set x [expr $x+1]; exp_continue; } | |
1931 | -re ".* 628 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1932 | -re ".* 629 143a 6B351234" { set x [expr $x+1]; exp_continue; } | |
1933 | -re ".* 629 5678FA10" { set x [expr $x+1]; exp_continue; } | |
1934 | -re ".* 629 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1935 | -re ".* 630 1446 6B351234" { set x [expr $x+1]; exp_continue; } | |
1936 | -re ".* 630 56784010" { set x [expr $x+1]; exp_continue; } | |
1937 | -re ".* 630 9ABC" { set x [expr $x+1]; exp_continue; } | |
1938 | -re ".* 631 1450 6B351234" { set x [expr $x+1]; exp_continue; } | |
1939 | -re ".* 631 56784810" { set x [expr $x+1]; exp_continue; } | |
1940 | -re ".* 631 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1941 | -re ".* 632 " { | |
1942 | if [expr $x == 42] then { | |
1943 | pass "$testname: add.w @0x12345678:32, ..." | |
1944 | } else { | |
1945 | fail "$testname: add.w @0x12345678:32, ... ($x)" | |
1946 | } | |
1947 | } | |
1948 | default { fail "$testname: add.w @0x12345678:32, ... ($x)" } | |
1949 | } | |
1950 | ||
1951 | set x 0 | |
1952 | expect { | |
1953 | -re ".* 633 145c 7A111234" { set x [expr $x+1]; exp_continue; } | |
1954 | -re ".* 633 5678" { set x [expr $x+1]; exp_continue; } | |
1955 | -re ".* 634 1462 7A191234" { set x [expr $x+1]; exp_continue; } | |
1956 | -re ".* 635 1466 0AFA" { set x [expr $x+1]; exp_continue; } | |
1957 | -re ".* 636 1468 010E0118" { set x [expr $x+1]; exp_continue; } | |
1958 | -re ".* 636 12345678" { set x [expr $x+1]; exp_continue; } | |
1959 | -re ".* 637 1470 010E3118" { set x [expr $x+1]; exp_continue; } | |
1960 | -re ".* 637 12345678" { set x [expr $x+1]; exp_continue; } | |
1961 | -re ".* 638 1478 010E8118" { set x [expr $x+1]; exp_continue; } | |
1962 | -re ".* 638 12345678" { set x [expr $x+1]; exp_continue; } | |
1963 | -re ".* 639 1480 010EB118" { set x [expr $x+1]; exp_continue; } | |
1964 | -re ".* 639 12345678" { set x [expr $x+1]; exp_continue; } | |
1965 | -re ".* 640 1488 010E9118" { set x [expr $x+1]; exp_continue; } | |
1966 | -re ".* 640 12345678" { set x [expr $x+1]; exp_continue; } | |
1967 | -re ".* 641 1490 010EA118" { set x [expr $x+1]; exp_continue; } | |
1968 | -re ".* 641 12345678" { set x [expr $x+1]; exp_continue; } | |
1969 | -re ".* 642 1498 010EC118" { set x [expr $x+1]; exp_continue; } | |
1970 | -re ".* 642 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1971 | -re ".* 642 5678" { set x [expr $x+1]; exp_continue; } | |
1972 | -re ".* 643 14a2 010EC918" { set x [expr $x+1]; exp_continue; } | |
1973 | -re ".* 643 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1974 | -re ".* 643 12345678" { set x [expr $x+1]; exp_continue; } | |
1975 | -re ".* 644 14ae 010ED218" { set x [expr $x+1]; exp_continue; } | |
1976 | -re ".* 644 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1977 | -re ".* 644 5678" { set x [expr $x+1]; exp_continue; } | |
1978 | -re ".* 645 14b8 010EE218" { set x [expr $x+1]; exp_continue; } | |
1979 | -re ".* 645 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1980 | -re ".* 645 5678" { set x [expr $x+1]; exp_continue; } | |
1981 | -re ".* 646 14c2 010EF218" { set x [expr $x+1]; exp_continue; } | |
1982 | -re ".* 646 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1983 | -re ".* 646 5678" { set x [expr $x+1]; exp_continue; } | |
1984 | -re ".* 647 14cc 010EDA18" { set x [expr $x+1]; exp_continue; } | |
1985 | -re ".* 647 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1986 | -re ".* 647 12345678" { set x [expr $x+1]; exp_continue; } | |
1987 | -re ".* 648 14d8 010EEA18" { set x [expr $x+1]; exp_continue; } | |
1988 | -re ".* 648 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1989 | -re ".* 648 12345678" { set x [expr $x+1]; exp_continue; } | |
1990 | -re ".* 649 14e4 010EFA18" { set x [expr $x+1]; exp_continue; } | |
1991 | -re ".* 649 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1992 | -re ".* 649 12345678" { set x [expr $x+1]; exp_continue; } | |
1993 | -re ".* 650 14f0 010E4018" { set x [expr $x+1]; exp_continue; } | |
1994 | -re ".* 650 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
1995 | -re ".* 650 5678" { set x [expr $x+1]; exp_continue; } | |
1996 | -re ".* 651 14fa 010E4818" { set x [expr $x+1]; exp_continue; } | |
1997 | -re ".* 651 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
1998 | -re ".* 651 12345678" { set x [expr $x+1]; exp_continue; } | |
1999 | -re ".* 652 1506 010E0110" { set x [expr $x+1]; exp_continue; } | |
2000 | -re ".* 652 1234" { set x [expr $x+1]; exp_continue; } | |
2001 | -re ".* 653 150c 010E3110" { set x [expr $x+1]; exp_continue; } | |
2002 | -re ".* 653 1234" { set x [expr $x+1]; exp_continue; } | |
2003 | -re ".* 654 1512 010E8110" { set x [expr $x+1]; exp_continue; } | |
2004 | -re ".* 654 1234" { set x [expr $x+1]; exp_continue; } | |
2005 | -re ".* 655 1518 010EB110" { set x [expr $x+1]; exp_continue; } | |
2006 | -re ".* 655 1234" { set x [expr $x+1]; exp_continue; } | |
2007 | -re ".* 656 151e 010E9110" { set x [expr $x+1]; exp_continue; } | |
2008 | -re ".* 656 1234" { set x [expr $x+1]; exp_continue; } | |
2009 | -re ".* 657 1524 010EA110" { set x [expr $x+1]; exp_continue; } | |
2010 | -re ".* 657 1234" { set x [expr $x+1]; exp_continue; } | |
2011 | -re ".* 658 152a 010EC110" { set x [expr $x+1]; exp_continue; } | |
2012 | -re ".* 658 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
2013 | -re ".* 659 1532 010EC910" { set x [expr $x+1]; exp_continue; } | |
2014 | -re ".* 659 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2015 | -re ".* 659 1234" { set x [expr $x+1]; exp_continue; } | |
2016 | -re ".* 660 153c 010ED210" { set x [expr $x+1]; exp_continue; } | |
2017 | -re ".* 660 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
2018 | -re ".* 661 1544 010EE210" { set x [expr $x+1]; exp_continue; } | |
2019 | -re ".* 661 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
2020 | -re ".* 662 154c 010EF210" { set x [expr $x+1]; exp_continue; } | |
2021 | -re ".* 662 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
2022 | -re ".* 663 1554 010EDA10" { set x [expr $x+1]; exp_continue; } | |
2023 | -re ".* 663 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2024 | -re ".* 663 1234" { set x [expr $x+1]; exp_continue; } | |
2025 | -re ".* 664 155e 010EEA10" { set x [expr $x+1]; exp_continue; } | |
2026 | -re ".* 664 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2027 | -re ".* 664 1234" { set x [expr $x+1]; exp_continue; } | |
2028 | -re ".* 665 1568 010EFA10" { set x [expr $x+1]; exp_continue; } | |
2029 | -re ".* 665 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2030 | -re ".* 665 1234" { set x [expr $x+1]; exp_continue; } | |
2031 | -re ".* 666 1572 010E4010" { set x [expr $x+1]; exp_continue; } | |
2032 | -re ".* 666 9ABC1234" { set x [expr $x+1]; exp_continue; } | |
2033 | -re ".* 667 157a 010E4810" { set x [expr $x+1]; exp_continue; } | |
2034 | -re ".* 667 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2035 | -re ".* 667 1234" { set x [expr $x+1]; exp_continue; } | |
2036 | -re ".* 668 " { | |
2037 | if [expr $x == 83] then { | |
2038 | pass "$testname: add.l #0x1234:16, ..." | |
2039 | } else { | |
2040 | fail "$testname: add.l #0x1234:16, ... ($x)" | |
2041 | } | |
2042 | } | |
2043 | default { fail "$testname: add.l #0x1234:16, ... ($x)" } | |
2044 | } | |
2045 | ||
2046 | set x 0 | |
2047 | expect { | |
2048 | -re ".* 669 1584 0AB1" { set x [expr $x+1]; exp_continue; } | |
2049 | -re ".* 670 " { | |
2050 | if [expr $x == 1] then { | |
2051 | pass "$testname: add.l er3, er1" | |
2052 | } else { | |
2053 | fail "$testname: add.l er3, er1 ($x)" | |
2054 | } | |
2055 | } | |
2056 | default { fail "$testname: add.l er3, er1 ($x)" } | |
2057 | } | |
2058 | ||
2059 | set x 0 | |
2060 | expect { | |
2061 | -re ".* 671 1586 01090113" { set x [expr $x+1]; exp_continue; } | |
2062 | -re ".* 672 158a 01093113" { set x [expr $x+1]; exp_continue; } | |
2063 | -re ".* 673 158e 01098113" { set x [expr $x+1]; exp_continue; } | |
2064 | -re ".* 674 1592 0109B113" { set x [expr $x+1]; exp_continue; } | |
2065 | -re ".* 675 1596 01099113" { set x [expr $x+1]; exp_continue; } | |
2066 | -re ".* 676 159a 0109A113" { set x [expr $x+1]; exp_continue; } | |
2067 | -re ".* 677 159e 0109C113" { set x [expr $x+1]; exp_continue; } | |
2068 | -re ".* 677 1234" { set x [expr $x+1]; exp_continue; } | |
2069 | -re ".* 678 15a4 0109C913" { set x [expr $x+1]; exp_continue; } | |
2070 | -re ".* 678 12345678" { set x [expr $x+1]; exp_continue; } | |
2071 | -re ".* 679 15ac 0109D213" { set x [expr $x+1]; exp_continue; } | |
2072 | -re ".* 679 1234" { set x [expr $x+1]; exp_continue; } | |
2073 | -re ".* 680 15b2 0109E213" { set x [expr $x+1]; exp_continue; } | |
2074 | -re ".* 680 1234" { set x [expr $x+1]; exp_continue; } | |
2075 | -re ".* 681 15b8 0109F213" { set x [expr $x+1]; exp_continue; } | |
2076 | -re ".* 681 1234" { set x [expr $x+1]; exp_continue; } | |
2077 | -re ".* 682 15be 0109DA13" { set x [expr $x+1]; exp_continue; } | |
2078 | -re ".* 682 12345678" { set x [expr $x+1]; exp_continue; } | |
2079 | -re ".* 683 15c6 0109EA13" { set x [expr $x+1]; exp_continue; } | |
2080 | -re ".* 683 12345678" { set x [expr $x+1]; exp_continue; } | |
2081 | -re ".* 684 15ce 0109FA13" { set x [expr $x+1]; exp_continue; } | |
2082 | -re ".* 684 12345678" { set x [expr $x+1]; exp_continue; } | |
2083 | -re ".* 685 15d6 01094013" { set x [expr $x+1]; exp_continue; } | |
2084 | -re ".* 685 1234" { set x [expr $x+1]; exp_continue; } | |
2085 | -re ".* 686 15dc 01094813" { set x [expr $x+1]; exp_continue; } | |
2086 | -re ".* 686 12345678" { set x [expr $x+1]; exp_continue; } | |
2087 | -re ".* 687 " { | |
2088 | if [expr $x == 26] then { | |
2089 | pass "$testname: add.l er3, ..." | |
2090 | } else { | |
2091 | fail "$testname: add.l er3, ... ($x)" | |
2092 | } | |
2093 | } | |
2094 | default { fail "$testname: add.l er3, ... ($x)" } | |
2095 | } | |
2096 | ||
2097 | set x 0 | |
2098 | expect { | |
2099 | -re ".* 688 15e4 010A0311" { set x [expr $x+1]; exp_continue; } | |
2100 | -re ".* 689 15e8 010A3311" { set x [expr $x+1]; exp_continue; } | |
2101 | -re ".* 690 15ec 010A8311" { set x [expr $x+1]; exp_continue; } | |
2102 | -re ".* 691 15f0 010AB311" { set x [expr $x+1]; exp_continue; } | |
2103 | -re ".* 692 15f4 010A9311" { set x [expr $x+1]; exp_continue; } | |
2104 | -re ".* 693 15f8 010AA311" { set x [expr $x+1]; exp_continue; } | |
2105 | -re ".* 694 15fc 010AC111" { set x [expr $x+1]; exp_continue; } | |
2106 | -re ".* 694 1234" { set x [expr $x+1]; exp_continue; } | |
2107 | -re ".* 695 1602 010AC911" { set x [expr $x+1]; exp_continue; } | |
2108 | -re ".* 695 12345678" { set x [expr $x+1]; exp_continue; } | |
2109 | -re ".* 696 160a 010AD211" { set x [expr $x+1]; exp_continue; } | |
2110 | -re ".* 696 1234" { set x [expr $x+1]; exp_continue; } | |
2111 | -re ".* 697 1610 010AE211" { set x [expr $x+1]; exp_continue; } | |
2112 | -re ".* 697 1234" { set x [expr $x+1]; exp_continue; } | |
2113 | -re ".* 698 1616 010AF211" { set x [expr $x+1]; exp_continue; } | |
2114 | -re ".* 698 1234" { set x [expr $x+1]; exp_continue; } | |
2115 | -re ".* 699 161c 010ADA11" { set x [expr $x+1]; exp_continue; } | |
2116 | -re ".* 699 12345678" { set x [expr $x+1]; exp_continue; } | |
2117 | -re ".* 700 1624 010AEA11" { set x [expr $x+1]; exp_continue; } | |
2118 | -re ".* 700 12345678" { set x [expr $x+1]; exp_continue; } | |
2119 | -re ".* 701 162c 010AFA11" { set x [expr $x+1]; exp_continue; } | |
2120 | -re ".* 701 12345678" { set x [expr $x+1]; exp_continue; } | |
2121 | -re ".* 702 1634 010A4011" { set x [expr $x+1]; exp_continue; } | |
2122 | -re ".* 702 1234" { set x [expr $x+1]; exp_continue; } | |
2123 | -re ".* 703 163a 010A4811" { set x [expr $x+1]; exp_continue; } | |
2124 | -re ".* 703 12345678" { set x [expr $x+1]; exp_continue; } | |
2125 | -re ".* 704 " { | |
2126 | if [expr $x == 26] then { | |
2127 | pass "$testname: add.l ..., er1" | |
2128 | } else { | |
2129 | fail "$testname: add.l ..., er1 ($x)" | |
2130 | } | |
2131 | } | |
2132 | default { fail "$testname: add.l ..., er1 ($x)" } | |
2133 | } | |
2134 | ||
2135 | set x 0 | |
2136 | expect { | |
2137 | -re ".* 705 1642 0104693C" { set x [expr $x+1]; exp_continue; } | |
2138 | -re ".* 705 0110" { set x [expr $x+1]; exp_continue; } | |
2139 | -re ".* 706 1648 0104693C" { set x [expr $x+1]; exp_continue; } | |
2140 | -re ".* 706 3110" { set x [expr $x+1]; exp_continue; } | |
2141 | -re ".* 707 164e 0104693C" { set x [expr $x+1]; exp_continue; } | |
2142 | -re ".* 707 B110" { set x [expr $x+1]; exp_continue; } | |
2143 | -re ".* 708 1654 0104693C" { set x [expr $x+1]; exp_continue; } | |
2144 | -re ".* 708 8110" { set x [expr $x+1]; exp_continue; } | |
2145 | -re ".* 709 165a 0104693C" { set x [expr $x+1]; exp_continue; } | |
2146 | -re ".* 709 A110" { set x [expr $x+1]; exp_continue; } | |
2147 | -re ".* 710 1660 0104693C" { set x [expr $x+1]; exp_continue; } | |
2148 | -re ".* 710 9110" { set x [expr $x+1]; exp_continue; } | |
2149 | -re ".* 711 1666 0104693C" { set x [expr $x+1]; exp_continue; } | |
2150 | -re ".* 711 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2151 | -re ".* 712 166e 0104693C" { set x [expr $x+1]; exp_continue; } | |
2152 | -re ".* 712 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2153 | -re ".* 712 DEF0" { set x [expr $x+1]; exp_continue; } | |
2154 | -re ".* 713 1678 0104693C" { set x [expr $x+1]; exp_continue; } | |
2155 | -re ".* 713 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2156 | -re ".* 714 1680 0104693C" { set x [expr $x+1]; exp_continue; } | |
2157 | -re ".* 714 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2158 | -re ".* 715 1688 0104693C" { set x [expr $x+1]; exp_continue; } | |
2159 | -re ".* 715 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2160 | -re ".* 716 1690 0104693C" { set x [expr $x+1]; exp_continue; } | |
2161 | -re ".* 716 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2162 | -re ".* 716 DEF0" { set x [expr $x+1]; exp_continue; } | |
2163 | -re ".* 717 169a 0104693C" { set x [expr $x+1]; exp_continue; } | |
2164 | -re ".* 717 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2165 | -re ".* 717 DEF0" { set x [expr $x+1]; exp_continue; } | |
2166 | -re ".* 718 16a4 0104693C" { set x [expr $x+1]; exp_continue; } | |
2167 | -re ".* 718 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2168 | -re ".* 718 DEF0" { set x [expr $x+1]; exp_continue; } | |
2169 | -re ".* 719 16ae 0104693C" { set x [expr $x+1]; exp_continue; } | |
2170 | -re ".* 719 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2171 | -re ".* 720 16b6 0104693C" { set x [expr $x+1]; exp_continue; } | |
2172 | -re ".* 720 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2173 | -re ".* 720 DEF0" { set x [expr $x+1]; exp_continue; } | |
2174 | -re ".* 721 " { | |
2175 | if [expr $x == 37] then { | |
2176 | pass "$testname: add.l @er3, ..." | |
2177 | } else { | |
2178 | fail "$testname: add.l @er3, ... ($x)" | |
2179 | } | |
2180 | } | |
2181 | default { fail "$testname: add.l @er3, ... ($x)" } | |
2182 | } | |
2183 | ||
2184 | set x 0 | |
2185 | expect { | |
2186 | -re ".* 722 16c0 0107693C" { set x [expr $x+1]; exp_continue; } | |
2187 | -re ".* 722 0110" { set x [expr $x+1]; exp_continue; } | |
2188 | -re ".* 723 16c6 0107693C" { set x [expr $x+1]; exp_continue; } | |
2189 | -re ".* 723 3110" { set x [expr $x+1]; exp_continue; } | |
2190 | -re ".* 724 16cc 0107693C" { set x [expr $x+1]; exp_continue; } | |
2191 | -re ".* 724 B110" { set x [expr $x+1]; exp_continue; } | |
2192 | -re ".* 725 16d2 0107693C" { set x [expr $x+1]; exp_continue; } | |
2193 | -re ".* 725 8110" { set x [expr $x+1]; exp_continue; } | |
2194 | -re ".* 726 16d8 0107693C" { set x [expr $x+1]; exp_continue; } | |
2195 | -re ".* 726 A110" { set x [expr $x+1]; exp_continue; } | |
2196 | -re ".* 727 16de 0107693C" { set x [expr $x+1]; exp_continue; } | |
2197 | -re ".* 727 9110" { set x [expr $x+1]; exp_continue; } | |
2198 | -re ".* 728 16e4 0107693C" { set x [expr $x+1]; exp_continue; } | |
2199 | -re ".* 728 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2200 | -re ".* 729 16ec 0107693C" { set x [expr $x+1]; exp_continue; } | |
2201 | -re ".* 729 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2202 | -re ".* 729 DEF0" { set x [expr $x+1]; exp_continue; } | |
2203 | -re ".* 730 16f6 0107693C" { set x [expr $x+1]; exp_continue; } | |
2204 | -re ".* 730 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2205 | -re ".* 731 16fe 0107693C" { set x [expr $x+1]; exp_continue; } | |
2206 | -re ".* 731 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2207 | -re ".* 732 1706 0107693C" { set x [expr $x+1]; exp_continue; } | |
2208 | -re ".* 732 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2209 | -re ".* 733 170e 0107693C" { set x [expr $x+1]; exp_continue; } | |
2210 | -re ".* 733 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2211 | -re ".* 733 DEF0" { set x [expr $x+1]; exp_continue; } | |
2212 | -re ".* 734 1718 0107693C" { set x [expr $x+1]; exp_continue; } | |
2213 | -re ".* 734 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2214 | -re ".* 734 DEF0" { set x [expr $x+1]; exp_continue; } | |
2215 | -re ".* 735 1722 0107693C" { set x [expr $x+1]; exp_continue; } | |
2216 | -re ".* 735 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2217 | -re ".* 735 DEF0" { set x [expr $x+1]; exp_continue; } | |
2218 | -re ".* 736 172c 0107693C" { set x [expr $x+1]; exp_continue; } | |
2219 | -re ".* 736 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2220 | -re ".* 737 1734 0107693C" { set x [expr $x+1]; exp_continue; } | |
2221 | -re ".* 737 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2222 | -re ".* 737 DEF0" { set x [expr $x+1]; exp_continue; } | |
2223 | -re ".* 738 " { | |
2224 | if [expr $x == 37] then { | |
2225 | pass "$testname: add.l @(0xc:2,er3), ..." | |
2226 | } else { | |
2227 | fail "$testname: add.l @(0xc:2,er3), ... ($x)" | |
2228 | } | |
2229 | } | |
2230 | default { fail "$testname: add.l @(0xc:2,er3), ... ($x)" } | |
2231 | } | |
2232 | ||
2233 | set x 0 | |
2234 | expect { | |
2235 | -re ".* 739 173e 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2236 | -re ".* 739 0110" { set x [expr $x+1]; exp_continue; } | |
2237 | -re ".* 740 1744 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2238 | -re ".* 740 3110" { set x [expr $x+1]; exp_continue; } | |
2239 | -re ".* 741 174a 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2240 | -re ".* 741 B110" { set x [expr $x+1]; exp_continue; } | |
2241 | -re ".* 742 1750 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2242 | -re ".* 742 8110" { set x [expr $x+1]; exp_continue; } | |
2243 | -re ".* 743 1756 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2244 | -re ".* 743 A110" { set x [expr $x+1]; exp_continue; } | |
2245 | -re ".* 744 175c 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2246 | -re ".* 744 9110" { set x [expr $x+1]; exp_continue; } | |
2247 | -re ".* 745 1762 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2248 | -re ".* 745 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2249 | -re ".* 746 176a 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2250 | -re ".* 746 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2251 | -re ".* 746 DEF0" { set x [expr $x+1]; exp_continue; } | |
2252 | -re ".* 747 1774 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2253 | -re ".* 747 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2254 | -re ".* 748 177c 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2255 | -re ".* 748 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2256 | -re ".* 749 1784 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2257 | -re ".* 749 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2258 | -re ".* 750 178c 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2259 | -re ".* 750 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2260 | -re ".* 750 DEF0" { set x [expr $x+1]; exp_continue; } | |
2261 | -re ".* 751 1796 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2262 | -re ".* 751 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2263 | -re ".* 751 DEF0" { set x [expr $x+1]; exp_continue; } | |
2264 | -re ".* 752 17a0 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2265 | -re ".* 752 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2266 | -re ".* 752 DEF0" { set x [expr $x+1]; exp_continue; } | |
2267 | -re ".* 753 17aa 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2268 | -re ".* 753 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2269 | -re ".* 754 17b2 01076D3C" { set x [expr $x+1]; exp_continue; } | |
2270 | -re ".* 754 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2271 | -re ".* 754 DEF0" { set x [expr $x+1]; exp_continue; } | |
2272 | -re ".* 755 " { | |
2273 | if [expr $x == 37] then { | |
2274 | pass "$testname: add.l @-er3, ..." | |
2275 | } else { | |
2276 | fail "$testname: add.l @-er3, ... ($x)" | |
2277 | } | |
2278 | } | |
2279 | default { fail "$testname: add.l @-er3, ... ($x)" } | |
2280 | } | |
2281 | ||
2282 | set x 0 | |
2283 | expect { | |
2284 | -re ".* 756 17bc 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2285 | -re ".* 756 0110" { set x [expr $x+1]; exp_continue; } | |
2286 | -re ".* 757 17c2 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2287 | -re ".* 757 3110" { set x [expr $x+1]; exp_continue; } | |
2288 | -re ".* 758 17c8 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2289 | -re ".* 758 B110" { set x [expr $x+1]; exp_continue; } | |
2290 | -re ".* 759 17ce 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2291 | -re ".* 759 8110" { set x [expr $x+1]; exp_continue; } | |
2292 | -re ".* 760 17d4 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2293 | -re ".* 760 A110" { set x [expr $x+1]; exp_continue; } | |
2294 | -re ".* 761 17da 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2295 | -re ".* 761 9110" { set x [expr $x+1]; exp_continue; } | |
2296 | -re ".* 762 17e0 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2297 | -re ".* 762 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2298 | -re ".* 763 17e8 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2299 | -re ".* 763 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2300 | -re ".* 763 DEF0" { set x [expr $x+1]; exp_continue; } | |
2301 | -re ".* 764 17f2 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2302 | -re ".* 764 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2303 | -re ".* 765 17fa 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2304 | -re ".* 765 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2305 | -re ".* 766 1802 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2306 | -re ".* 766 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2307 | -re ".* 767 180a 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2308 | -re ".* 767 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2309 | -re ".* 767 DEF0" { set x [expr $x+1]; exp_continue; } | |
2310 | -re ".* 768 1814 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2311 | -re ".* 768 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2312 | -re ".* 768 DEF0" { set x [expr $x+1]; exp_continue; } | |
2313 | -re ".* 769 181e 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2314 | -re ".* 769 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2315 | -re ".* 769 DEF0" { set x [expr $x+1]; exp_continue; } | |
2316 | -re ".* 770 1828 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2317 | -re ".* 770 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2318 | -re ".* 771 1830 01046D3C" { set x [expr $x+1]; exp_continue; } | |
2319 | -re ".* 771 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2320 | -re ".* 771 DEF0" { set x [expr $x+1]; exp_continue; } | |
2321 | -re ".* 772 " { | |
2322 | if [expr $x == 37] then { | |
2323 | pass "$testname: add.l @er3+, ..." | |
2324 | } else { | |
2325 | fail "$testname: add.l @er3+, ... ($x)" | |
2326 | } | |
2327 | } | |
2328 | default { fail "$testname: add.l @er3+, ... ($x)" } | |
2329 | } | |
2330 | ||
2331 | set x 0 | |
2332 | expect { | |
2333 | -re ".* 773 183a 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2334 | -re ".* 773 0110" { set x [expr $x+1]; exp_continue; } | |
2335 | -re ".* 774 1840 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2336 | -re ".* 774 3110" { set x [expr $x+1]; exp_continue; } | |
2337 | -re ".* 775 1846 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2338 | -re ".* 775 B110" { set x [expr $x+1]; exp_continue; } | |
2339 | -re ".* 776 184c 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2340 | -re ".* 776 8110" { set x [expr $x+1]; exp_continue; } | |
2341 | -re ".* 777 1852 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2342 | -re ".* 777 A110" { set x [expr $x+1]; exp_continue; } | |
2343 | -re ".* 778 1858 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2344 | -re ".* 778 9110" { set x [expr $x+1]; exp_continue; } | |
2345 | -re ".* 779 185e 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2346 | -re ".* 779 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2347 | -re ".* 780 1866 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2348 | -re ".* 780 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2349 | -re ".* 780 DEF0" { set x [expr $x+1]; exp_continue; } | |
2350 | -re ".* 781 1870 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2351 | -re ".* 781 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2352 | -re ".* 782 1878 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2353 | -re ".* 782 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2354 | -re ".* 783 1880 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2355 | -re ".* 783 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2356 | -re ".* 784 1888 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2357 | -re ".* 784 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2358 | -re ".* 784 DEF0" { set x [expr $x+1]; exp_continue; } | |
2359 | -re ".* 785 1892 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2360 | -re ".* 785 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2361 | -re ".* 785 DEF0" { set x [expr $x+1]; exp_continue; } | |
2362 | -re ".* 786 189c 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2363 | -re ".* 786 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2364 | -re ".* 786 DEF0" { set x [expr $x+1]; exp_continue; } | |
2365 | -re ".* 787 18a6 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2366 | -re ".* 787 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2367 | -re ".* 788 18ae 01066D3C" { set x [expr $x+1]; exp_continue; } | |
2368 | -re ".* 788 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2369 | -re ".* 788 DEF0" { set x [expr $x+1]; exp_continue; } | |
2370 | -re ".* 789 " { | |
2371 | if [expr $x == 37] then { | |
2372 | pass "$testname: add.l @er3-, ..." | |
2373 | } else { | |
2374 | fail "$testname: add.l @er3-, ... ($x)" | |
2375 | } | |
2376 | } | |
2377 | default { fail "$testname: add.l @er3-, ... ($x)" } | |
2378 | } | |
2379 | ||
2380 | set x 0 | |
2381 | expect { | |
2382 | -re ".* 790 18b8 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2383 | -re ".* 790 0110" { set x [expr $x+1]; exp_continue; } | |
2384 | -re ".* 791 18be 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2385 | -re ".* 791 3110" { set x [expr $x+1]; exp_continue; } | |
2386 | -re ".* 792 18c4 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2387 | -re ".* 792 B110" { set x [expr $x+1]; exp_continue; } | |
2388 | -re ".* 793 18ca 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2389 | -re ".* 793 8110" { set x [expr $x+1]; exp_continue; } | |
2390 | -re ".* 794 18d0 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2391 | -re ".* 794 A110" { set x [expr $x+1]; exp_continue; } | |
2392 | -re ".* 795 18d6 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2393 | -re ".* 795 9110" { set x [expr $x+1]; exp_continue; } | |
2394 | -re ".* 796 18dc 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2395 | -re ".* 796 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2396 | -re ".* 797 18e4 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2397 | -re ".* 797 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2398 | -re ".* 797 DEF0" { set x [expr $x+1]; exp_continue; } | |
2399 | -re ".* 798 18ee 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2400 | -re ".* 798 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2401 | -re ".* 799 18f6 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2402 | -re ".* 799 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2403 | -re ".* 800 18fe 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2404 | -re ".* 800 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2405 | -re ".* 801 1906 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2406 | -re ".* 801 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2407 | -re ".* 801 DEF0" { set x [expr $x+1]; exp_continue; } | |
2408 | -re ".* 802 1910 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2409 | -re ".* 802 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2410 | -re ".* 802 DEF0" { set x [expr $x+1]; exp_continue; } | |
2411 | -re ".* 803 191a 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2412 | -re ".* 803 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2413 | -re ".* 803 DEF0" { set x [expr $x+1]; exp_continue; } | |
2414 | -re ".* 804 1924 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2415 | -re ".* 804 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2416 | -re ".* 805 192c 01056D3C" { set x [expr $x+1]; exp_continue; } | |
2417 | -re ".* 805 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2418 | -re ".* 805 DEF0" { set x [expr $x+1]; exp_continue; } | |
2419 | -re ".* 806 " { | |
2420 | if [expr $x == 37] then { | |
2421 | pass "$testname: add.l @+er3, ..." | |
2422 | } else { | |
2423 | fail "$testname: add.l @+er3, ... ($x)" | |
2424 | } | |
2425 | } | |
2426 | default { fail "$testname: add.l @+er3, ... ($x)" } | |
2427 | } | |
2428 | ||
2429 | set x 0 | |
2430 | expect { | |
2431 | -re ".* 807 1936 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2432 | -re ".* 807 12340110" { set x [expr $x+1]; exp_continue; } | |
2433 | -re ".* 808 193e 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2434 | -re ".* 808 12343110" { set x [expr $x+1]; exp_continue; } | |
2435 | -re ".* 809 1946 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2436 | -re ".* 809 1234B110" { set x [expr $x+1]; exp_continue; } | |
2437 | -re ".* 810 194e 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2438 | -re ".* 810 12348110" { set x [expr $x+1]; exp_continue; } | |
2439 | -re ".* 811 1956 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2440 | -re ".* 811 1234A110" { set x [expr $x+1]; exp_continue; } | |
2441 | -re ".* 812 195e 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2442 | -re ".* 812 12349110" { set x [expr $x+1]; exp_continue; } | |
2443 | -re ".* 813 1966 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2444 | -re ".* 813 1234C110" { set x [expr $x+1]; exp_continue; } | |
2445 | -re ".* 813 9ABC" { set x [expr $x+1]; exp_continue; } | |
2446 | -re ".* 814 1970 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2447 | -re ".* 814 1234C910" { set x [expr $x+1]; exp_continue; } | |
2448 | -re ".* 814 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2449 | -re ".* 815 197c 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2450 | -re ".* 815 1234D210" { set x [expr $x+1]; exp_continue; } | |
2451 | -re ".* 815 9ABC" { set x [expr $x+1]; exp_continue; } | |
2452 | -re ".* 816 1986 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2453 | -re ".* 816 1234E210" { set x [expr $x+1]; exp_continue; } | |
2454 | -re ".* 816 9ABC" { set x [expr $x+1]; exp_continue; } | |
2455 | -re ".* 817 1990 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2456 | -re ".* 817 1234F210" { set x [expr $x+1]; exp_continue; } | |
2457 | -re ".* 817 9ABC" { set x [expr $x+1]; exp_continue; } | |
2458 | -re ".* 818 199a 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2459 | -re ".* 818 1234DA10" { set x [expr $x+1]; exp_continue; } | |
2460 | -re ".* 818 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2461 | -re ".* 819 19a6 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2462 | -re ".* 819 1234EA10" { set x [expr $x+1]; exp_continue; } | |
2463 | -re ".* 819 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2464 | -re ".* 820 19b2 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2465 | -re ".* 820 1234FA10" { set x [expr $x+1]; exp_continue; } | |
2466 | -re ".* 820 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2467 | -re ".* 821 19be 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2468 | -re ".* 821 12344010" { set x [expr $x+1]; exp_continue; } | |
2469 | -re ".* 821 9ABC" { set x [expr $x+1]; exp_continue; } | |
2470 | -re ".* 822 19c8 01046F3C" { set x [expr $x+1]; exp_continue; } | |
2471 | -re ".* 822 12344810" { set x [expr $x+1]; exp_continue; } | |
2472 | -re ".* 822 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2473 | -re ".* 823 " { | |
2474 | if [expr $x == 42] then { | |
2475 | pass "$testname: add.l @(0x1234:16,er3), ..." | |
2476 | } else { | |
2477 | fail "$testname: add.l @(0x1234:16,er3), ... ($x)" | |
2478 | } | |
2479 | } | |
2480 | default { fail "$testname: add.l @(0x1234:16,er3), ... ($x)" } | |
2481 | } | |
2482 | ||
2483 | set x 0 | |
2484 | expect { | |
2485 | -re ".* 824 19d4 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2486 | -re ".* 824 12345678" { set x [expr $x+1]; exp_continue; } | |
2487 | -re ".* 824 0110" { set x [expr $x+1]; exp_continue; } | |
2488 | -re ".* 825 19de 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2489 | -re ".* 825 12345678" { set x [expr $x+1]; exp_continue; } | |
2490 | -re ".* 825 3110" { set x [expr $x+1]; exp_continue; } | |
2491 | -re ".* 826 19e8 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2492 | -re ".* 826 12345678" { set x [expr $x+1]; exp_continue; } | |
2493 | -re ".* 826 B110" { set x [expr $x+1]; exp_continue; } | |
2494 | -re ".* 827 19f2 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2495 | -re ".* 827 12345678" { set x [expr $x+1]; exp_continue; } | |
2496 | -re ".* 827 8110" { set x [expr $x+1]; exp_continue; } | |
2497 | -re ".* 828 19fc 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2498 | -re ".* 828 12345678" { set x [expr $x+1]; exp_continue; } | |
2499 | -re ".* 828 A110" { set x [expr $x+1]; exp_continue; } | |
2500 | -re ".* 829 1a06 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2501 | -re ".* 829 12345678" { set x [expr $x+1]; exp_continue; } | |
2502 | -re ".* 829 9110" { set x [expr $x+1]; exp_continue; } | |
2503 | -re ".* 830 1a10 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2504 | -re ".* 830 12345678" { set x [expr $x+1]; exp_continue; } | |
2505 | -re ".* 830 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2506 | -re ".* 831 1a1c 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2507 | -re ".* 831 12345678" { set x [expr $x+1]; exp_continue; } | |
2508 | -re ".* 831 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2509 | -re ".* 831 DEF0" { set x [expr $x+1]; exp_continue; } | |
2510 | -re ".* 832 1a2a 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2511 | -re ".* 832 12345678" { set x [expr $x+1]; exp_continue; } | |
2512 | -re ".* 832 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2513 | -re ".* 833 1a36 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2514 | -re ".* 833 12345678" { set x [expr $x+1]; exp_continue; } | |
2515 | -re ".* 833 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2516 | -re ".* 834 1a42 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2517 | -re ".* 834 12345678" { set x [expr $x+1]; exp_continue; } | |
2518 | -re ".* 834 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2519 | -re ".* 835 1a4e 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2520 | -re ".* 835 12345678" { set x [expr $x+1]; exp_continue; } | |
2521 | -re ".* 835 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2522 | -re ".* 835 DEF0" { set x [expr $x+1]; exp_continue; } | |
2523 | -re ".* 836 1a5c 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2524 | -re ".* 836 12345678" { set x [expr $x+1]; exp_continue; } | |
2525 | -re ".* 836 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2526 | -re ".* 836 DEF0" { set x [expr $x+1]; exp_continue; } | |
2527 | -re ".* 837 1a6a 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2528 | -re ".* 837 12345678" { set x [expr $x+1]; exp_continue; } | |
2529 | -re ".* 837 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2530 | -re ".* 837 DEF0" { set x [expr $x+1]; exp_continue; } | |
2531 | -re ".* 838 1a78 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2532 | -re ".* 838 12345678" { set x [expr $x+1]; exp_continue; } | |
2533 | -re ".* 838 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2534 | -re ".* 839 1a84 78B46B2C" { set x [expr $x+1]; exp_continue; } | |
2535 | -re ".* 839 12345678" { set x [expr $x+1]; exp_continue; } | |
2536 | -re ".* 839 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2537 | -re ".* 839 DEF0" { set x [expr $x+1]; exp_continue; } | |
2538 | -re ".* 840 " { | |
2539 | if [expr $x == 53] then { | |
2540 | pass "$testname: add.l @(0x12345678:32,er3), ..." | |
2541 | } else { | |
2542 | fail "$testname: add.l @(0x12345678:32,er3), ... ($x)" | |
2543 | } | |
2544 | } | |
2545 | default { fail "$testname: add.l @(0x12345678:32,er3), ... ($x)" } | |
2546 | } | |
2547 | ||
2548 | set x 0 | |
2549 | expect { | |
2550 | -re ".* 841 1a92 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2551 | -re ".* 841 12340110" { set x [expr $x+1]; exp_continue; } | |
2552 | -re ".* 842 1a9a 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2553 | -re ".* 842 12343110" { set x [expr $x+1]; exp_continue; } | |
2554 | -re ".* 843 1aa2 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2555 | -re ".* 843 1234B110" { set x [expr $x+1]; exp_continue; } | |
2556 | -re ".* 844 1aaa 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2557 | -re ".* 844 12348110" { set x [expr $x+1]; exp_continue; } | |
2558 | -re ".* 845 1ab2 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2559 | -re ".* 845 1234A110" { set x [expr $x+1]; exp_continue; } | |
2560 | -re ".* 846 1aba 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2561 | -re ".* 846 12349110" { set x [expr $x+1]; exp_continue; } | |
2562 | -re ".* 847 1ac2 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2563 | -re ".* 847 1234C110" { set x [expr $x+1]; exp_continue; } | |
2564 | -re ".* 847 9ABC" { set x [expr $x+1]; exp_continue; } | |
2565 | -re ".* 848 1acc 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2566 | -re ".* 848 1234C910" { set x [expr $x+1]; exp_continue; } | |
2567 | -re ".* 848 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2568 | -re ".* 849 1ad8 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2569 | -re ".* 849 1234D210" { set x [expr $x+1]; exp_continue; } | |
2570 | -re ".* 849 9ABC" { set x [expr $x+1]; exp_continue; } | |
2571 | -re ".* 850 1ae2 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2572 | -re ".* 850 1234E210" { set x [expr $x+1]; exp_continue; } | |
2573 | -re ".* 850 9ABC" { set x [expr $x+1]; exp_continue; } | |
2574 | -re ".* 851 1aec 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2575 | -re ".* 851 1234F210" { set x [expr $x+1]; exp_continue; } | |
2576 | -re ".* 851 9ABC" { set x [expr $x+1]; exp_continue; } | |
2577 | -re ".* 852 1af6 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2578 | -re ".* 852 1234DA10" { set x [expr $x+1]; exp_continue; } | |
2579 | -re ".* 852 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2580 | -re ".* 853 1b02 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2581 | -re ".* 853 1234EA10" { set x [expr $x+1]; exp_continue; } | |
2582 | -re ".* 853 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2583 | -re ".* 854 1b0e 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2584 | -re ".* 854 1234FA10" { set x [expr $x+1]; exp_continue; } | |
2585 | -re ".* 854 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2586 | -re ".* 855 1b1a 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2587 | -re ".* 855 12344010" { set x [expr $x+1]; exp_continue; } | |
2588 | -re ".* 855 9ABC" { set x [expr $x+1]; exp_continue; } | |
2589 | -re ".* 856 1b24 01056F3C" { set x [expr $x+1]; exp_continue; } | |
2590 | -re ".* 856 12344810" { set x [expr $x+1]; exp_continue; } | |
2591 | -re ".* 856 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2592 | -re ".* 857 " { | |
2593 | if [expr $x == 42] then { | |
2594 | pass "$testname: add.l @(0x1234:16,r3l.b), ..." | |
2595 | } else { | |
2596 | fail "$testname: add.l @(0x1234:16,r3l.b), ... ($x)" | |
2597 | } | |
2598 | } | |
2599 | default { fail "$testname: add.l @(0x1234:16,r3l.b), ... ($x)" } | |
2600 | } | |
2601 | ||
2602 | set x 0 | |
2603 | expect { | |
2604 | -re ".* 858 1b30 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2605 | -re ".* 858 12340110" { set x [expr $x+1]; exp_continue; } | |
2606 | -re ".* 859 1b38 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2607 | -re ".* 859 12343110" { set x [expr $x+1]; exp_continue; } | |
2608 | -re ".* 860 1b40 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2609 | -re ".* 860 1234B110" { set x [expr $x+1]; exp_continue; } | |
2610 | -re ".* 861 1b48 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2611 | -re ".* 861 12348110" { set x [expr $x+1]; exp_continue; } | |
2612 | -re ".* 862 1b50 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2613 | -re ".* 862 1234A110" { set x [expr $x+1]; exp_continue; } | |
2614 | -re ".* 863 1b58 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2615 | -re ".* 863 12349110" { set x [expr $x+1]; exp_continue; } | |
2616 | -re ".* 864 1b60 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2617 | -re ".* 864 1234C110" { set x [expr $x+1]; exp_continue; } | |
2618 | -re ".* 864 9ABC" { set x [expr $x+1]; exp_continue; } | |
2619 | -re ".* 865 1b6a 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2620 | -re ".* 865 1234C910" { set x [expr $x+1]; exp_continue; } | |
2621 | -re ".* 865 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2622 | -re ".* 866 1b76 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2623 | -re ".* 866 1234D210" { set x [expr $x+1]; exp_continue; } | |
2624 | -re ".* 866 9ABC" { set x [expr $x+1]; exp_continue; } | |
2625 | -re ".* 867 1b80 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2626 | -re ".* 867 1234E210" { set x [expr $x+1]; exp_continue; } | |
2627 | -re ".* 867 9ABC" { set x [expr $x+1]; exp_continue; } | |
2628 | -re ".* 868 1b8a 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2629 | -re ".* 868 1234F210" { set x [expr $x+1]; exp_continue; } | |
2630 | -re ".* 868 9ABC" { set x [expr $x+1]; exp_continue; } | |
2631 | -re ".* 869 1b94 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2632 | -re ".* 869 1234DA10" { set x [expr $x+1]; exp_continue; } | |
2633 | -re ".* 869 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2634 | -re ".* 870 1ba0 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2635 | -re ".* 870 1234EA10" { set x [expr $x+1]; exp_continue; } | |
2636 | -re ".* 870 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2637 | -re ".* 871 1bac 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2638 | -re ".* 871 1234FA10" { set x [expr $x+1]; exp_continue; } | |
2639 | -re ".* 871 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2640 | -re ".* 872 1bb8 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2641 | -re ".* 872 12344010" { set x [expr $x+1]; exp_continue; } | |
2642 | -re ".* 872 9ABC" { set x [expr $x+1]; exp_continue; } | |
2643 | -re ".* 873 1bc2 01066F3C" { set x [expr $x+1]; exp_continue; } | |
2644 | -re ".* 873 12344810" { set x [expr $x+1]; exp_continue; } | |
2645 | -re ".* 873 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2646 | -re ".* 874 " { | |
2647 | if [expr $x == 42] then { | |
2648 | pass "$testname: add.l @(0x1234:16,r3.w), ..." | |
2649 | } else { | |
2650 | fail "$testname: add.l @(0x1234:16,r3.w), ... ($x)" | |
2651 | } | |
2652 | } | |
2653 | default { fail "$testname: add.l @(0x1234:16,r3.w), ... ($x)" } | |
2654 | } | |
2655 | ||
2656 | set x 0 | |
2657 | expect { | |
2658 | -re ".* 875 1bce 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2659 | -re ".* 875 12340110" { set x [expr $x+1]; exp_continue; } | |
2660 | -re ".* 876 1bd6 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2661 | -re ".* 876 12343110" { set x [expr $x+1]; exp_continue; } | |
2662 | -re ".* 877 1bde 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2663 | -re ".* 877 1234B110" { set x [expr $x+1]; exp_continue; } | |
2664 | -re ".* 878 1be6 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2665 | -re ".* 878 12348110" { set x [expr $x+1]; exp_continue; } | |
2666 | -re ".* 879 1bee 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2667 | -re ".* 879 1234A110" { set x [expr $x+1]; exp_continue; } | |
2668 | -re ".* 880 1bf6 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2669 | -re ".* 880 12349110" { set x [expr $x+1]; exp_continue; } | |
2670 | -re ".* 881 1bfe 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2671 | -re ".* 881 1234C110" { set x [expr $x+1]; exp_continue; } | |
2672 | -re ".* 881 9ABC" { set x [expr $x+1]; exp_continue; } | |
2673 | -re ".* 882 1c08 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2674 | -re ".* 882 1234C910" { set x [expr $x+1]; exp_continue; } | |
2675 | -re ".* 882 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2676 | -re ".* 883 1c14 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2677 | -re ".* 883 1234D210" { set x [expr $x+1]; exp_continue; } | |
2678 | -re ".* 883 9ABC" { set x [expr $x+1]; exp_continue; } | |
2679 | -re ".* 884 1c1e 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2680 | -re ".* 884 1234E210" { set x [expr $x+1]; exp_continue; } | |
2681 | -re ".* 884 9ABC" { set x [expr $x+1]; exp_continue; } | |
2682 | -re ".* 885 1c28 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2683 | -re ".* 885 1234F210" { set x [expr $x+1]; exp_continue; } | |
2684 | -re ".* 885 9ABC" { set x [expr $x+1]; exp_continue; } | |
2685 | -re ".* 886 1c32 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2686 | -re ".* 886 1234DA10" { set x [expr $x+1]; exp_continue; } | |
2687 | -re ".* 886 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2688 | -re ".* 887 1c3e 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2689 | -re ".* 887 1234EA10" { set x [expr $x+1]; exp_continue; } | |
2690 | -re ".* 887 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2691 | -re ".* 888 1c4a 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2692 | -re ".* 888 1234FA10" { set x [expr $x+1]; exp_continue; } | |
2693 | -re ".* 888 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2694 | -re ".* 889 1c56 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2695 | -re ".* 889 12344010" { set x [expr $x+1]; exp_continue; } | |
2696 | -re ".* 889 9ABC" { set x [expr $x+1]; exp_continue; } | |
2697 | -re ".* 890 1c60 01076F3C" { set x [expr $x+1]; exp_continue; } | |
2698 | -re ".* 890 12344810" { set x [expr $x+1]; exp_continue; } | |
2699 | -re ".* 890 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2700 | -re ".* 891 " { | |
2701 | if [expr $x == 42] then { | |
2702 | pass "$testname: add.l @(0x1234:16,er3.l), ..." | |
2703 | } else { | |
2704 | fail "$testname: add.l @(0x1234:16,er3.l), ... ($x)" | |
2705 | } | |
2706 | } | |
2707 | default { fail "$testname: add.l @(0x1234:16,er3.l), ... ($x)" } | |
2708 | } | |
2709 | ||
2710 | set x 0 | |
2711 | expect { | |
2712 | -re ".* 892 1c6c 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2713 | -re ".* 892 12345678" { set x [expr $x+1]; exp_continue; } | |
2714 | -re ".* 892 0110" { set x [expr $x+1]; exp_continue; } | |
2715 | -re ".* 893 1c76 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2716 | -re ".* 893 12345678" { set x [expr $x+1]; exp_continue; } | |
2717 | -re ".* 893 3110" { set x [expr $x+1]; exp_continue; } | |
2718 | -re ".* 894 1c80 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2719 | -re ".* 894 12345678" { set x [expr $x+1]; exp_continue; } | |
2720 | -re ".* 894 B110" { set x [expr $x+1]; exp_continue; } | |
2721 | -re ".* 895 1c8a 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2722 | -re ".* 895 12345678" { set x [expr $x+1]; exp_continue; } | |
2723 | -re ".* 895 8110" { set x [expr $x+1]; exp_continue; } | |
2724 | -re ".* 896 1c94 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2725 | -re ".* 896 12345678" { set x [expr $x+1]; exp_continue; } | |
2726 | -re ".* 896 A110" { set x [expr $x+1]; exp_continue; } | |
2727 | -re ".* 897 1c9e 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2728 | -re ".* 897 12345678" { set x [expr $x+1]; exp_continue; } | |
2729 | -re ".* 897 9110" { set x [expr $x+1]; exp_continue; } | |
2730 | -re ".* 898 1ca8 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2731 | -re ".* 898 12345678" { set x [expr $x+1]; exp_continue; } | |
2732 | -re ".* 898 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2733 | -re ".* 899 1cb4 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2734 | -re ".* 899 12345678" { set x [expr $x+1]; exp_continue; } | |
2735 | -re ".* 899 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2736 | -re ".* 899 DEF0" { set x [expr $x+1]; exp_continue; } | |
2737 | -re ".* 900 1cc2 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2738 | -re ".* 900 12345678" { set x [expr $x+1]; exp_continue; } | |
2739 | -re ".* 900 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2740 | -re ".* 901 1cce 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2741 | -re ".* 901 12345678" { set x [expr $x+1]; exp_continue; } | |
2742 | -re ".* 901 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2743 | -re ".* 902 1cda 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2744 | -re ".* 902 12345678" { set x [expr $x+1]; exp_continue; } | |
2745 | -re ".* 902 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2746 | -re ".* 903 1ce6 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2747 | -re ".* 903 12345678" { set x [expr $x+1]; exp_continue; } | |
2748 | -re ".* 903 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2749 | -re ".* 903 DEF0" { set x [expr $x+1]; exp_continue; } | |
2750 | -re ".* 904 1cf4 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2751 | -re ".* 904 12345678" { set x [expr $x+1]; exp_continue; } | |
2752 | -re ".* 904 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2753 | -re ".* 904 DEF0" { set x [expr $x+1]; exp_continue; } | |
2754 | -re ".* 905 1d02 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2755 | -re ".* 905 12345678" { set x [expr $x+1]; exp_continue; } | |
2756 | -re ".* 905 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2757 | -re ".* 905 DEF0" { set x [expr $x+1]; exp_continue; } | |
2758 | -re ".* 906 1d10 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2759 | -re ".* 906 12345678" { set x [expr $x+1]; exp_continue; } | |
2760 | -re ".* 906 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2761 | -re ".* 907 1d1c 78B56B2C" { set x [expr $x+1]; exp_continue; } | |
2762 | -re ".* 907 12345678" { set x [expr $x+1]; exp_continue; } | |
2763 | -re ".* 907 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2764 | -re ".* 907 DEF0" { set x [expr $x+1]; exp_continue; } | |
2765 | -re ".* 908 " { | |
2766 | if [expr $x == 53] then { | |
2767 | pass "$testname: add.l @(0x12345678:32,r3l.b), ..." | |
2768 | } else { | |
2769 | fail "$testname: add.l @(0x12345678:32,r3l.b), ... ($x)" | |
2770 | } | |
2771 | } | |
2772 | default { fail "$testname: add.l @(0x12345678:32,r3l.b), ... ($x)" } | |
2773 | } | |
2774 | ||
2775 | set x 0 | |
2776 | expect { | |
2777 | -re ".* 909 1d2a 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2778 | -re ".* 909 12345678" { set x [expr $x+1]; exp_continue; } | |
2779 | -re ".* 909 0110" { set x [expr $x+1]; exp_continue; } | |
2780 | -re ".* 910 1d34 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2781 | -re ".* 910 12345678" { set x [expr $x+1]; exp_continue; } | |
2782 | -re ".* 910 3110" { set x [expr $x+1]; exp_continue; } | |
2783 | -re ".* 911 1d3e 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2784 | -re ".* 911 12345678" { set x [expr $x+1]; exp_continue; } | |
2785 | -re ".* 911 B110" { set x [expr $x+1]; exp_continue; } | |
2786 | -re ".* 912 1d48 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2787 | -re ".* 912 12345678" { set x [expr $x+1]; exp_continue; } | |
2788 | -re ".* 912 8110" { set x [expr $x+1]; exp_continue; } | |
2789 | -re ".* 913 1d52 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2790 | -re ".* 913 12345678" { set x [expr $x+1]; exp_continue; } | |
2791 | -re ".* 913 A110" { set x [expr $x+1]; exp_continue; } | |
2792 | -re ".* 914 1d5c 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2793 | -re ".* 914 12345678" { set x [expr $x+1]; exp_continue; } | |
2794 | -re ".* 914 9110" { set x [expr $x+1]; exp_continue; } | |
2795 | -re ".* 915 1d66 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2796 | -re ".* 915 12345678" { set x [expr $x+1]; exp_continue; } | |
2797 | -re ".* 915 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2798 | -re ".* 916 1d72 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2799 | -re ".* 916 12345678" { set x [expr $x+1]; exp_continue; } | |
2800 | -re ".* 916 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2801 | -re ".* 916 DEF0" { set x [expr $x+1]; exp_continue; } | |
2802 | -re ".* 917 1d80 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2803 | -re ".* 917 12345678" { set x [expr $x+1]; exp_continue; } | |
2804 | -re ".* 917 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2805 | -re ".* 918 1d8c 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2806 | -re ".* 918 12345678" { set x [expr $x+1]; exp_continue; } | |
2807 | -re ".* 918 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2808 | -re ".* 919 1d98 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2809 | -re ".* 919 12345678" { set x [expr $x+1]; exp_continue; } | |
2810 | -re ".* 919 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2811 | -re ".* 920 1da4 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2812 | -re ".* 920 12345678" { set x [expr $x+1]; exp_continue; } | |
2813 | -re ".* 920 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2814 | -re ".* 920 DEF0" { set x [expr $x+1]; exp_continue; } | |
2815 | -re ".* 921 1db2 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2816 | -re ".* 921 12345678" { set x [expr $x+1]; exp_continue; } | |
2817 | -re ".* 921 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2818 | -re ".* 921 DEF0" { set x [expr $x+1]; exp_continue; } | |
2819 | -re ".* 922 1dc0 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2820 | -re ".* 922 12345678" { set x [expr $x+1]; exp_continue; } | |
2821 | -re ".* 922 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2822 | -re ".* 922 DEF0" { set x [expr $x+1]; exp_continue; } | |
2823 | -re ".* 923 1dce 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2824 | -re ".* 923 12345678" { set x [expr $x+1]; exp_continue; } | |
2825 | -re ".* 923 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2826 | -re ".* 924 1dda 78B66B2C" { set x [expr $x+1]; exp_continue; } | |
2827 | -re ".* 924 12345678" { set x [expr $x+1]; exp_continue; } | |
2828 | -re ".* 924 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2829 | -re ".* 924 DEF0" { set x [expr $x+1]; exp_continue; } | |
2830 | -re ".* 925 " { | |
2831 | if [expr $x == 53] then { | |
2832 | pass "$testname: add.l @(0x12345678:32,r3.w), ..." | |
2833 | } else { | |
2834 | fail "$testname: add.l @(0x12345678:32,r3.w), ... ($x)" | |
2835 | } | |
2836 | } | |
2837 | default { fail "$testname: add.l @(0x12345678:32,r3.w), ... ($x)" } | |
2838 | } | |
2839 | ||
2840 | set x 0 | |
2841 | expect { | |
2842 | -re ".* 926 1de8 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2843 | -re ".* 926 12345678" { set x [expr $x+1]; exp_continue; } | |
2844 | -re ".* 926 0110" { set x [expr $x+1]; exp_continue; } | |
2845 | -re ".* 927 1df2 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2846 | -re ".* 927 12345678" { set x [expr $x+1]; exp_continue; } | |
2847 | -re ".* 927 3110" { set x [expr $x+1]; exp_continue; } | |
2848 | -re ".* 928 1dfc 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2849 | -re ".* 928 12345678" { set x [expr $x+1]; exp_continue; } | |
2850 | -re ".* 928 B110" { set x [expr $x+1]; exp_continue; } | |
2851 | -re ".* 929 1e06 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2852 | -re ".* 929 12345678" { set x [expr $x+1]; exp_continue; } | |
2853 | -re ".* 929 8110" { set x [expr $x+1]; exp_continue; } | |
2854 | -re ".* 930 1e10 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2855 | -re ".* 930 12345678" { set x [expr $x+1]; exp_continue; } | |
2856 | -re ".* 930 A110" { set x [expr $x+1]; exp_continue; } | |
2857 | -re ".* 931 1e1a 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2858 | -re ".* 931 12345678" { set x [expr $x+1]; exp_continue; } | |
2859 | -re ".* 931 9110" { set x [expr $x+1]; exp_continue; } | |
2860 | -re ".* 932 1e24 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2861 | -re ".* 932 12345678" { set x [expr $x+1]; exp_continue; } | |
2862 | -re ".* 932 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2863 | -re ".* 933 1e30 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2864 | -re ".* 933 12345678" { set x [expr $x+1]; exp_continue; } | |
2865 | -re ".* 933 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2866 | -re ".* 933 DEF0" { set x [expr $x+1]; exp_continue; } | |
2867 | -re ".* 934 1e3e 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2868 | -re ".* 934 12345678" { set x [expr $x+1]; exp_continue; } | |
2869 | -re ".* 934 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2870 | -re ".* 935 1e4a 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2871 | -re ".* 935 12345678" { set x [expr $x+1]; exp_continue; } | |
2872 | -re ".* 935 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2873 | -re ".* 936 1e56 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2874 | -re ".* 936 12345678" { set x [expr $x+1]; exp_continue; } | |
2875 | -re ".* 936 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2876 | -re ".* 937 1e62 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2877 | -re ".* 937 12345678" { set x [expr $x+1]; exp_continue; } | |
2878 | -re ".* 937 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2879 | -re ".* 937 DEF0" { set x [expr $x+1]; exp_continue; } | |
2880 | -re ".* 938 1e70 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2881 | -re ".* 938 12345678" { set x [expr $x+1]; exp_continue; } | |
2882 | -re ".* 938 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
2883 | -re ".* 938 DEF0" { set x [expr $x+1]; exp_continue; } | |
2884 | -re ".* 939 1e7e 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2885 | -re ".* 939 12345678" { set x [expr $x+1]; exp_continue; } | |
2886 | -re ".* 939 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
2887 | -re ".* 939 DEF0" { set x [expr $x+1]; exp_continue; } | |
2888 | -re ".* 940 1e8c 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2889 | -re ".* 940 12345678" { set x [expr $x+1]; exp_continue; } | |
2890 | -re ".* 940 40109ABC" { set x [expr $x+1]; exp_continue; } | |
2891 | -re ".* 941 1e98 78B76B2C" { set x [expr $x+1]; exp_continue; } | |
2892 | -re ".* 941 12345678" { set x [expr $x+1]; exp_continue; } | |
2893 | -re ".* 941 48109ABC" { set x [expr $x+1]; exp_continue; } | |
2894 | -re ".* 941 DEF0" { set x [expr $x+1]; exp_continue; } | |
2895 | -re ".* 942 " { | |
2896 | if [expr $x == 53] then { | |
2897 | pass "$testname: add.l @(0x12345678:32,er3.l), ..." | |
2898 | } else { | |
2899 | fail "$testname: add.l @(0x12345678:32,er3.l), ... ($x)" | |
2900 | } | |
2901 | } | |
2902 | default { fail "$testname: add.l @(0x12345678:32,er3.l), ... ($x)" } | |
2903 | } | |
2904 | ||
2905 | set x 0 | |
2906 | expect { | |
2907 | -re ".* 943 1ea6 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2908 | -re ".* 943 12340110" { set x [expr $x+1]; exp_continue; } | |
2909 | -re ".* 944 1eae 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2910 | -re ".* 944 12343110" { set x [expr $x+1]; exp_continue; } | |
2911 | -re ".* 945 1eb6 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2912 | -re ".* 945 1234B110" { set x [expr $x+1]; exp_continue; } | |
2913 | -re ".* 946 1ebe 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2914 | -re ".* 946 12348110" { set x [expr $x+1]; exp_continue; } | |
2915 | -re ".* 947 1ec6 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2916 | -re ".* 947 1234A110" { set x [expr $x+1]; exp_continue; } | |
2917 | -re ".* 948 1ece 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2918 | -re ".* 948 12349110" { set x [expr $x+1]; exp_continue; } | |
2919 | -re ".* 949 1ed6 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2920 | -re ".* 949 1234C110" { set x [expr $x+1]; exp_continue; } | |
2921 | -re ".* 949 9ABC" { set x [expr $x+1]; exp_continue; } | |
2922 | -re ".* 950 1ee0 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2923 | -re ".* 950 1234C910" { set x [expr $x+1]; exp_continue; } | |
2924 | -re ".* 950 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2925 | -re ".* 951 1eec 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2926 | -re ".* 951 1234D210" { set x [expr $x+1]; exp_continue; } | |
2927 | -re ".* 951 9ABC" { set x [expr $x+1]; exp_continue; } | |
2928 | -re ".* 952 1ef6 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2929 | -re ".* 952 1234E210" { set x [expr $x+1]; exp_continue; } | |
2930 | -re ".* 952 9ABC" { set x [expr $x+1]; exp_continue; } | |
2931 | -re ".* 953 1f00 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2932 | -re ".* 953 1234F210" { set x [expr $x+1]; exp_continue; } | |
2933 | -re ".* 953 9ABC" { set x [expr $x+1]; exp_continue; } | |
2934 | -re ".* 954 1f0a 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2935 | -re ".* 954 1234DA10" { set x [expr $x+1]; exp_continue; } | |
2936 | -re ".* 954 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2937 | -re ".* 955 1f16 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2938 | -re ".* 955 1234EA10" { set x [expr $x+1]; exp_continue; } | |
2939 | -re ".* 955 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2940 | -re ".* 956 1f22 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2941 | -re ".* 956 1234FA10" { set x [expr $x+1]; exp_continue; } | |
2942 | -re ".* 956 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2943 | -re ".* 957 1f2e 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2944 | -re ".* 957 12344010" { set x [expr $x+1]; exp_continue; } | |
2945 | -re ".* 957 9ABC" { set x [expr $x+1]; exp_continue; } | |
2946 | -re ".* 958 1f38 01046B0C" { set x [expr $x+1]; exp_continue; } | |
2947 | -re ".* 958 12344810" { set x [expr $x+1]; exp_continue; } | |
2948 | -re ".* 958 9ABCDEF0" { set x [expr $x+1]; exp_continue; } | |
2949 | -re ".* 959 " { | |
2950 | if [expr $x == 42] then { | |
2951 | pass "$testname: add.l @0x1234:16, ..." | |
2952 | } else { | |
2953 | fail "$testname: add.l @0x1234:16, ... ($x)" | |
2954 | } | |
2955 | } | |
2956 | default { fail "$testname: add.l @0x1234:16, ... ($x)" } | |
2957 | } | |
2958 | # FIXME return early, expect bombs out on the next group. | |
c0b22597 | 2959 | return |
fe8aec39 MS |
2960 | set x 0 |
2961 | expect { | |
2962 | -re ".* 960 1f44 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2963 | -re ".* 960 12345678" { set x [expr $x+1]; exp_continue; } | |
2964 | -re ".* 960 0110" { set x [expr $x+1]; exp_continue; } | |
2965 | -re ".* 961 1f4e 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2966 | -re ".* 961 12345678" { set x [expr $x+1]; exp_continue; } | |
2967 | -re ".* 961 3110" { set x [expr $x+1]; exp_continue; } | |
2968 | -re ".* 962 1f58 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2969 | -re ".* 962 12345678" { set x [expr $x+1]; exp_continue; } | |
2970 | -re ".* 962 B110" { set x [expr $x+1]; exp_continue; } | |
2971 | -re ".* 963 1f62 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2972 | -re ".* 963 12345678" { set x [expr $x+1]; exp_continue; } | |
2973 | -re ".* 963 8110" { set x [expr $x+1]; exp_continue; } | |
2974 | -re ".* 964 1f6c 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2975 | -re ".* 964 12345678" { set x [expr $x+1]; exp_continue; } | |
2976 | -re ".* 964 A110" { set x [expr $x+1]; exp_continue; } | |
2977 | -re ".* 965 1f76 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2978 | -re ".* 965 12345678" { set x [expr $x+1]; exp_continue; } | |
2979 | -re ".* 965 9110" { set x [expr $x+1]; exp_continue; } | |
2980 | -re ".* 966 1f80 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2981 | -re ".* 966 12345678" { set x [expr $x+1]; exp_continue; } | |
2982 | -re ".* 966 C1109ABC" { set x [expr $x+1]; exp_continue; } | |
2983 | -re ".* 967 1f8c 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2984 | -re ".* 967 12345678" { set x [expr $x+1]; exp_continue; } | |
2985 | -re ".* 967 C9109ABC" { set x [expr $x+1]; exp_continue; } | |
2986 | -re ".* 967 DEF0" { set x [expr $x+1]; exp_continue; } | |
2987 | -re ".* 968 1f9a 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2988 | -re ".* 968 12345678" { set x [expr $x+1]; exp_continue; } | |
2989 | -re ".* 968 D2109ABC" { set x [expr $x+1]; exp_continue; } | |
2990 | -re ".* 969 1fa6 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2991 | -re ".* 969 12345678" { set x [expr $x+1]; exp_continue; } | |
2992 | -re ".* 969 E2109ABC" { set x [expr $x+1]; exp_continue; } | |
2993 | -re ".* 970 1fb2 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2994 | -re ".* 970 12345678" { set x [expr $x+1]; exp_continue; } | |
2995 | -re ".* 970 F2109ABC" { set x [expr $x+1]; exp_continue; } | |
2996 | -re ".* 971 1fbe 01046B2C" { set x [expr $x+1]; exp_continue; } | |
2997 | -re ".* 971 12345678" { set x [expr $x+1]; exp_continue; } | |
2998 | -re ".* 971 DA109ABC" { set x [expr $x+1]; exp_continue; } | |
2999 | -re ".* 971 DEF0" { set x [expr $x+1]; exp_continue; } | |
3000 | -re ".* 972 1fcc 01046B2C" { set x [expr $x+1]; exp_continue; } | |
3001 | -re ".* 972 12345678" { set x [expr $x+1]; exp_continue; } | |
3002 | -re ".* 972 EA109ABC" { set x [expr $x+1]; exp_continue; } | |
3003 | -re ".* 972 DEF0" { set x [expr $x+1]; exp_continue; } | |
3004 | -re ".* 973 1fda 01046B2C" { set x [expr $x+1]; exp_continue; } | |
3005 | -re ".* 973 12345678" { set x [expr $x+1]; exp_continue; } | |
3006 | -re ".* 973 FA109ABC" { set x [expr $x+1]; exp_continue; } | |
3007 | -re ".* 973 DEF0" { set x [expr $x+1]; exp_continue; } | |
3008 | -re ".* 974 1fe8 01046B2C" { set x [expr $x+1]; exp_continue; } | |
3009 | -re ".* 974 12345678" { set x [expr $x+1]; exp_continue; } | |
3010 | -re ".* 974 40109ABC" { set x [expr $x+1]; exp_continue; } | |
3011 | -re ".* 975 1ff4 01046B2C" { set x [expr $x+1]; exp_continue; } | |
3012 | -re ".* 975 12345678" { set x [expr $x+1]; exp_continue; } | |
3013 | -re ".* 975 48109ABC" { set x [expr $x+1]; exp_continue; } | |
3014 | -re ".* 975 DEF0" { set x [expr $x+1]; exp_continue; } | |
3015 | -re ".* 976 " { | |
3016 | if [expr $x == 53] then { | |
3017 | pass "$testname: add.l @0x12345678:32, ..." | |
3018 | } else { | |
3019 | fail "$testname: add.l @0x12345678:32, ... ($x)" | |
3020 | } | |
3021 | } | |
3022 | default { fail "$testname: add.l @0x12345678:32, ... ($x)" } | |
3023 | } | |
3024 | ||
3025 | # This was intended to do any cleanup necessary. | |
3026 | # It kinda looks like it isn't needed, but just | |
3027 | # in case, please keep it in for now. | |
3028 | ||
3029 | gas_finish | |
3030 | ||
3031 | } | |
3032 | ||
3033 | if [istarget h8300*-*-elf] then { | |
3034 | # Test advanced h8300sx instructions. | |
3035 | do_t03_add_test | |
3036 | } | |
3037 |