diff --git a/build/build.tcl b/build/build.tcl index 77700b78..f447fa6f 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -119,7 +119,7 @@ respond "*" "purify\033g" respond "*" ":pdump sys;atsign ddt\r" respond "*" ":kill\r" -respond "*" ":midas .;_system;its\r" +respond "*" ":midas dsk0:.;_system;its\r" its_switches expect ":KILL" @@ -262,7 +262,7 @@ respond "time-sharing?" "y\r" expect ":KILL" # magdmp -respond "*" ":midas .;_syseng;magdmp\r" +respond "*" ":midas dsk0:.;_syseng;magdmp\r" respond "PTRHRI=" "y\r" respond "KL10P=" "n\r" respond "TM10BP=" "n\r" @@ -1027,7 +1027,7 @@ respond "\n" "CHEOPS==0\r\003" expect ":KILL" # Spacewar, standalone -respond "*" ":midas /t .;@ spcwar_spcwar; newwar\r" +respond "*" ":midas /t dsk0:.;@ spcwar_spcwar; newwar\r" respond "with ^C" "APR==0\r" respond "\n" "PI==4\r" respond "\n" "DIS==130\r\003" @@ -1053,7 +1053,7 @@ respond "with ^C" "APR==0\r" respond "\n" "PI==4\r" respond "\n" "DIS==130\r\003" expect ":KILL" -respond "*" ":midas /t .;@ mlife_rwg;mlife\r" +respond "*" ":midas /t dsk0:.;@ mlife_rwg;mlife\r" respond "with ^C" "TS==0\r" respond "\n" "APR==0\r" respond "\n" "PI==4\r" @@ -1219,7 +1219,7 @@ respond "*" ":midas sys3;ts create_syseng;create\r" expect ":KILL" respond "*" ":link sys1;ts plan,sys3;ts create\r" -respond "*" ":midas /t .;@ pt_syseng;pt\r" +respond "*" ":midas /t dsk0:.;@ pt_syseng;pt\r" respond "with ^C" "pi==4\r" respond "\n" "tty==120\r" respond "\n" "ptr==104\r" diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl index 924fe504..f61f80b7 100644 --- a/build/ka10/include.tcl +++ b/build/ka10/include.tcl @@ -36,7 +36,7 @@ proc its_switches {} { } proc make_ntsddt {} { - respond "*" ":midas .;@ ddt_system;ddt\r" + respond "*" ":midas dsk0:.;@ ddt_system;ddt\r" respond "cpusw=" "0\r" respond "ndsk=" "0\r" respond "dsksw=" "0\r" @@ -44,14 +44,14 @@ proc make_ntsddt {} { } proc make_salv {} { - respond "*" ":midas .;@ salv_system;salv\r" + respond "*" ":midas dsk0:.;@ salv_system;salv\r" respond "time-sharing?" "n\r" respond "machine?" "KA\r" expect ":KILL" } proc make_dskdmp {} { - respond "*" ":midas .;@ dskdmp_system;dskdmp\r" + respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r" expect "Configuration" respond "?" "ASK\r" respond "HRIFLG=" "N\r" @@ -73,12 +73,10 @@ proc dump_switches {} { } proc dump_nits {} { - respond "DSKDMP" "l\0331\033" - respond "\n" "l\033ddt\r" + respond "DSKDMP" "l\033ddt\r" expect "\n"; type "t\033@ dskdmp\r" expect "\n"; type "\033g" - respond "DSKDMP" "l\0331\033" - respond "\n" "t\033its bin\r" + respond "DSKDMP" "t\033its bin\r" expect "\n"; type "\033u" respond "DSKDMP" "m\033@ salv\r" expect "\n"; type "d\033nits\r" diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl index 376f3783..5cb2909a 100644 --- a/build/ks10/include.tcl +++ b/build/ks10/include.tcl @@ -81,26 +81,26 @@ proc its_switches {} { } proc make_ntsddt {} { - respond "*" ":midas .;@ ddt_system;ddt\r" + respond "*" ":midas dsk0:.;@ ddt_system;ddt\r" respond "cpusw" "3\r" respond "New One Proceed" "1\r" expect ":KILL" } proc make_salv {} { - respond "*" ":midas .;_kshack;nsalv\r" + respond "*" ":midas dsk0:.;_kshack;nsalv\r" respond "Which machine?" "KSRP06\r" expect ":KILL" } proc make_dskdmp {} { - respond "*" ":midas .;_system;dskdmp\r" + respond "*" ":midas dsk0:.;_system;dskdmp\r" expect "Configuration" respond "?" "ksrp06\r" respond "Assemble BOOT?" "no\r" expect ":KILL" - respond "*" ":midas .;bt_system;dskdmp\r" + respond "*" ":midas dsk0:.;bt_system;dskdmp\r" expect "Configuration" respond "?" "ksrp06\r" respond "Assemble BOOT?" "yes\r"