Add new ITS named "KL", which is a KA10 with RH10.

The reason for this confusion is that it is intended in the future to
become a KL10.

build/h3text.2015

@@ -128,7 +128,7 @@ 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 : :
 
 ;;; DistriBution ITS and generic KA
-HOST : %CHAOS%%IP% : %HOSTNAME%, DB, KA : PDP-10 : ITS : :
+HOST : %CHAOS%%IP% : %HOSTNAME%, DB, KA, KL : PDP-10 : ITS : :
 
 ;;; Global ITS and Lispm network
 HOST : CHAOS 5460, 54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : :

src/sysen1/pword.2663

@@ -9811,7 +9811,8 @@ 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?
+	came x,[sixbit /KA/]	   ;is it KA?
+	camn x,[sixbit /KL/]	   ;is it KL?
 	  jrst [move x,[mdspec,,tsspec]	 ;yes, so use MD's specs
 	        blt x,spcend-1	   ;  all of them, to the end
 		ret ]

src/syseng/dump.445

@@ -45,7 +45,8 @@ 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
+IFE MCOND KA, NEWCOD==0		;Use old code on KA and KL too
+IFE MCOND KL, NEWCOD==0
 
 DEFINE SYSCAL OP,ARGS
 	.CALL [SETZ ? SIXBIT/OP/ ? ARGS ((SETZ))]

src/syseng/magfrm.18

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

src/system/salv.314

@@ -160,6 +160,24 @@ PRINTX /Which machine? /
 	NDRIVE==6	;8 DOESN'T FIT IN 128K
 	NUNITS==6
 	];KL
+ IFCE MCHN,KL,[
+	;SA==105*2000	; MC system is big, need to push SALV higher.
+	FIRSPK==0
+	LASTPK==0
+	NUDSL==500.
+	DC10P==0
+	RP10P==0
+	RH10P==1
+	T300P==0	;UNIT 3 IS FIRST T-300 UNIT
+	KL10P==0
+	OLPTP==0
+	NLPTP==0
+	TTLPTP==0	;NO LPT AT ALL
+	TCMXH==100.	;LA36
+	LIGHTS==4	;KL-UDGE
+	NDRIVE==1	;8 DOESN'T FIT IN 128K
+	NUNITS==1
+	];M2
 TERMIN
 IFNDEF FIRSPK, .FATAL UNKNOWN MACHINE "MCHN"
 ];IFNDEF ITS
@@ -6696,6 +6714,7 @@ MAGBUF:	BLOCK 2000
 IRPS A,,OTUT NTUT
 REPEAT NUNITS,CONC A,\.RPCNT,:	BLOCK 2000*MXTUTB
 TERMIN
+IFNDEF OTUT1, OTUT1: BLOCK 2000*MXTUTB
 D0==OTUT0
 D1==OTUT1
 TUT=NTUT0

src/system/ttytyp.318

@@ -274,6 +274,11 @@ MCONDX MX,{				;;; MX
 	TTDPRT 44,SPEED=110,TT=%TTLCL	;T44 DC76 TTY
 .ENDC ;}
 
+MCONDX KL,{				;;; KL
+	TTDLA36 0,TT=%TTLCL,HOR=80.,SPEED=110	;T00 System Console
+	TTDAAA 1,SPEED=9600		;T01
+.ENDC ;}
+
 REPEAT NSTTYS,[
 	TTDSTY \NFSTTY+.RPCNT
 .ENDR ;]