| Copyright (c) 1988 by Sun Microsystems, Inc.
| @(#)sh_fract-sun2.il 1.4 88/08/13 Copyright 1988 Sun Micro

	.inline _vfradd,8
	movl    sp@+,d0
	addl    sp@+,d0
	jvc     1f
	addqw   #1,_fract_overflows
1:
	.end

	.inline _vfrsub,8
	movl    sp@+,d0
	subl    sp@+,d0
	jvc     1f
	addqw   #1,_fract_overflows
1:
	.end

	.inline	_frmul,0	
	subl	a0,a0
	tstl	sp@
	jge	1f
	negl	sp@
	addql	#1,a0
1:
	tstl	sp@(4)		
	jge	2f
	negl	sp@(4)
	subql	#1,a0		
2:
	movw	sp@(2),d0
	mulu	sp@(6),d0	
	clrw	d0
	swap	d0		
	movw	sp@,d1
	mulu	sp@(4),d1	
	swap	d1
	clrw	d1		
	addl	d1,d0
	movw	sp@(2),d1
	mulu	sp@(4),d1	
	addl	d1,d0
	movw	sp@,d1
	mulu	sp@(6),d1	
	addl	d1,d0
	cmpl	#0,a0
	beq	9f
	negl	d0
9:
	.end

	.inline	_vfrmul,0	
	subl	a0,a0
	tstl	sp@		
	jge	1f
	negl	sp@
	addql	#1,a0
1:
	tstl	sp@(4)		
	jge	2f
	negl	sp@(4)
	subql	#1,a0		
2:
	movw	sp@(2),d0
	mulu	sp@(6),d0	
	clrw	d0
	swap	d0		
	movw	sp@,d1
	mulu	sp@(4),d1	
	swap	d1
	jmi	3f
	tstw	d1
	jne	3f
	clrw	d1		
	addl	d1,d0
	jvs	3f
	movw	sp@(2),d1
	mulu	sp@(4),d1	
	addl	d1,d0
	jvs	3f
	movw	sp@,d1
	mulu	sp@(6),d1	
	addl	d1,d0
	jvs	3f
	cmpl	#0,a0
	beq	9f
	negl	d0
	jvs	3f
	jmp	9f
3:
	addqw	#1,_fract_overflows
	clrl	d0
9:
	.end