Twenex Muddle.

[pdp10-muddle.git] / <mdl.int> / const.mid.5

diff --git a/<mdl.int>/const.mid.5 b/<mdl.int>/const.mid.5
new file mode 100644 (file)
index 0000000..32a0ea4
--- /dev/null
+++ b/<mdl.int>/const.mid.5
@@ -0,0 +1,26 @@
+TITLE CONSTS
+
+RELOCA
+
+DEFINE C%MAKE A,B
+       .GLOBAL A
+       
+       IRP LH,RH,[B]
+               A==[LH,,RH]
+               .ISTOP
+               TERMIM
+TERMIN
+TERMIN
+
+IRP X,,[[C%11,1,1],[C%22,2,2],[C%33,3,3],[C%44,4,4],[C%55,5,5],[C%66,6,6]
+[C%0,0,0],[C%1,0,1],[C%2,0,2],[C%3,0,3],[C%M1,-1,-1],[C%M2,-1,-2]
+[C%M10,-1,0],[C%M20,-2,0],[C%M30,-3,0],[C%M40,-4,0],[C%M60,-6,0]]
+
+       IRP A,B,[X]
+       C%MAKE A,[B]
+       .ISTOP
+       TERMIN
+
+TERMIN
+TERMIN
+END