added cmi4.s

diff --git a/mach/i86/libem/LIST b/mach/i86/libem/LIST
index d675edc..beda76b 100644 (file)
--- a/mach/i86/libem/LIST
+++ b/mach/i86/libem/LIST
@@ -3,6 +3,7 @@ adi.s
 and.s
 cii.s
 cms.s
+cmi4.s
 cmu4.s
 com.s
 csa2.s

diff --git a/mach/i86/libem/cmi4.s b/mach/i86/libem/cmi4.s
new file mode 100644 (file)
index 0000000..d7e8b2d
--- /dev/null
+++ b/mach/i86/libem/cmi4.s
@@ -0,0 +1,28 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define .cmi4
+
+.sect .text
+.cmi4:
+       pop     bx              ! return address
+       pop     cx
+       pop     dx
+       pop     ax
+       push    si
+       mov     si,sp
+       xchg    bx,2(si)
+       pop     si
+       cmp     bx,dx
+       jg      1f
+       jl      2f
+       cmp     ax,cx
+       ja      1f
+       je      3f
+2:
+       mov     ax,-1
+       ret
+3:
+       xor     ax,ax
+       ret
+1:
+       mov     ax,1
+       ret