.TITLE	GETMCX
	.IDENT	/V01/
;+
;FORTRAN SUBR TO ISSUE GET MCR COMMAND LINE
;	CALL:
;      CALL GETMCX(BUF,IDSW)
;	BUF IS 41 WORD BUFFER TO BULID DPD
;-
GETMCX::MOV	2(R5),R0	;GET MCR BUFFER ADR
	MOV	(PC)+,-(R0)	;FOR GETMCR DPD
	.BYTE	127.,41.
	MOV	R0,-(SP)	;PUSH DPB ADR
	EMT	377
	MOV	$DSW,@4(R5)	;RETURN DIRECTIVE STATUS
	RTS	PC
	.END