Google
 

Trailing-Edge - PDP-10 Archives - cuspjul86upd_bb-jf24a-bb - 10,7/decmai/mx/lcltab.mac
There are no other files named lcltab.mac in the archive.
EXTERN	LCLSRV,LCLSPL		;Local-Domain Init, Server, and Spooler
					;Tasks
EXTERN  DCNSRV,DCNSPL		;Decnet-Domain Server and Spooler Tasks

INTERN	RTRYNT,RTRYLC		;Retry counts for Network and local mail
INTERN	DNTIMO			;Timeout value for decnet connects

DOMLEN==10				;Length of Domain_data_block - 1
					;Validation Methods
ARPANT==1				;Check Monitor and cache results NYI
DECNT==2				;Load PMR file, Check Monitor,
                                        ; and cache results
INFILE==3				;All nodes contained in a file
ASKPRC==4				;Check with external process

DNSMTP==2				;The number of SMTP listeners to start
DNVM11==3				;The number of MAIL-11 listeners
DNTIMO==5*^D60				;The number of minutes before decnet
                                        ;times out

RTRYNT==10				;Retry network mail every RTRYNT mins
RTRYLC==15				;Retry local mail every RTRYLC minutes

NTIMO::	DNTIMO				;MX uses 2x NTIMO for read timeouts
					;and 1x NTIMO for others.

					;The table of Domain records
					; -Indexed by domain-id
NETTAB::LCLDOM				;Local =  0
	NETD01				;Decnet = 1
	NETD02				;Unused - Lots of room for expansion
	NETD03				;		.
	NETD04				;		.
	NETD05				;		.
	NETD06				;		.
	NETD07				;		.
	NETD08				;		.
	NETD09				;		.

LCLDOM:	INFILE,,[ASCIZ /LOCAL/]  	;An INTERNAL domain server/spooler
	LCLSRV,,LCLSPL			;Server task,,Spooler task
	0,,[ASCIZ /UPS:LCHOST.TXT/]	;Host name data file
	0				;
	0				;
	0				;
	0				;
	0				;
	0				;

NETD01:	0
	BLOCK	DOMLEN

NETD02:	0
	BLOCK	DOMLEN

NETD03:	0
	BLOCK	DOMLEN

NETD04:	0
	BLOCK	DOMLEN

NETD05:	0
	BLOCK	DOMLEN

NETD06:	0
	BLOCK	DOMLEN

NETD07:	0
	BLOCK	DOMLEN

NETD08:	0
	BLOCK	DOMLEN

NETD09:	0
	BLOCK	DOMLEN

	END
; CMS REPLACEMENT HISTORY


;*1 WADDINGTON 14-Dec-1984 16:36:43 "The Domain Table Module"
; CMS REPLACEMENT HISTORY


;*3 WADDINGTON 26-Feb-1985 09:00:14 "Changes due to new Node/Domain work"
;*2 WADDINGTON 21-Dec-1984 09:10:28 "First Runnable MX"
;*1 WADDINGTON 14-Dec-1984 16:36:43 "The Domain Table Module"