gas/testsuite/gas/h8300/t02_mova.exp

   1 #
   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