github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-25 03:45:11 +00:00
Code Issues Releases Wiki Activity

New build scripts for DC10.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-07-12 20:24:24 +02:00
parent dda3187559
commit 484d9c3f84
10 changed files with 72 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
build/ka10/include.tcl
View File

@@ -8,35 +8,35 @@ proc start_dskdmp_its {} {
proc mark_packs {} {
respond "\n" "mark\033g"
respond "UNIT #" "0"
respond "#0?" "y"
respond "NO =" "2\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "2\r"
respond "\n" "mark\033g"
respond "UNIT #" "1"
respond "#1?" "y"
respond "NO =" "3\r"
expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "3\r"
respond "\n" "mark\033g"
respond "UNIT #" "2"
respond "#2?" "y"
# respond "#0?" "y"
respond "NO =" "0\r"
expect -timeout 300 "VERIFICATION"
# expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "0\r"
respond "DDT" "mark\033g"
respond "UNIT #" "3"
respond "#3?" "y"
respond "\n" "mark\033g"
respond "UNIT #" "1"
# respond "#1?" "y"
respond "NO =" "1\r"
expect -timeout 300 "VERIFICATION"
# expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "1\r"
respond "\n" "mark\033g"
respond "UNIT #" "2"
# respond "#2?" "y"
respond "NO =" "2\r"
# expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "2\r"
respond "DDT" "mark\033g"
respond "UNIT #" "3"
# respond "#3?" "y"
respond "NO =" "3\r"
# expect -timeout 300 "VERIFICATION"
respond "ALLOC =" "3000\r"
respond "PACK ID =" "3\r"
}
proc prepare_frontend {} {
@@ -81,8 +81,8 @@ proc make_dskdmp {} {
respond "RM03P=" "N\r"
respond "RM80P=" "N\r"
respond "RH10P=" "N\r"
respond "DC10P=" "N\r"
respond "NUDSL=" "250.\r"
respond "DC10P=" "Y\r"
respond "NUDSL=" "440.\r"
respond "KS10P=" "N\r"
respond "KL10P=" "N\r"
expect ":KILL"
@@ -109,19 +109,19 @@ proc dump_nits {} {
# Since we bootstrap with a 2-pack ITS, we need to copy the MFD to
# the fresh packs.
respond "\n" "salv\r"
respond "\n" "ucop\033g"
respond "UNIT #" "0"
respond "UNIT #" "2"
respond "OK?" "Y"
respond "DDT" "ucop\033g"
respond "UNIT #" "0"
respond "UNIT #" "3"
respond "OK?" "Y"
respond "DDT" "\033u"
# respond "\n" "salv\r"
# respond "\n" "ucop\033g"
# respond "UNIT #" "0"
# respond "UNIT #" "2"
# respond "OK?" "Y"
# respond "DDT" "ucop\033g"
# respond "UNIT #" "0"
# respond "UNIT #" "3"
# respond "OK?" "Y"
# respond "DDT" "\033u"
# Now dump the new ITS.
respond "DSKDMP" "t\033its bin\r"
respond "\n" "t\033its bin\r"
respond "\n" "\033u"
respond "DSKDMP" "m\033salv bin\r"
respond "\n" "d\033nits\r"