From e9977b563eb0cb364b8b40807586720a7632264d Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Thu, 13 Nov 1986 16:06:23 -0800
Subject: [PATCH] BSD 4_3_Tahoe development Work on file
 usr/tmp/housel/franz/tahoe/dmlad.s Work on file
 usr/src/ucb/lisp/franz/tahoe/dmlad.s

Synthesized-from: CSRG/cd2/4.3tahoe
---
 usr/src/ucb/lisp/franz/tahoe/dmlad.s | 47 ++++++++++++++++++++++++++++
 usr/tmp/housel/franz/tahoe/dmlad.s   | 47 ++++++++++++++++++++++++++++
 2 files changed, 94 insertions(+)
 create mode 100644 usr/src/ucb/lisp/franz/tahoe/dmlad.s
 create mode 100644 usr/tmp/housel/franz/tahoe/dmlad.s

diff --git a/usr/src/ucb/lisp/franz/tahoe/dmlad.s b/usr/src/ucb/lisp/franz/tahoe/dmlad.s
new file mode 100644
index 0000000000..98b900900b
--- /dev/null
+++ b/usr/src/ucb/lisp/franz/tahoe/dmlad.s
@@ -0,0 +1,47 @@
+
+	.globl	_dmlad
+/*
+	routine for destructive multiplication and addition to a bignum by
+	two fixnums.
+
+	from C, the invocation is dmlad(sdot,mul,add);
+	where sdot is the address of the first special cell of the bignum
+	mul is the multiplier, add is the fixnum to be added (The latter
+	being passed by value, as is the usual case.
+
+
+	Register assignments:
+
+	r11 = current sdot
+	r10 = carry
+	r9  = previous sdot, for relinking.
+	r8  = temporary kluge variable
+*/
+
+_dmlad:	.word	0x0f00
+	movl	4(fp),r11		#initialize cell pointer
+	movl	12(fp),r10		#initialize carry
+loop:	emul	8(fp),(r11),r10,r0	#r0 gets cell->car times mul + carry
+
+	ediv	$0x40000000,r0,r10,r8	#cell->car gets prod % 2**30
+	movl	r8,(r11)
+					#carry gets quotient
+/*	extzv	$0,$30,r0,(r11)
+	extv	$30,$32,r0,r10
+*/
+	movl	r11,r9			#save last cell for fixup at end.
+	movl	4(r11),r11		#move to next cell
+	bneq	loop			#done indicated by 0 for next sdot
+	tstl	r10			#if carry zero no need to allocate
+	beql	done			#new bigit
+	mcoml	r10,r3			#test to see if neg 1.
+	bneq	alloc			#if not must allocate new cell.
+	tstl	(r9)			#make sure product isn't -2**30
+	beql	alloc
+	movl	r0,(r9)			#save old lower half of product.
+	brb	done
+alloc:	callf	$4,_newdot		#otherwise allocate new bigit
+	movl	r10,(r0)		#store carry
+	movl	r0,4(r9)		#save new link cell
+done:	movl	4(fp),r0
+	ret
diff --git a/usr/tmp/housel/franz/tahoe/dmlad.s b/usr/tmp/housel/franz/tahoe/dmlad.s
new file mode 100644
index 0000000000..98b900900b
--- /dev/null
+++ b/usr/tmp/housel/franz/tahoe/dmlad.s
@@ -0,0 +1,47 @@
+
+	.globl	_dmlad
+/*
+	routine for destructive multiplication and addition to a bignum by
+	two fixnums.
+
+	from C, the invocation is dmlad(sdot,mul,add);
+	where sdot is the address of the first special cell of the bignum
+	mul is the multiplier, add is the fixnum to be added (The latter
+	being passed by value, as is the usual case.
+
+
+	Register assignments:
+
+	r11 = current sdot
+	r10 = carry
+	r9  = previous sdot, for relinking.
+	r8  = temporary kluge variable
+*/
+
+_dmlad:	.word	0x0f00
+	movl	4(fp),r11		#initialize cell pointer
+	movl	12(fp),r10		#initialize carry
+loop:	emul	8(fp),(r11),r10,r0	#r0 gets cell->car times mul + carry
+
+	ediv	$0x40000000,r0,r10,r8	#cell->car gets prod % 2**30
+	movl	r8,(r11)
+					#carry gets quotient
+/*	extzv	$0,$30,r0,(r11)
+	extv	$30,$32,r0,r10
+*/
+	movl	r11,r9			#save last cell for fixup at end.
+	movl	4(r11),r11		#move to next cell
+	bneq	loop			#done indicated by 0 for next sdot
+	tstl	r10			#if carry zero no need to allocate
+	beql	done			#new bigit
+	mcoml	r10,r3			#test to see if neg 1.
+	bneq	alloc			#if not must allocate new cell.
+	tstl	(r9)			#make sure product isn't -2**30
+	beql	alloc
+	movl	r0,(r9)			#save old lower half of product.
+	brb	done
+alloc:	callf	$4,_newdot		#otherwise allocate new bigit
+	movl	r10,(r0)		#store carry
+	movl	r0,4(r9)		#save new link cell
+done:	movl	4(fp),r0
+	ret
-- 
2.20.1