From 84e4c5793c477cf3ada2219834d7c54fbf59e8d4 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 27 Feb 2020 12:21:46 +0100
Subject: [PATCH] New %TN terminal type for VT100.  #641

---
 src/syseng/crtsty.1377 |   1 +
 src/syseng/tctyp.154   | Bin 39367 -> 39383 bytes
 src/system/bits.117    |   3 ++-
 src/system/its.1650    |   2 +-
 src/system/ts3tty.402  |   3 ++-
 5 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/syseng/crtsty.1377 b/src/syseng/crtsty.1377
index a1990d52..b2646cf5 100755
--- a/src/syseng/crtsty.1377
+++ b/src/syseng/crtsty.1377
@@ -2567,6 +2567,7 @@ tctypt:	offset 0-.
 %tnhds:: c100			; Concept 100
 %tnh19:: h19			; Heath 19
 %tnaaa:: aaa			; Ann Arbor Ambassador
+%tnvt1:: vt100			; VT100
 %tnmax::
 	offset 0
 
diff --git a/src/syseng/tctyp.154 b/src/syseng/tctyp.154
index 04a13533c8b33502bc0a650fc561bc42077f32b4..4f8bf571b069fe116ff1aa917b8357ee3e9be737 100755
GIT binary patch
delta 38
tcmX@Und$mwrVURVn8QL0H$QhM(&gjy^$&CPRB+aD1PU2!4$mvl1^_C!4Y>dS

delta 23
fcmcb<nd$gurVURVm>nG*H$QhM(%qbym!}N?gQyBW

diff --git a/src/system/bits.117 b/src/system/bits.117
index 3dac180b..7680ca0f 100755
--- a/src/system/bits.117
+++ b/src/system/bits.117
@@ -768,7 +768,8 @@ DEFSYM	%TNRAY==:13	;TELERAY 1061
 DEFSYM	%TNHDS==:14	;HDS CONCEPT-100
 DEFSYM	%TNH19==:15	;H19
 DEFSYM	%TNAAA==:16	;Ann Arbor Ambassador
-DEFSYM	%TNMAX==:17
+DEFSYM	%TNVT1==:17	;VT100
+DEFSYM	%TNMAX==:20
 
 
 ;TTYOPT WORD DESCRIBES CHARACTERISTICS OF THE PARTICULAR
diff --git a/src/system/its.1650 b/src/system/its.1650
index 068b1488..f768f94e 100644
--- a/src/system/its.1650
+++ b/src/system/its.1650
@@ -319,7 +319,7 @@ T!N!$ROL==ROL
 TERMIN
 
 ;DEFINE TTY AS VT100
-DEFINE TTDVT100 N,+SPEED=9600,ISPEED=,TT=0,TY=0,TO=0,TP=%TPORS+%TPMTA,HOR=80.,VER=24.,TCT=%TNAAA,ROL=1,SMARTS=0
+DEFINE TTDVT100 N,+SPEED=9600,ISPEED=,TT=0,TY=0,TO=0,TP=%TPORS+%TPMTA,HOR=80.,VER=24.,TCT=%TNVT1,ROL=1,SMARTS=0
 T!N!$SMT==SMARTS,,
 T!N!$HOR==HOR
 T!N!$VER==VER
diff --git a/src/system/ts3tty.402 b/src/system/ts3tty.402
index 8bcafbdc..ee449e0b 100755
--- a/src/system/ts3tty.402
+++ b/src/system/ts3tty.402
@@ -8020,7 +8020,8 @@ TCTYP:	TTYREP TCT	;THIS WORD SAYS HOW TO PERFORM
 %TNHDS==14	;HDS CONCEPT-100
 %TNH19==15	;H19/Z19
 %TNAAA==16	;AAA
-%TNMAX==17
+%TNVT1==17	;VT100
+%TNMAX==20
 
 ;TTYOPT WORD DESCRIBES CHARACTERISTICS OF THE PARTICULAR
 ;TERMINAL ATTACHED TO EACH LINE.