From f2f56bc58c2eb178dd7d6d479835296b0cd98e21 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 9 Nov 2021 11:47:44 +0100
Subject: [PATCH] Provide emulated dial-up lines.

For LMODEM to work, it requires a TTY line to have the %TYDIL dial-up
bit set in TTYTYP.  Only TK-10, Morton, and DTE-20 controllers are
recognized.
---
 build/mchn/KA/run                     | 1 +
 build/pdp10-kl/run                    | 2 ++
 build/simh/boot                       | 4 +++-
 src/system/{ttytyp.321 => ttytyp.322} | 6 +++---
 4 files changed, 9 insertions(+), 4 deletions(-)
 rename src/system/{ttytyp.321 => ttytyp.322} (99%)

diff --git a/build/mchn/KA/run b/build/mchn/KA/run
index 758d2139..82ef64a1 100644
--- a/build/mchn/KA/run
+++ b/build/mchn/KA/run
@@ -30,6 +30,7 @@ at mty 10003 speed=50000
 at mty line=9,10018 speed=9600
 at mty line=8,10017 speed=9600
 at mty line=7,10016;notelnet speed=50000
+at mty line=6,10015 speed=9600
 set ten11 enabled
 at ten11 10011
 set auxcpu enabled
diff --git a/build/pdp10-kl/run b/build/pdp10-kl/run
index bdbf507a..d5aadd67 100644
--- a/build/pdp10-kl/run
+++ b/build/pdp10-kl/run
@@ -13,6 +13,8 @@ at tty 10007
 at tty line=14,10018 speed=9600
 # Tektronix
 at tty line=13,10017 speed=9600
+# Dial-up
+at tty line=12,10015 speed=9600
 set pd ena
 set pd on
 set mta type=b
diff --git a/build/simh/boot b/build/simh/boot
index e9d1d845..08d2e656 100644
--- a/build/simh/boot
+++ b/build/simh/boot
@@ -7,7 +7,9 @@ at dz0 10004
 # VT52
 at dz0 line=7,10018
 # GT40
-at tty line=6,10019
+at dz0 line=6,10019
+# Dial-up
+at dz0 line=5,10015
 set rp0 rp06
 at rp0 out/simh/rp0.dsk
 b rp0
diff --git a/src/system/ttytyp.321 b/src/system/ttytyp.322
similarity index 99%
rename from src/system/ttytyp.321
rename to src/system/ttytyp.322
index f220b69d..bdf470cd 100644
--- a/src/system/ttytyp.321
+++ b/src/system/ttytyp.322
@@ -189,7 +189,7 @@ MCONDX KA,{				;;; KA
 	TTDAAA 44,SPEED=50000		;T44 Morton port 4
 	TTDAAA 45,SPEED=50000		;T45 Morton port 5
 	TTDAAA 46,SPEED=50000		;T46 Morton port 6
-	TTDAAA 47,SPEED=50000		;T47 Morton port 7
+	TTDAAA 47,SPEED=9600,TY=%TYDIL	;T47 Dial-up, port 7
 	TTDOIM 50,SPEED=50000		;T50 Imlac, port 8
 	TTDTEK 51,SPEED=9600		;T51 Tektronix, port 9
 	TTDVT 52,SPEED=9600		;T52 VT52, port 10
@@ -389,7 +389,7 @@ MCONDX KL,{				;;; KL
 	TTDAAA 12,SPEED=9600		;T12
 	TTDAAA 13,SPEED=9600		;T13
 	TTDAAA 14,SPEED=9600		;T14
-	TTDAAA 15,SPEED=9600		;T15
+	TTDAAA 15,SPEED=9600,TY=%TYDIL	;T15 Dial-up
 	TTDTEK 16,SPEED=9600		;T16 Tektronix
 	TTDVT 17,SPEED=9600		;T17 VT52
 .ENDC ;}
@@ -666,7 +666,7 @@ MCONDX DB,{				;;; DB
 	TTDAAA 3,SPEED=9600		;T03 DZ Line 3
 	TTDAAA 4,SPEED=9600		;T04 DZ Line 4
 	TTDAAA 5,SPEED=9600		;T05 DZ Line 5
-	TTDAAA 6,SPEED=9600		;T06 DZ Line 6
+	TTDAAA 6,SPEED=9600,TY=%TYDIL	;T06 DZ Line 6, dial-up
 	TTDGT40 7,SPEED=9600		;T07 DZ Line 7
 	TTDVT 10,SPEED=9600		;T10 DZ Line 10