Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / 20c / gluem.mud

diff --git a/mim/development/mim/20c/gluem.mud b/mim/development/mim/20c/gluem.mud
new file mode 100644 (file)
index 0000000..39cd46b
--- /dev/null
+++ b/mim/development/mim/20c/gluem.mud
@@ -0,0 +1,19 @@
+
+<USE "MSGLUE" "PDUMP">
+
+<DEFINE D-G-P (NUM "AUX" (PD-DP <STRING "MIM:SAV.M20C-" <UNPARSE .NUM>>))
+       (<MAPF ,LIST
+              <FUNCTION (X)
+                   (<FILE-GLUE <STRING .X ".MSUBR">>
+                    <PDUMP <STRING .X ".GSUBR"> .PD-DP>)>
+              ("ACVAR" "FILE-INDEX" "JSYS" "MOVERS" "NEWGC" "OTHGEN" "PART1"
+               "PEEP" "STRMAN" "FILE")>)>
+<PROG (N)
+      <PRINC "Type in M20C version:  " ,OUTCHAN>
+      <COND (<TYPE? <SET N <READ ,INCHAN>> FIX> <D-G-P .N>)
+           (ELSE
+            <PRINC "Not fix, try again." ,OUTCHAN>
+            <CRLF ,OUTCHAN>
+            <AGAIN>)>>
+      
+                   
\ No newline at end of file