New %TV100.

doc/_info_/tctyp.order

@@ -9,7 +9,7 @@ The basic commands are: AAA AMBASSADOR C100 CDI DATAMEDIA DATAPOINT
 DISAPPOINT DM2500 EXECUPORT GLASS GT40 GT44 H19 HEATH HP2640 IMLAC
 LA36 MBEE MEMOWRECK MINIBEE4 OIMLAC OMRON PRINTING S1GRINNEL SBEE
 SIMLAC SOFTWARE SUPERBEE T1061 T35 TEKTRONIX TELETYPE
-TERMINET TIMLAC TISILENT TT2500 TV VT50 VT52 Z19 340D.
+TERMINET TIMLAC TISILENT TT2500 TV VT100 VT50 VT52 Z19 340D.
 For other types of terminals, see INFO;CRTSTY >.
 
 User option flags are: MORE SAIL SCROLL STANDARDIZE UPPERCASE 
@@ -402,6 +402,8 @@ UPPERCASE	Causes conversion of lower case to upper case
 		on type-in. This sets the flag which ^_U
 		complements.
 
+VT100		Declares the terminal to be a DEC VT100.
+
 VT50		Declares the terminal to be a DEC VT50.
 
 VT52		Declares the terminal to be a DEC VT52.

doc/sysdoc/_calls.127

@@ -509,6 +509,7 @@ CNSGET:	get various console parameters				(ITS TTY)
 		14	%TNHDS	Concept 100
 		15	%TNH19	H19
 		16	%TNAAA	Ann Arbor Ambassador
+		17	%TN100	VT100
 	val 4	TTYCOM variable.
 		4.9		Communicate mode.
 		4.8	%TCLFT	Local feed through (my job sees his typing).
@@ -650,6 +651,7 @@ CNSSET:	set various console parameters				(ITS TTY)
 		14	%TNHDS	Concept 100
 		15	%TNH19	H19
 		16	%TNAAA	Ann Arbor Ambassador
+		17	%TN100	VT100
 	arg 5	TTYCOM variable.
 		4.6	%TCICO	Input comm override (my job sees my typing).
 		4.5	%TCOCO	Output comm override (I see my job's typing).

doc/sysdoc/itstty.41

@@ -2492,6 +2492,7 @@ The possible values are:
 %TNHDS==14	;Concept-100
 %TNH19==15	;H19
 %TNAAA==16	;Ann Arbor Ambassador
+%TNAAA==17	;VT100
 
 File: ITSTTY,  Node: H/1/d,  Previous: H/1/c,  Up: H/1,  Next: H/1/e
 

doc/sysdoc/ttyvar.105

@@ -160,6 +160,7 @@ TCTYP:	Terminal type code (per-TTY)
 	14	%TNHDS	Concept 100
 	15	%TNH19	Zenith H19
 	16	%TNAAA	Ann Arbor Ambassador
+	17	%TN100	VT100
 
      This variable can be read with the CNSGET and TTYVAR system calls
 and set with the CNSSET and TTYVAR system calls.

src/system/ts3tty.402

@@ -6355,6 +6355,7 @@ TYMDTB:	OFFSET -.
 %TNHDS::TYMDP		;HDS CONCEPT-100
 %TNH19::TYMH19		;H19
 %TNAAA::TYMAAA		;Ann Arbor Ambassador
+%TN100::TYM100		;VT100
 %TNMAX::OFFSET 0
 
 ;DISPLAY TERMINALS THAT HAVE RELATIVE CURSOR POSITIONING
@@ -7130,6 +7131,7 @@ CCUP:	0	;LINE-STARVE CHARACTER, - => IT NEEDS AN ESC IN FRONT OF IT
 	SETZ ";	;HDS
 	SETZ "A	;H19
 	0	;AAA
+	0	;VT100
 ;this entry isn't here because this is a stupid word table instead
 ;of a winning string table.
 ;       440700,,[.BYTE 7 ? 33 ? "[ ? "A ]	;AAA
@@ -7150,6 +7152,7 @@ CCHUP:	0	;HOME-UP SEQUENCE POINTER
 	440700,,[.BYTE 7 ? 33 ? "?] ;HDS
 	440700,,[.BYTE 7 ? 33 ? "H] ;H19
 	440700,,[.BYTE 7 ? 33 ? "[ ? "H]	;AAA
+	440700,,[.BYTE 7 ? 33 ? "[ ? "H]	;VT100
 IFN .-CCHUP-%TNMAX, .ERR SOME TCTYP SETTING LACKS CCHUP
 
 CCHDP:	440700,,CCHD
@@ -7171,6 +7174,7 @@ CCEOLP:	0	;PRT
 	      440700,,[<.BYTE 7 ? 33 ? 23>+1 ? 16.] ]	;HDS 9600
 	440700,,[.BYTE 7 ? 33 ? "K]	;H19
 	440700,,[.BYTE 7 ? 33 ? "[ ? "K]	;AAA
+	440700,,[.BYTE 7 ? 33 ? "[ ? "K]	;VT100
 IFN .-CCEOLP-%TNMAX,.ERR SOME TCTYP SETTING LACKS %TDEOL
 
 CCEOFP:	0	;PRT
@@ -7192,6 +7196,7 @@ CCEOFP:	0	;PRT
 	    440700,,[<.BYTE 7 ? 33 ? 23>+1 ? 16.] ] ;HDS 9600
 	440700,,[.BYTE 7 ? 33 ? "J]	;H19
 	440700,,[<.BYTE 7 ? 33 ? "[ ? "J>+1 ? 5.]	;AAA 5 ms padding
+	440700,,[<.BYTE 7 ? 33 ? "[ ? "J>+1 ? 5.]	;VT100 5 ms padding
 IFN .-CCEOFP-%TNMAX,.ERR SOME TCTYP SETTING LACKS %TDEOF
 
 CCDLFP:	0	;PRT
@@ -7209,6 +7214,7 @@ CCDLFP:	0	;PRT
 	0	;HDS
 	0	;H19
 	0	;AAA
+	0	;VT100
 IFN .-CCDLFP-%TNMAX,.ERR SOME TCTYP SETTING LACKS %TDDLF
 
 CCROLP:	0	;PRT
@@ -7227,6 +7233,7 @@ CCROLP:	0	;PRT
 	440700,,[<.BYTE 7 ? ^M ? ^J ? 33 ? 23>+1 ? 16.]	;HDS
 	440700,,[.BYTE 7 ? ^M ? ^J ? 33 ? "K]	;H19
 	440700,,[.BYTE 7 ? ^M ? ^J ? 33 ? "[ ? "K ? 0]	;AAA
+	440700,,[.BYTE 7 ? ^M ? ^J ? 33 ? "[ ? "K ? 0]	;VT100
 IFN .-CCROLP-%TNMAX,.ERR SOME TCTYP SETTING LACKS %TDCRL
 
 ;CRLF ON DATAPOINTS, DEPENDING ON LOSER-NESS AND SPEED.
@@ -7255,6 +7262,8 @@ CCCLRP:	0		;CLEAR THE SCREEN SEQUENCE POINTER
 	440700,,[.BYTE 7 ? 33 ? "H ? 33 ? "J ? 0]	;H19
 	440700,,[<.BYTE 7 ? 33 ? "[ ? "H ? 33 ? "[ >
 		 <.BYTE 7 ? "J>+1 ? 5.]		;AAA needs 5 ms padding
+	440700,,[<.BYTE 7 ? 33 ? "[ ? "H ? 33 ? "[ >
+		 <.BYTE 7 ? "J>+1 ? 5.]		;VT100 needs 5 ms padding
 
 IFN .-CCCLRP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDCLR
 
@@ -7283,6 +7292,7 @@ CCILPP:	0	;PRT
 		    440700,,[<.BYTE 7 ? 33 ? "L>]	; no padding at all at 1200 baud
 		    440700,,[<.BYTE 7 ? 33 ? "L>+1 ? -6.]]]	; .75 ms/line at higher
 	"L			;AAA (AAA's use this table differently)
+	"L			;VT100
 
 IFN .-CCILPP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDILP
 
@@ -7308,6 +7318,7 @@ CCDLPP:	0	;PRT
 		    440700,,[<.BYTE 7 ? 33 ? "M>]	; no padding at all at 1200 baud
 		    440700,,[<.BYTE 7 ? 33 ? "M>+1 ? -6.]]]	; .75 ms/line at higher
 	"M			;AAA (AAA's use this table differently)
+	"M			;VT100
 IFN .-CCDLPP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDDLP
 
 CCICPP:	0	;PRT
@@ -7333,6 +7344,7 @@ CCICPP:	0	;PRT
 	             <.byte 9 ? 33 ? 400 >+1 ? 16.]]	; 16 ms per insert >1200
 	440700,,[.BYTE 7 ? 33 ? "@ ? 40 ? 10 ? 33 ? "O]	;H19
 	"@			;AAA's use this table differently
+	"@			;VT100
 IFN .-CCICPP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDICP
 
 CCDCPP:	0	;PRT
@@ -7353,6 +7365,7 @@ CCDCPP:	0	;PRT
 	    440700,,[<.byte 7 ? 33 ? 21>+1 ? 16.]]	; 16 ms per del at >1200
 	["P ? 440700,,[.BYTE 7 ? 33 ? "N]]	;H19's also use this table differently
 	"P			;AAA's use this table differently
+	"P			;VT100
 IFN .-CCDCPP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDDCP
 
 CCBOWP:
@@ -7362,6 +7375,7 @@ CCBOWP:
 	440700,,[.BYTE 7 ? 33 ? "D]	;HDS
 	440700,,[.BYTE 7 ? 33 ? "p]	;H19
 	440700,,[.BYTE 7 ? 33 ? "[ ? "7 ? "m]	;AAA
+	440700,,[.BYTE 7 ? 33 ? "[ ? "7 ? "m]	;VT100
 IFN .-CCBOWP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDBOW
 
 CCRSTP:
@@ -7372,6 +7386,7 @@ CCRSTP:
 	440700,,[.BYTE 7 ? 33 ? "d]	;HDS
 	440700,,[.BYTE 7 ? 33 ? "q]	;H19
 	440700,,[.BYTE 7 ? 33 ? "[ ? "m]	;AAA - this is not RIS,
+	440700,,[.BYTE 7 ? 33 ? "[ ? "m]	;VT100
 ;which could screw you over if your default state were a bad one. It's
 ;just SGR 0.
 IFN .-CCRSTP-%TNMAX, .ERR SOME TCTYP SETTING LACKS %TDRST