.TITLE	INDCLS - CLOSE INDIRECT INPUT FILE

	.IDENT	"X0205"

; ANDREW C. GOLDSTEIN  30-JUN-77  13:02


	.MCALL	CLOSE$

;+
;
; *** INDCLS	CLOSE THE INDIRECT FILE AND RETURN TO TERMINAL INPUT.
;
; INPUTS:	NONE
;
; OUTPUTS:
;
;	ALL REGISTERS PRESERVED
;
;-

	.PSECT	CODE,RO

INDCLS::MOV	R0,-(SP)	; SAVE R0 FOR TECO MAIN
	MOV	INDIR(R5),R0	; CLOSE THE INDIRECT FILE IF IT'S OPEN
	BEQ	10$		; BRANCH IF NOT OPEN
	CLOSE$	R0		; CLOSE IT

	CLR	CMDFDB+F.NRBD	; FLUSH REMAINING RECORD BUFFER
	TSTB	CCLFLG		; SEE IF COMMAND LINE IS WAITING
	BNE	10$		; BRANCH IF YES
	CLR	INDIR(R5)	; ELSE BACK TO TERMINAL INPUT
10$:	MOV	(SP)+,R0	; RESTORE R0
	RETURN



	.END