.TITLE ELAWPA
	.IDENT /121688/



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

.REM |

Procedure ELAWPA(VAR WDB:wdb_type);EXTERNAL;

{*USER*

This will attempt to eliminate an address window in a task given
the address of the window descriptor block (WDB).

Directive status is available in $DSW on return.

} 
|

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

         .MCALL  ELAW$S
	
	PROC ELAWPA
	PARAM WDB, ADDRESS	; Address of WDB
	BEGIN
	ELAW$S	WDB(SP)		; Attach region
	ENDPR
	.END