some fixes

mach/i86/libem/LIST

@@ -54,3 +54,4 @@ ret8.s
 lfr6.s
 lfr8.s
 retarea.s
+blm.s

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
+

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