From dba095fe825c80c369f98bbf856707fe099fc621 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 8 Mar 2020 20:42:10 +0100
Subject: [PATCH] Add Tektronix 4010 emulator.

---
 .gitmodules           |  3 +++
 Makefile              | 11 +++++++++--
 build/dependencies.sh |  5 +++--
 build/pdp10-ka/run    |  1 +
 build/pdp10-ka/start  |  6 ++++++
 src/system/ttytyp.321 |  2 +-
 tools/tek4010         |  1 +
 7 files changed, 24 insertions(+), 5 deletions(-)
 create mode 160000 tools/tek4010

diff --git a/.gitmodules b/.gitmodules
index 35f04411..6b41be39 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -31,3 +31,6 @@
 [submodule "tools/vt05"]
 	path = tools/vt05
 	url = https://github.com/aap/vt05
+[submodule "tools/tek4010"]
+	path = tools/tek4010
+	url = https://github.com/rricharz/Tek4010
diff --git a/Makefile b/Makefile
index 00a3053c..55b03499 100644
--- a/Makefile
+++ b/Makefile
@@ -48,7 +48,7 @@ BINIGNORE=-e '^(ka10|kl10|ks10|minsys)$$'
 # These are on the minsrc tape.
 SRCIGNORE=-e '^(system|midas)$$'
 
-SUBMODULES = dasm itstar klh10 mldev simh sims supdup tapeutils tv11 pdp6 vt05
+SUBMODULES = dasm itstar klh10 mldev simh sims supdup tapeutils tv11 pdp6 vt05 tek4010
 
 # These files are used to create bootable tape images.
 RAM = bin/ks10/boot/ram.262
@@ -68,6 +68,7 @@ PDP6=tools/pdp6/emu/pdp6
 KLFEDR=tools/dasm/klfedr
 DATAPOINT=tools/vt05/dp3300
 VT52=tools/vt05/vt52
+TEK=tools/tek4010/tek4010
 
 H3TEXT=$(shell cd build; ls h3text.*)
 DDT=$(shell cd src; ls sysen1/ddt.* syseng/lsrtns.* syseng/msgs.* syseng/datime.* syseng/ntsddt.*)
@@ -87,7 +88,7 @@ out/klh10/stamp: $(OUT)/rp0.dsk
 out/simh/stamp: $(OUT)/rp0.dsk $(GT40)
 	$(TOUCH) $@
 
-out/pdp10-ka/stamp: $(OUT)/rp03.2 $(OUT)/rp03.3 $(GT40) $(TV11) $(PDP6) $(DATAPOINT) $(VT52)
+out/pdp10-ka/stamp: $(OUT)/rp03.2 $(OUT)/rp03.3 $(GT40) $(TV11) $(PDP6) $(DATAPOINT) $(VT52) $(TEK)
 	$(TOUCH) $@
 
 out/pdp10-kl/stamp: $(OUT)/rp04.1
@@ -267,6 +268,12 @@ $(DATAPOINT):
 $(VT52):
 	$(MAKE) -C tools/vt05 vt52
 
+tek-hack:
+	rm $(TEK)
+
+$(TEK): tek-hack
+	$(MAKE) -C tools/tek4010 tek4010
+
 tools/supdup/supdup:
 	$(MAKE) -C tools/supdup
 
diff --git a/build/dependencies.sh b/build/dependencies.sh
index ee995d2e..cfc29c4d 100644
--- a/build/dependencies.sh
+++ b/build/dependencies.sh
@@ -13,7 +13,8 @@ install_linux() {
         simh) sudo apt-get install -y simh;;
         pdp10-k?) sudo apt-get install -y libegl1-mesa-dev libgles2-mesa-dev
               sudo apt-get install -y libx11-dev libxt-dev libsdl2-dev
-              sudo apt-get install -y libsdl2-image-dev libpcap-dev;;
+              sudo apt-get install -y libsdl2-image-dev libpcap-dev
+              sudo apt-get install -y libgtk-3-dev;;
         klh10) sudo apt-get install -y libusb-1.0-0-dev;;
     esac
 }
@@ -22,7 +23,7 @@ install_freebsd() {
     pkg upgrade -y
     pkg install -y gmake git expect
     case "$EMULATOR" in
-        pdp10-ka) pkg install -y sdl2 sdl2_image pkgconf;;
+        pdp10-ka) pkg install -y sdl2 sdl2_image pkgconf gtk3;;
         pdp10-kl) pkg install -y autoconf;;
         klh10) pkg install -y pkgconf autotools;;
     esac
diff --git a/build/pdp10-ka/run b/build/pdp10-ka/run
index 20f1e833..0ee732b4 100644
--- a/build/pdp10-ka/run
+++ b/build/pdp10-ka/run
@@ -28,6 +28,7 @@ at dpk line=15,10020 speed=4800
 set mty enabled
 at mty 10003 speed=50000
 at mty line=15,10018 speed=9600
+at mty line=14,10017 speed=9600
 set ten11 enabled
 at ten11 10011
 set auxcpu enabled
diff --git a/build/pdp10-ka/start b/build/pdp10-ka/start
index 51866e55..708fdd44 100755
--- a/build/pdp10-ka/start
+++ b/build/pdp10-ka/start
@@ -48,6 +48,11 @@ vt52() {
     started "VT52" "$!"
 }
 
+tek() {
+    (sleep 2; tools/tek4010/tek4010 telnet localhost 10017 >tek.log 2>&1) &
+    started "Tektronix" "$!"
+}
+
 help() {
     cat <<EOF
 This start script takes several command line arguments:
@@ -59,6 +64,7 @@ tv11 - Start a TV-11 emulator.
 tvcon - Start a TV display.
 datapoint - Start a Datapoint 3300 emulator.
 vt52 - Start a VT52 emulator.
+tek - Start a Tektronix 4010 emulator.
 
 EOF
 
diff --git a/src/system/ttytyp.321 b/src/system/ttytyp.321
index b65339b1..aa30b4c7 100644
--- a/src/system/ttytyp.321
+++ b/src/system/ttytyp.321
@@ -197,7 +197,7 @@ MCONDX KA,{				;;; KA
 	TTDAAA 54,SPEED=50000		;T54 Morton port 12
 	TTDAAA 55,SPEED=50000		;T55 Morton port 13
 	TTDAAA 56,SPEED=50000		;T56 Morton port 14
-	TTDAAA 57,SPEED=50000		;T57 Morton port 15
+	TTDTEK 57,SPEED=9600		;T57 Tektronix, port 15
 	TTDVT 60,SPEED=9600		;T60 VT52, port 16
 .ENDC ;}
 
diff --git a/tools/tek4010 b/tools/tek4010
new file mode 160000
index 00000000..de8ac330
--- /dev/null
+++ b/tools/tek4010
@@ -0,0 +1 @@
+Subproject commit de8ac330a1d47f8eee05ed733602f4909f2d1484