C$UT	PUTMCR	PASS AN ASCII COMMAND LINE TO MCR
C.	10-APR-78	P.H. CANNON
C.
C.	CALL PUTMCR(NB,LINE,LUN,TERM)
C.
C.	WHERE:
C.	NB	IS THE NUMBER OF BYTES IN THE CHARACTER ARRAY LINE
C.	LINE	AN ARRAY CONTAINING THE ASCII CHARACTER STRING TO BE
C.		SENT TO "MCR".
C.	LUN	A SCRATCH LOGICAL UNIT (USUALLY NOT LUN 5) THAT CAN BE USED 
C.		BY THIS SUBROUTINE TO ISSUE A QIO TO THE MC DRIVER.
C.	TERM	THE TERMINAL NUMBER ONE WISHES MCR TO USE FOR ANY ERROR
C.		MESSAGES THAT "MCR" MAY WANT TO PRINT.
C.		0 => TT0: , 1 => TT1: , ETC.
C.		-1 => TI: (NOTE: IT IS ASSUMED THAT THE CALLING PROGRAM'S
C.		LUN 5 IS ASSIGNED TO TI:)
C.		-2 => NON-EXISTANT TERMINAL (NO ECHO,PROMPT, OR ERROR 
C.		MESSAGES RETURNED)
C.
C.
	SUBROUTINE PUTMCR(NB,LINE,LUN,TERM)
	LOGICAL*1 LINE(1)
	INTEGER*2 NB,LUN,IPAR(6),IOWLB
	INTEGER*2 LUNINF(6),TERM
	DATA IOWLB/"400/
C	CHECK TO SEE IF THE CALLER WANTS  TI:  FOR A TEERMINAL
	IF(TERM .NE. -1) GO TO 100
C	ASSUME THAT THE CALLING PROGRAM HAS LUN 5 ASSIGNED TO THE  TI:
C	TERMINAL.
	CALL GETLUN(5,LUNINF,IDS)
C	GET THE UNIT NUMBER OF THE  TI:  TERMINAL
	TERM=LUNINF(2) .AND. "377
100	CONTINUE
C	ASSIGN THE LOGICAL UNIT TO THE MC DRIVER
	CALL ASNLUN(LUN,'MC',0)
C	GET THE ADDRESS OF THE ASCII COMMAND STRING
	CALL GETADR(IPAR(1),LINE)
C	NUMBER OF BYTES IN THE COMMAND STRING
	IPAR(2)=NB
C	SEND THE TERMINAL NUMBER
	IPAR(3)=TERM
	CALL WTQIO(IOWLB,LUN,32,,,IPAR,IDS)
	RETURN
	END