Initial revision

1985-07-26 11:56:24 +00:00
parent 0e7eb937b4
commit 6bdc39213b
28 changed files with 579 additions and 0 deletions
--- a/mach/ns/libem/cms.s
+++ b/mach/ns/libem/cms.s
@@ -0,0 +1,25 @@
+.define	.cms
+
+	.text
+
+.cms:	movd tos, r7		!return addres
+	addr 4(sp), r1
+	movd r1, r2
+	addd 0(sp), r2
+	movd 0(sp), r0
+	muld -2, r0
+	subd 4, r0
+3:
+	cmpd 0(r2), 0(r1)
+	bne 2f
+	addr 4(r1), r1
+	addr 4(r2), r2
+	acbd -4, 0(sp), 3b
+	xord r1, r1
+4:
+	adjspd r0
+	movd r7, tos
+	ret 0
+2:
+	movd 1, r1
+	br 4b