;   mulu
		;
		;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
		;
		;   32x32->32 multiply
		;
		;   args on stack, return result on stack
		;
		;   CANNOT DESTROY ANY REGS

		section text,code
		xdef	__mulu

l		equ	8

__mulu: 	movem.l D0/D1,-(sp)

		move.w	l+4(sp),D0
		mulu.w	l+10(sp),D0
		move.w	l+6(sp),D1
		mulu.w	l+8(sp),D1
		add.l	D1,D0
		swap	D0
		clr.w	D0
		move.w	l+6(sp),D1
		mulu.w	l+10(sp),D1
		add.l	D1,D0
		move.l	D0,l+8(sp)
		movem.l (sp)+,D0/D1
		move.l	(sp)+,(sp)
		rts

		END