	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