/
/
/
/
/
/
/
/
/
/
/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 TACON

/TA HANDLES THE SPECIAL FUNCTION OF CREATING ENTRIES IN
/LOCATIONS 770 TO 773 OF POINTERS TO DEVICE NUMBERS
/FOR FLOPPY CONTROLLERS.  TA ALSO CREATES AN ENTRY IN
/TNUM OF THE OS/8 PACKED DEVICE NUMBERS ENTERED BY THE USER.

	.RSECT	TACON
	.ENTRY	TA
	.EXTERNAL FTALLY,ANSPTR,NUMPTR,TTYPTR,MAIN12,OCTD,DIRLOC,OFLAG
	.EXTERNAL PACK8,MOVE,MOV,TTTY,UNPACK,UNP1,RECLOC,UQ,TYPE
	.EXTERNAL TABLE1,PCK,PCKPTR,TNUM,OVRPTR,TTYIO,QUES,TFG,TQES

	FIELD	1
TA,	0
	CLA
	TAD	(CIF CDF)
	RDF
	CDF	.FLD
	DCA	TA20
				/SETUP FOR RETURN
	CDF	TABLE1
	TAD	PCKPTR
	TAD	(2
	DCA	10
				/POINT TO THIRD CHARACTER (ENTRY NUMBER)
	STA
	TAD I	10
	AND	(7
				/ADD IT TO BASE OF FLOPPY CONTROL ENTRIES
				/IN ANSWER TABLE
	TAD	FTALLY
	DCA	SAVE
				/SAVE POINTER TO ENTRY IN ANSPTR
	TAD	(317
	DCA	TYPE
				/SETUP FOR OCTAL ANSWER
	CDF	.FLD
	CIF	UQ
	JMS I	TA23
				/GO ASSIGN USER NUMBER
	CDF	.FLD
	CIF	TTYIO
	JMS I	TA7
				/OUTPUT T-RECORD
	CDF	TABLE1
	CLA
	TAD	TTYPTR
	DCA	11
	TAD I	11
				/GET FIRST CHARACTER OF USER ANSWER
	TAD	(-277
	SNA
	JMP	TA15
				/IF USER WANTS REMARK RETURN TO MAIN
	TAD	(277-243
	SNA
	JMP	TA15
				/IF USER WANTS CHANGE FUNTION, RETURN
				/TO MAIN
	CLA
				/FTALLY RANGES 770 TO 773
	TAD	SAVE
	DCA	TQES
				/GET ENTRY TO CONTROL FILE AREA
	ISZ	OFLAG
				/OCTAL DEVICE CODE EXPECTED
	CDF	.FLD
	CIF	OCTD
	JMS I	TA14
				/USE ROUTINE OCTDEC TO PLACE PACKED ANSWER
				/IN TNUM, AND POINTER IN 77X
	CDF	TABLE1
	CLA
	TAD	DIRLOC
	TAD	(3
	DCA	DIRLOC
			/INCREMENT PAST REMARK
TA20,	0
	JMP I	TA
				/RETURN TO MAIN.


TA15,	CLA
	CIF	MAIN12
	JMP I	TA16
			/HERE WHEN # OR ? RESPONSE, RETURN TO MAIN
			/TO HANDLE



TA14,OCTD		/LINK TO OCTDEC ROUTINE
TA16,MAIN12		/ENTRY TO MAIN1 TO AVOID RECORD OUTPUT
TA2,	PCK		/LINK TO PACK ROUTINE
TA4,UNP1		/LINK TO UNPACK ROUTINE
TA7,TTYIO		/LINK TO RECORD OUTPUT ROUTINE
MOVER,	MOV		/LINK TO MOVE ROUTINE
TA23,UQ		/LINK TO USER NUMBER ROUTINE
SAVE,0			/SAVE FOR CF ENTRY DURING CALL TO UQUES