.TITLE	CRRG
	.PSECT	.PROG.
	.IDENT	/01/
	.ENABL	LC
;
; P. Hays		16 March 79
;
; int crrg(rdbadr) rdbx *rdbadr;
;
; "Rdbadr" is the address of a region definition block.
; The 'C' structure 'rdbx' is defined in file "region.h".
;
; The region id and size are the values returned in the
; region definition block by the exec if the directive is successful.
;
; If the directive is rejected, the non-zero value of the directive
; status word is returned to the caller; otherwise 0 is returned.
;
	.mcall crrg$s

crrg::
	mov	2(sp),r1	; Get address of rdb
	clr	r0		; Tentatively clear return value

	crrg$s	r1		; Call the exec routine
	bcc	9$		; Good return		->

	mov	@#$dsw, r0	; else return directive status word.

9$:	return

.end