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