product.fipr.s

	.global	product
	.type	product, @function
product:
	mov.l	r14,@-r15
	cmp/pl	r4
	bf/s	.L2
	mov	r15,r14
	mova	.L5,r0
	fmov.s	@r0,fr8
	mov.l	.L4,r1
	lds.l	@r1+,fpscr
	mov	r0,r1
	mov	#0,r0
.L1:
	fmov.s	@r1,fr0
	fmov.s	@r1,fr1
	fmov.s	@r1,fr2
	fmov.s	@r1,fr3
	fmov.s	@r1,fr4
	fmov.s	@r1,fr5
	fmov.s	@r1,fr6
	fmov.s	@r1,fr7

	fmov.s	@(r0,r5),fr0
	fmov.s	@(r0,r6),fr4
	dt	r4
	add	#4,r0
	bt	.L0

	fmov.s	@(r0,r5),fr1
	fmov.s	@(r0,r6),fr5
	dt	r4
	add	#4,r0
	bt	.L0

	fmov.s	@(r0,r5),fr2
	fmov.s	@(r0,r6),fr6
	dt	r4
	add	#4,r0
	bt	.L0

	fmov.s	@(r0,r5),fr3
	fmov.s	@(r0,r6),fr7
	dt	r4
	add	#4,r0
.L0:
	fipr	fv4,fv0
	fadd	fr3,fr8
	bf	.L1
.L2:
	fmov	fr8,fr0
	mov	r14,r15
	rts
	mov.l	@r15+,r14
	.align 2
.L4:
	.long	__fpscr_values
.L5:
	.long	0