ceriel пре 37 година
родитељ
комит
a1cb8c1cdb
2 измењених фајлова са 29 додато и 0 уклоњено
  1. 1 0
      mach/i86/libem/LIST
  2. 28 0
      mach/i86/libem/cmi4.s

+ 1 - 0
mach/i86/libem/LIST

@@ -3,6 +3,7 @@ adi.s
 and.s
 cii.s
 cms.s
+cmi4.s
 cmu4.s
 com.s
 csa2.s

+ 28 - 0
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