product.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,fr2
	mov.l	.L4,r0
	lds.l	@r0+,fpscr
	mov	#0,r0
.L1:
	fmov.s	@(r0,r5),fr0
	fmov.s	@(r0,r6),fr1
	dt	r4
	add	#4,r0
	bf/s	.L1
	fmac	fr0,fr1,fr2
.L2:
	fmov	fr2,fr0
	mov	r14,r15
	rts
	mov.l	@r15+,r14
	.align 2
.L4:
	.long	__fpscr_values
.L5:
	.long	0