mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
72 lines
1.4 KiB
Tcl
72 lines
1.4 KiB
Tcl
set build [pwd]/build
|
|
set out "[pwd]/out/$env(EMULATOR)"
|
|
cd build/klh10
|
|
|
|
set emulator_prompt "KLH10"
|
|
set emulator_escape "\034"
|
|
|
|
proc start_salv {} {
|
|
global mchn
|
|
uplevel #0 "spawn ./kn10-ks-its ../mchn/$mchn/nsalv.ini"
|
|
setup_timeout
|
|
expect "EOF"
|
|
respond "KLH10#" "go\r"
|
|
}
|
|
|
|
proc restart_nsalv {} {
|
|
quit_emulator
|
|
start_salv
|
|
}
|
|
|
|
proc start_dskdmp args {
|
|
global out
|
|
set tape ""
|
|
if {[llength $args] == 1} {
|
|
set tape [lindex $args 0]
|
|
} {
|
|
set tape "$out/sources.tape"
|
|
}
|
|
#respond "KLH10>" "zero\r"
|
|
quit_emulator
|
|
uplevel #0 "spawn ./kn10-ks-its $out/dskdmp.ini"
|
|
setup_timeout
|
|
expect "EOF"
|
|
respond "KLH10#" "devmo mta0 $tape\r"
|
|
respond "KLH10#" "go\r"
|
|
}
|
|
|
|
proc start_its {} {
|
|
global out
|
|
uplevel #0 "spawn ./kn10-ks-its $out/dskdmp.ini"
|
|
setup_timeout
|
|
expect "EOF"
|
|
respond "KLH10#" "go\r"
|
|
}
|
|
|
|
proc mount_tape {file} {
|
|
respond "KLH10>" "devmo mta0 $file\r"
|
|
respond "KLH10>" "c\r"
|
|
}
|
|
|
|
proc create_tape {file} {
|
|
respond "KLH10>" "devmo mta0 $file create\r"
|
|
respond "KLH10>" "c\r"
|
|
}
|
|
|
|
proc quit_emulator {} {
|
|
respond "KLH10>" "quit\r"
|
|
respond "Confirm" "y\r"
|
|
}
|
|
|
|
proc initialize_comsat {} {
|
|
respond "*" ":job comsat\r"
|
|
respond "*" ":load .mail.;comsat launch\r"
|
|
respond "*" "debug/-1\r"
|
|
type "mfinit\033g"
|
|
respond "*" ":kill\r"
|
|
}
|
|
|
|
source ../ks10/include.tcl
|
|
source ../mchn/$mchn/mchn.tcl
|
|
source ../build.tcl
|