.define .mli4

        ! $Header$
	! x * y with
	! x.low = si x.high = di
	! y.low = bx y.high = ax

.mli4:
	mul     si              ! xl*yh
	mov     cx,ax
	mov     ax,di
	mul     bx              ! xh*yl
	add     cx,ax           ! xh*yl+xl*yh
	mov     ax,si
	mul     bx              ! xl*yl
	add     dx,cx
	ret
