From: ceriel <none@none>
Date: Tue, 9 Jun 1987 15:15:18 +0000 (+0000)
Subject: some fixes
X-Git-Tag: release-5-5~4082
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=85023f4c1481529c5367dcf32de6849c76736772;p=ack.git

some fixes
---

diff --git a/mach/i86/libem/LIST b/mach/i86/libem/LIST
index 1c9777b99..d675edcfc 100644
--- a/mach/i86/libem/LIST
+++ b/mach/i86/libem/LIST
@@ -54,3 +54,4 @@ ret8.s
 lfr6.s
 lfr8.s
 retarea.s
+blm.s
diff --git a/mach/i86/libem/blm.s b/mach/i86/libem/blm.s
new file mode 100644
index 000000000..c107e3199
--- /dev/null
+++ b/mach/i86/libem/blm.s
@@ -0,0 +1,15 @@
+.sect .text
+.define .blm
+
+	! cx: count in words
+.blm:
+	mov	bx,sp
+	mov	ax,si
+	mov	dx,di
+	mov	di,2(bx)
+	mov	si,4(bx)
+	rep	movs
+	mov	si,ax
+	mov	di,dx
+	ret	4
+
diff --git a/mach/i86/libem/set.s b/mach/i86/libem/set.s
index f8d5ddf2f..4bc683274 100644
--- a/mach/i86/libem/set.s
+++ b/mach/i86/libem/set.s
@@ -15,7 +15,7 @@
 	xor	di,di
 	sar	cx,1
 1:
-	mov     dx,4(bx)(di)
+	mov     4(bx)(di),dx
 	add	di,2
 	loop	1b
 !endif