diff --git a/build/h3text.2016 b/build/h3text.2016 index aec89940..461db1b9 100644 --- a/build/h3text.2016 +++ b/build/h3text.2016 @@ -119,6 +119,7 @@ NET : 198.0.0.0 : C-198 : NET : 199.0.0.0 : C-199 : NET : 200.0.0.0 : C-200 : NET : 202.0.0.0 : C-202 : +NET : 205.0.0.0 : C-205 : NET : 224.0.0.0 : C-224 : ;;; Historical interest @@ -130,6 +131,8 @@ 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, KL : PDP-10 : ITS : : +HOST : 205.166.94.7 : HACTRN.ORG, HX : PDP-10 : ITS : : + ;;; Global ITS and Lispm network HOST : CHAOS 5460, 54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : : HOST : CHAOS 5461 : EX-ITS.SWENSON.ORG, EX : PDP-10 : ITS : : diff --git a/build/pdp10-ka/config.202 b/build/pdp10-ka/config.202 index c38e726a..5e9a35f0 100644 --- a/build/pdp10-ka/config.202 +++ b/build/pdp10-ka/config.202 @@ -363,6 +363,78 @@ BODY TERMIN TERMIN ] ;KA +IFE MCOND HX,[ ;HACTRN.ORG KA10 +DEFOPT KA10P==1 ;HAS KA PROCESSOR +DEFOPT MAXJ==60. ;MAX NUMBER OF JOBS ALLOWED +DEFOPT SWBLK==1 ;1 => SWAP BLOCKING, 0 => PRIV USER +DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER +DEFOPT PAGPRE==1 ; Page-in preemption +DEFOPT SCHBLN==10. ;NUMBER OF RUNNABLE JOBS TO REMEMBER + +DEFOPT NQCHN==30. ;NUMBER 2314 CHNLS +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) +DEFOPT QRDCMP==1 ;SOFTWARE READ-COMPARE +DEFOPT DMDSK==1 ;USES DM DISK FORMAT +DEFOPT QRSRVP==1 ;HAS RESERVED DISK PACKS (SECONDARY PACK) +DEFOPT QAUTHP==1 ;KEEPS TRACK OF FILE AUTHORS + +DEFOPT C1MXP==1 ;CHANNEL 1 MPX FEATURE +DEFOPT NEWDTP==1 ;HAS NEW DECTAPE CONTROLLER +DEFOPT NUNITS==2 ; Number of utape units (R.I.P.) +DEFOPT NMTCS==1 ;NUMBER OF MAG TAPE UNITS +DEFOPT TM10B==1 ;DF10-BASED CONTROLLER +DEFOPT NLPTP==0 ;HAS NEW LPT (ODEC) +DEFOPT TPLP==0 ;PSEUDO LPT +DEFOPT PTRP==1 ;HAS PAPER TAPE +DEFOPT PTPP==0 ; And punch works. +DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK +DEFOPT 340P==0 ;HAS 340 DISPLAY +DEFOPT STKP==0 ;Has Stanford keyboard +DEFOPT IMXP==0 ;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 IMPUS3== ; Internet host number +DEFOPT NCPP==0 ; Flush NCP code +DEFOPT NNETCH==20. ; # NCP net channels +DEFOPT INETP==1 ; Include Internet code +DEFOPT TCPP==1 ; Include TCP code +DEFOPT XBL==20. ; # TCP network channels +DEFOPT CHAOSP==0 ;CHAOS NET +DEFOPT MYCHAD==3114 ;CHAOS NET ADDRESS +DEFOPT NINDX==30. ;NUMBER OF INDICES +DEFOPT CH10P==0 ;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END + +DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS +DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX +DEFOPT NMTYS==16. ;# TTYS ON MORTON BOX +DEFOPT NSTTYS==16. ;# STY'S (PSEUDO-TTY'S) + +DEFOPT TEN11P==1 ;Rubin 10-11 interface +IFDEF TEN11P,IFN TEN11P,DEFSYM T11CPA==3776000 ;ADRS OF TEN-11 CONTROL PAGE +DEFOPT TT11NM==0 ; # of 10-11 PDP11 that handles TV TTYs. +DEFOPT N11TYS==16. ; # PDP11 TV TTYS +DEFOPT MXVBN==40 ; Max video bfr # for assignment purposes. + +DEFOPT TSYSM==768. ;TOTAL PDP10 1K MEM BLOCKS +DEFOPT NMMP==4 ;# EXEC PAGES FOR MMP TABLE (# VIR PGS/512.) + +DEFSYM PMRCM==1777 ;10 BIT REAL CORE ADR +DEFSYM PMAGEM==16000 ;3 BIT AGE +DEFSYM PMCSHM==0 ;NO CACHE BIT +DEFSYM PMUNSD==160000 ;UNUSED BITS + +DEFINE ITSIRP BODY +IRPS ITS,,[DB] +BODY +TERMIN +TERMIN +] ;HX IFE MCOND DM,[ DEFOPT KA10P==1 ;DM HAS KA10 PROCESSOR diff --git a/src/l/*lisp.154 b/src/l/*lisp.154 index 3ed79b52..3436dce2 100644 --- a/src/l/*lisp.154 +++ b/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 diff --git a/src/l/struct.658 b/src/l/struct.658 index aa83fea8..50f11ba4 100644 --- a/src/l/struct.658 +++ b/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 diff --git a/src/sysen1/pword.2663 b/src/sysen1/pword.2663 index 2f0c488f..9bcc8cd7 100644 --- a/src/sysen1/pword.2663 +++ b/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 diff --git a/src/syseng/dump.446 b/src/syseng/dump.446 index 7e066e8e..b6c12ba8 100644 --- a/src/syseng/dump.446 +++ b/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))] diff --git a/src/syseng/magfrm.19 b/src/syseng/magfrm.19 index e9cb24b1..fe64de98 100644 --- a/src/syseng/magfrm.19 +++ b/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 diff --git a/src/system/salv.317 b/src/system/salv.317 index ca731269..8668e120 100644 --- a/src/system/salv.317 +++ b/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. diff --git a/src/system/ttytyp.321 b/src/system/ttytyp.321 index a7e02936..4e032179 100644 --- a/src/system/ttytyp.321 +++ b/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.