A large commit.

[pdp8.git] / sw / kermit / hachti / K12CLR.PA

diff --git a/sw/kermit/hachti/K12CLR.PA b/sw/kermit/hachti/K12CLR.PA
new file mode 100644 (file)
index 0000000..4e06a1a
--- /dev/null
+++ b/sw/kermit/hachti/K12CLR.PA
@@ -0,0 +1,22 @@
+/      MEMORY CLEAR
+
+/      THIS FILE  IS  USED TO PRE-CLEAR MEMORY WHEN LOADING KERMIT-12.  THE RESULTING
+/      "CLEANER"  CORE-IMAGE  FILE  WILL  BE  SMALLER  WHEN  ENCODED  DUE  TO  REPEAT
+/      COMPRESSION OF THE CLEARED  AREAS  OF MEMORY, AS OPPOSED TO RANDOM RELICS LEFT
+/      THERE BY OS/8.
+
+/      LAST EDIT:      30-AUG-1990     09:00           CJL
+
+       FIELD   0               /GOING TO FIELD ONE
+
+       *0                      /START AT THE BEGINNING
+
+       ZBLOCK  7600            /CLEAR FIELD ZERO
+
+       FIELD   1               /GOING TO FIELD ONE
+
+       *0                      /START AT THE BEGINNING
+
+       ZBLOCK  7600            /CLEAR FIELD ONE
+
+       $                       /THAT'S ALL FOLK!