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
 

src/system/ttytyp.321

@@ -335,8 +335,8 @@ MCONDX KL,{				;;; KL
 	TTDAAA 13,SPEED=9600		;T13
 	TTDAAA 14,SPEED=9600		;T14
 	TTDAAA 15,SPEED=9600		;T15
-	TTDAAA 16,SPEED=9600		;T16
-	TTDAAA 17,SPEED=9600		;T17
+	TTDTEK 16,SPEED=9600		;T16 Tektronix
+	TTDVT 17,SPEED=9600		;T17 VT52
 .ENDC ;}
 
 REPEAT NSTTYS,[
@@ -612,7 +612,7 @@ MCONDX DB,{				;;; DB
 	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 7,SPEED=9600		;T07 DZ Line 7
-	TTDAAA 10,SPEED=9600		;T10 DZ Line 10
+	TTDGT40 7,SPEED=9600		;T07 DZ Line 7
+	TTDVT 10,SPEED=9600		;T10 DZ Line 10
 
 .ENDC ;}