OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [h8300/] [t02_mova.exp] - Blame information for rev 156

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.