mirror of
https://github.com/PDP-10/its.git
synced 2026-03-25 09:52:18 +00:00
38 lines
1003 B
Tcl
38 lines
1003 B
Tcl
log_progress "ENTERING BUILD SCRIPT: MUDDLE"
|
|
|
|
respond "*" ":midas /t sysbin; midas 324bin_midas; midas 324\r"
|
|
respond "\n" "itssw==1\r"
|
|
respond "\n" "ptr==100\r"
|
|
respond "\n" "ldbi=ildb\r"
|
|
respond "\n" "dpbi=idpb\003"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":job midas\r"
|
|
respond "*" ":load sysbin; midas 324bin\r"
|
|
respond "*" "purify\033g"
|
|
respond "TS MIDAS" "midas;ts 324\r"
|
|
respond "*" ":kill\r"
|
|
|
|
respond "*" ":cwd mudsys\r"
|
|
respond "*" ":midas ts stinkm_stink\r"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":xfile assem xfile\r"
|
|
expect -timeout 300 "Assembly done!"
|
|
|
|
respond "*" ":print mudsav; ..new. (udir)\r"
|
|
type ":vk\r"
|
|
|
|
respond "*" ":stinkm\r"
|
|
respond "STINK." "MMUD56 STINK\033@\033\033"
|
|
expect "SETPUR"
|
|
respond "\n" "D\033\033"
|
|
respond "\n" "strng/\0331\"56^?^?^?\033\r"
|
|
respond "\n" ":pdump mudsav; ts mud56\r"
|
|
respond "*" ":start\r"
|
|
respond "..PERM/ -1" ":pdump mudsav; ts mdl56\r"
|
|
respond "*" ":kill\r"
|
|
|
|
respond "*" ":link sys3; ts mdl,mudsav; ts mdl56\r"
|
|
respond "*" ":link sys3; ts muddle,mudsav; ts mdl56\r"
|