mirror of
https://github.com/PDP-10/its.git
synced 2026-04-02 12:19:14 +00:00
e18ad0db11
Doing expect_after before a child process has been spawned causes Expect to try reading from stdin. If stdin is /dev/null, it gets an EOF from the read, assumes it's been closed... and closes stdout too, so we don't see any more of the child process interaction. WIP because I've only done this for simh.
57 lines
1.1 KiB
Tcl
57 lines
1.1 KiB
Tcl
set build [pwd]/build
|
|
set out "out/$env(EMULATOR)"
|
|
set emulator_escape "\034"
|
|
|
|
proc start_salv {} {
|
|
uplevel #0 {spawn pdp10 build/simh/init}
|
|
setup_timeout
|
|
|
|
respond "sim>" "show ver\r"
|
|
respond "sim>" "b tu1\r"
|
|
expect "MTBOOT"
|
|
}
|
|
|
|
proc restart_nsalv {} {
|
|
respond "sim>" "b tu1\r"
|
|
expect "MTBOOT"
|
|
}
|
|
|
|
proc start_dskdmp {} {
|
|
global out
|
|
respond "sim>" "at tu2 $out/dskdmp.tape\r"
|
|
respond "sim>" "b tu2\r"
|
|
respond "MTBOOT" "\033g"
|
|
}
|
|
|
|
proc start_its {} {
|
|
uplevel #0 {spawn pdp10 build/simh/boot}
|
|
setup_timeout
|
|
}
|
|
|
|
proc mount_tape {file} {
|
|
respond "sim>" "at tu0 $file\r"
|
|
respond "sim>" "c\r"
|
|
}
|
|
|
|
proc create_tape {file} {
|
|
respond "sim>" "at tu0 $file\r"
|
|
respond "sim>" "c\r"
|
|
}
|
|
|
|
proc quit_emulator {} {
|
|
respond "sim>" "q\r"
|
|
expect eof
|
|
}
|
|
|
|
proc initialize_comsat {} {
|
|
# commented out because you cannot run COMSAT initialization without network
|
|
# support
|
|
#respond "*" ":job comsat\r"
|
|
#respond "*" ":load .mail.;comsat launch\r"
|
|
#respond "*" "debug/-1\r"
|
|
#type "mfinit\033g"
|
|
}
|
|
|
|
source build/ks10/include.tcl
|
|
source build/build.tcl
|