KL ITS needs three RP04 packs.

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"

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

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

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

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

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"