mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 07:19:57 +00:00
8daaccd4cf
KA ITS need even more space to add NCP. The IMP code for KS10 doesn't have NCP support. We chose the host number 176 for KA and KL to be well away from clashing with any of the original ARPANET hosts.
1716 lines
57 KiB
Plaintext
1716 lines
57 KiB
Plaintext
;;; Copyright (c) 1999 Massachusetts Institute of Technology
|
||
;;; See the COPYING file at the top-level directory of this project.
|
||
|
||
.AUXIL
|
||
|
||
;;; "INSTALLATION" RELATED SWITCHES
|
||
|
||
IFNDEF DEFSYM,[ ;ALLOW USER TO USE SYMBOLS IN OTHER WAYS IF HE WISHES.
|
||
;BUT NORMALLY, DEFSYM FOO==BAR DOES FOO==BAR WITH ERROR CHECK.
|
||
DEFINE DEFSYM X/
|
||
IRPS Z,,[X]
|
||
IFNDEF Z,X
|
||
.ELSE [
|
||
$$TEM1==Z
|
||
X
|
||
IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
|
||
]
|
||
.ISTOP
|
||
TERMIN TERMIN
|
||
|
||
IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
|
||
.MLLIT==1
|
||
$$TEMP==1
|
||
]
|
||
.ELSE $$TEMP==0
|
||
|
||
IFNDEF DEFOPT,[ ;ALLOW USER TO USE SYMBOLS IN OTHER WAYS IF HE WISHES.
|
||
;BUT NORMALLY, DEFOPT FOO==BAR DOES IT UNLESS FOO ALREADY DEFINED
|
||
DEFINE DEFOPT X/
|
||
IRPS Z,,[X]
|
||
IFNDEF Z, X
|
||
.ISTOP
|
||
TERMIN TERMIN
|
||
|
||
IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
|
||
.MLLIT==1
|
||
$$TEM2==1
|
||
]
|
||
.ELSE $$TEM2==0
|
||
|
||
IFNDEF IPADDR,[ ; Helpful auxiliary for configuring net addrs
|
||
DEFINE IPADDR A,B,C,D
|
||
.RADIX 10.,<<<<<A_8>+B>_8>+C>_8>+D,!TERMIN
|
||
]
|
||
IFNDEF IPMASK,[ ; Build default netmask for network, using class A/B/C
|
||
DEFINE IPMASK N
|
||
IFE <N>&<1_31.>,[377_24.] .ELSE [IFE <N>&<1_30.>,[177777_16.] .ELSE [77777777_8.]] TERMIN
|
||
]
|
||
|
||
IFE MCOND AIKA,[
|
||
DEFOPT KA10P==1 ;AI-KA HAS KA10 PROCESSOR
|
||
DEFOPT MAXJ==85. ;MAX NUMBER OF JOBS ALLOWED
|
||
DEFOPT SWBLK==1 ;1=> SWAP BLOCKING, 0=> PRIVILEGED 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 NQS==8. ;# 2314 UNITS
|
||
DEFOPT NTUTBL==2 ;TUTS ARE 2 BLOCKS LONG (THIS DEFN BETTER AGREE WITH DC10 DEFS)
|
||
DEFSYM NUDSL==440. ;# USER DIRECTORIES ON DISK. NOTE: JUST CHANGING THIS
|
||
; IS NOT SUFFICIENT!!
|
||
DEFOPT NQCHN==40. ;NUMBER 2314 CHNLS
|
||
DEFOPT DC10P==1 ;HAS SYSTEMS CONCEPTS DISK CONTROL
|
||
DEFOPT DMDSK==0 ;DOES NOT USE DM DSK FORMAT (I.E. HAS EXTRA WORDS)
|
||
DEFOPT QRSRVP==1 ;HAS RESERVED DISK PACKS (SECONDARY PACK)
|
||
DEFOPT QAUTHP==1 ;KEEPS TRACK OF FILE AUTHORS
|
||
|
||
DEFOPT C1MXP==1 ;CHNL 1 MPX FEATURE
|
||
DEFOPT NMTCS==1 ;NUMBER MAG TAPE UNITS
|
||
DEFOPT TM10A==1 ;IO-BUS MAG TAPE
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==0 ; But punch doesn't work!
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
DEFOPT DPKPP==1 ;DATA POINT KLUDGE (TTY mux)
|
||
|
||
DEFOPT NETP==1 ; Connected to a network
|
||
DEFOPT IMPP==1 ; Has IMP interface
|
||
DEFOPT KAIMP==1
|
||
DEFOPT IMPUS==206 ; ARPA net host number
|
||
DEFOPT IMPUS3==<IPADDR 10,2,0,6> ; Internet host number
|
||
DEFOPT NCPP==1 ; Include NCP code
|
||
DEFOPT NNETCH==30. ; # NCP network channels
|
||
DEFOPT INETP==1 ; Include Internet code
|
||
DEFOPT TCPP==1 ; Include TCP code
|
||
DEFOPT XBL==20. ; # TCP network channels
|
||
|
||
DEFOPT TK10P==1 ;HAS TK10 TTY SCANNER (NO MORE, BUT LEAVE IT SO TTY#S DON'T CHANGE)
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT NNTYS==16. ;# TTYS ON KNIGHT KLUDGE
|
||
DEFOPT NDPTYS==9. ;# TTYS ON DATAPOINT KLUDGE
|
||
DEFOPT NSTTYS==16. ;# OF STY'S (PSEUDO-TTY'S)
|
||
DEFOPT APL==10 ;AP TTY # (really?)
|
||
|
||
DEFOPT CODP==1 ; Has Morse code output device (no antenna though)
|
||
|
||
; The following AI-KA stuff is broken since the 10-11 interface doesn't work,
|
||
; but is retained in case it gets fixed.
|
||
DEFOPT TEN11P==0 ; Rubin 10-11 interface
|
||
IFN TEN11P,[
|
||
DEFOPT XGP==1 ; Has XGP
|
||
DEFOPT CHAOSP==1 ; Has CHAOS net
|
||
DEFOPT MYCHAD==2026 ; CHAOS net address
|
||
DEFOPT NINDX==50. ; Number of Chaosnet indices
|
||
DEFOPT T11CHP==1 ; CHAOS net goes through TEN-11 interface
|
||
DEFOPT CH11NM==7 ; # of 10-11 PDP11 handling CHAOS net.
|
||
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.
|
||
] ;TEN11P ; These actually correspond to video switch inputs.
|
||
|
||
|
||
; The following stuff used to be on AI-KA and is unlikely to ever
|
||
; come back.
|
||
;DEFOPT PDP6P==0 ;HAS PDP6 (ALAS, NO MORE)
|
||
;DEFOPT 340P==0 ;HAS 340 DISPLAY (ALAS, NO MORE)
|
||
;DEFOPT TABP==0 ;DOESN'T HAVE SYLVANIA TABLET ANY MORE
|
||
;DEFOPT DSDP==0 ;HAS DESELECTION DEVICE (ALAS, NO MORE)
|
||
;DEFOPT NEWDTP==0 ;HAD OLD DECTAPE CONTROLLER
|
||
;DEFOPT RBTCP==0 ;ROBOT CONSOLE
|
||
;DEFOPT HCLKP==0 ;HOLLOWAY CLOCK (ALAS, NO MORE)
|
||
;DEFOPT ARMP==0 ;HAS NO ARM (AMF MOSTLY) (R.I.P.)
|
||
;DEFOPT OMXP==0 ;HAS OMX (OUTPUT MULTIPLEXOR) (ALAS, NO MORE)
|
||
;DEFOPT IMXP==0 ;HAS IMX (INPUT MULTIPLEXOR) (ALAS, NO MORE)
|
||
;DEFOPT VIDP==0 ;HAD VIDI (R.I.P.)
|
||
;DEFOPT CCLKP==0 ;NO CHESS TOURN CLOCK STUFF
|
||
;DEFOPT NDAP==0 ;NEW D/A CONVERTERS (ALAS, NO MORE)
|
||
|
||
; Physical memory variables
|
||
|
||
DEFOPT TSYSM==768. ;TOTAL PDP10 1K MEM BLOCKS
|
||
DEFOPT ECCMEM==1 ;HAS HIC'S ERROR CORRECTING MEMORY
|
||
DEFOPT NMMP==4 ;# EXEC PAGES FOR MMP TABLE (# VIR PGS/512.);
|
||
|
||
DEFSYM PMRCM==1777 ;CORE ADR FIELD IN PAGE MAP (AI-KA HAS 10 BITS)
|
||
DEFSYM PMAGEM==16000 ;AI-KA HAS ONE LESS AGE BITS
|
||
DEFSYM PMCSHM==0 ;NO CACHE BIT
|
||
DEFSYM PMUNSD==160000 ;UNUSED BITS
|
||
|
||
IFDEF TEN11P,IFN TEN11P,DEFSYM T11CPA==3776000 ;ADRS OF TEN-11 CONTROL PAGE
|
||
IFDEF PDP6P,IFN PDP6P,DEFSYM PDP6BM==3000000 ;BASE ADR OF PDP6 MEM AS SEEN FROM 10
|
||
IFDEF PDP6P,IFN PDP6P,DEFSYM LPDP6M==16. ;LENGTH OF PDP6 MEM IN PAGES
|
||
] ;AIKA
|
||
|
||
IFE MCOND MLKA,[
|
||
DEFOPT KA10P==1 ;ML-KA 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==7 ;# 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==4 ; Number of utape units (R.I.P.)
|
||
DEFOPT NMTCS==1 ;NUMBER OF MAG TAPE UNITS
|
||
DEFOPT TM10A==1 ;IO-BUS MAG TAPE
|
||
DEFOPT NLPTP==1 ;HAS NEW LPT (ODEC)
|
||
DEFOPT TPLP==1 ;PSEUDO LPT
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==1 ; And punch works.
|
||
DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
|
||
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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==3114 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==30. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1 ;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END
|
||
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
;DEFOPT NNVTTS==0 ;# NOVA TTYS (used to have?)
|
||
DEFOPT NMTYS==33 ;# TTYS ON MORTON BOX
|
||
DEFOPT NSTTYS==8 ;# STY'S (PSEUDO-TTY'S)
|
||
|
||
DEFOPT TSYSM==512. ;TOTAL PDP10 1K MEM BLOCKS
|
||
DEFOPT NMMP==4 ;# EXEC PAGES FOR MMP TABLE (# VIR PGS/512.)
|
||
|
||
DEFSYM PMRCM==777 ;9 BIT REAL CORE ADR
|
||
DEFSYM PMAGEM==17000 ;4 BIT AGE
|
||
DEFSYM PMCSHM==0 ;NO CACHE BIT
|
||
DEFSYM PMUNSD==160000 ;UNUSED BITS
|
||
] ;MLKA
|
||
|
||
IFE MCOND KA,[ ;Generic 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==500. ;# 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==1 ;HAS NEW LPT (ODEC)
|
||
DEFOPT TPLP==1 ;PSEUDO LPT
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==1 ; And punch works.
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
DEFOPT 340P==1 ;HAS 340 DISPLAY
|
||
DEFOPT STKP==1 ;Has Stanford keyboard
|
||
DEFOPT IMXP==1 ;HAS IMX (INPUT MULTIPLEXOR)
|
||
|
||
DEFOPT NETP==1 ; Has net connection
|
||
DEFOPT IMPP==1 ; Has IMP interface
|
||
DEFOPT KAIMP==1
|
||
DEFOPT IMPUS==176 ; ARPA net host number
|
||
DEFOPT IMPUS3==<IPADDR %IP%> ; IP address
|
||
DEFOPT NM%IMP==0 ; Subnet mask (doesn't appear to work if set to real mask)
|
||
DEFOPT NCPP==1 ; Arpanet 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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==177002 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==30. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1 ;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END
|
||
|
||
DEFOPT MSPP==1 ;HAS MESSAGE SLURPER
|
||
DEFOPT DEMON==1 ;HAS DEMON ROUTINES
|
||
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT TK10P==1 ;HAS TK10 TTY SCANNER
|
||
DEFOPT NNTYS==16. ;# TTYS ON KNIGHT KLUDGE
|
||
;DEFOPT NNVTTS==0 ;# NOVA TTYS (used to have?)
|
||
DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX
|
||
DEFOPT NMTYS==10. ;# TTYS ON MORTON BOX
|
||
DEFOPT DPKPP==1 ;DATA POINT KLUDGE (TTY mux)
|
||
DEFOPT NDPTYS==16. ;# TTYS ON DATAPOINT KLUDGE
|
||
DEFOPT NSTTYS==8 ;# STY'S (PSEUDO-TTY'S)
|
||
|
||
DEFOPT TEN11P==1 ;Rubin 10-11 interface
|
||
IFN TEN11P,[
|
||
DEFSYM T11CPA==3776000 ;ADRS OF TEN-11 CONTROL PAGE
|
||
DEFOPT TT11NM==0 ; # of 10-11 PDP11 that handles TV TTYs.
|
||
DEFOPT N11TYS==10. ; # PDP11 TV TTYS
|
||
DEFOPT MXVBN==40 ; Max video bfr # for assignment purposes.
|
||
DEFOPT XGP==1 ; Has XGP
|
||
]
|
||
|
||
DEFOPT PDP6P==1 ;HAS PDP6
|
||
DEFSYM PDP6BM==3000000 ;BASE ADR OF PDP6 MEM AS SEEN FROM 10
|
||
DEFSYM LPDP6M==16. ;LENGTH OF PDP6 MEM IN PAGES
|
||
|
||
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
|
||
] ;KA
|
||
IFE MCOND EX,[ ;Generic 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==3 ;# DISK UNITS
|
||
DEFSYM NUDSL==500. ;# USER DIRECTORIES ON DISK
|
||
DEFOPT RP06P==1
|
||
DEFOPT NTUTBL==4
|
||
DEFOPT RP04P==0
|
||
DEFOPT RH10P==1 ;HAS DEC RH10 DISK CONTROL (RP04)
|
||
;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 TM10A==1 ;IO-BUS MAG TAPE
|
||
;DEFOPT TM10B==1 ;DF10-BASED CONTROLLER
|
||
DEFOPT NLPTP==1 ;HAS NEW LPT (ODEC)
|
||
DEFOPT TPLP==1 ;PSEUDO LPT
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==1 ; And punch works.
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
DEFOPT 340P==1 ;HAS 340 DISPLAY
|
||
DEFOPT STKP==1 ;Has Stanford keyboard
|
||
|
||
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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==5461 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==30. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1
|
||
DEFOPT CH11P==0
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT TK10P==1 ;HAS TK10 TTY SCANNER
|
||
DEFOPT NNTYS==16. ;# TTYS ON KNIGHT KLUDGE
|
||
;DEFOPT NNVTTS==0 ;# NOVA TTYS (used to have?)
|
||
DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX
|
||
DEFOPT NMTYS==16. ;# TTYS ON MORTON BOX
|
||
DEFOPT NSTTYS==8 ;# 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 PDP6P==1 ;HAS PDP6
|
||
DEFSYM PDP6BM==3000000 ;BASE ADR OF PDP6 MEM AS SEEN FROM 10
|
||
DEFSYM LPDP6M==16. ;LENGTH OF PDP6 MEM IN PAGES
|
||
|
||
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
|
||
] ;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==8 ;# DISK UNITS
|
||
DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG
|
||
DEFSYM NUDSL==500. ;# 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==1 ; 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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==177002 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==50. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1 ;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 MSPP==1 ;HAS MESSAGE SLURPER
|
||
DEFOPT DEMON==1 ;HAS DEMON ROUTINES
|
||
|
||
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
|
||
|
||
DEFOPT TZONE==0. ; HX uses GMT time
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[HX BC]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;HX
|
||
|
||
IFE MCOND BC,[ ;Boot Camp 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==8 ;# DISK UNITS
|
||
DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG
|
||
DEFSYM NUDSL==500. ;# 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==1 ; 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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==177003 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==50. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1 ;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 MSPP==1 ;HAS MESSAGE SLURPER
|
||
DEFOPT DEMON==1 ;HAS DEMON ROUTINES
|
||
|
||
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
|
||
|
||
DEFOPT TZONE==0. ; BC uses GMT time
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[BC HX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;BC
|
||
|
||
IFE MCOND TT,[ ;Temporary Testing 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==8 ;# DISK UNITS
|
||
DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG
|
||
DEFSYM NUDSL==500. ;# USER DIRECTORIES ON DISK
|
||
DEFOPT DC10P==1 ;HAS SYSTEMS CONCEPTS DISK CONTROL
|
||
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==1 ;HAS NEW LPT (ODEC)
|
||
DEFOPT TPLP==1 ;PSEUDO LPT
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==1 ; And punch works.
|
||
DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
|
||
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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==3150 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==50. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1 ;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END
|
||
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT TK10P==1 ;HAS TK10 TTY SCANNER
|
||
DEFOPT NNTYS==16. ;# TTYS ON KNIGHT KLUDGE
|
||
;DEFOPT NNVTTS==0 ;# NOVA TTYS (used to have?)
|
||
DEFOPT NMTYS==16. ;# TTYS ON MORTON BOX
|
||
DEFOPT NSTTYS==8 ;# STY'S (PSEUDO-TTY'S)
|
||
DEFOPT MSPP==1 ;HAS MESSAGE SLURPER
|
||
|
||
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==10. ; # 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,,[TT UP EX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;TT
|
||
|
||
IFE MCOND PT,[ ;PiDP-10 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==6 ;# DISK UNITS
|
||
DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG
|
||
DEFSYM NUDSL==500. ;# USER DIRECTORIES ON DISK
|
||
DEFOPT DC10P==1 ;HAS SYSTEMS CONCEPTS DISK CONTROL
|
||
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==1 ;HAS NEW LPT (ODEC)
|
||
DEFOPT TPLP==1 ;PSEUDO LPT
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==1 ; And punch works.
|
||
DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
|
||
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==1 ;CHAOS NET
|
||
DEFOPT MYCHAD==177002 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==50. ;NUMBER OF INDICES
|
||
DEFOPT CH10P==1 ;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END
|
||
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT TK10P==1 ;HAS TK10 TTY SCANNER
|
||
DEFOPT NNTYS==16. ;# TTYS ON KNIGHT KLUDGE
|
||
;DEFOPT NNVTTS==0 ;# NOVA TTYS (used to have?)
|
||
DEFOPT NMTYS==16. ;# TTYS ON MORTON BOX
|
||
DEFOPT NSTTYS==8 ;# STY'S (PSEUDO-TTY'S)
|
||
DEFOPT MSPP==1 ;HAS MESSAGE SLURPER
|
||
|
||
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==10. ; # 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
|
||
] ;PT
|
||
|
||
IFE MCOND DM,[
|
||
DEFOPT KA10P==1 ;DM HAS KA10 PROCESSOR
|
||
DEFOPT MAXJ==63. ;MAX NUMBER OF JOBS ALLOWED
|
||
DEFOPT SWBLK==0 ;1 => SWAP BLOCKING, 0 => PRIVILEGED USER
|
||
DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER
|
||
DEFOPT PAGPRE==0 ;NO PAGE-IN PREEMPTION
|
||
DEFOPT SCHBLN==10. ;NUMBER OF RUNNABLE JOBS TO REMEMBER
|
||
|
||
DEFOPT NQS==6 ;# OF DISK UNITS
|
||
DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG
|
||
DEFSYM NUDSL==200. ;# USER DIRECTORIES ON DISK
|
||
DEFOPT NQCHN==30. ;NUMBER 2314 CHNLS
|
||
DEFOPT RP10P==1 ;HAS DEC RP10 DISK CONTROL (RP02)
|
||
DEFOPT DMDSK==1 ;USES DM DISK FORMAT
|
||
DEFOPT QRSRVP==1 ;HAS RESERVED DISK PACKS
|
||
DEFOPT QAUTHP==1 ;KEEPS TRACK OF FILE AUTHORS
|
||
|
||
DEFOPT C1MXP==1 ;HAS CHANNEL 1 MPX FEATURE
|
||
DEFOPT NMTCS==1 ;NUMBER MAG TAPE UNITS
|
||
DEFOPT TM10B==1 ;DF10-BASED CONTROLLER
|
||
DEFOPT TTLPTP==1 ;LPT IS A TTY (I.E. ON A TTY LINE) VALUE IS LINE #.
|
||
DEFOPT PTRP==1 ;HAS PAPER TAPE
|
||
DEFOPT PTPP==1 ;PUNCH DOES WORK.
|
||
DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX
|
||
;DEFOPT CODP==0 ;NO COD DEVICE (used to?)
|
||
DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK
|
||
|
||
DEFOPT NETP==1 ; Has net connection
|
||
DEFOPT IMPP==1 ; Has IMP interface
|
||
DEFOPT DMIMP==1 ; This is a DM IMP interface
|
||
DEFOPT IMPUS==106 ; ARPA net host number
|
||
DEFOPT IMPUS3==<IPADDR 10,1,0,6> ; Internet host number
|
||
DEFOPT NCPP==0 ; Flush NCP code
|
||
DEFOPT NNETCH==30. ; # NCP network channels
|
||
DEFOPT INETP==1 ; Include Internet code
|
||
DEFOPT TCPP==1 ; Include TCP code
|
||
DEFOPT XBL==20. ; # TCP network channels
|
||
|
||
DEFOPT MSPP==1 ;HAS MESSAGE SLURPER
|
||
DEFOPT DEMON==1 ;HAS DEMON ROUTINES
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT NMTYS==12. ;# TTYS ON MORTON BOX
|
||
DEFOPT NSTTYS==16. ;# OF STY'S (PSEUDO-TTY'S)
|
||
|
||
|
||
DEFOPT TSYSM==512. ;TOTAL PDP10 1K MEM BLOCKS
|
||
DEFOPT NMMP==4 ;# EXEC PAGES FOR MMP TABLE (# VIR PGS/512.)
|
||
|
||
DEFSYM PMRCM==777 ;9 BIT REAL CORE ADR
|
||
DEFSYM PMAGEM==17000 ;4 BIT AGE
|
||
DEFSYM PMCSHM==0 ;NO CACHE BIT
|
||
DEFSYM PMUNSD==160000 ;UNUSED BITS
|
||
] ;DM
|
||
|
||
IFE MCOND MX,[
|
||
DEFOPT KL10P==1 ;MX IS WHAT WE CALL THE KL10 NOW
|
||
DEFOPT MAXJ==120. ;MAX NUMBER OF JOBS ALLOWED
|
||
DEFOPT SWBLK==1 ;1 => SWAP BLOCKING, 0 => PRIVILEGED USER
|
||
DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER
|
||
DEFOPT PAGPRE==1 ;PAGE-IN PREEMPTION
|
||
DEFOPT SCHBLN==20. ;NUMBER OF RUNNABLE JOBS TO REMEMBER
|
||
|
||
DEFOPT NQS==6 ;# OF DISK UNITS (3 RP04'S AND 3 T-300'S)
|
||
DEFOPT NTUTBL==2 ;TUTS ARE TWO BLOCKS LONG
|
||
DEFSYM NUDSL==500. ;# USER DIRECTORIES ON DISK
|
||
DEFOPT NQCHN==50. ;NUMBER 2314 CHNLS
|
||
DEFOPT RH10P==1 ;HAS DEC RH10 DISK CONTROL
|
||
DEFOPT RP04P==1 ; WITH RP04 DISKS
|
||
DEFOPT T300P==3 ;TRIDENT T-300S VIA PDP-11 START AT DRIVE 3
|
||
DEFOPT QRDCMP==0 ;SOFTWARE READ-COMPARE, HARDWARE IS PINING FOR THE
|
||
; FJORDS (But this isn't debugged yet.)
|
||
DEFOPT DMDSK==1 ;USES DM DISK FORMAT
|
||
DEFOPT QRSRVP==1 ;HAS RESERVED DISK PACKS
|
||
DEFOPT QAUTHP==1 ;KEEPS TRACK OF FILE AUTHORS
|
||
|
||
DEFOPT NMTCS==1 ;NUMBER MAG TAPE UNITS
|
||
DEFOPT TM10B==1 ;DF10-BASED TAPE CONTROLLER
|
||
|
||
DEFOPT DL10P==1 ;HAS DL10/DC76 TTY CONTROLLER
|
||
DEFOPT PDCLKP==1 ;HAS "DeCoriolis" CLOCK
|
||
|
||
DEFOPT NETP==1 ; Has net connection
|
||
DEFOPT INETP==1 ; Include Internet IP code
|
||
DEFOPT TCPP==1 ; Include Internet TCP code
|
||
DEFOPT XBL==25. ; # TCP connections
|
||
DEFOPT IMPP==1 ; Has IMP interface
|
||
DEFOPT KAIMP==1
|
||
DEFOPT IMPUS==106 ; ARPA net host number
|
||
DEFOPT IMPUS3==<IPADDR 10,1,0,6> ; Internet host number
|
||
DEFOPT NCPP==0 ; Flush NCP code
|
||
DEFOPT NNETCH==30. ; # NCP network channels
|
||
DEFOPT CHAOSP==1 ;HAS CHAOS NET
|
||
DEFOPT MYCHAD==1440 ;CHAOS NET ADDRESS
|
||
DEFOPT NINDX==50. ;NUMBER OF INDICES
|
||
DEFOPT DLCP==1 ;CHAOS NET GOES THROUGH DL10
|
||
|
||
DEFOPT NOTYS==0 ;# KA-10 CONSOLE 0 TTYS
|
||
DEFOPT NETYS==33. ;# KL-10 DTE20 TTYS
|
||
NEWDTE==1 ;TEMPORARY CONDITIONAL TO ENABLE NEW DTE20 PROTOCOL
|
||
DEFOPT NDLTYS==4. ;# TTYS ON DL10/DC76
|
||
;Note: 3d TTY on DL10 is VT52 by console.
|
||
DEFOPT NSTTYS==25. ;# OF STY'S (PSEUDO-TTY'S)
|
||
|
||
DEFOPT TSYSM==2048. ;TOTAL PDP10 1K MEM BLOCKS
|
||
DEFOPT NMMP==7 ;# EXEC PAGES FOR MMP TABLE (# VIR PGS/512.)
|
||
|
||
DEFSYM PMRCM==7777 ;12 BIT REAL CORE ADDR
|
||
DEFSYM PMCSHM==10000 ;CACHE ENABLE BIT
|
||
DEFSYM PMAGEM==160000 ;3 BIT AGE
|
||
DEFSYM PMUNSD==0 ;NO UNUSED BITS
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[MX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;MX
|
||
|
||
IFE MCOND KL,[
|
||
DEFOPT KA10P==1
|
||
DEFOPT MAXJ==120. ;MAX NUMBER OF JOBS ALLOWED
|
||
DEFOPT SWBLK==1 ;1 => SWAP BLOCKING, 0 => PRIVILEGED USER
|
||
DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER
|
||
DEFOPT PAGPRE==1 ;PAGE-IN PREEMPTION
|
||
DEFOPT SCHBLN==20. ;NUMBER OF RUNNABLE JOBS TO REMEMBER
|
||
|
||
DEFOPT NQS==3 ;# OF DISK UNITS
|
||
DEFOPT NQCHN==50. ;NUMBER 2314 CHNLS
|
||
DEFOPT RP04P==1
|
||
DEFOPT RP06P==0
|
||
DEFOPT NTUTBL==2 ;TUTS ARE TWO BLOCKS LONG
|
||
DEFSYM NUDSL==500. ;# USER DIRECTORIES ON DISK
|
||
DEFOPT RH10P==1 ;HAS DEC RH10 DISK CONTROL (RP04)
|
||
;DEFOPT T300P==3 ;TRIDENT T-300S VIA PDP-11 START AT DRIVE 3
|
||
DEFOPT QRDCMP==0 ;SOFTWARE READ-COMPARE, HARDWARE IS PINING FOR THE
|
||
; FJORDS (But this isn't debugged yet.)
|
||
DEFOPT DMDSK==1 ;USES DM DISK FORMAT
|
||
DEFOPT QRSRVP==1 ;HAS RESERVED DISK PACKS
|
||
DEFOPT QAUTHP==1 ;KEEPS TRACK OF FILE AUTHORS
|
||
|
||
DEFOPT NMTCS==1 ;NUMBER MAG TAPE UNITS
|
||
DEFOPT TM10A==1 ;IO-BUS MAG TAPE
|
||
|
||
;DEFOPT DL10P==1 ;HAS DL10/DC76 TTY CONTROLLER
|
||
DEFOPT PDCLKP==1 ;HAS "DeCoriolis" CLOCK
|
||
|
||
;DEFOPT NETP==1 ; Has net connection
|
||
;DEFOPT INETP==1 ; Include Internet IP code
|
||
;DEFOPT TCPP==1 ; Include Internet TCP code
|
||
;DEFOPT XBL==25. ; # TCP connections
|
||
;DEFOPT IMPP==1 ; Has IMP interface
|
||
;DEFOPT KAIMP==1
|
||
;DEFOPT IMPUS==106 ; ARPA net host number
|
||
;DEFOPT IMPUS3==<IPADDR 10,1,0,6> ; Internet host number
|
||
;DEFOPT NCPP==0 ; Flush NCP code
|
||
;DEFOPT NNETCH==30. ; # NCP network channels
|
||
;DEFOPT CHAOSP==1 ;HAS CHAOS NET
|
||
;DEFOPT MYCHAD==1440 ;CHAOS NET ADDRESS
|
||
;DEFOPT NINDX==50. ;NUMBER OF INDICES
|
||
;DEFOPT DLCP==1 ;CHAOS NET GOES THROUGH DL10
|
||
|
||
DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS
|
||
;DEFOPT NETYS==33. ;# KL-10 DTE20 TTYS
|
||
;NEWDTE==1 ;TEMPORARY CONDITIONAL TO ENABLE NEW DTE20 PROTOCOL
|
||
;DEFOPT NDLTYS==4. ;# TTYS ON DL10/DC76
|
||
;Note: 3d TTY on DL10 is VT52 by console.
|
||
DEFOPT NSTTYS==25. ;# OF STY'S (PSEUDO-TTY'S)
|
||
|
||
DEFOPT TSYSM==512. ;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,,[MX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;KL
|
||
|
||
IFE MCOND AI,[
|
||
DEFOPT KS10P==1 ;The new AI has a KS10 processor.
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==2 ;# of disk drive units
|
||
DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with RP06 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RP06P==1 ; with two RP06s
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT NETP==1 ;Has one kind of network anyway
|
||
;AI's IMP is gone 5/5/89
|
||
;DEFOPT INETP==1 ; Include Internet code
|
||
;DEFOPT TCPP==1 ; Include TCP code
|
||
;DEFOPT XBL==30. ; # TCP network channels
|
||
;DEFOPT IMPP==1 ; Has an IMP interface
|
||
;DEFOPT KSIMP==1 ; ACC LH/DH interface on KS unibus
|
||
;DEFOPT IMPUS==206 ; ARPA net host number
|
||
;DEFOPT IMPUS3==<IPADDR 10,2,0,6> ; Internet host number of IMP
|
||
;DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
DEFOPT CHAOSP==1 ;Has CHAOS net
|
||
DEFOPT MYCHAD==3130 ;CHAOS net address
|
||
DEFOPT NINDX==50. ;Number of indices
|
||
DEFOPT CH11P==1 ;CHAOS net goes through Unibus
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==8. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==12. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[AI MC]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;AI
|
||
|
||
IFE MCOND MC,[
|
||
DEFOPT KS10P==1 ;MC is now a KS10.
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with RP06 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RP06P==1 ; with one RP06
|
||
|
||
DEFOPT NETP==1 ;Has one kind of network anyway
|
||
DEFOPT INETP==1 ; Include Internet code
|
||
DEFOPT TCPP==1 ; Include TCP code
|
||
DEFOPT XBL==30. ; # TCP network channels
|
||
;MC's IMP is gone 5/18/89
|
||
;DEFOPT IMPP==1 ; Has an IMP interface
|
||
;DEFOPT KSIMP==1 ; ACC LH/DH interface on KS unibus
|
||
;DEFOPT IMPUS==354 ; ARPA net host number
|
||
;DEFOPT IMPUS3==<IPADDR 10.3.0.44> ; Internet host number of IMP
|
||
DEFOPT IPUNCP==1 ; IP in Chaos UNC is our only Internet address
|
||
DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
DEFOPT CHAOSP==1 ;Has CHAOS net
|
||
DEFOPT MYCHAD==3131 ;CHAOS net address
|
||
DEFOPT NINDX==50. ;Number of indices
|
||
DEFOPT CH11P==1 ;CHAOS net goes through Unibus
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==6. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[AI MC]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;MC
|
||
|
||
IFE MCOND ML,[
|
||
DEFOPT KS10P==1 ;ML is now a KS10.
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with RP06 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RP06P==1 ; with one RP06
|
||
|
||
DEFOPT NETP==1 ;Has one kind of network anyway
|
||
DEFOPT CHAOSP==1 ;Has CHAOS net
|
||
DEFOPT MYCHAD==3133 ;CHAOS net address
|
||
DEFOPT NINDX==50. ;Number of indices
|
||
DEFOPT CH11P==1 ;CHAOS net goes through Unibus
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==4 ; 4 of them
|
||
DEFSYM DZ0BA=:760010
|
||
DEFSYM DZ1BA=:760020
|
||
DEFSYM DZ2BA=:760030
|
||
DEFSYM DZ3BA=:760040
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==4. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[AI MC ML]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;ML
|
||
|
||
; KLH: temporarily hijacking "MD" to help fix programs with hardwired
|
||
; tables of ITS names, including MD.
|
||
; To restore, change MDKS to MD and flush the virtual KLH10-based MD.
|
||
IFE MCOND MDKS,[
|
||
|
||
DEFOPT KS10P==1 ;MD is a KS10.
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==3 ;# 1K blocks in a TUT (better agree with disk DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RM80P==1 ; with one RM80
|
||
|
||
DEFOPT NETP==1 ;Has one kind of network anyway
|
||
DEFOPT CHAOSP==1 ;Has CHAOS net
|
||
DEFOPT MYCHAD==3132 ;CHAOS net address
|
||
DEFOPT NINDX==50. ;Number of indices
|
||
DEFOPT CH11P==1 ;CHAOS net goes through Unibus
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==4 ; 4 of them
|
||
DEFSYM DZ0BA=:760010
|
||
DEFSYM DZ1BA=:760020
|
||
DEFSYM DZ2BA=:760030
|
||
DEFSYM DZ3BA=:760040
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==4. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[AI MC ML MD]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;MD
|
||
|
||
IFE MCOND SI,[ ;Stacken ITS
|
||
DEFOPT KS10P==1 ;SI is a KS10
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with RP06 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RP06P==1 ; with one RP06
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==2 ; 2 of them
|
||
DEFSYM DZ0BA=:760010
|
||
DEFSYM DZ1BA=:760020
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==16. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==8. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[SI]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;SI
|
||
|
||
IFE MCOND FU,[ ;Australian KS10
|
||
DEFOPT KS10P==1 ;FU is a KS10
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with RP06 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RP06P==1 ; with one RP06
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==8. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[FU]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;FU
|
||
|
||
IFE MCOND PM,[ ;MRC's KS10 (PandaMonium)
|
||
DEFOPT KS10P==1 ;PM is a KS10
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==2 ;# 1K blocks in a TUT (better agree with RM03 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RM03P==1 ; with one RM03
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==5. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[PM]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;PM
|
||
|
||
IFE MCOND DXKS,[ ;Digex's real hardware KS10 (formerly DX)
|
||
DEFOPT KS10P==1 ;DX-KS is a KS10
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
DEFOPT NTUTBL==2 ;# 1K blocks in a TUT (better agree with RM03 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RM03P==1 ; with one RM02/3
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==8. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[DX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;DX
|
||
|
||
;;; Mostly virtual machines from here on, based on a KLH10 emulating a KS10.
|
||
;;; Try to simplify things by combining common definitions; perhaps
|
||
;;; this should be moved to an INSRT file instead.
|
||
|
||
DEFINE DEFVKS ; Define common virtual KS10
|
||
DEFOPT KS10P==1 ;Using a KS10 processor
|
||
DEFOPT KLH10P==1 ;(actually a KLH10)
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units for now
|
||
DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with RP06 DEFS)
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
DEFOPT RP06P==1 ; with one (not two) RP06s
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT NETP==1 ;Has one kind of network anyway
|
||
DEFOPT INETP==1 ; Include Internet code
|
||
DEFOPT TCPP==1 ; Include TCP code
|
||
DEFOPT XBL==30. ; # TCP network channels
|
||
DEFOPT IMPP==1 ; Has an IMP interface
|
||
DEFOPT SSIMP==1 ; Hooked to "Simulated Simple IMP"
|
||
;DEFOPT IMPUS==236. ; IMP net host number (old-style) (206 octal)
|
||
;DEFOPT IMPUS3==<IPADDR 192,168,0,236> ; IP address
|
||
;DEFOPT NM%IMP==<IPADDR 255,255,255,0> ; Subnet mask
|
||
;DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==8. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==20. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
TERMIN ; end DEFVKS
|
||
|
||
IFE MCOND NX,[ ; New-10 (or Non-eXistent) - original virtual system
|
||
|
||
DEFVKS ; Now uses standard virtual KS10 config
|
||
|
||
DEFOPT IMPUS==236. ; IMP net host number (old-style) (206 octal)
|
||
DEFOPT IMPUS3==<IPADDR 192,168,0,236> ; IP address
|
||
DEFOPT NM%IMP==<IPADDR 255,255,255,0> ; Subnet mask
|
||
|
||
DEFINE ITSIRP BODY ; No local companions
|
||
IRPS ITS,,[NX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;NX
|
||
|
||
IFE MCOND KN,[ ; KN for KN10 virtual system (alt to NX)
|
||
|
||
DEFVKS ; Now uses standard virtual KS10 config
|
||
|
||
DEFOPT IMPUS==134. ; IMP net host number (old-style) (206 octal)
|
||
DEFOPT IMPUS3==<IPADDR 10,134,198,236> ; IP address (Arpa,AI,ML,MC)
|
||
DEFOPT NM%IMP==<IPADDR 255,0,0,0> ; Subnet mask
|
||
|
||
DEFINE ITSIRP BODY ; No local companions
|
||
IRPS ITS,,[KN]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;NX
|
||
|
||
; KLH: See comment for MDKS above. Borrowing the "MD" name in order
|
||
; to help fix programs with hardwired ITS names.
|
||
IFE MCOND MD,[ ; Virtual MD
|
||
|
||
DEFVKS ; Initially use standard virtual KS10 config
|
||
|
||
DEFOPT IMPUS==51. ; IMP net host number (old-style)
|
||
DEFOPT IMPUS3==<IPADDR 192,168,0,203> ; IP address
|
||
DEFOPT NM%IMP==<IPADDR 255,255,255,0> ; Subnet mask
|
||
;DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[MD]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;MD (virtual)
|
||
|
||
IFE MCOND PI,[ ; Public ITS
|
||
|
||
DEFVKS ; Initially use standard virtual KS10 config
|
||
|
||
DEFOPT IMPUS==51. ; IMP net host number (old-style)
|
||
DEFOPT IMPUS3==<IPADDR 199,34,53,51> ; IP address
|
||
DEFOPT NM%IMP==<IPADDR 255,255,255,248> ; Subnet mask
|
||
;DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
|
||
DEFINE ITSIRP BODY ; Has some local friends
|
||
IRPS ITS,,[PI DU DX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;PI
|
||
|
||
IFE MCOND DX,[ ; Digex virtual ITS
|
||
|
||
DEFVKS ; Initially use standard virtual KS10 config
|
||
|
||
DEFOPT IMPUS==52. ; IMP net host number (old-style)
|
||
DEFOPT IMPUS3==<IPADDR 199,34,53,52> ; IP address
|
||
DEFOPT NM%IMP==<IPADDR 255,255,255,248> ; Subnet mask
|
||
;DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
|
||
DEFINE ITSIRP BODY ; Has some local friends
|
||
IRPS ITS,,[PI DU DX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;PI
|
||
|
||
IFE MCOND DU,[ ; Derivative ITS
|
||
|
||
DEFVKS ; Initially use standard virtual KS10 config
|
||
|
||
DEFOPT IMPUS==53. ; IMP net host number (old-style)
|
||
DEFOPT IMPUS3==<IPADDR 199,34,53,53> ; IP address
|
||
DEFOPT NM%IMP==<IPADDR 255,255,255,248> ; Subnet mask
|
||
;DEFOPT PKTTRC==-1 ;Packet tracing code enabled
|
||
|
||
DEFINE ITSIRP BODY ; Has some local friends
|
||
IRPS ITS,,[PI DU DX]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;DU
|
||
|
||
IFE MCOND DB,[ ;DistriBution world
|
||
DEFOPT KS10P==1 ;DB is a KS10
|
||
|
||
IF1,[
|
||
PRINTX /Configuration? (RP06, RP07, RM03 or RM80) /
|
||
.TTYMAC CNFG
|
||
DBRP06==0 ? DBRP07==0 ? DBRM03==0 ? DBRM80==0
|
||
DB!CNFG==1
|
||
IFE DBRP06\DBRP07\DBRM03\DBRM80, .ERR "CNFG" unknown.
|
||
TERMIN
|
||
]
|
||
|
||
DEFOPT MAXJ==60. ;Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ;Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ;Number of runnable jobs to remember
|
||
DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==1 ;1= Use page-in preemption
|
||
|
||
DEFOPT DMDSK==1 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==1 ;1= Keep track of file authors
|
||
|
||
DEFOPT NQS==1 ;# of disk drive units
|
||
IFN DBRP06, DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with
|
||
IFN DBRP07, DEFOPT NTUTBL==9 ; RP06 DEFS, RP07 DEFS,
|
||
IFN DBRM03, DEFOPT NTUTBL==2 ; RM03 DEFS or RM80 DEFS)
|
||
IFN DBRM80, DEFOPT NTUTBL==3
|
||
|
||
DEFSYM NUDSL==500. ;# directories in file system (better agree with
|
||
; SALV and DSKDMP)
|
||
DEFOPT RH11P==1 ; Has RH11 controller
|
||
IFN DBRP06, DEFOPT RP06P==1 ; with one RP06
|
||
IFN DBRP07, DEFOPT RP07P==1 ; with one RP07
|
||
IFN DBRM03, DEFOPT RM03P==1 ; with one RM02/3
|
||
IFN DBRM80, DEFOPT RM80P==1 ; with one RM80
|
||
|
||
DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?)
|
||
DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller
|
||
|
||
DEFOPT DZ11P==1 ;Has DZ11 TTY controllers
|
||
DEFOPT DZ11NB==1 ; 1 of them
|
||
DEFSYM DZ0BA=:760010
|
||
|
||
DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs
|
||
DEFOPT NDZTYS==8. ;# DZ-11 TTYs
|
||
DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's)
|
||
|
||
DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks
|
||
DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.)
|
||
|
||
;;; Next four better agree with SYSTEM;KSDEFS:
|
||
DEFSYM PMAGEM==020000 ;2.5 Age bit
|
||
DEFSYM PMCSHM==010000 ;2.4 Cache enable bit
|
||
DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number
|
||
; (The page table supports 20 bit physical
|
||
; addresses.)
|
||
DEFSYM PMUNSD==146000 ;Unused bits
|
||
|
||
DEFINE ITSIRP BODY
|
||
IRPS ITS,,[DB]
|
||
BODY
|
||
TERMIN
|
||
TERMIN
|
||
] ;DB
|
||
|
||
; Default settings for all configuration-dependent assembly parameters.
|
||
; If a system definition has already set a value for a parameter, the
|
||
; default here will NOT be used.
|
||
|
||
DEFOPT KL10P==0 ;1= KL10 processor
|
||
DEFOPT KS10P==0 ;1= KS10 processor
|
||
DEFOPT KA10P==0 ;1= KA10 processor
|
||
DEFOPT KLH10P==0 ;1= KLH10
|
||
|
||
IFE KL10P\KS10P\KA10P, .ERR Processor type required - KL10P, KS10P or KA10P
|
||
|
||
IFN KS10P, DEFOPT KSFREQ==4100000./60. ; KS-ticks per PD-tick.
|
||
|
||
DEFOPT C1MXP==0 ;1= Has PI channel 1 MPX feature
|
||
|
||
DEFOPT MAXJ==63. ; Max number of jobs allowed
|
||
DEFOPT NQCHN==30. ; Max number of user disk channels open in system
|
||
DEFOPT SCHBLN==10. ; Number of runnable jobs to remember
|
||
DEFOPT SWBLK==0 ;1= 1=> swap blocking, 0=> privileged user
|
||
DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler
|
||
DEFOPT PAGPRE==0 ;1= Use page-in preemption
|
||
|
||
; Disk parameters
|
||
|
||
IFNDEF NQS, .ERR NQS required - # of disk drive units
|
||
IFNDEF NTUTBL,.ERR NTUTBL required - # 1K blocks in a TUT
|
||
; (This defn better agree with DC/RP/RH/T3 defs)
|
||
IFNDEF NUDSL, .ERR NUDSL required - # directories in file system
|
||
; Just changing this will not work!!
|
||
DEFOPT DC10P==0 ;1= Has Systems Concepts disk control
|
||
DEFOPT RP10P==0 ;1= DEC RP10 disk control (RP02 or RP03)
|
||
DEFOPT RH10P==0 ;1= DEC RH10 disk control (RP04 or RP06)
|
||
DEFOPT RH11P==0 ;1= DEC RH11 disk control
|
||
DEFOPT RP04P==0 ;1= RH10 with RP04's or RP06's
|
||
DEFOPT RP06P==0 ;1= RH10 or RH11 with RP06's
|
||
DEFOPT RM03P==0 ;1= RH11 with RM03's
|
||
DEFOPT RM80P==0 ;1= RH11 with RM80's
|
||
DEFOPT T300P==0 ;1= Trident T-300 via PDP-11
|
||
DEFOPT QRDCMP==0 ;1= Software read-compare
|
||
DEFOPT DMDSK==0 ;1= Use DM DSK format
|
||
DEFOPT QRSRVP==0 ;1= Has reserved disk packs (Secondary pack)
|
||
DEFOPT QAUTHP==0 ;1= Keep track of file authors
|
||
|
||
|
||
; Magtape parameters
|
||
DEFOPT NMTCS==0 ; # Mag tape units
|
||
DEFOPT TM10A==0 ;1= IO-bus TM10 Mag tape
|
||
DEFOPT TM10B==0 ;1= DF10/TM10 Magtape
|
||
DEFOPT TM03S==0 ;1= TM03/RH11 KS Magtape
|
||
IFN NMTCS,IFE TM10A\TM10B\TM03S,.ERR No Magtape Controller type specified?
|
||
|
||
|
||
; Network parameters
|
||
DEFOPT NETP==0 ;1= Connected to some network, include net code.
|
||
DEFOPT CHAOSP==0 ;1= Has CHAOS net (Must have some interface def'd)
|
||
DEFOPT NCPP==0 ;1= Include NCP code (must have IMPP)
|
||
DEFOPT INETP==0 ;1= Include Internet Protocol code
|
||
DEFOPT TCPP==0 ;1= Include TCP code (must have INETP)
|
||
DEFOPT IPUNCP==0 ;1= IP in Chaos UNC is our only Internet address
|
||
|
||
;NCP-specific parameters
|
||
DEFOPT NNETCH==30. ; # of NCP network channels system supports
|
||
|
||
;IP-specific paramters
|
||
IFN INETP,[
|
||
IFE IPUNCP,IFNDEF IMPUS3,.ERR IMPUS3 must be defined as Internet host addr
|
||
IFN IPUNCP,IFE CHAOSP,.ERR Chaosnet must exist for IP encapsulation scheme
|
||
]
|
||
|
||
;Chaos-specific parameters
|
||
IFN CHAOSP,IFNDEF MYCHAD, .ERR MYCHAD must be defined as CHAOSnet host addr
|
||
IFN CHAOSP,DEFOPT IMPUS4==<<IPADDR 128,31,0,0>+MYCHAD> ; MIT Chaosnet IP addr
|
||
IFN CHAOSP,DEFOPT NM%CHA==<IPMASK IMPUS4> ; Set default netmask for it
|
||
DEFOPT NINDX==0 ; Number of indices for CHAOS connections
|
||
DEFOPT CH10P==0 ;1= CHAOS net via PDP-10 I/O bus
|
||
DEFOPT CH11P==0 ;1= CHAOS net via Unibus Chaos board on KS10
|
||
DEFOPT DLCP==0 ;1= CHAOS net via DL10
|
||
DEFOPT T11CHP==0 ;1= CHAOS net via Rubin 10-11 interface
|
||
IFN T11CHP,DEFOPT CH11NM==7 ; CHAOS net is on PDP-11 #7 of 10-11 interface
|
||
|
||
;IMP interface specific parameters
|
||
DEFOPT IMPP==0 ;1= Has IMP interface to ARPAnet
|
||
IFN IMPP,IFNDEF IMPUS, .ERR IMPUS must be defined as ARPAnet host #
|
||
IFN IMPP,IFNDEF IMPUS3,.ERR IMPUS3 must be defined as ARPAnet host #
|
||
;IFN IMPP,DEFOPT NM%IMP==<IPMASK IMPUS3> ; Define default netmask
|
||
DEFOPT DMIMP==0 ;1= Has DM IMP interface
|
||
DEFOPT KAIMP==0 ;1= Has AI-KA/ML-KA/MX-KL IMP interface
|
||
DEFOPT KSIMP==0 ;1= Has KS10 UNIBUS ACC LH-DH IMP interface
|
||
DEFOPT SSIMP==0 ;1= Has "Simulated Simple IMP", similar to KSIMP
|
||
IFN IMPP,IFE DMIMP+KAIMP+KSIMP+SSIMP,.ERR IMPP requires an interface type
|
||
IFN IMPP,IFN IPUNCP,.ERR IPUNCP and IMPP are incompatible
|
||
|
||
; Generic network interface parameters
|
||
DEFOPT NNIFS==<IMPP+CHAOSP> ; # of network interfaces
|
||
|
||
|
||
; TTY line parameters
|
||
DEFOPT MTYP==0 ;1= Has Morton box multiplexor
|
||
DEFOPT DL10P==0 ;1= Has DL10/DC76 TTY controller
|
||
DEFOPT TK10P==0 ;1= Has TK10 TTY scanner
|
||
DEFOPT DPKPP==0 ;1= Has Datapoint kludge TTY mpxr
|
||
DEFOPT DZ11P==0 ;1= Has DZ11 Multiplexors
|
||
|
||
IFN DZ11P, IFNDEF DZ11NB, .ERR DZ11P requires a value for DZ11NB
|
||
IFE DZ11P, DEFSYM DZ11NB==0 ; # DZ11s
|
||
|
||
DEFOPT NOTYS==0 ; # KA-10 console 0 TTYs
|
||
DEFOPT NETYS==0 ; # KL-10 DTE20 console 0 TTYs
|
||
DEFOPT NKSTYS==0 ; # KS-10 8080 console 0 TTYs
|
||
DEFOPT NNVTTS==0 ; # Nova TTYs
|
||
DEFOPT NNTYS==0 ; # TTYs on Knight kludge
|
||
DEFOPT NDZTYS==0 ; # TTYs on DZ11s
|
||
DEFOPT NDPTYS==0 ; # TTYs on Datapoint kludge
|
||
DEFOPT NMTYS==0 ; # TTYs on Morton box
|
||
DEFOPT NDLTYS==0 ; # TTYs on DL10/DC76
|
||
DEFOPT NSTTYS==0 ; # of STY's (Pseudo-TTY's)
|
||
DEFOPT N11TYS==0 ; # PDP11 TV TTYs (formerly 16. of them)
|
||
IFN N11TYS,[
|
||
DEFOPT TT11NM==0 ; # of PDP11 that handles TTYs.
|
||
DEFOPT MXVBN==40 ; Max video buffer # for assignment purposes.
|
||
] ; These actually correspond to video switch inputs.
|
||
DEFOPT NF2741==0 ; First 2741 console #
|
||
DEFOPT N2741==0 ; # 2741's (formerly 3; flushed 3/21/76)
|
||
DEFOPT SYSCON==0 ; TTY # of system job console
|
||
DEFOPT APL==0 ; AP TTY #
|
||
|
||
; Miscellaneous devices
|
||
|
||
DEFOPT TEN11P==0 ;1= Rubin 10-11 interface (late of AI-KA)
|
||
DEFOPT XGP==0 ;1= Has XGP
|
||
DEFOPT NEWDTP==0 ;1= Has new dectape controller
|
||
DEFOPT NUNITS==0 ; # Utape (DECtape) units
|
||
DEFOPT OLPTP==0 ;1= Has old LPT (Data Products)
|
||
DEFOPT NLPTP==0 ;1= Has new LPT (ODEC)
|
||
DEFOPT GLPTP==0 ;1= Has Gould LPT
|
||
DEFOPT TTLPTP==0 ;1= LPT is on a TTY line (value = line #)
|
||
DEFOPT PTRP==0 ;1= Has paper tape reader/punch
|
||
DEFOPT PTPP==0 ;1= Paper tape punch works
|
||
DEFOPT PDCLKP==0 ;1= Has "DeCoriolis" clock
|
||
DEFOPT HCLKP==0 ;1= Has Holloway clock (device 710, 714)
|
||
DEFOPT CCLKP==0 ;1= Hack chess tournament clock stuff (device 374)
|
||
DEFOPT 340P==0 ;1= Has 340 display
|
||
DEFOPT TABP==0 ;1= Has Sylvania tablet
|
||
DEFOPT PLTP==0 ;1= Has Calcomp plotter
|
||
DEFOPT DSDP==0 ;1= Has deselection device
|
||
DEFOPT ARMP==0 ;1= Has arm (AMF mostly) (R.I.P.)
|
||
DEFOPT IMXP==0 ;1= Has IMX (input A/D multiplexor) (alas, no more)
|
||
DEFOPT OMXP==0 ;1= Has OMX (output D/A multiplexor) (alas, no more)
|
||
DEFOPT VIDP==0 ;1= Has VIDI (R.I.P.)
|
||
DEFOPT NTYP==0 ;1= Has DM kludge for talking to 11
|
||
DEFOPT CODP==0 ;1= Has Morse code F1 92Mhz broadcast output device
|
||
DEFOPT PDP6P==0 ;1= Has PDP-6 (alas, no more)
|
||
; (turning this on probably won't work)
|
||
DEFOPT RBTCP==0 ;1= Has Robot console
|
||
DEFOPT NDAP==0 ;1= Has "new" D/A converters (alas, no more)
|
||
DEFOPT STKP==0 ;1= Has Stanford keyboard (not any more)
|
||
DEFOPT E.SP==0 ;1= Has E&S LDS-1 display
|
||
|
||
; Some software options
|
||
|
||
DEFOPT MSPP==0 ;1= Want message slurper
|
||
DEFOPT DEMON==0 ;1= Want crufty DM demon facility
|
||
DEFOPT TPLP==0 ;1= Want pseudo LPT
|
||
|
||
|
||
; Physical memory parameters
|
||
|
||
DEFOPT ECCMEM==0 ;1= Has HIC's error correcting memory
|
||
DEFOPT NMMP==4 ; # exec pages for MMP table (# vir pgs/512.)
|
||
IFNDEF TSYSM, .ERR TSYSM required - Total PDP10 1K mem blocks
|
||
|
||
IFNDEF PMRCM, .ERR PMRCM required - Mem addr field in page map
|
||
IFNDEF PMAGEM,.ERR PMAGEM required - Age bits in page map
|
||
IFNDEF PMCSHM,.ERR PMCSHM required - Cache bit
|
||
IFNDEF PMUNSD,.ERR PMUNSD required - Unused bits
|
||
|
||
IFNDEF ITSIRP,.ERR ITSIRP required - Names of local ITS machines
|
||
|
||
; Any parameter conflict checks can be made here.
|
||
|
||
IFN DZ11P,[
|
||
IFG NDZTYS-<DZ11NB*8>, .ERR More DZ11 TTYs than controllers?
|
||
REPEAT DZ11NB,[
|
||
IFNDEF CONC DZ,\.RPCNT,BA, .ERR DZ11 bus address not specified.
|
||
]
|
||
]
|
||
IFN $$TEMP,EXPUNGE DEFSYM
|
||
IFN $$TEM2,EXPUNGE DEFOPT
|