From f68eb8c0cfd28ddbf724b12d63364d2b3f79679e Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 2 Sep 2019 20:30:17 +0200
Subject: [PATCH] Make BACKUP directory and copy important files there.

---
 build/build.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/build/build.tcl b/build/build.tcl
index 0693f2ab..1c2ed545 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -164,6 +164,17 @@ if {$env(BASICS)!="yes"} {
 
 bootable_tapes
 
+# Make BACKUP directory and copy some important files there.
+
+mkdir "backup"
+
+respond "*" ":copy .; @ its, dsk0: backup;\r"
+respond "*" ":copy .; @ ddt, dsk0: backup;\r"
+respond "*" ":copy .; @ $salv, dsk0: backup;\r"
+respond "*" ":copy sys; ts ddt, dsk0: backup;\r"
+respond "*" ":copy sys; ts dump, dsk0: backup;\r"
+respond "*" ":copy sys; ts midas, dsk0: backup;\r"
+
 # make output.tape
 
 respond "*" $emulator_escape