From 86eac6bf9c40f580da7c7a7ef73366583aff994e Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Tue, 26 Jan 2021 11:58:02 +0100 Subject: [PATCH] New %TV100. --- doc/_info_/tctyp.order | 4 +++- doc/sysdoc/_calls.127 | 2 ++ doc/sysdoc/itstty.41 | 1 + doc/sysdoc/ttyvar.105 | 1 + src/system/ts3tty.402 | 15 +++++++++++++++ 5 files changed, 22 insertions(+), 1 deletion(-) diff --git a/doc/_info_/tctyp.order b/doc/_info_/tctyp.order index 1d9d8d98..e492cc67 100755 --- a/doc/_info_/tctyp.order +++ b/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. diff --git a/doc/sysdoc/_calls.127 b/doc/sysdoc/_calls.127 index 5cdf6ce7..8f1143fb 100755 --- a/doc/sysdoc/_calls.127 +++ b/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). diff --git a/doc/sysdoc/itstty.41 b/doc/sysdoc/itstty.41 index b29a0c07..4693fb01 100755 --- a/doc/sysdoc/itstty.41 +++ b/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 diff --git a/doc/sysdoc/ttyvar.105 b/doc/sysdoc/ttyvar.105 index abfa4fb9..4e0df2c0 100644 --- a/doc/sysdoc/ttyvar.105 +++ b/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. diff --git a/src/system/ts3tty.402 b/src/system/ts3tty.402 index ee449e0b..9d9a9260 100755 --- a/src/system/ts3tty.402 +++ b/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