mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
61 lines
1.2 KiB
Tcl
61 lines
1.2 KiB
Tcl
set build [pwd]/build
|
|
set out "out/$env(EMULATOR)"
|
|
set emulator_escape "\034"
|
|
|
|
proc start_salv {} {
|
|
uplevel #0 {spawn ./tools/sims/BIN/pdp10-kl build/pdp10-kl/init}
|
|
setup_timeout
|
|
respond "MAGDMP\r\n" "l\033ddt\r"
|
|
respond "\n" "t\033salv bin\r"
|
|
}
|
|
|
|
proc start_dskdmp args {
|
|
quit_emulator
|
|
set ini ""
|
|
if {[llength $args] == 1} {
|
|
set ini [lindex $args 0]
|
|
} {
|
|
set ini "build/pdp10-kl/boot2"
|
|
}
|
|
set foo "spawn ./tools/sims/BIN/pdp10-kl $ini"
|
|
uplevel #0 $foo
|
|
setup_timeout
|
|
}
|
|
|
|
proc mount_tape {file} {
|
|
respond "sim>" "at mta0 $file\r"
|
|
respond "sim>" "c\r"
|
|
expect -timeout 2 "BUGPC/" {
|
|
type "\033P"
|
|
} timeout {
|
|
;
|
|
}
|
|
}
|
|
|
|
proc create_tape {file} {
|
|
respond "sim>" "at mta0 $file\r"
|
|
respond "sim>" "c\r"
|
|
expect -timeout 2 "BUGPC/" {
|
|
type "\033P"
|
|
} timeout {
|
|
;
|
|
}
|
|
}
|
|
|
|
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/kl10/include.tcl
|
|
source build/build.tcl
|