ack/mach/pdp/libem/cmi4.s

/ $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)
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.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)`