mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
3758abedbd
These two databases contain pure code routines that Muddle images can refer to. We don't currently have whatever tool was used to maintain them, so this is a MIDAS program that creates and populates them. SAV FILE includes some stubs for functions in the LSRTNS and MUDDLE libraries -- these are the functions that the existing Muddle 54 Zork images need. For the FIELD function in LSRTNS, returning FALSE is equivalent to the user not being found. I have no idea what C-FCN in MUDDLE is for, but very early Zork calls it after a command is entered, and seems happy enough with it doing nothing.
55 lines
1.5 KiB
Tcl
55 lines
1.5 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: MUDDLE"
|
|
|
|
# STINK 121T, used to build Muddle
|
|
respond "*" ":midas mudsys;ts stink_sysen2;stink 121t\r"
|
|
expect ":KILL"
|
|
|
|
mkdir "mudsav"
|
|
|
|
proc build_muddle {dir version} {
|
|
respond "*" ":cwd $dir\r"
|
|
|
|
respond "*" ":xfile mud$version assem\r"
|
|
expect -timeout 300 "Assembly done!"
|
|
|
|
respond "*" ":mudsys;stink\r"
|
|
respond "STINK." "MMUD$version STINK\033@\033\033"
|
|
expect "SETPUR"
|
|
respond "\n" "D\033\033"
|
|
respond "\n" ":xfile mud$version init\r"
|
|
expect -timeout 100 "Init done!"
|
|
}
|
|
|
|
build_muddle "muds54" "54"
|
|
build_muddle "mudsys" "56"
|
|
|
|
# Generate SAV FILE and FIXUP FILE for Muddle pure code library
|
|
respond "*" ":midas mudsys; ts mksvfl_mudsys;mksvfl\r"
|
|
expect ":KILL"
|
|
respond "*" ":mudsys;mksvfl\r"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":midas sys3; ts mudinq_sysen2; mudinq\r"
|
|
expect ":KILL"
|
|
respond "*" ":link sys3; ts purge, sys3; ts mudinq\r"
|
|
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 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"
|
|
expect ":KILL"
|
|
respond "*" ":link sys3; ts mudchk, sys3; ts mudcom\r"
|
|
respond "*" ":link sys3; ts mudlst, sys3; ts mudcom\r"
|
|
respond "*" ":link sys3; ts mudfnd, sys3; ts mudcom\r"
|
|
|
|
respond "*" ":midas sys3; ts combat_sysen3; combat\r"
|
|
respond "(Y OR N)" "Y\r"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":midas sys3; ts pick_sysen2; pick\r"
|
|
expect ":KILL"
|