OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [mips/] [mdmx-ob.s] - Rev 238

Go to most recent revision | Compare with Previous | Blame | View Log

# 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
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.