TTYTST - echo characters exactly as typed.

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"

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.

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