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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh/] [psub.s] - Rev 842

Compare with Previous | Blame | View Log

# sh testcase for psub
# mach:	 shdsp
# as(shdsp):	-defsym sim_cpu=1 -dsp
 
	.include "testutils.inc"
 
	start
	set_grs_a5a5
	lds	r0, a0
	pcopy	a0, a1
	lds	r0, x0
	lds	r0, x1
	lds	r0, y0
	lds	r0, y1
	pcopy	x0, m0
	pcopy	y1, m1
 
psub_sx_sy:
	# 0xa5a5a5a5 minus 0xa5a5a5a5 equals zero
	psub	x0, y0, a0
	assert_sreg	0, a0
 
psub_sy_sx:
	# 100 - 25 = 75
	mov	#100, r0
	mov	#25, r1
	lds	r0, y1
	lds	r1, x1
	psub	y1, x1, a0
	assert_sreg	75, a0
 
dct_psub:
	# 100 - 25 = 75
	set_dcfalse
	dct	psub	y1, x1, a1
	assert_sreg2	0xa5a5a5a5, a1
	set_dctrue
	dct	psub	y1, x1, a1
	assert_sreg2	75, a1
 
dcf_psub:
	# 25 - 100 = -75
	set_dctrue
	dcf	psub	x1, y1, m1
	assert_sreg2	0xa5a5a5a5, m1
	set_dcfalse
	dcf	psub	x1, y1, m1
	assert_sreg2	-75, m1
 
psub_pmuls:
	# 25 - 100 = -75, and 2 x 2 = 8 (yes, eight, not four)
	mov	#2, r0
	shll16	r0
	lds	r0, x0
	lds	r0, y0
	psub	x1, y1, a1	pmuls	x0, y0, a0
	assert_sreg	8, a0
	assert_sreg2	-75, a1
 
	set_greg	0xa5a5a5a5, r0
	set_greg	0xa5a5a5a5, r1
	test_grs_a5a5
	pass
	exit 0
 

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.