mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
124 lines
3.3 KiB
Tcl
124 lines
3.3 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: SAIL"
|
|
|
|
# stktrn
|
|
respond "*" ":cwd sail\r"
|
|
respond "*" ":fail stktrn\r"
|
|
|
|
# jobdat
|
|
respond "*" "jobdat\r"
|
|
|
|
# fail
|
|
respond "*" "fail\r"
|
|
respond "*" "\032:kill\r"
|
|
respond "*" ":delete fail bin\r"
|
|
respond "*" ":stink fail\r"
|
|
respond "\n" "\177"
|
|
respond "??" "\033\0331l decsys;decbot bin\r"
|
|
respond "*" ".jbsa/strt\r"
|
|
respond ":" "56/1000\r"
|
|
respond "\n" "\033y sail; fail bin\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# Make links needed for SUDS.
|
|
respond "*" ":link wl; switch 999999, draw; switch >\r"
|
|
respond "*" ":link wl; first 999999, draw; first >\r"
|
|
respond "*" ":link wl; sigsub 999999, draw; sigsub >\r"
|
|
respond "*" ":link draw; board0 999999, wl; board0 >\r"
|
|
respond "*" ":link draw; board1 999999, wl; board1 >\r"
|
|
respond "*" ":link draw; board2 999999, wl; board2 >\r"
|
|
respond "*" ":link draw; decloc 999999, wl; decloc >\r"
|
|
respond "*" ":link draw; lg627 999999, wl; lg627 >\r"
|
|
respond "*" ":link draw; lg684 999999, wl; lg684 >\r"
|
|
respond "*" ":link draw; mpg21 999999, wl; mpg21 >\r"
|
|
respond "*" ":link draw; mpg216 999999, wl; mpg216 >\r"
|
|
respond "*" ":link draw; ncp13 999999, wl; ncp13 >\r"
|
|
respond "*" ":link draw; ug61c 999999, wl; ug61c >\r"
|
|
respond "*" ":link sys1; ts d, datdrw; d bin\r"
|
|
respond "*" ":link sys1; ts wl, datdrw; wl bin\r"
|
|
respond "*" ":link sys1; ts pc, datdrw; pc bin\r"
|
|
respond "*" ":link sys1; ts scnv, datdrw; scnv bin\r"
|
|
|
|
# The drawing program needs WL; BOARDS REL
|
|
respond "*" ":cwd wl\r"
|
|
respond "*" ":fail boards\r"
|
|
respond ";^C" ";\003"
|
|
|
|
# The PC program needs WL; PCBOARDS REL
|
|
respond "*" "PCBOARDS_BOARDS\r"
|
|
respond ";^C" "PC\r"
|
|
respond "SELECTED" ";\003"
|
|
respond "*" "\032:kill\r"
|
|
|
|
# SUDS drawing program
|
|
respond "*" ":cwd draw\r"
|
|
respond "*" ":fail d\r"
|
|
respond ";^C" ";\003"
|
|
respond "*" "\032:kill\r"
|
|
respond "*" ":stink d\r"
|
|
respond "STINK." "\177"
|
|
respond "??" "\033\0331L decsys; decbot bin\r"
|
|
respond "*" ".jbsa/strt\r"
|
|
respond ":" "56/107\r"
|
|
respond "\n" ":pdump datdrw; d bin\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# SUDS ... PC
|
|
respond "*" ":fail pc_d\r"
|
|
respond ";^C" "PC\r"
|
|
respond "SELECTED" ";\003"
|
|
respond "*" "\032:kill\r"
|
|
respond "*" ":stink pc\r"
|
|
respond "STINK." "\177"
|
|
respond "??" "\033\0331L decsys; decbot bin\r"
|
|
respond "*" ".jbsa/strt\r"
|
|
respond ":" "56/107\r"
|
|
respond "\n" ":pdump datdrw; pc bin\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# SUDS layout program.
|
|
respond "*" ":fail layd_d\r"
|
|
respond ";^C" "ONE\r"
|
|
respond "SELECTED" "D\r"
|
|
respond "\n" ";\003"
|
|
respond "*" "laypc_d\r"
|
|
respond ";^C" "ONE\r"
|
|
respond "SELECTED" "PC\r"
|
|
respond "SELECTED" ";\003"
|
|
respond "*" "\032:kill\r"
|
|
respond "*" ":stink lay\r"
|
|
respond "STINK." "\177"
|
|
respond "??" "\033\0331L decsys; decbot bin\r"
|
|
respond "*" ".jbsa/strt\r"
|
|
respond ":" "56/107\r"
|
|
respond "\n" ":pdump datdrw; lay bin\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# SUDS wirelist program.
|
|
respond "*" ":cwd wl\r"
|
|
respond "*" ":fail wl\r"
|
|
respond "*" "wboard\r"
|
|
respond "*" "\032:kill\r"
|
|
respond "*" ":stink wl\r"
|
|
respond "STINK." "\177"
|
|
respond "??" "\033\0331L decsys; decbot bin\r"
|
|
respond "*" ".jbsa/strt\r"
|
|
respond ":" "56/107\r"
|
|
respond "\n" ":pdump datdrw; nodips bin\r"
|
|
respond "*" ":go\r"
|
|
expect {
|
|
"PDP-6 not available" {
|
|
respond "*" "C"
|
|
# Display not available
|
|
respond "*" "C"
|
|
expect "TOP MODE"
|
|
}
|
|
"TOP MODE" {}
|
|
}
|
|
respond "*" "XRESIDENT\r"
|
|
respond "GO ON." "Y\r"
|
|
respond "WL BIN" "\r"
|
|
respond "*" ":kill\r"
|
|
|
|
respond "*" ":midas datdrw;_draw; scnv\r"
|
|
expect ":KILL"
|