ack/mach/pdp/libem/rck.s

/ $Header$
.text
.globl rck~
.globl trp~

ERANGE	= 1

rck~:
	mov	(sp)+,r1
	cmp	(sp),(r0)
	blt	1f
	cmp	(sp),02(r0)
	ble	2f
1:	mov	$ERANGE,-(sp)
	jsr	pc,trp~
2:	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 rck~`
			`.globl trp~`

			`ERANGE = 1`

			`rck~:`
			`mov (sp)+,r1`
			`cmp (sp),(r0)`
			`blt 1f`
			`cmp (sp),02(r0)`
			`ble 2f`
			`1: mov $ERANGE,-(sp)`
			`jsr pc,trp~`
			`2: jmp (r1)`