| ------------------------------------------------------------------------------
| lmul.s -- long multiply
| Version 2 -- 1989-07-18
| ------------------------------------------------------------------------------
		.text

		.xdef	lmul

ARG1		=	8
ARG2		=	12

TEMP		=	-4

lmul:		link	a6,#-4
		clr.w	d2
		tst.l	ARG1(a6)
		bge	lmul1

		neg.l	ARG1(a6)
		addq.w	#1,d2

lmul1:		tst.l	ARG2(a6)
		bge	lmul2

		neg.l	ARG2(a6)
		addq.w	#1,d2

lmul2:		move.w	ARG1+2(a6),d0
		mulu	ARG2+2(a6),d0
		move.l	d0,TEMP(a6)
		move.w	ARG1(a6),d0
		mulu	ARG2+2(a6),d0
		move.w	ARG2(a6),d1
		mulu	ARG1+2(a6),d1
		add.w	d1,d0
		add.w	TEMP(a6),d0
		move.w	d0,TEMP(A6)
		move.l	TEMP(a6),d0
		btst	#0,d2
		beq	lmul3

		neg.l	d0

lmul3:		unlk	a6
		rts

		.end