Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / pcomp.pure.3

diff --git a/<mdl.comp>/pcomp.pure.3 b/<mdl.comp>/pcomp.pure.3
new file mode 100644 (file)
index 0000000..69bf57f
--- /dev/null
+++ b/<mdl.comp>/pcomp.pure.3
@@ -0,0 +1,13 @@
+PGLUE!- 
+<SET PURE!- <SET SILENT!- <SET GLUE T>>>
+<FLOAD "CMP:PCOMP.LOAD">
+<CONNECT-DIR "PS:<CLR>">
+<FLOAD "<CLR>CLEAN.MUD">
+<USE "CLEAN" "PURITY">
+<CLEANUP>
+<CONNECT-DIR "SRC:<MDL.COMP>">
+<PROG ((FOO ,PURELST) (OUTCHAN <OPEN "PRINT" "FOO.OUT">))
+       <GROUP-PURIFY FOO>
+       <UNASSIGN <REMOVE FOO>>
+       <FLUSH-CLEANUP>
+       <KILL:PURITY>>