diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl index 4275e57a..4364bd1b 100644 --- a/build/ka10/include.tcl +++ b/build/ka10/include.tcl @@ -15,7 +15,7 @@ proc mark_packs {} { respond "PACK # =" "2\r" respond "PACK ID =" "2\r" - respond "DDT" "mark\033g" + respond "\n" "mark\033g" respond "UNIT #" "1" respond "#1?" "y" respond "NO =" "3\r" @@ -23,6 +23,24 @@ proc mark_packs {} { respond "ALLOC =" "3000\r" respond "PACK # =" "3\r" respond "PACK ID =" "3\r" + + respond "\n" "mark\033g" + respond "UNIT #" "2" + respond "#2?" "y" + respond "NO =" "0\r" + expect -timeout 300 "VERIFICATION" + respond "ALLOC =" "3000\r" + respond "PACK # =" "0\r" + respond "PACK ID =" "0\r" + + respond "DDT" "mark\033g" + respond "UNIT #" "3" + respond "#3?" "y" + respond "NO =" "1\r" + expect -timeout 300 "VERIFICATION" + respond "ALLOC =" "3000\r" + respond "PACK # =" "1\r" + respond "PACK ID =" "1\r" } proc prepare_frontend {} { @@ -77,9 +95,25 @@ proc peek_switches {} { } proc dump_nits {} { + # Run the new DSKDMP from disk here, to check that it works. + respond "DSKDMP" "dskdmp\r" + respond "DSKDMP" "l\033ddt\r" - expect "\n"; type "t\033@ dskdmp\r" - expect "\n"; type "\033g" + + # Since we bootstrap with a 2-pack ITS, we need to copy the MFD to + # the fresh packs. + expect "\n"; type "t\033salv\r" + expect "\n"; type "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" expect "\n"; type "\033u" respond "DSKDMP" "m\033@ salv\r" diff --git a/build/sims/boot2 b/build/sims/boot2 index 763b75e8..ea4caeae 100644 --- a/build/sims/boot2 +++ b/build/sims/boot2 @@ -8,5 +8,7 @@ set mta mpx=7 set mta type=b at dpa0 out/sims/rp03.2 at dpa1 out/sims/rp03.3 +at dpa2 out/sims/rp03.0 +at dpa3 out/sims/rp03.1 set dpa noheaders b ptr diff --git a/build/sims/config.202 b/build/sims/config.202 index 474a3eb5..1eb63300 100644 --- a/build/sims/config.202 +++ b/build/sims/config.202 @@ -209,7 +209,7 @@ DEFOPT PAGPRE==1 ; Page-in preemption DEFOPT SCHBLN==10. ;NUMBER OF RUNNABLE JOBS TO REMEMBER DEFOPT NQCHN==30. ;NUMBER 2314 CHNLS -DEFOPT NQS==2 ;# DISK UNITS +DEFOPT NQS==4 ;# DISK UNITS DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG DEFSYM NUDSL==250. ;# USER DIRECTORIES ON DISK DEFOPT RP10P==1 ;HAS DEC RP10 DISK CONTROL (RP02) diff --git a/build/sims/init b/build/sims/init index faa12cb6..eff602d2 100644 --- a/build/sims/init +++ b/build/sims/init @@ -6,5 +6,7 @@ at mta0 out/sims/magdmp.tap at mta5 out/sims/ka-minsys.tape at dpa0 out/sims/rp03.2 at dpa1 out/sims/rp03.3 +at dpa2 out/sims/rp03.0 +at dpa3 out/sims/rp03.1 set dpa headers b ptr diff --git a/build/sims/run b/build/sims/run index f13d1f68..6841afb6 100644 --- a/build/sims/run +++ b/build/sims/run @@ -8,6 +8,8 @@ set dpy enabled at ptr bin/ka10/boot/dskdmp.rim at dpa0 out/sims/rp03.2 at dpa1 out/sims/rp03.3 +at dpa2 out/sims/rp03.0 +at dpa3 out/sims/rp03.1 set mta mpx=7 set mta type=b set dt mpx=6 diff --git a/src/system/salv.313 b/src/system/salv.313 index ceca7a44..1d1819d3 100644 --- a/src/system/salv.313 +++ b/src/system/salv.313 @@ -113,7 +113,7 @@ PRINTX /Which machine? / LIGHTS==4 ;PI ];ML IFCE MCHN,KA,[ - FIRSPK==2 + FIRSPK==0 LASTPK==3 NUDSL==250. DC10P==0