diff --git a/bin/kl10/_/salv.bin b/bin/kl10/_/salv.bin index affc0f01..deeffd91 100644 Binary files a/bin/kl10/_/salv.bin and b/bin/kl10/_/salv.bin differ diff --git a/bin/kl10/boot/salv.bin b/bin/kl10/boot/salv.bin index affc0f01..f40ce02a 100644 Binary files a/bin/kl10/boot/salv.bin and b/bin/kl10/boot/salv.bin differ diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl index 834d2b2a..7f524b40 100644 --- a/build/kl10/include.tcl +++ b/build/kl10/include.tcl @@ -18,6 +18,20 @@ proc mark_packs {} { respond "NO =" "0\r" respond "ALLOC =" "3000\r" respond "PACK ID =" "0\r" + + respond "\n" "mark\033g" + respond "UNIT #" "1" + respond "#1?" "y" + respond "NO =" "1\r" + respond "ALLOC =" "3000\r" + respond "PACK ID =" "1\r" + + respond "\n" "mark\033g" + respond "UNIT #" "2" + respond "#2?" "y" + respond "NO =" "2\r" + respond "ALLOC =" "3000\r" + respond "PACK ID =" "2\r" } proc prepare_frontend {} { @@ -83,6 +97,20 @@ proc dump_nits {} { respond "\n" "\033y" respond " " "salv\r" + # Since we bootstrap with a 1-pack ITS, we need to copy the MFD to + # the fresh packs. + respond "\n" "\033l" + respond " " "salv\r" + respond "\n" "ucop\033g" + respond "UNIT #" "0" + respond "UNIT #" "1" + respond "OK?" "Y" + respond "DDT" "ucop\033g" + respond "UNIT #" "0" + respond "UNIT #" "2" + respond "OK?" "Y" + expect "DDT" + # Now dump the new ITS. respond "\n" "\033l" respond " " "its bin\r" diff --git a/build/pdp10-kl/boot b/build/pdp10-kl/boot index 7806c85c..ac255190 100644 --- a/build/pdp10-kl/boot +++ b/build/pdp10-kl/boot @@ -4,5 +4,5 @@ set cpu 512k set pd off at ptr bin/kl10/boot/dskdmp.rim at mta0 out/pdp10-kl/minsrc.tape -at rpa0 out/pdp10-kl/rp04.1 +at rpa0 out/pdp10-kl/rp04.0 b ptr diff --git a/build/pdp10-kl/boot2 b/build/pdp10-kl/boot2 index 71866099..8fa06b3e 100644 --- a/build/pdp10-kl/boot2 +++ b/build/pdp10-kl/boot2 @@ -4,5 +4,7 @@ set cpu 512k set pd off at ptr bin/kl10/boot/dskdmp.rim at mta0 out/pdp10-kl/sources.tape -at rpa0 out/pdp10-kl/rp04.1 +at rpa0 out/pdp10-kl/rp04.0 +at rpa1 out/pdp10-kl/rp04.1 +at rpa2 out/pdp10-kl/rp04.2 b ptr diff --git a/build/pdp10-kl/config.202 b/build/pdp10-kl/config.202 index 8bb46c30..530ebd9b 100644 --- a/build/pdp10-kl/config.202 +++ b/build/pdp10-kl/config.202 @@ -404,7 +404,7 @@ DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER DEFOPT PAGPRE==1 ;PAGE-IN PREEMPTION DEFOPT SCHBLN==20. ;NUMBER OF RUNNABLE JOBS TO REMEMBER -DEFOPT NQS==1 ;# OF DISK UNITS +DEFOPT NQS==3 ;# OF DISK UNITS DEFOPT NTUTBL==2 ;TUTS ARE TWO BLOCKS LONG DEFSYM NUDSL==500. ;# USER DIRECTORIES ON DISK DEFOPT NQCHN==50. ;NUMBER 2314 CHNLS diff --git a/build/pdp10-kl/init b/build/pdp10-kl/init index f02a73a8..1b60f217 100644 --- a/build/pdp10-kl/init +++ b/build/pdp10-kl/init @@ -4,5 +4,7 @@ set cpu 512k at mta0 out/pdp10-kl/kl-magdmp.tap at mta5 out/pdp10-kl/kl-minsys.tape set rpa rp04 -at rpa0 out/pdp10-kl/rp04.1 +at rpa0 out/pdp10-kl/rp04.0 +at rpa1 out/pdp10-kl/rp04.1 +at rpa2 out/pdp10-kl/rp04.2 b mta0 diff --git a/src/system/salv.314 b/src/system/salv.314 index 1be4dc8b..b23f7829 100644 --- a/src/system/salv.314 +++ b/src/system/salv.314 @@ -163,7 +163,7 @@ PRINTX /Which machine? / IFCE MCHN,KL,[ ;SA==105*2000 ; MC system is big, need to push SALV higher. FIRSPK==0 - LASTPK==0 + LASTPK==2 NUDSL==500. DC10P==0 RP10P==0 @@ -175,8 +175,8 @@ PRINTX /Which machine? / TTLPTP==0 ;NO LPT AT ALL TCMXH==100. ;LA36 LIGHTS==4 ;KL-UDGE - NDRIVE==1 ;8 DOESN'T FIT IN 128K - NUNITS==1 + NDRIVE==3 ;8 DOESN'T FIT IN 128K + NUNITS==3 ];M2 TERMIN IFNDEF FIRSPK, .FATAL UNKNOWN MACHINE "MCHN"