.TITLE	OVCTR
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
; MODIFICATIONS:
;
;	12A - CORRECTION FOR READING IN READ-ONLY LIBRARY
;		RESIDENT OVERLAYS
;
	.IDENT	/12A/
	.PSECT
	.PSECT	$$RDSG,I,LCL,REL,RO,OVR
.RDSG=.
	.MCALL	CRAW$S,WDBDF$
	WDBDF$	DEF$L

W$NFLG=W.NSTS
WF$MAP=100000

.=.RDSG+116

	CALL	PAT1
	BCS	40$		; IF CS MAP FAILURE
	NOP

.=.RDSG+302
40$:				;
.=.RDSG

	.PSECT	$$PAT1,I,LCL,REL,RO,OVR
$$PAT1=.

PAT1:
	BCC	10$		;IF C/C MAP SUCCESS
	BIC	#WS.WRT,W.NSTS(R3) ; CHANGE MAPPING STATUS TO R/O
	CRAW$S	R3		; TRY MAPPING AGAIN
	BCS	20$		; IF C/S MAP FAILURE
10$:	
	BIS	#WF$MAP,W$NFLG(R3) ; SET STATUS = MAPPED
20$:
	RETURN

.=$$PAT1
	.END