.TITLE ATRGPA
	.IDENT /121688/



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

.REM |

Procedure ATRGPA(VAR RDB:rdb_type); EXTERNAL;

{*USER*

This will attempt to attach 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  ATRG$S
	
	PROC ATRGPA
	PARAM RDB, ADDRESS	; Address of RDB
	BEGIN
	ATRG$S	RDB(SP)		; Attach region
	ENDPR
	.END