t08_or.exp

GNU binutils是GNU交叉工具链中的一个源码包

#
# Some h8300sx tests -- t08_or
#

proc do_t08_or_test {} {
    set testname "t08_or.s -- h8sx tests"

    gas_start "t08_or.s" "-al"

    # Check each instruction bit pattern to verify it got assembled correctly.

    set x 0
    expect {
	-re ".*   7 0000 C112" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0002 7D10C012" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 0006 01776818" { set x [expr $x+1]; exp_continue; }
	-re ".*   9      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 000c 01746C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  10      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0012 01776C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  11      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  12 0018 01756C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  12      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  13 001e 01766C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  13      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 0024 01746E18" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      1234C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 002c 78146A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 0036 01756E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      1234C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 003e 01766E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      1234C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 0046 01776E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      1234C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  19 004e 78256A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  20 0058 78266A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  21 0062 78276A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 006c 7F12C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  23 0070 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  23      C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  24 0076 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  24      5678C012" { set x [expr $x+1]; exp_continue; }
	-re ".*  25              " {
	    if [expr $x == 37] then {
		pass "$testname: or.b #0x12:8, ..."
	    } else {
		fail "$testname: or.b #0x12:8, ... ($x)"
	    }
	}
        default	{ fail "$testname: or.b #0x12:8, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  26 007e 1431" { set x [expr $x+1]; exp_continue; }
	-re ".*  27              " {
	    if [expr $x == 1] then {
		pass "$testname: or.b r3h, r1h"
	    } else {
		fail "$testname: or.b r3h, r1h ($x)"
	    }
	}
        default	{ fail "$testname: or.b r3h, r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  28 0080 7D101430" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 0084 01793143" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0088 01798143" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 008c 0179B143" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 0090 01799143" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 0094 0179A143" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 0098 0179C143" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 009e 0179C943" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00a6 0179D243" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00ac 0179E243" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00b2 0179F243" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00b8 0179DA43" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 00c0 0179EA43" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 00c8 0179FA43" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00d0 7F121430" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00d4 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      1430" { set x [expr $x+1]; exp_continue; }
	-re ".*  44 00da 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  44      56781430" { set x [expr $x+1]; exp_continue; }
	-re ".*  45              " {
	    if [expr $x == 27] then {
		pass "$testname: or.b r3h, ..."
	    } else {
		fail "$testname: or.b r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: or.b r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  46 00e2 7C301401" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 00e6 017A3341" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 00ea 017A8341" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 00ee 017AB341" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 00f2 017A9341" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 00f6 017AA341" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 00fa 017AC141" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0100 017AC941" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 0108 017AD241" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 010e 017AE241" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 0114 017AF241" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 011a 017ADA41" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 0122 017AEA41" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 012a 017AFA41" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 0132 7E121401" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 0136 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      1401" { set x [expr $x+1]; exp_continue; }
	-re ".*  62 013c 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  62      56781401" { set x [expr $x+1]; exp_continue; }
	-re ".*  63              " {
	    if [expr $x == 27] then {
		pass "$testname: or.b ..., r1h"
	    } else {
		fail "$testname: or.b ..., r1h ($x)"
	    }
	}
        default	{ fail "$testname: or.b ..., r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  64 0144 7C350140" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 0148 7C353140" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 014c 7C35B140" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 0150 7C358140" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 0154 7C35A140" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 0158 7C359140" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 015c 7C35C140" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 0162 7C35C940" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 016a 7C35D240" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 0170 7C35E240" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 0176 7C35F240" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 017c 7C35DA40" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 0184 7C35EA40" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 018c 7C35FA40" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 0194 7C354040" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 019a 7C354840" { set x [expr $x+1]; exp_continue; }
	-re ".*  79      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  80              " {
	    if [expr $x == 26] then {
		pass "$testname: or.b @er3, ..."
	    } else {
		fail "$testname: or.b @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: or.b @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  81 01a2 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      0140" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 01a8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      3140" { set x [expr $x+1]; exp_continue; }
	-re ".*  83 01ae 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  83      B140" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 01b4 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      8140" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 01ba 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      A140" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 01c0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      9140" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 01c6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      C1409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 01ce 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      C9409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  89 01d8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  89      D2409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 01e0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      E2409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  91 01e8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      F2409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 01f0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      DA409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  93 01fa 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      EA409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  94 0204 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      FA409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  95 020e 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      40409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 0216 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      48409ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  97              " {
	    if [expr $x == 37] then {
		pass "$testname: or.b @-er3, ..."
	    } else {
		fail "$testname: or.b @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: or.b @-er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  98 0220 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  98      0140" { set x [expr $x+1]; exp_continue; }
	-re ".*  99 0226 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  99      3140" { set x [expr $x+1]; exp_continue; }
	-re ".* 100 022c 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 100      B140" { set x [expr $x+1]; exp_continue; }