t12_bit.exp

工具链BINUTIS-2.16的源代码

#
# Some h8300sx tests -- t12_bit
#

proc do_t12_bit_test {} {
    set testname "t12_bit.s -- h8sx bit tests"

    gas_start "t12_bit.s" "-al"

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

    set x 0
    expect {
	-re ".*   7 0000 7071" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0002 7D107070" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 0006 7F127070" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 000a 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  10      7070" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0010 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  11      56787070" { set x [expr $x+1]; exp_continue; }
	-re ".*  12              " {
	    if [expr $x == 7] then {
		pass "$testname: bset #0x7, ..."
	    } else {
		fail "$testname: bset #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bset #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  13 0018 6031" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 001a 7D106030" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 001e 7F126030" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 0022 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      6030" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 0028 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      56786030" { set x [expr $x+1]; exp_continue; }
	-re ".*  18              " {
	    if [expr $x == 7] then {
		pass "$testname: bset r3h, ..."
	    } else {
		fail "$testname: bset r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bset r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  19 0030 7D107077" { set x [expr $x+1]; exp_continue; }
	-re ".*  20 0034 7F127077" { set x [expr $x+1]; exp_continue; }
	-re ".*  21 0038 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      7077" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 003e 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  22      56787077" { set x [expr $x+1]; exp_continue; }
	-re ".*  23              " {
	    if [expr $x == 6] then {
		pass "$testname: bset/eq #0x7, ..."
	    } else {
		fail "$testname: bset/eq #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bset/eq #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  24 0046 7D106037" { set x [expr $x+1]; exp_continue; }
	-re ".*  25 004a 7F126037" { set x [expr $x+1]; exp_continue; }
	-re ".*  26 004e 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  26      6037" { set x [expr $x+1]; exp_continue; }
	-re ".*  27 0054 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  27      56786037" { set x [expr $x+1]; exp_continue; }
	-re ".*  28              " {
	    if [expr $x == 6] then {
		pass "$testname: bset/eq r3h, ..."
	    } else {
		fail "$testname: bset/eq r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bset/eq r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  29 005c 7D107076" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0060 7F127076" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 0064 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  31      7076" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 006a 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  32      56787076" { set x [expr $x+1]; exp_continue; }
	-re ".*  33              " {
	    if [expr $x == 6] then {
		pass "$testname: bset/ne #0x7, ..."
	    } else {
		fail "$testname: bset/ne #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bset/ne #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  34 0072 7D106036" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 0076 7F126036" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 007a 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      6036" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 0080 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      56786036" { set x [expr $x+1]; exp_continue; }
	-re ".*  38              " {
	    if [expr $x == 6] then {
		pass "$testname: bset/ne r3h, ..."
	    } else {
		fail "$testname: bset/ne r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bset/ne r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  39 0088 7171" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 008a 7D107170" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 008e 7F127170" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 0092 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  42      7170" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 0098 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      56787170" { set x [expr $x+1]; exp_continue; }
	-re ".*  44              " {
	    if [expr $x == 7] then {
		pass "$testname: bnot #0x7, ..."
	    } else {
		fail "$testname: bnot #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bnot #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  45 00a0 6131" { set x [expr $x+1]; exp_continue; }
	-re ".*  46 00a2 7D106130" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 00a6 7F126130" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 00aa 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  48      6130" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 00b0 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  49      56786130" { set x [expr $x+1]; exp_continue; }
	-re ".*  50              " {
	    if [expr $x == 7] then {
		pass "$testname: bnot r3h, ..."
	    } else {
		fail "$testname: bnot r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bnot r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  51 00b8 7271" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 00ba 7D107270" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 00be 7F127270" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 00c2 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      7270" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 00c8 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      56787270" { set x [expr $x+1]; exp_continue; }
	-re ".*  56              " {
	    if [expr $x == 7] then {
		pass "$testname: bclr #0x7, ..."
	    } else {
		fail "$testname: bclr #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bclr #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  57 00d0 6231" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 00d2 7D106230" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 00d6 7F126230" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 00da 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      6230" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 00e0 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      56786230" { set x [expr $x+1]; exp_continue; }
	-re ".*  62              " {
	    if [expr $x == 7] then {
		pass "$testname: bclr r3h, ..."
	    } else {
		fail "$testname: bclr r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bclr r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  63 00e8 7D107277" { set x [expr $x+1]; exp_continue; }
	-re ".*  64 00ec 7F127277" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 00f0 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  65      7277" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 00f6 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  66      56787277" { set x [expr $x+1]; exp_continue; }
	-re ".*  67              " {
	    if [expr $x == 6] then {
		pass "$testname: bclr/eq #0x7, ..."
	    } else {
		fail "$testname: bclr/eq #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bclr/eq #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  68 00fe 7D106237" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 0102 7F126237" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 0106 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      6237" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 010c 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      56786237" { set x [expr $x+1]; exp_continue; }
	-re ".*  72              " {
	    if [expr $x == 6] then {
		pass "$testname: bclr/eq r3h, ..."
	    } else {
		fail "$testname: bclr/eq r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bclr/eq r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  73 0114 7D107276" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 0118 7F127276" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 011c 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      7276" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 0122 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      56787276" { set x [expr $x+1]; exp_continue; }
	-re ".*  77              " {
	    if [expr $x == 6] then {
		pass "$testname: bclr/ne #0x7, ..."
	    } else {
		fail "$testname: bclr/ne #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: bclr/ne #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  78 012a 7D106236" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 012e 7F126236" { set x [expr $x+1]; exp_continue; }
	-re ".*  80 0132 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  80      6236" { set x [expr $x+1]; exp_continue; }
	-re ".*  81 0138 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      56786236" { set x [expr $x+1]; exp_continue; }
	-re ".*  82              " {
	    if [expr $x == 6] then {
		pass "$testname: bclr/ne r3h, ..."
	    } else {
		fail "$testname: bclr/ne r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: bclr/ne r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  83 0140 7371" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 0142 7C107370" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 0146 7E127370" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 014a 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      7370" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 0150 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      56787370" { set x [expr $x+1]; exp_continue; }
	-re ".*  88              " {
	    if [expr $x == 7] then {
		pass "$testname: btst #0x7, ..."
	    } else {
		fail "$testname: btst #0x7, ... ($x)"
	    }
	}
        default	{ fail "$testname: btst #0x7, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  89 0158 6331" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 015a 7C106330" { set x [expr $x+1]; exp_continue; }