mirror of
https://github.com/PDP-10/its.git
synced 2026-03-23 17:22:35 +00:00
14 lines
236 B
Tcl
14 lines
236 B
Tcl
proc dskdmp_switches {boot} {
|
|
expect "Configuration"
|
|
respond "?" "ksrp06\r"
|
|
respond "Assemble BOOT?" "$boot\r"
|
|
}
|
|
|
|
proc peek_switches {} {
|
|
respond "with ^C" "\003"
|
|
}
|
|
|
|
proc mark_packs {} {
|
|
mark_pack "0" "0" "foobar"
|
|
}
|