t02_mova.exp

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

#
# Some h8300sx tests -- t02_mova
#

proc do_t02_mova_test {} {
    set testname "t02_mova.s -- h8sx mova tests"

    gas_start "t02_mova.s" "-al"

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

    set x 0
    expect {
	-re ".*   7 0000 78B87A89" { set x [expr $x+1]; exp_continue; }
	-re ".*   7      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0006 78397A99" { set x [expr $x+1]; exp_continue; }
	-re ".*   8      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*   9 000c 78B87AA9" { set x [expr $x+1]; exp_continue; }
	-re ".*   9      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  10 0012 78397AB9" { set x [expr $x+1]; exp_continue; }
	-re ".*  10      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0018 78B87AC9" { set x [expr $x+1]; exp_continue; }
	-re ".*  11      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  12 001e 78397AD9" { set x [expr $x+1]; exp_continue; }
	-re ".*  12      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  13 0024 78B87A81" { set x [expr $x+1]; exp_continue; }
	-re ".*  13      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 002c 78397A91" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 0034 78B87AA1" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 003c 78397AB1" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 0044 78B87AC1" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 004c 78397AD1" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  19              " {
	    if [expr $x == 24] then {
		pass "$testname: a"
	    } else {
		fail "$testname: a ($x)"
	    }
	}
        default	{ fail "$testname: a ($x)" }
    }

    set x 0
    expect {
	-re ".*  20 0054 78B87A89" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  21 005a 78397A99" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  22 0060 78B87AA9" { set x [expr $x+1]; exp_continue; }
	-re ".*  22      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  23 0066 78397AB9" { set x [expr $x+1]; exp_continue; }
	-re ".*  23      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  24 006c 78B87AC9" { set x [expr $x+1]; exp_continue; }
	-re ".*  24      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  25 0072 78397AD9" { set x [expr $x+1]; exp_continue; }
	-re ".*  25      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  26 0078 78B87A81" { set x [expr $x+1]; exp_continue; }
	-re ".*  26      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  27 0080 78397A91" { set x [expr $x+1]; exp_continue; }
	-re ".*  27      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  28 0088 78B87AA1" { set x [expr $x+1]; exp_continue; }
	-re ".*  28      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 0090 78397AB1" { set x [expr $x+1]; exp_continue; }
	-re ".*  29      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0098 78B87AC1" { set x [expr $x+1]; exp_continue; }
	-re ".*  30      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 00a0 78397AD1" { set x [expr $x+1]; exp_continue; }
	-re ".*  31      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  32              " {
	    if [expr $x == 24] then {
		pass "$testname: b"
	    } else {
		fail "$testname: b ($x)"
	    }
	}
        default	{ fail "$testname: b ($x)" }
    }

    set x 0
    expect {
	-re ".*  33 00a8 017F0281" { set x [expr $x+1]; exp_continue; }
	-re ".*  33      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  34 00ae 017F1281" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  35 00b4 017F8281" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00ba 017FB281" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00c0 017F9281" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00c6 017FA281" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00cc 017FC281" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 00d4 017FCA81" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  41 00de 017FD281" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00e6 017FE281" { set x [expr $x+1]; exp_continue; }
	-re ".*  42      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00ee 017FF281" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  44 00f6 017FDA81" { set x [expr $x+1]; exp_continue; }
	-re ".*  44      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  44      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  45 0100 017FEA81" { set x [expr $x+1]; exp_continue; }
	-re ".*  45      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  45      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  46 010a 017FFA81" { set x [expr $x+1]; exp_continue; }
	-re ".*  46      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  46      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  47 0114 017F4081" { set x [expr $x+1]; exp_continue; }
	-re ".*  47      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 011c 017F4881" { set x [expr $x+1]; exp_continue; }
	-re ".*  48      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  48      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  49              " {
	    if [expr $x == 37] then {
		pass "$testname: c"
	    } else {
		fail "$testname: c ($x)"
	    }
	}
        default	{ fail "$testname: c ($x)" }
    }

    set x 0
    expect {
	-re ".*  50 0126 015F0291" { set x [expr $x+1]; exp_continue; }
	-re ".*  50      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  51 012c 015F1291" { set x [expr $x+1]; exp_continue; }
	-re ".*  51      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  52 0132 015F8291" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0138 015FB291" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  54 013e 015F9291" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  55 0144 015FA291" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  56 014a 015FC291" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 0152 015FCA91" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  58 015c 015FD291" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 0164 015FE291" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 016c 015FF291" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 0174 015FDA91" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  62 017e 015FEA91" { set x [expr $x+1]; exp_continue; }
	-re ".*  62      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  62      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  63 0188 015FFA91" { set x [expr $x+1]; exp_continue; }
	-re ".*  63      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  63      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  64 0192 015F4091" { set x [expr $x+1]; exp_continue; }
	-re ".*  64      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 019a 015F4891" { set x [expr $x+1]; exp_continue; }
	-re ".*  65      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  65      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  66              " {
	    if [expr $x == 37] then {
		pass "$testname: d"
	    } else {
		fail "$testname: d ($x)"
	    }
	}
        default	{ fail "$testname: d ($x)" }
    }

    set x 0
    expect {
	-re ".*  67 01a4 017F02A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  67      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  68 01aa 017F12A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  68      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  69 01b0 017F82A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  69      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  70 01b6 017FB2A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  71 01bc 017F92A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  72 01c2 017FA2A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  73 01c8 017FC2A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 01d0 017FCAA1" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  75 01da 017FD2A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 01e2 017FE2A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 01ea 017FF2A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 01f2 017FDAA1" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  79 01fc 017FEAA1" { set x [expr $x+1]; exp_continue; }
	-re ".*  79      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  79      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  80 0206 017FFAA1" { set x [expr $x+1]; exp_continue; }
	-re ".*  80      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  80      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  81 0210 017F40A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      9ABC1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 0218 017F48A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  83              " {
	    if [expr $x == 37] then {
		pass "$testname: e"
	    } else {
		fail "$testname: e ($x)"
	    }
	}
        default	{ fail "$testname: e ($x)" }
    }

    set x 0
    expect {
	-re ".*  84 0222 015F02B1" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  85 0228 015F12B1" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  86 022e 015F82B1" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      1234"     { set x [expr $x+1]; exp_continue; }
	-re ".*  87 0234 015FB2B1" { set x [expr $x+1]; exp_continue; }