Build script for Muddle and tools.

The MDL 54/104 and 55/105 manuals give the name SYS:TS MDL for the
interpreter, and a comment in MAIN says it was TS MUDDLE, so install
links for both.

Makefile

@@ -9,7 +9,7 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       inquir acount gz sys decsys ecc alan sail kcc kcc_sy c games archy dcp \
       spcwar rwg libmax rat z emaxim rz maxtul aljabr cffk das ell ellen \
       jim jm jpg macrak maxdoc maxsrc mrg munfas paulw reh rlb rlb% share \
-      tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs
+      tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs mudsys
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc chprog
 BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon graphs
 

README.md

@@ -104,6 +104,7 @@ Some major applications:
 - Emacs, editor
 - Mac Hack VI and Tech II, chess programs
 - Maclisp, interpreter and compiler
+- Muddle, interpreter
 - Macsyma, symbolic math
 - Midas, assembler
 - PDP-11 simulator

build/build.tcl

@@ -457,6 +457,8 @@ if {$env(BASICS)!="yes"} {
     source $build/scheme.tcl
 }
 
+source $build/muddle.tcl
+
 respond "*" ":midas sys3;ts lsrprt_sysen1; lsrprt\r"
 expect ":KILL"
 

build/muddle.tcl

@@ -0,0 +1,35 @@
+respond "*" ":cwd mudsys\r"
+respond "*" ":midas /t midasm_midas\r"
+respond "\n" "itssw==1\r"
+respond "\n" "ptr==100\r"
+respond "\n" "ldbi=ildb\r"
+respond "\n" "dpbi=idpb\003"
+expect ":KILL"
+
+respond "*" ":job midasm\r"
+respond "*" ":load midasm bin\r"
+respond "*" "purify\033g"
+respond "TS MIDAS" "mudsys;ts midasm\r"
+respond "*" ":kill\r"
+
+respond "*" ":midas ts stinkm_stink\r"
+expect ":KILL"
+
+respond "*" ":xfile assem xfile\r"
+expect "Assembly done!"
+
+respond "*" ":print mudsav; ..new. (udir)\r"
+type ":vk\r"
+
+respond "*" ":stinkm\r"
+respond "STINK." "MMUD56 STINK\033@\033\033"
+expect  "SETPUR"
+respond "\n" "D\033\033"
+respond "\n" "strng/\0331\"56^?^?^?\033\r"
+respond "\n" ":pdump mudsav; ts mud56\r"
+respond "*" ":start\r"
+respond "..PERM/   -1" ":pdump mudsav; ts mdl56\r"
+respond "*" ":kill\r"
+
+respond "*" ":link sys3; ts mdl,mudsav; ts mdl56\r"
+respond "*" ":link sys3; ts muddle,mudsav; ts mdl56\r"

doc/programs.md

@@ -102,6 +102,7 @@
 - MODEMS, modems gragon.
 - MSPLIT, split a file into smaller parts.
 - MTBOOT, make bootable tapes.
+- MUDDLE, MDL interpreter.
 - NAME, Shows logged in users and locations, aka FINGER.
 - NETIME, network time dragon.
 - NICNAM/NICWHO, look up someone in the ARPAnet directory.

src/mudsys/assem.xfile

@@ -43,4 +43,5 @@ To link and initialize:
 	$g			(wait for return to DDT)
 	:pdump mudsav;ts mdl56
 	:kill
+Assembly done!