ack/mach/pdp/libem/cmu4.s

/ $Header$
	.text
	.globl	cmu4~
cmu4~:
	mov	(sp)+,r1
	clr	r0
	cmp	(sp),4(sp)
	bhi	1f
	blo	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 cmu4~`
			`cmu4~:`
			`mov (sp)+,r1`
			`clr r0`
			`cmp (sp),4(sp)`
			`bhi 1f`
			`blo 2f`
			`cmp 2(sp),6(sp)`
			`bhi 1f`
			`beq 3f`
			`2:`
			`inc r0`
			`br 3f`
			`1:`
			`dec r0`
			`3:`
			`add $10,sp`
			`jmp (r1)`