.TITLE	MCRCLR
	.IDENT	/V1.0/
; READ THE MCR COMMAND LINE AND SAVE IT FOR FORTRAN CALL TO GETMCR
	.MCALL	DIR$,GMCR$

$.$MCR::			;THIS ENTRY IS CALLED BY THE RUN-TIME
	CMP	DSW,#100000	;GOT LINE ALREADY?
	BNE	1$		; YES
	DIR$	#$.$MCB
	MOV	@#$DSW,DSW	;SAVE THE RETURN CODE
1$:	RETURN

DSW:	.WORD	100000
$.$MCB::	GMCR$
	.END