From 1807333e8d24dbc0d796624cce67d1bf13c13217 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 8 Jun 2020 12:43:54 +0200
Subject: [PATCH] Specify ITS machine name to build.

---
 build/build.tcl        |  8 ++++++++
 build/ka10/include.tcl | 19 ++++++++++++++-----
 build/kl10/include.tcl | 20 +++++++++++++++-----
 build/ks10/include.tcl | 11 +++++++++--
 4 files changed, 46 insertions(+), 12 deletions(-)

diff --git a/build/build.tcl b/build/build.tcl
index e3826f79..fd6b6f9e 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -7,6 +7,14 @@ proc log_progress {x} {
 
 log_progress "ENTERING MAIN BUILD SCRIPT"
 
+if [info exists env(MCHN)] {
+    set mchn "$env(MCHN)"
+}
+
+puts ""
+puts "BUILDING $mchn ITS"
+puts ""
+
 # If the environment variable BASICS is set to "yes", only build
 # the basics; ITS, tools, infastructure.
 if {![info exists env(BASICS)]} {
diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index 72bffc53..0d9ef269 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -1,3 +1,6 @@
+#Default ITS name for KA10.
+set mchn "KA"
+
 set salv "salv"
 
 proc start_dskdmp_its {} {
@@ -48,7 +51,8 @@ proc frontend_bootstrap {} {
 }
 
 proc its_switches {} {
-    respond "MACHINE NAME =" "KA\r"
+    global mchn
+    respond "MACHINE NAME =" "$mchn\r"
 }
 
 proc make_ntsddt {} {
@@ -66,9 +70,11 @@ proc make_ntsddt {} {
 }
 
 proc make_salv {} {
+    global mchn
+
     respond "*" ":midas dsk0:.;_system;salv\r"
     respond "time-sharing?" "n\r"
-    respond "machine?" "KA\r"
+    respond "machine?" "$mchn\r"
     expect ":KILL"
 }
 
@@ -91,7 +97,9 @@ proc make_dskdmp {} {
 }
 
 proc dump_switches {} {
-    respond "WHICH MACHINE?" "KA\r"
+    global mchn
+
+    respond "WHICH MACHINE?" "$mchn\r"
 }
 
 proc peek_switches {} {
@@ -142,8 +150,9 @@ proc magdmp_switches {} {
 proc bootable_tapes {} {
     global emulator_escape
     global out
+    global mchn
 
-    respond "*" ":midas .;magdmp bin.ka_syseng;magdmp\r"
+    respond "*" ":midas .;magdmp bin.${mchn}_syseng;magdmp\r"
     respond "PTRHRI=" "n\r"
     magdmp_switches
     expect ":KILL"
@@ -152,7 +161,7 @@ proc bootable_tapes {} {
     create_tape "$out/magdmp.tape"
 
     type ":magfrm\r"
-    respond "?" "KA\r"
+    respond "?" "$mchn\r"
     respond "?" "Y"
     respond "_" "W"
     respond "FROM" ".; @ DDT\r"
diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl
index cb9ae771..7ce252d2 100644
--- a/build/kl10/include.tcl
+++ b/build/kl10/include.tcl
@@ -1,3 +1,6 @@
+#Default ITS name for KL10.
+set mchn "KL"
+
 set salv "salv"
 
 proc start_dskdmp_its {} {
@@ -49,7 +52,9 @@ proc frontend_bootstrap {} {
 }
 
 proc its_switches {} {
-    respond "MACHINE NAME =" "KL\r"
+    global mchn
+
+    respond "MACHINE NAME =" "$mchn\r"
 }
 
 proc make_ntsddt {} {
@@ -64,9 +69,11 @@ proc make_ntsddt {} {
 }
 
 proc make_salv {} {
+    global mchn
+
     respond "*" ":midas dsk0:.;_system;salv\r"
     respond "time-sharing?" "n\r"
-    respond "machine?" "KL\r"
+    respond "machine?" "$mchn\r"
     expect ":KILL"
 }
 
@@ -89,7 +96,9 @@ proc make_dskdmp {} {
 }
 
 proc dump_switches {} {
-    respond "WHICH MACHINE?" "KL\r"
+    global mchn
+
+    respond "WHICH MACHINE?" "$mchn\r"
 }
 
 proc peek_switches {} {
@@ -137,8 +146,9 @@ proc magdmp_switches {} {
 proc bootable_tapes {} {
     global emulator_escape
     global out
+    global mchn
 
-    respond "*" ":midas .;magdmp bin.kl_syseng;magdmp\r"
+    respond "*" ":midas .;magdmp bin.${mchn}_syseng;magdmp\r"
     respond "PTRHRI=" "n\r"
     magdmp_switches
     expect ":KILL"
@@ -147,7 +157,7 @@ proc bootable_tapes {} {
     create_tape "$out/magdmp.tape"
 
     type ":magfrm\r"
-    respond "?" "KL\r"
+    respond "?" "$mchn\r"
     respond "?" "Y"
     respond "_" "W"
     respond "FROM" ".; @ DDT\r"
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 468404b5..00e30a57 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -1,3 +1,6 @@
+#Default ITS name for KS10.
+set mchn "DB"
+
 set salv "nsalv"
 
 proc start_dskdmp_its {} {
@@ -87,7 +90,9 @@ proc frontend_bootstrap {} {
 }
 
 proc its_switches {} {
-    respond "MACHINE NAME =" "DB\r"
+    global mchn
+
+    respond "MACHINE NAME =" "$mchn\r"
     respond "Configuration?" "RP06\r"
 }
 
@@ -120,7 +125,9 @@ proc make_dskdmp {} {
 }
 
 proc dump_switches {} {
-    respond "WHICH MACHINE?" "DB\r"
+    global mchn
+
+    respond "WHICH MACHINE?" "$mchn\r"
 }
 
 proc peek_switches {} {