gas/testsuite/gas/h8300/t04_sub.exp

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