	machine	68020
	opt	0
	opt	NQLPSMRBT
	section	"CODE",code
	public	_mul_ii
	cnop	0,4
_mul_ii
	movem.l	l2,-(a7)
	move.l	(4+l4,a7),d0
	muls.l	(8+l4,a7),d0
l2	reg
l4	EQU	0
	rts
	cnop	0,4
	cnop	0,4
	cnop	0,4
	machine	68020
	opt	0
	opt	NQLPSMRBT
	public	_div_ii
	cnop	0,4
_div_ii
	movem.l	l6,-(a7)
	move.l	(8+l8,a7),d0
	divs.l	(4+l8,a7),d0
l6	reg
l8	EQU	0
	rts
	cnop	0,4
	cnop	0,4
	cnop	0,4
	machine	68020
	opt	0
	opt	NQLPSMRBT
	public	_sqri_i
	cnop	0,4
_sqri_i
	movem.l	l31,-(a7)
	move.l	(4+l33,a7),d4
	move.l	d4,d1
	asr.l	#1,d1
	moveq	#0,d2
	cmp.l	#45000,d1
	ble	l16
	move.l	#20000,d1
l16
	tst.l	d1
	ble	l30
l29
	move.l	d2,d3
	add.l	d1,d3
	move.l	d3,d0
	muls.l	d3,d0
	cmp.l	d0,d4
	bge	l21
	asr.l	#1,d1
	bra	l22
l21
	move.l	d3,d2
l22
	tst.l	d1
	bgt	l29
l30
	move.l	d2,d0
l31	reg	d2/d3/d4
	movem.l	(a7)+,l31
l33	EQU	12
	rts
	cnop	0,4
	cnop	0,4
	cnop	0,4
	machine	68020
	opt	0
	opt	NQLPSMRBT
	public	_normalpol_iiii
	cnop	0,4
_normalpol_iiii
	movem.l	l35,-(a7)
	move.l	(16+l37,a7),a4
	move.l	(4+l37,a7),a3
	move.l	(12+l37,a7),a2
	move.l	(8+l37,a7),a1
	move.l	#128,d1
	add.l	(a4),d1
	move.l	#128,d0
	add.l	(4,a4),d0
	move.l	#128,d5
	add.l	(8,a4),d5
	move.l	d1,d3
	sub.l	(a2),d3
	asr.l	#8,d3
	move.l	d0,d2
	sub.l	(4,a2),d2
	asr.l	#8,d2
	move.l	d5,d6
	sub.l	(8,a2),d6
	asr.l	#8,d6
	sub.l	(a1),d1
	asr.l	#8,d1
	sub.l	(4,a1),d0
	asr.l	#8,d0
	sub.l	(8,a1),d5
	asr.l	#8,d5
	move.l	d5,d7
	muls.l	d2,d7
	move.l	d0,d4
	muls.l	d6,d4
	move.l	d0,-(a7)
	move.l	d7,d0
	sub.l	d4,d0
	move.l	d0,(a3)
	move.l	(a7)+,d0
	move.l	d1,d4
	muls.l	d6,d4
	muls.l	d3,d5
	sub.l	d5,d4
	move.l	d4,(4,a3)
	muls.l	d3,d0
	muls.l	d2,d1
	sub.l	d1,d0
	move.l	d0,(8,a3)
l35	reg	a2/a3/a4/d2/d3/d4/d5/d6/d7
	movem.l	(a7)+,l35
l37	EQU	36
	rts
	cnop	0,4
	cnop	0,4
	cnop	0,4
	machine	68020
	opt	0
	opt	NQLPSMRBT
	public	_dotproduct_ii
	cnop	0,4
_dotproduct_ii
	movem.l	l39,-(a7)
	move.l	(8+l41,a7),a2
	move.l	(4+l41,a7),a1
	move.l	#128,d5
	add.l	(a2),d5
	asr.l	#8,d5
	move.l	#128,d4
	add.l	(4,a2),d4
	asr.l	#8,d4
	move.l	#128,d2
	add.l	(8,a2),d2
	asr.l	#8,d2
	move.l	#128,d3
	add.l	(a1),d3
	asr.l	#8,d3
	move.l	#128,d1
	add.l	(4,a1),d1
	asr.l	#8,d1
	move.l	#128,d0
	add.l	(8,a1),d0
	asr.l	#8,d0
	muls.l	d5,d3
	muls.l	d4,d1
	add.l	d3,d1
	muls.l	d2,d0
	add.l	d1,d0
l39	reg	a2/d2/d3/d4/d5
	movem.l	(a7)+,l39
l41	EQU	20
	rts
	cnop	0,4
	cnop	0,4
	cnop	0,4
	cnop	0,4
	cnop	0,4
	cnop	0,4
