some fixes

diff --git a/mach/i86/libem/LIST b/mach/i86/libem/LIST
index 1c9777b..d675edc 100644 (file)
--- 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 (file)
index 0000000..c107e31
--- /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 f8d5ddf..4bc6832 100644 (file)
--- 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