github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-26 08:53:29 +00:00
Code Issues Releases Wiki Activity

Specify ITS machine name to build.

Browse Source
This commit is contained in:
Lars Brinkhoff
2020-06-08 12:43:54 +02:00
parent 3d27de18ed
commit 1807333e8d
4 changed files with 46 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
build/build.tcl
View File

@@ -7,6 +7,14 @@ proc log_progress {x} {
log_progress "ENTERING MAIN BUILD SCRIPT"
if [info exists env(MCHN)] {
set mchn "$env(MCHN)"
}
puts ""
puts "BUILDING $mchn ITS"
puts ""
# If the environment variable BASICS is set to "yes", only build
# the basics; ITS, tools, infastructure.
if {![info exists env(BASICS)]} {

19
build/ka10/include.tcl
View File

@@ -1,3 +1,6 @@
#Default ITS name for KA10.
set mchn "KA"
set salv "salv"
proc start_dskdmp_its {} {
@@ -48,7 +51,8 @@ proc frontend_bootstrap {} {
}
proc its_switches {} {
respond "MACHINE NAME =" "KA\r"
global mchn
respond "MACHINE NAME =" "$mchn\r"
}
proc make_ntsddt {} {
@@ -66,9 +70,11 @@ proc make_ntsddt {} {
}
proc make_salv {} {
global mchn
respond "*" ":midas dsk0:.;_system;salv\r"
respond "time-sharing?" "n\r"
respond "machine?" "KA\r"
respond "machine?" "$mchn\r"
expect ":KILL"
}
@@ -91,7 +97,9 @@ proc make_dskdmp {} {
}
proc dump_switches {} {
respond "WHICH MACHINE?" "KA\r"
global mchn
respond "WHICH MACHINE?" "$mchn\r"
}
proc peek_switches {} {
@@ -142,8 +150,9 @@ proc magdmp_switches {} {
proc bootable_tapes {} {
global emulator_escape
global out
global mchn
respond "*" ":midas .;magdmp bin.ka_syseng;magdmp\r"
respond "*" ":midas .;magdmp bin.${mchn}_syseng;magdmp\r"
respond "PTRHRI=" "n\r"
magdmp_switches
expect ":KILL"
@@ -152,7 +161,7 @@ proc bootable_tapes {} {
create_tape "$out/magdmp.tape"
type ":magfrm\r"
respond "?" "KA\r"
respond "?" "$mchn\r"
respond "?" "Y"
respond "_" "W"
respond "FROM" ".; @ DDT\r"

20
build/kl10/include.tcl
View File

@@ -1,3 +1,6 @@
#Default ITS name for KL10.
set mchn "KL"
set salv "salv"
proc start_dskdmp_its {} {
@@ -49,7 +52,9 @@ proc frontend_bootstrap {} {
}
proc its_switches {} {
respond "MACHINE NAME =" "KL\r"
global mchn
respond "MACHINE NAME =" "$mchn\r"
}
proc make_ntsddt {} {
@@ -64,9 +69,11 @@ proc make_ntsddt {} {
}
proc make_salv {} {
global mchn
respond "*" ":midas dsk0:.;_system;salv\r"
respond "time-sharing?" "n\r"
respond "machine?" "KL\r"
respond "machine?" "$mchn\r"
expect ":KILL"
}
@@ -89,7 +96,9 @@ proc make_dskdmp {} {
}
proc dump_switches {} {
respond "WHICH MACHINE?" "KL\r"
global mchn
respond "WHICH MACHINE?" "$mchn\r"
}
proc peek_switches {} {
@@ -137,8 +146,9 @@ proc magdmp_switches {} {
proc bootable_tapes {} {
global emulator_escape
global out
global mchn
respond "*" ":midas .;magdmp bin.kl_syseng;magdmp\r"
respond "*" ":midas .;magdmp bin.${mchn}_syseng;magdmp\r"
respond "PTRHRI=" "n\r"
magdmp_switches
expect ":KILL"
@@ -147,7 +157,7 @@ proc bootable_tapes {} {
create_tape "$out/magdmp.tape"
type ":magfrm\r"
respond "?" "KL\r"
respond "?" "$mchn\r"
respond "?" "Y"
respond "_" "W"
respond "FROM" ".; @ DDT\r"

11
build/ks10/include.tcl
View File

@@ -1,3 +1,6 @@
#Default ITS name for KS10.
set mchn "DB"
set salv "nsalv"
proc start_dskdmp_its {} {
@@ -87,7 +90,9 @@ proc frontend_bootstrap {} {
}
proc its_switches {} {
respond "MACHINE NAME =" "DB\r"
global mchn
respond "MACHINE NAME =" "$mchn\r"
respond "Configuration?" "RP06\r"
}
@@ -120,7 +125,9 @@ proc make_dskdmp {} {
}
proc dump_switches {} {
respond "WHICH MACHINE?" "DB\r"
global mchn
respond "WHICH MACHINE?" "$mchn\r"
}
proc peek_switches {} {