From a1bdade911321f0d945729391248e5dcfa24bc52 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 10 Sep 2018 15:39:03 +0200
Subject: [PATCH] Move files from crowded pack #2 to pack #1.

---
 build/basics.tcl       |  3 +++
 build/ka10/include.tcl | 42 ++++++++++++++++++++++++++++++++++++++++++
 build/ks10/include.tcl |  3 +++
 3 files changed, 48 insertions(+)

diff --git a/build/basics.tcl b/build/basics.tcl
index 0a207e5b..276bcf26 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -9,6 +9,9 @@ sleep 1
 type ":rename .;@ its, .;@ oits\r"
 respond "*" ":rename .;@ nits, .;@ its\r"
 
+# Free up some disk space on the pack holding most source code.
+gfr_second
+
 respond "*" ":print sys1;..new. (udir)\r"
 type ":vk\r"
 respond "*" ":print sys2;..new. (udir)\r"
diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index 08a911eb..99d8b08b 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -153,3 +153,45 @@ proc bootable_tapes {} {
 
 proc update_microcode {} {
 }
+
+proc gfr_second {} {
+    respond "*" ":move chprog; ccheop >, pk1:\r"
+    respond "*" ":move chprog; ocaux >, pk1:\r"
+    respond "*" ":move chprog; ocm >, pk1:\r"
+    respond "*" ":move common; lins >, pk1:\r"
+    respond "*" ":move decsys; decuuo >, pk1:\r"
+    respond "*" ":move gt40; gtlem >, pk1:\r"
+    respond "*" ":move gz; macn80 >, pk1:\r"
+    respond "*" ":move kshack; nsalv >, pk1:\r"
+    respond "*" ":move l; *lisp >, pk1:\r"
+    respond "*" ":move l; qio >, pk1:\r"
+    respond "*" ":move lmcons; ccons >, pk1:\r"
+    respond "*" ":move manual; macsma >, pk1:\r"
+    respond "*" ":move maxout; macsym >, pk1:\r"
+    respond "*" ":move midas; midas >, pk1:\r"
+    respond "*" ":move mrc; ten50 >, pk1:\r"
+    respond "*" ":move mudman; muddle >, pk1:\r"
+    respond "*" ":move rg; c >, pk1:\r"
+    respond "*" ":move rwg; life demo, pk1:\r"
+    respond "*" ":move sail; fail >, pk1:\r"
+    respond "*" ":move scheme; rabbit >, pk1:\r"
+    respond "*" ":move sysdoc; .calls >, pk1:\r"
+    respond "*" ":move sysdoc; chaord >, pk1:\r"
+    respond "*" ":move sysdoc; itstty >, pk1:\r"
+    respond "*" ":move sysen1; @ >, pk1:\r"
+    respond "*" ":move sysen1; @ diff, pk1:\r"
+    respond "*" ":move sysen1; ddt >, pk1:\r"
+    respond "*" ":move sysen1; palx >, pk1:\r"
+    respond "*" ":move sysen1; pword >, pk1:\r"
+    respond "*" ":move sysen1; scan >, pk1:\r"
+    respond "*" ":move syshst; hosts3 >, pk1:\r"
+    respond "*" ":move sysnet; comsat >, pk1:\r"
+    respond "*" ":move system; disk >, pk1:\r"
+    respond "*" ":move system; its >, pk1:\r"
+    respond "*" ":move system; itsdev >, pk1:\r"
+    respond "*" ":move system; salv >, pk1:\r"
+    respond "*" ":move system; tcp >, pk1:\r"
+    respond "*" ":move system; ts3tty >, pk1:\r"
+    respond "*" ":move system; tv >, pk1:\r"
+    respond "*" ":move tj6; tj6 >, pk1:\r"
+}
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 3ccc25b4..c214df1a 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -174,3 +174,6 @@ proc update_microcode {} {
     respond "!" "quit\r"
     expect ":KILL"
 }
+
+proc gfr_second {} {
+}