mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
77 lines
2.4 KiB
Tcl
77 lines
2.4 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"
|
|
|
|
#Build Muddle PCOMP compiler.
|
|
respond "*" ":midas sys1;ts pcomp_mudsys;subsys maker\r"
|
|
respond "Type in Subsystem (Save File) name:" "pcomp\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" "mudsav\r"
|
|
expect ":KILL"
|
|
|
|
#Build Muddle ASSEM assembler.
|
|
respond "*" ":midas sys1;ts assem_mudsys;subsys maker\r"
|
|
respond "Type in Subsystem (Save File) name:" "assem\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" "mudsav\r"
|
|
expect ":KILL"
|
|
|
|
# Zork startup
|
|
respond "*" ":midas sys2; ts zork_taa; zork\r"
|
|
expect ":KILL"
|