mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
1368b914e9
Now that all port tests live under testsuite/sim/*/, and none live in testsuite/ directly, flatten the structure by moving all of the dirs under testsuite/sim/ to testsuite/ directly. We need to stop passing --tool to dejagnu so that it searches all dirs and not just ones that start with "sim". Since we have no other dirs in this tree, and no plans to add any, should be fine.
631 lines
15 KiB
ArmAsm
631 lines
15 KiB
ArmAsm
# MDMX .OB op tests.
|
|
# mach: mips64 sb1
|
|
# as: -mabi=eabi
|
|
# as(mips64): -mabi=eabi -mdmx
|
|
# ld: -N -Ttext=0x80010000
|
|
# output: *\\npass\\n
|
|
|
|
.include "testutils.inc"
|
|
.include "utils-mdmx.inc"
|
|
|
|
setup
|
|
|
|
.set noreorder
|
|
|
|
.ent DIAG
|
|
DIAG:
|
|
|
|
enable_mdmx
|
|
|
|
|
|
###
|
|
### Non-accumulator, non-CC-using .ob format ops.
|
|
###
|
|
### Key: v = vector
|
|
### ev = vector of single element
|
|
### cv = vector of constant.
|
|
###
|
|
|
|
|
|
writemsg "add.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
add.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x7799bbddffffffff
|
|
|
|
writemsg "add.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
add.ob $f10, $f8, $f9[6]
|
|
ck_ob $f10, 0x8899aabbccddeeff
|
|
|
|
writemsg "add.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
add.ob $f10, $f8, 0x10
|
|
ck_ob $f10, 0x2132435465768798
|
|
|
|
|
|
writemsg "alni.ob"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
alni.ob $f10, $f8, $f9, 3
|
|
ck_ob $f10, 0x4455667788667788
|
|
|
|
|
|
writemsg "alnv.ob"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
li $4, 5
|
|
alnv.ob $f10, $f8, $f9, $4
|
|
ck_ob $f10, 0x66778866778899aa
|
|
|
|
|
|
writemsg "and.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
and.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x0022000000224488
|
|
|
|
writemsg "and.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
and.ob $f10, $f8, $f9[4]
|
|
ck_ob $f10, 0x1100110011001188
|
|
|
|
writemsg "and.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
and.ob $f10, $f8, 0x1e
|
|
ck_ob $f10, 0x1002120414061608
|
|
|
|
|
|
writemsg "max.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
max.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x66778899aabbccdd
|
|
|
|
writemsg "max.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
max.ob $f10, $f8, $f9[7]
|
|
ck_ob $f10, 0x6666666666667788
|
|
|
|
writemsg "max.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
max.ob $f10, $f8, 0x15
|
|
ck_ob $f10, 0x1522334455667788
|
|
|
|
|
|
writemsg "min.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
min.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x1122334455667788
|
|
|
|
writemsg "min.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
min.ob $f10, $f8, $f9[7]
|
|
ck_ob $f10, 0x1122334455666666
|
|
|
|
writemsg "min.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
min.ob $f10, $f8, 0x15
|
|
ck_ob $f10, 0x1115151515151515
|
|
|
|
|
|
writemsg "mul.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
mul.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x002266ccffffffff
|
|
|
|
writemsg "mul.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
mul.ob $f10, $f8, $f9[4]
|
|
ck_ob $f10, 0x336699ccffffffff
|
|
|
|
writemsg "mul.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
mul.ob $f10, $f8, 2
|
|
ck_ob $f10, 0x22446688aacceeff
|
|
|
|
|
|
writemsg "nor.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
nor.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x8888442200000022
|
|
|
|
writemsg "nor.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
nor.ob $f10, $f8, $f9[6]
|
|
ck_ob $f10, 0x8888888888888800
|
|
|
|
writemsg "nor.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
nor.ob $f10, $f8, 0x08
|
|
ck_ob $f10, 0xe6d5c4b3a2918077
|
|
|
|
|
|
writemsg "or.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
or.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x7777bbddffffffdd
|
|
|
|
writemsg "or.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
or.ob $f10, $f8, $f9[6]
|
|
ck_ob $f10, 0x77777777777777ff
|
|
|
|
writemsg "or.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
or.ob $f10, $f8, 0x08
|
|
ck_ob $f10, 0x192a3b4c5d6e7f88
|
|
|
|
|
|
writemsg "shfl.mixh.ob"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
shfl.mixh.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x1166227733884499
|
|
|
|
|
|
writemsg "shfl.mixl.ob"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
shfl.mixl.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x55aa66bb77cc88dd
|
|
|
|
|
|
writemsg "shfl.pach.ob"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
shfl.pach.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x113355776688aacc
|
|
|
|
|
|
writemsg "shfl.upsl.ob"
|
|
ld_ob $f8, 0x1122334455667788
|
|
shfl.upsl.ob $f10, $f8, $f8
|
|
ck_ob $f10, 0x005500660077ff88
|
|
|
|
|
|
writemsg "sll.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
sll.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x1144cc2050c0c000
|
|
|
|
writemsg "sll.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
sll.ob $f10, $f8, $f9[3]
|
|
ck_ob $f10, 0x1020304050607080
|
|
|
|
writemsg "sll.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
sll.ob $f10, $f8, 1
|
|
ck_ob $f10, 0x22446688aaccee10
|
|
|
|
|
|
writemsg "srl.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
srl.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x11110c0805030101
|
|
|
|
writemsg "srl.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
srl.ob $f10, $f8, $f9[3]
|
|
ck_ob $f10, 0x0102030405060708
|
|
|
|
writemsg "srl.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
srl.ob $f10, $f8, 1
|
|
ck_ob $f10, 0x081119222a333b44
|
|
|
|
|
|
writemsg "sub.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x0001020304050607
|
|
sub.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x1121314151617181
|
|
|
|
writemsg "sub.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
sub.ob $f10, $f8, $f9[7]
|
|
ck_ob $f10, 0x0000000000001122
|
|
|
|
writemsg "sub.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
sub.ob $f10, $f8, 0x10
|
|
ck_ob $f10, 0x0112233445566778
|
|
|
|
|
|
writemsg "xor.ob (v)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
xor.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x7755bbddffddbb55
|
|
|
|
writemsg "xor.ob (ev)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
xor.ob $f10, $f8, $f9[6]
|
|
ck_ob $f10, 0x66554433221100ff
|
|
|
|
writemsg "xor.ob (cv)"
|
|
ld_ob $f8, 0x1122334455667788
|
|
xor.ob $f10, $f8, 0x08
|
|
ck_ob $f10, 0x192a3b4c5d6e7f80
|
|
|
|
|
|
###
|
|
### Accumulator .ob format ops (in order: rd/wr, math, scale/round)
|
|
###
|
|
### Key: v = vector
|
|
### ev = vector of single element
|
|
### cv = vector of constant.
|
|
###
|
|
|
|
|
|
writemsg "wacl.ob / rac[hml].ob"
|
|
ld_ob $f8, 0x8001028304850687
|
|
ld_ob $f9, 0x1011121314151617
|
|
wacl.ob $f8, $f9
|
|
ck_acc_ob 0xff0000ff00ff00ff, 0x8001028304850687, 0x1011121314151617
|
|
|
|
# Note: relies on data left in accumulator by previous test.
|
|
writemsg "wach.ob / rac[hml].ob"
|
|
ld_ob $f8, 0x2021222324252627
|
|
wach.ob $f8
|
|
ck_acc_ob 0x2021222324252627, 0x8001028304850687, 0x1011121314151617
|
|
|
|
|
|
writemsg "adda.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
adda.ob $f8, $f9
|
|
ck_acc_ob 0x0001020304050607, 0x0000000000010101, 0x7799bbddff214365
|
|
|
|
writemsg "adda.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
adda.ob $f8, $f9[2]
|
|
ck_acc_ob 0x0001020304050607, 0x0000000001010101, 0xccddeeff10213243
|
|
|
|
writemsg "adda.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
adda.ob $f8, 0x1f
|
|
ck_acc_ob 0x0001020304050607, 0x0000000000000000, 0x30415263748596a7
|
|
|
|
|
|
writemsg "addl.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
addl.ob $f8, $f9
|
|
ck_acc_ob 0x0000000000000000, 0x0000000000010101, 0x7799bbddff214365
|
|
|
|
writemsg "addl.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
addl.ob $f8, $f9[2]
|
|
ck_acc_ob 0x0000000000000000, 0x0000000001010101, 0xccddeeff10213243
|
|
|
|
writemsg "addl.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
addl.ob $f8, 0x1f
|
|
ck_acc_ob 0x0000000000000000, 0x0000000000000000, 0x30415263748596a7
|
|
|
|
|
|
writemsg "mula.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
mula.ob $f8, $f9
|
|
ck_acc_ob 0x0001020304050607, 0x060f1b28384a5e75, 0xc6ce18a47282d468
|
|
|
|
writemsg "mula.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
mula.ob $f8, $f9[2]
|
|
ck_acc_ob 0x0001020304050607, 0x0c1825313e4a5663, 0x6bd641ac1782ed58
|
|
|
|
writemsg "mula.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
mula.ob $f8, 0x1f
|
|
ck_acc_ob 0x0001020304050607, 0x020406080a0c0e10, 0x0f1e2d3c4b5a6978
|
|
|
|
|
|
writemsg "mull.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
mull.ob $f8, $f9
|
|
ck_acc_ob 0x0000000000000000, 0x060f1b28384a5e75, 0xc6ce18a47282d468
|
|
|
|
writemsg "mull.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
mull.ob $f8, $f9[2]
|
|
ck_acc_ob 0x0000000000000000, 0x0c1825313e4a5663, 0x6bd641ac1782ed58
|
|
|
|
writemsg "mull.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
mull.ob $f8, 0x1f
|
|
ck_acc_ob 0x0000000000000000, 0x020406080a0c0e10, 0x0f1e2d3c4b5a6978
|
|
|
|
|
|
writemsg "muls.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
muls.ob $f8, $f9
|
|
ck_acc_ob 0xff00010203040506, 0xf9f0e4d7c7b5a18a, 0x3a32e85c8e7e2c98
|
|
|
|
writemsg "muls.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
muls.ob $f8, $f9[2]
|
|
ck_acc_ob 0xff00010203040506, 0xf3e7dacec1b5a99c, 0x952abf54e97e13a8
|
|
|
|
writemsg "muls.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
muls.ob $f8, 0x1f
|
|
ck_acc_ob 0xff00010203040506, 0xfdfbf9f7f5f3f1ef, 0xf1e2d3c4b5a69788
|
|
|
|
|
|
writemsg "mulsl.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
mulsl.ob $f8, $f9
|
|
ck_acc_ob 0xffffffffffffffff, 0xf9f0e4d7c7b5a18a, 0x3a32e85c8e7e2c98
|
|
|
|
writemsg "mulsl.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
mulsl.ob $f8, $f9[2]
|
|
ck_acc_ob 0xffffffffffffffff, 0xf3e7dacec1b5a99c, 0x952abf54e97e13a8
|
|
|
|
writemsg "mulsl.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
mulsl.ob $f8, 0x1f
|
|
ck_acc_ob 0xffffffffffffffff, 0xfdfbf9f7f5f3f1ef, 0xf1e2d3c4b5a69788
|
|
|
|
|
|
writemsg "suba.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
suba.ob $f8, $f9
|
|
ck_acc_ob 0xff00010203040506, 0xffffffffffffffff, 0xabababababababab
|
|
|
|
writemsg "suba.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
suba.ob $f8, $f9[2]
|
|
ck_acc_ob 0xff00010203040506, 0xffffffffffffffff, 0x566778899aabbccd
|
|
|
|
writemsg "suba.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
suba.ob $f8, 0x1f
|
|
ck_acc_ob 0xff01020304050607, 0xff00000000000000, 0xf203142536475869
|
|
|
|
|
|
writemsg "subl.ob (v)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
subl.ob $f8, $f9
|
|
ck_acc_ob 0xffffffffffffffff, 0xffffffffffffffff, 0xabababababababab
|
|
|
|
writemsg "subl.ob (ev)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
ld_ob $f9, 0x66778899aabbccdd
|
|
subl.ob $f8, $f9[2]
|
|
ck_acc_ob 0xffffffffffffffff, 0xffffffffffffffff, 0x566778899aabbccd
|
|
|
|
writemsg "subl.ob (cv)"
|
|
ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
|
|
ld_ob $f8, 0x1122334455667788
|
|
subl.ob $f8, 0x1f
|
|
ck_acc_ob 0xff00000000000000, 0xff00000000000000, 0xf203142536475869
|
|
|
|
|
|
writemsg "rnau.ob (v)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
ld_ob $f8, 0x0001020304050607
|
|
rnau.ob $f9, $f8
|
|
ck_ob $f9, 0x4021110940201008
|
|
|
|
writemsg "rnau.ob (ev)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
ld_ob $f8, 0x0001020304050607
|
|
rnau.ob $f9, $f8[4]
|
|
ck_ob $f9, 0x080809097f7f8080
|
|
|
|
writemsg "rnau.ob (cv)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
rnau.ob $f9, 2
|
|
ck_ob $f9, 0x10111112feffffff
|
|
|
|
|
|
writemsg "rneu.ob (v)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
ld_ob $f8, 0x0001020304050607
|
|
rneu.ob $f9, $f8
|
|
ck_ob $f9, 0x4021110940201008
|
|
|
|
writemsg "rneu.ob (ev)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
ld_ob $f8, 0x0001020304050607
|
|
rneu.ob $f9, $f8[4]
|
|
ck_ob $f9, 0x080808097f7f8080
|
|
|
|
writemsg "rneu.ob (cv)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
rneu.ob $f9, 2
|
|
ck_ob $f9, 0x10101112fefeffff
|
|
|
|
|
|
writemsg "rzu.ob (v)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
ld_ob $f8, 0x0001020304050607
|
|
rzu.ob $f9, $f8
|
|
ck_ob $f9, 0x402111083f1f0f07
|
|
|
|
writemsg "rzu.ob (ev)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
ld_ob $f8, 0x0001020304050607
|
|
rzu.ob $f9, $f8[4]
|
|
ck_ob $f9, 0x080808087f7f7f7f
|
|
|
|
writemsg "rzu.ob (cv)"
|
|
ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
|
|
rzu.ob $f9, 2
|
|
ck_ob $f9, 0x10101111fefeffff
|
|
|
|
|
|
###
|
|
### CC-using .ob format ops.
|
|
###
|
|
### Key: v = vector
|
|
### ev = vector of single element
|
|
### cv = vector of constant.
|
|
###
|
|
|
|
|
|
writemsg "c.eq.ob (v)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
ld_ob $f9, 0x0101020203030404
|
|
clr_fp_cc 0xff
|
|
c.eq.ob $f8, $f9
|
|
ck_fp_cc 0x55
|
|
|
|
writemsg "c.eq.ob (ev)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
ld_ob $f9, 0x0101020203030404
|
|
clr_fp_cc 0xff
|
|
c.eq.ob $f8, $f9[5]
|
|
ck_fp_cc 0x18
|
|
|
|
writemsg "c.eq.ob (cv)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
clr_fp_cc 0xff
|
|
c.eq.ob $f8, 0x03
|
|
ck_fp_cc 0x06
|
|
|
|
|
|
writemsg "c.le.ob (v)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
ld_ob $f9, 0x0101020203030404
|
|
clr_fp_cc 0xff
|
|
c.le.ob $f8, $f9
|
|
ck_fp_cc 0xff
|
|
|
|
writemsg "c.le.ob (ev)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
ld_ob $f9, 0x0101020203030404
|
|
clr_fp_cc 0xff
|
|
c.le.ob $f8, $f9[5]
|
|
ck_fp_cc 0xf8
|
|
|
|
writemsg "c.le.ob (cv)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
clr_fp_cc 0xff
|
|
c.le.ob $f8, 0x03
|
|
ck_fp_cc 0xfe
|
|
|
|
|
|
writemsg "c.lt.ob (v)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
ld_ob $f9, 0x0101020203030404
|
|
clr_fp_cc 0xff
|
|
c.lt.ob $f8, $f9
|
|
ck_fp_cc 0xaa
|
|
|
|
writemsg "c.lt.ob (ev)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
ld_ob $f9, 0x0101020203030404
|
|
clr_fp_cc 0xff
|
|
c.lt.ob $f8, $f9[5]
|
|
ck_fp_cc 0xe0
|
|
|
|
writemsg "c.lt.ob (cv)"
|
|
ld_ob $f8, 0x0001010202030304
|
|
clr_fp_cc 0xff
|
|
c.lt.ob $f8, 0x03
|
|
ck_fp_cc 0xf8
|
|
|
|
|
|
writemsg "pickf.ob (v)"
|
|
ld_ob $f8, 0x0001020304050607
|
|
ld_ob $f9, 0x08090a0b0c0d0e0f
|
|
clrset_fp_cc 0xff, 0xaa
|
|
pickf.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x08010a030c050e07
|
|
|
|
writemsg "pickf.ob (ev)"
|
|
ld_ob $f8, 0x0001020304050607
|
|
ld_ob $f9, 0x08090a0b0c0d0e0f
|
|
clrset_fp_cc 0xff, 0xaa
|
|
pickf.ob $f10, $f8, $f9[4]
|
|
ck_ob $f10, 0x0b010b030b050b07
|
|
|
|
writemsg "pickf.ob (cv)"
|
|
ld_ob $f8, 0x0001020304050607
|
|
clrset_fp_cc 0xff, 0xaa
|
|
pickf.ob $f10, $f8, 0x10
|
|
ck_ob $f10, 0x1001100310051007
|
|
|
|
|
|
writemsg "pickt.ob (v)"
|
|
ld_ob $f8, 0x0001020304050607
|
|
ld_ob $f9, 0x08090a0b0c0d0e0f
|
|
clrset_fp_cc 0xff, 0xaa
|
|
pickt.ob $f10, $f8, $f9
|
|
ck_ob $f10, 0x0009020b040d060f
|
|
|
|
writemsg "pickt.ob (ev)"
|
|
ld_ob $f8, 0x0001020304050607
|
|
ld_ob $f9, 0x08090a0b0c0d0e0f
|
|
clrset_fp_cc 0xff, 0xaa
|
|
pickt.ob $f10, $f8, $f9[5]
|
|
ck_ob $f10, 0x000a020a040a060a
|
|
|
|
writemsg "pickt.ob (cv)"
|
|
ld_ob $f8, 0x0001020304050607
|
|
clrset_fp_cc 0xff, 0xaa
|
|
pickt.ob $f10, $f8, 0x10
|
|
ck_ob $f10, 0x0010021004100610
|
|
|
|
|
|
pass
|
|
|
|
.end DIAG
|