gas/testsuite/gas/h8300/t02_mova.exp

   1 # Copyright (C) 2012-2014 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