Twenex Muddle.

[pdp10-muddle.git] / <mdl.int> / pure.mid.15

diff --git a/<mdl.int>/pure.mid.15 b/<mdl.int>/pure.mid.15
new file mode 100644 (file)
index 0000000..0a263b5
--- /dev/null
+++ b/<mdl.int>/pure.mid.15
@@ -0,0 +1,24 @@
+
+TITLE SETPUR
+
+1PASS
+
+BOT==700000
+
+.GLOBAL .LPUR,.LIMPU,HIBOT,PHIBOT,REALGC,THIBOT
+REALGC==200000
+
+LOC 140
+
+.LIMPU==140
+
+HIBOT==BOT
+PHIBOT==BOT_<-10.>
+THIBOT==BOT_<-9.>
+
+.LPUR==BOT
+
+LOC BOT
+
+END
+\f\ 3\f
\ No newline at end of file