# sh testcase for ftrv xmtrx, $fvn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

	.include "compact/testutils.inc"

	# set the fr bit in the fpscr
	.macro _setfr
	sts fpscr, r7
	mov #32, r8
	shll16 r8
	or r8, r7
	lds r7, fpscr
	.endm

	# clear the fr bit
	.macro _clrfr
	sts fpscr, r7
	mov #32, r8
	shll16 r8
	not r8, r8
	and r8, r7
	lds r7, fpscr
	.endm

	.macro incr old new
	fldi1 \new
	fadd \old, \new
	.endm

	start
	_setfr
popmtrx:
	# 1.0.
	fldi1 fr0
	# 2.0.
	fldi1 fr1
	fadd fr1, fr1

	incr fr1, fr2
	incr fr2, fr3
	incr fr3, fr4
	incr fr4, fr5
	incr fr5, fr6
	incr fr6, fr7
	incr fr7, fr8
	incr fr8, fr9
	incr fr9, fr10
	incr fr10, fr11
	incr fr11, fr12
	incr fr12, fr13
	incr fr13, fr14
	incr fr14, fr15

popvect:
	# Swtich fp banks.
	_clrfr
	fldi1 fr4
	fldi1 fr5
	fadd fr5, fr5
	fldi1 fr6
	fadd fr5, fr6
	fldi1 fr7
	fadd fr6, fr7

ftrv:
	# fr[4,7] should contain the results:
	# { 30, 70, 110, 150 }.
	ftrv xmtrx, fv4

okay:
	pass