mirror of
https://github.com/PDP-10/its.git
synced 2026-01-27 12:42:10 +00:00
8b8e1cf952
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.
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
|