Build PEEK with 340 support.

Prepare for building MAGDMP with 340 support, though it doesn't work yet.

build/build.tcl

@@ -291,12 +291,10 @@ respond "*" ":midas sys1;ts salv_system;salv\r"
 respond "time-sharing?" "y\r"
 expect ":KILL"
 
-# magdmp
+# magdmp, paper tape
 respond "*" ":midas dsk0:.;_syseng;magdmp\r"
 respond "PTRHRI=" "y\r"
-respond "KL10P=" "n\r"
-respond "TM10BP=" "n\r"
-respond "340P=" "n\r"
+magdmp_switches
 expect ":KILL"
 
 # magdmp
@@ -341,7 +339,8 @@ respond " BIN" "\r"
 respond "*" ":kill\r"
 respond "*" ":link sys3;ts crtsty,sysbin;crtsty bin\r"
 
-respond "*" ":midas sysbin;_sysen2;peek\r"
+respond "*" ":midas /t sysbin;_sysen2;peek\r"
+peek_switches
 expect ":KILL"
 respond "*" ":job peek\r"
 respond "*" ":load sysbin;peek bin\r"

build/ka10/include.tcl

@@ -72,6 +72,10 @@ proc dump_switches {} {
     respond "WHICH MACHINE?" "KA\r"
 }
 
+proc peek_switches {} {
+    respond "with ^C" "340P==1\r\003"
+}
+
 proc dump_nits {} {
     respond "DSKDMP" "l\033ddt\r"
     expect "\n"; type "t\033@ dskdmp\r"
@@ -82,14 +86,19 @@ proc dump_nits {} {
     expect "\n"; type "d\033nits\r"
 }
 
+proc magdmp_switches {} {
+    respond "KL10P=" "n\r"
+    respond "TM10BP=" "n\r"
+    # 340P=y doesn't work yet.
+    respond "340P=" "n\r"
+}
+
 proc bootable_tapes {} {
     global emulator_escape
 
     respond "*" ":midas .;magdmp bin.ka_syseng;magdmp\r"
     respond "PTRHRI=" "n\r"
-    respond "KL10P=" "n\r"
-    respond "TM10BP=" "n\r"
-    respond "340P=" "n\r"
+    magdmp_switches
     expect ":KILL"
 
     respond "*" $emulator_escape

build/ks10/include.tcl

@@ -111,6 +111,10 @@ proc dump_switches {} {
     respond "WHICH MACHINE?" "DB\r"
 }
 
+proc peek_switches {} {
+    respond "with ^C" "\003"
+}
+
 proc dump_nits {} {
     respond "DSKDMP" "dskdmp bin\r"
     respond "DSKDMP" "l\033ddt\r"
@@ -120,6 +124,13 @@ proc dump_nits {} {
     respond "\n" "d\033nits\r"
 }
 
+proc magdmp_switches {} {
+    respond "KL10P=" "n\r"
+    respond "TM10BP=" "n\r"
+    # 340P=y doesn't work yet.
+    respond "340P=" "n\r"
+}
+
 proc bootable_tapes {} {
     global emulator_escape