! lmull.s
! lmull, lmulul don't preserve cx, dx

	.globl	lmull
	.globl	lmulul
	.text
	.even

lmull:

lmulul:
	mov	cx,ax
	mul	word ptr 2[di]
	xchg	ax,bx
	mul	word ptr [di]
	add	bx,ax
	mov	ax,ptr [di]
	mul	cx
	add	bx,dx
	ret
