.TITLE	INDCLS - CLOSE INDIRECT INPUT FILE

	.IDENT	"X0205"

;
; COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION,
; MAYNARD, MASSACHUSETTS
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
; SINGLE  COMPUTER  SYSTEM AND MAY BE COPIED ONLY WITH THE IN-
; CLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE,  OR
; ANY  OTHER  COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR  USE  ON  SUCH
; SYSTEM  AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE
; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL  TIMES  REMAIN
; IN DIGITAL.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITH-
; OUT  NOTICE  AND  SHOULD NOT BE CONSTRUED AS A COMMITMENT BY
; DIGITAL EQUIPMENT CORPORATION.
;
; DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY  FOR
; THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS
; NOT SUPPLIED BY DIGITAL.
;
; 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