t09_xor.exp

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

#
# Some h8300sx tests -- t09_xor
#

proc do_t09_xor_test {} {
    set testname "t09_xor.s -- h8sx tests"

    gas_start "t09_xor.s" "-al"

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

    set x 0
    expect {
	-re ".*   7 0000 D112" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0002 7D10D012" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 0006 01776818" { set x [expr $x+1]; exp_continue; }
	-re ".*   9      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 000c 01746C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  10      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0012 01776C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  11      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  12 0018 01756C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  12      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  13 001e 01766C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  13      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 0024 01746E18" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      1234D012" { 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      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 0036 01756E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      1234D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 003e 01766E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      1234D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 0046 01776E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      1234D012" { 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      D012" { 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      D012" { 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      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 006c 7F12D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  23 0070 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  23      D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  24 0076 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  24      5678D012" { set x [expr $x+1]; exp_continue; }
	-re ".*  25              " {
	    if [expr $x == 37] then {
		pass "$testname: xor.b #0x12:8, ..."
	    } else {
		fail "$testname: xor.b #0x12:8, ... ($x)"
	    }
	}
        default	{ fail "$testname: xor.b #0x12:8, ... ($x)" }
    }

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

    set x 0
    expect {
	-re ".*  28 0080 7D101530" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 0084 01793153" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0088 01798153" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 008c 0179B153" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 0090 01799153" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 0094 0179A153" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 0098 0179C153" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 009e 0179C953" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00a6 0179D253" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00ac 0179E253" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00b2 0179F253" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00b8 0179DA53" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 00c0 0179EA53" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 00c8 0179FA53" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00d0 7F121530" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00d4 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      1530" { set x [expr $x+1]; exp_continue; }
	-re ".*  44 00da 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  44      56781530" { set x [expr $x+1]; exp_continue; }
	-re ".*  45              " {
	    if [expr $x == 27] then {
		pass "$testname: xor.b r3h, ..."
	    } else {
		fail "$testname: xor.b r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: xor.b r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  46 00e2 7C301501" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 00e6 017A3351" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 00ea 017A8351" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 00ee 017AB351" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 00f2 017A9351" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 00f6 017AA351" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 00fa 017AC151" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0100 017AC951" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 0108 017AD251" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 010e 017AE251" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 0114 017AF251" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 011a 017ADA51" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 0122 017AEA51" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 012a 017AFA51" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 0132 7E121501" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 0136 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      1501" { set x [expr $x+1]; exp_continue; }
	-re ".*  62 013c 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  62      56781501" { set x [expr $x+1]; exp_continue; }
	-re ".*  63              " {
	    if [expr $x == 27] then {
		pass "$testname: xor.b ..., r1h"
	    } else {
		fail "$testname: xor.b ..., r1h ($x)"
	    }
	}
        default	{ fail "$testname: xor.b ..., r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  64 0144 7C350150" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 0148 7C353150" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 014c 7C35B150" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 0150 7C358150" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 0154 7C35A150" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 0158 7C359150" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 015c 7C35C150" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 0162 7C35C950" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 016a 7C35D250" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 0170 7C35E250" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 0176 7C35F250" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 017c 7C35DA50" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 0184 7C35EA50" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 018c 7C35FA50" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 0194 7C354050" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 019a 7C354850" { 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: xor.b @er3, ..."
	    } else {
		fail "$testname: xor.b @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: xor.b @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  81 01a2 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      0150" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 01a8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      3150" { set x [expr $x+1]; exp_continue; }
	-re ".*  83 01ae 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  83      B150" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 01b4 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      8150" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 01ba 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      A150" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 01c0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      9150" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 01c6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      C1509ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 01ce 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      C9509ABC" { 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      D2509ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 01e0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      E2509ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  91 01e8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      F2509ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 01f0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      DA509ABC" { 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      EA509ABC" { 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      FA509ABC" { 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      40509ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 0216 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      48509ABC" { 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: xor.b @-er3, ..."
	    } else {
		fail "$testname: xor.b @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: xor.b @-er3, ... ($x)" }
    }

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