.TITLE	GMCX	Get Mapping Context
	.IDENT	"V1.2"
	.ENABL	LC
;+
; Index		GMCX	Get Mapping Context
;
; Usage
;
;	#include <cx.h>
;	#include <wdbdf.h>
;	struct wdb wdbvec[n];	/* Array of WDB's */
;	word status;		/* Returned DSW */
;
;	status = gmcx(&wdbvec)	/* Note the '&' to pass the address */
;
; Notes
;	You must have enough WDB's for the # of windows.
; [end]
;-
; Edits:
; V1.0 12-Jun-80 RBD	Initial Edit
; V1.1 20-Oct-82 RBD	Change P-Section. Fix documentation.
; V1.2 31-Jan-02 BQT	Changed for I/D space.
;

	.mcall	gmcx$s

	.psect	c$code,i,ro
gmcx::
	mov	2(sp),r0
	gmcx$s	r0
	mov	$dsw,r0
	return

	.end