.TITLE	.GTMCL
	.IDENT	/V1.0/
; GET MCR COMMAND LINE  (FORTRAN CALLABLE) ... TO GO WITH MCRCLR ($.$MCR)
GETMCR::			;FORTRAN CALL DEFINED IN EXEC REFERENCE MANUAL
	CALL	$.$MCR		;MAKE SURE YOU GOT A CMD LINE
	MOV	(R5)+,R0	;GET ARG COUNT
	DEC	R0		;GOT 1 ARG?
	BLT	20$		; NOPE
	MOV	(R5)+,R1	;GET ADDRESS OF BUFFER
	CMP	R1,#-1		; DEFAULTED?
	BEQ	10$		;YES...DON'T COPY IT
	MOV	#$.$MCB+G.MCRB,R2	;GET ADDR OF MCR LINE
	MOV	#80.,R3		;SET SIZE
5$:	MOVB	(R2)+,(R1)+	;COPY
	SOB	R3,5$
10$:	DEC	R0		;GOT 2ND ARG?
	BLT	20$		; NOPE
	CMP	(R5),#-1	;REALLY THERE?
	BEQ	20$
	MOV	$.$MCB-2,@(R5)	;SET $DSW
20$:	RETURN

	.END