github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-27 20:47:38 +00:00
Code Issues Releases Wiki Activity

After initialisation, save TS MUD56, not TS MDL56.

Browse Source 
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.)
This commit is contained in:
Adam Sampson
2020-09-09 03:06:11 +01:00
committed by Adam Sampson
parent 366665e77a
commit 5579181af1
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
build/muddle.tcl
View File

@@ -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"

2
src/mudsys/assem.xfile
View File

@@ -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!