Add emulators to start script.

build/pdp10-kl/run

@@ -7,8 +7,12 @@ set tua dis
 set lpt dis
 set dc disable
 set tty enabled
-set tty 8b lines=16
+set tty 8b lines=15
 at tty 10007
+# VT52
+at tty line=14,10018 speed=9600
+# Tektronix
+at tty line=13,10017 speed=9600
 set pd ena
 set pd on
 set mta type=b

build/pdp10-kl/start

@@ -1,5 +1,9 @@
 #!/bin/sh
 
+#Defaults.
+VT52=${VT52:--B -b 9600}
+TEK=${TEK:--b9600}
+
 EXIT=:
 trap "" QUIT INT TERM
 
@@ -17,11 +21,23 @@ stop() {
     echo "OK"
 }
 
+vt52() {
+    (sleep 2; tools/vt05/vt52 $VT52 telnet localhost 10018 >vt52.log 2>&1) &
+    started "VT52" "$!"
+}
+
+tek() {
+    (sleep 2; tools/tek4010/tek4010 $TEK telnet localhost 10017 >tek.log 2>&1) &
+    started "Tektronix" "$!"
+}
+
 help() {
     cat <<EOF
 This start script takes several command line arguments:
 
 help - Display this help text.
+vt52 - Start a VT52 emulator.
+tek - Start a Tektronix 4010 emulator.
 
 EOF
 

build/simh/boot

@@ -4,6 +4,10 @@ set cpu idle
 set tim y2k
 set dz 8b lines=8
 at dz0 10004
+# VT52
+at dz0 line=7,10018
+# GT40
+at tty line=6,10019
 set rp0 rp06
 at rp0 out/simh/rp0.dsk
 b rp0

build/simh/start

@@ -1,5 +1,8 @@
 #!/bin/sh
 
+#Defaults.
+VT52=${VT52:--B -b 9600}
+
 EXIT=:
 trap "" QUIT INT TERM
 
@@ -22,12 +25,18 @@ gt40() {
     started GT40 "$!"
 }
 
+vt52() {
+    (sleep 2; tools/vt05/vt52 $VT52 telnet localhost 10018 >vt52.log 2>&1) &
+    started "VT52" "$!"
+}
+
 help() {
     cat <<EOF
 This start script takes several command line arguments:
 
 help - Display this help text.
 gt40 - Start a GT40 emulator.
+vt52 - Start a VT52 emulator.
 
 EOF