From d4eb628d83f6c3ee95abd727a41a4974621aa91d Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 18 Oct 2025 17:33:57 +0200
Subject: [PATCH] LINC: Test for teletype output.

---
 linc/tests/tty.do   | 53 +++++++++++++++++++++++++++++++++++++++++++++
 linc/tests/tty.lap6 | 53 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 106 insertions(+)
 create mode 100644 linc/tests/tty.do
 create mode 100644 linc/tests/tty.lap6

diff --git a/linc/tests/tty.do b/linc/tests/tty.do
new file mode 100644
index 00000000..b70a3008
--- /dev/null
+++ b/linc/tests/tty.do
@@ -0,0 +1,53 @@
+SET CRT DISABLED
+RESET
+DELETE printer.txt
+ATTACH TTY printer.txt
+DEPOSIT 0020 RTA
+DEPOSIT 0021 BSE i
+DEPOSIT 0022  1
+DEPOSIT 0023 ATR
+DEPOSIT 0024 SET i 12
+DEPOSIT 0025  -430
+DEPOSIT 0026 XSK i 12
+DEPOSIT 0027  JMP 26
+DEPOSIT 0030 SET i 1
+DEPOSIT 0031  57
+DEPOSIT 0032 SET i 2
+DEPOSIT 0033  -20
+DEPOSIT 0034 LDA i 1
+DEPOSIT 0035 STC 44
+DEPOSIT 0036 RTA
+DEPOSIT 0037 SET i 11
+DEPOSIT 0040  -13
+DEPOSIT 0041 BCL i
+DEPOSIT 0042  1
+DEPOSIT 0043 SRO i
+DEPOSIT 0045 ADD 42
+DEPOSIT 0046 ATR
+DEPOSIT 0047 SET i 12
+DEPOSIT 0050  -430
+DEPOSIT 0051 XSK i 12
+DEPOSIT 0052  JMP 51
+DEPOSIT 0053 XSK i 11
+DEPOSIT 0054  JMP 41
+DEPOSIT 0055 XSK i 2
+DEPOSIT 0056  JMP 34
+DEPOSIT 0057 HLT
+DEPOSIT 0060 3220
+DEPOSIT 0061 3212
+DEPOSIT 0062 3230
+DEPOSIT 0063 3230
+DEPOSIT 0064 3236
+DEPOSIT 0065 3100
+DEPOSIT 0066 3250
+DEPOSIT 0067 3212
+DEPOSIT 0070 3230
+DEPOSIT 0071 3212
+DEPOSIT 0072 3250
+DEPOSIT 0073 3262
+DEPOSIT 0074 3240
+DEPOSIT 0075 3212
+DEPOSIT 0076 3032
+DEPOSIT 0077 3024
+GO 20
+QUIT
diff --git a/linc/tests/tty.lap6 b/linc/tests/tty.lap6
new file mode 100644
index 00000000..fefd4cdd
--- /dev/null
+++ b/linc/tests/tty.lap6
@@ -0,0 +1,53 @@
+	@20
+	RTA
+	BSE i	 [MARK STATE
+	 1
+	ATR
+	SET i 12 [GIVE TTY TIME
+	 -430
+	XSK i 12
+	 JMP p-1
+	SET i 1	 [TEXT DATA
+	 2A-1
+	SET i 2	 [TEXT LENGTH
+	 2A-2B
+#1A	LDA i 1	 [GET NEXT CHARACTER
+	STC 1D
+	RTA
+	SET i 11 [OUTPUT 11 BITS
+	 -13	 [1 START, 8 DATA
+#1B	BCL i	 [AND 2 STOP
+#1C	 1
+	SRO i
+#1D
+	ADD 1C
+	ATR	 [OUTPUT BIT TO RELAY
+	SET i 12
+	 -430    [DELAY FOR 110 BAUD
+	XSK i 12
+	 JMP p-1
+	XSK i 11
+	 JMP 1B	 [NEXT BIT
+	XSK i 2
+	 JMP 1A	 [NEXT CHARACTER
+	HLT
+
+	[ASCII TEXT WITH ONE 0 START
+	[BIT AND TWO 1 STOP BITS
+#2A	3220 [H
+	3212 [E
+	3230 [L
+	3230 [L
+	3236 [O
+	3100 [ 
+	3250 [T
+	3212 [E
+	3230 [L
+	3212 [E
+	3250 [T
+	3262 [Y
+	3240 [P
+	3212 [E
+	3032 [CR
+	3024 [LF
+#2B