Add two more disk packs to KA ITS.

- Add packs to SALV.
- Increase NQS in ITS.
- Add new drives to the emulator configuration.
- Mark two more packs in SALV.
- Before booting into the new ITS, use UCOP to copy the MFD to the fresh packs.

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"

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

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)

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

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

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