Add HX ITS for hactrn.org.

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,KA,KL]
+    IRP X,,[AI,ML,MC,MD,MX,DB,KA,KL,HX]
 	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,KA,KL]
+		MRA [ITS,AI,ML,MC,MD,MX,DB,KA,KL,HX]
 		MRA EXPERIMENTAL
 		MRA .LISP.
 ]	;END OF IFN ITS

src/sysen1/pword.2663

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

src/syseng/dump.446

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

src/syseng/magfrm.19

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

src/system/salv.317

@@ -128,6 +128,21 @@ PRINTX /Which machine? /
 	TCMXH==55.
 	LIGHTS==4	;PI
 	];KA
+ IFCE MCHN,HX,[
+	FIRSPK==0
+	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.321

@@ -231,6 +231,26 @@ MCONDX EX,{				;;; EX
 	TTDAAA 40,SPEED=9600		;T40
 .ENDC ;}
 
+MCONDX HX,{				;;; HX
+	TTDLA36 0,TT=%TTLCL+%TT340,HOR=80.,SPEED=110	;T00 System Console
+	TTDAAA 1,SPEED=50000		;T01 Morton port 1
+	TTDAAA 2,SPEED=50000		;T02 Morton port 2
+	TTDAAA 3,SPEED=50000		;T03 Morton port 3
+	TTDAAA 4,SPEED=50000		;T04 Morton port 4
+	TTDAAA 5,SPEED=50000		;T05 Morton port 5
+	TTDAAA 6,SPEED=50000		;T06 Morton port 6
+	TTDAAA 7,SPEED=50000		;T07 Morton port 7
+	TTDAAA 10,SPEED=50000		;T10 Morton port 8
+	TTDAAA 11,SPEED=50000		;T11 Morton port 9
+	TTDAAA 12,SPEED=50000		;T12 Morton port 10
+	TTDAAA 13,SPEED=50000		;T13 Morton port 11
+	TTDAAA 14,SPEED=50000		;T14 Morton port 12
+	TTDAAA 15,SPEED=50000		;T15 Morton port 13
+	TTDAAA 16,SPEED=50000		;T16 Morton port 14
+	TTDAAA 17,SPEED=50000		;T17 Morton port 15
+	TTDAAA 20,SPEED=50000		;T20 Morton port 16
+.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.