Trailing-Edge
-
PDP-10 Archives
-
AP-D471B-SB_1978
-
demo.mac
There are 7 other files named demo.mac in the archive. Click here to see a list.
TITLE MCSCNF MCS-10 CONFIGURATION FILE
RADIX 10
SALL
SEARCH MCSS
$VRCHK(^O2)
SUBTTL MISC
MCSNAM:: GETNAM(ORDER ENTRY, SYSNAMLEN, SYSTEM NAME )
Z
MAXJSN==:^D4 ;NUMBER OF JOB SLOT NUMBERS AVAILABLE
; OUTPUT AND INPUT JOURNALLING
OLOGGING:: TRUE
ILOGGING:: TRUE
JORCUR::0 ; CURRENT
JORSPC::IAUDPRIM ; PRIMARY AUDIT FILE
IAUDSEC ; SECONDARY AUDIT FILE
; FILE SPECS FOR IAUDING DEVICES
IAUDPRIM:
SIXBIT /DSK/
SIXBIT /ORDER/
SIXBIT /JRN/
XWD 0,0
IAUDSEC:
SIXBIT //
SIXBIT //
SIXBIT //
XWD 0,0
MLOGGING:: TRUE
LOGCUR::0 ; CURRENT
LOGSPC::MLOGPRIM ; PRIMARY MPP LOGGI NG FILE
MLOGSEC ; SECONDARY SPEC
; FILE SPECS FOR MLOGGING DEVICES
MLOGPRIM:
SIXBIT /DSK/
SIXBIT /ORDER/
SIXBIT /LOG/
XWD 0,0
MLOGSEC:
SIXBIT //
SIXBIT //
SIXBIT //
XWD 0,0
CHECKPOINTING:: TRUE
ROLLING:: TRUE
0 ; CURRENT
FSPRIM ; FAILSOFT/ROLLING FILE
0
; FILE SPECS FOR FAILSOFT/ROLLING DEVICES
FSPRIM::
SIXBIT /DSK/
SIXBIT /ORDER/
SIXBIT /QQQ/
XWD 0,0
FSSIZE:: 1152
SDMO:: 0
PIGGYB:: 1
TRCLEN:: 7
TRCSIZ==7
TRCDEL:: XWD TRUE,"-"
TRCW:: <<7-1>/5>+1
FILLRB:: 0 ;STARTING POSITION OF TRCODE
FILLRC:: 0 ;SPACE BETWEEN TRCODE AND START OF TEXT
; ASCII CODES FOR THE END INDICATORS
ESI==:^O11
EMI==:^O14
EGI==:^O15
EPI==:^O13
IBASE:: 4
ITOP:: 4
OBASE:: 5
OTOP:: 5
SUBTTL MESSAGE CLASS TABLES
%MCNT=0
MCLASS:: %MCLASS(NOW) ; IMMEDIATE MODE
%MCLASS(LATER) ; DEFERRED MODE
%MCLASS(EVERY) ; BROADCAST MODE
MCOUNT:: <%MCNT-1>*2
MDEFAULT:: 0 ; IMMEDIATE IS DEFAULT
SUBTTL PASSWORDS
PCOUNT=0
PSWRDTAB::
PASSWORD(ORDER)
PASSWORD(NOORDER)
PSWRDCOUNT::
EXP PCOUNT
SUBTTL JOB TABLES FOR THE KERNEL
$JBTBL
SUBTTL TREE
IF1, <LFCNT==0>
LEAFNO=-1
TREE:: .+1 ; NEXT WORD MUST BE # OF LEAVES
EXP LFCNT ;NUMBER OF LEAVES IN THE TREE
; FIRST NODE OF THE TREE
L0:
P.0: LEAF(LOGIN,0,0,1,0,P.1,0,262143,ENABLED,CHKPNT)
P.1: NODE(REGULAR,0,1,1,S1.0,P.2,0)
L1:
S1.0: LEAF(REORDER,P.1,-1,-1,0,S1.1,1,262143,ENABLED,CHKPNT)
L2:
S1.1: LEAF(ORDER,P.1,-1,-1,0,0,1,262143,ENABLED,CHKPNT)
L3:
P.2: LEAF(RUSH,0,2,1,0,ERLEAF,0,262143,ENABLED,CHKPNT)
LFCNT=LEAFNO+1 ; DON'T COUNT THE ERROR LEAF
; OR THE OTHER LOCAL MPP LEAVES
ERLEAF:: LEAF(,0,M.ERR,1,0,SONLEAF,0,-1,ENABLED)
ERRLN==LEAFNO
SONLEAF:: LEAF(,0,M.SON,1,0,SOFFLEAF,0,-1,ENABLED)
SONLN==LEAFNO
SOFFLEAF:: LEAF(,0,M.SOFF,1,0,DCRLEAF,0,-1,ENABLED)
SOFFLN==LEAFNO
DCRLEAF:: LEAF(,0,M.RDMC,1,0,DMRLEAF,0,-1,ENABLED)
DCRLN==LEAFNO
DMRLEAF:: LEAF(,0,M.RDM,1,0,0,0,-1,ENABLED)
DMRLN==LEAFNO
ALLEAVES=LEAFNO
LEAFDSKADDR:: BLOCK ALLEAVES+1
LFPTRTAB::
EXP L0
EXP L1
EXP L2
EXP L3
EXP ERLEAF
EXP SONLEAF
EXP SOFFLEAF
EXP DCRLEAF
EXP DMRLEAF
SUBTTL TRCODE & LFADDR TABLES
;TRCODE TABLE::
8
TRCODE::
GETSTR(<<"L", "O", "G", "I", "N", ^O0, ^O0>>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"R", "E", "O", "R", "D", "E", "R">>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"O", "R", "D", "E", "R", ^O0, ^O0>>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"R", "U", "S", "H", ^O0, ^O0, ^O0>>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"H", "E", "L", "L", "O", ^O0, ^O0>>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"B", "Y", "E", ^O0, ^O0, ^O0, ^O0>>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"R", "D", "E", "F", "E", "R", ^O0>>, TRCSIZ, TRANSACTION CODE)
GETSTR(<<"C", "D", "E", "F", "E", "R", ^O0>>, TRCSIZ, TRANSACTION CODE)
;LFADDR TABLE
8
LFADDR::
EXP L0
EXP L1
EXP L2
EXP L3
EXP SONLEAF
EXP SOFFLEAF
EXP DMRLEAF
EXP DCRLEAF
SUBTTL LEAF TABLE
LFTAB::EXP .
%LFTAB() ; THIS MUST BE THE LAST ENTRY IN LFTAB
SUBTTL MPPS
EXTERNAL SON,SOFF,DMR,DCR,ERR
MPPTAB::
XWD M0.0,M0.0
XWD M1.0,M1.0
XWD M2.0,M2.0
M.ERR=.-MPPTAB
XWD M3.0,M3.0
M.SON=.-MPPTAB
XWD M4.0,M4.0
M.SOFF=.-MPPTAB
XWD M5.0,M5.0
M.RDM=.-MPPTAB
XWD M6.0,M6.0
M.RDMC=.-MPPTAB
XWD M7.0,M7.0
FMPPS==: 10
BLOCK FMPPS
MPPS==:8
M0.0: %MPP(0,0,DSK,LOGIN,<^O0, ^O0>,0,0,1,0,0,FALSE,FALSE,FALSE)
M1.0: %MPP(1,0,DSK,REGULA,<^O0, ^O0>,0,0,2,0,0,FALSE,FALSE,FALSE)
M2.0: %MPP(2,0,DSK,RUSH,<^O0, ^O0>,0,0,1,0,0,FALSE,FALSE,FALSE)
M3.0: %MPP(3,0,COR,ERR,<0,0>,0,0,0,0,0,0,TRUE,TRUE)
M4.0: %MPP(4,0,COR,SON,<0,0>,0,0,0,0,0,0,TRUE,TRUE)
M5.0: %MPP(5,0,COR,SOFF,<0,0>,0,0,0,0,0,0,TRUE,TRUE)
M6.0: %MPP(6,0,COR,DMR,<0,0>,0,0,0,0,0,0,TRUE,TRUE)
M7.0: %MPP(7,0,COR,DCR,<0,0>,0,0,0,0,0,0,TRUE,TRUE)
SUBTTL PORTS
FREEPORTS==0
PORTTAB::EXP .+1
PP1: %PORT(PORT1,TT1)
PP2: %PORT(PORT2,TT2)
PP3: %PORT(PORT3,TT3)
PP4: %PORT(PORT4,TT4)
PP5: %PORT(PORT5, )
PP6: %PORT(PORT6, )
PP7: %PORT(PORTW,TT7)
EXP 0 ; MUST BE LAST ENTRY IN PORT TAB
SUBTTL TERMINALS
INTERN TRMDSKTAB
LFSTSSIZE=<<LFCNT/18>+1>
INTERNAL SRCTAB,S0SIZE,S0CNT
SRCTAB:: .+1
XWD SRCNAMESIZE,<SRCNAMESIZE-1>/5+1
SRCCNT=0
TT1: %SRC(STORE1,ENABLED,<<ENABLED,<INACC,0>>>)
TT2: %SRC(STORE2,ENABLED,<<ENABLED,<INACC,0>>>)
TT3: %SRC(STORE3,ENABLED,<<ENABLED,<INACC,0>>>)
TT4: %SRC(STORE4,ENABLED,<<ENABLED,<INACC,0>>>)
TT5: %SRC(STORE5,DISABLED,<<DISABLED,<ENABLED,0>>>)
TT6: %SRC(STORE6,DISABLED,<<DISABLED,<ENABLED,0>>>)
TT7: %SRC(WAREHOUSE,ENABLED,<<INACC>>)
%SRC() ;THIS MUST BE THE LAST ENTRY IN SRCTAB
S0SIZE:: EXP TT2-TT1
S0CNT:: EXP SRCCNT-1
TRMDSKTAB:: BLOCK SRCCNT
SUBTTL ALTERNATE TERMINAL LISTS
END