mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
31 lines
692 B
Tcl
31 lines
692 B
Tcl
proc dskdmp_switches {hriflg} {
|
|
expect "Configuration"
|
|
respond "?" "ASK\r"
|
|
respond "HRIFLG=" "$hriflg\r"
|
|
respond "BOOTSW=" "N\r"
|
|
respond "R11R6P=" "N\r"
|
|
respond "R11R7P=" "N\r"
|
|
respond "RM03P=" "N\r"
|
|
respond "RM80P=" "N\r"
|
|
respond "RH10P=" "N\r"
|
|
respond "DC10P=" "Y\r"
|
|
respond "NUDSL=" "500.\r"
|
|
respond "KS10P=" "N\r"
|
|
respond "KL10P=" "N\r"
|
|
}
|
|
|
|
proc peek_switches {} {
|
|
respond "with ^C" "340P==1\r\003"
|
|
}
|
|
|
|
proc mark_packs {} {
|
|
mark_pack "0" "0" "0"
|
|
mark_pack "1" "1" "1"
|
|
mark_pack "2" "2" "2"
|
|
mark_pack "3" "3" "3"
|
|
mark_pack "4" "4" "4"
|
|
mark_pack "5" "5" "5"
|
|
mark_pack "6" "6" "6"
|
|
mark_pack "7" "7" "7"
|
|
}
|