github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-23 17:22:35 +00:00
Code Issues Releases Wiki Activity

New %TV100.

Browse Source
This commit is contained in:
Lars Brinkhoff
2021-01-26 11:58:02 +01:00
parent 84e4c5793c
commit 86eac6bf9c
5 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/system/ts3tty.402
View File

@@ -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