.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define .mli4

	! 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