X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=%3Cmdl.int%3E%2Fpure.mid.15;fp=%3Cmdl.int%3E%2Fpure.mid.15;h=0a263b5125cf3a87f8214086cc78067ba3ce85a2;hb=bab072f950a643ac109660a223b57e635492ac25;hp=0000000000000000000000000000000000000000;hpb=233a3c5245f8274882cc9d27a3c20e9b3678000c;p=pdp10-muddle.git

diff --git a/<mdl.int>/pure.mid.15 b/<mdl.int>/pure.mid.15
new file mode 100644
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
+
\ No newline at end of file