--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/sh4/ftrc.s	Tue Feb 13 08:34:27 2007 +0000
@@ -0,0 +1,217 @@
+	.section .text
+.include "sh4/inc.s"
+!
+! Test ftrc
+
+.global _test_ftrc
+_test_ftrc:	
+	start_test
+
+	xor r0,r0
+	lds r0, fpscr
+	
+test_ftrc_1:  ! Load 1.0 single precision
+	add #1, r12
+	mov.l test_ftrc_1_input, r0
+	lds r0, fpul
+	fsts fpul, fr0
+	ftrc fr0, fpul
+	sts fpul, r0
+	mov.l test_ftrc_1_result, r1
+	cmp/eq r0,r1
+	bt test_ftrc_2
+test_ftrc_1_fail:	
+	fail test_ftrc_str_k
+	bra test_ftrc_2
+	nop
+
+.align 4
+test_ftrc_1_input:
+	.long 0x3F800000
+test_ftrc_1_result:
+	.long 0x00000001
+
+test_ftrc_2:	! Load -1.0 double precision
+	add #1, r12
+	setpr
+	mov.l test_ftrc_2_input_a, r0
+	lds r0, fpul
+	fsts fpul, fr0
+	mov.l test_ftrc_2_input_b, r0
+	lds r0, fpul
+	fsts fpul, fr1
+	ftrc fr0, fpul
+	sts fpul, r0
+	mov.l test_ftrc_2_result, r1
+	cmp/eq r0,r1
+	bt test_ftrc_3
+test_ftrc_2_fail:	
+	fail test_ftrc_str_k
+	bra test_ftrc_3
+	nop
+
+test_ftrc_2_input_a:
+	.long 0xBFF00000
+test_ftrc_2_input_b:
+	.long 0x00000000
+test_ftrc_2_result:
+	.long 0xFFFFFFFF
+
+test_ftrc_3:   ! pr=0, sz=1
+	add #1, r12
+	clrpr
+	mov.l test_ftrc_3_input, r0
+	lds r0, fpul
+	fsts fpul, fr0
+	fschg
+	ftrc fr0, fpul
+	sts fpul, r0
+	mov.l test_ftrc_3_result, r1
+	cmp/eq r0, r1
+	bt test_ftrc_4
+test_ftrc_3_fail:	
+	fail test_ftrc_str_k
+	bra test_ftrc_4
+	nop
+	
+test_ftrc_3_input:
+	.long 0xCE4CCCCD
+test_ftrc_3_result:
+	.long 0xCCCCCCC0
+
+test_ftrc_4:	! pr=1, sz=1
+	add #1, r12
+	fldi0 fr0
+	fldi1 fr1
+	setpr
+	mov.l test_ftrc_4_input_a, r0
+	lds r0, fpul
+	fsts fpul, fr0
+	mov.l test_ftrc_4_input_b, r0
+	lds r0, fpul
+	fsts fpul, fr1
+	ftrc fr0, fpul
+	sts fpul, r0
+	mov.l test_ftrc_4_result, r1
+	cmp/eq r0,r1
+	bt test_ftrc_5
+test_ftrc_4_fail:	
+	fail test_ftrc_str_k
+	bra test_ftrc_5
+	nop
+
+test_ftrc_4_input_a:
+	.long 0x41DFFFFF
+test_ftrc_4_input_b:
+	.long 0xFFC00000
+test_ftrc_4_result:
+	.long 0x7FFFFFFF
+
+
+test_ftrc_5:	! test w/ max +int, sz=0, pr=0, fr=1
+	add #1, r12
+	xor r0,r0
+	lds r0, fpscr
+	fldi0 fr0
+	fldi0 fr1
+	frchg
+	fldi0 fr0
+	fldi0 fr1
+	mov.l test_ftrc_5_input, r0
+	lds r0, fpul
+	fsts fpul, fr0
+	ftrc fr0, fpul
+	sts fpul, r0
+	mov.l test_ftrc_5_result, r1
+	cmp/eq r0, r1
+	bf test_ftrc_5_fail
+	flds fr1, fpul
+	sts fpul, r0
+	tst r0, r0
+	bf test_ftrc_5_fail
+	lds r0, fpscr
+	flds fr0, fpul
+	sts fpul, r0
+	tst r0, r0
+	bt test_ftrc_6
+test_ftrc_5_fail:
+	fail test_ftrc_str_k
+	bra test_ftrc_6
+	nop
+	
+test_ftrc_5_input:
+	.long 0x4F000000
+test_ftrc_5_result:
+	.long 0x7FFFFFFF
+
+test_ftrc_6: ! Test max -int
+	add #1, r12
+	mov.l test_ftrc_6_input, r0
+	lds r0, fpul
+	fsts fpul, fr5
+	ftrc fr5, fpul
+	sts fpul, r2
+	mov.l test_ftrc_6_result, r1
+	cmp/eq r1, r2
+	bt test_ftrc_7
+
+test_ftrc_6_fail:
+	fail test_ftrc_str_k
+	bra test_ftrc_7
+	nop
+	
+test_ftrc_6_input:
+	.long 0xCF000000
+test_ftrc_6_result:
+	.long 0x80000000
+
+test_ftrc_7:	! Test >max +int
+	add #1, r12
+	mov.l test_ftrc_7_input, r0
+	lds r0, fpul
+	fsts fpul, fr7
+	ftrc fr7, fpul
+	sts fpul, r2
+	mov.l test_ftrc_7_result, r1
+	cmp/eq r1, r2
+	bt test_ftrc_8
+test_ftrc_7_fail:
+	fail test_ftrc_str_k
+	bra test_ftrc_7
+	nop
+	
+test_ftrc_7_input:
+	.long 0x7E111111
+test_ftrc_7_result:
+	.long 0x7FFFFFFF
+
+test_ftrc_8: ! test < min -int
+	add #1, r12
+	mov.l test_ftrc_8_input, r0
+	lds r0, fpul
+	fsts fpul, fr9
+	ftrc fr9, fpul
+	sts fpul, r2
+	mov.l test_ftrc_8_result, r1
+	cmp/eq r1, r2
+	bt test_ftrc_end
+test_ftrc_8_fail:
+	fail test_ftrc_str_k
+	bra test_ftrc_8
+	nop
+	
+test_ftrc_8_input:
+	.long 0xFE111111
+test_ftrc_8_result:
+	.long 0x80000000
+
+	
+test_ftrc_end:
+	end_test test_ftrc_str_k
+	
+test_ftrc_str:
+	.string "FTRC"
+	
+.align 4
+test_ftrc_str_k:
+	.long test_ftrc_str