/ $Header$
.text
.globl cmi4~

cmi4~:
	mov	(sp)+,r1
	clr	r0
	cmp	(sp),4(sp)
	bgt	1f
	blt	2f
	cmp	2(sp),6(sp)
	bhi	1f
	beq	3f
2:
	inc	r0
	br	3f
1:
	dec	r0
3:
	add	$10,sp
	jmp	(r1)