mirror of
https://github.com/PDP-10/its.git
synced 2026-02-26 17:03:20 +00:00
Refactor DSKDMP assembly-time switches.
This commit is contained in:
@@ -62,11 +62,10 @@ proc make_salv {} {
|
||||
expect ":KILL"
|
||||
}
|
||||
|
||||
proc make_dskdmp {} {
|
||||
respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r"
|
||||
proc dskdmp_switches {hriflg} {
|
||||
expect "Configuration"
|
||||
respond "?" "ASK\r"
|
||||
respond "HRIFLG=" "N\r"
|
||||
respond "HRIFLG=" "$hriflg\r"
|
||||
respond "BOOTSW=" "N\r"
|
||||
respond "R11R6P=" "N\r"
|
||||
respond "R11R7P=" "N\r"
|
||||
@@ -77,6 +76,14 @@ proc make_dskdmp {} {
|
||||
respond "NUDSL=" "250.\r"
|
||||
respond "KS10P=" "N\r"
|
||||
respond "KL10P=" "N\r"
|
||||
}
|
||||
|
||||
proc make_dskdmp {} {
|
||||
global emulator_escape
|
||||
global out
|
||||
|
||||
respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r"
|
||||
dskdmp_switches "N"
|
||||
expect ":KILL"
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user