github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-20 01:45:49 +00:00
Code Issues Releases Wiki Activity

Write files in . to DSK0:, i.e. the first pack.

Browse Source 
This way, there's no need to bring the second pack online in DSKDMP.
This commit is contained in:
Lars Brinkhoff 2018-03-02 20:54:23 +01:00 committed by Eric Swenson
parent d0091a0bea
commit 9a5ec1b8d8
3 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
build/build.tcl
View File

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

12
build/ka10/include.tcl
View File

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

8
build/ks10/include.tcl
View File

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