From 6ac554906d52af6eba8899ac14372cffd34de76c Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 12 Jun 2019 13:19:54 +0200
Subject: [PATCH] Run MAINT; PART * diagnostics.

---
 build/ka10/include.tcl | 8 ++++++++
 build/ks10/include.tcl | 6 ++++++
 build/misc.tcl         | 9 +++++++++
 3 files changed, 23 insertions(+)

diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index 693db5e6..2d5e59d7 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -183,3 +183,11 @@ proc patch_lisp {} {
     respond " " "dsk0:.;@ lisp\r"
     respond "*" ":kill\r"
 }
+
+proc translate_diagnostics {} {
+    # Not yet:  "dsk: maint; part f, part f.old\r"
+    respond "*" "\033\024"
+    respond " " "dsk: maint; part g, part g.old\r"
+    respond "*" "\033\024"
+    respond " " "dsk: maint; part k, part k.old\r"
+}
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 217c5588..e25e9654 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -192,3 +192,9 @@ proc clib_switches {} {
 
 proc patch_lisp {} {
 }
+
+proc translate_diagnostics {} {
+    # PART K doesn't work on the KS10.
+    respond "*" "\033\024"
+    respond " " "dsk: maint; part k, part l\r"
+}
diff --git a/build/misc.tcl b/build/misc.tcl
index 8743bbad..0007fbad 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1115,6 +1115,15 @@ respond "*" ":link sys3;ts unscr,sys3;ts scrmbl\r"
 respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
 expect ":KILL"
 
+respond "*" ":job maint\r"
+# KA10 needs the .OLD files.
+translate_diagnostics
+respond "*" ":load maint; part a\r"
+respond "*" ":start\r"
+respond "PARt a" "\032"
+expect -re {>>|\)}
+type ":kill\r"
+
 # Display all Type 342 characters.
 respond "*" ":midas dsk0:maint;_tst342\r"
 expect ":KILL"