t01_mov.exp

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

#
# Some h8300sx tests -- t01_mov
#

proc do_t01_mov_test {} {
    set testname "t01_mov.s -- h8sx tests"

    gas_start "t01_mov.s" "-al"

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

    set x 0
    expect {
	-re ".*   7 0000 F312" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0002 017D0312" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 0006 017D1312" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 000a 017DB312" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 000e 017D8312" { set x [expr $x+1]; exp_continue; }
	-re ".*  12 0012 017DA312" { set x [expr $x+1]; exp_continue; }
	-re ".*  13 0016 017D9312" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 001a 017DC312" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 0020 017DCB12" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 0028 017DD312" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 002e 017DE312" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 0034 017DF312" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  19 003a 017DDB12" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  20 0042 017DEB12" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  21 004a 017DFB12" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 0052 017D4012" { set x [expr $x+1]; exp_continue; }
	-re ".*  22      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  23 0058 017D4812" { set x [expr $x+1]; exp_continue; }
	-re ".*  23      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  24              " {
	    if [expr $x == 27] then {
		pass "$testname: mov.b #0x12:8, ..."
	    } else {
		fail "$testname: mov.b #0x12:8, ... ($x)"
	    }
	}
        default	{ fail "$testname: mov.b #0x12:8, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  25 0060 6AD11234" { set x [expr $x+1]; exp_continue; }
	-re ".*  26 0064 6AF11234" { set x [expr $x+1]; exp_continue; }
	-re ".*  26      5678" { set x [expr $x+1]; exp_continue; }
	-re ".*  27              " {
	    if [expr $x == 3] then {
		pass "$testname: mov.b #0x1:4, ..."
	    } else {
		fail "$testname: mov.b #0x1:4, ... ($x)"
	    }
	}
        default	{ fail "$testname: mov.b #0x1:4, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  28 006a 0C31" { set x [expr $x+1]; exp_continue; }
	-re ".*  29              " {
	    if [expr $x == 1] then {
		pass "$testname: mov.b r3h, r1h"
	    } else {
		fail "$testname: mov.b r3h, r1h ($x)"
	    }
	}
        default	{ fail "$testname: mov.b r3h, r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  30 006c 6893" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 006e 01716893" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 0072 6C93" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 0074 01736C93" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 0078 01716C93" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 007c 01726C93" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 0080 6E931234" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 0084 78106AA3" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 008c 01716E93" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 0092 01726E93" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 0098 01736E93" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 009e 78116AA3" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00a6 78126AA3" { set x [expr $x+1]; exp_continue; }
	-re ".*  42      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00ae 78136AA3" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  44 00b6 3312" { set x [expr $x+1]; exp_continue; }
	-re ".*  45 00b8 6A831234" { set x [expr $x+1]; exp_continue; }
	-re ".*  46 00bc 6AA31234" { set x [expr $x+1]; exp_continue; }
	-re ".*  46      5678" { set x [expr $x+1]; exp_continue; }
	-re ".*  47              " {
	    if [expr $x == 25] then {
		pass "$testname: mov.b r3h, ..."
	    } else {
		fail "$testname: mov.b r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: mov.b r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  48 00c2 6831" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 00c4 01716831" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 00c8 6C31" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 00ca 01736C31" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 00ce 01716C31" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 00d2 01726C31" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 00d6 6E311234" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 00da 78306A21" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 00e2 01716E31" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 00e8 01726E31" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 00ee 01736E31" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 00f4 78316A21" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 00fc 78326A21" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 0104 78336A21" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  62 010c 2312" { set x [expr $x+1]; exp_continue; }
	-re ".*  63 010e 6A031234" { set x [expr $x+1]; exp_continue; }
	-re ".*  64 0112 6A231234" { set x [expr $x+1]; exp_continue; }
	-re ".*  64      5678" { set x [expr $x+1]; exp_continue; }
	-re ".*  65              " {
	    if [expr $x == 25] then {
		pass "$testname: mov.b ..., r3h"
	    } else {
		fail "$testname: mov.b ..., r3h ($x)"
	    }
	}
        default	{ fail "$testname: mov.b ..., r3h ($x)" }
    }

    set x 0
    expect {
	-re ".*  66 0118 01780301" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 011c 01780311" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 0120 01780381" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 0124 017803B1" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 0128 01780391" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 012c 017803A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 0130 017803C1" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 0136 017803C9" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 013e 017803D1" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 0144 017803E1" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 014a 017803F1" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 0150 017803D9" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 0158 017803E9" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 0160 017803F9" { set x [expr $x+1]; exp_continue; }
	-re ".*  79      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  80 0168 01780340" { set x [expr $x+1]; exp_continue; }
	-re ".*  80      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  81 016e 01780348" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  82              " {
	    if [expr $x == 26] then {
		pass "$testname: mov.b @er3, ..."
	    } else {
		fail "$testname: mov.b @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: mov.b @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  83 0176 01781301" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 017a 01781311" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 017e 01781381" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 0182 017813B1" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 0186 01781391" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 018a 017813A1" { set x [expr $x+1]; exp_continue; }
	-re ".*  89 018e 017813C1" { set x [expr $x+1]; exp_continue; }
	-re ".*  89      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 0194 017813C9" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  91 019c 017813D1" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 01a2 017813E1" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  93 01a8 017813F1" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  94 01ae 017813D9" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  95 01b6 017813E9" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 01be 017813F9" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  97 01c6 01781340" { set x [expr $x+1]; exp_continue; }
	-re ".*  97      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  98 01cc 01781348" { set x [expr $x+1]; exp_continue; }
	-re ".*  98      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  99              " {
	    if [expr $x == 26] then {
		pass "$testname: mov.b @(0x1:2,er3), ..."
	    } else {
		fail "$testname: mov.b @(0x1:2,er3), ... ($x)"
	    }
	}
        default	{ fail "$testname: mov.b @(0x1:2,er3), ... ($x)" }
    }

    set x 0
    expect {
	-re ".* 100 01d4 0178B301" { set x [expr $x+1]; exp_continue; }
	-re ".* 101 01d8 0178B311" { set x [expr $x+1]; exp_continue; }
	-re ".* 102 01dc 0178B381" { set x [expr $x+1]; exp_continue; }
	-re ".* 103 01e0 0178B3B1" { set x [expr $x+1]; exp_continue; }
	-re ".* 104 01e4 0178B391" { set x [expr $x+1]; exp_continue; }
	-re ".* 105 01e8 0178B3A1" { set x [expr $x+1]; exp_continue; }
	-re ".* 106 01ec 0178B3C1" { set x [expr $x+1]; exp_continue; }
	-re ".* 106      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 107 01f2 0178B3C9" { set x [expr $x+1]; exp_continue; }
	-re ".* 107      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 108 01fa 0178B3D1" { set x [expr $x+1]; exp_continue; }
	-re ".* 108      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 109 0200 0178B3E1" { set x [expr $x+1]; exp_continue; }
	-re ".* 109      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 110 0206 0178B3F1" { set x [expr $x+1]; exp_continue; }
	-re ".* 110      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 111 020c 0178B3D9" { set x [expr $x+1]; exp_continue; }
	-re ".* 111      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 112 0214 0178B3E9" { set x [expr $x+1]; exp_continue; }
	-re ".* 112      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 113 021c 0178B3F9" { set x [expr $x+1]; exp_continue; }
	-re ".* 113      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 114 0224 0178B340" { set x [expr $x+1]; exp_continue; }
	-re ".* 114      1234" { set x [expr $x+1]; exp_continue; }
	-re ".* 115 022a 0178B348" { set x [expr $x+1]; exp_continue; }
	-re ".* 115      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".* 116              " {