.Title	$VINIT
	.Enabl	Lc
	.Ident	/F7705Z/

;
;  VINIT.PAT -- Correction file for Fortran-77 OTS module $VINIT
;		(Original Ident: F77005)
;
;  Corrections:
;
;	GMLB01	--  Use WS.EDS bit mask to set up mapping in I-space for
;		    non I/D tasks and D-Space for I/D tasks.
;
;  Original   file checksum:  25372
;  Correction file checksum:   5712
;

	.Mcall	Wdbdf$

	Wdbdf$		; Define Window Definition Block Offsets

	.Psect	$$OTSI,CON,RO,REL,LCL,I

$$$ = .
. = $$$ + 62

	Mov	#<WS.64B!WS.MAP!WS.EDS!WS.WRT>,(r0)+ ; Store window status

	.End