DC0:MGCML.MAC=DC0:MGCML.001
-200,200,/; RRW005/
	BNE	OKOUT		; YES
-211,215
	BR	OKOUT		; RETURN IT TO USER
-238
	CALL	POPSYM		; POP UP SYMBOL TABLE
-241,241
; EXITS FROM $MGCL1
-244,248
OUT:	MOVB	(SP),G.ERR(R5)	;++005 PUT RETURN CODE IN G.ERR
-256,277
	TRAP	EREOF		; EXIT WITH EOF ERROR MESSAGE
IOERR:	TRAP	ERFRD		; EXIT WITH FILE READ ERROR MESSAGE
OPRERR:	TRAP	ERFNF		; EXIT WITH FILE NOT FOUND MESSAGE
BIFERR:	TRAP	ERSYN		; EXIT WITH SYNTAX ERROR MESSAGE
MDEERR:	TRAP	ERIDE		; EXIT WITH INDIRECT DEPTH EXCEEDED MESSAGE
-280,280
-286,289
-293,296
	CALL	CSI		; INTERPRET FILE NAME				;PW001
-302,304
-431,432
-478,478,/; RRW002/
	MOV	FRSTDV,N.DVNM+G.DFNB(R5);DEFAULT DEVICE IS SY FOR LOWER OPEN'S	;PW001
	MOV	FRSTUN,N.UNIT+G.DFNB(R5)	; SET UP DEFAULT UNIT
	MOV	FRSTUI,R1			; GET DEFAULT UIC
	CALL	.WDFUI				; PUT IT IN FSR
-482
	BCC	10$		; BR IF OPEN OK
	MOV	SCNDDV,N.DVNM+G.DFNB(R5)	; SET UP SECONDARY DEVICE
	MOV	SCNDUN,N.UNIT+G.DFNB(R5)	; AND UNIT NO
	MOV	SCNDUI,R1			; GET SECONDARY UIC
	CALL	.WDFUI				; PUT IT IN FSR
	OPEN$R	R5,,R2				; TRY THE OPEN AGAIN
10$:;
/