EVACUA - encode ITS file for evacuation to Unix.

PDP-10 · Jan 30, 2019 · 557bcfc · 557bcfc
1 parent c250bb1
commit 557bcfc
Show file tree

Hide file tree

Showing 3 changed files with 401 additions and 0 deletions.
diff --git a/build/misc.tcl b/build/misc.tcl
@@ -105,6 +105,15 @@ expect ":KILL"
 respond "*" ":midas bawden;_uptime\r"
 expect ":KILL"
 
+# Chaosnet EVACUATE service.
+respond "*" ":midas sysbin; evacua_bawden; evacua\r"
+expect ":KILL"
+respond "*" ":job evacua\r"
+respond "*" ":load sysbin; evacua bin\r"
+respond "*" "purify\033g"
+respond "CHAOS EVACUA" "\r"
+respond "*" ":kill\r"
+
 # Mini Chaosnet file server.  Version 24 is MINI.
 respond "*" ":midas sysbin; mini_lmio; minisr 24\r"
 expect ":KILL"

diff --git a/doc/programs.md b/doc/programs.md
@@ -90,6 +90,7 @@
 - ELIZA, the original psychiatrist game.
 - EMACS, editor.
 - ESCE, call the elevator.
+- EVACUA, encode ITS file for evacuation to Unix.
 - EXECVT, convert 20x EXE (SSAVE) file to ITS BIN (PDUMP) file.
 - EXPN/VRFY, query remote SMTP server.
 - FACTOR, factor integers.