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