.Title	DSWIND -- Deassign Address Window
	.Enabl	lc
;+
;
;  DSWIND -- Deassign Virtual Address Window for Virtual Support
;
;  Author:  Gary L. Maxwell
;           National Strong Motion Data Center
;           Branch of Engineering Seismology and Geology
;           U.S. Geological Survey
;           345 Middlefield Road, Mailstop 977
;           Menlo Park, California  94025
;
;  Version: Y01
;  Support: RSX-11M/M-Plus
;
;-

	.Mcall	elaw$s

	.psect	$code,ro,i

;+
;  Subroutine DSWIND (iwdb, ierr)
;
;  Deassign an address window.
;
;  iwdb		Window Definition Block
;
;  ierr		Return status:  1 - Successful
;			       <0 - Unsuccessful, contains DSW
;
;  This routine eliminates a previously established virtual address
;  window (via a call to CRWIND). Any mapping assignments through the
;  window are unmapped.
;-

IWDB	=  2
IERR	=  4

Dswind::
	elaw$s	IWDB(r5)	; Eliminate the address window
	mov	$dsw,@IERR(r5)	; Store the return status
	return			; Return to caller

	.end