From 55f2dde6eda4e2fe9329627f1b27813efe29075f Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 21 Sep 2018 15:51:29 +0200
Subject: [PATCH] Revert "Move files from crowded pack #2 to pack #1."

This reverts commits a1bdade911321f0d945729391248e5dcfa24bc52 and
87f2a21cb5fed19716d8557ea06caf6a756d984f.
---
 build/basics.tcl       |  6 ------
 build/ka10/include.tcl | 42 ------------------------------------------
 build/ks10/include.tcl |  3 ---
 3 files changed, 51 deletions(-)

diff --git a/build/basics.tcl b/build/basics.tcl
index d3a91415..39eec908 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -24,12 +24,6 @@ expect -timeout 3000 "E-O-T"
 respond "_" "quit\r"
 expect ":KILL"
 
-# Free up some disk space on the pack holding most source code.
-gfr_second
-
-# Gague free disk blocks.
-respond "*" ":listf sys\r"
-
 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 99d8b08b..08a911eb 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -153,45 +153,3 @@ 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 e350c9d2..c729c565 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -176,6 +176,3 @@ proc update_microcode {} {
     respond "!" "quit\r"
     expect ":KILL"
 }
-
-proc gfr_second {} {
-}