t10_and.exp

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

#
# Some h8300sx tests -- t10_and
#

proc do_t10_and_test {} {
    set testname "t10_and.s -- h8sx tests"

    gas_start "t10_and.s" "-al"

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

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

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

    set x 0
    expect {
	-re ".*  28 0080 7D101630" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 0084 01793163" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0088 01798163" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 008c 0179B163" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 0090 01799163" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 0094 0179A163" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 0098 0179C163" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 009e 0179C963" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00a6 0179D263" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00ac 0179E263" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00b2 0179F263" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00b8 0179DA63" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 00c0 0179EA63" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 00c8 0179FA63" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00d0 7F121630" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00d4 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      1630" { set x [expr $x+1]; exp_continue; }
	-re ".*  44 00da 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  44      56781630" { set x [expr $x+1]; exp_continue; }
	-re ".*  45              " {
	    if [expr $x == 27] then {
		pass "$testname: and.b r3h, ..."
	    } else {
		fail "$testname: and.b r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: and.b r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  46 00e2 7C301601" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 00e6 017A3361" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 00ea 017A8361" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 00ee 017AB361" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 00f2 017A9361" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 00f6 017AA361" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 00fa 017AC161" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0100 017AC961" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 0108 017AD261" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 010e 017AE261" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 0114 017AF261" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 011a 017ADA61" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 0122 017AEA61" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 012a 017AFA61" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 0132 7E121601" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 0136 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      1601" { set x [expr $x+1]; exp_continue; }
	-re ".*  62 013c 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  62      56781601" { set x [expr $x+1]; exp_continue; }
	-re ".*  63              " {
	    if [expr $x == 27] then {
		pass "$testname: and.b ..., r1h"
	    } else {
		fail "$testname: and.b ..., r1h ($x)"
	    }
	}
        default	{ fail "$testname: and.b ..., r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  64 0144 7C350160" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 0148 7C353160" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 014c 7C35B160" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 0150 7C358160" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 0154 7C35A160" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 0158 7C359160" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 015c 7C35C160" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 0162 7C35C960" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 016a 7C35D260" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 0170 7C35E260" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 0176 7C35F260" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 017c 7C35DA60" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 0184 7C35EA60" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 018c 7C35FA60" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 0194 7C354060" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 019a 7C354860" { 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: and.b @er3, ..."
	    } else {
		fail "$testname: and.b @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: and.b @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  81 01a2 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      0160" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 01a8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      3160" { set x [expr $x+1]; exp_continue; }
	-re ".*  83 01ae 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  83      B160" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 01b4 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      8160" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 01ba 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      A160" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 01c0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      9160" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 01c6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      C1609ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 01ce 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      C9609ABC" { 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      D2609ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 01e0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      E2609ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  91 01e8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      F2609ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 01f0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      DA609ABC" { 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      EA609ABC" { 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      FA609ABC" { 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      40609ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 0216 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      48609ABC" { 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: and.b @-er3, ..."
	    } else {
		fail "$testname: and.b @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: and.b @-er3, ... ($x)" }
    }

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