/
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)		1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/VERSION=1
/
	.TITLE SUBROUTINE TBCON

/TB SET THE TTYFLG FLAG TO SIGNAL THE SYSTEM THAT CONTROL
/FILES FOR THE TTY TASK WILL BE BUILT

	.FSECT	TBCON
	.ENTRY	TB
	.EXTERNAL TABLE1,TTYFLG,TTALLY,UQ,TTYIO,TYPE

	FIELD	1
TB,	0
	CLA
	TAD	(CIF CDF)
	RDF
	DCA	TB10
				/SETUP FOR RETURN
	CDF	TABLE1
	TAD	TTALLY
	SNA
	JMP	TB1
				/CHECK IF TTY CONTROL FILES ARE REQUIRED
	CLA
	ISZ	TTYFLG
				/SET THE TTY CONTROL FILES FLAG
	TAD	(322
	DCA	TYPE
				/SET OUTPUT TYPE FOR "R"
	CDF	.FLD
	CIF	UQ
	JMS I	TB2
				/USE UQUES TO BLANK SYSTEM INFORMATION
	CDF	.FLD
	CIF	TTYIO
	JMS I	TB3
				/OUTPUT TTY CONTROL FILE INFORMATION
TB10,	0
	JMP I	TB
				/RETURN
	


TB1,	CLA
	DCA	TTYFLG
	JMP	TB10
				/RESET TTYFLG FOR POSSIBLE REENTRY
TB2,UQ		/LINK TO UQUES ROUTINE
TB3,TTYIO	/LINK TO TTYDVR OUTPUT ROUTINE