From 5c4fc6c4e600336424e362bdce0714ea186db48d Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 2 Feb 2017 14:46:08 +0100
Subject: [PATCH] SALV - old file system tool for KA and KL.

---
 README.md       | 1 +
 build/build.tcl | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/README.md b/README.md
index ebbbc56b..e0a19a57 100644
--- a/README.md
+++ b/README.md
@@ -203,6 +203,7 @@ A list of [known ITS machines](doc/machines.md).
    - RIPDEV, replacement for MLDEV for no-longer-existing machines.
    - RMAIL, Mail reading client.
    - RMTDEV, MLDEV for non-ITS hosts.
+   - SALV, old file system tool for KA and KL.
    - SCANDL, TTY OUTPUT SPY.
    - SEND, REPLY, replacements for DDT :SEND.
    - SPELL, ESPELL spell checker.
diff --git a/build/build.tcl b/build/build.tcl
index ad5388b4..fdae7bfe 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -314,6 +314,15 @@ respond "*" ":midas sys1;_kshack;nsalv\r"
 respond "machine?" "TS\r"
 expect "*"
 
+# salv, standalone and timesharing versions
+respond "*" ":midas .;_system;salv\r"
+respond "time-sharing?" "n\r"
+respond "machine?" "ML\r"
+expect ":KILL"
+respond "*" ":midas sys1;ts salv_system;salv\r"
+respond "time-sharing?" "y\r"
+expect ":KILL"
+
 # magdmp
 respond "*" ":midas .;_syseng;magdmp\r"
 respond "PTRHRI=" "y\r"