From: cvs2hg <none@none>
Date: Thu, 7 Feb 1985 22:06:33 +0000 (+0000)
Subject: fixup commit for branch 'unlabeled-2.1.1'
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=43c079b56563ea633c9e7f1c14240a65b8f7b3ef;p=ack.git

fixup commit for branch 'unlabeled-2.1.1'

--HG--
branch : unlabeled-2.1.1
---

diff --git a/mach/m68k4/libem/dvi.s b/mach/m68k4/libem/dvi.s
new file mode 100644
index 000000000..fc74fb4dd
--- /dev/null
+++ b/mach/m68k4/libem/dvi.s
@@ -0,0 +1,42 @@
+.define .dvi
+
+ ! signed long divide
+	.text
+.dvi:
+	movem.l	d0/d4,.savdvi
+	move.l	(sp)+,.retdvi
+	move.l	(sp)+,d0
+	move.l	(sp)+,d1
+	clr.l	d4
+	tst.l	d0	! divisor
+	bpl	1f
+	neg.l	d0
+	not	d4
+1:
+	tst.l	d1	! dividend
+	bpl	2f
+	neg.l	d1
+	not	d4
+	swap	d4
+	not	d4
+	swap	d4
+2:
+	move.l	d1,-(sp)
+	move.l	d0,-(sp)
+	jsr	.dvu
+	tst	d4
+	beq	5f
+	neg.l	d1	! quotient
+5:
+	tst.l	d4
+	bpl	6f
+	neg.l	d2	! remainder
+6:
+	movem.l .savdvi,d0/d4
+	move.l	.retdvi,-(sp)
+	rts
+.data
+.savdvi:	.space 12
+.retdvi:	.long 0
+.text
+.align 2