VT52 on T60.

Makefile

@@ -67,6 +67,7 @@ TV11=tools/tv11/tv11
 PDP6=tools/pdp6/emu/pdp6
 KLFEDR=tools/dasm/klfedr
 DATAPOINT=tools/vt05/dp3300
+VT52=tools/vt05/vt52
 
 H3TEXT=$(shell cd build; ls h3text.*)
 DDT=$(shell cd src; ls sysen1/ddt.* syseng/lsrtns.* syseng/msgs.* syseng/datime.* syseng/ntsddt.*)
@@ -86,7 +87,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)
+out/pdp10-ka/stamp: $(OUT)/rp03.2 $(OUT)/rp03.3 $(GT40) $(TV11) $(PDP6) $(DATAPOINT) $(VT52)
 	$(TOUCH) $@
 
 out/pdp10-kl/stamp: $(OUT)/rp04.1
@@ -263,6 +264,9 @@ $(PDP6):
 $(DATAPOINT):
 	$(MAKE) -C tools/vt05 dp3300
 
+$(VT52):
+	$(MAKE) -C tools/vt05 vt52
+
 tools/supdup/supdup:
 	$(MAKE) -C tools/supdup
 

build/pdp10-ka/run

@@ -27,6 +27,7 @@ at dpk line=11,10019 speed=4800
 at dpk line=15,10020 speed=4800
 set mty enabled
 at mty 10003 speed=50000
+at mty line=15,10018 speed=9600
 set ten11 enabled
 at ten11 10011
 set auxcpu enabled

build/pdp10-ka/start

@@ -43,6 +43,11 @@ datapoint() {
     started "Datapoint" "$!"
 }
 
+vt52() {
+    (sleep 2; tools/vt05/vt52 -B telnet localhost 10018 >vt52.log 2>&1) &
+    started "VT52" "$!"
+}
+
 help() {
     cat <<EOF
 This start script takes several command line arguments:
@@ -53,6 +58,7 @@ gt40 - Start a GT40 emulator.
 tv11 - Start a TV-11 emulator.
 tvcon - Start a TV display.
 datapoint - Start a Datapoint 3300 emulator.
+vt52 - Start a VT52 emulator.
 
 EOF
 

src/system/ttytyp.321

@@ -198,7 +198,7 @@ MCONDX KA,{				;;; KA
 	TTDAAA 55,SPEED=50000		;T55 Morton port 13
 	TTDAAA 56,SPEED=50000		;T56 Morton port 14
 	TTDAAA 57,SPEED=50000		;T57 Morton port 15
-	TTDAAA 60,SPEED=50000		;T60 Morton port 16
+	TTDVT 60,SPEED=9600		;T60 VT52, port 16
 .ENDC ;}
 
 MCONDX EX,{				;;; EX