{
File		: DE:[22,60]regcre.pas
Author		: Peter Stadick
Origin date	: DEC 16,88
Edit History	:

       Last Edit: 16-DEC-1988 14:36:21 

Description:
	The routine fills in the Region Discriptor Block. The user
must set aside an 8 word area in global variables for the RDB.
For example:
TYPE
  RDB_type	: array [1..8] of integer;

VAR
i	: integer;	 insures word alignment
RDB     : RDB_type;	 Space for RDB 

}

procedure regcre(VAR RDB  : RDB_type;
		     size : integer;
		     name : ch6;
		     par  : ch6;
		     sts  : integer;
		     pro  : integer); external;