From 8daaccd4cf432ecd06ce4f22cf54760f15e191b0 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 10 Dec 2024 08:07:04 +0100
Subject: [PATCH] Enable Arpanet NCP for KA and KL ITS.

KA ITS need even more space to add NCP.  The IMP code for KS10 doesn't
have NCP support.

We chose the host number 176 for KA and KL to be well away from
clashing with any of the original ARPANET hosts.
---
 build/pdp10-ka/config.202 | 4 ++--
 build/pdp10-kl/config.203 | 4 ++--
 src/system/its.1652       | 2 +-
 src/system/salv.317       | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/build/pdp10-ka/config.202 b/build/pdp10-ka/config.202
index 25433dc9..23cec719 100644
--- a/build/pdp10-ka/config.202
+++ b/build/pdp10-ka/config.202
@@ -235,10 +235,10 @@ DEFOPT IMXP==1		;HAS IMX (INPUT MULTIPLEXOR)
 DEFOPT NETP==1		; Has net connection
 DEFOPT IMPP==1		; Has IMP interface
 DEFOPT KAIMP==1
-DEFOPT IMPUS==306	; ARPA net host number
+DEFOPT IMPUS==176	; ARPA net host number
 DEFOPT IMPUS3==<IPADDR %IP%>	; IP address
 DEFOPT NM%IMP==0	; Subnet mask (doesn't appear to work if set to real mask)
-DEFOPT NCPP==0		; Flush NCP code
+DEFOPT NCPP==1		; Arpanet NCP code
 DEFOPT NNETCH==20.	; # NCP net channels
 DEFOPT INETP==1		; Include Internet code
 DEFOPT TCPP==1		; Include TCP code
diff --git a/build/pdp10-kl/config.203 b/build/pdp10-kl/config.203
index 137d5ac7..08b13ec2 100644
--- a/build/pdp10-kl/config.203
+++ b/build/pdp10-kl/config.203
@@ -511,10 +511,10 @@ DEFOPT TCPP==1		; Include Internet TCP code
 DEFOPT XBL==25.		; # TCP connections
 DEFOPT IMPP==1		; Has IMP interface
 DEFOPT KAIMP==1
-DEFOPT IMPUS==106	; ARPA net host number
+DEFOPT IMPUS==176	; ARPA net host number
 DEFOPT IMPUS3==<IPADDR %IP%>	; IP address
 DEFOPT NM%IMP==<IPADDR %NETMASK%>	; Subnet mask
-DEFOPT NCPP==0		; Flush NCP code
+DEFOPT NCPP==1		; Arpanet NCP code
 DEFOPT NNETCH==30.	; # NCP network channels
 DEFOPT CHAOSP==1	;NO CHAOS NET
 DEFOPT MYCHAD==177002	;CHAOS NET ADDRESS
diff --git a/src/system/its.1652 b/src/system/its.1652
index f8c44222..9703ea5a 100644
--- a/src/system/its.1652
+++ b/src/system/its.1652
@@ -21950,7 +21950,7 @@ IEND:
 ; start at the right place.  There is a limit to how high it can go,
 ; however.
 IFN KL10P, SALV==:105*2000	; MC-KL is getting huge
-IFE MCOND KA, SALV==:105*2000	; KA is also getting huge
+IFE MCOND KA, SALV==:110*2000	; KA is also getting huge
 IFNDEF SALV, SALV==:100*2000
 IFG IEND-SALV,.FATAL System overruns SALV start addr!
 
diff --git a/src/system/salv.317 b/src/system/salv.317
index 000da321..80300d7d 100644
--- a/src/system/salv.317
+++ b/src/system/salv.317
@@ -113,7 +113,7 @@ PRINTX /Which machine? /
 	LIGHTS==4	;PI
 	];ML
  IFCE MCHN,KA,[
-	SA==105*2000	; KA system is big, need to push SALV higher.
+	SA==110*2000	; KA system is big, need to push SALV higher.
 	FIRSPK==0
 	LASTPK==3
 	NUDSL==500.