.TITLE	PUTMCR
	.IDENT	/R01.1/
;
;	MODULE TO TAKE INPUT OF ADDR 1ST CHAR, LENGTH IN CHARS
;	
;	OUTPUT MCR COMMAND LINE
;
;
	.MCALL	DIR$

DPB:	.BYTE	79.,3		;DPB TYPE AND SIZE
DPBLEN:	.WORD	0
DPBADD:	.WORD	0

	
PUTMCR::
	CMPB	#1,(R5)		;CALL ED BY CORAL
	BEQ	PCOR		;YES
	CMPB	#2,(R5)		;CALLED BY FORTRAN
	BEQ	PFOR		;YES
ERR:	MOV	#177777,R0	;SAY ERROR
	RETURN
PFOR:	
	TST	(R5)+
	MOV	@(R5)+,DPBLEN
	MOV	(R5),DPBADD
	BR 	RET
PCOR:
	TST	(R5)+			;SKIP NUMBER OF PARAMS
	MOV	@(R5),DPBLEN
	MOV	(R5),DPBADD
	ADD	#2,DPBADD
RET:	CMP	DPBLEN,#80.
	BEQ 	1$
	MOV	DPBLEN,R0
	ADD	DPBADD,R0
	MOVB	#33,(R0)
	INC	DPBLEN
1$:	DIR$	#DPB,ERR
	MOV	#1,R0
	RETURN
	.END