.TITLE UMAPPA
	.IDENT /121688/



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

.REM |

Procedure UMAPPA(VAR WDB:wdb_type);EXTERNAL;

{*USER*

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

WARNING: Mapping APR 0 can be very dangerous and crash the system
so be sure you don't.

Directive status is available in $DSW on return.

} 
|

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

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