From 5579181af111552a3b7f0d65b209a82ddf7e4888 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Wed, 9 Sep 2020 03:06:11 +0100 Subject: [PATCH] After initialisation, save TS MUD56, not TS MDL56. Lars has found a couple of examples of TS MUD54 files, and they're the initialised version (with references to internal functions filled in, etc.). TAA's ZORK launcher also expects TS MUDxx to be the initialised version. So it appears that the ITS version didn't generate TS MDLxx. (Why does the initialisation process write out TS MUD56, then, if you're only going to pdump the result over it? Because the last step in initialisation is to invoke the GC, and getting back from the GC to the interpreter requires mapping pages back in from the executable.) --- build/muddle.tcl | 6 +++--- src/mudsys/assem.xfile | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/build/muddle.tcl b/build/muddle.tcl index 0332b6c3..2c3eb24e 100644 --- a/build/muddle.tcl +++ b/build/muddle.tcl @@ -16,7 +16,7 @@ respond "\n" "D\033\033" respond "\n" "strng/\0331\"56^?^?^?\033\r" respond "\n" ":pdump mudsav; ts mud56\r" respond "*" ":start\r" -respond "*" ":pdump mudsav; ts mdl56\r" +respond "*" ":pdump mudsav; ts mud56\r" respond "*" ":kill\r" respond "*" ":midas sys3; ts mudinq_sysen2; mudinq\r" @@ -26,8 +26,8 @@ respond "*" ":link sys3; ts makscr, sys3; ts mudinq\r" respond "*" ":link sys3; ts status, sys3; ts mudinq\r" respond "*" ":link sys3; ts whomud, sys3; ts mudinq\r" -respond "*" ":link sys3; ts mdl,mudsav; ts mdl56\r" -respond "*" ":link sys3; ts muddle,mudsav; ts mdl56\r" +respond "*" ":link sys3; ts mdl,mudsav; ts mud56\r" +respond "*" ":link sys3; ts muddle,mudsav; ts mud56\r" respond "*" ":midas sys3; ts mudcom_sysen3; mudcom\r" respond "(Y OR N)" "Y\r" diff --git a/src/mudsys/assem.xfile b/src/mudsys/assem.xfile index 6ee884bf..13a398e4 100644 --- a/src/mudsys/assem.xfile +++ b/src/mudsys/assem.xfile @@ -41,7 +41,7 @@ To link and initialize: strng/$1"56^?^?^?$ (type ^? as ^ then ?) :pdump mudsav;ts mud56 $g (wait for return to DDT) - :pdump mudsav;ts mdl56 + :pdump mudsav;ts mud56 :kill Assembly done!