.define rck

rck:
	ld	R0, RR14($4)
	cp	R0, 0(R1)
	jr	LT, 1f
	cp	R0, 2(R1)
	jr	LE, 2f
1:	push	*RR14, $ERANGE
	calr	trp
2:	ret