.define .rck
.sect .text
.sect .rom
.sect .data
.sect .bss

	.sect .text
.rck:
	move.l	(sp)+,a1
	move.l	(sp)+,a0	! descriptor address
	move.w	(sp),d0
	cmp	(a0),d0
	blt	1f
	cmp	2(a0),d0
	ble	2f
1:
	move.w	#ERANGE,-(sp)
	jsr	.trp
2:
	jmp	(a1)