diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl index 9679d4c5..72bffc53 100644 --- a/build/ka10/include.tcl +++ b/build/ka10/include.tcl @@ -1,3 +1,5 @@ +set salv "salv" + proc start_dskdmp_its {} { start_dskdmp build/pdp10-ka/boot @@ -97,19 +99,21 @@ proc peek_switches {} { } proc dump_nits {} { + global salv + # Run the new DSKDMP from disk here, to check that it works. respond "DSKDMP" "dskdmp\r" respond "DSKDMP" "l\033ddt\r" # Dump an executable @ SALV. - respond "\n" "t\033salv bin\r" + respond "\n" "t\033$salv bin\r" respond "\n" "\033u" - respond "DSKDMP" "d\033salv\r" + respond "DSKDMP" "d\033$salv\r" # Since we bootstrap with a 2-pack ITS, we need to copy the MFD to # the fresh packs. - respond "\n" "salv\r" + respond "\n" "$salv\r" respond "\n" "ucop\033g" respond "UNIT #" "0" respond "UNIT #" "2" @@ -123,7 +127,7 @@ proc dump_nits {} { # Now dump the new ITS. respond "DSKDMP" "t\033its bin\r" respond "\n" "\033u" - respond "DSKDMP" "m\033salv bin\r" + respond "DSKDMP" "m\033$salv bin\r" respond "\n" "d\033nits\r" respond "\n" "g\033" } diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl index 3ec65ff3..1d2e20b4 100644 --- a/build/kl10/include.tcl +++ b/build/kl10/include.tcl @@ -1,4 +1,8 @@ +set salv "salv" + proc start_dskdmp_its {} { + global salv + start_dskdmp build/pdp10-kl/boot sleep 3 @@ -6,7 +10,7 @@ proc start_dskdmp_its {} { respond " " "its bin\r" sleep 2 respond "\n" "\033\033l" - respond " " "salv bin\r" + respond " " "$salv bin\r" respond "\n" "\033y" respond " " "its\r" patch_its_and_go @@ -93,12 +97,14 @@ proc peek_switches {} { } proc dump_nits {} { + global salv + sleep 3 # Since we bootstrap with a 1-pack ITS, we need to copy the MFD to # the fresh packs. respond "\n" "\033l" - respond " " "salv bin\r" + respond " " "$salv bin\r" respond "\n" "ucop\033g" respond "UNIT #" "0" respond "UNIT #" "1" @@ -113,7 +119,7 @@ proc dump_nits {} { respond "\n" "\033l" respond " " "its bin\r" respond "\n" "\033\033l" - respond " " "salv bin\r" + respond " " "$salv bin\r" respond "\n" "\033y" respond " " "nits\r" } diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl index 19a56fbb..468404b5 100644 --- a/build/ks10/include.tcl +++ b/build/ks10/include.tcl @@ -1,3 +1,5 @@ +set salv "nsalv" + proc start_dskdmp_its {} { global out start_dskdmp $out/minsys.tape @@ -126,20 +128,22 @@ proc peek_switches {} { } proc dump_nits {} { + global salv + # Run the new DSKDMP from disk here, to check that it works. respond "DSKDMP" "dskdmp bin\r" respond "DSKDMP" "l\033ddt\r" # Dump an executable @ NSALV. - respond "\n" "t\033nsalv bin\r" + respond "\n" "t\033$salv bin\r" respond "\n" "\033u" - respond "DSKDMP" "d\033nsalv\r" + respond "DSKDMP" "d\033$salv\r" # Now dump the new ITS. respond "\n" "t\033its bin\r" respond "\n" "\033u" - respond "DSKDMP" "m\033nsalv bin\r" + respond "DSKDMP" "m\033$salv bin\r" respond "\n" "d\033nits\r" respond "\n" "g\033" }