mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
4c0500eb9f
This file set comes with known good versions of SAV FILE and FIXUP FILE, so we no longer run MKSVFL.
61 lines
1.7 KiB
Tcl
61 lines
1.7 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"
|
|
# For now, we don't run this since the resulting files are empty,
|
|
# and we are using known good files from backup tapes instead.
|
|
|
|
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"
|
|
|
|
respond "*" ":link sys1;ts mud55,mudsav;ts mud55\r"
|
|
|
|
# Zork startup
|
|
respond "*" ":midas sys2; ts zork_taa; zork\r"
|
|
expect ":KILL"
|