projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
2004-05-11 Maciej W. Rozycki <macro@ds2.pg.gda.pl>
[deliverable/binutils-gdb.git] / gas / testsuite / gas / h8300 / t04_sub.exp
CommitLineData
fe8aec39
MS		 1#
2# Some h8300sx tests -- t04_sub
3#
4
5proc do_t04_sub_test {} {
6 set testname "t04_sub.s -- h8sx tests"
7
8 gas_start "t04_sub.s" "-al"
9
10 # Check each instruction bit pattern to verify it got assembled correctly.
11
12 set x 0
13 expect {
14 -re ".* 7 0000 7D10A112" { set x [expr $x+1]; exp_continue; }
15 -re ".* 8 0004 01776818" { set x [expr $x+1]; exp_continue; }
16 -re ".* 8 A112" { set x [expr $x+1]; exp_continue; }
17 -re ".* 9 000a 01746C18" { set x [expr $x+1]; exp_continue; }
18 -re ".* 9 A112" { set x [expr $x+1]; exp_continue; }
19 -re ".* 10 0010 01776C18" { set x [expr $x+1]; exp_continue; }
20 -re ".* 10 A112" { set x [expr $x+1]; exp_continue; }
21 -re ".* 11 0016 01756C18" { set x [expr $x+1]; exp_continue; }
22 -re ".* 11 A112" { set x [expr $x+1]; exp_continue; }
23 -re ".* 12 001c 01766C18" { set x [expr $x+1]; exp_continue; }
24 -re ".* 12 A112" { set x [expr $x+1]; exp_continue; }
25 -re ".* 13 0022 01746E18" { set x [expr $x+1]; exp_continue; }
26 -re ".* 13 1234A112" { set x [expr $x+1]; exp_continue; }
27 -re ".* 14 002a 78146A28" { set x [expr $x+1]; exp_continue; }
28 -re ".* 14 12345678" { set x [expr $x+1]; exp_continue; }
29 -re ".* 14 A112" { set x [expr $x+1]; exp_continue; }
30 -re ".* 15 0034 01756E28" { set x [expr $x+1]; exp_continue; }
31 -re ".* 15 1234A112" { set x [expr $x+1]; exp_continue; }
32 -re ".* 16 003c 01766E28" { set x [expr $x+1]; exp_continue; }
33 -re ".* 16 1234A112" { set x [expr $x+1]; exp_continue; }
34 -re ".* 17 0044 01776E28" { set x [expr $x+1]; exp_continue; }
35 -re ".* 17 1234A112" { set x [expr $x+1]; exp_continue; }
36 -re ".* 18 004c 78256A28" { set x [expr $x+1]; exp_continue; }
37 -re ".* 18 12345678" { set x [expr $x+1]; exp_continue; }
38 -re ".* 18 A112" { set x [expr $x+1]; exp_continue; }
39 -re ".* 19 0056 78266A28" { set x [expr $x+1]; exp_continue; }
40 -re ".* 19 12345678" { set x [expr $x+1]; exp_continue; }
41 -re ".* 19 A112" { set x [expr $x+1]; exp_continue; }
42 -re ".* 20 0060 78276A28" { set x [expr $x+1]; exp_continue; }
43 -re ".* 20 12345678" { set x [expr $x+1]; exp_continue; }
44 -re ".* 20 A112" { set x [expr $x+1]; exp_continue; }
45 -re ".* 21 006a 7F9AA112" { set x [expr $x+1]; exp_continue; }
46 -re ".* 22 006e 6A181234" { set x [expr $x+1]; exp_continue; }
47 -re ".* 22 A112" { set x [expr $x+1]; exp_continue; }
48 -re ".* 23 0074 6A381234" { set x [expr $x+1]; exp_continue; }
49 -re ".* 23 5678A112" { set x [expr $x+1]; exp_continue; }
50 -re ".* 24 " {
51 if [expr $x == 36] then {
52 pass "$testname: sub.b #0x12:8, ..."
53 } else {
54 fail "$testname: sub.b #0x12:8, ... ($x)"
55 }
56 }
57 default { fail "$testname: sub.b #0x12:8, ... ($x)" }
58 }
59
60 set x 0
61 expect {
62 -re ".* 25 007c 1831" { set x [expr $x+1]; exp_continue; }
63 -re ".* 26 " {
64 if [expr $x == 1] then {
65 pass "$testname: sub.b r3h, r1h"
66 } else {
67 fail "$testname: sub.b r3h, r1h ($x)"
68 }
69 }
70 default { fail "$testname: sub.b r3h, r1h ($x)" }
71 }
72
73 set x 0
74 expect {
75 -re ".* 27 007e 7D101830" { set x [expr $x+1]; exp_continue; }
76 -re ".* 28 0082 01793133" { set x [expr $x+1]; exp_continue; }
77 -re ".* 29 0086 01798133" { set x [expr $x+1]; exp_continue; }
78 -re ".* 30 008a 0179B133" { set x [expr $x+1]; exp_continue; }
79 -re ".* 31 008e 01799133" { set x [expr $x+1]; exp_continue; }
80 -re ".* 32 0092 0179A133" { set x [expr $x+1]; exp_continue; }
81 -re ".* 33 0096 0179C133" { set x [expr $x+1]; exp_continue; }
82 -re ".* 33 1234" { set x [expr $x+1]; exp_continue; }
83 -re ".* 34 009c 0179C933" { set x [expr $x+1]; exp_continue; }
84 -re ".* 34 12345678" { set x [expr $x+1]; exp_continue; }
85 -re ".* 35 00a4 0179D233" { set x [expr $x+1]; exp_continue; }
86 -re ".* 35 1234" { set x [expr $x+1]; exp_continue; }
87 -re ".* 36 00aa 0179E233" { set x [expr $x+1]; exp_continue; }
88 -re ".* 36 1234" { set x [expr $x+1]; exp_continue; }
89 -re ".* 37 00b0 0179F233" { set x [expr $x+1]; exp_continue; }
90 -re ".* 37 1234" { set x [expr $x+1]; exp_continue; }
91 -re ".* 38 00b6 0179DA33" { set x [expr $x+1]; exp_continue; }
92 -re ".* 38 12345678" { set x [expr $x+1]; exp_continue; }
93 -re ".* 39 00be 0179EA33" { set x [expr $x+1]; exp_continue; }
94 -re ".* 39 12345678" { set x [expr $x+1]; exp_continue; }
95 -re ".* 40 00c6 0179FA33" { set x [expr $x+1]; exp_continue; }
96 -re ".* 40 12345678" { set x [expr $x+1]; exp_continue; }
97 -re ".* 41 00ce 7F121830" { set x [expr $x+1]; exp_continue; }
98 -re ".* 42 00d2 6A181234" { set x [expr $x+1]; exp_continue; }
99 -re ".* 42 1830" { set x [expr $x+1]; exp_continue; }
100 -re ".* 43 00d8 6A381234" { set x [expr $x+1]; exp_continue; }
101 -re ".* 43 56781830" { set x [expr $x+1]; exp_continue; }
102 -re ".* 44 " {
103 if [expr $x == 27] then {
104 pass "$testname: sub.b r3h, ..."
105 } else {
106 fail "$testname: sub.b r3h, ... ($x)"
107 }
108 }
109 default { fail "$testname: sub.b r3h, ... ($x)" }
110 }
111
112 set x 0
113 expect {
114 -re ".* 45 00e0 7C301801" { set x [expr $x+1]; exp_continue; }
115 -re ".* 46 00e4 017A3331" { set x [expr $x+1]; exp_continue; }
116 -re ".* 47 00e8 017A8331" { set x [expr $x+1]; exp_continue; }
117 -re ".* 48 00ec 017AB331" { set x [expr $x+1]; exp_continue; }
118 -re ".* 49 00f0 017A9331" { set x [expr $x+1]; exp_continue; }
119 -re ".* 50 00f4 017AA331" { set x [expr $x+1]; exp_continue; }
120 -re ".* 51 00f8 017AC131" { set x [expr $x+1]; exp_continue; }
121 -re ".* 51 1234" { set x [expr $x+1]; exp_continue; }
122 -re ".* 52 00fe 017AC931" { set x [expr $x+1]; exp_continue; }
123 -re ".* 52 12345678" { set x [expr $x+1]; exp_continue; }
124 -re ".* 53 0106 017AD231" { set x [expr $x+1]; exp_continue; }
125 -re ".* 53 1234" { set x [expr $x+1]; exp_continue; }
126 -re ".* 54 010c 017AE231" { set x [expr $x+1]; exp_continue; }
127 -re ".* 54 1234" { set x [expr $x+1]; exp_continue; }
128 -re ".* 55 0112 017AF231" { set x [expr $x+1]; exp_continue; }
129 -re ".* 55 1234" { set x [expr $x+1]; exp_continue; }
130 -re ".* 56 0118 017ADA31" { set x [expr $x+1]; exp_continue; }
131 -re ".* 56 12345678" { set x [expr $x+1]; exp_continue; }
132 -re ".* 57 0120 017AEA31" { set x [expr $x+1]; exp_continue; }
133 -re ".* 57 12345678" { set x [expr $x+1]; exp_continue; }
134 -re ".* 58 0128 017AFA31" { set x [expr $x+1]; exp_continue; }
135 -re ".* 58 12345678" { set x [expr $x+1]; exp_continue; }
136 -re ".* 59 0130 7E121801" { set x [expr $x+1]; exp_continue; }
137 -re ".* 60 0134 6A101234" { set x [expr $x+1]; exp_continue; }
138 -re ".* 60 1801" { set x [expr $x+1]; exp_continue; }
139 -re ".* 61 013a 6A301234" { set x [expr $x+1]; exp_continue; }
140 -re ".* 61 56781801" { set x [expr $x+1]; exp_continue; }
141 -re ".* 62 " {
142 if [expr $x == 27] then {
143 pass "$testname: sub.b ..., r1h"
144 } else {
145 fail "$testname: sub.b ..., r1h ($x)"
146 }
147 }
148 default { fail "$testname: sub.b ..., r1h ($x)" }
149 }
150
151 set x 0
152 expect {
153 -re ".* 63 0142 7C350130" { set x [expr $x+1]; exp_continue; }
154 -re ".* 64 0146 7C353130" { set x [expr $x+1]; exp_continue; }
155 -re ".* 65 014a 7C35B130" { set x [expr $x+1]; exp_continue; }
156 -re ".* 66 014e 7C358130" { set x [expr $x+1]; exp_continue; }
157 -re ".* 67 0152 7C35A130" { set x [expr $x+1]; exp_continue; }
158 -re ".* 68 0156 7C359130" { set x [expr $x+1]; exp_continue; }
159 -re ".* 69 015a 7C35C130" { set x [expr $x+1]; exp_continue; }
160 -re ".* 69 9ABC" { set x [expr $x+1]; exp_continue; }
161 -re ".* 70 0160 7C35C930" { set x [expr $x+1]; exp_continue; }
162 -re ".* 70 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
163 -re ".* 71 0168 7C35D230" { set x [expr $x+1]; exp_continue; }
164 -re ".* 71 9ABC" { set x [expr $x+1]; exp_continue; }
165 -re ".* 72 016e 7C35E230" { set x [expr $x+1]; exp_continue; }
166 -re ".* 72 9ABC" { set x [expr $x+1]; exp_continue; }
167 -re ".* 73 0174 7C35F230" { set x [expr $x+1]; exp_continue; }
168 -re ".* 73 9ABC" { set x [expr $x+1]; exp_continue; }
169 -re ".* 74 017a 7C35DA30" { set x [expr $x+1]; exp_continue; }
170 -re ".* 74 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
171 -re ".* 75 0182 7C35EA30" { set x [expr $x+1]; exp_continue; }
172 -re ".* 75 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
173 -re ".* 76 018a 7C35FA30" { set x [expr $x+1]; exp_continue; }
174 -re ".* 76 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
175 -re ".* 77 0192 7C354030" { set x [expr $x+1]; exp_continue; }
176 -re ".* 77 9ABC" { set x [expr $x+1]; exp_continue; }
177 -re ".* 78 0198 7C354830" { set x [expr $x+1]; exp_continue; }
178 -re ".* 78 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
179 -re ".* 79 " {
180 if [expr $x == 26] then {
181 pass "$testname: sub.b @er3, ..."
182 } else {
183 fail "$testname: sub.b @er3, ... ($x)"
184 }
185 }
186 default { fail "$testname: sub.b @er3, ... ($x)" }
187 }
188
189 set x 0
190 expect {
191 -re ".* 80 01a0 01776C3C" { set x [expr $x+1]; exp_continue; }
192 -re ".* 80 0130" { set x [expr $x+1]; exp_continue; }
193 -re ".* 81 01a6 01776C3C" { set x [expr $x+1]; exp_continue; }
194 -re ".* 81 3130" { set x [expr $x+1]; exp_continue; }
195 -re ".* 82 01ac 01776C3C" { set x [expr $x+1]; exp_continue; }
196 -re ".* 82 B130" { set x [expr $x+1]; exp_continue; }
197 -re ".* 83 01b2 01776C3C" { set x [expr $x+1]; exp_continue; }
198 -re ".* 83 8130" { set x [expr $x+1]; exp_continue; }
199 -re ".* 84 01b8 01776C3C" { set x [expr $x+1]; exp_continue; }
200 -re ".* 84 A130" { set x [expr $x+1]; exp_continue; }
201 -re ".* 85 01be 01776C3C" { set x [expr $x+1]; exp_continue; }
202 -re ".* 85 9130" { set x [expr $x+1]; exp_continue; }
203 -re ".* 86 01c4 01776C3C" { set x [expr $x+1]; exp_continue; }
204 -re ".* 86 C1309ABC" { set x [expr $x+1]; exp_continue; }
205 -re ".* 87 01cc 01776C3C" { set x [expr $x+1]; exp_continue; }
206 -re ".* 87 C9309ABC" { set x [expr $x+1]; exp_continue; }
207 -re ".* 87 DEF0" { set x [expr $x+1]; exp_continue; }
208 -re ".* 88 01d6 01776C3C" { set x [expr $x+1]; exp_continue; }
209 -re ".* 88 D2309ABC" { set x [expr $x+1]; exp_continue; }
210 -re ".* 89 01de 01776C3C" { set x [expr $x+1]; exp_continue; }
211 -re ".* 89 E2309ABC" { set x [expr $x+1]; exp_continue; }
212 -re ".* 90 01e6 01776C3C" { set x [expr $x+1]; exp_continue; }
213 -re ".* 90 F2309ABC" { set x [expr $x+1]; exp_continue; }
214 -re ".* 91 01ee 01776C3C" { set x [expr $x+1]; exp_continue; }
215 -re ".* 91 DA309ABC" { set x [expr $x+1]; exp_continue; }
216 -re ".* 91 DEF0" { set x [expr $x+1]; exp_continue; }
217 -re ".* 92 01f8 01776C3C" { set x [expr $x+1]; exp_continue; }
218 -re ".* 92 EA309ABC" { set x [expr $x+1]; exp_continue; }
219 -re ".* 92 DEF0" { set x [expr $x+1]; exp_continue; }
220 -re ".* 93 0202 01776C3C" { set x [expr $x+1]; exp_continue; }
221 -re ".* 93 FA309ABC" { set x [expr $x+1]; exp_continue; }
222 -re ".* 93 DEF0" { set x [expr $x+1]; exp_continue; }
223 -re ".* 94 020c 01776C3C" { set x [expr $x+1]; exp_continue; }
224 -re ".* 94 40309ABC" { set x [expr $x+1]; exp_continue; }
225 -re ".* 95 0214 01776C3C" { set x [expr $x+1]; exp_continue; }
226 -re ".* 95 48309ABC" { set x [expr $x+1]; exp_continue; }
227 -re ".* 95 DEF0" { set x [expr $x+1]; exp_continue; }
228 -re ".* 96 " {
229 if [expr $x == 37] then {
230 pass "$testname: sub.b @-er3, ..."
231 } else {
232 fail "$testname: sub.b @-er3, ... ($x)"
233 }
234 }
235 default { fail "$testname: sub.b @-er3, ... ($x)" }
236 }
237
238 set x 0
239 expect {
240 -re ".* 97 021e 01746C3C" { set x [expr $x+1]; exp_continue; }
241 -re ".* 97 0130" { set x [expr $x+1]; exp_continue; }
242 -re ".* 98 0224 01746C3C" { set x [expr $x+1]; exp_continue; }
243 -re ".* 98 3130" { set x [expr $x+1]; exp_continue; }
244 -re ".* 99 022a 01746C3C" { set x [expr $x+1]; exp_continue; }
245 -re ".* 99 B130" { set x [expr $x+1]; exp_continue; }
246 -re ".* 100 0230 01746C3C" { set x [expr $x+1]; exp_continue; }
247 -re ".* 100 8130" { set x [expr $x+1]; exp_continue; }
248 -re ".* 101 0236 01746C3C" { set x [expr $x+1]; exp_continue; }
249 -re ".* 101 A130" { set x [expr $x+1]; exp_continue; }
250 -re ".* 102 023c 01746C3C" { set x [expr $x+1]; exp_continue; }
251 -re ".* 102 9130" { set x [expr $x+1]; exp_continue; }
252 -re ".* 103 0242 01746C3C" { set x [expr $x+1]; exp_continue; }
253 -re ".* 103 C1309ABC" { set x [expr $x+1]; exp_continue; }
254 -re ".* 104 024a 01746C3C" { set x [expr $x+1]; exp_continue; }
255 -re ".* 104 C9309ABC" { set x [expr $x+1]; exp_continue; }
256 -re ".* 104 DEF0" { set x [expr $x+1]; exp_continue; }
257 -re ".* 105 0254 01746C3C" { set x [expr $x+1]; exp_continue; }
258 -re ".* 105 D2309ABC" { set x [expr $x+1]; exp_continue; }
259 -re ".* 106 025c 01746C3C" { set x [expr $x+1]; exp_continue; }
260 -re ".* 106 E2309ABC" { set x [expr $x+1]; exp_continue; }
261 -re ".* 107 0264 01746C3C" { set x [expr $x+1]; exp_continue; }
262 -re ".* 107 F2309ABC" { set x [expr $x+1]; exp_continue; }
263 -re ".* 108 026c 01746C3C" { set x [expr $x+1]; exp_continue; }
264 -re ".* 108 DA309ABC" { set x [expr $x+1]; exp_continue; }
265 -re ".* 108 DEF0" { set x [expr $x+1]; exp_continue; }
266 -re ".* 109 0276 01746C3C" { set x [expr $x+1]; exp_continue; }
267 -re ".* 109 EA309ABC" { set x [expr $x+1]; exp_continue; }
268 -re ".* 109 DEF0" { set x [expr $x+1]; exp_continue; }
269 -re ".* 110 0280 01746C3C" { set x [expr $x+1]; exp_continue; }
270 -re ".* 110 FA309ABC" { set x [expr $x+1]; exp_continue; }
271 -re ".* 110 DEF0" { set x [expr $x+1]; exp_continue; }
272 -re ".* 111 028a 01746C3C" { set x [expr $x+1]; exp_continue; }
273 -re ".* 111 40309ABC" { set x [expr $x+1]; exp_continue; }
274 -re ".* 112 0292 01746C3C" { set x [expr $x+1]; exp_continue; }
275 -re ".* 112 48309ABC" { set x [expr $x+1]; exp_continue; }
276 -re ".* 112 DEF0" { set x [expr $x+1]; exp_continue; }
277 -re ".* 113 " {
278 if [expr $x == 37] then {
279 pass "$testname: sub.b @er3+, ..."
280 } else {
281 fail "$testname: sub.b @er3+, ... ($x)"
282 }
283 }
284 default { fail "$testname: sub.b @er3+, ... ($x)" }
285 }
286
287 set x 0
288 expect {
289 -re ".* 114 029c 01766C3C" { set x [expr $x+1]; exp_continue; }
290 -re ".* 114 0130" { set x [expr $x+1]; exp_continue; }
291 -re ".* 115 02a2 01766C3C" { set x [expr $x+1]; exp_continue; }
292 -re ".* 115 3130" { set x [expr $x+1]; exp_continue; }
293 -re ".* 116 02a8 01766C3C" { set x [expr $x+1]; exp_continue; }
294 -re ".* 116 B130" { set x [expr $x+1]; exp_continue; }
295 -re ".* 117 02ae 01766C3C" { set x [expr $x+1]; exp_continue; }
296 -re ".* 117 8130" { set x [expr $x+1]; exp_continue; }
297 -re ".* 118 02b4 01766C3C" { set x [expr $x+1]; exp_continue; }
298 -re ".* 118 A130" { set x [expr $x+1]; exp_continue; }
299 -re ".* 119 02ba 01766C3C" { set x [expr $x+1]; exp_continue; }
300 -re ".* 119 9130" { set x [expr $x+1]; exp_continue; }
301 -re ".* 120 02c0 01766C3C" { set x [expr $x+1]; exp_continue; }
302 -re ".* 120 C1309ABC" { set x [expr $x+1]; exp_continue; }
303 -re ".* 121 02c8 01766C3C" { set x [expr $x+1]; exp_continue; }
304 -re ".* 121 C9309ABC" { set x [expr $x+1]; exp_continue; }
305 -re ".* 121 DEF0" { set x [expr $x+1]; exp_continue; }
306 -re ".* 122 02d2 01766C3C" { set x [expr $x+1]; exp_continue; }
307 -re ".* 122 D2309ABC" { set x [expr $x+1]; exp_continue; }
308 -re ".* 123 02da 01766C3C" { set x [expr $x+1]; exp_continue; }
309 -re ".* 123 E2309ABC" { set x [expr $x+1]; exp_continue; }
310 -re ".* 124 02e2 01766C3C" { set x [expr $x+1]; exp_continue; }
311 -re ".* 124 F2309ABC" { set x [expr $x+1]; exp_continue; }
312 -re ".* 125 02ea 01766C3C" { set x [expr $x+1]; exp_continue; }
313 -re ".* 125 DA309ABC" { set x [expr $x+1]; exp_continue; }
314 -re ".* 125 DEF0" { set x [expr $x+1]; exp_continue; }
315 -re ".* 126 02f4 01766C3C" { set x [expr $x+1]; exp_continue; }
316 -re ".* 126 EA309ABC" { set x [expr $x+1]; exp_continue; }
317 -re ".* 126 DEF0" { set x [expr $x+1]; exp_continue; }
318 -re ".* 127 02fe 01766C3C" { set x [expr $x+1]; exp_continue; }
319 -re ".* 127 FA309ABC" { set x [expr $x+1]; exp_continue; }
320 -re ".* 127 DEF0" { set x [expr $x+1]; exp_continue; }
321 -re ".* 128 0308 01766C3C" { set x [expr $x+1]; exp_continue; }
322 -re ".* 128 40309ABC" { set x [expr $x+1]; exp_continue; }
323 -re ".* 129 0310 01766C3C" { set x [expr $x+1]; exp_continue; }
324 -re ".* 129 48309ABC" { set x [expr $x+1]; exp_continue; }
325 -re ".* 129 DEF0" { set x [expr $x+1]; exp_continue; }
326 -re ".* 130 " {
327 if [expr $x == 37] then {
328 pass "$testname: sub.b @er3-, ..."
329 } else {
330 fail "$testname: sub.b @er3-, ... ($x)"
331 }
332 }
333 default { fail "$testname: sub.b @er3-, ... ($x)" }
334 }
335
336 set x 0
337 expect {
338 -re ".* 131 031a 01756C3C" { set x [expr $x+1]; exp_continue; }
339 -re ".* 131 0130" { set x [expr $x+1]; exp_continue; }
340 -re ".* 132 0320 01756C3C" { set x [expr $x+1]; exp_continue; }
341 -re ".* 132 3130" { set x [expr $x+1]; exp_continue; }
342 -re ".* 133 0326 01756C3C" { set x [expr $x+1]; exp_continue; }
343 -re ".* 133 B130" { set x [expr $x+1]; exp_continue; }
344 -re ".* 134 032c 01756C3C" { set x [expr $x+1]; exp_continue; }
345 -re ".* 134 8130" { set x [expr $x+1]; exp_continue; }
346 -re ".* 135 0332 01756C3C" { set x [expr $x+1]; exp_continue; }
347 -re ".* 135 A130" { set x [expr $x+1]; exp_continue; }
348 -re ".* 136 0338 01756C3C" { set x [expr $x+1]; exp_continue; }
349 -re ".* 136 9130" { set x [expr $x+1]; exp_continue; }
350 -re ".* 137 033e 01756C3C" { set x [expr $x+1]; exp_continue; }
351 -re ".* 137 C1309ABC" { set x [expr $x+1]; exp_continue; }
352 -re ".* 138 0346 01756C3C" { set x [expr $x+1]; exp_continue; }
353 -re ".* 138 C9309ABC" { set x [expr $x+1]; exp_continue; }
354 -re ".* 138 DEF0" { set x [expr $x+1]; exp_continue; }
355 -re ".* 139 0350 01756C3C" { set x [expr $x+1]; exp_continue; }
356 -re ".* 139 D2309ABC" { set x [expr $x+1]; exp_continue; }
357 -re ".* 140 0358 01756C3C" { set x [expr $x+1]; exp_continue; }
358 -re ".* 140 E2309ABC" { set x [expr $x+1]; exp_continue; }
359 -re ".* 141 0360 01756C3C" { set x [expr $x+1]; exp_continue; }
360 -re ".* 141 F2309ABC" { set x [expr $x+1]; exp_continue; }
361 -re ".* 142 0368 01756C3C" { set x [expr $x+1]; exp_continue; }
362 -re ".* 142 DA309ABC" { set x [expr $x+1]; exp_continue; }
363 -re ".* 142 DEF0" { set x [expr $x+1]; exp_continue; }
364 -re ".* 143 0372 01756C3C" { set x [expr $x+1]; exp_continue; }
365 -re ".* 143 EA309ABC" { set x [expr $x+1]; exp_continue; }
366 -re ".* 143 DEF0" { set x [expr $x+1]; exp_continue; }
367 -re ".* 144 037c 01756C3C" { set x [expr $x+1]; exp_continue; }
368 -re ".* 144 FA309ABC" { set x [expr $x+1]; exp_continue; }
369 -re ".* 144 DEF0" { set x [expr $x+1]; exp_continue; }
370 -re ".* 145 0386 01756C3C" { set x [expr $x+1]; exp_continue; }
371 -re ".* 145 40309ABC" { set x [expr $x+1]; exp_continue; }
372 -re ".* 146 038e 01756C3C" { set x [expr $x+1]; exp_continue; }
373 -re ".* 146 48309ABC" { set x [expr $x+1]; exp_continue; }
374 -re ".* 146 DEF0" { set x [expr $x+1]; exp_continue; }
375 -re ".* 147 " {
376 if [expr $x == 37] then {
377 pass "$testname: sub.b @+er3, ..."
378 } else {
379 fail "$testname: sub.b @+er3, ... ($x)"
380 }
381 }
382 default { fail "$testname: sub.b @+er3, ... ($x)" }
383 }
384
385 set x 0
386 expect {
387 -re ".* 148 0398 01746E3C" { set x [expr $x+1]; exp_continue; }
388 -re ".* 148 12340130" { set x [expr $x+1]; exp_continue; }
389 -re ".* 149 03a0 01746E3C" { set x [expr $x+1]; exp_continue; }
390 -re ".* 149 12343130" { set x [expr $x+1]; exp_continue; }
391 -re ".* 150 03a8 01746E3C" { set x [expr $x+1]; exp_continue; }
392 -re ".* 150 1234B130" { set x [expr $x+1]; exp_continue; }
393 -re ".* 151 03b0 01746E3C" { set x [expr $x+1]; exp_continue; }
394 -re ".* 151 12348130" { set x [expr $x+1]; exp_continue; }
395 -re ".* 152 03b8 01746E3C" { set x [expr $x+1]; exp_continue; }
396 -re ".* 152 1234A130" { set x [expr $x+1]; exp_continue; }
397 -re ".* 153 03c0 01746E3C" { set x [expr $x+1]; exp_continue; }
398 -re ".* 153 12349130" { set x [expr $x+1]; exp_continue; }
399 -re ".* 154 03c8 01746E3C" { set x [expr $x+1]; exp_continue; }
400 -re ".* 154 1234C130" { set x [expr $x+1]; exp_continue; }
401 -re ".* 154 9ABC" { set x [expr $x+1]; exp_continue; }
402 -re ".* 155 03d2 01746E3C" { set x [expr $x+1]; exp_continue; }
403 -re ".* 155 1234C930" { set x [expr $x+1]; exp_continue; }
404 -re ".* 155 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
405 -re ".* 156 03de 01746E3C" { set x [expr $x+1]; exp_continue; }
406 -re ".* 156 1234D230" { set x [expr $x+1]; exp_continue; }
407 -re ".* 156 9ABC" { set x [expr $x+1]; exp_continue; }
408 -re ".* 157 03e8 01746E3C" { set x [expr $x+1]; exp_continue; }
409 -re ".* 157 1234E230" { set x [expr $x+1]; exp_continue; }
410 -re ".* 157 9ABC" { set x [expr $x+1]; exp_continue; }
411 -re ".* 158 03f2 01746E3C" { set x [expr $x+1]; exp_continue; }
412 -re ".* 158 1234F230" { set x [expr $x+1]; exp_continue; }
413 -re ".* 158 9ABC" { set x [expr $x+1]; exp_continue; }
414 -re ".* 159 03fc 01746E3C" { set x [expr $x+1]; exp_continue; }
415 -re ".* 159 1234DA30" { set x [expr $x+1]; exp_continue; }
416 -re ".* 159 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
417 -re ".* 160 0408 01746E3C" { set x [expr $x+1]; exp_continue; }
418 -re ".* 160 1234EA30" { set x [expr $x+1]; exp_continue; }
419 -re ".* 160 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
420 -re ".* 161 0414 01746E3C" { set x [expr $x+1]; exp_continue; }
421 -re ".* 161 1234FA30" { set x [expr $x+1]; exp_continue; }
422 -re ".* 161 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
423 -re ".* 162 0420 01746E3C" { set x [expr $x+1]; exp_continue; }
424 -re ".* 162 12344030" { set x [expr $x+1]; exp_continue; }
425 -re ".* 162 9ABC" { set x [expr $x+1]; exp_continue; }
426 -re ".* 163 042a 01746E3C" { set x [expr $x+1]; exp_continue; }
427 -re ".* 163 12344830" { set x [expr $x+1]; exp_continue; }
428 -re ".* 163 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
429 -re ".* 164 " {
430 if [expr $x == 42] then {
431 pass "$testname: sub.b @(0x1234:16,er3), ..."
432 } else {
433 fail "$testname: sub.b @(0x1234:16,er3), ... ($x)"
434 }
435 }
436 default { fail "$testname: sub.b @(0x1234:16,er3), ... ($x)" }
437 }
438
439 set x 0
440 expect {
441 -re ".* 165 0436 78346A2C" { set x [expr $x+1]; exp_continue; }
442 -re ".* 165 12345678" { set x [expr $x+1]; exp_continue; }
443 -re ".* 165 0130" { set x [expr $x+1]; exp_continue; }
444 -re ".* 166 0440 78346A2C" { set x [expr $x+1]; exp_continue; }
445 -re ".* 166 12345678" { set x [expr $x+1]; exp_continue; }
446 -re ".* 166 3130" { set x [expr $x+1]; exp_continue; }
447 -re ".* 167 044a 78346A2C" { set x [expr $x+1]; exp_continue; }
448 -re ".* 167 12345678" { set x [expr $x+1]; exp_continue; }
449 -re ".* 167 B130" { set x [expr $x+1]; exp_continue; }
450 -re ".* 168 0454 78346A2C" { set x [expr $x+1]; exp_continue; }
451 -re ".* 168 12345678" { set x [expr $x+1]; exp_continue; }
452 -re ".* 168 8130" { set x [expr $x+1]; exp_continue; }
453 -re ".* 169 045e 78346A2C" { set x [expr $x+1]; exp_continue; }
454 -re ".* 169 12345678" { set x [expr $x+1]; exp_continue; }
455 -re ".* 169 A130" { set x [expr $x+1]; exp_continue; }
456 -re ".* 170 0468 78346A2C" { set x [expr $x+1]; exp_continue; }
457 -re ".* 170 12345678" { set x [expr $x+1]; exp_continue; }
458 -re ".* 170 9130" { set x [expr $x+1]; exp_continue; }
459 -re ".* 171 0472 78346A2C" { set x [expr $x+1]; exp_continue; }
460 -re ".* 171 12345678" { set x [expr $x+1]; exp_continue; }
461 -re ".* 171 C1309ABC" { set x [expr $x+1]; exp_continue; }
462 -re ".* 172 047e 78346A2C" { set x [expr $x+1]; exp_continue; }
463 -re ".* 172 12345678" { set x [expr $x+1]; exp_continue; }
464 -re ".* 172 C9309ABC" { set x [expr $x+1]; exp_continue; }
465 -re ".* 172 DEF0" { set x [expr $x+1]; exp_continue; }
466 -re ".* 173 048c 78346A2C" { set x [expr $x+1]; exp_continue; }
467 -re ".* 173 12345678" { set x [expr $x+1]; exp_continue; }
468 -re ".* 173 D2309ABC" { set x [expr $x+1]; exp_continue; }
469 -re ".* 174 0498 78346A2C" { set x [expr $x+1]; exp_continue; }
470 -re ".* 174 12345678" { set x [expr $x+1]; exp_continue; }
471 -re ".* 174 E2309ABC" { set x [expr $x+1]; exp_continue; }
472 -re ".* 175 04a4 78346A2C" { set x [expr $x+1]; exp_continue; }
473 -re ".* 175 12345678" { set x [expr $x+1]; exp_continue; }
474 -re ".* 175 F2309ABC" { set x [expr $x+1]; exp_continue; }
475 -re ".* 176 04b0 78346A2C" { set x [expr $x+1]; exp_continue; }
476 -re ".* 176 12345678" { set x [expr $x+1]; exp_continue; }
477 -re ".* 176 DA309ABC" { set x [expr $x+1]; exp_continue; }
478 -re ".* 176 DEF0" { set x [expr $x+1]; exp_continue; }
479 -re ".* 177 04be 78346A2C" { set x [expr $x+1]; exp_continue; }
480 -re ".* 177 12345678" { set x [expr $x+1]; exp_continue; }
481 -re ".* 177 EA309ABC" { set x [expr $x+1]; exp_continue; }
482 -re ".* 177 DEF0" { set x [expr $x+1]; exp_continue; }
483 -re ".* 178 04cc 78346A2C" { set x [expr $x+1]; exp_continue; }
484 -re ".* 178 12345678" { set x [expr $x+1]; exp_continue; }
485 -re ".* 178 FA309ABC" { set x [expr $x+1]; exp_continue; }
486 -re ".* 178 DEF0" { set x [expr $x+1]; exp_continue; }
487 -re ".* 179 04da 78346A2C" { set x [expr $x+1]; exp_continue; }
488 -re ".* 179 12345678" { set x [expr $x+1]; exp_continue; }
489 -re ".* 179 40309ABC" { set x [expr $x+1]; exp_continue; }
490 -re ".* 180 04e6 78346A2C" { set x [expr $x+1]; exp_continue; }
491 -re ".* 180 12345678" { set x [expr $x+1]; exp_continue; }
492 -re ".* 180 48309ABC" { set x [expr $x+1]; exp_continue; }
493 -re ".* 180 DEF0" { set x [expr $x+1]; exp_continue; }
494 -re ".* 181 " {
495 if [expr $x == 53] then {
496 pass "$testname: sub.b @(0x12345678:32,er3), ..."
497 } else {
498 fail "$testname: sub.b @(0x12345678:32,er3), ... ($x)"
499 }
500 }
501 default { fail "$testname: sub.b @(0x12345678:32,er3), ... ($x)" }
502 }
503
504 set x 0
505 expect {
506 -re ".* 182 04f4 01756E3C" { set x [expr $x+1]; exp_continue; }
507 -re ".* 182 12340130" { set x [expr $x+1]; exp_continue; }
508 -re ".* 183 04fc 01756E3C" { set x [expr $x+1]; exp_continue; }
509 -re ".* 183 12343130" { set x [expr $x+1]; exp_continue; }
510 -re ".* 184 0504 01756E3C" { set x [expr $x+1]; exp_continue; }
511 -re ".* 184 1234B130" { set x [expr $x+1]; exp_continue; }
512 -re ".* 185 050c 01756E3C" { set x [expr $x+1]; exp_continue; }
513 -re ".* 185 12348130" { set x [expr $x+1]; exp_continue; }
514 -re ".* 186 0514 01756E3C" { set x [expr $x+1]; exp_continue; }
515 -re ".* 186 1234A130" { set x [expr $x+1]; exp_continue; }
516 -re ".* 187 051c 01756E3C" { set x [expr $x+1]; exp_continue; }
517 -re ".* 187 12349130" { set x [expr $x+1]; exp_continue; }
518 -re ".* 188 0524 01756E3C" { set x [expr $x+1]; exp_continue; }
519 -re ".* 188 1234C130" { set x [expr $x+1]; exp_continue; }
520 -re ".* 188 9ABC" { set x [expr $x+1]; exp_continue; }
521 -re ".* 189 052e 01756E3C" { set x [expr $x+1]; exp_continue; }
522 -re ".* 189 1234C930" { set x [expr $x+1]; exp_continue; }
523 -re ".* 189 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
524 -re ".* 190 053a 01756E3C" { set x [expr $x+1]; exp_continue; }
525 -re ".* 190 1234D230" { set x [expr $x+1]; exp_continue; }
526 -re ".* 190 9ABC" { set x [expr $x+1]; exp_continue; }
527 -re ".* 191 0544 01756E3C" { set x [expr $x+1]; exp_continue; }
528 -re ".* 191 1234E230" { set x [expr $x+1]; exp_continue; }
529 -re ".* 191 9ABC" { set x [expr $x+1]; exp_continue; }
530 -re ".* 192 054e 01756E3C" { set x [expr $x+1]; exp_continue; }
531 -re ".* 192 1234F230" { set x [expr $x+1]; exp_continue; }
532 -re ".* 192 9ABC" { set x [expr $x+1]; exp_continue; }
533 -re ".* 193 0558 01756E3C" { set x [expr $x+1]; exp_continue; }
534 -re ".* 193 1234DA30" { set x [expr $x+1]; exp_continue; }
535 -re ".* 193 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
536 -re ".* 194 0564 01756E3C" { set x [expr $x+1]; exp_continue; }
537 -re ".* 194 1234EA30" { set x [expr $x+1]; exp_continue; }
538 -re ".* 194 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
539 -re ".* 195 0570 01756E3C" { set x [expr $x+1]; exp_continue; }
540 -re ".* 195 1234FA30" { set x [expr $x+1]; exp_continue; }
541 -re ".* 195 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
542 -re ".* 196 057c 01756E3C" { set x [expr $x+1]; exp_continue; }
543 -re ".* 196 12344030" { set x [expr $x+1]; exp_continue; }
544 -re ".* 196 9ABC" { set x [expr $x+1]; exp_continue; }
545 -re ".* 197 0586 01756E3C" { set x [expr $x+1]; exp_continue; }
546 -re ".* 197 12344830" { set x [expr $x+1]; exp_continue; }
547 -re ".* 197 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
548 -re ".* 198 " {
549 if [expr $x == 42] then {
550 pass "$testname: sub.b @(0x1234:16,r3l.b), ..."
551 } else {
552 fail "$testname: sub.b @(0x1234:16,r3l.b), ... ($x)"
553 }
554 }
555 default { fail "$testname: sub.b @(0x1234:16,r3l.b), ... ($x)" }
556 }
557
558 set x 0
559 expect {
560 -re ".* 199 0592 01766E3C" { set x [expr $x+1]; exp_continue; }
561 -re ".* 199 12340130" { set x [expr $x+1]; exp_continue; }
562 -re ".* 200 059a 01766E3C" { set x [expr $x+1]; exp_continue; }
563 -re ".* 200 12343130" { set x [expr $x+1]; exp_continue; }
564 -re ".* 201 05a2 01766E3C" { set x [expr $x+1]; exp_continue; }
565 -re ".* 201 1234B130" { set x [expr $x+1]; exp_continue; }
566 -re ".* 202 05aa 01766E3C" { set x [expr $x+1]; exp_continue; }
567 -re ".* 202 12348130" { set x [expr $x+1]; exp_continue; }
568 -re ".* 203 05b2 01766E3C" { set x [expr $x+1]; exp_continue; }
569 -re ".* 203 1234A130" { set x [expr $x+1]; exp_continue; }
570 -re ".* 204 05ba 01766E3C" { set x [expr $x+1]; exp_continue; }
571 -re ".* 204 12349130" { set x [expr $x+1]; exp_continue; }
572 -re ".* 205 05c2 01766E3C" { set x [expr $x+1]; exp_continue; }
573 -re ".* 205 1234C130" { set x [expr $x+1]; exp_continue; }
574 -re ".* 205 9ABC" { set x [expr $x+1]; exp_continue; }
575 -re ".* 206 05cc 01766E3C" { set x [expr $x+1]; exp_continue; }
576 -re ".* 206 1234C930" { set x [expr $x+1]; exp_continue; }
577 -re ".* 206 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
578 -re ".* 207 05d8 01766E3C" { set x [expr $x+1]; exp_continue; }
579 -re ".* 207 1234D230" { set x [expr $x+1]; exp_continue; }
580 -re ".* 207 9ABC" { set x [expr $x+1]; exp_continue; }
581 -re ".* 208 05e2 01766E3C" { set x [expr $x+1]; exp_continue; }
582 -re ".* 208 1234E230" { set x [expr $x+1]; exp_continue; }
583 -re ".* 208 9ABC" { set x [expr $x+1]; exp_continue; }
584 -re ".* 209 05ec 01766E3C" { set x [expr $x+1]; exp_continue; }
585 -re ".* 209 1234F230" { set x [expr $x+1]; exp_continue; }
586 -re ".* 209 9ABC" { set x [expr $x+1]; exp_continue; }
587 -re ".* 210 05f6 01766E3C" { set x [expr $x+1]; exp_continue; }
588 -re ".* 210 1234DA30" { set x [expr $x+1]; exp_continue; }
589 -re ".* 210 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
590 -re ".* 211 0602 01766E3C" { set x [expr $x+1]; exp_continue; }
591 -re ".* 211 1234EA30" { set x [expr $x+1]; exp_continue; }
592 -re ".* 211 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
593 -re ".* 212 060e 01766E3C" { set x [expr $x+1]; exp_continue; }
594 -re ".* 212 1234FA30" { set x [expr $x+1]; exp_continue; }
595 -re ".* 212 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
596 -re ".* 213 061a 01766E3C" { set x [expr $x+1]; exp_continue; }
597 -re ".* 213 12344030" { set x [expr $x+1]; exp_continue; }
598 -re ".* 213 9ABC" { set x [expr $x+1]; exp_continue; }
599 -re ".* 214 0624 01766E3C" { set x [expr $x+1]; exp_continue; }
600 -re ".* 214 12344830" { set x [expr $x+1]; exp_continue; }
601 -re ".* 214 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
602 -re ".* 215 " {
603 if [expr $x == 42] then {
604 pass "$testname: sub.b @(0x1234:16,r3.w), ..."
605 } else {
606 fail "$testname: sub.b @(0x1234:16,r3.w), ... ($x)"
607 }
608 }
609 default { fail "$testname: sub.b @(0x1234:16,r3.w), ... ($x)" }
610 }
611
612 set x 0
613 expect {
614 -re ".* 216 0630 01776E3C" { set x [expr $x+1]; exp_continue; }
615 -re ".* 216 12340130" { set x [expr $x+1]; exp_continue; }
616 -re ".* 217 0638 01776E3C" { set x [expr $x+1]; exp_continue; }
617 -re ".* 217 12343130" { set x [expr $x+1]; exp_continue; }
618 -re ".* 218 0640 01776E3C" { set x [expr $x+1]; exp_continue; }
619 -re ".* 218 1234B130" { set x [expr $x+1]; exp_continue; }
620 -re ".* 219 0648 01776E3C" { set x [expr $x+1]; exp_continue; }
621 -re ".* 219 12348130" { set x [expr $x+1]; exp_continue; }
622 -re ".* 220 0650 01776E3C" { set x [expr $x+1]; exp_continue; }
623 -re ".* 220 1234A130" { set x [expr $x+1]; exp_continue; }
624 -re ".* 221 0658 01776E3C" { set x [expr $x+1]; exp_continue; }
625 -re ".* 221 12349130" { set x [expr $x+1]; exp_continue; }
626 -re ".* 222 0660 01776E3C" { set x [expr $x+1]; exp_continue; }
627 -re ".* 222 1234C130" { set x [expr $x+1]; exp_continue; }
628 -re ".* 222 9ABC" { set x [expr $x+1]; exp_continue; }
629 -re ".* 223 066a 01776E3C" { set x [expr $x+1]; exp_continue; }
630 -re ".* 223 1234C930" { set x [expr $x+1]; exp_continue; }
631 -re ".* 223 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
632 -re ".* 224 0676 01776E3C" { set x [expr $x+1]; exp_continue; }
633 -re ".* 224 1234D230" { set x [expr $x+1]; exp_continue; }
634 -re ".* 224 9ABC" { set x [expr $x+1]; exp_continue; }
635 -re ".* 225 0680 01776E3C" { set x [expr $x+1]; exp_continue; }
636 -re ".* 225 1234E230" { set x [expr $x+1]; exp_continue; }
637 -re ".* 225 9ABC" { set x [expr $x+1]; exp_continue; }
638 -re ".* 226 068a 01776E3C" { set x [expr $x+1]; exp_continue; }
639 -re ".* 226 1234F230" { set x [expr $x+1]; exp_continue; }
640 -re ".* 226 9ABC" { set x [expr $x+1]; exp_continue; }
641 -re ".* 227 0694 01776E3C" { set x [expr $x+1]; exp_continue; }
642 -re ".* 227 1234DA30" { set x [expr $x+1]; exp_continue; }
643 -re ".* 227 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
644 -re ".* 228 06a0 01776E3C" { set x [expr $x+1]; exp_continue; }
645 -re ".* 228 1234EA30" { set x [expr $x+1]; exp_continue; }
646 -re ".* 228 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
647 -re ".* 229 06ac 01776E3C" { set x [expr $x+1]; exp_continue; }
648 -re ".* 229 1234FA30" { set x [expr $x+1]; exp_continue; }
649 -re ".* 229 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
650 -re ".* 230 06b8 01776E3C" { set x [expr $x+1]; exp_continue; }
651 -re ".* 230 12344030" { set x [expr $x+1]; exp_continue; }
652 -re ".* 230 9ABC" { set x [expr $x+1]; exp_continue; }
653 -re ".* 231 06c2 01776E3C" { set x [expr $x+1]; exp_continue; }
654 -re ".* 231 12344830" { set x [expr $x+1]; exp_continue; }
655 -re ".* 231 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
656 -re ".* 232 " {
657 if [expr $x == 42] then {
658 pass "$testname: sub.b @(0x1234:16,er3.l), ..."
659 } else {
660 fail "$testname: sub.b @(0x1234:16,er3.l), ... ($x)"
661 }
662 }
663 default { fail "$testname: sub.b @(0x1234:16,er3.l), ... ($x)" }
664 }
665
666 set x 0
667 expect {
668 -re ".* 233 06ce 78356A2C" { set x [expr $x+1]; exp_continue; }
669 -re ".* 233 12345678" { set x [expr $x+1]; exp_continue; }
670 -re ".* 233 0130" { set x [expr $x+1]; exp_continue; }
671 -re ".* 234 06d8 78356A2C" { set x [expr $x+1]; exp_continue; }
672 -re ".* 234 12345678" { set x [expr $x+1]; exp_continue; }
673 -re ".* 234 3130" { set x [expr $x+1]; exp_continue; }
674 -re ".* 235 06e2 78356A2C" { set x [expr $x+1]; exp_continue; }
675 -re ".* 235 12345678" { set x [expr $x+1]; exp_continue; }
676 -re ".* 235 B130" { set x [expr $x+1]; exp_continue; }
677 -re ".* 236 06ec 78356A2C" { set x [expr $x+1]; exp_continue; }
678 -re ".* 236 12345678" { set x [expr $x+1]; exp_continue; }
679 -re ".* 236 8130" { set x [expr $x+1]; exp_continue; }
680 -re ".* 237 06f6 78356A2C" { set x [expr $x+1]; exp_continue; }
681 -re ".* 237 12345678" { set x [expr $x+1]; exp_continue; }
682 -re ".* 237 A130" { set x [expr $x+1]; exp_continue; }
683 -re ".* 238 0700 78356A2C" { set x [expr $x+1]; exp_continue; }
684 -re ".* 238 12345678" { set x [expr $x+1]; exp_continue; }
685 -re ".* 238 9130" { set x [expr $x+1]; exp_continue; }
686 -re ".* 239 070a 78356A2C" { set x [expr $x+1]; exp_continue; }
687 -re ".* 239 12345678" { set x [expr $x+1]; exp_continue; }
688 -re ".* 239 C1309ABC" { set x [expr $x+1]; exp_continue; }
689 -re ".* 240 0716 78356A2C" { set x [expr $x+1]; exp_continue; }
690 -re ".* 240 12345678" { set x [expr $x+1]; exp_continue; }
691 -re ".* 240 C9309ABC" { set x [expr $x+1]; exp_continue; }
692 -re ".* 240 DEF0" { set x [expr $x+1]; exp_continue; }
693 -re ".* 241 0724 78356A2C" { set x [expr $x+1]; exp_continue; }
694 -re ".* 241 12345678" { set x [expr $x+1]; exp_continue; }
695 -re ".* 241 D2309ABC" { set x [expr $x+1]; exp_continue; }
696 -re ".* 242 0730 78356A2C" { set x [expr $x+1]; exp_continue; }
697 -re ".* 242 12345678" { set x [expr $x+1]; exp_continue; }
698 -re ".* 242 E2309ABC" { set x [expr $x+1]; exp_continue; }
699 -re ".* 243 073c 78356A2C" { set x [expr $x+1]; exp_continue; }
700 -re ".* 243 12345678" { set x [expr $x+1]; exp_continue; }
701 -re ".* 243 F2309ABC" { set x [expr $x+1]; exp_continue; }
702 -re ".* 244 0748 78356A2C" { set x [expr $x+1]; exp_continue; }
703 -re ".* 244 12345678" { set x [expr $x+1]; exp_continue; }
704 -re ".* 244 DA309ABC" { set x [expr $x+1]; exp_continue; }
705 -re ".* 244 DEF0" { set x [expr $x+1]; exp_continue; }
706 -re ".* 245 0756 78356A2C" { set x [expr $x+1]; exp_continue; }
707 -re ".* 245 12345678" { set x [expr $x+1]; exp_continue; }
708 -re ".* 245 EA309ABC" { set x [expr $x+1]; exp_continue; }
709 -re ".* 245 DEF0" { set x [expr $x+1]; exp_continue; }
710 -re ".* 246 0764 78356A2C" { set x [expr $x+1]; exp_continue; }
711 -re ".* 246 12345678" { set x [expr $x+1]; exp_continue; }
712 -re ".* 246 FA309ABC" { set x [expr $x+1]; exp_continue; }
713 -re ".* 246 DEF0" { set x [expr $x+1]; exp_continue; }
714 -re ".* 247 0772 78356A2C" { set x [expr $x+1]; exp_continue; }
715 -re ".* 247 12345678" { set x [expr $x+1]; exp_continue; }
716 -re ".* 247 40309ABC" { set x [expr $x+1]; exp_continue; }
717 -re ".* 248 077e 78356A2C" { set x [expr $x+1]; exp_continue; }
718 -re ".* 248 12345678" { set x [expr $x+1]; exp_continue; }
719 -re ".* 248 48309ABC" { set x [expr $x+1]; exp_continue; }
720 -re ".* 248 DEF0" { set x [expr $x+1]; exp_continue; }
721 -re ".* 249 " {
722 if [expr $x == 53] then {
723 pass "$testname: sub.b @(0x12345678:32,r3l.b), ..."
724 } else {
725 fail "$testname: sub.b @(0x12345678:32,r3l.b), ... ($x)"
726 }
727 }
728 default { fail "$testname: sub.b @(0x12345678:32,r3l.b), ... ($x)" }
729 }
730
731 set x 0
732 expect {
733 -re ".* 250 078c 78366A2C" { set x [expr $x+1]; exp_continue; }
734 -re ".* 250 12345678" { set x [expr $x+1]; exp_continue; }
735 -re ".* 250 0130" { set x [expr $x+1]; exp_continue; }
736 -re ".* 251 0796 78366A2C" { set x [expr $x+1]; exp_continue; }
737 -re ".* 251 12345678" { set x [expr $x+1]; exp_continue; }
738 -re ".* 251 3130" { set x [expr $x+1]; exp_continue; }
739 -re ".* 252 07a0 78366A2C" { set x [expr $x+1]; exp_continue; }
740 -re ".* 252 12345678" { set x [expr $x+1]; exp_continue; }
741 -re ".* 252 B130" { set x [expr $x+1]; exp_continue; }
742 -re ".* 253 07aa 78366A2C" { set x [expr $x+1]; exp_continue; }
743 -re ".* 253 12345678" { set x [expr $x+1]; exp_continue; }
744 -re ".* 253 8130" { set x [expr $x+1]; exp_continue; }
745 -re ".* 254 07b4 78366A2C" { set x [expr $x+1]; exp_continue; }
746 -re ".* 254 12345678" { set x [expr $x+1]; exp_continue; }
747 -re ".* 254 A130" { set x [expr $x+1]; exp_continue; }
748 -re ".* 255 07be 78366A2C" { set x [expr $x+1]; exp_continue; }
749 -re ".* 255 12345678" { set x [expr $x+1]; exp_continue; }
750 -re ".* 255 9130" { set x [expr $x+1]; exp_continue; }
751 -re ".* 256 07c8 78366A2C" { set x [expr $x+1]; exp_continue; }
752 -re ".* 256 12345678" { set x [expr $x+1]; exp_continue; }
753 -re ".* 256 C1309ABC" { set x [expr $x+1]; exp_continue; }
754 -re ".* 257 07d4 78366A2C" { set x [expr $x+1]; exp_continue; }
755 -re ".* 257 12345678" { set x [expr $x+1]; exp_continue; }
756 -re ".* 257 C9309ABC" { set x [expr $x+1]; exp_continue; }
757 -re ".* 257 DEF0" { set x [expr $x+1]; exp_continue; }
758 -re ".* 258 07e2 78366A2C" { set x [expr $x+1]; exp_continue; }
759 -re ".* 258 12345678" { set x [expr $x+1]; exp_continue; }
760 -re ".* 258 D2309ABC" { set x [expr $x+1]; exp_continue; }
761 -re ".* 259 07ee 78366A2C" { set x [expr $x+1]; exp_continue; }
762 -re ".* 259 12345678" { set x [expr $x+1]; exp_continue; }
763 -re ".* 259 E2309ABC" { set x [expr $x+1]; exp_continue; }
764 -re ".* 260 07fa 78366A2C" { set x [expr $x+1]; exp_continue; }
765 -re ".* 260 12345678" { set x [expr $x+1]; exp_continue; }
766 -re ".* 260 F2309ABC" { set x [expr $x+1]; exp_continue; }
767 -re ".* 261 0806 78366A2C" { set x [expr $x+1]; exp_continue; }
768 -re ".* 261 12345678" { set x [expr $x+1]; exp_continue; }
769 -re ".* 261 DA309ABC" { set x [expr $x+1]; exp_continue; }
770 -re ".* 261 DEF0" { set x [expr $x+1]; exp_continue; }
771 -re ".* 262 0814 78366A2C" { set x [expr $x+1]; exp_continue; }
772 -re ".* 262 12345678" { set x [expr $x+1]; exp_continue; }
773 -re ".* 262 EA309ABC" { set x [expr $x+1]; exp_continue; }
774 -re ".* 262 DEF0" { set x [expr $x+1]; exp_continue; }
775 -re ".* 263 0822 78366A2C" { set x [expr $x+1]; exp_continue; }
776 -re ".* 263 12345678" { set x [expr $x+1]; exp_continue; }
777 -re ".* 263 FA309ABC" { set x [expr $x+1]; exp_continue; }
778 -re ".* 263 DEF0" { set x [expr $x+1]; exp_continue; }
779 -re ".* 264 0830 78366A2C" { set x [expr $x+1]; exp_continue; }
780 -re ".* 264 12345678" { set x [expr $x+1]; exp_continue; }
781 -re ".* 264 40309ABC" { set x [expr $x+1]; exp_continue; }
782 -re ".* 265 083c 78366A2C" { set x [expr $x+1]; exp_continue; }
783 -re ".* 265 12345678" { set x [expr $x+1]; exp_continue; }
784 -re ".* 265 48309ABC" { set x [expr $x+1]; exp_continue; }
785 -re ".* 265 DEF0" { set x [expr $x+1]; exp_continue; }
786 -re ".* 266 " {
787 if [expr $x == 53] then {
788 pass "$testname: sub.b @(0x12345678:32,r3.w), ..."
789 } else {
790 fail "$testname: sub.b @(0x12345678:32,r3.w), ... ($x)"
791 }
792 }
793 default { fail "$testname: sub.b @(0x12345678:32,r3.w), ... ($x)" }
794 }
795
796 set x 0
797 expect {
798 -re ".* 267 084a 78376A2C" { set x [expr $x+1]; exp_continue; }
799 -re ".* 267 12345678" { set x [expr $x+1]; exp_continue; }
800 -re ".* 267 0130" { set x [expr $x+1]; exp_continue; }
801 -re ".* 268 0854 78376A2C" { set x [expr $x+1]; exp_continue; }
802 -re ".* 268 12345678" { set x [expr $x+1]; exp_continue; }
803 -re ".* 268 3130" { set x [expr $x+1]; exp_continue; }
804 -re ".* 269 085e 78376A2C" { set x [expr $x+1]; exp_continue; }
805 -re ".* 269 12345678" { set x [expr $x+1]; exp_continue; }
806 -re ".* 269 B130" { set x [expr $x+1]; exp_continue; }
807 -re ".* 270 0868 78376A2C" { set x [expr $x+1]; exp_continue; }
808 -re ".* 270 12345678" { set x [expr $x+1]; exp_continue; }
809 -re ".* 270 8130" { set x [expr $x+1]; exp_continue; }
810 -re ".* 271 0872 78376A2C" { set x [expr $x+1]; exp_continue; }
811 -re ".* 271 12345678" { set x [expr $x+1]; exp_continue; }
812 -re ".* 271 A130" { set x [expr $x+1]; exp_continue; }
813 -re ".* 272 087c 78376A2C" { set x [expr $x+1]; exp_continue; }
814 -re ".* 272 12345678" { set x [expr $x+1]; exp_continue; }
815 -re ".* 272 9130" { set x [expr $x+1]; exp_continue; }
816 -re ".* 273 0886 78376A2C" { set x [expr $x+1]; exp_continue; }
817 -re ".* 273 12345678" { set x [expr $x+1]; exp_continue; }
818 -re ".* 273 C1309ABC" { set x [expr $x+1]; exp_continue; }
819 -re ".* 274 0892 78376A2C" { set x [expr $x+1]; exp_continue; }
820 -re ".* 274 12345678" { set x [expr $x+1]; exp_continue; }
821 -re ".* 274 C9309ABC" { set x [expr $x+1]; exp_continue; }
822 -re ".* 274 DEF0" { set x [expr $x+1]; exp_continue; }
823 -re ".* 275 08a0 78376A2C" { set x [expr $x+1]; exp_continue; }
824 -re ".* 275 12345678" { set x [expr $x+1]; exp_continue; }
825 -re ".* 275 D2309ABC" { set x [expr $x+1]; exp_continue; }
826 -re ".* 276 08ac 78376A2C" { set x [expr $x+1]; exp_continue; }
827 -re ".* 276 12345678" { set x [expr $x+1]; exp_continue; }
828 -re ".* 276 E2309ABC" { set x [expr $x+1]; exp_continue; }
829 -re ".* 277 08b8 78376A2C" { set x [expr $x+1]; exp_continue; }
830 -re ".* 277 12345678" { set x [expr $x+1]; exp_continue; }
831 -re ".* 277 F2309ABC" { set x [expr $x+1]; exp_continue; }
832 -re ".* 278 08c4 78376A2C" { set x [expr $x+1]; exp_continue; }
833 -re ".* 278 12345678" { set x [expr $x+1]; exp_continue; }
834 -re ".* 278 DA309ABC" { set x [expr $x+1]; exp_continue; }
835 -re ".* 278 DEF0" { set x [expr $x+1]; exp_continue; }
836 -re ".* 279 08d2 78376A2C" { set x [expr $x+1]; exp_continue; }
837 -re ".* 279 12345678" { set x [expr $x+1]; exp_continue; }
838 -re ".* 279 EA309ABC" { set x [expr $x+1]; exp_continue; }
839 -re ".* 279 DEF0" { set x [expr $x+1]; exp_continue; }
840 -re ".* 280 08e0 78376A2C" { set x [expr $x+1]; exp_continue; }
841 -re ".* 280 12345678" { set x [expr $x+1]; exp_continue; }
842 -re ".* 280 FA309ABC" { set x [expr $x+1]; exp_continue; }
843 -re ".* 280 DEF0" { set x [expr $x+1]; exp_continue; }
844 -re ".* 281 08ee 78376A2C" { set x [expr $x+1]; exp_continue; }
845 -re ".* 281 12345678" { set x [expr $x+1]; exp_continue; }
846 -re ".* 281 40309ABC" { set x [expr $x+1]; exp_continue; }
847 -re ".* 282 08fa 78376A2C" { set x [expr $x+1]; exp_continue; }
848 -re ".* 282 12345678" { set x [expr $x+1]; exp_continue; }
849 -re ".* 282 48309ABC" { set x [expr $x+1]; exp_continue; }
850 -re ".* 282 DEF0" { set x [expr $x+1]; exp_continue; }
851 -re ".* 283 " {
852 if [expr $x == 53] then {
853 pass "$testname: sub.b @(0x12345678:32,er3.l), ..."
854 } else {
855 fail "$testname: sub.b @(0x12345678:32,er3.l), ... ($x)"
856 }
857 }
858 default { fail "$testname: sub.b @(0x12345678:32,er3.l), ... ($x)" }
859 }
860
861 set x 0
862 expect {
863 -re ".* 284 0908 6A151234" { set x [expr $x+1]; exp_continue; }
864 -re ".* 284 0130" { set x [expr $x+1]; exp_continue; }
865 -re ".* 285 090e 6A151234" { set x [expr $x+1]; exp_continue; }
866 -re ".* 285 3130" { set x [expr $x+1]; exp_continue; }
867 -re ".* 286 0914 6A151234" { set x [expr $x+1]; exp_continue; }
868 -re ".* 286 B130" { set x [expr $x+1]; exp_continue; }
869 -re ".* 287 091a 6A151234" { set x [expr $x+1]; exp_continue; }
870 -re ".* 287 8130" { set x [expr $x+1]; exp_continue; }
871 -re ".* 288 0920 6A151234" { set x [expr $x+1]; exp_continue; }
872 -re ".* 288 A130" { set x [expr $x+1]; exp_continue; }
873 -re ".* 289 0926 6A151234" { set x [expr $x+1]; exp_continue; }
874 -re ".* 289 9130" { set x [expr $x+1]; exp_continue; }
875 -re ".* 290 092c 6A151234" { set x [expr $x+1]; exp_continue; }
876 -re ".* 290 C1309ABC" { set x [expr $x+1]; exp_continue; }
877 -re ".* 291 0934 6A151234" { set x [expr $x+1]; exp_continue; }
878 -re ".* 291 C9309ABC" { set x [expr $x+1]; exp_continue; }
879 -re ".* 291 DEF0" { set x [expr $x+1]; exp_continue; }
880 -re ".* 292 093e 6A151234" { set x [expr $x+1]; exp_continue; }
881 -re ".* 292 D2309ABC" { set x [expr $x+1]; exp_continue; }
882 -re ".* 293 0946 6A151234" { set x [expr $x+1]; exp_continue; }
883 -re ".* 293 E2309ABC" { set x [expr $x+1]; exp_continue; }
884 -re ".* 294 094e 6A151234" { set x [expr $x+1]; exp_continue; }
885 -re ".* 294 F2309ABC" { set x [expr $x+1]; exp_continue; }
886 -re ".* 295 0956 6A151234" { set x [expr $x+1]; exp_continue; }
887 -re ".* 295 DA309ABC" { set x [expr $x+1]; exp_continue; }
888 -re ".* 295 DEF0" { set x [expr $x+1]; exp_continue; }
889 -re ".* 296 0960 6A151234" { set x [expr $x+1]; exp_continue; }
890 -re ".* 296 EA309ABC" { set x [expr $x+1]; exp_continue; }
891 -re ".* 296 DEF0" { set x [expr $x+1]; exp_continue; }
892 -re ".* 297 096a 6A151234" { set x [expr $x+1]; exp_continue; }
893 -re ".* 297 FA309ABC" { set x [expr $x+1]; exp_continue; }
894 -re ".* 297 DEF0" { set x [expr $x+1]; exp_continue; }
895 -re ".* 298 0974 6A151234" { set x [expr $x+1]; exp_continue; }
896 -re ".* 298 40309ABC" { set x [expr $x+1]; exp_continue; }
897 -re ".* 299 097c 6A151234" { set x [expr $x+1]; exp_continue; }
898 -re ".* 299 48309ABC" { set x [expr $x+1]; exp_continue; }
899 -re ".* 299 DEF0" { set x [expr $x+1]; exp_continue; }
900 -re ".* 300 " {
901 if [expr $x == 37] then {
902 pass "$testname: sub.b @0x1234:16, ..."
903 } else {
904 fail "$testname: sub.b @0x1234:16, ... ($x)"
905 }
906 }
907 default { fail "$testname: sub.b @0x1234:16, ... ($x)" }
908 }
909
910 set x 0
911 expect {
912 -re ".* 301 0986 6A351234" { set x [expr $x+1]; exp_continue; }
913 -re ".* 301 56780130" { set x [expr $x+1]; exp_continue; }
914 -re ".* 302 098e 6A351234" { set x [expr $x+1]; exp_continue; }
915 -re ".* 302 56783130" { set x [expr $x+1]; exp_continue; }
916 -re ".* 303 0996 6A351234" { set x [expr $x+1]; exp_continue; }
917 -re ".* 303 5678B130" { set x [expr $x+1]; exp_continue; }
918 -re ".* 304 099e 6A351234" { set x [expr $x+1]; exp_continue; }
919 -re ".* 304 56788130" { set x [expr $x+1]; exp_continue; }
920 -re ".* 305 09a6 6A351234" { set x [expr $x+1]; exp_continue; }
921 -re ".* 305 5678A130" { set x [expr $x+1]; exp_continue; }
922 -re ".* 306 09ae 6A351234" { set x [expr $x+1]; exp_continue; }
923 -re ".* 306 56789130" { set x [expr $x+1]; exp_continue; }
924 -re ".* 307 09b6 6A351234" { set x [expr $x+1]; exp_continue; }
925 -re ".* 307 5678C130" { set x [expr $x+1]; exp_continue; }
926 -re ".* 307 9ABC" { set x [expr $x+1]; exp_continue; }
927 -re ".* 308 09c0 6A351234" { set x [expr $x+1]; exp_continue; }
928 -re ".* 308 5678C930" { set x [expr $x+1]; exp_continue; }
929 -re ".* 308 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
930 -re ".* 309 09cc 6A351234" { set x [expr $x+1]; exp_continue; }
931 -re ".* 309 5678D230" { set x [expr $x+1]; exp_continue; }
932 -re ".* 309 9ABC" { set x [expr $x+1]; exp_continue; }
933 -re ".* 310 09d6 6A351234" { set x [expr $x+1]; exp_continue; }
934 -re ".* 310 5678E230" { set x [expr $x+1]; exp_continue; }
935 -re ".* 310 9ABC" { set x [expr $x+1]; exp_continue; }
936 -re ".* 311 09e0 6A351234" { set x [expr $x+1]; exp_continue; }
937 -re ".* 311 5678F230" { set x [expr $x+1]; exp_continue; }
938 -re ".* 311 9ABC" { set x [expr $x+1]; exp_continue; }
939 -re ".* 312 09ea 6A351234" { set x [expr $x+1]; exp_continue; }
940 -re ".* 312 5678DA30" { set x [expr $x+1]; exp_continue; }
941 -re ".* 312 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
942 -re ".* 313 09f6 6A351234" { set x [expr $x+1]; exp_continue; }
943 -re ".* 313 5678EA30" { set x [expr $x+1]; exp_continue; }
944 -re ".* 313 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
945 -re ".* 314 0a02 6A351234" { set x [expr $x+1]; exp_continue; }
946 -re ".* 314 5678FA30" { set x [expr $x+1]; exp_continue; }
947 -re ".* 314 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
948 -re ".* 315 0a0e 6A351234" { set x [expr $x+1]; exp_continue; }
949 -re ".* 315 56784030" { set x [expr $x+1]; exp_continue; }
950 -re ".* 315 9ABC" { set x [expr $x+1]; exp_continue; }
951 -re ".* 316 0a18 6A351234" { set x [expr $x+1]; exp_continue; }
952 -re ".* 316 56784830" { set x [expr $x+1]; exp_continue; }
953 -re ".* 316 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
954 -re ".* 317 " {
955 if [expr $x == 42] then {
956 pass "$testname: sub.b @0x12345678:32, ..."
957 } else {
958 fail "$testname: sub.b @0x12345678:32, ... ($x)"
959 }
960 }
961 default { fail "$testname: sub.b @0x12345678:32, ... ($x)" }
962 }
963
964 set x 0
965 expect {
966 -re ".* 318 0a24 79311234" { set x [expr $x+1]; exp_continue; }
967 -re ".* 319 0a28 1A72" { set x [expr $x+1]; exp_continue; }
968 -re ".* 320 0a2a 015E0130" { set x [expr $x+1]; exp_continue; }
969 -re ".* 320 1234" { set x [expr $x+1]; exp_continue; }
970 -re ".* 321 0a30 015E3130" { set x [expr $x+1]; exp_continue; }
971 -re ".* 321 1234" { set x [expr $x+1]; exp_continue; }
972 -re ".* 322 0a36 015E8130" { set x [expr $x+1]; exp_continue; }
973 -re ".* 322 1234" { set x [expr $x+1]; exp_continue; }
974 -re ".* 323 0a3c 015EB130" { set x [expr $x+1]; exp_continue; }
975 -re ".* 323 1234" { set x [expr $x+1]; exp_continue; }
976 -re ".* 324 0a42 015E9130" { set x [expr $x+1]; exp_continue; }
977 -re ".* 324 1234" { set x [expr $x+1]; exp_continue; }
978 -re ".* 325 0a48 015EA130" { set x [expr $x+1]; exp_continue; }
979 -re ".* 325 1234" { set x [expr $x+1]; exp_continue; }
980 -re ".* 326 0a4e 015EC130" { set x [expr $x+1]; exp_continue; }
981 -re ".* 326 9ABC1234" { set x [expr $x+1]; exp_continue; }
982 -re ".* 327 0a56 015EC930" { set x [expr $x+1]; exp_continue; }
983 -re ".* 327 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
984 -re ".* 327 1234" { set x [expr $x+1]; exp_continue; }
985 -re ".* 328 0a60 015ED230" { set x [expr $x+1]; exp_continue; }
986 -re ".* 328 9ABC1234" { set x [expr $x+1]; exp_continue; }
987 -re ".* 329 0a68 015EE230" { set x [expr $x+1]; exp_continue; }
988 -re ".* 329 9ABC1234" { set x [expr $x+1]; exp_continue; }
989 -re ".* 330 0a70 015EF230" { set x [expr $x+1]; exp_continue; }
990 -re ".* 330 9ABC1234" { set x [expr $x+1]; exp_continue; }
991 -re ".* 331 0a78 015EDA30" { set x [expr $x+1]; exp_continue; }
992 -re ".* 331 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
993 -re ".* 331 1234" { set x [expr $x+1]; exp_continue; }
994 -re ".* 332 0a82 015EEA30" { set x [expr $x+1]; exp_continue; }
995 -re ".* 332 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
996 -re ".* 332 1234" { set x [expr $x+1]; exp_continue; }
997 -re ".* 333 0a8c 015EFA30" { set x [expr $x+1]; exp_continue; }
998 -re ".* 333 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
999 -re ".* 333 1234" { set x [expr $x+1]; exp_continue; }
1000 -re ".* 334 0a96 015E4030" { set x [expr $x+1]; exp_continue; }
1001 -re ".* 334 9ABC1234" { set x [expr $x+1]; exp_continue; }
1002 -re ".* 335 0a9e 015E4830" { set x [expr $x+1]; exp_continue; }
1003 -re ".* 335 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1004 -re ".* 335 1234" { set x [expr $x+1]; exp_continue; }
1005 -re ".* 336 " {
1006 if [expr $x == 39] then {
1007 pass "$testname: sub.w #0x1234:16, ..."
1008 } else {
1009 fail "$testname: sub.w #0x1234:16, ... ($x)"
1010 }
1011 }
1012 default { fail "$testname: sub.w #0x1234:16, ... ($x)" }
1013 }
1014
1015 set x 0
1016 expect {
1017 -re ".* 337 0aa8 7D901A70" { set x [expr $x+1]; exp_continue; }
1018 -re ".* 338 0aac 6B181234" { set x [expr $x+1]; exp_continue; }
1019 -re ".* 338 1A70" { set x [expr $x+1]; exp_continue; }
1020 -re ".* 339 0ab2 6B381234" { set x [expr $x+1]; exp_continue; }
1021 -re ".* 339 56781A70" { set x [expr $x+1]; exp_continue; }
1022 -re ".* 340 " {
1023 if [expr $x == 5] then {
1024 pass "$testname: sub.w #0x7:3, ..."
1025 } else {
1026 fail "$testname: sub.w #0x7:3, ... ($x)"
1027 }
1028 }
1029 default { fail "$testname: sub.w #0x7:3, ... ($x)" }
1030 }
1031
1032 set x 0
1033 expect {
1034 -re ".* 341 0aba 1931" { set x [expr $x+1]; exp_continue; }
1035 -re ".* 342 " {
1036 if [expr $x == 1] then {
1037 pass "$testname: sub.w r3, r1"
1038 } else {
1039 fail "$testname: sub.w r3, r1 ($x)"
1040 }
1041 }
1042 default { fail "$testname: sub.w r3, r1 ($x)" }
1043 }
1044
1045 set x 0
1046 expect {
1047 -re ".* 343 0abc 7D901930" { set x [expr $x+1]; exp_continue; }
1048 -re ".* 344 0ac0 01593133" { set x [expr $x+1]; exp_continue; }
1049 -re ".* 345 0ac4 01598133" { set x [expr $x+1]; exp_continue; }
1050 -re ".* 346 0ac8 0159B133" { set x [expr $x+1]; exp_continue; }
1051 -re ".* 347 0acc 01599133" { set x [expr $x+1]; exp_continue; }
1052 -re ".* 348 0ad0 0159A133" { set x [expr $x+1]; exp_continue; }
1053 -re ".* 349 0ad4 0159C133" { set x [expr $x+1]; exp_continue; }
1054 -re ".* 349 1234" { set x [expr $x+1]; exp_continue; }
1055 -re ".* 350 0ada 0159C933" { set x [expr $x+1]; exp_continue; }
1056 -re ".* 350 12345678" { set x [expr $x+1]; exp_continue; }
1057 -re ".* 351 0ae2 0159D233" { set x [expr $x+1]; exp_continue; }
1058 -re ".* 351 1234" { set x [expr $x+1]; exp_continue; }
1059 -re ".* 352 0ae8 0159E233" { set x [expr $x+1]; exp_continue; }
1060 -re ".* 352 1234" { set x [expr $x+1]; exp_continue; }
1061 -re ".* 353 0aee 0159F233" { set x [expr $x+1]; exp_continue; }
1062 -re ".* 353 1234" { set x [expr $x+1]; exp_continue; }
1063 -re ".* 354 0af4 0159DA33" { set x [expr $x+1]; exp_continue; }
1064 -re ".* 354 12345678" { set x [expr $x+1]; exp_continue; }
1065 -re ".* 355 0afc 0159EA33" { set x [expr $x+1]; exp_continue; }
1066 -re ".* 355 12345678" { set x [expr $x+1]; exp_continue; }
1067 -re ".* 356 0b04 0159FA33" { set x [expr $x+1]; exp_continue; }
1068 -re ".* 356 12345678" { set x [expr $x+1]; exp_continue; }
1069 -re ".* 357 0b0c 6B181234" { set x [expr $x+1]; exp_continue; }
1070 -re ".* 357 1930" { set x [expr $x+1]; exp_continue; }
1071 -re ".* 358 0b12 6B381234" { set x [expr $x+1]; exp_continue; }
1072 -re ".* 358 56781930" { set x [expr $x+1]; exp_continue; }
1073 -re ".* 359 " {
1074 if [expr $x == 26] then {
1075 pass "$testname: sub.w r3, ..."
1076 } else {
1077 fail "$testname: sub.w r3, ... ($x)"
1078 }
1079 }
1080 default { fail "$testname: sub.w r3, ... ($x)" }
1081 }
1082
1083 set x 0
1084 expect {
1085 -re ".* 360 0b1a 7CB01901" { set x [expr $x+1]; exp_continue; }
1086 -re ".* 361 0b1e 015A3331" { set x [expr $x+1]; exp_continue; }
1087 -re ".* 362 0b22 015A8331" { set x [expr $x+1]; exp_continue; }
1088 -re ".* 363 0b26 015AB331" { set x [expr $x+1]; exp_continue; }
1089 -re ".* 364 0b2a 015A9331" { set x [expr $x+1]; exp_continue; }
1090 -re ".* 365 0b2e 015AA331" { set x [expr $x+1]; exp_continue; }
1091 -re ".* 366 0b32 015AC131" { set x [expr $x+1]; exp_continue; }
1092 -re ".* 366 1234" { set x [expr $x+1]; exp_continue; }
1093 -re ".* 367 0b38 015AC931" { set x [expr $x+1]; exp_continue; }
1094 -re ".* 367 12345678" { set x [expr $x+1]; exp_continue; }
1095 -re ".* 368 0b40 015AD231" { set x [expr $x+1]; exp_continue; }
1096 -re ".* 368 1234" { set x [expr $x+1]; exp_continue; }
1097 -re ".* 369 0b46 015AE231" { set x [expr $x+1]; exp_continue; }
1098 -re ".* 369 1234" { set x [expr $x+1]; exp_continue; }
1099 -re ".* 370 0b4c 015AF231" { set x [expr $x+1]; exp_continue; }
1100 -re ".* 370 1234" { set x [expr $x+1]; exp_continue; }
1101 -re ".* 371 0b52 015ADA31" { set x [expr $x+1]; exp_continue; }
1102 -re ".* 371 12345678" { set x [expr $x+1]; exp_continue; }
1103 -re ".* 372 0b5a 015AEA31" { set x [expr $x+1]; exp_continue; }
1104 -re ".* 372 12345678" { set x [expr $x+1]; exp_continue; }
1105 -re ".* 373 0b62 015AFA31" { set x [expr $x+1]; exp_continue; }
1106 -re ".* 373 12345678" { set x [expr $x+1]; exp_continue; }
1107 -re ".* 374 0b6a 6B101234" { set x [expr $x+1]; exp_continue; }
1108 -re ".* 374 1901" { set x [expr $x+1]; exp_continue; }
1109 -re ".* 375 0b70 6B301234" { set x [expr $x+1]; exp_continue; }
1110 -re ".* 375 56781901" { set x [expr $x+1]; exp_continue; }
1111 -re ".* 376 " {
1112 if [expr $x == 26] then {
1113 pass "$testname: sub.w ..., r1"
1114 } else {
1115 fail "$testname: sub.w ..., r1 ($x)"
1116 }
1117 }
1118 default { fail "$testname: sub.w ..., r1 ($x)" }
1119 }
1120
1121 set x 0
1122 expect {
1123 -re ".* 377 0b78 7CB50130" { set x [expr $x+1]; exp_continue; }
1124 -re ".* 378 0b7c 7CB53130" { set x [expr $x+1]; exp_continue; }
1125 -re ".* 379 0b80 7CB5B130" { set x [expr $x+1]; exp_continue; }
1126 -re ".* 380 0b84 7CB58130" { set x [expr $x+1]; exp_continue; }
1127 -re ".* 381 0b88 7CB5A130" { set x [expr $x+1]; exp_continue; }
1128 -re ".* 382 0b8c 7CB59130" { set x [expr $x+1]; exp_continue; }
1129 -re ".* 383 0b90 7CB5C130" { set x [expr $x+1]; exp_continue; }
1130 -re ".* 383 9ABC" { set x [expr $x+1]; exp_continue; }
1131 -re ".* 384 0b96 7CB5C930" { set x [expr $x+1]; exp_continue; }
1132 -re ".* 384 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1133 -re ".* 385 0b9e 7CB5D230" { set x [expr $x+1]; exp_continue; }
1134 -re ".* 385 9ABC" { set x [expr $x+1]; exp_continue; }
1135 -re ".* 386 0ba4 7CB5E230" { set x [expr $x+1]; exp_continue; }
1136 -re ".* 386 9ABC" { set x [expr $x+1]; exp_continue; }
1137 -re ".* 387 0baa 7CB5F230" { set x [expr $x+1]; exp_continue; }
1138 -re ".* 387 9ABC" { set x [expr $x+1]; exp_continue; }
1139 -re ".* 388 0bb0 7CB5DA30" { set x [expr $x+1]; exp_continue; }
1140 -re ".* 388 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1141 -re ".* 389 0bb8 7CB5EA30" { set x [expr $x+1]; exp_continue; }
1142 -re ".* 389 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1143 -re ".* 390 0bc0 7CB5FA30" { set x [expr $x+1]; exp_continue; }
1144 -re ".* 390 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1145 -re ".* 391 0bc8 7CB54030" { set x [expr $x+1]; exp_continue; }
1146 -re ".* 391 9ABC" { set x [expr $x+1]; exp_continue; }
1147 -re ".* 392 0bce 7CB54830" { set x [expr $x+1]; exp_continue; }
1148 -re ".* 392 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1149 -re ".* 393 " {
1150 if [expr $x == 26] then {
1151 pass "$testname: sub.w @er3, ..."
1152 } else {
1153 fail "$testname: sub.w @er3, ... ($x)"
1154 }
1155 }
1156 default { fail "$testname: sub.w @er3, ... ($x)" }
1157 }
1158
1159 set x 0
1160 expect {
1161 -re ".* 394 0bd6 01576D3C" { set x [expr $x+1]; exp_continue; }
1162 -re ".* 394 0130" { set x [expr $x+1]; exp_continue; }
1163 -re ".* 395 0bdc 01576D3C" { set x [expr $x+1]; exp_continue; }
1164 -re ".* 395 3130" { set x [expr $x+1]; exp_continue; }
1165 -re ".* 396 0be2 01576D3C" { set x [expr $x+1]; exp_continue; }
1166 -re ".* 396 B130" { set x [expr $x+1]; exp_continue; }
1167 -re ".* 397 0be8 01576D3C" { set x [expr $x+1]; exp_continue; }
1168 -re ".* 397 8130" { set x [expr $x+1]; exp_continue; }
1169 -re ".* 398 0bee 01576D3C" { set x [expr $x+1]; exp_continue; }
1170 -re ".* 398 A130" { set x [expr $x+1]; exp_continue; }
1171 -re ".* 399 0bf4 01576D3C" { set x [expr $x+1]; exp_continue; }
1172 -re ".* 399 9130" { set x [expr $x+1]; exp_continue; }
1173 -re ".* 400 0bfa 01576D3C" { set x [expr $x+1]; exp_continue; }
1174 -re ".* 400 C1309ABC" { set x [expr $x+1]; exp_continue; }
1175 -re ".* 401 0c02 01576D3C" { set x [expr $x+1]; exp_continue; }
1176 -re ".* 401 C9309ABC" { set x [expr $x+1]; exp_continue; }
1177 -re ".* 401 DEF0" { set x [expr $x+1]; exp_continue; }
1178 -re ".* 402 0c0c 01576D3C" { set x [expr $x+1]; exp_continue; }
1179 -re ".* 402 D2309ABC" { set x [expr $x+1]; exp_continue; }
1180 -re ".* 403 0c14 01576D3C" { set x [expr $x+1]; exp_continue; }
1181 -re ".* 403 E2309ABC" { set x [expr $x+1]; exp_continue; }
1182 -re ".* 404 0c1c 01576D3C" { set x [expr $x+1]; exp_continue; }
1183 -re ".* 404 F2309ABC" { set x [expr $x+1]; exp_continue; }
1184 -re ".* 405 0c24 01576D3C" { set x [expr $x+1]; exp_continue; }
1185 -re ".* 405 DA309ABC" { set x [expr $x+1]; exp_continue; }
1186 -re ".* 405 DEF0" { set x [expr $x+1]; exp_continue; }
1187 -re ".* 406 0c2e 01576D3C" { set x [expr $x+1]; exp_continue; }
1188 -re ".* 406 EA309ABC" { set x [expr $x+1]; exp_continue; }
1189 -re ".* 406 DEF0" { set x [expr $x+1]; exp_continue; }
1190 -re ".* 407 0c38 01576D3C" { set x [expr $x+1]; exp_continue; }
1191 -re ".* 407 FA309ABC" { set x [expr $x+1]; exp_continue; }
1192 -re ".* 407 DEF0" { set x [expr $x+1]; exp_continue; }
1193 -re ".* 408 0c42 01576D3C" { set x [expr $x+1]; exp_continue; }
1194 -re ".* 408 40309ABC" { set x [expr $x+1]; exp_continue; }
1195 -re ".* 409 0c4a 01576D3C" { set x [expr $x+1]; exp_continue; }
1196 -re ".* 409 48309ABC" { set x [expr $x+1]; exp_continue; }
1197 -re ".* 409 DEF0" { set x [expr $x+1]; exp_continue; }
1198 -re ".* 410 " {
1199 if [expr $x == 37] then {
1200 pass "$testname: sub.w @-er3, ..."
1201 } else {
1202 fail "$testname: sub.w @-er3, ... ($x)"
1203 }
1204 }
1205 default { fail "$testname: sub.w @-er3, ... ($x)" }
1206 }
1207
1208 set x 0
1209 expect {
1210 -re ".* 411 0c54 01546D3C" { set x [expr $x+1]; exp_continue; }
1211 -re ".* 411 0130" { set x [expr $x+1]; exp_continue; }
1212 -re ".* 412 0c5a 01546D3C" { set x [expr $x+1]; exp_continue; }
1213 -re ".* 412 3130" { set x [expr $x+1]; exp_continue; }
1214 -re ".* 413 0c60 01546D3C" { set x [expr $x+1]; exp_continue; }
1215 -re ".* 413 B130" { set x [expr $x+1]; exp_continue; }
1216 -re ".* 414 0c66 01546D3C" { set x [expr $x+1]; exp_continue; }
1217 -re ".* 414 8130" { set x [expr $x+1]; exp_continue; }
1218 -re ".* 415 0c6c 01546D3C" { set x [expr $x+1]; exp_continue; }
1219 -re ".* 415 A130" { set x [expr $x+1]; exp_continue; }
1220 -re ".* 416 0c72 01546D3C" { set x [expr $x+1]; exp_continue; }
1221 -re ".* 416 9130" { set x [expr $x+1]; exp_continue; }
1222 -re ".* 417 0c78 01546D3C" { set x [expr $x+1]; exp_continue; }
1223 -re ".* 417 C1309ABC" { set x [expr $x+1]; exp_continue; }
1224 -re ".* 418 0c80 01546D3C" { set x [expr $x+1]; exp_continue; }
1225 -re ".* 418 C9309ABC" { set x [expr $x+1]; exp_continue; }
1226 -re ".* 418 DEF0" { set x [expr $x+1]; exp_continue; }
1227 -re ".* 419 0c8a 01546D3C" { set x [expr $x+1]; exp_continue; }
1228 -re ".* 419 D2309ABC" { set x [expr $x+1]; exp_continue; }
1229 -re ".* 420 0c92 01546D3C" { set x [expr $x+1]; exp_continue; }
1230 -re ".* 420 E2309ABC" { set x [expr $x+1]; exp_continue; }
1231 -re ".* 421 0c9a 01546D3C" { set x [expr $x+1]; exp_continue; }
1232 -re ".* 421 F2309ABC" { set x [expr $x+1]; exp_continue; }
1233 -re ".* 422 0ca2 01546D3C" { set x [expr $x+1]; exp_continue; }
1234 -re ".* 422 DA309ABC" { set x [expr $x+1]; exp_continue; }
1235 -re ".* 422 DEF0" { set x [expr $x+1]; exp_continue; }
1236 -re ".* 423 0cac 01546D3C" { set x [expr $x+1]; exp_continue; }
1237 -re ".* 423 EA309ABC" { set x [expr $x+1]; exp_continue; }
1238 -re ".* 423 DEF0" { set x [expr $x+1]; exp_continue; }
1239 -re ".* 424 0cb6 01546D3C" { set x [expr $x+1]; exp_continue; }
1240 -re ".* 424 FA309ABC" { set x [expr $x+1]; exp_continue; }
1241 -re ".* 424 DEF0" { set x [expr $x+1]; exp_continue; }
1242 -re ".* 425 0cc0 01546D3C" { set x [expr $x+1]; exp_continue; }
1243 -re ".* 425 40309ABC" { set x [expr $x+1]; exp_continue; }
1244 -re ".* 426 0cc8 01546D3C" { set x [expr $x+1]; exp_continue; }
1245 -re ".* 426 48309ABC" { set x [expr $x+1]; exp_continue; }
1246 -re ".* 426 DEF0" { set x [expr $x+1]; exp_continue; }
1247 -re ".* 427 " {
1248 if [expr $x == 37] then {
1249 pass "$testname: sub.w @er3+, ..."
1250 } else {
1251 fail "$testname: sub.w @er3+, ... ($x)"
1252 }
1253 }
1254 default { fail "$testname: sub.w @er3+, ... ($x)" }
1255 }
1256
1257 set x 0
1258 expect {
1259 -re ".* 428 0cd2 01566D3C" { set x [expr $x+1]; exp_continue; }
1260 -re ".* 428 0130" { set x [expr $x+1]; exp_continue; }
1261 -re ".* 429 0cd8 01566D3C" { set x [expr $x+1]; exp_continue; }
1262 -re ".* 429 3130" { set x [expr $x+1]; exp_continue; }
1263 -re ".* 430 0cde 01566D3C" { set x [expr $x+1]; exp_continue; }
1264 -re ".* 430 B130" { set x [expr $x+1]; exp_continue; }
1265 -re ".* 431 0ce4 01566D3C" { set x [expr $x+1]; exp_continue; }
1266 -re ".* 431 8130" { set x [expr $x+1]; exp_continue; }
1267 -re ".* 432 0cea 01566D3C" { set x [expr $x+1]; exp_continue; }
1268 -re ".* 432 A130" { set x [expr $x+1]; exp_continue; }
1269 -re ".* 433 0cf0 01566D3C" { set x [expr $x+1]; exp_continue; }
1270 -re ".* 433 9130" { set x [expr $x+1]; exp_continue; }
1271 -re ".* 434 0cf6 01566D3C" { set x [expr $x+1]; exp_continue; }
1272 -re ".* 434 C1309ABC" { set x [expr $x+1]; exp_continue; }
1273 -re ".* 435 0cfe 01566D3C" { set x [expr $x+1]; exp_continue; }
1274 -re ".* 435 C9309ABC" { set x [expr $x+1]; exp_continue; }
1275 -re ".* 435 DEF0" { set x [expr $x+1]; exp_continue; }
1276 -re ".* 436 0d08 01566D3C" { set x [expr $x+1]; exp_continue; }
1277 -re ".* 436 D2309ABC" { set x [expr $x+1]; exp_continue; }
1278 -re ".* 437 0d10 01566D3C" { set x [expr $x+1]; exp_continue; }
1279 -re ".* 437 E2309ABC" { set x [expr $x+1]; exp_continue; }
1280 -re ".* 438 0d18 01566D3C" { set x [expr $x+1]; exp_continue; }
1281 -re ".* 438 F2309ABC" { set x [expr $x+1]; exp_continue; }
1282 -re ".* 439 0d20 01566D3C" { set x [expr $x+1]; exp_continue; }
1283 -re ".* 439 DA309ABC" { set x [expr $x+1]; exp_continue; }
1284 -re ".* 439 DEF0" { set x [expr $x+1]; exp_continue; }
1285 -re ".* 440 0d2a 01566D3C" { set x [expr $x+1]; exp_continue; }
1286 -re ".* 440 EA309ABC" { set x [expr $x+1]; exp_continue; }
1287 -re ".* 440 DEF0" { set x [expr $x+1]; exp_continue; }
1288 -re ".* 441 0d34 01566D3C" { set x [expr $x+1]; exp_continue; }
1289 -re ".* 441 FA309ABC" { set x [expr $x+1]; exp_continue; }
1290 -re ".* 441 DEF0" { set x [expr $x+1]; exp_continue; }
1291 -re ".* 442 0d3e 01566D3C" { set x [expr $x+1]; exp_continue; }
1292 -re ".* 442 40309ABC" { set x [expr $x+1]; exp_continue; }
1293 -re ".* 443 0d46 01566D3C" { set x [expr $x+1]; exp_continue; }
1294 -re ".* 443 48309ABC" { set x [expr $x+1]; exp_continue; }
1295 -re ".* 443 DEF0" { set x [expr $x+1]; exp_continue; }
1296 -re ".* 444 " {
1297 if [expr $x == 37] then {
1298 pass "$testname: sub.w @er3-, ..."
1299 } else {
1300 fail "$testname: sub.w @er3-, ... ($x)"
1301 }
1302 }
1303 default { fail "$testname: sub.w @er3-, ... ($x)" }
1304 }
1305
1306 set x 0
1307 expect {
1308 -re ".* 445 0d50 01556D3C" { set x [expr $x+1]; exp_continue; }
1309 -re ".* 445 0130" { set x [expr $x+1]; exp_continue; }
1310 -re ".* 446 0d56 01556D3C" { set x [expr $x+1]; exp_continue; }
1311 -re ".* 446 3130" { set x [expr $x+1]; exp_continue; }
1312 -re ".* 447 0d5c 01556D3C" { set x [expr $x+1]; exp_continue; }
1313 -re ".* 447 B130" { set x [expr $x+1]; exp_continue; }
1314 -re ".* 448 0d62 01556D3C" { set x [expr $x+1]; exp_continue; }
1315 -re ".* 448 8130" { set x [expr $x+1]; exp_continue; }
1316 -re ".* 449 0d68 01556D3C" { set x [expr $x+1]; exp_continue; }
1317 -re ".* 449 A130" { set x [expr $x+1]; exp_continue; }
1318 -re ".* 450 0d6e 01556D3C" { set x [expr $x+1]; exp_continue; }
1319 -re ".* 450 9130" { set x [expr $x+1]; exp_continue; }
1320 -re ".* 451 0d74 01556D3C" { set x [expr $x+1]; exp_continue; }
1321 -re ".* 451 C1309ABC" { set x [expr $x+1]; exp_continue; }
1322 -re ".* 452 0d7c 01556D3C" { set x [expr $x+1]; exp_continue; }
1323 -re ".* 452 C9309ABC" { set x [expr $x+1]; exp_continue; }
1324 -re ".* 452 DEF0" { set x [expr $x+1]; exp_continue; }
1325 -re ".* 453 0d86 01556D3C" { set x [expr $x+1]; exp_continue; }
1326 -re ".* 453 D2309ABC" { set x [expr $x+1]; exp_continue; }
1327 -re ".* 454 0d8e 01556D3C" { set x [expr $x+1]; exp_continue; }
1328 -re ".* 454 E2309ABC" { set x [expr $x+1]; exp_continue; }
1329 -re ".* 455 0d96 01556D3C" { set x [expr $x+1]; exp_continue; }
1330 -re ".* 455 F2309ABC" { set x [expr $x+1]; exp_continue; }
1331 -re ".* 456 0d9e 01556D3C" { set x [expr $x+1]; exp_continue; }
1332 -re ".* 456 DA309ABC" { set x [expr $x+1]; exp_continue; }
1333 -re ".* 456 DEF0" { set x [expr $x+1]; exp_continue; }
1334 -re ".* 457 0da8 01556D3C" { set x [expr $x+1]; exp_continue; }
1335 -re ".* 457 EA309ABC" { set x [expr $x+1]; exp_continue; }
1336 -re ".* 457 DEF0" { set x [expr $x+1]; exp_continue; }
1337 -re ".* 458 0db2 01556D3C" { set x [expr $x+1]; exp_continue; }
1338 -re ".* 458 FA309ABC" { set x [expr $x+1]; exp_continue; }
1339 -re ".* 458 DEF0" { set x [expr $x+1]; exp_continue; }
1340 -re ".* 459 0dbc 01556D3C" { set x [expr $x+1]; exp_continue; }
1341 -re ".* 459 40309ABC" { set x [expr $x+1]; exp_continue; }
1342 -re ".* 460 0dc4 01556D3C" { set x [expr $x+1]; exp_continue; }
1343 -re ".* 460 48309ABC" { set x [expr $x+1]; exp_continue; }
1344 -re ".* 460 DEF0" { set x [expr $x+1]; exp_continue; }
1345 -re ".* 461 " {
1346 if [expr $x == 37] then {
1347 pass "$testname: sub.w @+er3, ..."
1348 } else {
1349 fail "$testname: sub.w @+er3, ... ($x)"
1350 }
1351 }
1352 default { fail "$testname: sub.w @+er3, ... ($x)" }
1353 }
1354
1355 set x 0
1356 expect {
1357 -re ".* 462 0dce 01546F3C" { set x [expr $x+1]; exp_continue; }
1358 -re ".* 462 12340130" { set x [expr $x+1]; exp_continue; }
1359 -re ".* 463 0dd6 01546F3C" { set x [expr $x+1]; exp_continue; }
1360 -re ".* 463 12343130" { set x [expr $x+1]; exp_continue; }
1361 -re ".* 464 0dde 01546F3C" { set x [expr $x+1]; exp_continue; }
1362 -re ".* 464 1234B130" { set x [expr $x+1]; exp_continue; }
1363 -re ".* 465 0de6 01546F3C" { set x [expr $x+1]; exp_continue; }
1364 -re ".* 465 12348130" { set x [expr $x+1]; exp_continue; }
1365 -re ".* 466 0dee 01546F3C" { set x [expr $x+1]; exp_continue; }
1366 -re ".* 466 1234A130" { set x [expr $x+1]; exp_continue; }
1367 -re ".* 467 0df6 01546F3C" { set x [expr $x+1]; exp_continue; }
1368 -re ".* 467 12349130" { set x [expr $x+1]; exp_continue; }
1369 -re ".* 468 0dfe 01546F3C" { set x [expr $x+1]; exp_continue; }
1370 -re ".* 468 1234C130" { set x [expr $x+1]; exp_continue; }
1371 -re ".* 468 9ABC" { set x [expr $x+1]; exp_continue; }
1372 -re ".* 469 0e08 01546F3C" { set x [expr $x+1]; exp_continue; }
1373 -re ".* 469 1234C930" { set x [expr $x+1]; exp_continue; }
1374 -re ".* 469 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1375 -re ".* 470 0e14 01546F3C" { set x [expr $x+1]; exp_continue; }
1376 -re ".* 470 1234D230" { set x [expr $x+1]; exp_continue; }
1377 -re ".* 470 9ABC" { set x [expr $x+1]; exp_continue; }
1378 -re ".* 471 0e1e 01546F3C" { set x [expr $x+1]; exp_continue; }
1379 -re ".* 471 1234E230" { set x [expr $x+1]; exp_continue; }
1380 -re ".* 471 9ABC" { set x [expr $x+1]; exp_continue; }
1381 -re ".* 472 0e28 01546F3C" { set x [expr $x+1]; exp_continue; }
1382 -re ".* 472 1234F230" { set x [expr $x+1]; exp_continue; }
1383 -re ".* 472 9ABC" { set x [expr $x+1]; exp_continue; }
1384 -re ".* 473 0e32 01546F3C" { set x [expr $x+1]; exp_continue; }
1385 -re ".* 473 1234DA30" { set x [expr $x+1]; exp_continue; }
1386 -re ".* 473 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1387 -re ".* 474 0e3e 01546F3C" { set x [expr $x+1]; exp_continue; }
1388 -re ".* 474 1234EA30" { set x [expr $x+1]; exp_continue; }
1389 -re ".* 474 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1390 -re ".* 475 0e4a 01546F3C" { set x [expr $x+1]; exp_continue; }
1391 -re ".* 475 1234FA30" { set x [expr $x+1]; exp_continue; }
1392 -re ".* 475 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1393 -re ".* 476 0e56 01546F3C" { set x [expr $x+1]; exp_continue; }
1394 -re ".* 476 12344030" { set x [expr $x+1]; exp_continue; }
1395 -re ".* 476 9ABC" { set x [expr $x+1]; exp_continue; }
1396 -re ".* 477 0e60 01546F3C" { set x [expr $x+1]; exp_continue; }
1397 -re ".* 477 12344830" { set x [expr $x+1]; exp_continue; }
1398 -re ".* 477 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1399 -re ".* 478 " {
1400 if [expr $x == 42] then {
1401 pass "$testname: sub.w @(0x1234:16,er3), ..."
1402 } else {
1403 fail "$testname: sub.w @(0x1234:16,er3), ... ($x)"
1404 }
1405 }
1406 default { fail "$testname: sub.w @(0x1234:16,er3), ... ($x)" }
1407 }
1408
1409 set x 0
1410 expect {
1411 -re ".* 479 0e6c 78346B2C" { set x [expr $x+1]; exp_continue; }
1412 -re ".* 479 12345678" { set x [expr $x+1]; exp_continue; }
1413 -re ".* 479 0130" { set x [expr $x+1]; exp_continue; }
1414 -re ".* 480 0e76 78346B2C" { set x [expr $x+1]; exp_continue; }
1415 -re ".* 480 12345678" { set x [expr $x+1]; exp_continue; }
1416 -re ".* 480 3130" { set x [expr $x+1]; exp_continue; }
1417 -re ".* 481 0e80 78346B2C" { set x [expr $x+1]; exp_continue; }
1418 -re ".* 481 12345678" { set x [expr $x+1]; exp_continue; }
1419 -re ".* 481 B130" { set x [expr $x+1]; exp_continue; }
1420 -re ".* 482 0e8a 78346B2C" { set x [expr $x+1]; exp_continue; }
1421 -re ".* 482 12345678" { set x [expr $x+1]; exp_continue; }
1422 -re ".* 482 8130" { set x [expr $x+1]; exp_continue; }
1423 -re ".* 483 0e94 78346B2C" { set x [expr $x+1]; exp_continue; }
1424 -re ".* 483 12345678" { set x [expr $x+1]; exp_continue; }
1425 -re ".* 483 A130" { set x [expr $x+1]; exp_continue; }
1426 -re ".* 484 0e9e 78346B2C" { set x [expr $x+1]; exp_continue; }
1427 -re ".* 484 12345678" { set x [expr $x+1]; exp_continue; }
1428 -re ".* 484 9130" { set x [expr $x+1]; exp_continue; }
1429 -re ".* 485 0ea8 78346B2C" { set x [expr $x+1]; exp_continue; }
1430 -re ".* 485 12345678" { set x [expr $x+1]; exp_continue; }
1431 -re ".* 485 C1309ABC" { set x [expr $x+1]; exp_continue; }
1432 -re ".* 486 0eb4 78346B2C" { set x [expr $x+1]; exp_continue; }
1433 -re ".* 486 12345678" { set x [expr $x+1]; exp_continue; }
1434 -re ".* 486 C9309ABC" { set x [expr $x+1]; exp_continue; }
1435 -re ".* 486 DEF0" { set x [expr $x+1]; exp_continue; }
1436 -re ".* 487 0ec2 78346B2C" { set x [expr $x+1]; exp_continue; }
1437 -re ".* 487 12345678" { set x [expr $x+1]; exp_continue; }
1438 -re ".* 487 D2309ABC" { set x [expr $x+1]; exp_continue; }
1439 -re ".* 488 0ece 78346B2C" { set x [expr $x+1]; exp_continue; }
1440 -re ".* 488 12345678" { set x [expr $x+1]; exp_continue; }
1441 -re ".* 488 E2309ABC" { set x [expr $x+1]; exp_continue; }
1442 -re ".* 489 0eda 78346B2C" { set x [expr $x+1]; exp_continue; }
1443 -re ".* 489 12345678" { set x [expr $x+1]; exp_continue; }
1444 -re ".* 489 F2309ABC" { set x [expr $x+1]; exp_continue; }
1445 -re ".* 490 0ee6 78346B2C" { set x [expr $x+1]; exp_continue; }
1446 -re ".* 490 12345678" { set x [expr $x+1]; exp_continue; }
1447 -re ".* 490 DA309ABC" { set x [expr $x+1]; exp_continue; }
1448 -re ".* 490 DEF0" { set x [expr $x+1]; exp_continue; }
1449 -re ".* 491 0ef4 78346B2C" { set x [expr $x+1]; exp_continue; }
1450 -re ".* 491 12345678" { set x [expr $x+1]; exp_continue; }
1451 -re ".* 491 EA309ABC" { set x [expr $x+1]; exp_continue; }
1452 -re ".* 491 DEF0" { set x [expr $x+1]; exp_continue; }
1453 -re ".* 492 0f02 78346B2C" { set x [expr $x+1]; exp_continue; }
1454 -re ".* 492 12345678" { set x [expr $x+1]; exp_continue; }
1455 -re ".* 492 FA309ABC" { set x [expr $x+1]; exp_continue; }
1456 -re ".* 492 DEF0" { set x [expr $x+1]; exp_continue; }
1457 -re ".* 493 0f10 78346B2C" { set x [expr $x+1]; exp_continue; }
1458 -re ".* 493 12345678" { set x [expr $x+1]; exp_continue; }
1459 -re ".* 493 40309ABC" { set x [expr $x+1]; exp_continue; }
1460 -re ".* 494 0f1c 78346B2C" { set x [expr $x+1]; exp_continue; }
1461 -re ".* 494 12345678" { set x [expr $x+1]; exp_continue; }
1462 -re ".* 494 48309ABC" { set x [expr $x+1]; exp_continue; }
1463 -re ".* 494 DEF0" { set x [expr $x+1]; exp_continue; }
1464 -re ".* 495 " {
1465 if [expr $x == 53] then {
1466 pass "$testname: sub.w @(0x12345678:32,er3), ..."
1467 } else {
1468 fail "$testname: sub.w @(0x12345678:32,er3), ... ($x)"
1469 }
1470 }
1471 default { fail "$testname: sub.w @(0x12345678:32,er3), ... ($x)" }
1472 }
1473
1474 set x 0
1475 expect {
1476 -re ".* 496 0f2a 01556F3C" { set x [expr $x+1]; exp_continue; }
1477 -re ".* 496 12340130" { set x [expr $x+1]; exp_continue; }
1478 -re ".* 497 0f32 01556F3C" { set x [expr $x+1]; exp_continue; }
1479 -re ".* 497 12343130" { set x [expr $x+1]; exp_continue; }
1480 -re ".* 498 0f3a 01556F3C" { set x [expr $x+1]; exp_continue; }
1481 -re ".* 498 1234B130" { set x [expr $x+1]; exp_continue; }
1482 -re ".* 499 0f42 01556F3C" { set x [expr $x+1]; exp_continue; }
1483 -re ".* 499 12348130" { set x [expr $x+1]; exp_continue; }
1484 -re ".* 500 0f4a 01556F3C" { set x [expr $x+1]; exp_continue; }
1485 -re ".* 500 1234A130" { set x [expr $x+1]; exp_continue; }
1486 -re ".* 501 0f52 01556F3C" { set x [expr $x+1]; exp_continue; }
1487 -re ".* 501 12349130" { set x [expr $x+1]; exp_continue; }
1488 -re ".* 502 0f5a 01556F3C" { set x [expr $x+1]; exp_continue; }
1489 -re ".* 502 1234C130" { set x [expr $x+1]; exp_continue; }
1490 -re ".* 502 9ABC" { set x [expr $x+1]; exp_continue; }
1491 -re ".* 503 0f64 01556F3C" { set x [expr $x+1]; exp_continue; }
1492 -re ".* 503 1234C930" { set x [expr $x+1]; exp_continue; }
1493 -re ".* 503 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1494 -re ".* 504 0f70 01556F3C" { set x [expr $x+1]; exp_continue; }
1495 -re ".* 504 1234D230" { set x [expr $x+1]; exp_continue; }
1496 -re ".* 504 9ABC" { set x [expr $x+1]; exp_continue; }
1497 -re ".* 505 0f7a 01556F3C" { set x [expr $x+1]; exp_continue; }
1498 -re ".* 505 1234E230" { set x [expr $x+1]; exp_continue; }
1499 -re ".* 505 9ABC" { set x [expr $x+1]; exp_continue; }
1500 -re ".* 506 0f84 01556F3C" { set x [expr $x+1]; exp_continue; }
1501 -re ".* 506 1234F230" { set x [expr $x+1]; exp_continue; }
1502 -re ".* 506 9ABC" { set x [expr $x+1]; exp_continue; }
1503 -re ".* 507 0f8e 01556F3C" { set x [expr $x+1]; exp_continue; }
1504 -re ".* 507 1234DA30" { set x [expr $x+1]; exp_continue; }
1505 -re ".* 507 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1506 -re ".* 508 0f9a 01556F3C" { set x [expr $x+1]; exp_continue; }
1507 -re ".* 508 1234EA30" { set x [expr $x+1]; exp_continue; }
1508 -re ".* 508 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1509 -re ".* 509 0fa6 01556F3C" { set x [expr $x+1]; exp_continue; }
1510 -re ".* 509 1234FA30" { set x [expr $x+1]; exp_continue; }
1511 -re ".* 509 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1512 -re ".* 510 0fb2 01556F3C" { set x [expr $x+1]; exp_continue; }
1513 -re ".* 510 12344030" { set x [expr $x+1]; exp_continue; }
1514 -re ".* 510 9ABC" { set x [expr $x+1]; exp_continue; }
1515 -re ".* 511 0fbc 01556F3C" { set x [expr $x+1]; exp_continue; }
1516 -re ".* 511 12344830" { set x [expr $x+1]; exp_continue; }
1517 -re ".* 511 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1518 -re ".* 512 " {
1519 if [expr $x == 42] then {
1520 pass "$testname: sub.w @(0x1234:16,r3l.b), ..."
1521 } else {
1522 fail "$testname: sub.w @(0x1234:16,r3l.b), ... ($x)"
1523 }
1524 }
1525 default { fail "$testname: sub.w @(0x1234:16,r3l.b), ... ($x)" }
1526 }
1527
1528 set x 0
1529 expect {
1530 -re ".* 513 0fc8 01566F3C" { set x [expr $x+1]; exp_continue; }
1531 -re ".* 513 12340130" { set x [expr $x+1]; exp_continue; }
1532 -re ".* 514 0fd0 01566F3C" { set x [expr $x+1]; exp_continue; }
1533 -re ".* 514 12343130" { set x [expr $x+1]; exp_continue; }
1534 -re ".* 515 0fd8 01566F3C" { set x [expr $x+1]; exp_continue; }
1535 -re ".* 515 1234B130" { set x [expr $x+1]; exp_continue; }
1536 -re ".* 516 0fe0 01566F3C" { set x [expr $x+1]; exp_continue; }
1537 -re ".* 516 12348130" { set x [expr $x+1]; exp_continue; }
1538 -re ".* 517 0fe8 01566F3C" { set x [expr $x+1]; exp_continue; }
1539 -re ".* 517 1234A130" { set x [expr $x+1]; exp_continue; }
1540 -re ".* 518 0ff0 01566F3C" { set x [expr $x+1]; exp_continue; }
1541 -re ".* 518 12349130" { set x [expr $x+1]; exp_continue; }
1542 -re ".* 519 0ff8 01566F3C" { set x [expr $x+1]; exp_continue; }
1543 -re ".* 519 1234C130" { set x [expr $x+1]; exp_continue; }
1544 -re ".* 519 9ABC" { set x [expr $x+1]; exp_continue; }
1545 -re ".* 520 1002 01566F3C" { set x [expr $x+1]; exp_continue; }
1546 -re ".* 520 1234C930" { set x [expr $x+1]; exp_continue; }
1547 -re ".* 520 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1548 -re ".* 521 100e 01566F3C" { set x [expr $x+1]; exp_continue; }
1549 -re ".* 521 1234D230" { set x [expr $x+1]; exp_continue; }
1550 -re ".* 521 9ABC" { set x [expr $x+1]; exp_continue; }
1551 -re ".* 522 1018 01566F3C" { set x [expr $x+1]; exp_continue; }
1552 -re ".* 522 1234E230" { set x [expr $x+1]; exp_continue; }
1553 -re ".* 522 9ABC" { set x [expr $x+1]; exp_continue; }
1554 -re ".* 523 1022 01566F3C" { set x [expr $x+1]; exp_continue; }
1555 -re ".* 523 1234F230" { set x [expr $x+1]; exp_continue; }
1556 -re ".* 523 9ABC" { set x [expr $x+1]; exp_continue; }
1557 -re ".* 524 102c 01566F3C" { set x [expr $x+1]; exp_continue; }
1558 -re ".* 524 1234DA30" { set x [expr $x+1]; exp_continue; }
1559 -re ".* 524 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1560 -re ".* 525 1038 01566F3C" { set x [expr $x+1]; exp_continue; }
1561 -re ".* 525 1234EA30" { set x [expr $x+1]; exp_continue; }
1562 -re ".* 525 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1563 -re ".* 526 1044 01566F3C" { set x [expr $x+1]; exp_continue; }
1564 -re ".* 526 1234FA30" { set x [expr $x+1]; exp_continue; }
1565 -re ".* 526 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1566 -re ".* 527 1050 01566F3C" { set x [expr $x+1]; exp_continue; }
1567 -re ".* 527 12344030" { set x [expr $x+1]; exp_continue; }
1568 -re ".* 527 9ABC" { set x [expr $x+1]; exp_continue; }
1569 -re ".* 528 105a 01566F3C" { set x [expr $x+1]; exp_continue; }
1570 -re ".* 528 12344830" { set x [expr $x+1]; exp_continue; }
1571 -re ".* 528 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1572 -re ".* 529 " {
1573 if [expr $x == 42] then {
1574 pass "$testname: sub.w @(0x1234:16,r3.w), ..."
1575 } else {
1576 fail "$testname: sub.w @(0x1234:16,r3.w), ... ($x)"
1577 }
1578 }
1579 default { fail "$testname: sub.w @(0x1234:16,r3.w), ... ($x)" }
1580 }
1581
1582 set x 0
1583 expect {
1584 -re ".* 530 1066 01576F3C" { set x [expr $x+1]; exp_continue; }
1585 -re ".* 530 12340130" { set x [expr $x+1]; exp_continue; }
1586 -re ".* 531 106e 01576F3C" { set x [expr $x+1]; exp_continue; }
1587 -re ".* 531 12343130" { set x [expr $x+1]; exp_continue; }
1588 -re ".* 532 1076 01576F3C" { set x [expr $x+1]; exp_continue; }
1589 -re ".* 532 1234B130" { set x [expr $x+1]; exp_continue; }
1590 -re ".* 533 107e 01576F3C" { set x [expr $x+1]; exp_continue; }
1591 -re ".* 533 12348130" { set x [expr $x+1]; exp_continue; }
1592 -re ".* 534 1086 01576F3C" { set x [expr $x+1]; exp_continue; }
1593 -re ".* 534 1234A130" { set x [expr $x+1]; exp_continue; }
1594 -re ".* 535 108e 01576F3C" { set x [expr $x+1]; exp_continue; }
1595 -re ".* 535 12349130" { set x [expr $x+1]; exp_continue; }
1596 -re ".* 536 1096 01576F3C" { set x [expr $x+1]; exp_continue; }
1597 -re ".* 536 1234C130" { set x [expr $x+1]; exp_continue; }
1598 -re ".* 536 9ABC" { set x [expr $x+1]; exp_continue; }
1599 -re ".* 537 10a0 01576F3C" { set x [expr $x+1]; exp_continue; }
1600 -re ".* 537 1234C930" { set x [expr $x+1]; exp_continue; }
1601 -re ".* 537 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1602 -re ".* 538 10ac 01576F3C" { set x [expr $x+1]; exp_continue; }
1603 -re ".* 538 1234D230" { set x [expr $x+1]; exp_continue; }
1604 -re ".* 538 9ABC" { set x [expr $x+1]; exp_continue; }
1605 -re ".* 539 10b6 01576F3C" { set x [expr $x+1]; exp_continue; }
1606 -re ".* 539 1234E230" { set x [expr $x+1]; exp_continue; }
1607 -re ".* 539 9ABC" { set x [expr $x+1]; exp_continue; }
1608 -re ".* 540 10c0 01576F3C" { set x [expr $x+1]; exp_continue; }
1609 -re ".* 540 1234F230" { set x [expr $x+1]; exp_continue; }
1610 -re ".* 540 9ABC" { set x [expr $x+1]; exp_continue; }
1611 -re ".* 541 10ca 01576F3C" { set x [expr $x+1]; exp_continue; }
1612 -re ".* 541 1234DA30" { set x [expr $x+1]; exp_continue; }
1613 -re ".* 541 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1614 -re ".* 542 10d6 01576F3C" { set x [expr $x+1]; exp_continue; }
1615 -re ".* 542 1234EA30" { set x [expr $x+1]; exp_continue; }
1616 -re ".* 542 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1617 -re ".* 543 10e2 01576F3C" { set x [expr $x+1]; exp_continue; }
1618 -re ".* 543 1234FA30" { set x [expr $x+1]; exp_continue; }
1619 -re ".* 543 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1620 -re ".* 544 10ee 01576F3C" { set x [expr $x+1]; exp_continue; }
1621 -re ".* 544 12344030" { set x [expr $x+1]; exp_continue; }
1622 -re ".* 544 9ABC" { set x [expr $x+1]; exp_continue; }
1623 -re ".* 545 10f8 01576F3C" { set x [expr $x+1]; exp_continue; }
1624 -re ".* 545 12344830" { set x [expr $x+1]; exp_continue; }
1625 -re ".* 545 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1626 -re ".* 546 " {
1627 if [expr $x == 42] then {
1628 pass "$testname: sub.w @(0x1234:16,er3.l), ..."
1629 } else {
1630 fail "$testname: sub.w @(0x1234:16,er3.l), ... ($x)"
1631 }
1632 }
1633 default { fail "$testname: sub.w @(0x1234:16,er3.l), ... ($x)" }
1634 }
1635
1636 set x 0
1637 expect {
1638 -re ".* 547 1104 78356B2C" { set x [expr $x+1]; exp_continue; }
1639 -re ".* 547 12345678" { set x [expr $x+1]; exp_continue; }
1640 -re ".* 547 0130" { set x [expr $x+1]; exp_continue; }
1641 -re ".* 548 110e 78356B2C" { set x [expr $x+1]; exp_continue; }
1642 -re ".* 548 12345678" { set x [expr $x+1]; exp_continue; }
1643 -re ".* 548 3130" { set x [expr $x+1]; exp_continue; }
1644 -re ".* 549 1118 78356B2C" { set x [expr $x+1]; exp_continue; }
1645 -re ".* 549 12345678" { set x [expr $x+1]; exp_continue; }
1646 -re ".* 549 B130" { set x [expr $x+1]; exp_continue; }
1647 -re ".* 550 1122 78356B2C" { set x [expr $x+1]; exp_continue; }
1648 -re ".* 550 12345678" { set x [expr $x+1]; exp_continue; }
1649 -re ".* 550 8130" { set x [expr $x+1]; exp_continue; }
1650 -re ".* 551 112c 78356B2C" { set x [expr $x+1]; exp_continue; }
1651 -re ".* 551 12345678" { set x [expr $x+1]; exp_continue; }
1652 -re ".* 551 A130" { set x [expr $x+1]; exp_continue; }
1653 -re ".* 552 1136 78356B2C" { set x [expr $x+1]; exp_continue; }
1654 -re ".* 552 12345678" { set x [expr $x+1]; exp_continue; }
1655 -re ".* 552 9130" { set x [expr $x+1]; exp_continue; }
1656 -re ".* 553 1140 78356B2C" { set x [expr $x+1]; exp_continue; }
1657 -re ".* 553 12345678" { set x [expr $x+1]; exp_continue; }
1658 -re ".* 553 C1309ABC" { set x [expr $x+1]; exp_continue; }
1659 -re ".* 554 114c 78356B2C" { set x [expr $x+1]; exp_continue; }
1660 -re ".* 554 12345678" { set x [expr $x+1]; exp_continue; }
1661 -re ".* 554 C9309ABC" { set x [expr $x+1]; exp_continue; }
1662 -re ".* 554 DEF0" { set x [expr $x+1]; exp_continue; }
1663 -re ".* 555 115a 78356B2C" { set x [expr $x+1]; exp_continue; }
1664 -re ".* 555 12345678" { set x [expr $x+1]; exp_continue; }
1665 -re ".* 555 D2309ABC" { set x [expr $x+1]; exp_continue; }
1666 -re ".* 556 1166 78356B2C" { set x [expr $x+1]; exp_continue; }
1667 -re ".* 556 12345678" { set x [expr $x+1]; exp_continue; }
1668 -re ".* 556 E2309ABC" { set x [expr $x+1]; exp_continue; }
1669 -re ".* 557 1172 78356B2C" { set x [expr $x+1]; exp_continue; }
1670 -re ".* 557 12345678" { set x [expr $x+1]; exp_continue; }
1671 -re ".* 557 F2309ABC" { set x [expr $x+1]; exp_continue; }
1672 -re ".* 558 117e 78356B2C" { set x [expr $x+1]; exp_continue; }
1673 -re ".* 558 12345678" { set x [expr $x+1]; exp_continue; }
1674 -re ".* 558 DA309ABC" { set x [expr $x+1]; exp_continue; }
1675 -re ".* 558 DEF0" { set x [expr $x+1]; exp_continue; }
1676 -re ".* 559 118c 78356B2C" { set x [expr $x+1]; exp_continue; }
1677 -re ".* 559 12345678" { set x [expr $x+1]; exp_continue; }
1678 -re ".* 559 EA309ABC" { set x [expr $x+1]; exp_continue; }
1679 -re ".* 559 DEF0" { set x [expr $x+1]; exp_continue; }
1680 -re ".* 560 119a 78356B2C" { set x [expr $x+1]; exp_continue; }
1681 -re ".* 560 12345678" { set x [expr $x+1]; exp_continue; }
1682 -re ".* 560 FA309ABC" { set x [expr $x+1]; exp_continue; }
1683 -re ".* 560 DEF0" { set x [expr $x+1]; exp_continue; }
1684 -re ".* 561 11a8 78356B2C" { set x [expr $x+1]; exp_continue; }
1685 -re ".* 561 12345678" { set x [expr $x+1]; exp_continue; }
1686 -re ".* 561 40309ABC" { set x [expr $x+1]; exp_continue; }
1687 -re ".* 562 11b4 78356B2C" { set x [expr $x+1]; exp_continue; }
1688 -re ".* 562 12345678" { set x [expr $x+1]; exp_continue; }
1689 -re ".* 562 48309ABC" { set x [expr $x+1]; exp_continue; }
1690 -re ".* 562 DEF0" { set x [expr $x+1]; exp_continue; }
1691 -re ".* 563 " {
1692 if [expr $x == 53] then {
1693 pass "$testname: sub.w @(0x12345678:32,r3l.b), ..."
1694 } else {
1695 fail "$testname: sub.w @(0x12345678:32,r3l.b), ... ($x)"
1696 }
1697 }
1698 default { fail "$testname: sub.w @(0x12345678:32,r3l.b), ... ($x)" }
1699 }
1700
1701 set x 0
1702 expect {
1703 -re ".* 564 11c2 78366B2C" { set x [expr $x+1]; exp_continue; }
1704 -re ".* 564 12345678" { set x [expr $x+1]; exp_continue; }
1705 -re ".* 564 0130" { set x [expr $x+1]; exp_continue; }
1706 -re ".* 565 11cc 78366B2C" { set x [expr $x+1]; exp_continue; }
1707 -re ".* 565 12345678" { set x [expr $x+1]; exp_continue; }
1708 -re ".* 565 3130" { set x [expr $x+1]; exp_continue; }
1709 -re ".* 566 11d6 78366B2C" { set x [expr $x+1]; exp_continue; }
1710 -re ".* 566 12345678" { set x [expr $x+1]; exp_continue; }
1711 -re ".* 566 B130" { set x [expr $x+1]; exp_continue; }
1712 -re ".* 567 11e0 78366B2C" { set x [expr $x+1]; exp_continue; }
1713 -re ".* 567 12345678" { set x [expr $x+1]; exp_continue; }
1714 -re ".* 567 8130" { set x [expr $x+1]; exp_continue; }
1715 -re ".* 568 11ea 78366B2C" { set x [expr $x+1]; exp_continue; }
1716 -re ".* 568 12345678" { set x [expr $x+1]; exp_continue; }
1717 -re ".* 568 A130" { set x [expr $x+1]; exp_continue; }
1718 -re ".* 569 11f4 78366B2C" { set x [expr $x+1]; exp_continue; }
1719 -re ".* 569 12345678" { set x [expr $x+1]; exp_continue; }
1720 -re ".* 569 9130" { set x [expr $x+1]; exp_continue; }
1721 -re ".* 570 11fe 78366B2C" { set x [expr $x+1]; exp_continue; }
1722 -re ".* 570 12345678" { set x [expr $x+1]; exp_continue; }
1723 -re ".* 570 C1309ABC" { set x [expr $x+1]; exp_continue; }
1724 -re ".* 571 120a 78366B2C" { set x [expr $x+1]; exp_continue; }
1725 -re ".* 571 12345678" { set x [expr $x+1]; exp_continue; }
1726 -re ".* 571 C9309ABC" { set x [expr $x+1]; exp_continue; }
1727 -re ".* 571 DEF0" { set x [expr $x+1]; exp_continue; }
1728 -re ".* 572 1218 78366B2C" { set x [expr $x+1]; exp_continue; }
1729 -re ".* 572 12345678" { set x [expr $x+1]; exp_continue; }
1730 -re ".* 572 D2309ABC" { set x [expr $x+1]; exp_continue; }
1731 -re ".* 573 1224 78366B2C" { set x [expr $x+1]; exp_continue; }
1732 -re ".* 573 12345678" { set x [expr $x+1]; exp_continue; }
1733 -re ".* 573 E2309ABC" { set x [expr $x+1]; exp_continue; }
1734 -re ".* 574 1230 78366B2C" { set x [expr $x+1]; exp_continue; }
1735 -re ".* 574 12345678" { set x [expr $x+1]; exp_continue; }
1736 -re ".* 574 F2309ABC" { set x [expr $x+1]; exp_continue; }
1737 -re ".* 575 123c 78366B2C" { set x [expr $x+1]; exp_continue; }
1738 -re ".* 575 12345678" { set x [expr $x+1]; exp_continue; }
1739 -re ".* 575 DA309ABC" { set x [expr $x+1]; exp_continue; }
1740 -re ".* 575 DEF0" { set x [expr $x+1]; exp_continue; }
1741 -re ".* 576 124a 78366B2C" { set x [expr $x+1]; exp_continue; }
1742 -re ".* 576 12345678" { set x [expr $x+1]; exp_continue; }
1743 -re ".* 576 EA309ABC" { set x [expr $x+1]; exp_continue; }
1744 -re ".* 576 DEF0" { set x [expr $x+1]; exp_continue; }
1745 -re ".* 577 1258 78366B2C" { set x [expr $x+1]; exp_continue; }
1746 -re ".* 577 12345678" { set x [expr $x+1]; exp_continue; }
1747 -re ".* 577 FA309ABC" { set x [expr $x+1]; exp_continue; }
1748 -re ".* 577 DEF0" { set x [expr $x+1]; exp_continue; }
1749 -re ".* 578 1266 78366B2C" { set x [expr $x+1]; exp_continue; }
1750 -re ".* 578 12345678" { set x [expr $x+1]; exp_continue; }
1751 -re ".* 578 40309ABC" { set x [expr $x+1]; exp_continue; }
1752 -re ".* 579 1272 78366B2C" { set x [expr $x+1]; exp_continue; }
1753 -re ".* 579 12345678" { set x [expr $x+1]; exp_continue; }
1754 -re ".* 579 48309ABC" { set x [expr $x+1]; exp_continue; }
1755 -re ".* 579 DEF0" { set x [expr $x+1]; exp_continue; }
1756 -re ".* 580 " {
1757 if [expr $x == 53] then {
1758 pass "$testname: sub.w @(0x12345678:32,r3.w), ..."
1759 } else {
1760 fail "$testname: sub.w @(0x12345678:32,r3.w), ... ($x)"
1761 }
1762 }
1763 default { fail "$testname: sub.w @(0x12345678:32,r3.w), ... ($x)" }
1764 }
1765
1766 set x 0
1767 expect {
1768 -re ".* 581 1280 78376B2C" { set x [expr $x+1]; exp_continue; }
1769 -re ".* 581 12345678" { set x [expr $x+1]; exp_continue; }
1770 -re ".* 581 0130" { set x [expr $x+1]; exp_continue; }
1771 -re ".* 582 128a 78376B2C" { set x [expr $x+1]; exp_continue; }
1772 -re ".* 582 12345678" { set x [expr $x+1]; exp_continue; }
1773 -re ".* 582 3130" { set x [expr $x+1]; exp_continue; }
1774 -re ".* 583 1294 78376B2C" { set x [expr $x+1]; exp_continue; }
1775 -re ".* 583 12345678" { set x [expr $x+1]; exp_continue; }
1776 -re ".* 583 B130" { set x [expr $x+1]; exp_continue; }
1777 -re ".* 584 129e 78376B2C" { set x [expr $x+1]; exp_continue; }
1778 -re ".* 584 12345678" { set x [expr $x+1]; exp_continue; }
1779 -re ".* 584 8130" { set x [expr $x+1]; exp_continue; }
1780 -re ".* 585 12a8 78376B2C" { set x [expr $x+1]; exp_continue; }
1781 -re ".* 585 12345678" { set x [expr $x+1]; exp_continue; }
1782 -re ".* 585 A130" { set x [expr $x+1]; exp_continue; }
1783 -re ".* 586 12b2 78376B2C" { set x [expr $x+1]; exp_continue; }
1784 -re ".* 586 12345678" { set x [expr $x+1]; exp_continue; }
1785 -re ".* 586 9130" { set x [expr $x+1]; exp_continue; }
1786 -re ".* 587 12bc 78376B2C" { set x [expr $x+1]; exp_continue; }
1787 -re ".* 587 12345678" { set x [expr $x+1]; exp_continue; }
1788 -re ".* 587 C1309ABC" { set x [expr $x+1]; exp_continue; }
1789 -re ".* 588 12c8 78376B2C" { set x [expr $x+1]; exp_continue; }
1790 -re ".* 588 12345678" { set x [expr $x+1]; exp_continue; }
1791 -re ".* 588 C9309ABC" { set x [expr $x+1]; exp_continue; }
1792 -re ".* 588 DEF0" { set x [expr $x+1]; exp_continue; }
1793 -re ".* 589 12d6 78376B2C" { set x [expr $x+1]; exp_continue; }
1794 -re ".* 589 12345678" { set x [expr $x+1]; exp_continue; }
1795 -re ".* 589 D2309ABC" { set x [expr $x+1]; exp_continue; }
1796 -re ".* 590 12e2 78376B2C" { set x [expr $x+1]; exp_continue; }
1797 -re ".* 590 12345678" { set x [expr $x+1]; exp_continue; }
1798 -re ".* 590 E2309ABC" { set x [expr $x+1]; exp_continue; }
1799 -re ".* 591 12ee 78376B2C" { set x [expr $x+1]; exp_continue; }
1800 -re ".* 591 12345678" { set x [expr $x+1]; exp_continue; }
1801 -re ".* 591 F2309ABC" { set x [expr $x+1]; exp_continue; }
1802 -re ".* 592 12fa 78376B2C" { set x [expr $x+1]; exp_continue; }
1803 -re ".* 592 12345678" { set x [expr $x+1]; exp_continue; }
1804 -re ".* 592 DA309ABC" { set x [expr $x+1]; exp_continue; }
1805 -re ".* 592 DEF0" { set x [expr $x+1]; exp_continue; }
1806 -re ".* 593 1308 78376B2C" { set x [expr $x+1]; exp_continue; }
1807 -re ".* 593 12345678" { set x [expr $x+1]; exp_continue; }
1808 -re ".* 593 EA309ABC" { set x [expr $x+1]; exp_continue; }
1809 -re ".* 593 DEF0" { set x [expr $x+1]; exp_continue; }
1810 -re ".* 594 1316 78376B2C" { set x [expr $x+1]; exp_continue; }
1811 -re ".* 594 12345678" { set x [expr $x+1]; exp_continue; }
1812 -re ".* 594 FA309ABC" { set x [expr $x+1]; exp_continue; }
1813 -re ".* 594 DEF0" { set x [expr $x+1]; exp_continue; }
1814 -re ".* 595 1324 78376B2C" { set x [expr $x+1]; exp_continue; }
1815 -re ".* 595 12345678" { set x [expr $x+1]; exp_continue; }
1816 -re ".* 595 40309ABC" { set x [expr $x+1]; exp_continue; }
1817 -re ".* 596 1330 78376B2C" { set x [expr $x+1]; exp_continue; }
1818 -re ".* 596 12345678" { set x [expr $x+1]; exp_continue; }
1819 -re ".* 596 48309ABC" { set x [expr $x+1]; exp_continue; }
1820 -re ".* 596 DEF0" { set x [expr $x+1]; exp_continue; }
1821 -re ".* 597 " {
1822 if [expr $x == 53] then {
1823 pass "$testname: sub.w @(0x12345678:32,er3.l), ..."
1824 } else {
1825 fail "$testname: sub.w @(0x12345678:32,er3.l), ... ($x)"
1826 }
1827 }
1828 default { fail "$testname: sub.w @(0x12345678:32,er3.l), ... ($x)" }
1829 }
1830
1831 set x 0
1832 expect {
1833 -re ".* 598 133e 6B151234" { set x [expr $x+1]; exp_continue; }
1834 -re ".* 598 0130" { set x [expr $x+1]; exp_continue; }
1835 -re ".* 599 1344 6B151234" { set x [expr $x+1]; exp_continue; }
1836 -re ".* 599 3130" { set x [expr $x+1]; exp_continue; }
1837 -re ".* 600 134a 6B151234" { set x [expr $x+1]; exp_continue; }
1838 -re ".* 600 B130" { set x [expr $x+1]; exp_continue; }
1839 -re ".* 601 1350 6B151234" { set x [expr $x+1]; exp_continue; }
1840 -re ".* 601 8130" { set x [expr $x+1]; exp_continue; }
1841 -re ".* 602 1356 6B151234" { set x [expr $x+1]; exp_continue; }
1842 -re ".* 602 A130" { set x [expr $x+1]; exp_continue; }
1843 -re ".* 603 135c 6B151234" { set x [expr $x+1]; exp_continue; }
1844 -re ".* 603 9130" { set x [expr $x+1]; exp_continue; }
1845 -re ".* 604 1362 6B151234" { set x [expr $x+1]; exp_continue; }
1846 -re ".* 604 C1309ABC" { set x [expr $x+1]; exp_continue; }
1847 -re ".* 605 136a 6B151234" { set x [expr $x+1]; exp_continue; }
1848 -re ".* 605 C9309ABC" { set x [expr $x+1]; exp_continue; }
1849 -re ".* 605 DEF0" { set x [expr $x+1]; exp_continue; }
1850 -re ".* 606 1374 6B151234" { set x [expr $x+1]; exp_continue; }
1851 -re ".* 606 D2309ABC" { set x [expr $x+1]; exp_continue; }
1852 -re ".* 607 137c 6B151234" { set x [expr $x+1]; exp_continue; }
1853 -re ".* 607 E2309ABC" { set x [expr $x+1]; exp_continue; }
1854 -re ".* 608 1384 6B151234" { set x [expr $x+1]; exp_continue; }
1855 -re ".* 608 F2309ABC" { set x [expr $x+1]; exp_continue; }
1856 -re ".* 609 138c 6B151234" { set x [expr $x+1]; exp_continue; }
1857 -re ".* 609 DA309ABC" { set x [expr $x+1]; exp_continue; }
1858 -re ".* 609 DEF0" { set x [expr $x+1]; exp_continue; }
1859 -re ".* 610 1396 6B151234" { set x [expr $x+1]; exp_continue; }
1860 -re ".* 610 EA309ABC" { set x [expr $x+1]; exp_continue; }
1861 -re ".* 610 DEF0" { set x [expr $x+1]; exp_continue; }
1862 -re ".* 611 13a0 6B151234" { set x [expr $x+1]; exp_continue; }
1863 -re ".* 611 FA309ABC" { set x [expr $x+1]; exp_continue; }
1864 -re ".* 611 DEF0" { set x [expr $x+1]; exp_continue; }
1865 -re ".* 612 13aa 6B151234" { set x [expr $x+1]; exp_continue; }
1866 -re ".* 612 40309ABC" { set x [expr $x+1]; exp_continue; }
1867 -re ".* 613 13b2 6B151234" { set x [expr $x+1]; exp_continue; }
1868 -re ".* 613 48309ABC" { set x [expr $x+1]; exp_continue; }
1869 -re ".* 613 DEF0" { set x [expr $x+1]; exp_continue; }
1870 -re ".* 614 " {
1871 if [expr $x == 37] then {
1872 pass "$testname: sub.w @0x1234:16, ..."
1873 } else {
1874 fail "$testname: sub.w @0x1234:16, ... ($x)"
1875 }
1876 }
1877 default { fail "$testname: sub.w @0x1234:16, ... ($x)" }
1878 }
1879
1880 set x 0
1881 expect {
1882 -re ".* 615 13bc 6B351234" { set x [expr $x+1]; exp_continue; }
1883 -re ".* 615 56780130" { set x [expr $x+1]; exp_continue; }
1884 -re ".* 616 13c4 6B351234" { set x [expr $x+1]; exp_continue; }
1885 -re ".* 616 56783130" { set x [expr $x+1]; exp_continue; }
1886 -re ".* 617 13cc 6B351234" { set x [expr $x+1]; exp_continue; }
1887 -re ".* 617 5678B130" { set x [expr $x+1]; exp_continue; }
1888 -re ".* 618 13d4 6B351234" { set x [expr $x+1]; exp_continue; }
1889 -re ".* 618 56788130" { set x [expr $x+1]; exp_continue; }
1890 -re ".* 619 13dc 6B351234" { set x [expr $x+1]; exp_continue; }
1891 -re ".* 619 5678A130" { set x [expr $x+1]; exp_continue; }
1892 -re ".* 620 13e4 6B351234" { set x [expr $x+1]; exp_continue; }
1893 -re ".* 620 56789130" { set x [expr $x+1]; exp_continue; }
1894 -re ".* 621 13ec 6B351234" { set x [expr $x+1]; exp_continue; }
1895 -re ".* 621 5678C130" { set x [expr $x+1]; exp_continue; }
1896 -re ".* 621 9ABC" { set x [expr $x+1]; exp_continue; }
1897 -re ".* 622 13f6 6B351234" { set x [expr $x+1]; exp_continue; }
1898 -re ".* 622 5678C930" { set x [expr $x+1]; exp_continue; }
1899 -re ".* 622 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1900 -re ".* 623 1402 6B351234" { set x [expr $x+1]; exp_continue; }
1901 -re ".* 623 5678D230" { set x [expr $x+1]; exp_continue; }
1902 -re ".* 623 9ABC" { set x [expr $x+1]; exp_continue; }
1903 -re ".* 624 140c 6B351234" { set x [expr $x+1]; exp_continue; }
1904 -re ".* 624 5678E230" { set x [expr $x+1]; exp_continue; }
1905 -re ".* 624 9ABC" { set x [expr $x+1]; exp_continue; }
1906 -re ".* 625 1416 6B351234" { set x [expr $x+1]; exp_continue; }
1907 -re ".* 625 5678F230" { set x [expr $x+1]; exp_continue; }
1908 -re ".* 625 9ABC" { set x [expr $x+1]; exp_continue; }
1909 -re ".* 626 1420 6B351234" { set x [expr $x+1]; exp_continue; }
1910 -re ".* 626 5678DA30" { set x [expr $x+1]; exp_continue; }
1911 -re ".* 626 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1912 -re ".* 627 142c 6B351234" { set x [expr $x+1]; exp_continue; }
1913 -re ".* 627 5678EA30" { set x [expr $x+1]; exp_continue; }
1914 -re ".* 627 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1915 -re ".* 628 1438 6B351234" { set x [expr $x+1]; exp_continue; }
1916 -re ".* 628 5678FA30" { set x [expr $x+1]; exp_continue; }
1917 -re ".* 628 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1918 -re ".* 629 1444 6B351234" { set x [expr $x+1]; exp_continue; }
1919 -re ".* 629 56784030" { set x [expr $x+1]; exp_continue; }
1920 -re ".* 629 9ABC" { set x [expr $x+1]; exp_continue; }
1921 -re ".* 630 144e 6B351234" { set x [expr $x+1]; exp_continue; }
1922 -re ".* 630 56784830" { set x [expr $x+1]; exp_continue; }
1923 -re ".* 630 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1924 -re ".* 631 " {
1925 if [expr $x == 42] then {
1926 pass "$testname: sub.w @0x12345678:32, ..."
1927 } else {
1928 fail "$testname: sub.w @0x12345678:32, ... ($x)"
1929 }
1930 }
1931 default { fail "$testname: sub.w @0x12345678:32, ... ($x)" }
1932 }
1933
1934 set x 0
1935 expect {
1936 -re ".* 632 145a 7A311234" { set x [expr $x+1]; exp_continue; }
1937 -re ".* 632 5678" { set x [expr $x+1]; exp_continue; }
1938 -re ".* 633 1460 7A391234" { set x [expr $x+1]; exp_continue; }
1939 -re ".* 634 1464 1AFA" { set x [expr $x+1]; exp_continue; }
1940 -re ".* 635 1466 010E0138" { set x [expr $x+1]; exp_continue; }
1941 -re ".* 635 12345678" { set x [expr $x+1]; exp_continue; }
1942 -re ".* 636 146e 010E3138" { set x [expr $x+1]; exp_continue; }
1943 -re ".* 636 12345678" { set x [expr $x+1]; exp_continue; }
1944 -re ".* 637 1476 010E8138" { set x [expr $x+1]; exp_continue; }
1945 -re ".* 637 12345678" { set x [expr $x+1]; exp_continue; }
1946 -re ".* 638 147e 010EB138" { set x [expr $x+1]; exp_continue; }
1947 -re ".* 638 12345678" { set x [expr $x+1]; exp_continue; }
1948 -re ".* 639 1486 010E9138" { set x [expr $x+1]; exp_continue; }
1949 -re ".* 639 12345678" { set x [expr $x+1]; exp_continue; }
1950 -re ".* 640 148e 010EA138" { set x [expr $x+1]; exp_continue; }
1951 -re ".* 640 12345678" { set x [expr $x+1]; exp_continue; }
1952 -re ".* 641 1496 010EC138" { set x [expr $x+1]; exp_continue; }
1953 -re ".* 641 9ABC1234" { set x [expr $x+1]; exp_continue; }
1954 -re ".* 641 5678" { set x [expr $x+1]; exp_continue; }
1955 -re ".* 642 14a0 010EC938" { set x [expr $x+1]; exp_continue; }
1956 -re ".* 642 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1957 -re ".* 642 12345678" { set x [expr $x+1]; exp_continue; }
1958 -re ".* 643 14ac 010ED238" { set x [expr $x+1]; exp_continue; }
1959 -re ".* 643 9ABC1234" { set x [expr $x+1]; exp_continue; }
1960 -re ".* 643 5678" { set x [expr $x+1]; exp_continue; }
1961 -re ".* 644 14b6 010EE238" { set x [expr $x+1]; exp_continue; }
1962 -re ".* 644 9ABC1234" { set x [expr $x+1]; exp_continue; }
1963 -re ".* 644 5678" { set x [expr $x+1]; exp_continue; }
1964 -re ".* 645 14c0 010EF238" { set x [expr $x+1]; exp_continue; }
1965 -re ".* 645 9ABC1234" { set x [expr $x+1]; exp_continue; }
1966 -re ".* 645 5678" { set x [expr $x+1]; exp_continue; }
1967 -re ".* 646 14ca 010EDA38" { set x [expr $x+1]; exp_continue; }
1968 -re ".* 646 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1969 -re ".* 646 12345678" { set x [expr $x+1]; exp_continue; }
1970 -re ".* 647 14d6 010EEA38" { set x [expr $x+1]; exp_continue; }
1971 -re ".* 647 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1972 -re ".* 647 12345678" { set x [expr $x+1]; exp_continue; }
1973 -re ".* 648 14e2 010EFA38" { set x [expr $x+1]; exp_continue; }
1974 -re ".* 648 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1975 -re ".* 648 12345678" { set x [expr $x+1]; exp_continue; }
1976 -re ".* 649 14ee 010E4038" { set x [expr $x+1]; exp_continue; }
1977 -re ".* 649 9ABC1234" { set x [expr $x+1]; exp_continue; }
1978 -re ".* 649 5678" { set x [expr $x+1]; exp_continue; }
1979 -re ".* 650 14f8 010E4838" { set x [expr $x+1]; exp_continue; }
1980 -re ".* 650 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1981 -re ".* 650 12345678" { set x [expr $x+1]; exp_continue; }
1982 -re ".* 651 1504 010E0130" { set x [expr $x+1]; exp_continue; }
1983 -re ".* 651 1234" { set x [expr $x+1]; exp_continue; }
1984 -re ".* 652 150a 010E3130" { set x [expr $x+1]; exp_continue; }
1985 -re ".* 652 1234" { set x [expr $x+1]; exp_continue; }
1986 -re ".* 653 1510 010E8130" { set x [expr $x+1]; exp_continue; }
1987 -re ".* 653 1234" { set x [expr $x+1]; exp_continue; }
1988 -re ".* 654 1516 010EB130" { set x [expr $x+1]; exp_continue; }
1989 -re ".* 654 1234" { set x [expr $x+1]; exp_continue; }
1990 -re ".* 655 151c 010E9130" { set x [expr $x+1]; exp_continue; }
1991 -re ".* 655 1234" { set x [expr $x+1]; exp_continue; }
1992 -re ".* 656 1522 010EA130" { set x [expr $x+1]; exp_continue; }
1993 -re ".* 656 1234" { set x [expr $x+1]; exp_continue; }
1994 -re ".* 657 1528 010EC130" { set x [expr $x+1]; exp_continue; }
1995 -re ".* 657 9ABC1234" { set x [expr $x+1]; exp_continue; }
1996 -re ".* 658 1530 010EC930" { set x [expr $x+1]; exp_continue; }
1997 -re ".* 658 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
1998 -re ".* 658 1234" { set x [expr $x+1]; exp_continue; }
1999 -re ".* 659 153a 010ED230" { set x [expr $x+1]; exp_continue; }
2000 -re ".* 659 9ABC1234" { set x [expr $x+1]; exp_continue; }
2001 -re ".* 660 1542 010EE230" { set x [expr $x+1]; exp_continue; }
2002 -re ".* 660 9ABC1234" { set x [expr $x+1]; exp_continue; }
2003 -re ".* 661 154a 010EF230" { set x [expr $x+1]; exp_continue; }
2004 -re ".* 661 9ABC1234" { set x [expr $x+1]; exp_continue; }
2005 -re ".* 662 1552 010EDA30" { set x [expr $x+1]; exp_continue; }
2006 -re ".* 662 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2007 -re ".* 662 1234" { set x [expr $x+1]; exp_continue; }
2008 -re ".* 663 155c 010EEA30" { set x [expr $x+1]; exp_continue; }
2009 -re ".* 663 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2010 -re ".* 663 1234" { set x [expr $x+1]; exp_continue; }
2011 -re ".* 664 1566 010EFA30" { set x [expr $x+1]; exp_continue; }
2012 -re ".* 664 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2013 -re ".* 664 1234" { set x [expr $x+1]; exp_continue; }
2014 -re ".* 665 1570 010E4030" { set x [expr $x+1]; exp_continue; }
2015 -re ".* 665 9ABC1234" { set x [expr $x+1]; exp_continue; }
2016 -re ".* 666 1578 010E4830" { set x [expr $x+1]; exp_continue; }
2017 -re ".* 666 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2018 -re ".* 666 1234" { set x [expr $x+1]; exp_continue; }
2019 -re ".* 667 " {
2020 if [expr $x == 83] then {
2021 pass "$testname: sub.l #0x1234:16, ..."
2022 } else {
2023 fail "$testname: sub.l #0x1234:16, ... ($x)"
2024 }
2025 }
2026 default { fail "$testname: sub.l #0x1234:16, ... ($x)" }
2027 }
2028
2029 set x 0
2030 expect {
2031 -re ".* 668 1582 1AB1" { set x [expr $x+1]; exp_continue; }
2032 -re ".* 669 " {
2033 if [expr $x == 1] then {
2034 pass "$testname: sub.l er3, er1"
2035 } else {
2036 fail "$testname: sub.l er3, er1 ($x)"
2037 }
2038 }
2039 default { fail "$testname: sub.l er3, er1 ($x)" }
2040 }
2041
2042 set x 0
2043 expect {
2044 -re ".* 670 1584 01090133" { set x [expr $x+1]; exp_continue; }
2045 -re ".* 671 1588 01093133" { set x [expr $x+1]; exp_continue; }
2046 -re ".* 672 158c 01098133" { set x [expr $x+1]; exp_continue; }
2047 -re ".* 673 1590 0109B133" { set x [expr $x+1]; exp_continue; }
2048 -re ".* 674 1594 01099133" { set x [expr $x+1]; exp_continue; }
2049 -re ".* 675 1598 0109A133" { set x [expr $x+1]; exp_continue; }
2050 -re ".* 676 159c 0109C133" { set x [expr $x+1]; exp_continue; }
2051 -re ".* 676 1234" { set x [expr $x+1]; exp_continue; }
2052 -re ".* 677 15a2 0109C933" { set x [expr $x+1]; exp_continue; }
2053 -re ".* 677 12345678" { set x [expr $x+1]; exp_continue; }
2054 -re ".* 678 15aa 0109D233" { set x [expr $x+1]; exp_continue; }
2055 -re ".* 678 1234" { set x [expr $x+1]; exp_continue; }
2056 -re ".* 679 15b0 0109E233" { set x [expr $x+1]; exp_continue; }
2057 -re ".* 679 1234" { set x [expr $x+1]; exp_continue; }
2058 -re ".* 680 15b6 0109F233" { set x [expr $x+1]; exp_continue; }
2059 -re ".* 680 1234" { set x [expr $x+1]; exp_continue; }
2060 -re ".* 681 15bc 0109DA33" { set x [expr $x+1]; exp_continue; }
2061 -re ".* 681 12345678" { set x [expr $x+1]; exp_continue; }
2062 -re ".* 682 15c4 0109EA33" { set x [expr $x+1]; exp_continue; }
2063 -re ".* 682 12345678" { set x [expr $x+1]; exp_continue; }
2064 -re ".* 683 15cc 0109FA33" { set x [expr $x+1]; exp_continue; }
2065 -re ".* 683 12345678" { set x [expr $x+1]; exp_continue; }
2066 -re ".* 684 15d4 01094033" { set x [expr $x+1]; exp_continue; }
2067 -re ".* 684 1234" { set x [expr $x+1]; exp_continue; }
2068 -re ".* 685 15da 01094833" { set x [expr $x+1]; exp_continue; }
2069 -re ".* 685 12345678" { set x [expr $x+1]; exp_continue; }
2070 -re ".* 686 " {
2071 if [expr $x == 26] then {
2072 pass "$testname: sub.l er3, ..."
2073 } else {
2074 fail "$testname: sub.l er3, ... ($x)"
2075 }
2076 }
2077 default { fail "$testname: sub.l er3, ... ($x)" }
2078 }
2079
2080 set x 0
2081 expect {
2082 -re ".* 687 15e2 010A0331" { set x [expr $x+1]; exp_continue; }
2083 -re ".* 688 15e6 010A3331" { set x [expr $x+1]; exp_continue; }
2084 -re ".* 689 15ea 010A8331" { set x [expr $x+1]; exp_continue; }
2085 -re ".* 690 15ee 010AB331" { set x [expr $x+1]; exp_continue; }
2086 -re ".* 691 15f2 010A9331" { set x [expr $x+1]; exp_continue; }
2087 -re ".* 692 15f6 010AA331" { set x [expr $x+1]; exp_continue; }
2088 -re ".* 693 15fa 010AC131" { set x [expr $x+1]; exp_continue; }
2089 -re ".* 693 1234" { set x [expr $x+1]; exp_continue; }
2090 -re ".* 694 1600 010AC931" { set x [expr $x+1]; exp_continue; }
2091 -re ".* 694 12345678" { set x [expr $x+1]; exp_continue; }
2092 -re ".* 695 1608 010AD231" { set x [expr $x+1]; exp_continue; }
2093 -re ".* 695 1234" { set x [expr $x+1]; exp_continue; }
2094 -re ".* 696 160e 010AE231" { set x [expr $x+1]; exp_continue; }
2095 -re ".* 696 1234" { set x [expr $x+1]; exp_continue; }
2096 -re ".* 697 1614 010AF231" { set x [expr $x+1]; exp_continue; }
2097 -re ".* 697 1234" { set x [expr $x+1]; exp_continue; }
2098 -re ".* 698 161a 010ADA31" { set x [expr $x+1]; exp_continue; }
2099 -re ".* 698 12345678" { set x [expr $x+1]; exp_continue; }
2100 -re ".* 699 1622 010AEA31" { set x [expr $x+1]; exp_continue; }
2101 -re ".* 699 12345678" { set x [expr $x+1]; exp_continue; }
2102 -re ".* 700 162a 010AFA31" { set x [expr $x+1]; exp_continue; }
2103 -re ".* 700 12345678" { set x [expr $x+1]; exp_continue; }
2104 -re ".* 701 1632 010A4031" { set x [expr $x+1]; exp_continue; }
2105 -re ".* 701 1234" { set x [expr $x+1]; exp_continue; }
2106 -re ".* 702 1638 010A4831" { set x [expr $x+1]; exp_continue; }
2107 -re ".* 702 12345678" { set x [expr $x+1]; exp_continue; }
2108 -re ".* 703 " {
2109 if [expr $x == 26] then {
2110 pass "$testname: sub.l ..., er1"
2111 } else {
2112 fail "$testname: sub.l ..., er1 ($x)"
2113 }
2114 }
2115 default { fail "$testname: sub.l ..., er1 ($x)" }
2116 }
2117
2118 set x 0
2119 expect {
2120 -re ".* 704 1640 0104693C" { set x [expr $x+1]; exp_continue; }
2121 -re ".* 704 0130" { set x [expr $x+1]; exp_continue; }
2122 -re ".* 705 1646 0104693C" { set x [expr $x+1]; exp_continue; }
2123 -re ".* 705 3130" { set x [expr $x+1]; exp_continue; }
2124 -re ".* 706 164c 0104693C" { set x [expr $x+1]; exp_continue; }
2125 -re ".* 706 B130" { set x [expr $x+1]; exp_continue; }
2126 -re ".* 707 1652 0104693C" { set x [expr $x+1]; exp_continue; }
2127 -re ".* 707 8130" { set x [expr $x+1]; exp_continue; }
2128 -re ".* 708 1658 0104693C" { set x [expr $x+1]; exp_continue; }
2129 -re ".* 708 A130" { set x [expr $x+1]; exp_continue; }
2130 -re ".* 709 165e 0104693C" { set x [expr $x+1]; exp_continue; }
2131 -re ".* 709 9130" { set x [expr $x+1]; exp_continue; }
2132 -re ".* 710 1664 0104693C" { set x [expr $x+1]; exp_continue; }
2133 -re ".* 710 C1309ABC" { set x [expr $x+1]; exp_continue; }
2134 -re ".* 711 166c 0104693C" { set x [expr $x+1]; exp_continue; }
2135 -re ".* 711 C9309ABC" { set x [expr $x+1]; exp_continue; }
2136 -re ".* 711 DEF0" { set x [expr $x+1]; exp_continue; }
2137 -re ".* 712 1676 0104693C" { set x [expr $x+1]; exp_continue; }
2138 -re ".* 712 D2309ABC" { set x [expr $x+1]; exp_continue; }
2139 -re ".* 713 167e 0104693C" { set x [expr $x+1]; exp_continue; }
2140 -re ".* 713 E2309ABC" { set x [expr $x+1]; exp_continue; }
2141 -re ".* 714 1686 0104693C" { set x [expr $x+1]; exp_continue; }
2142 -re ".* 714 F2309ABC" { set x [expr $x+1]; exp_continue; }
2143 -re ".* 715 168e 0104693C" { set x [expr $x+1]; exp_continue; }
2144 -re ".* 715 DA309ABC" { set x [expr $x+1]; exp_continue; }
2145 -re ".* 715 DEF0" { set x [expr $x+1]; exp_continue; }
2146 -re ".* 716 1698 0104693C" { set x [expr $x+1]; exp_continue; }
2147 -re ".* 716 EA309ABC" { set x [expr $x+1]; exp_continue; }
2148 -re ".* 716 DEF0" { set x [expr $x+1]; exp_continue; }
2149 -re ".* 717 16a2 0104693C" { set x [expr $x+1]; exp_continue; }
2150 -re ".* 717 FA309ABC" { set x [expr $x+1]; exp_continue; }
2151 -re ".* 717 DEF0" { set x [expr $x+1]; exp_continue; }
2152 -re ".* 718 16ac 0104693C" { set x [expr $x+1]; exp_continue; }
2153 -re ".* 718 40309ABC" { set x [expr $x+1]; exp_continue; }
2154 -re ".* 719 16b4 0104693C" { set x [expr $x+1]; exp_continue; }
2155 -re ".* 719 48309ABC" { set x [expr $x+1]; exp_continue; }
2156 -re ".* 719 DEF0" { set x [expr $x+1]; exp_continue; }
2157 -re ".* 720 " {
2158 if [expr $x == 37] then {
2159 pass "$testname: sub.l @er3, ..."
2160 } else {
2161 fail "$testname: sub.l @er3, ... ($x)"
2162 }
2163 }
2164 default { fail "$testname: sub.l @er3, ... ($x)" }
2165 }
2166
2167 set x 0
2168 expect {
2169 -re ".* 721 16be 0107693C" { set x [expr $x+1]; exp_continue; }
2170 -re ".* 721 0130" { set x [expr $x+1]; exp_continue; }
2171 -re ".* 722 16c4 0107693C" { set x [expr $x+1]; exp_continue; }
2172 -re ".* 722 3130" { set x [expr $x+1]; exp_continue; }
2173 -re ".* 723 16ca 0107693C" { set x [expr $x+1]; exp_continue; }
2174 -re ".* 723 B130" { set x [expr $x+1]; exp_continue; }
2175 -re ".* 724 16d0 0107693C" { set x [expr $x+1]; exp_continue; }
2176 -re ".* 724 8130" { set x [expr $x+1]; exp_continue; }
2177 -re ".* 725 16d6 0107693C" { set x [expr $x+1]; exp_continue; }
2178 -re ".* 725 A130" { set x [expr $x+1]; exp_continue; }
2179 -re ".* 726 16dc 0107693C" { set x [expr $x+1]; exp_continue; }
2180 -re ".* 726 9130" { set x [expr $x+1]; exp_continue; }
2181 -re ".* 727 16e2 0107693C" { set x [expr $x+1]; exp_continue; }
2182 -re ".* 727 C1309ABC" { set x [expr $x+1]; exp_continue; }
2183 -re ".* 728 16ea 0107693C" { set x [expr $x+1]; exp_continue; }
2184 -re ".* 728 C9309ABC" { set x [expr $x+1]; exp_continue; }
2185 -re ".* 728 DEF0" { set x [expr $x+1]; exp_continue; }
2186 -re ".* 729 16f4 0107693C" { set x [expr $x+1]; exp_continue; }
2187 -re ".* 729 D2309ABC" { set x [expr $x+1]; exp_continue; }
2188 -re ".* 730 16fc 0107693C" { set x [expr $x+1]; exp_continue; }
2189 -re ".* 730 E2309ABC" { set x [expr $x+1]; exp_continue; }
2190 -re ".* 731 1704 0107693C" { set x [expr $x+1]; exp_continue; }
2191 -re ".* 731 F2309ABC" { set x [expr $x+1]; exp_continue; }
2192 -re ".* 732 170c 0107693C" { set x [expr $x+1]; exp_continue; }
2193 -re ".* 732 DA309ABC" { set x [expr $x+1]; exp_continue; }
2194 -re ".* 732 DEF0" { set x [expr $x+1]; exp_continue; }
2195 -re ".* 733 1716 0107693C" { set x [expr $x+1]; exp_continue; }
2196 -re ".* 733 EA309ABC" { set x [expr $x+1]; exp_continue; }
2197 -re ".* 733 DEF0" { set x [expr $x+1]; exp_continue; }
2198 -re ".* 734 1720 0107693C" { set x [expr $x+1]; exp_continue; }
2199 -re ".* 734 FA309ABC" { set x [expr $x+1]; exp_continue; }
2200 -re ".* 734 DEF0" { set x [expr $x+1]; exp_continue; }
2201 -re ".* 735 172a 0107693C" { set x [expr $x+1]; exp_continue; }
2202 -re ".* 735 40309ABC" { set x [expr $x+1]; exp_continue; }
2203 -re ".* 736 1732 0107693C" { set x [expr $x+1]; exp_continue; }
2204 -re ".* 736 48309ABC" { set x [expr $x+1]; exp_continue; }
2205 -re ".* 736 DEF0" { set x [expr $x+1]; exp_continue; }
2206 -re ".* 737 " {
2207 if [expr $x == 37] then {
2208 pass "$testname: sub.l @(0xc:2,er3), ..."
2209 } else {
2210 fail "$testname: sub.l @(0xc:2,er3), ... ($x)"
2211 }
2212 }
2213 default { fail "$testname: sub.l @(0xc:2,er3), ... ($x)" }
2214 }
2215
2216 set x 0
2217 expect {
2218 -re ".* 738 173c 01076D3C" { set x [expr $x+1]; exp_continue; }
2219 -re ".* 738 0130" { set x [expr $x+1]; exp_continue; }
2220 -re ".* 739 1742 01076D3C" { set x [expr $x+1]; exp_continue; }
2221 -re ".* 739 3130" { set x [expr $x+1]; exp_continue; }
2222 -re ".* 740 1748 01076D3C" { set x [expr $x+1]; exp_continue; }
2223 -re ".* 740 B130" { set x [expr $x+1]; exp_continue; }
2224 -re ".* 741 174e 01076D3C" { set x [expr $x+1]; exp_continue; }
2225 -re ".* 741 8130" { set x [expr $x+1]; exp_continue; }
2226 -re ".* 742 1754 01076D3C" { set x [expr $x+1]; exp_continue; }
2227 -re ".* 742 A130" { set x [expr $x+1]; exp_continue; }
2228 -re ".* 743 175a 01076D3C" { set x [expr $x+1]; exp_continue; }
2229 -re ".* 743 9130" { set x [expr $x+1]; exp_continue; }
2230 -re ".* 744 1760 01076D3C" { set x [expr $x+1]; exp_continue; }
2231 -re ".* 744 C1309ABC" { set x [expr $x+1]; exp_continue; }
2232 -re ".* 745 1768 01076D3C" { set x [expr $x+1]; exp_continue; }
2233 -re ".* 745 C9309ABC" { set x [expr $x+1]; exp_continue; }
2234 -re ".* 745 DEF0" { set x [expr $x+1]; exp_continue; }
2235 -re ".* 746 1772 01076D3C" { set x [expr $x+1]; exp_continue; }
2236 -re ".* 746 D2309ABC" { set x [expr $x+1]; exp_continue; }
2237 -re ".* 747 177a 01076D3C" { set x [expr $x+1]; exp_continue; }
2238 -re ".* 747 E2309ABC" { set x [expr $x+1]; exp_continue; }
2239 -re ".* 748 1782 01076D3C" { set x [expr $x+1]; exp_continue; }
2240 -re ".* 748 F2309ABC" { set x [expr $x+1]; exp_continue; }
2241 -re ".* 749 178a 01076D3C" { set x [expr $x+1]; exp_continue; }
2242 -re ".* 749 DA309ABC" { set x [expr $x+1]; exp_continue; }
2243 -re ".* 749 DEF0" { set x [expr $x+1]; exp_continue; }
2244 -re ".* 750 1794 01076D3C" { set x [expr $x+1]; exp_continue; }
2245 -re ".* 750 EA309ABC" { set x [expr $x+1]; exp_continue; }
2246 -re ".* 750 DEF0" { set x [expr $x+1]; exp_continue; }
2247 -re ".* 751 179e 01076D3C" { set x [expr $x+1]; exp_continue; }
2248 -re ".* 751 FA309ABC" { set x [expr $x+1]; exp_continue; }
2249 -re ".* 751 DEF0" { set x [expr $x+1]; exp_continue; }
2250 -re ".* 752 17a8 01076D3C" { set x [expr $x+1]; exp_continue; }
2251 -re ".* 752 40309ABC" { set x [expr $x+1]; exp_continue; }
2252 -re ".* 753 17b0 01076D3C" { set x [expr $x+1]; exp_continue; }
2253 -re ".* 753 48309ABC" { set x [expr $x+1]; exp_continue; }
2254 -re ".* 753 DEF0" { set x [expr $x+1]; exp_continue; }
2255 -re ".* 754 " {
2256 if [expr $x == 37] then {
2257 pass "$testname: sub.l @-er3, ..."
2258 } else {
2259 fail "$testname: sub.l @-er3, ... ($x)"
2260 }
2261 }
2262 default { fail "$testname: sub.l @-er3, ... ($x)" }
2263 }
2264
2265 set x 0
2266 expect {
2267 -re ".* 755 17ba 01046D3C" { set x [expr $x+1]; exp_continue; }
2268 -re ".* 755 0130" { set x [expr $x+1]; exp_continue; }
2269 -re ".* 756 17c0 01046D3C" { set x [expr $x+1]; exp_continue; }
2270 -re ".* 756 3130" { set x [expr $x+1]; exp_continue; }
2271 -re ".* 757 17c6 01046D3C" { set x [expr $x+1]; exp_continue; }
2272 -re ".* 757 B130" { set x [expr $x+1]; exp_continue; }
2273 -re ".* 758 17cc 01046D3C" { set x [expr $x+1]; exp_continue; }
2274 -re ".* 758 8130" { set x [expr $x+1]; exp_continue; }
2275 -re ".* 759 17d2 01046D3C" { set x [expr $x+1]; exp_continue; }
2276 -re ".* 759 A130" { set x [expr $x+1]; exp_continue; }
2277 -re ".* 760 17d8 01046D3C" { set x [expr $x+1]; exp_continue; }
2278 -re ".* 760 9130" { set x [expr $x+1]; exp_continue; }
2279 -re ".* 761 17de 01046D3C" { set x [expr $x+1]; exp_continue; }
2280 -re ".* 761 C1309ABC" { set x [expr $x+1]; exp_continue; }
2281 -re ".* 762 17e6 01046D3C" { set x [expr $x+1]; exp_continue; }
2282 -re ".* 762 C9309ABC" { set x [expr $x+1]; exp_continue; }
2283 -re ".* 762 DEF0" { set x [expr $x+1]; exp_continue; }
2284 -re ".* 763 17f0 01046D3C" { set x [expr $x+1]; exp_continue; }
2285 -re ".* 763 D2309ABC" { set x [expr $x+1]; exp_continue; }
2286 -re ".* 764 17f8 01046D3C" { set x [expr $x+1]; exp_continue; }
2287 -re ".* 764 E2309ABC" { set x [expr $x+1]; exp_continue; }
2288 -re ".* 765 1800 01046D3C" { set x [expr $x+1]; exp_continue; }
2289 -re ".* 765 F2309ABC" { set x [expr $x+1]; exp_continue; }
2290 -re ".* 766 1808 01046D3C" { set x [expr $x+1]; exp_continue; }
2291 -re ".* 766 DA309ABC" { set x [expr $x+1]; exp_continue; }
2292 -re ".* 766 DEF0" { set x [expr $x+1]; exp_continue; }
2293 -re ".* 767 1812 01046D3C" { set x [expr $x+1]; exp_continue; }
2294 -re ".* 767 EA309ABC" { set x [expr $x+1]; exp_continue; }
2295 -re ".* 767 DEF0" { set x [expr $x+1]; exp_continue; }
2296 -re ".* 768 181c 01046D3C" { set x [expr $x+1]; exp_continue; }
2297 -re ".* 768 FA309ABC" { set x [expr $x+1]; exp_continue; }
2298 -re ".* 768 DEF0" { set x [expr $x+1]; exp_continue; }
2299 -re ".* 769 1826 01046D3C" { set x [expr $x+1]; exp_continue; }
2300 -re ".* 769 40309ABC" { set x [expr $x+1]; exp_continue; }
2301 -re ".* 770 182e 01046D3C" { set x [expr $x+1]; exp_continue; }
2302 -re ".* 770 48309ABC" { set x [expr $x+1]; exp_continue; }
2303 -re ".* 770 DEF0" { set x [expr $x+1]; exp_continue; }
2304 -re ".* 771 " {
2305 if [expr $x == 37] then {
2306 pass "$testname: sub.l @er3+, ..."
2307 } else {
2308 fail "$testname: sub.l @er3+, ... ($x)"
2309 }
2310 }
2311 default { fail "$testname: sub.l @er3+, ... ($x)" }
2312 }
2313
2314 set x 0
2315 expect {
2316 -re ".* 772 1838 01066D3C" { set x [expr $x+1]; exp_continue; }
2317 -re ".* 772 0130" { set x [expr $x+1]; exp_continue; }
2318 -re ".* 773 183e 01066D3C" { set x [expr $x+1]; exp_continue; }
2319 -re ".* 773 3130" { set x [expr $x+1]; exp_continue; }
2320 -re ".* 774 1844 01066D3C" { set x [expr $x+1]; exp_continue; }
2321 -re ".* 774 B130" { set x [expr $x+1]; exp_continue; }
2322 -re ".* 775 184a 01066D3C" { set x [expr $x+1]; exp_continue; }
2323 -re ".* 775 8130" { set x [expr $x+1]; exp_continue; }
2324 -re ".* 776 1850 01066D3C" { set x [expr $x+1]; exp_continue; }
2325 -re ".* 776 A130" { set x [expr $x+1]; exp_continue; }
2326 -re ".* 777 1856 01066D3C" { set x [expr $x+1]; exp_continue; }
2327 -re ".* 777 9130" { set x [expr $x+1]; exp_continue; }
2328 -re ".* 778 185c 01066D3C" { set x [expr $x+1]; exp_continue; }
2329 -re ".* 778 C1309ABC" { set x [expr $x+1]; exp_continue; }
2330 -re ".* 779 1864 01066D3C" { set x [expr $x+1]; exp_continue; }
2331 -re ".* 779 C9309ABC" { set x [expr $x+1]; exp_continue; }
2332 -re ".* 779 DEF0" { set x [expr $x+1]; exp_continue; }
2333 -re ".* 780 186e 01066D3C" { set x [expr $x+1]; exp_continue; }
2334 -re ".* 780 D2309ABC" { set x [expr $x+1]; exp_continue; }
2335 -re ".* 781 1876 01066D3C" { set x [expr $x+1]; exp_continue; }
2336 -re ".* 781 E2309ABC" { set x [expr $x+1]; exp_continue; }
2337 -re ".* 782 187e 01066D3C" { set x [expr $x+1]; exp_continue; }
2338 -re ".* 782 F2309ABC" { set x [expr $x+1]; exp_continue; }
2339 -re ".* 783 1886 01066D3C" { set x [expr $x+1]; exp_continue; }
2340 -re ".* 783 DA309ABC" { set x [expr $x+1]; exp_continue; }
2341 -re ".* 783 DEF0" { set x [expr $x+1]; exp_continue; }
2342 -re ".* 784 1890 01066D3C" { set x [expr $x+1]; exp_continue; }
2343 -re ".* 784 EA309ABC" { set x [expr $x+1]; exp_continue; }
2344 -re ".* 784 DEF0" { set x [expr $x+1]; exp_continue; }
2345 -re ".* 785 189a 01066D3C" { set x [expr $x+1]; exp_continue; }
2346 -re ".* 785 FA309ABC" { set x [expr $x+1]; exp_continue; }
2347 -re ".* 785 DEF0" { set x [expr $x+1]; exp_continue; }
2348 -re ".* 786 18a4 01066D3C" { set x [expr $x+1]; exp_continue; }
2349 -re ".* 786 40309ABC" { set x [expr $x+1]; exp_continue; }
2350 -re ".* 787 18ac 01066D3C" { set x [expr $x+1]; exp_continue; }
2351 -re ".* 787 48309ABC" { set x [expr $x+1]; exp_continue; }
2352 -re ".* 787 DEF0" { set x [expr $x+1]; exp_continue; }
2353 -re ".* 788 " {
2354 if [expr $x == 37] then {
2355 pass "$testname: sub.l @er3-, ..."
2356 } else {
2357 fail "$testname: sub.l @er3-, ... ($x)"
2358 }
2359 }
2360 default { fail "$testname: sub.l @er3-, ... ($x)" }
2361 }
2362
2363 set x 0
2364 expect {
2365 -re ".* 789 18b6 01056D3C" { set x [expr $x+1]; exp_continue; }
2366 -re ".* 789 0130" { set x [expr $x+1]; exp_continue; }
2367 -re ".* 790 18bc 01056D3C" { set x [expr $x+1]; exp_continue; }
2368 -re ".* 790 3130" { set x [expr $x+1]; exp_continue; }
2369 -re ".* 791 18c2 01056D3C" { set x [expr $x+1]; exp_continue; }
2370 -re ".* 791 B130" { set x [expr $x+1]; exp_continue; }
2371 -re ".* 792 18c8 01056D3C" { set x [expr $x+1]; exp_continue; }
2372 -re ".* 792 8130" { set x [expr $x+1]; exp_continue; }
2373 -re ".* 793 18ce 01056D3C" { set x [expr $x+1]; exp_continue; }
2374 -re ".* 793 A130" { set x [expr $x+1]; exp_continue; }
2375 -re ".* 794 18d4 01056D3C" { set x [expr $x+1]; exp_continue; }
2376 -re ".* 794 9130" { set x [expr $x+1]; exp_continue; }
2377 -re ".* 795 18da 01056D3C" { set x [expr $x+1]; exp_continue; }
2378 -re ".* 795 C1309ABC" { set x [expr $x+1]; exp_continue; }
2379 -re ".* 796 18e2 01056D3C" { set x [expr $x+1]; exp_continue; }
2380 -re ".* 796 C9309ABC" { set x [expr $x+1]; exp_continue; }
2381 -re ".* 796 DEF0" { set x [expr $x+1]; exp_continue; }
2382 -re ".* 797 18ec 01056D3C" { set x [expr $x+1]; exp_continue; }
2383 -re ".* 797 D2309ABC" { set x [expr $x+1]; exp_continue; }
2384 -re ".* 798 18f4 01056D3C" { set x [expr $x+1]; exp_continue; }
2385 -re ".* 798 E2309ABC" { set x [expr $x+1]; exp_continue; }
2386 -re ".* 799 18fc 01056D3C" { set x [expr $x+1]; exp_continue; }
2387 -re ".* 799 F2309ABC" { set x [expr $x+1]; exp_continue; }
2388 -re ".* 800 1904 01056D3C" { set x [expr $x+1]; exp_continue; }
2389 -re ".* 800 DA309ABC" { set x [expr $x+1]; exp_continue; }
2390 -re ".* 800 DEF0" { set x [expr $x+1]; exp_continue; }
2391 -re ".* 801 190e 01056D3C" { set x [expr $x+1]; exp_continue; }
2392 -re ".* 801 EA309ABC" { set x [expr $x+1]; exp_continue; }
2393 -re ".* 801 DEF0" { set x [expr $x+1]; exp_continue; }
2394 -re ".* 802 1918 01056D3C" { set x [expr $x+1]; exp_continue; }
2395 -re ".* 802 FA309ABC" { set x [expr $x+1]; exp_continue; }
2396 -re ".* 802 DEF0" { set x [expr $x+1]; exp_continue; }
2397 -re ".* 803 1922 01056D3C" { set x [expr $x+1]; exp_continue; }
2398 -re ".* 803 40309ABC" { set x [expr $x+1]; exp_continue; }
2399 -re ".* 804 192a 01056D3C" { set x [expr $x+1]; exp_continue; }
2400 -re ".* 804 48309ABC" { set x [expr $x+1]; exp_continue; }
2401 -re ".* 804 DEF0" { set x [expr $x+1]; exp_continue; }
2402 -re ".* 805 " {
2403 if [expr $x == 37] then {
2404 pass "$testname: sub.l @+er3, ..."
2405 } else {
2406 fail "$testname: sub.l @+er3, ... ($x)"
2407 }
2408 }
2409 default { fail "$testname: sub.l @+er3, ... ($x)" }
2410 }
2411
2412 set x 0
2413 expect {
2414 -re ".* 806 1934 01046F3C" { set x [expr $x+1]; exp_continue; }
2415 -re ".* 806 12340130" { set x [expr $x+1]; exp_continue; }
2416 -re ".* 807 193c 01046F3C" { set x [expr $x+1]; exp_continue; }
2417 -re ".* 807 12343130" { set x [expr $x+1]; exp_continue; }
2418 -re ".* 808 1944 01046F3C" { set x [expr $x+1]; exp_continue; }
2419 -re ".* 808 1234B130" { set x [expr $x+1]; exp_continue; }
2420 -re ".* 809 194c 01046F3C" { set x [expr $x+1]; exp_continue; }
2421 -re ".* 809 12348130" { set x [expr $x+1]; exp_continue; }
2422 -re ".* 810 1954 01046F3C" { set x [expr $x+1]; exp_continue; }
2423 -re ".* 810 1234A130" { set x [expr $x+1]; exp_continue; }
2424 -re ".* 811 195c 01046F3C" { set x [expr $x+1]; exp_continue; }
2425 -re ".* 811 12349130" { set x [expr $x+1]; exp_continue; }
2426 -re ".* 812 1964 01046F3C" { set x [expr $x+1]; exp_continue; }
2427 -re ".* 812 1234C130" { set x [expr $x+1]; exp_continue; }
2428 -re ".* 812 9ABC" { set x [expr $x+1]; exp_continue; }
2429 -re ".* 813 196e 01046F3C" { set x [expr $x+1]; exp_continue; }
2430 -re ".* 813 1234C930" { set x [expr $x+1]; exp_continue; }
2431 -re ".* 813 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2432 -re ".* 814 197a 01046F3C" { set x [expr $x+1]; exp_continue; }
2433 -re ".* 814 1234D230" { set x [expr $x+1]; exp_continue; }
2434 -re ".* 814 9ABC" { set x [expr $x+1]; exp_continue; }
2435 -re ".* 815 1984 01046F3C" { set x [expr $x+1]; exp_continue; }
2436 -re ".* 815 1234E230" { set x [expr $x+1]; exp_continue; }
2437 -re ".* 815 9ABC" { set x [expr $x+1]; exp_continue; }
2438 -re ".* 816 198e 01046F3C" { set x [expr $x+1]; exp_continue; }
2439 -re ".* 816 1234F230" { set x [expr $x+1]; exp_continue; }
2440 -re ".* 816 9ABC" { set x [expr $x+1]; exp_continue; }
2441 -re ".* 817 1998 01046F3C" { set x [expr $x+1]; exp_continue; }
2442 -re ".* 817 1234DA30" { set x [expr $x+1]; exp_continue; }
2443 -re ".* 817 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2444 -re ".* 818 19a4 01046F3C" { set x [expr $x+1]; exp_continue; }
2445 -re ".* 818 1234EA30" { set x [expr $x+1]; exp_continue; }
2446 -re ".* 818 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2447 -re ".* 819 19b0 01046F3C" { set x [expr $x+1]; exp_continue; }
2448 -re ".* 819 1234FA30" { set x [expr $x+1]; exp_continue; }
2449 -re ".* 819 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2450 -re ".* 820 19bc 01046F3C" { set x [expr $x+1]; exp_continue; }
2451 -re ".* 820 12344030" { set x [expr $x+1]; exp_continue; }
2452 -re ".* 820 9ABC" { set x [expr $x+1]; exp_continue; }
2453 -re ".* 821 19c6 01046F3C" { set x [expr $x+1]; exp_continue; }
2454 -re ".* 821 12344830" { set x [expr $x+1]; exp_continue; }
2455 -re ".* 821 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2456 -re ".* 822 " {
2457 if [expr $x == 42] then {
2458 pass "$testname: sub.l @(0x1234:16,er3), ..."
2459 } else {
2460 fail "$testname: sub.l @(0x1234:16,er3), ... ($x)"
2461 }
2462 }
2463 default { fail "$testname: sub.l @(0x1234:16,er3), ... ($x)" }
2464 }
2465
2466 set x 0
2467 expect {
2468 -re ".* 823 19d2 78B46B2C" { set x [expr $x+1]; exp_continue; }
2469 -re ".* 823 12345678" { set x [expr $x+1]; exp_continue; }
2470 -re ".* 823 0130" { set x [expr $x+1]; exp_continue; }
2471 -re ".* 824 19dc 78B46B2C" { set x [expr $x+1]; exp_continue; }
2472 -re ".* 824 12345678" { set x [expr $x+1]; exp_continue; }
2473 -re ".* 824 3130" { set x [expr $x+1]; exp_continue; }
2474 -re ".* 825 19e6 78B46B2C" { set x [expr $x+1]; exp_continue; }
2475 -re ".* 825 12345678" { set x [expr $x+1]; exp_continue; }
2476 -re ".* 825 B130" { set x [expr $x+1]; exp_continue; }
2477 -re ".* 826 19f0 78B46B2C" { set x [expr $x+1]; exp_continue; }
2478 -re ".* 826 12345678" { set x [expr $x+1]; exp_continue; }
2479 -re ".* 826 8130" { set x [expr $x+1]; exp_continue; }
2480 -re ".* 827 19fa 78B46B2C" { set x [expr $x+1]; exp_continue; }
2481 -re ".* 827 12345678" { set x [expr $x+1]; exp_continue; }
2482 -re ".* 827 A130" { set x [expr $x+1]; exp_continue; }
2483 -re ".* 828 1a04 78B46B2C" { set x [expr $x+1]; exp_continue; }
2484 -re ".* 828 12345678" { set x [expr $x+1]; exp_continue; }
2485 -re ".* 828 9130" { set x [expr $x+1]; exp_continue; }
2486 -re ".* 829 1a0e 78B46B2C" { set x [expr $x+1]; exp_continue; }
2487 -re ".* 829 12345678" { set x [expr $x+1]; exp_continue; }
2488 -re ".* 829 C1309ABC" { set x [expr $x+1]; exp_continue; }
2489 -re ".* 830 1a1a 78B46B2C" { set x [expr $x+1]; exp_continue; }
2490 -re ".* 830 12345678" { set x [expr $x+1]; exp_continue; }
2491 -re ".* 830 C9309ABC" { set x [expr $x+1]; exp_continue; }
2492 -re ".* 830 DEF0" { set x [expr $x+1]; exp_continue; }
2493 -re ".* 831 1a28 78B46B2C" { set x [expr $x+1]; exp_continue; }
2494 -re ".* 831 12345678" { set x [expr $x+1]; exp_continue; }
2495 -re ".* 831 D2309ABC" { set x [expr $x+1]; exp_continue; }
2496 -re ".* 832 1a34 78B46B2C" { set x [expr $x+1]; exp_continue; }
2497 -re ".* 832 12345678" { set x [expr $x+1]; exp_continue; }
2498 -re ".* 832 E2309ABC" { set x [expr $x+1]; exp_continue; }
2499 -re ".* 833 1a40 78B46B2C" { set x [expr $x+1]; exp_continue; }
2500 -re ".* 833 12345678" { set x [expr $x+1]; exp_continue; }
2501 -re ".* 833 F2309ABC" { set x [expr $x+1]; exp_continue; }
2502 -re ".* 834 1a4c 78B46B2C" { set x [expr $x+1]; exp_continue; }
2503 -re ".* 834 12345678" { set x [expr $x+1]; exp_continue; }
2504 -re ".* 834 DA309ABC" { set x [expr $x+1]; exp_continue; }
2505 -re ".* 834 DEF0" { set x [expr $x+1]; exp_continue; }
2506 -re ".* 835 1a5a 78B46B2C" { set x [expr $x+1]; exp_continue; }
2507 -re ".* 835 12345678" { set x [expr $x+1]; exp_continue; }
2508 -re ".* 835 EA309ABC" { set x [expr $x+1]; exp_continue; }
2509 -re ".* 835 DEF0" { set x [expr $x+1]; exp_continue; }
2510 -re ".* 836 1a68 78B46B2C" { set x [expr $x+1]; exp_continue; }
2511 -re ".* 836 12345678" { set x [expr $x+1]; exp_continue; }
2512 -re ".* 836 FA309ABC" { set x [expr $x+1]; exp_continue; }
2513 -re ".* 836 DEF0" { set x [expr $x+1]; exp_continue; }
2514 -re ".* 837 1a76 78B46B2C" { set x [expr $x+1]; exp_continue; }
2515 -re ".* 837 12345678" { set x [expr $x+1]; exp_continue; }
2516 -re ".* 837 40309ABC" { set x [expr $x+1]; exp_continue; }
2517 -re ".* 838 1a82 78B46B2C" { set x [expr $x+1]; exp_continue; }
2518 -re ".* 838 12345678" { set x [expr $x+1]; exp_continue; }
2519 -re ".* 838 48309ABC" { set x [expr $x+1]; exp_continue; }
2520 -re ".* 838 DEF0" { set x [expr $x+1]; exp_continue; }
2521 -re ".* 839 " {
2522 if [expr $x == 53] then {
2523 pass "$testname: sub.l @(0x12345678:32,er3), ..."
2524 } else {
2525 fail "$testname: sub.l @(0x12345678:32,er3), ... ($x)"
2526 }
2527 }
2528 default { fail "$testname: sub.l @(0x12345678:32,er3), ... ($x)" }
2529 }
2530
2531 set x 0
2532 expect {
2533 -re ".* 840 1a90 01056F3C" { set x [expr $x+1]; exp_continue; }
2534 -re ".* 840 12340130" { set x [expr $x+1]; exp_continue; }
2535 -re ".* 841 1a98 01056F3C" { set x [expr $x+1]; exp_continue; }
2536 -re ".* 841 12343130" { set x [expr $x+1]; exp_continue; }
2537 -re ".* 842 1aa0 01056F3C" { set x [expr $x+1]; exp_continue; }
2538 -re ".* 842 1234B130" { set x [expr $x+1]; exp_continue; }
2539 -re ".* 843 1aa8 01056F3C" { set x [expr $x+1]; exp_continue; }
2540 -re ".* 843 12348130" { set x [expr $x+1]; exp_continue; }
2541 -re ".* 844 1ab0 01056F3C" { set x [expr $x+1]; exp_continue; }
2542 -re ".* 844 1234A130" { set x [expr $x+1]; exp_continue; }
2543 -re ".* 845 1ab8 01056F3C" { set x [expr $x+1]; exp_continue; }
2544 -re ".* 845 12349130" { set x [expr $x+1]; exp_continue; }
2545 -re ".* 846 1ac0 01056F3C" { set x [expr $x+1]; exp_continue; }
2546 -re ".* 846 1234C130" { set x [expr $x+1]; exp_continue; }
2547 -re ".* 846 9ABC" { set x [expr $x+1]; exp_continue; }
2548 -re ".* 847 1aca 01056F3C" { set x [expr $x+1]; exp_continue; }
2549 -re ".* 847 1234C930" { set x [expr $x+1]; exp_continue; }
2550 -re ".* 847 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2551 -re ".* 848 1ad6 01056F3C" { set x [expr $x+1]; exp_continue; }
2552 -re ".* 848 1234D230" { set x [expr $x+1]; exp_continue; }
2553 -re ".* 848 9ABC" { set x [expr $x+1]; exp_continue; }
2554 -re ".* 849 1ae0 01056F3C" { set x [expr $x+1]; exp_continue; }
2555 -re ".* 849 1234E230" { set x [expr $x+1]; exp_continue; }
2556 -re ".* 849 9ABC" { set x [expr $x+1]; exp_continue; }
2557 -re ".* 850 1aea 01056F3C" { set x [expr $x+1]; exp_continue; }
2558 -re ".* 850 1234F230" { set x [expr $x+1]; exp_continue; }
2559 -re ".* 850 9ABC" { set x [expr $x+1]; exp_continue; }
2560 -re ".* 851 1af4 01056F3C" { set x [expr $x+1]; exp_continue; }
2561 -re ".* 851 1234DA30" { set x [expr $x+1]; exp_continue; }
2562 -re ".* 851 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2563 -re ".* 852 1b00 01056F3C" { set x [expr $x+1]; exp_continue; }
2564 -re ".* 852 1234EA30" { set x [expr $x+1]; exp_continue; }
2565 -re ".* 852 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2566 -re ".* 853 1b0c 01056F3C" { set x [expr $x+1]; exp_continue; }
2567 -re ".* 853 1234FA30" { set x [expr $x+1]; exp_continue; }
2568 -re ".* 853 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2569 -re ".* 854 1b18 01056F3C" { set x [expr $x+1]; exp_continue; }
2570 -re ".* 854 12344030" { set x [expr $x+1]; exp_continue; }
2571 -re ".* 854 9ABC" { set x [expr $x+1]; exp_continue; }
2572 -re ".* 855 1b22 01056F3C" { set x [expr $x+1]; exp_continue; }
2573 -re ".* 855 12344830" { set x [expr $x+1]; exp_continue; }
2574 -re ".* 855 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2575 -re ".* 856 " {
2576 if [expr $x == 42] then {
2577 pass "$testname: sub.l @(0x1234:16,r3l.b), ..."
2578 } else {
2579 fail "$testname: sub.l @(0x1234:16,r3l.b), ... ($x)"
2580 }
2581 }
2582 default { fail "$testname: sub.l @(0x1234:16,r3l.b), ... ($x)" }
2583 }
2584
2585 set x 0
2586 expect {
2587 -re ".* 857 1b2e 01066F3C" { set x [expr $x+1]; exp_continue; }
2588 -re ".* 857 12340130" { set x [expr $x+1]; exp_continue; }
2589 -re ".* 858 1b36 01066F3C" { set x [expr $x+1]; exp_continue; }
2590 -re ".* 858 12343130" { set x [expr $x+1]; exp_continue; }
2591 -re ".* 859 1b3e 01066F3C" { set x [expr $x+1]; exp_continue; }
2592 -re ".* 859 1234B130" { set x [expr $x+1]; exp_continue; }
2593 -re ".* 860 1b46 01066F3C" { set x [expr $x+1]; exp_continue; }
2594 -re ".* 860 12348130" { set x [expr $x+1]; exp_continue; }
2595 -re ".* 861 1b4e 01066F3C" { set x [expr $x+1]; exp_continue; }
2596 -re ".* 861 1234A130" { set x [expr $x+1]; exp_continue; }
2597 -re ".* 862 1b56 01066F3C" { set x [expr $x+1]; exp_continue; }
2598 -re ".* 862 12349130" { set x [expr $x+1]; exp_continue; }
2599 -re ".* 863 1b5e 01066F3C" { set x [expr $x+1]; exp_continue; }
2600 -re ".* 863 1234C130" { set x [expr $x+1]; exp_continue; }
2601 -re ".* 863 9ABC" { set x [expr $x+1]; exp_continue; }
2602 -re ".* 864 1b68 01066F3C" { set x [expr $x+1]; exp_continue; }
2603 -re ".* 864 1234C930" { set x [expr $x+1]; exp_continue; }
2604 -re ".* 864 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2605 -re ".* 865 1b74 01066F3C" { set x [expr $x+1]; exp_continue; }
2606 -re ".* 865 1234D230" { set x [expr $x+1]; exp_continue; }
2607 -re ".* 865 9ABC" { set x [expr $x+1]; exp_continue; }
2608 -re ".* 866 1b7e 01066F3C" { set x [expr $x+1]; exp_continue; }
2609 -re ".* 866 1234E230" { set x [expr $x+1]; exp_continue; }
2610 -re ".* 866 9ABC" { set x [expr $x+1]; exp_continue; }
2611 -re ".* 867 1b88 01066F3C" { set x [expr $x+1]; exp_continue; }
2612 -re ".* 867 1234F230" { set x [expr $x+1]; exp_continue; }
2613 -re ".* 867 9ABC" { set x [expr $x+1]; exp_continue; }
2614 -re ".* 868 1b92 01066F3C" { set x [expr $x+1]; exp_continue; }
2615 -re ".* 868 1234DA30" { set x [expr $x+1]; exp_continue; }
2616 -re ".* 868 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2617 -re ".* 869 1b9e 01066F3C" { set x [expr $x+1]; exp_continue; }
2618 -re ".* 869 1234EA30" { set x [expr $x+1]; exp_continue; }
2619 -re ".* 869 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2620 -re ".* 870 1baa 01066F3C" { set x [expr $x+1]; exp_continue; }
2621 -re ".* 870 1234FA30" { set x [expr $x+1]; exp_continue; }
2622 -re ".* 870 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2623 -re ".* 871 1bb6 01066F3C" { set x [expr $x+1]; exp_continue; }
2624 -re ".* 871 12344030" { set x [expr $x+1]; exp_continue; }
2625 -re ".* 871 9ABC" { set x [expr $x+1]; exp_continue; }
2626 -re ".* 872 1bc0 01066F3C" { set x [expr $x+1]; exp_continue; }
2627 -re ".* 872 12344830" { set x [expr $x+1]; exp_continue; }
2628 -re ".* 872 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2629 -re ".* 873 " {
2630 if [expr $x == 42] then {
2631 pass "$testname: sub.l @(0x1234:16,r3.w), ..."
2632 } else {
2633 fail "$testname: sub.l @(0x1234:16,r3.w), ... ($x)"
2634 }
2635 }
2636 default { fail "$testname: sub.l @(0x1234:16,r3.w), ... ($x)" }
2637 }
2638
2639 set x 0
2640 expect {
2641 -re ".* 874 1bcc 01076F3C" { set x [expr $x+1]; exp_continue; }
2642 -re ".* 874 12340130" { set x [expr $x+1]; exp_continue; }
2643 -re ".* 875 1bd4 01076F3C" { set x [expr $x+1]; exp_continue; }
2644 -re ".* 875 12343130" { set x [expr $x+1]; exp_continue; }
2645 -re ".* 876 1bdc 01076F3C" { set x [expr $x+1]; exp_continue; }
2646 -re ".* 876 1234B130" { set x [expr $x+1]; exp_continue; }
2647 -re ".* 877 1be4 01076F3C" { set x [expr $x+1]; exp_continue; }
2648 -re ".* 877 12348130" { set x [expr $x+1]; exp_continue; }
2649 -re ".* 878 1bec 01076F3C" { set x [expr $x+1]; exp_continue; }
2650 -re ".* 878 1234A130" { set x [expr $x+1]; exp_continue; }
2651 -re ".* 879 1bf4 01076F3C" { set x [expr $x+1]; exp_continue; }
2652 -re ".* 879 12349130" { set x [expr $x+1]; exp_continue; }
2653 -re ".* 880 1bfc 01076F3C" { set x [expr $x+1]; exp_continue; }
2654 -re ".* 880 1234C130" { set x [expr $x+1]; exp_continue; }
2655 -re ".* 880 9ABC" { set x [expr $x+1]; exp_continue; }
2656 -re ".* 881 1c06 01076F3C" { set x [expr $x+1]; exp_continue; }
2657 -re ".* 881 1234C930" { set x [expr $x+1]; exp_continue; }
2658 -re ".* 881 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2659 -re ".* 882 1c12 01076F3C" { set x [expr $x+1]; exp_continue; }
2660 -re ".* 882 1234D230" { set x [expr $x+1]; exp_continue; }
2661 -re ".* 882 9ABC" { set x [expr $x+1]; exp_continue; }
2662 -re ".* 883 1c1c 01076F3C" { set x [expr $x+1]; exp_continue; }
2663 -re ".* 883 1234E230" { set x [expr $x+1]; exp_continue; }
2664 -re ".* 883 9ABC" { set x [expr $x+1]; exp_continue; }
2665 -re ".* 884 1c26 01076F3C" { set x [expr $x+1]; exp_continue; }
2666 -re ".* 884 1234F230" { set x [expr $x+1]; exp_continue; }
2667 -re ".* 884 9ABC" { set x [expr $x+1]; exp_continue; }
2668 -re ".* 885 1c30 01076F3C" { set x [expr $x+1]; exp_continue; }
2669 -re ".* 885 1234DA30" { set x [expr $x+1]; exp_continue; }
2670 -re ".* 885 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2671 -re ".* 886 1c3c 01076F3C" { set x [expr $x+1]; exp_continue; }
2672 -re ".* 886 1234EA30" { set x [expr $x+1]; exp_continue; }
2673 -re ".* 886 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2674 -re ".* 887 1c48 01076F3C" { set x [expr $x+1]; exp_continue; }
2675 -re ".* 887 1234FA30" { set x [expr $x+1]; exp_continue; }
2676 -re ".* 887 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2677 -re ".* 888 1c54 01076F3C" { set x [expr $x+1]; exp_continue; }
2678 -re ".* 888 12344030" { set x [expr $x+1]; exp_continue; }
2679 -re ".* 888 9ABC" { set x [expr $x+1]; exp_continue; }
2680 -re ".* 889 1c5e 01076F3C" { set x [expr $x+1]; exp_continue; }
2681 -re ".* 889 12344830" { set x [expr $x+1]; exp_continue; }
2682 -re ".* 889 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2683 -re ".* 890 " {
2684 if [expr $x == 42] then {
2685 pass "$testname: sub.l @(0x1234:16,er3.l), ..."
2686 } else {
2687 fail "$testname: sub.l @(0x1234:16,er3.l), ... ($x)"
2688 }
2689 }
2690 default { fail "$testname: sub.l @(0x1234:16,er3.l), ... ($x)" }
2691 }
2692
2693 set x 0
2694 expect {
2695 -re ".* 891 1c6a 78B56B2C" { set x [expr $x+1]; exp_continue; }
2696 -re ".* 891 12345678" { set x [expr $x+1]; exp_continue; }
2697 -re ".* 891 0130" { set x [expr $x+1]; exp_continue; }
2698 -re ".* 892 1c74 78B56B2C" { set x [expr $x+1]; exp_continue; }
2699 -re ".* 892 12345678" { set x [expr $x+1]; exp_continue; }
2700 -re ".* 892 3130" { set x [expr $x+1]; exp_continue; }
2701 -re ".* 893 1c7e 78B56B2C" { set x [expr $x+1]; exp_continue; }
2702 -re ".* 893 12345678" { set x [expr $x+1]; exp_continue; }
2703 -re ".* 893 B130" { set x [expr $x+1]; exp_continue; }
2704 -re ".* 894 1c88 78B56B2C" { set x [expr $x+1]; exp_continue; }
2705 -re ".* 894 12345678" { set x [expr $x+1]; exp_continue; }
2706 -re ".* 894 8130" { set x [expr $x+1]; exp_continue; }
2707 -re ".* 895 1c92 78B56B2C" { set x [expr $x+1]; exp_continue; }
2708 -re ".* 895 12345678" { set x [expr $x+1]; exp_continue; }
2709 -re ".* 895 A130" { set x [expr $x+1]; exp_continue; }
2710 -re ".* 896 1c9c 78B56B2C" { set x [expr $x+1]; exp_continue; }
2711 -re ".* 896 12345678" { set x [expr $x+1]; exp_continue; }
2712 -re ".* 896 9130" { set x [expr $x+1]; exp_continue; }
2713 -re ".* 897 1ca6 78B56B2C" { set x [expr $x+1]; exp_continue; }
2714 -re ".* 897 12345678" { set x [expr $x+1]; exp_continue; }
2715 -re ".* 897 C1309ABC" { set x [expr $x+1]; exp_continue; }
2716 -re ".* 898 1cb2 78B56B2C" { set x [expr $x+1]; exp_continue; }
2717 -re ".* 898 12345678" { set x [expr $x+1]; exp_continue; }
2718 -re ".* 898 C9309ABC" { set x [expr $x+1]; exp_continue; }
2719 -re ".* 898 DEF0" { set x [expr $x+1]; exp_continue; }
2720 -re ".* 899 1cc0 78B56B2C" { set x [expr $x+1]; exp_continue; }
2721 -re ".* 899 12345678" { set x [expr $x+1]; exp_continue; }
2722 -re ".* 899 D2309ABC" { set x [expr $x+1]; exp_continue; }
2723 -re ".* 900 1ccc 78B56B2C" { set x [expr $x+1]; exp_continue; }
2724 -re ".* 900 12345678" { set x [expr $x+1]; exp_continue; }
2725 -re ".* 900 E2309ABC" { set x [expr $x+1]; exp_continue; }
2726 -re ".* 901 1cd8 78B56B2C" { set x [expr $x+1]; exp_continue; }
2727 -re ".* 901 12345678" { set x [expr $x+1]; exp_continue; }
2728 -re ".* 901 F2309ABC" { set x [expr $x+1]; exp_continue; }
2729 -re ".* 902 1ce4 78B56B2C" { set x [expr $x+1]; exp_continue; }
2730 -re ".* 902 12345678" { set x [expr $x+1]; exp_continue; }
2731 -re ".* 902 DA309ABC" { set x [expr $x+1]; exp_continue; }
2732 -re ".* 902 DEF0" { set x [expr $x+1]; exp_continue; }
2733 -re ".* 903 1cf2 78B56B2C" { set x [expr $x+1]; exp_continue; }
2734 -re ".* 903 12345678" { set x [expr $x+1]; exp_continue; }
2735 -re ".* 903 EA309ABC" { set x [expr $x+1]; exp_continue; }
2736 -re ".* 903 DEF0" { set x [expr $x+1]; exp_continue; }
2737 -re ".* 904 1d00 78B56B2C" { set x [expr $x+1]; exp_continue; }
2738 -re ".* 904 12345678" { set x [expr $x+1]; exp_continue; }
2739 -re ".* 904 FA309ABC" { set x [expr $x+1]; exp_continue; }
2740 -re ".* 904 DEF0" { set x [expr $x+1]; exp_continue; }
2741 -re ".* 905 1d0e 78B56B2C" { set x [expr $x+1]; exp_continue; }
2742 -re ".* 905 12345678" { set x [expr $x+1]; exp_continue; }
2743 -re ".* 905 40309ABC" { set x [expr $x+1]; exp_continue; }
2744 -re ".* 906 1d1a 78B56B2C" { set x [expr $x+1]; exp_continue; }
2745 -re ".* 906 12345678" { set x [expr $x+1]; exp_continue; }
2746 -re ".* 906 48309ABC" { set x [expr $x+1]; exp_continue; }
2747 -re ".* 906 DEF0" { set x [expr $x+1]; exp_continue; }
2748 -re ".* 907 " {
2749 if [expr $x == 53] then {
2750 pass "$testname: sub.l @(0x12345678:32,r3l.b), ..."
2751 } else {
2752 fail "$testname: sub.l @(0x12345678:32,r3l.b), ... ($x)"
2753 }
2754 }
2755 default { fail "$testname: sub.l @(0x12345678:32,r3l.b), ... ($x)" }
2756 }
2757
2758 set x 0
2759 expect {
2760 -re ".* 908 1d28 78B66B2C" { set x [expr $x+1]; exp_continue; }
2761 -re ".* 908 12345678" { set x [expr $x+1]; exp_continue; }
2762 -re ".* 908 0130" { set x [expr $x+1]; exp_continue; }
2763 -re ".* 909 1d32 78B66B2C" { set x [expr $x+1]; exp_continue; }
2764 -re ".* 909 12345678" { set x [expr $x+1]; exp_continue; }
2765 -re ".* 909 3130" { set x [expr $x+1]; exp_continue; }
2766 -re ".* 910 1d3c 78B66B2C" { set x [expr $x+1]; exp_continue; }
2767 -re ".* 910 12345678" { set x [expr $x+1]; exp_continue; }
2768 -re ".* 910 B130" { set x [expr $x+1]; exp_continue; }
2769 -re ".* 911 1d46 78B66B2C" { set x [expr $x+1]; exp_continue; }
2770 -re ".* 911 12345678" { set x [expr $x+1]; exp_continue; }
2771 -re ".* 911 8130" { set x [expr $x+1]; exp_continue; }
2772 -re ".* 912 1d50 78B66B2C" { set x [expr $x+1]; exp_continue; }
2773 -re ".* 912 12345678" { set x [expr $x+1]; exp_continue; }
2774 -re ".* 912 A130" { set x [expr $x+1]; exp_continue; }
2775 -re ".* 913 1d5a 78B66B2C" { set x [expr $x+1]; exp_continue; }
2776 -re ".* 913 12345678" { set x [expr $x+1]; exp_continue; }
2777 -re ".* 913 9130" { set x [expr $x+1]; exp_continue; }
2778 -re ".* 914 1d64 78B66B2C" { set x [expr $x+1]; exp_continue; }
2779 -re ".* 914 12345678" { set x [expr $x+1]; exp_continue; }
2780 -re ".* 914 C1309ABC" { set x [expr $x+1]; exp_continue; }
2781 -re ".* 915 1d70 78B66B2C" { set x [expr $x+1]; exp_continue; }
2782 -re ".* 915 12345678" { set x [expr $x+1]; exp_continue; }
2783 -re ".* 915 C9309ABC" { set x [expr $x+1]; exp_continue; }
2784 -re ".* 915 DEF0" { set x [expr $x+1]; exp_continue; }
2785 -re ".* 916 1d7e 78B66B2C" { set x [expr $x+1]; exp_continue; }
2786 -re ".* 916 12345678" { set x [expr $x+1]; exp_continue; }
2787 -re ".* 916 D2309ABC" { set x [expr $x+1]; exp_continue; }
2788 -re ".* 917 1d8a 78B66B2C" { set x [expr $x+1]; exp_continue; }
2789 -re ".* 917 12345678" { set x [expr $x+1]; exp_continue; }
2790 -re ".* 917 E2309ABC" { set x [expr $x+1]; exp_continue; }
2791 -re ".* 918 1d96 78B66B2C" { set x [expr $x+1]; exp_continue; }
2792 -re ".* 918 12345678" { set x [expr $x+1]; exp_continue; }
2793 -re ".* 918 F2309ABC" { set x [expr $x+1]; exp_continue; }
2794 -re ".* 919 1da2 78B66B2C" { set x [expr $x+1]; exp_continue; }
2795 -re ".* 919 12345678" { set x [expr $x+1]; exp_continue; }
2796 -re ".* 919 DA309ABC" { set x [expr $x+1]; exp_continue; }
2797 -re ".* 919 DEF0" { set x [expr $x+1]; exp_continue; }
2798 -re ".* 920 1db0 78B66B2C" { set x [expr $x+1]; exp_continue; }
2799 -re ".* 920 12345678" { set x [expr $x+1]; exp_continue; }
2800 -re ".* 920 EA309ABC" { set x [expr $x+1]; exp_continue; }
2801 -re ".* 920 DEF0" { set x [expr $x+1]; exp_continue; }
2802 -re ".* 921 1dbe 78B66B2C" { set x [expr $x+1]; exp_continue; }
2803 -re ".* 921 12345678" { set x [expr $x+1]; exp_continue; }
2804 -re ".* 921 FA309ABC" { set x [expr $x+1]; exp_continue; }
2805 -re ".* 921 DEF0" { set x [expr $x+1]; exp_continue; }
2806 -re ".* 922 1dcc 78B66B2C" { set x [expr $x+1]; exp_continue; }
2807 -re ".* 922 12345678" { set x [expr $x+1]; exp_continue; }
2808 -re ".* 922 40309ABC" { set x [expr $x+1]; exp_continue; }
2809 -re ".* 923 1dd8 78B66B2C" { set x [expr $x+1]; exp_continue; }
2810 -re ".* 923 12345678" { set x [expr $x+1]; exp_continue; }
2811 -re ".* 923 48309ABC" { set x [expr $x+1]; exp_continue; }
2812 -re ".* 923 DEF0" { set x [expr $x+1]; exp_continue; }
2813 -re ".* 924 " {
2814 if [expr $x == 53] then {
2815 pass "$testname: sub.l @(0x12345678:32,r3.w), ..."
2816 } else {
2817 fail "$testname: sub.l @(0x12345678:32,r3.w), ... ($x)"
2818 }
2819 }
2820 default { fail "$testname: sub.l @(0x12345678:32,r3.w), ... ($x)" }
2821 }
2822
2823 set x 0
2824 expect {
2825 -re ".* 925 1de6 78B76B2C" { set x [expr $x+1]; exp_continue; }
2826 -re ".* 925 12345678" { set x [expr $x+1]; exp_continue; }
2827 -re ".* 925 0130" { set x [expr $x+1]; exp_continue; }
2828 -re ".* 926 1df0 78B76B2C" { set x [expr $x+1]; exp_continue; }
2829 -re ".* 926 12345678" { set x [expr $x+1]; exp_continue; }
2830 -re ".* 926 3130" { set x [expr $x+1]; exp_continue; }
2831 -re ".* 927 1dfa 78B76B2C" { set x [expr $x+1]; exp_continue; }
2832 -re ".* 927 12345678" { set x [expr $x+1]; exp_continue; }
2833 -re ".* 927 B130" { set x [expr $x+1]; exp_continue; }
2834 -re ".* 928 1e04 78B76B2C" { set x [expr $x+1]; exp_continue; }
2835 -re ".* 928 12345678" { set x [expr $x+1]; exp_continue; }
2836 -re ".* 928 8130" { set x [expr $x+1]; exp_continue; }
2837 -re ".* 929 1e0e 78B76B2C" { set x [expr $x+1]; exp_continue; }
2838 -re ".* 929 12345678" { set x [expr $x+1]; exp_continue; }
2839 -re ".* 929 A130" { set x [expr $x+1]; exp_continue; }
2840 -re ".* 930 1e18 78B76B2C" { set x [expr $x+1]; exp_continue; }
2841 -re ".* 930 12345678" { set x [expr $x+1]; exp_continue; }
2842 -re ".* 930 9130" { set x [expr $x+1]; exp_continue; }
2843 -re ".* 931 1e22 78B76B2C" { set x [expr $x+1]; exp_continue; }
2844 -re ".* 931 12345678" { set x [expr $x+1]; exp_continue; }
2845 -re ".* 931 C1309ABC" { set x [expr $x+1]; exp_continue; }
2846 -re ".* 932 1e2e 78B76B2C" { set x [expr $x+1]; exp_continue; }
2847 -re ".* 932 12345678" { set x [expr $x+1]; exp_continue; }
2848 -re ".* 932 C9309ABC" { set x [expr $x+1]; exp_continue; }
2849 -re ".* 932 DEF0" { set x [expr $x+1]; exp_continue; }
2850 -re ".* 933 1e3c 78B76B2C" { set x [expr $x+1]; exp_continue; }
2851 -re ".* 933 12345678" { set x [expr $x+1]; exp_continue; }
2852 -re ".* 933 D2309ABC" { set x [expr $x+1]; exp_continue; }
2853 -re ".* 934 1e48 78B76B2C" { set x [expr $x+1]; exp_continue; }
2854 -re ".* 934 12345678" { set x [expr $x+1]; exp_continue; }
2855 -re ".* 934 E2309ABC" { set x [expr $x+1]; exp_continue; }
2856 -re ".* 935 1e54 78B76B2C" { set x [expr $x+1]; exp_continue; }
2857 -re ".* 935 12345678" { set x [expr $x+1]; exp_continue; }
2858 -re ".* 935 F2309ABC" { set x [expr $x+1]; exp_continue; }
2859 -re ".* 936 1e60 78B76B2C" { set x [expr $x+1]; exp_continue; }
2860 -re ".* 936 12345678" { set x [expr $x+1]; exp_continue; }
2861 -re ".* 936 DA309ABC" { set x [expr $x+1]; exp_continue; }
2862 -re ".* 936 DEF0" { set x [expr $x+1]; exp_continue; }
2863 -re ".* 937 1e6e 78B76B2C" { set x [expr $x+1]; exp_continue; }
2864 -re ".* 937 12345678" { set x [expr $x+1]; exp_continue; }
2865 -re ".* 937 EA309ABC" { set x [expr $x+1]; exp_continue; }
2866 -re ".* 937 DEF0" { set x [expr $x+1]; exp_continue; }
2867 -re ".* 938 1e7c 78B76B2C" { set x [expr $x+1]; exp_continue; }
2868 -re ".* 938 12345678" { set x [expr $x+1]; exp_continue; }
2869 -re ".* 938 FA309ABC" { set x [expr $x+1]; exp_continue; }
2870 -re ".* 938 DEF0" { set x [expr $x+1]; exp_continue; }
2871 -re ".* 939 1e8a 78B76B2C" { set x [expr $x+1]; exp_continue; }
2872 -re ".* 939 12345678" { set x [expr $x+1]; exp_continue; }
2873 -re ".* 939 40309ABC" { set x [expr $x+1]; exp_continue; }
2874 -re ".* 940 1e96 78B76B2C" { set x [expr $x+1]; exp_continue; }
2875 -re ".* 940 12345678" { set x [expr $x+1]; exp_continue; }
2876 -re ".* 940 48309ABC" { set x [expr $x+1]; exp_continue; }
2877 -re ".* 940 DEF0" { set x [expr $x+1]; exp_continue; }
2878 -re ".* 941 " {
2879 if [expr $x == 53] then {
2880 pass "$testname: sub.l @(0x12345678:32,er3.l), ..."
2881 } else {
2882 fail "$testname: sub.l @(0x12345678:32,er3.l), ... ($x)"
2883 }
2884 }
2885 default { fail "$testname: sub.l @(0x12345678:32,er3.l), ... ($x)" }
2886 }
2887
2888 set x 0
2889 expect {
2890 -re ".* 942 1ea4 01046B0C" { set x [expr $x+1]; exp_continue; }
2891 -re ".* 942 12340130" { set x [expr $x+1]; exp_continue; }
2892 -re ".* 943 1eac 01046B0C" { set x [expr $x+1]; exp_continue; }
2893 -re ".* 943 12343130" { set x [expr $x+1]; exp_continue; }
2894 -re ".* 944 1eb4 01046B0C" { set x [expr $x+1]; exp_continue; }
2895 -re ".* 944 1234B130" { set x [expr $x+1]; exp_continue; }
2896 -re ".* 945 1ebc 01046B0C" { set x [expr $x+1]; exp_continue; }
2897 -re ".* 945 12348130" { set x [expr $x+1]; exp_continue; }
2898 -re ".* 946 1ec4 01046B0C" { set x [expr $x+1]; exp_continue; }
2899 -re ".* 946 1234A130" { set x [expr $x+1]; exp_continue; }
2900 -re ".* 947 1ecc 01046B0C" { set x [expr $x+1]; exp_continue; }
2901 -re ".* 947 12349130" { set x [expr $x+1]; exp_continue; }
2902 -re ".* 948 1ed4 01046B0C" { set x [expr $x+1]; exp_continue; }
2903 -re ".* 948 1234C130" { set x [expr $x+1]; exp_continue; }
2904 -re ".* 948 9ABC" { set x [expr $x+1]; exp_continue; }
2905 -re ".* 949 1ede 01046B0C" { set x [expr $x+1]; exp_continue; }
2906 -re ".* 949 1234C930" { set x [expr $x+1]; exp_continue; }
2907 -re ".* 949 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2908 -re ".* 950 1eea 01046B0C" { set x [expr $x+1]; exp_continue; }
2909 -re ".* 950 1234D230" { set x [expr $x+1]; exp_continue; }
2910 -re ".* 950 9ABC" { set x [expr $x+1]; exp_continue; }
2911 -re ".* 951 1ef4 01046B0C" { set x [expr $x+1]; exp_continue; }
2912 -re ".* 951 1234E230" { set x [expr $x+1]; exp_continue; }
2913 -re ".* 951 9ABC" { set x [expr $x+1]; exp_continue; }
2914 -re ".* 952 1efe 01046B0C" { set x [expr $x+1]; exp_continue; }
2915 -re ".* 952 1234F230" { set x [expr $x+1]; exp_continue; }
2916 -re ".* 952 9ABC" { set x [expr $x+1]; exp_continue; }
2917 -re ".* 953 1f08 01046B0C" { set x [expr $x+1]; exp_continue; }
2918 -re ".* 953 1234DA30" { set x [expr $x+1]; exp_continue; }
2919 -re ".* 953 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2920 -re ".* 954 1f14 01046B0C" { set x [expr $x+1]; exp_continue; }
2921 -re ".* 954 1234EA30" { set x [expr $x+1]; exp_continue; }
2922 -re ".* 954 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2923 -re ".* 955 1f20 01046B0C" { set x [expr $x+1]; exp_continue; }
2924 -re ".* 955 1234FA30" { set x [expr $x+1]; exp_continue; }
2925 -re ".* 955 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2926 -re ".* 956 1f2c 01046B0C" { set x [expr $x+1]; exp_continue; }
2927 -re ".* 956 12344030" { set x [expr $x+1]; exp_continue; }
2928 -re ".* 956 9ABC" { set x [expr $x+1]; exp_continue; }
2929 -re ".* 957 1f36 01046B0C" { set x [expr $x+1]; exp_continue; }
2930 -re ".* 957 12344830" { set x [expr $x+1]; exp_continue; }
2931 -re ".* 957 9ABCDEF0" { set x [expr $x+1]; exp_continue; }
2932 -re ".* 958 " {
2933 if [expr $x == 42] then {
2934 pass "$testname: sub.l @0x1234:16, ..."
2935 } else {
2936 fail "$testname: sub.l @0x1234:16, ... ($x)"
2937 }
2938 }
2939 default { fail "$testname: sub.l @0x1234:16, ... ($x)" }
2940 }
2941 # FIXME return early, expect bombs out on the next group.
2942 return;
2943 set x 0
2944 expect {
2945 -re ".* 959 1f42 01046B2C" { set x [expr $x+1]; exp_continue; }
2946 -re ".* 959 12345678" { set x [expr $x+1]; exp_continue; }
2947 -re ".* 959 0130" { set x [expr $x+1]; exp_continue; }
2948 -re ".* 960 1f4c 01046B2C" { set x [expr $x+1]; exp_continue; }
2949 -re ".* 960 12345678" { set x [expr $x+1]; exp_continue; }
2950 -re ".* 960 3130" { set x [expr $x+1]; exp_continue; }
2951 -re ".* 961 1f56 01046B2C" { set x [expr $x+1]; exp_continue; }
2952 -re ".* 961 12345678" { set x [expr $x+1]; exp_continue; }
2953 -re ".* 961 B130" { set x [expr $x+1]; exp_continue; }
2954 -re ".* 962 1f60 01046B2C" { set x [expr $x+1]; exp_continue; }
2955 -re ".* 962 12345678" { set x [expr $x+1]; exp_continue; }
2956 -re ".* 962 8130" { set x [expr $x+1]; exp_continue; }
2957 -re ".* 963 1f6a 01046B2C" { set x [expr $x+1]; exp_continue; }
2958 -re ".* 963 12345678" { set x [expr $x+1]; exp_continue; }
2959 -re ".* 963 A130" { set x [expr $x+1]; exp_continue; }
2960 -re ".* 964 1f74 01046B2C" { set x [expr $x+1]; exp_continue; }
2961 -re ".* 964 12345678" { set x [expr $x+1]; exp_continue; }
2962 -re ".* 964 9130" { set x [expr $x+1]; exp_continue; }
2963 -re ".* 965 1f7e 01046B2C" { set x [expr $x+1]; exp_continue; }
2964 -re ".* 965 12345678" { set x [expr $x+1]; exp_continue; }
2965 -re ".* 965 C1309ABC" { set x [expr $x+1]; exp_continue; }
2966 -re ".* 966 1f8a 01046B2C" { set x [expr $x+1]; exp_continue; }
2967 -re ".* 966 12345678" { set x [expr $x+1]; exp_continue; }
2968 -re ".* 966 C9309ABC" { set x [expr $x+1]; exp_continue; }
2969 -re ".* 966 DEF0" { set x [expr $x+1]; exp_continue; }
2970 -re ".* 967 1f98 01046B2C" { set x [expr $x+1]; exp_continue; }
2971 -re ".* 967 12345678" { set x [expr $x+1]; exp_continue; }
2972 -re ".* 967 D2309ABC" { set x [expr $x+1]; exp_continue; }
2973 -re ".* 968 1fa4 01046B2C" { set x [expr $x+1]; exp_continue; }
2974 -re ".* 968 12345678" { set x [expr $x+1]; exp_continue; }
2975 -re ".* 968 E2309ABC" { set x [expr $x+1]; exp_continue; }
2976 -re ".* 969 1fb0 01046B2C" { set x [expr $x+1]; exp_continue; }
2977 -re ".* 969 12345678" { set x [expr $x+1]; exp_continue; }
2978 -re ".* 969 F2309ABC" { set x [expr $x+1]; exp_continue; }
2979 -re ".* 970 1fbc 01046B2C" { set x [expr $x+1]; exp_continue; }
2980 -re ".* 970 12345678" { set x [expr $x+1]; exp_continue; }
2981 -re ".* 970 DA309ABC" { set x [expr $x+1]; exp_continue; }
2982 -re ".* 970 DEF0" { set x [expr $x+1]; exp_continue; }
2983 -re ".* 971 1fca 01046B2C" { set x [expr $x+1]; exp_continue; }
2984 -re ".* 971 12345678" { set x [expr $x+1]; exp_continue; }
2985 -re ".* 971 EA309ABC" { set x [expr $x+1]; exp_continue; }
2986 -re ".* 971 DEF0" { set x [expr $x+1]; exp_continue; }
2987 -re ".* 972 1fd8 01046B2C" { set x [expr $x+1]; exp_continue; }
2988 -re ".* 972 12345678" { set x [expr $x+1]; exp_continue; }
2989 -re ".* 972 FA309ABC" { set x [expr $x+1]; exp_continue; }
2990 -re ".* 972 DEF0" { set x [expr $x+1]; exp_continue; }
2991 -re ".* 973 1fe6 01046B2C" { set x [expr $x+1]; exp_continue; }
2992 -re ".* 973 12345678" { set x [expr $x+1]; exp_continue; }
2993 -re ".* 973 40309ABC" { set x [expr $x+1]; exp_continue; }
2994 -re ".* 974 1ff2 01046B2C" { set x [expr $x+1]; exp_continue; }
2995 -re ".* 974 12345678" { set x [expr $x+1]; exp_continue; }
2996 -re ".* 974 48309ABC" { set x [expr $x+1]; exp_continue; }
2997 -re ".* 974 DEF0" { set x [expr $x+1]; exp_continue; }
2998 -re ".* 975 " {
2999 if [expr $x == 53] then {
3000 pass "$testname: sub.l @0x12345678:32, ..."
3001 } else {
3002 fail "$testname: sub.l @0x12345678:32, ... ($x)"
3003 }
3004 }
3005 default { fail "$testname: sub.l @0x12345678:32, ... ($x)" }
3006 }
3007
3008 # This was intended to do any cleanup necessary.
3009 # It kinda looks like it isn't needed, but just
3010 # in case, please keep it in for now.
3011
3012 gas_finish
3013
3014}
3015
3016if [istarget h8300*-*-elf] then {
3017 # Test advanced h8300sx instructions.
3018 do_t04_sub_test
3019}
3020
GDB Binutils - Deliverables
This page took 0.188908 seconds and 4 git commands to generate.