X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fpcomp.pure.3;fp=%3Cmdl.comp%3E%2Fpcomp.pure.3;h=69bf57f3a1eead79b26891e89c7a89b2f99ebae5;hp=0000000000000000000000000000000000000000;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9

diff --git a/<mdl.comp>/pcomp.pure.3 b/<mdl.comp>/pcomp.pure.3
new file mode 100644
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>>