github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-30 21:41:56 +00:00
Code Issues Releases Wiki Activity

Add build script variable for the flavor of SALV.

Browse Source 
KA10 uses "SALV", KS10 uses "NSALV", and KL10 is unknown but "SALV for
now."
This commit is contained in:
Lars Brinkhoff
2019-09-03 07:36:42 +02:00
parent 7fa42e016e
commit 66c5bb56d4
3 changed files with 24 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
build/ka10/include.tcl
View File

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

12
build/kl10/include.tcl
View File

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

10
build/ks10/include.tcl
View File

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