lmul:
	link	a6,#$FFFA
	move.l	d0,-(a7)
	clr.w	$FFFE(a6)
	tst.l	$8(a6)
	bge.b	H286
	addq.w	#1,$FFFE(a6)
	neg.l	$8(a6)
H286:
	tst.l	$C(a6)
	bge.b	H294
	addq.w	#1,$FFFE(a6)
	neg.l	$C(a6)
H294:
	move.w	$A(a6),d0
	mulu	$E(a6),d0
	move.l	d0,$FFFA(a6)
	move.w	$8(a6),d0
	mulu	$E(a6),d0
	add.w	d0,$FFFA(a6)
	move.w	$A(a6),d0
	mulu	$C(a6),d0
	add.w	d0,$FFFA(a6)
	andi.w	#$1,$FFFE(a6)
	beq.b	H2C4
	neg.l	$FFFA(a6)
H2C4:
	move.l	(a7)+,d0
	move.l	$FFFA(a6),$C(a6)
	unlk	a6
	move.l	(a7)+,(a7)
	tst.l	$4(a7)
	rts