1
0
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:
Lars Brinkhoff
2021-06-27 16:49:50 +02:00
parent ae6dc489aa
commit 233f6fac5b

View File

@@ -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"
}