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

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