aulmul.s,v

来自「TCP-IP红宝书源代码」· S,V 代码 · 共 55 行

head	1.1;
access;
symbols;
locks
	dls:1.1; strict;
comment	@# @;


1.1
date	97.09.21.19.27.40;	author dls;	state Dist;
branches;
next	;


desc
@@


1.1
log
@pre-3e code
@
text
@|J. Test	1/81
|addressed unsigned long multiply: *a = *a * b

	.globl	aulmul
	.text

aulmul:	link	a6,#0
	moveml	#0x3000,sp@@-	|save d2,d3
	movl	a6@@(8),a0	|a0 = pointer to a
	movl	a0@@,d2		|d2 = a
	movl	a6@@(12),d3	|d3 = b

	clrl	d0
	movw	d2,d0		|d0 = alo, unsigned
	mulu	d3,d0		|d0 = blo*alo, unsigned
	movw	d2,d1		|d1 = alo
	swap	d2		|swap alo-ahi
	mulu	d3,d2		|d2 = blo*ahi, unsigned
	swap	d3		|swap blo-bhi
	mulu	d3,d1		|d1 = bhi*alo, unsigned
	addl	d2,d1		|d1 = (ahi*blo + alo*bhi)
	swap	d1		|d1 =
	clrw	d1		|   (ahi*blo + alo*bhi)*(2**16)
	addl	d1,d0		|d0 = alo*blo + (ahi*blo + alo*bhi)*(2**16)

	movl	d0,a0@@		|store result via pointer
3$:	moveml	sp@@+,#0xC	|restore d2,d3
	unlk	a6
	rts

@