Add ITS machine called KA.

build/h3text.2014

@@ -127,8 +127,9 @@ HOST : 10.2.0.6 : AI.MIT.EDU, MIT-AI, AI : PDP-10 : ITS : :
 HOST : 10.3.0.6 : ML.MIT.EDU, MIT-ML, ML : PDP-10 : ITS : :
 HOST : 10.3.0.54 : MC.MIT.EDU, MIT-MC, MC : PDP-10 : ITS : :
 
-;;; DistruBution ITS
+;;; DistruBution ITS and generic KA
 HOST : %CHAOS%%IP% : %HOSTNAME%, DB : PDP-10 : ITS : :
+HOST : %CHAOS%%IP% : %HOSTNAME%, KA : PDP-10 : ITS : :
 
 ;;; Global ITS network 2017
 HOST :             54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : :

src/l/*lisp.154

@@ -15489,7 +15489,7 @@ IFN ITS,[
 	 .VALUE
 	SETZ A,			;CONVERT TO ATOMIC SYMBOL
 	HLRZS TT
-    IRP X,,[AI,ML,MC,MD,MX,DB]
+    IRP X,,[AI,ML,MC,MD,MX,DB,KA]
 	CAIN TT,(SIXBIT \X\)
 	 MOVEI A,Q!X
     TERMIN 

src/l/struct.658

@@ -715,7 +715,7 @@ PG$		MRA PAGING
 		MRA PPN
 20$ 		MRA PS
 IFN ITS,[
-		MRA [ITS,AI,ML,MC,MD,MX,DB]
+		MRA [ITS,AI,ML,MC,MD,MX,DB,KA]
 		MRA EXPERIMENTAL
 		MRA .LISP.
 ]	;END OF IFN ITS

src/sysen1/pword.2661

@@ -9811,6 +9811,10 @@ bltspc:	syscal sstatu,[val x ? val x ? val x ? val x ? val x
 	  jrst [move x,[mdspec,,tsspec]	 ;yes, so use MD's specs
 	        blt x,spcend-1	   ;  all of them, to the end
 		ret ]
+	camn x,[sixbit /KA/]	   ;is it KA?
+	  jrst [move x,[mdspec,,tsspec]	 ;yes, so use MD's specs
+	        blt x,spcend-1	   ;  all of them, to the end
+		ret ]
 	camn x,[sixbit /DM/]	   ;DM-P?
 	  jrst [move x,[dmspec,,tsspec]	 ;yes, use DM's specs
 	       blt x,spcend-1	   ;  all of them to the bitter end

src/syseng/dump.444

@@ -45,6 +45,7 @@ TERMIN
 
 NEWCOD==1			; Assume a KS unless otherwise informed
 IFE MCOND MX, NEWCOD==0		;Use old code on MX KL only (running old ITS)
+IFE MCOND KA, NEWCOD==0		;Use old code on KA too
 
 DEFINE SYSCAL OP,ARGS
 	.CALL [SETZ ? SIXBIT/OP/ ? ARGS ((SETZ))]

src/syseng/magfrm.17

@@ -58,6 +58,7 @@ AIMCHN::SIXBIT/AI/
 MLMCHN::SIXBIT/ML/
 DMMCHN::SIXBIT/DM/
 MCMCHN::SIXBIT/MC/
+KAMCHN::SIXBIT/KA/
 LMCHNTB:: OFFSET 0
 
 GO:	MOVE P,[-LPDL-1,,PDL-1]
@@ -638,7 +639,7 @@ MGDBIN:	6,,(SIXBIT /DSK/)
 	SIXBIT /MAGDMP/
 	SIXBIT /BIN/
 
-MDBFN2:	IRPS X,,[AI ML DM MC]
+MDBFN2:	IRPS X,,[AI ML DM MC KA]
 	 SIXBIT/BIN.!X/
 	TERMIN
 

src/system/its.1648

@@ -24,6 +24,8 @@ IF1 [ PRINTX \MACHINE NAME = \
 ;	PM	PandaMonium KS10
 ;	DX	DigeX KS10
 ;	NX	Non-eXistent KS10 (KLH10)
+;	DB	KS10 DistriBution
+;	KA	Generic KA10
 ;THE FILE "CONFIG" HAS ASSEMBLY SWITCHES AS A FUNCTION OF MACHINE.
 
 .TTYMAC A

src/system/salv.313

@@ -112,6 +112,21 @@ PRINTX /Which machine? /
 	TCMXH==55.
 	LIGHTS==4	;PI
 	];ML
+ IFCE MCHN,KA,[
+	FIRSPK==2
+	LASTPK==3
+	NUDSL==250.
+	DC10P==0
+	RP10P==1
+	RH10P==0
+	T300P==0
+	KL10P==0
+	OLPTP==0
+	NLPTP==0	;rest in pieces
+	TTLPTP==0
+	TCMXH==55.
+	LIGHTS==4	;PI
+	];KA
  IFCE MCHN,DM,[
 	FIRSPK==17.
 	LASTPK==21.

src/system/ttytyp.317

@@ -149,6 +149,10 @@ MCONDX MLKA,{				;;; ML-KA
 	TTDC100 33			;T33 317 Burke x3546
 .ENDC ;}
 
+MCONDX KA,{				;;; KA
+	TTDLA36 0,TT=%TTLCL,HOR=80.,SPEED=110	;T00 System Console
+.ENDC ;}
+
 ;NOTE: SEE COMMENT AT FRONT OF FILE FOR CONSTRAINTS ON THE COMMENTS
 ;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE
 ;CHARACTERS MAY BE PRESENT IN THEM.