# Inline definitions for 68010 versions of the fract library
# "@(#)fract-mc68020.il 9.2 88/01/19

	.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,8
	movl	sp@+,d1
	mulsl	sp@+,d0:d1
	swap	d0
	swap	d1
	movw	d1,d0
	.end

	.inline _vfrmul,8
	movl	sp@+,d1
	mulsl	sp@+,d0:d1
	asll	#8,d0
	bvs	1f
	asll	#8,d0
	bvc	2f
1:
	addqw	#1,_fract_overflows
2:
	swap	d1
	movw	d1,d0
	.end

	.inline _frdiv,8
	movl	sp@+,d0
	swap	d0
	movl	d0,d1
	clrw	d0
	extl	d1
	divsl	sp@+,d1:d0
	.end

	.inline _vfrdiv,8
	movl	sp@+,d0
	swap	d0
	movl	d0,d1
	clrw	d0
	extl	d1
	divsl	sp@+,d1:d0
	bvc	1f
	addqw	#1,_fract_overflows
1:
	.end

	.inline	_swap,4
	movl	sp@+,d0
	swap	d0
	.end

	.inline	_rotate_left,8
	movl	sp@+,d1
	movl	sp@+,d0
	roll	d1,d0
	.end

	.inline	_rotate_right,8
	movl	sp@+,d1
	movl	sp@+,d0
	rorl	d1,d0
	.end