.TITLE CRRGPA
	.IDENT /121688/



;	Version:
;	File:[22,320]CRRGPA.MAC
;	Author: Peter Stadick 
;	History: 
;	Last Edit: 17-DEC-1988 13:17:45 
; 

.REM |

Procedure CRRGPA(VAR RDB:rdb_type);EXTERNAL;

{*USER*

This will attempt to create a region given the address of the region
descriptor block (RDB).

Directive status is available in $DSW on return.

} 
|

;
; Assemble with PASMAC.MAC as prefix file.
;
;

         .MCALL  CRRG$S
	
	PROC CRRGPA
	PARAM RDB, ADDRESS	; Address of RDB
	BEGIN
	CRRG$S	RDB(SP)	; Create region
	ENDPR
	.END