1
0
mirror of https://github.com/PDP-10/its.git synced 2026-03-09 20:38:23 +00:00

Move files from crowded pack #2 to pack #1.

This commit is contained in:
Lars Brinkhoff
2018-09-10 15:39:03 +02:00
parent e2f1393e22
commit a1bdade911
3 changed files with 48 additions and 0 deletions

View File

@@ -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"

View File

@@ -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"
}

View File

@@ -174,3 +174,6 @@ proc update_microcode {} {
respond "!" "quit\r"
expect ":KILL"
}
proc gfr_second {} {
}