.ENABL	LC 
	.TITLE	ECO - Echo command line. 
	.IDENT	/01/ 
;+ 
; Title:	ECO - Echo passed command line
; Version:	01
; Author:	Greg Thompson (Informatics/PMI)
; Date:		8/14/78 
;
;	This command just echos the command line passed to it. 
; It is useful from indirect files and for debugging.
;- 
	.MCALL	QIOW$,GMCR$,DIR$,ALUN$,EXIT$S
;
;	Equates
;
TILUN	=	1		; TI Logical Unit Number
TIEF	=	1		; Event Flag for TI
SPA	=	040		; Ascii space 
;
GMCR:	GMCR$			; Get MCR command line 
QIOTI:	QIOW$	IO.WLB,TILUN,TIEF,,,,<0,0,040>
ALUN:	ALUN$	TILUN,TI,0	; Assign TI 
;
;	Start of code
;
START:	DIR$	#ALUN		; Try to assign TI: 
	BCS	20$		; Woops no TI
	DIR$	#GMCR		; Get MCR command line
	MOV	#GMCR+G.MCRB,R0	; Get ptr to buffer 
	MOV	$DSW,R1		; Get length of line 
10$:	DEC	R1		; Subtract one from length
	BLE	20$		; Woops line ran out 
	CMPB	(R0)+,#SPA	; Next byte a space?
	BNE	10$		; No 
	MOV	R0,QIOTI+Q.IOPL	; Set buffer address
	MOV	R1,QIOTI+Q.IOPL+2 ; Set length of line
	DIR$	#QIOTI		; Write line to TI:
20$:	EXIT$S			; Done 
;
	.END	START		; End of code