Parcourir la source

fixup commit for branch 'unlabeled-2.1.1'

--HG--
branch : unlabeled-2.1.1
cvs2hg il y a 39 ans
Parent
commit
43c079b565
1 fichiers modifiés avec 42 ajouts et 0 suppressions
  1. 42 0
      mach/m68k4/libem/dvi.s

+ 42 - 0
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