github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Add HX ITS for hactrn.org.

Browse Source
This commit is contained in:
Lars Brinkhoff 2020-06-08 12:31:28 +02:00
parent 1807333e8d
commit 378ed6fb06
9 changed files with 116 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
build/h3text.2016
View File

@ -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 : :

72
build/pdp10-ka/config.202
View File

@ -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==<IPADDR 10,3,0,6> ; 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

2
src/l/*lisp.154
View File

@ -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

2
src/l/struct.658
View File

@ -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

1
src/sysen1/pword.2663
View File

@ -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

1
src/syseng/dump.446
View File

@ -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))]

3
src/syseng/magfrm.19
View File

@ -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

15
src/system/salv.317
View File

@ -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.

20
src/system/ttytyp.321
View File

@ -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.