DC0:INDMCR.MAC=DC0:INDMCR.001
-43,,/; RRW001/
;
;	LIST COMMAND ON TI UNLESS REQUESTED NOT TO
;
	BIT	#NOLIST,.LIFLG	; NOLIST REQUESTED?
	BNE	7$		; BR IF Y
	CALL	PRMSG1		; LIST THE COMMAND
	MOV	SPWCA,R1	; RESTORE R1
	MOV	SPWCL,R2	; AND R2
	BCS	100$		; BR IF ERROR DOING LISTING
7$:;
-54,62,/; RRW005/
	BEQ	NEST		; GO PROCESS NESTED INDIRECT FILE
	CMPB	R0,#'!		; COMMENT?
	BEQ	90$		; Y - JUMP
	CMPB	R0,#';
	BEQ	90$
-65,65,/; RRW001/
-71,72
-87,91
50$:	MOV	R1,R0		; POINT TO COMMAND NAME FOR CAT5
-123,124,/; RRW005/
	BCS	NEST1		; GO SEE IF IT IS A COMMAND FILE
90$:	CLC			; CLEAR ERROR FLAG
100$:	RETURN			; RETURN
;
;	PROCESS NESTED COMMAND FILE CALLS
;	 SET UP FOR AND CALL TPARS TO PARSE COMMAND FILE
;	 TPARS ACTION ROUTINES WILL OPEN THE NEW FILE AND TAKE CARE
;	 OF THE SYMBOL TABLE ETC.
;
NEST:;
	INC	SPWCA		; SKIP OVER @
	DEC	SPWCL		; ADJUST COUNT
NEST1:	CLR	ARGNO		; RESET POSITIONAL ARGUMENT COUNTER
	MOV	#1,R1		; TELL TPARS NOT TO IGNORE BLANKS
	MOV	#KEYTAB,R2	; POINT TO KEYWORD TABLE
	MOV	SPWCL,R3	; GET COMMAND LINE LENGTH
	MOV	SPWCA,R4	; AND ITS ADDRESS
	MOV	#COMND,R5	; POINT TO 1ST STATE TABLE
	CALL	.TPARS		; CALL TPARS
	BCS	100$		; BR IF UNABLE TO PARSE COMMAND CORRECTLY
	RETURN			; OTHERWISE JUST RETURN
;
100$:	TRAP	ERSYN		; EXIT WITH SYNTAX ERROR MESSAGE
/