.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)