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

	! descriptor address in bx
	! value in ax, must be left there
.rck:
	cmp     ax,(bx)
	jl      2f
	cmp     ax,2(bx)
	jg      2f
	ret
2:
	push    ax
.extern ERANGE
.extern .error
	mov     ax,ERANGE
	call    .error
	pop     ax
	ret