From 935e53a458d4f37e35de4f2c5614dea2879b71aa Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 15 Oct 2018 13:13:20 +0000
Subject: [PATCH] TTYTST - echo characters exactly as typed.

---
 build/misc.tcl      |  4 ++++
 doc/programs.md     |  1 +
 src/sysen2/ttytst.3 | 23 +++++++++++++++++++++++
 3 files changed, 28 insertions(+)
 create mode 100755 src/sysen2/ttytst.3

diff --git a/build/misc.tcl b/build/misc.tcl
index 6e359a95..9776a577 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -215,6 +215,10 @@ expect ":KILL"
 respond "*" ":midas sys2;ts octpus_gren;octpus\r"
 expect ":KILL"
 
+# TTYTST
+respond "*" ":midas sys3;ts ttytst_sysen2;ttytst\r"
+expect ":KILL"
+
 # GOTO
 respond "*" ":midas sys3;ts goto_kmp; goto\r"
 expect ":KILL"
diff --git a/doc/programs.md b/doc/programs.md
index 1f21125f..14ec67a3 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -270,6 +270,7 @@
 - TTY, displays TTYs with UNAME/JNAME/CORE and other info.
 - TTYLIN, Chaosnet TTYLINK server.
 - TTYSWP, swap TTYs.
+- TTYTST, echo characters exactly as typed.
 - TYPE8, type 8-bit file.
 - UFIND, find users.
 - ULISP, Lisp in Lisp.
diff --git a/src/sysen2/ttytst.3 b/src/sysen2/ttytst.3
new file mode 100755
index 00000000..82989fa4
--- /dev/null
+++ b/src/sysen2/ttytst.3
@@ -0,0 +1,23 @@
+;Program to echo characters exactly as typed (super image output).
+a=1
+
+ch==777777  ;Bit typeout mode mask.
+chttyi==1
+chttyo==2
+
+start:	.open chttyi,['tty]
+	 .lose
+	.open chttyo,[%tjsio+.uao,,'tty]
+	 .lose
+	; Turn off normal echoing.  Make everything activate.
+	.call [setz ? 'ttyget ? %climm,,chttyi
+		%clout,,a ? %clout,,a ? 400000+%clout,,a]
+	 .lose %lsfil
+	.call [setz ? 'ttyset ? %climm,,chttyi
+		[020202,,020202] ? [020202,,020202] ? 400000,,a]
+	 .lose %lsfil
+loop:	.iot chttyi,a
+	.iot chttyo,a
+	jrst loop
+
+end start