Google
 

Trailing-Edge - PDP-10 Archives - BB-H240B-BM - decnet/netpar.mac
There are 6 other files named netpar.mac in the archive. Click here to see a list.
;<JENNESS.NETCON>NETPAR.MAC.4, 31-Jan-80 13:29:21, Edit by JENNESS
; Update copyright date
;<JENNESS.NETCON>NETPAR.MAC.2, 21-Jan-80 10:35:40, Edit by PLATUKIS
; Enlarge PDL to 2000(8) words .
;<JENNESS>NETPAR.MAC.3, 19-Dec-79 09:26:14, Edit by PLATUKIS
; Fix STATUS/STATE keyword value conflict for SHOW/SET commands.
;<JENNESS>NETPAR.MAC.11, 14-Nov-79 11:29:33, Edit by JENNESS
; Update edit number for some more fixes in NCU.
;<JENNESS>NETPAR.MAC.10, 31-Oct-79 13:44:10, Edit by JENNESS
; Fix LATSIZ to be the proper size.
;<JENNESS>NETPAR.MAC.9, 30-Oct-79 17:07:40, Edit by JENNESS
; A fix to NCU to make it actually conform to the NICE event logging protocol.
;<JENNESS>NETPAR.MAC.8, 30-Oct-79 10:39:22, Edit by JENNESS
; Add code to release topology table when a new one is made, or if a failure
; occurs while creating the new one.
;<JENNESS>NETPAR.MAC.7, 23-Oct-79 10:59:20, Edit by PLATUKIS
; Increase version number for lots of NCU fixes and GETFRE/RELFRE memory
; allocation recording.
;<JENNESS>NETPAR.MAC.6, 11-Oct-79 16:23:14, Edit by JENNESS
; Add symbols and structure stuff for NICE queue entry ageing.
;<JENNESS>NETPAR.MAC.5,  4-Oct-79 08:20:04, Edit by JENNESS
; Update edit number for TOPOLOGY timer, SPRIW's in NCU, ASCLIN suppressing
; station number if zero, and minor code cleanup.
;<SROBINSON.NETCON>NETPAR.MAC.9, 26-Sep-79 15:47:54, Edit by JENNESS
; Update edit number for TCOs 4.2488 and 4.2489
;<4.UTILITIES>NETPAR.MAC.85, 23-Aug-79 13:42:53, Edit by JENNESS
; Edit for change in NCU for ASGREC buffer size.
;<4.UTILITIES>NETPAR.MAC.84, 8-Aug-79 11:19:37, Edit by JENNESS
; Change all RELFRE failures to FATAL.ERROR
;<4.UTILITIES>NETPAR.MAC.83, 2-Aug-79 10:10:10, Edit by JENNESS
; Increment version number reflecting changes in NCP memory mangler.
;<4.UTILITIES>NETPAR.MAC.82, 22-Jul-79 10:08:37, Edit by SROBINSON
;Diddle the edit number
;<4.UTILITIES>NETPAR.MAC.81, 15-Jul-79 15:38:36, Edit by SROBINSON
;Update Edit Number for TCO 4.2329
;<4.UTILITIES>NETPAR.MAC.80, 10-Jul-79 10:45:27, Edit by SROBINSON
;Update Edit Number for TCO 4.2320
;<4.UTILITIES>NETPAR.MAC.79, 21-Jun-79 06:31:36, EDIT BY R.ACE
;UPDATE EDIT NUMBER
;<4.UTILITIES>NETPAR.MAC.78, 20-Jun-79 16:07:44, EDIT BY KIRSCHEN
;ADD SYMBOLS FOR EVENT LOGGING COMMANDS
;ADD KEYWORD SYMBOL FOR EVENT LOGGING (.DNEVL)
;<4.UTILITIES>NETPAR.MAC.77, 20-Apr-79 14:26:35, EDIT BY KIRSCHEN
;ADD SY%CHK
;<4.UTILITIES>NETPAR.MAC.76, 17-Mar-79 14:53:14, EDIT BY KIRSCHEN
;FIX SYSERR DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.75, 12-Mar-79 14:51:49, Edit by KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>NETPAR.MAC.74, 30-Jan-79 09:09:01, EDIT BY KIRSCHEN
;ADD DEFINITIONS FOR STORING KDP REGISTERS ON EVENT LOG MESSAGES
;<4.UTILITIES>NETPAR.MAC.73, 12-Jan-79 21:12:26, EDIT BY KIRSCHEN
;ADD "ENTRY WAS REQUEUED" FLAG TO NICE QUEUE ENTRY DEFINITION
;<4.UTILITIES>NETPAR.MAC.72, 27-Dec-78 21:30:48, EDIT BY KIRSCHEN
;fix typo
;<4.UTILITIES>NETPAR.MAC.71, 26-Dec-78 12:26:14, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.70, 25-Dec-78 21:50:10, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.69, 23-Dec-78 14:38:16, EDIT BY KIRSCHEN
;ADD EVENT LOGGING DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.68, 22-Dec-78 15:39:09, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.67, 22-Dec-78 15:21:47, EDIT BY KIRSCHEN
;ADD SYSERR DEFINITIONS FOR HARDWARE EVENT LOGGING ENTRIES
;<4.UTILITIES>NETPAR.MAC.66, 18-Dec-78 20:58:29, EDIT BY KIRSCHEN
;ADD .DNMNT
;<4.UTILITIES>NETPAR.MAC.65, 18-Dec-78 09:03:52, EDIT BY ENGEL
;ADD NDDOK AND NDLOK
;<4.UTILITIES>NETPAR.MAC.64, 16-Dec-78 22:50:07, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.63, 15-Dec-78 22:48:37, EDIT BY KIRSCHEN
;ADD PAGLEV
;<4.UTILITIES>NETPAR.MAC.62, 14-Dec-78 14:18:30, EDIT BY ENGEL
;ADD DNLIP
;<4.UTILITIES>NETPAR.MAC.61,  8-Dec-78 11:50:34, EDIT BY KIRSCHEN
;ADD EVENT LOGGING DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.60,  8-Dec-78 11:33:12, EDIT BY ENGEL
;ADD AUTO-DUMP/AUTO-LOAD
;<4.UTILITIES>NETPAR.MAC.59,  6-Dec-78 14:24:03, EDIT BY ENGEL
;ADD NDDIP - AUTO DUMP/LOAD IN PROGRESS BIT
;<4.UTILITIES>NETPAR.MAC.58,  5-Dec-78 09:34:16, EDIT BY KIRSCHEN
;FIX TOPTIM DEFINITION
;<4.UTILITIES>NETPAR.MAC.57,  5-Dec-78 09:10:38, EDIT BY KIRSCHEN
;FIX .SYPTR DEFINITION
;<4.UTILITIES>NETPAR.MAC.56,  1-Dec-78 09:45:39, EDIT BY KIRSCHEN
;ADD NDTOP
;<4.UTILITIES>NETPAR.MAC.55, 30-Nov-78 14:40:18, EDIT BY ENGEL
;ADD .QTTOP
;<4.UTILITIES>NETPAR.MAC.53, 30-Nov-78 13:21:34, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.52, 27-Nov-78 14:47:42, EDIT BY ENGEL
;CHANGE LENGTH OF NICE QUEUE BLOCK
;<4.UTILITIES>NETPAR.MAC.51, 27-Nov-78 10:59:18, EDIT BY ENGEL
;ADD NQXTR
;<4.UTILITIES>NETPAR.MAC.50, 22-Nov-78 10:27:48, EDIT BY ENGEL
;<4.UTILITIES>NETPAR.MAC.49, 20-Nov-78 09:14:30, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.48,  7-Nov-78 16:00:40, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.47,  7-Nov-78 15:58:30, EDIT BY KIRSCHEN
;ADD .DNLOG
;<4.UTILITIES>NETPAR.MAC.46,  3-Nov-78 13:35:58, EDIT BY KIRSCHEN
;EXPAND MAX NICE MESSAGE SIZE, FIX DEFAULT # OF LOCATIONS TO DUMP
;<4.UTILITIES>NETPAR.MAC.45,  2-Nov-78 14:13:01, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.44,  2-Nov-78 12:05:50, EDIT BY KIRSCHEN
;ADD .LGMNT
;<4.UTILITIES>NETPAR.MAC.43,  2-Nov-78 11:20:30, EDIT BY KIRSCHEN
;ADD .MPDIA
;<4.UTILITIES>NETPAR.MAC.42,  2-Nov-78 08:46:37, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.41,  1-Nov-78 13:30:02, EDIT BY KIRSCHEN
;ADD RCVMAX
;<4.UTILITIES>NETPAR.MAC.40,  1-Nov-78 08:31:34, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.39, 31-Oct-78 15:41:05, EDIT BY KIRSCHEN
;ADD DEFINITIONS FOR DUMP OF DN20 USING DUMP PROGRAM
;<4.UTILITIES>NETPAR.MAC.38, 30-Oct-78 11:40:47, EDIT BY KIRSCHEN
;ADD INITIAL EVENT LOGGING DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.37, 24-Oct-78 13:53:27, EDIT BY KIRSCHEN
;FIX FRELEV,NODLEV DEFINITIONS AGAIN
;<4.UTILITIES>NETPAR.MAC.36, 23-Oct-78 17:37:50, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.35, 19-Oct-78 16:34:42, EDIT BY KIRSCHEN
;ADD MORE NICE PROTOCOL LINE STATE DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.34, 19-Oct-78 13:06:43, EDIT BY KIRSCHEN
;CHANGE KL8J DEVICE TYPE CODE TO BE CODE FOR DMP11
;<4.UTILITIES>NETPAR.MAC.33, 18-Oct-78 12:14:17, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.32, 18-Oct-78 09:22:04, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.31, 17-Oct-78 16:24:54, EDIT BY KIRSCHEN
;ENHANCE LOCKING MACROS TO PERMIT ADDITION OF MORE LOCKS
;<4.UTILITIES>NETPAR.MAC.30, 16-Oct-78 10:14:09, EDIT BY KIRSCHEN
;ADD RESOURCE MASK DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.29, 10-Oct-78 16:47:22, EDIT BY ENGEL
;ADD LOOP DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.27, 10-Oct-78 14:37:09, EDIT BY ENGEL
;ADD WITH
;<4.UTILITIES>NETPAR.MAC.26,  6-Oct-78 13:36:48, EDIT BY ENGEL
;<4.UTILITIES>NETPAR.MAC.24,  4-Oct-78 11:03:53, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.23,  3-Oct-78 10:20:20, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.22, 27-Sep-78 15:38:53, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.21, 21-Sep-78 15:29:38, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.20, 20-Sep-78 10:54:06, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.19, 19-Sep-78 11:32:22, EDIT BY KIRSCHEN
;ADD TOPOLOGY CHANGE PROTOCOL DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.18, 19-Sep-78 10:32:59, EDIT BY KIRSCHEN
;ADD TOPMAX
;<4.UTILITIES>NETPAR.MAC.17, 18-Sep-78 11:38:31, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.16, 18-Sep-78 10:56:03, EDIT BY KIRSCHEN
;ADD KEYTAB DEFINITION
;<4.UTILITIES>NETPAR.MAC.15,  5-Sep-78 16:37:43, EDIT BY KIRSCHEN
;CHANGE .KY SYMBOLS TO .DN SYMBOLS
;<4.UTILITIES>NETPAR.MAC.14,  5-Sep-78 16:36:26, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.13,  5-Sep-78 15:26:14, EDIT BY KIRSCHEN
;REMOVE OBSOLETE ORION MESSAGE SYMBOLS
;<4.UTILITIES>NETPAR.MAC.12,  5-Sep-78 14:39:12, EDIT BY KIRSCHEN
;ADD TOPOLOGY MONITORING SYMBOLS
;<4.UTILITIES>NETPAR.MAC.11, 25-Aug-78 12:01:00, EDIT BY KIRSCHEN
;MAKE PGFIL A FULL WORD
;<4.UTILITIES>NETPAR.MAC.10, 17-Aug-78 15:27:40, EDIT BY KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.9, 16-Aug-78 09:13:20, Edit by KIRSCHEN
;ADD PBXXX DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.7,  3-Aug-78 14:14:47, Edit by KIRSCHEN
;ADD TOPOLOGY CHANGE DEFINITIONS
;<4.UTILITIES>NETPAR.MAC.6, 13-Jul-78 13:28:08, Edit by KIRSCHEN
;ADD NODE STATUS SYMBOLS
;<4.UTILITIES>NETPAR.MAC.5, 12-Jul-78 08:20:52, Edit by KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.4, 12-Jul-78 08:19:48, Edit by KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.3, 12-Jul-78 08:18:25, Edit by KIRSCHEN
;<4.UTILITIES>NETPAR.MAC.2, 12-Jul-78 08:14:03, Edit by KIRSCHEN
;CHANGE NAME TO NETPAR.MAC
;<4.UTILITIES>NETCON.MAC.22, 12-Jul-78 08:11:48, Edit by KIRSCHEN
;BREAK OUT THESE DEFINITIONS FROM NETCON.MAC

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
UNIVERSAL NETPAR - PARAMETER FILE FOR NETCON

	SEARCH MONSYM,MACSYM,ORNMAC,GLXMAC,MACTEN

; ACCUMULATOR DEFINITIONS

	T1=1		;TEMPORARY
	T2=2		;TEMPORARY
	T3=3		;TEMPORARY
	T4=4		;TEMPORARY
	Q1=5		;PRESERVED
	Q2=6		;PRESERVED
	Q3=7		;PRESERVED
	P1=10		;PRESERVED
	P2=11		;PRESERVED
	P3=12		;PRESERVED
	P4=13		;PRESERVED
	P5=14		;PRESERVED
	P6=15		;PRESERVED (CAUTION, USED BY SOME MACROS IN MACSYM)
	CX=16		;RESERVED FOR SUPPORT CODE
	P=17		;PUSH-DOWN POINTER

; VERSION NUMBER DEFINITIONS

VMAJOR==4		;MAJOR VERSION OF NETCON
VMINOR==0		;MINOR VERSION NUMBER
VEDIT==24		;EDIT NUMBER
VWHO==0			;GROUP WHO LAST EDITED PROGRAM (0=DEC DEVELOPMENT)

VNETCON== <VWHO>B2+<VMAJOR>B11+<VMINOR>B17+VEDIT

PGSIZ==1000		;SIZE OF ONE PAGE
NCHPW==5		;NUMBER OF ASCII CHARACTERS PER WORD
BUFSIZ==200		;SIZE OF INPUT TEXT BUFFER
PDLEN==2000		;PUSH-DOWN STACK LENGTH
SUBTTL	Macro Definitions

DEFINE TB(RTN,TXT)
<	[ASCIZ/TXT/] ,, RTN
>

DEFINE TXT(TEXT) <POINT 7,[ASCIZ\TEXT\]>

DEFINE LODERR (ERR)
<	JSP CX,[IFNB <ERR>,<MOVX T1,ERR>
		CALL RQLERR
		RETBAD ()]
>

DEFINE ALLOC(DATA,LEN)
<	DEFDAT(\.BASE,DATA)
	IFB <LEN>,.BASE==.BASE+1
	IFNB <LEN>,.BASE==.BASE+LEN
>

DEFINE DEFDAT (NUM,DATA)
<	DEFINE DATA <NUM(P5)>
>

DEFINE RSP(CODE) <<-CODE>&377>
DEFINE WRNMES (A) <
	JRST [	HRROI T1,[ASCIZ/
% NETCON: A
/]
		PSOUT
		JRST .+1]>


DEFINE RETBAD (A,B) <
IFB <B>,<
IFB <A>,<	RET>
IFNB <A>,<	JRST [	MOVEI T1,A
			RET]>>
IFNB <B>,<	JRST [	B
			RETBAD (A)]>>

DEFINE RETER2 (A,B) <
IFB <B>,<
IFB <A>,<	JRST STOERC>
IFNB <A>,<	JRST [	MOVEI T1,A
			JRST STOERC]>>
IFNB <B>,<	JRST [	B
			RETER2 (A)]>>


DEFINE SAVET <
	JSP CX,SAVT>

DEFINE SAVEQ <
	JSP CX,SAVQ>

DEFINE SAVEPQ <
	JSP CX,SAVPQ>


DEFINE PION <
	CALL PION.>

DEFINE PIOFF <
	CALL PIOFF.>
DEFINE FATAL.ERROR (A) <
	JRST [
IFNB <A>,<	MOVEI T1,A>
		CALL ERROR
		HALTF
		JRST NETCON]>

DEFINE NON.FATAL.ERROR (A) <
IFB <A>,<	CALL WRNING>
IFNB <A>,<
	JRST [	MOVEI T1,A
		CALL WRNING
		JRST .+1]>>

DEFINE ACLOCK (AC) <
	MOVEI CX,(AC)
	CALL ELOCK>

DEFINE ACUNLOCK (AC)<
	MOVEI CX,(AC)
	CALL DLOCK>

DEFINE LOCK (A) <
	LOKVAL==NODLEV
	IFIDN <A>, <PAGLOK>, <LOKVAL==PAGLEV>
	IFIDN <A>, <FRELOK>, <LOKVAL==FRELEV>
	IFIDN <A>, <TOPJFN>, <LOKVAL==TOPLEV>
	MOVE CX,[LOKVAL,,A]
	CALL ELOCK>

DEFINE UNLOCK (A) <
	LOKVAL==NODLEV
	IFIDN <A>, <PAGLOK>, <LOKVAL==PAGLEV>
	IFIDN <A>, <FRELOK>, <LOKVAL==FRELEV>
	IFIDN <A>, <TOPJFN>, <LOKVAL==TOPLEV>
	MOVE CX,[LOKVAL,,A]
	CALL DLOCK>


DEFINE SAVIAC (A) <
	MOVEM T1,L'A'SAV1
	MOVEM T2,L'A'SAV2
	MOVEM T3,L'A'SAV3
	MOVEM T4,L'A'SAV4
	MOVEM CX,L'A'SAVC>

DEFINE RESIAC (A) <
	MOVE T1,L'A'SAV1
	MOVE T2,L'A'SAV2
	MOVE T3,L'A'SAV3
	MOVE T4,L'A'SAV4
	MOVE CX,L'A'SAVC>

DEFINE ENTINT (A) <
	SAVIAC (A)
	JSP CX,[CALL 0(CX)
		RESIAC (A)
		DEBRK]>
SUBTTL	NICE Process Data Area Offset Definitions

.BASE==0

ALLOC (ZROBEG,0)		;BEGINNING OF BLOCK ZERO'ED ON STARTUP

ALLOC (STRSIZ)			;NUMBER OF WORDS LEFT IN STRING STORAGE AREA
ALLOC (STRPTR)			;POINTER TO NEXT FREE STRING LOCATION
ALLOC (STREND)			;LAST LOCATION IN STRING AREA
ALLOC (RQLOPT)			;OPTIONS FROM DOWN-LINE LOAD REQUEST
ALLOC (RQLTGT)			;POINTER TO ASCIZ NAME OF TARGET NODE
ALLOC (RQLSRV)			;POINTER TO ASCIZ NAME OF SERVER NODE
ALLOC (RQLLIN,2)		;SERVER LINE ID  (2 WORDS)
ALLOC (RQLPSW,2)		;BOOT PASSWORD TO TRIGGER TARGET'S BOOTSTRAP ROM
ALLOC (RQLLDV)			;BOOT LINE DEVICE TYPE AT TARGET NODE
ALLOC (RQLCPU)			;CPU TYPE OF TARGET SYSTEM  (.CPXXX)
ALLOC (RQLPGM)			;PROGRAM TYPE BEING REQUESTED (.PTXXX)
ALLOC (RQLSID)			;SOFTWARE ID
ALLOC (RQLOPS)			;POINTER TO ASCIZ OPERATING SYSTEM FILE SPEC
ALLOC (RQLNAM)			;POINTER TO ASCIZ NAME TARGET NODE IS TO USE
ALLOC (RQLNUM)			;NUMBER OF TARGET NODE
ALLOC (RQLHST)			;POINTER TO ASCIZ NAME OF HOST FOR TASK LOADS

ALLOC (RQDTGT)			;POINTER TO TARGET NODE TO BE DUMPED
ALLOC (RQDSRV)			;POINTER TO ASCIZ SERVER NODE NAME
ALLOC (RQDLIN,2)		;SERVER NODE LINE ID
ALLOC (RQDOPT)			;OPTIONS FROM NICE DUMP REQUEST MESSAGE
ALLOC (RQDFIL)			;POINTER TO ASCIZ DUMP FILE SPEC
ALLOC (RQDADR)			;STARTING ADDRESS FOR DUMP
ALLOC (RQDCNT)			;NUMBER OF UNITS TO DUMP

ALLOC (REQLNK)			;LOGICAL LINK (JFN) FROM REQUESTING TASK


MSGSIZ==3000
ALLOC (MSGBLK,MSGSIZ)		;ALLOCATE A BLOCK FOR RECEIVING MESSAGES
ALLOC (MOPMSG,MOPSIZ)		;AREA FOR ASSEMBLING AND DECODING MOP MESSAGES
ALLOC (BTARG,BTSIZ)		;BOOT JSYS ARGUMENT BLOCK
ALLOC (RETPC1)			;RETURN PC FOR LEVEL 1 STORED HERE
ALLOC (NCUCHN,^D36)		;NCU SOFTWARE INTERRUPT CHANNEL TABLE
ALLOC (NCULEV,3)		;NCU SOFTWARE INTERRUPT LEVEL TABLE
ALLOC (TMPSTR,50)		;TEMPORARY STORAGE FOR STRINGS

VARLEN==.BASE			;OFFSET TO OF WORD FOLLOWING DATA AREA
ZROLEN==.BASE-1			;NUMBER OF LOCATIONS TO BE CLEARED ON STARTUP
SUBTTL	Symbol Definitions

; NSP MESSAGE BLOCK OFFSETS

.NMSIZ==0			;SIZE OF NSP MESSAGE IN BYTES
.NMORN==1			;POINTER TO ASCIZ NAME OF ORIGINATING NODE
.NMORO==2			;NUMBER OF ORIGINATING OBJECT TYPE
.NMORD==3			;POINTER TO DESCRIPTOR FOR ORIGINATING OBJECT
.NMMSG==4			;START OF ACTUAL MESSAGE DATA

; MOP MESSAGE BLOCK OFFSETS

.MMSIZ==0			;SIZE OF MOP MESSAGE IN BYTES
.MMMSG==1			;START OF ACTUAL MESSAGE DATA

; MOP LOAD DEVICES AND CORRESPONDING CODES
;	ALSO DEVICE CODES FOR NICE PROTOCOL

	RADIX 5+5

.DTP11==0			;DP11
.DTU11==2			;DU11
.DTL1E==4			;DL11E
.DTQ11==6			;DQ11
.DTA11==8			;DA11A
.DTDUP==10			;DUP11
.DTDMC==12			;DMC11
.DTDLV==14			;DLV11
.DTL1A==16			;DL11A
.DTDMP==18			;DMP11 (FORMERLY KL8J)
.DTDTE==20			;DTE-20
.DTDV1==22			;DV11
.DTKDP==28			;KMC-DUP
.DTKDZ==30			;KMC-DZ

; MOP PROGRAM TYPE DEFINITIONS

.PTSLD==0			;SECONDARY LOADER
.PTTLD==1			;TERTIARY LOADER
.PTOPS==2			;OPERATING SYSTEM (PRIMARY LOAD FILE)
.PTSDM==3			;SECONDARY DUMP FILE
.PTTDM==4			;TERTIARY DUMP FILE

; LINE FORMAT CODES

.LTALL==0			;ALL LINES
.LTSTD==1			;STANDARD NICE LINE ID
.LTSTR==2			;STRING
; PARAMETER VALUE TYPE CODES

.PVEND==0			;END OF PARAMETER VALUES
.PVNAM==1			;NODE NAME
.PVNUM==2			;NODE NUMBER
.PVHST==3			;HOST FOR TASK LOADS



; MOP FUNCTION CODES


.MPLDT==0			;MEMORY LOAD WITH TRANSFER ADDRESS
.MPLOD==2			;MEMORY LOAD WITHOUT TRANSFER ADDRESS
.MPRQD==4			;REQUEST MEMORY DUMP (OR EXAMINE DATA)
.MPMOP==6			;ENTER MOP MODE
.MPRQP==8			;REQUEST LOADER PROGRAM
.MPRQL==10			;REQUEST MEMORY LOAD (ACK PREVIOUS .MPLOD)
	.MPACK==0		;ACKNOWLEDGE PREVIOUS LOAD RECORD, REQUEST NEXT
	.MPNAK==1		;ERROR ON PREVIOUS LOAD RECORD
.MPMMR==12			;MOP MAINTENANCE MODE RUNNING
	MP%DMP==1B34		;DUMP IS SUPPORTED
.MPDMP==14			;MEMORY DUMP DATA
.MPDAP==16			; REMOTE-11	DAP MESSAGE ENVELOPE
.MPASC==18			; REMOTE-11	ENTER ASCII TELETYPE MODE
.MPXFR==20			;TRANSFER AND SET PARAMETERS
.MPCLR==22			;CLEAR DATA BY NAME
.MPTST==24			;LOOPBACK TEST
.MPDAT==26			;EXAMINED DATA BY NAME
.MPDIA==28			;DIAGNOSTIC ASCII INFORMATION
; NICE PROTOCOL FUNCTION CODES

.NCLOG==1			;LOG DATA FUNCTION (FOR ASYNCHRONOUS EVENTS)
	.LGMNT==1		;MAINTENANCE LOG OPTION
.NCRQL==2			;REQUEST DOWN-LINE LOAD
	LO%TGT==3B35		;TARGET NODE SPECIFICATION
		.LOTGT==0	;IDENTIFY TARGET BY NAME, DEFAULT SERVER
		.LOALL==1	;LOAD ALL KNOWN NODES
		.LOPTH==2	;BOTH TARGET AND PATH FROM SERVER INCLUDED
		.LOSRV==3	;DEFAULT TARGET TO LOAD, SERVER PATH INCLUDED
	LO%ROM==3B33		;BOOTSTRAP ROM OPTION FIELD
		.LODEF==0	;DEFAULT PROGRAM REQUEST, DO NOT TRIGGER BOOT
		.LOTBD==1	;TRIGGER BOOT, DEFAULT BOOT PASSWORD
		.LOPGM==2	;PROGRAM REQUEST INCLUDED, DO NOT TRIGGER BOOT
		.LOTBP==3	;TRIGGER BOOT, BOOT PASSWORD IS SPECIFIED
	LO%OPS==1B31		;OPERATING SYSTEM LOAD IMAGE FILE INCLUDED
	LO%PAR==1B30		;SYSTEM PARAMETERS ARE INCLUDED
.NCRQD==3			;REQUEST DUMP
	DO%TGT==3B35		;TARGET SPECIFICATION OPTION
		.DOTGT==0	;TARGET NODE SPECIFIED, DEFAULT SERVER AND LINE
		.DOPTH==2	;TARGET NODE AND PATH FROM SERVER SPECIFIED
		.DOSRV==3	;DEFAULT TARGET NODE, SERVER AND LINE SPECIFIED
	DO%FIL==1B33		;DUMP FILESPEC INCLUDED IN MESSAGE IF 1
	DO%ADR==1B32		;ADDRESS AND COUNT IN MESSAGE IF 1
.NCTRB==4			;TRIGGER BOOT
.NCLUP==5			;LOOPBACK
.NCTST==6			;TEST NETWORK OR LINE
	.DONOD==0		;NODE TYPE LOOP TEST
	.DOLIN==1		;LINE TYPE LOOP TEST
		.DOZRO==0			;SEND ALL ZEROES
		.DOONS==1			;SEND ALL ONES
		.DOMXD==2			;SEND ONES AND ZEROES
.NCSET==7			;SET PARAMETER
	.NCNLS==7		;NODE LOGGING STATE
	.NCSLN==8		;LINE STATE
	.NCLLS==10		;LINE LOGGING STATE
.NCRED==8			;READ INFORMATION
	.RDLNC==0		;LOCAL NODE COUNTERS
	.RDLNS==1		;LOCAL NODE STATUS
	.RDRNC==2		;REMOTE NODE COUNTERS
	.RDRNS==3		;REMOTE NODE STATUS
		.NSON==:0	;NODE IS ON
		.NSOFF==:1	;NODE IS OFF
		.NSSHT==:2	;NODE IS SHUT
	.RDLCT==4		;LINE COUNTERS
	.RDLST==5		;LINE STATUS
		.LSTON==0	;LINE IS ON
		.LSTOF==1	;LINE IS OFF
		.LSTMN==4	;MAINTENANCE
		.LSTCN==5	;CONTROLLER LOOPBACK
		.LSTCB==6	;CABLE LOOPBACK
.NCZRO==9			;ZERO COUNTERS
	.NCZLC==0		;LOCAL NODE COUNTERS
	.NCZRM==1		;REMOTE NODE COUNTERS
	.NCZLN==2		;LINE COUNTERS
.NCLSV==14			;LINE SERVICE
	.LSLOD==0		;ESTABLISH A LOAD DIALOG
		.LMEND==0	;END OF DIALOG
		.LMBAS==1	;SET BASE ADDRESS
		.LMMEM==2	;MEMORY IMAGE
		.LMXFR==3	;PARAMETERS AND TRANSFER ADDRESS
	.LSLOP==1		;LOOP
	.LSDMP==2		;ESTABLISH A DUMP DIALOG
	.LSTBP==3		;TRIGGER BOOTSTRAP, RETURN PROGRAM DATA
	.LSTBT==4		;TRIGGER BOOTSTRAP, DO NOT RETURN PROGRAM DATA

	RADIX 8
; NICE RESPONSE CODES

	RADIX 5+5

.NRSUC==1			;GENERAL SUCCESS RESPONSE
.NRFNC==-1			;INVALID FUNCTION CODE OR OPTION
.NRIMF==-2			;INVALID MESSAGE FORMAT
.NRIST==-3			;INSUFFICIENT STATUS
.NRPRO==-4			;NICE PROTOCOL ERROR
.NRNPE==-5			;NICE PROCESS PROGRAM ERROR (I.E. JSYS FAILURE)
.NRILN==-8			;INVALID LINE ID
.NRILS==-9			;INVALID LINE STATE
.NRCME==-10			;LINE COMMUNICATIONS ERROR
.NRINI==-11			;INVALID NODE ID
.NRISN==-12			;INVALID SERVER NODE ID
.NRIFL==-13			;INVALID FILE
.NRICF==-14			;INVALID CONFIGURATION FILE
.NRRES==-15			;RESOURCE ERROR
.NRIPV==-16			;INVALID PARAMETER VALUE
.NRLPE==-17			;LINE PROTOCOL ERROR
.NRIOE==-18			;FILE I/O ERROR
.NRNCE==-19			;NETWORK COMMUNICATIONS ERROR
.NRNRE==-20			;NO ROOM FOR NEW ENTRY
.NRPNA==-21			;REMOTE NCU PROCESS NOT AVAILABLE

	RADIX 8


; DECNET GENERIC OBJECT TYPE DEFINITIONS

.NTTSK==0			;GENERAL TASK
.NTFAL==1			;FILE ACCESS
.NTURS==2			;UNIT RECORD SERVICES
.NTATS==3			;APPLICATIONS TERMINAL SERVICES
.NTCTS==4			;COMMAND TERMINAL SERVICES
.NTNCU==5			;NETWORK CONTROL UTILITIES
.NTOSI==6			;OPERATOR SERVICES INTERFACE
.NTNRM==7			;NODE RESOURCE MANAGER
.NT327==10			;IBM 3270-BSC GATEWAY
.NT278==11			;IBM 2780-BSC GATEWAY
.NT379==12			;IBM 3790-SDLC GATEWAY
; EVENT LOGGING NICE PROTOCOL DEFINITIONS

RADIX 5+5

; EVENT TYPES

.EVTXT==1			;ASCII TEXT
.EVASC==2			;ASCII DATA EXTENDED
.EVHDW==3			;HARDWARE ERROR
.EVSFT==4			;SOFTWARE ERROR
.EVTOP==5			;TOPOLOGY CHANGE

; EVENT LOGGING DATA TYPE CODE DEFINITIONS

.EDREG==1			;DEVICE REGISTERS
.EDTIM==2			;TIME OF DAY
.EDDAT==3			;DATE
.EDUPT==4			;NODE UPTIME
.EDDEV==5			;DEVICE ID
.EDRSN==6			;REASON CODE
.EDRCV==7			;RECOVERY CODE
.EDOpS==8			;OPERATING SYSTEM ID
.EDNOD==9			;NODE NAME
.EDMCD==10			;MICROCODE ID
.EDLPR==11			;LINE PROTOCOL TYPE CODE
.EDTPR==12			;TRANSMISSION PROTOCOL TYPE CODE
.EDTHR==13			;THRESHOLD VALUE
.EDTXT==14			;ASCII TEXT

; MISCELLANEOUS SYMBOLS FOR EVENT LOGGING

NKMCRG==^D8			;NUMBER OF KMC REGISTER BYTES


RADIX 8

; RESOURCE MASKS FOR LOCKING NODES

RM%PRI==1B0			;PRIMARY RESOURCE MASK (OS LOADS, DUMPS, ETC.)
RM%SEC==1B1			;SECONDARY RESOURCE MASK (SECONDARY LOADERS)

; LEVEL NUMBER ASSIGNMENTS FOR LOCKS

TOPLEV==100			;TOPOLOGY TABLE LOCK LEVEL
NODLEV==200			;NODE LOCKING LEVEL
FRELEV==300			;FREE SPACE LOCK LEVEL
paglev==400			;page pool level

MAXNOD==^D50			;MAXIMUM NUMBER OF NODES NETCON CAN HANDLE
MAXLIN==MAXNOD			;MAXIMUM NUMBER OF LINE TABLES
MAXDTE==4			;MAX NUMBER OF PHYSICAL LINES TO ADJACENT NODES
MAXREC==<MAXMEM+BPWRD-1>/BPWRD	;SIZE OF RECORD BLOCK DATA AREAS
MAXNIC==MSGSIZ*BPWRD		;MAX NUMBER OF BYTES IN NICE MESSAGES
MAXSYE==50			;MAX SIZE OF SYSERR ENTRIES
MXLNOD==5			;MAX # OF LINES PER NODE
MAXPGM==10			;MAX # OF ENTRIES IN PROGRAM TABLE (PGMTAB)
MAXMEM==^D255			;MAX NUMBER OF BYTES IN MEMORY IMAGES SENT TO
				; SERVER NODE NCU'S
BINHDR==6			;# OF BYTES IN HEADER OF BLOCKS IN .BIN FILES
BPWRD==4			;NUMBER OF PDP-11 8-BIT BYTES PER KL20 WORD
DEFCNT==^D128*^D1024*2		;DUMP 128K PDP-11 WORDS AS DEFAULT
INIDMP==^D32*^D1024*2		;DUMP FIRST 32K BYTES USING ROM
RCVMAX==2000			;MAX NUMBER OF BYTES TO RECEIVE OVER DTE20
NNAMSZ==6			;NUMBER OF CHARACTERS IN ASCII NODE NAMES
WPN==2				;MAX NUMBER OF WORDS NEEDED FOR ASCII NODE NAMES
MAXSID==^D16			;MAX LENGTH OF SOFTWARE ID FIELD
MSIDMX==6			;MAX SIZE OF SOFTWARE ID FIELD IN MOP MESSAGES
MBPWSZ==^D8			;MAX SIZE OF BOOT PASSWORD FIELD
MAXIMB==^D9			;MAX # OF BYTES SUPPORTED IN BINARY IMAGE FIELDS
MAXEXT==9			;MAX NUMBER OF BYTES IN EXTENSIBLE FIELDS
NICSIZ==100			;SIZE OF AREA FOR ASSEMBLING NICE MESSAGES
MOPSIZ==201			;SIZE OF AREA FOR ASSEMBLING MOP MESSAGES
EXTBIT==1B28			;INDICATES NEXT BYTE IS IN THIS FIELD IN AN
				; EXTENSIBLE FIELD IN A NICE MESSAGE.
NEGBIT==200			;IF ONE, THIS IS A "NEGATIVE" BYTE
BTSIZ==20			;SIZE OF BOOT JSYS ARGUMENT BLOCK
RQLCHN==1			;DOWN LINE LOAD INTERRUPT CHANNEL
TOPMAX==2			;MAX NUMBER OF TOPOLOGY CHANGE MONITORING TASKS
				; MUST NOT EXCEED # OF AVAILABLE PSI CHANNELS
MAXTOP==20			;MAX # OF NODES IN A LIST FOR TOPOLOGY UPDATES
TOPTIM==^D10*^D60*^D1000	;TOPOLOGY MONITORING INTERVAL IN MS
SUBTTL	Data Structure Definitions

; NODE INFORMATION BLOCK (NIB)

DEFSTR (NDNUM,0,35,18)		;NODE NUMBER
DEFSTR (NDFLG,0,17,18)		;FLAGS
	DEFSTR (NDENM,0,0,1)	;MONITORING ENABLED FOR THIS NODE
	DEFSTR (NDENL,0,1,1)	;LOADING ENABLED FOR THIS NODE
	DEFSTR (NDEND,0,2,1)	;DUMPING ENABLED FOR THIS NODE
	DEFSTR (NDFRD,0,3,1)	;FORCE DUMP ON DETECTED CRASH
	DEFSTR (NDFRL,0,4,1)	;FORCE LOAD ON DETECTED CRASH
	DEFSTR (NDPST,0,5,1)	;PROTOCOL-TYPE HAS BEEN SET
	DEFSTR (NDTOP,0,6,1)	;TOPOLOGY MONITORING INITIATED FROM THIS NODE
	DEFSTR (NDDIP,0,7,1)	;AUTO DUMP IN PROGRESS
	DEFSTR (NDLIP,0,8,1)	;AUTO LOAD IN PROGRESS
	DEFSTR (NDDOK,0,9,1)	;WE ARE RESPONSIBLE FOR DUMPING THIS NIB
	DEFSTR (NDLOK,0,10,1)	;WE ARE RESPONSIBLE FOR LOADING THIS NIB
DEFSTR (NDBP1,1,35,36)		;BOOT PASSWORD NEEDED TO TRIGGER THE
DEFSTR (NDBP2,2,35,36)		; BOOTSTRAP ROM AT THIS NODE
DEFSTR (NDLOD,3,35,36)		;POINTER TO PRIMARY LOAD FILE SPEC
DEFSTR (NDDMP,4,35,36)		;POINTER TO PRIMARY DUMP FILE SPEC
DEFSTR (NDINT,5,17,18)		;STATUS MONITORING INTERVAL
DEFSTR (NDTMO,5,35,18)		;STATUS MONITORING REPLY TIME-OUT VALUE
DEFSTR (NDLIN,6,35,36)		;ADDRESS OF THIS NODE'S LINE ADJACENCY TABLE
DEFSTR (NDNAM,7,35,36)		;POINTER TO ASCIZ NODE NAME
DEFSTR (NDTPS,10,3,4)		;DEFAULT FORMAT OF SECONDARY LOAD FILE
DEFSTR (NDTPP,10,7,4)		;DEFAULT FORMAT OF PRIMARY LOAD FILE
DEFSTR (NDPRO,10,35,18)		;PROTOCOL VERSION TO USE (.VNXXX)
DEFSTR (NDSRV,11,35,36)		;POINTER TO DEFAULT SERVER NODE FOR THIS NODE
DEFSTR (NDSL1,12,35,36)		;FIRST WORD OF SERVER LINE ID
DEFSTR (NDSL2,13,35,36)		;SECOND WORD OF SERVER LINE ID
DEFSTR (NDPNA,14,35,36)		;PARAMETER PASSED TO NODE: NODE NAME
DEFSTR (NDPNU,15,35,36)		;PARAMETER PASSED TO NODE: NODE NUMBER
DEFSTR (NDPHT,16,35,36)		;PARAMETER PASSED TO NODE: HOST FOR TASK LOADS
DEFSTR (NDLDV,17,17,18)		;BOOT LINE DEVICE TO LOAD THIS NODE
DEFSTR (NDCPU,17,35,18)		;CPU TYPE OF THIS NODE
DEFSTR (NDCNT,20,35,36)		;DEFAULT COUNT FOR DUMPING THIS NODE
DEFSTR (NDADR,21,35,36)		;DEFAULT STARTING ADDRESS FOR DUMPS OF THIS NODE

NIBSIZ==22		;SIZE OF A NODE INFORMATION BLOCK


; DATA STRUCTURE FOR PHYSICAL LINE TABLE (LINTAB)

DEFSTR (LNLDN,1,17,8)		;NEXT LOAD NUMBER EXPECTED OVER THIS LINE
DEFSTR (LNPGM,2,17,18)		;PROGRAM TYPE (.PTXXX)
DEFSTR (LNCNT,2,35,18)		;# OF BYTES LEFT TO DUMP IN THIS BLOCK
DEFSTR (LNPTR,3,35,36)		;POINTER TO NEXT BYTE TO BE RETURNED ON A DUMP
DEFSTR (LNDTE,4,17,18)		;DTE20 NUMBER FOR THIS LINE
DEFSTR (LNCPU,4,35,18)		;CPU TYPE OF TARGET AT END OF THIS LINE
DEFSTR (LNADR,5,35,36)		;BASE ADDRESS FOR NEXT LOAD OR DUMP
DEFSTR (LNMSG,6,35,36)		;POINTER TO MOP MESSAGE BLOCK
DEFSTR (LNDCT,7,35,36)		;TOTAL NUMBER OF BYTES TO BE DUMPED

LTBSIZ==10			;# OF WORDS PER ENTRY IN PHYSICAL LINE TABLE
; PROGRAM TABLE DEFINITIONS

DEFSTR (PGLDV,0,17,18)		;LOAD DEVICE (.DTXXX)
	.PGFRE==777777		;THIS ENTRY IS NOT USED
DEFSTR (PGCPU,0,35,18)		;CPU TYPE (.CPXXX)
DEFSTR (PGPGM,1,17,18)		;PROGRAM TYPE (.PTXXX)
DEFSTR (PGFIL,2,35,36)		;POINTER TO FILE-SPEC

PGLEN==3			;SIZE OF ENTRIES IN PROGRAM TABLE


; RECORD TABLE ENTRY DEFINITIONS

DEFSTR (RBJFN,1,17,18)		;JFN OF FILE BEING INPUT
DEFSTR (RBTYP,1,35,18)		;FILE TYPE:
	.FTLDA==1		; LDA (ABSOLUTE BINARY) FORMAT
	.FTTSK==2		; TASK-IMAGE FORMAT
	.FTDMP==3		; DUMP FORMAT (BINARY MEMORY IMAGE)
DEFSTR (RBBYT,2,35,36)		;NUMBER OF NEXT BYTE TO READ (0-3)
DEFSTR (RBPTR,3,35,36)		;POINTER TO DATA FOR THIS RECORD
DEFSTR (RBDAT,4,35,36)		;CURRENT DATA WORD FROM INPUT FILE
DEFSTR (RBFCT,5,17,18)		;COUNT OF REMAINING BYTES IN FILE
DEFSTR (RBCNT,5,35,18)		;NUMBER OF BYTES IN CURRENT RECORD
DEFSTR (RBNAD,6,35,36)		;BASE ADDRESS OF CURRENT RECORD
DEFSTR (RBCAD,7,35,36)		;CURRENT BASE ADDRESS
DEFSTR (RBXAD,10,35,36)		;TRANSFER ADDRESS FOR THIS LOAD

.RBDAT==11			;OFFSET TO DATA AREA IN RECORD BLOCK
RCTSIZ==11			;SIZE OF NON-DATA ENTRIES IN THE RECORD TABLE


; TASK-IMAGE FILE LABEL BLOCK DEFINITIONS FOR RSX-11M RELEASE 3

L$BSA==	10			;BASE ADDRESS OF TASK IMAGE
L$BLDZ==16			;LOAD SIZE IN 32. WORD BLOCKS
L$BFLG==30			;FLAGS WORD:
	TS$NHD==1B<35-14>	; BIT14- TASK HAS NO HEADER
L$BXFR==350			;TRANSFER ADDRESS
L$BHRB==356			;HEADER (OR TASK IMAGE) RELATIVE BLOCK


; CPU TYPE DEFINITIONS

.CP8==0				;PDP-8
.CP11==1			;PDP-11
.CP20==2			;DECSYSTEM-10/20
;LINE ADJACENCY TABLES

DEFSTR (LTTYP,0,17,18)		;LINE DEVICE TYPE (.DTXXX)
DEFSTR (LTCTL,0,35,18)		;LINE CONTROLLER NUMBER
DEFSTR (LTUNI,1,17,18)		;LINE UNIT NUMBER
DEFSTR (LTSTN,1,35,18)		;STATION ADDRESS
DEFSTR (LTFLG,2,17,18)		;FLAGS FOR THIS ENTRY
	DEFSTR (LTUSE,2,0,1)	;THIS ENTRY IS IN USE
	DEFSTR (LTLOG,2,1,1)	;LOG COUNTERS FOR THIS LINE
DEFSTR (LTNIB,2,35,18)		;ADDRESS OF NIB FOR NODE AT END OF THIS LINE
DEFSTR (LTHST,3,17,18)		;ADR OF NIB FOR HOST FROM WHICH LOAD IMAGES COME

LATSIZ==4			;SIZE OF LINE ADJACENCY TABLE ENTRIES
LINSIZ==MXLNOD*LATSIZ		;SIZE OF LINE ADJACENCY TABLE FOR EACH NODE
				; = LINES/NODE * WORDS PER LINE


; SYSERR ENTRY HEADER DEFINITIONS

DEFSTR (SYCOD,0,8,9)		;EVENT CODE (SY%XXX)
DEFSTR (SYT20,0,17,1)		;ENTRY WAS CREATED BY TOPS-20
DEFSTR (SYVER,0,23,6)		;HEADER VERSION
DEFSTR (SYHLN,0,26,3)		;HEADER LENGTH
DEFSTR (SYLEN,0,35,9)		;LENGTH OF ENTRY
DEFSTR (SYDAT,1,35,36)		;DATE AND TIME OF THIS ENTRY
DEFSTR (SYUPT,2,35,36)		;SYSTEM UPTIME AT CREATION OF THIS ENTRY
DEFSTR (SYPSN,3,35,36)		;PROCESSOR SERIAL NUMBER OF RECORDING CPU

.SYDAT==4			;OFFSET TO DATA PORTION OF SYSERR ENTRY

; DEFINITIONS FOR NETWORK HEADER PORTION OF SYSERR LOGGING ENTRIES

DEFSTR (SYMID,0,35,36)		;NODE ID'S
DEFSTR (SYNOD,1,35,36)		;OFFSET TO NODE NAME
DEFSTR (SYDST,2,35,36)		;PTR TO DESTINATION NODE NAME
DEFSTR (SYADJ,3,35,36)		;ADJACENT NODE NAME
DEFSTR (SYFCN,4,35,36)		;FUNCTION WORD
	DEFSTR (SYHDW,4,35,8)	;HARDWARE OPTION TYPE
	.SYDTE==15		;DTE20
	.SYKDZ==4		;KDM/DZ
	.SYKDP==3		;KMC/DUP
	.SYDUP==27		;DUP
	.SYDMC==5		;DMC
	DEFSTR (SYOPS,4,27,8)	;OPERATING SYSTEM ID
	DEFSTR (SYHDT,4,17,8)	;HARDWARE SYSTEM TYPE
DEFSTR (SYNCT,5,35,36)		;NUMBER OF COUNTERS IN FOLLOWING WORDS
DEFSTR (SYSEQ,6,35,36)		;SEQUENCE NUMBER
DEFSTR (SYLID,7,35,36)		;OFFSET TO LINE ID
DEFSTR (SYLI1,10,35,36)		;SECOND PART OF LINE ID
DEFSTR (SYNTM,11,35,36)		;NODE UPTIME
DEFSTR (SYRCT,12,35,36)		;RETRY COUNT AND FLAGS
	DEFSTR (SYRCV,12,3,4)	;RECOVERY CODE
	DEFSTR (SYTRY,12,35,18)	;RETRY COUNT
DEFSTR (SYRSN,13,35,18)		;REASON FOR ENTRY
DEFSTR (SYTHR,13,17,18)		;THRESHOLD VALUE
DEFSTR (SYPTR,14,35,36)		;POINTER TO DATA
	.SYPTR==14		;OFFSET TO POINTER TO LOG DATA SECTION

DEFSTR (SYTYP,0,17,18)		;COUNTER TYPE
DEFSTR (SYCTR,0,35,18)		;COUNTER VALUE

.SYCTR==21			;OFFSET TO COUNTER DATA


; NUMBER OF REGISTERS LOGGED FOR PARTICULAR HARDWARE DEVICES

NRGDMC==4			;DMC11
; DEFINITIONS FOR LOAD/DUMP ENTRIES

DEFSTR (SYTGT,4,35,18)		;OFFSET TO NAME OF TARGET NODE
DEFSTR (SYSRV,5,35,18)		;OFFSET TO NAME OF SERVER NODE
DEFSTR (SYSVL,6,35,18)		;OFFSET TO NAME OF SERVER LINE
DEFSTR (SYFIL,7,35,18)		;OFFSET TO FILE SPEC
DEFSTR (SYRCD,10,35,36)		;NICE RETURN CODE

.SYLDD==11			;OFFSET TO START OF DATA FOR LOAD/DUMP ENTRY



; NCU STARTED ENTRY

DEFSTR (SYNCV,4,35,36)		;NCU VERSION NUMBER (STANDARD TOPS20 FORMAT)
DEFSTR (SYNAM,5,35,36)		;OFFSET IN SYSERR BLOCK TO THIS NODE'S NAME
DEFSTR (SYPGM,6,35,36)		;PROGRAM NAME

.SYPGM==6			;OFFSET TO PROGRAM NAME POINTER
.SYNDD==7			;OFFSET TO  DATA AREA FOR NCU STARTED ENTRY

; SYSERR EVENT CODE DEFINITIONS

SY%NCU==201			;NCU PROGRAM HAS BEEN STARTED
SY%LOD==202			;ENTRY TYPE CODE FOR LOADING OF A NODE
SY%DMP==203			;ENTRY TYPE CODE FOR DUMPING A NODE
SY%MLG==210			;MAINTENANCE LOGGING DATA
SY%OLG==220			;OPERATOR LOGGING DATA
SY%TOP==221			;NETWORK TOPOLOGY CHANGE
SY%CHK==222			;CHK11 ENTRY
SY%LCT==230			;SYSERR "LINE COUNTERS" ENTRY TYPE
SUBTTL	Network Control Program (NCP)

	NJFN==4			;NUMBER OF JFNS TO KEEP OPEN FOR NCU

	TOPLVL==2		;INTERRUPT LEVEL FOR TOPOLOGY CHANGE NOTICES
	PIDLVL==2		;INTERRUPT LEVEL FOR MESSAGES
	JFNLVL==2		;INTERRUPT LEVEL FOR NCU JFNS
	FKTLVL==2		;INTERRUPT LEVEL FOR FORK TERMINATION
	JFDLVL==3		;INTERRUPT LEVEL FOR NCP DATA INTERRUPTS
	HCKLVL==2		;INTERRUPT LEVEL FOR TOPOLOGY POLLING TIMERS

	NODLEN==10		;MAX LENGTH OF NODE NAME
	FILLEN==30		;MAX LENGTH OF FILE SPEC STRING

;QUEUE ENTRY DEFINITIONS

	QUEHLN==2		;LENGTH OF QUEUE ENTRY

DEFSTR (QUEPNT,0,35,18)		;POINTER TO NEXT ELEMENT IN QUEUE
DEFSTR (QUEMES,0,17,18)		;ADDRESS OF THE MESSAGE
DEFSTR (QUETYP,1,17,18)		;TYPE OF THIS QUEUE ENTRY
	.QTMES==0		;QUEUE ENTRY IS A MESSAGE
	.QTFKT==1		;QUEUE ENTRY FOR FORK TERMINATION
	.QTJFD==2		;JFN DATA OR DISCONNECT
	.QTTOP==3		;TOPOLOGY CHANGE - DO AUTO DUMP/LOAD
DEFSTR (QUEFLG,1,35,18)		;FLAGS
	QF%NOA==1		;DO NOT ACK THIS MESSAGE YET TO ORION
	QF%TXT==2		;THERE IS TEXT IN THE MESSAGE BLOCK FOR OPR


;NICE QUEUE DEFINITIONS

	RQMAX==^D15		;Maximum number of minutes request can stay
				; on queue
	NQLEN==5		;LENGTH OF NICE QUEUE HEADER

DEFSTR (NQMES,0,17,18)		;POINTER TO ORION MESSAGE 
DEFSTR (NQPNT,0,35,18)		;POINTER TO NEXT ITEM ON LIST
DEFSTR (NQCHR,1,35,18)		;NUMBER OF CHARACTERS IN NICE MESSAGE
DEFSTR (NQNUM,1,17,18)		;REQUEST NUMBER
DEFSTR (NQRQT,2,17,17)		;Request entry time
DEFSTR (NQTXT,2,35,18)		;ADDRESS OF NICE MESSAGE TEXT
DEFSTR (NQFCN,3,17,18)		;NICE FUNCTION CODE
DEFSTR (NQOPT,3,35,18)		;NICE SUB-FUNCTION (OPTION) CODE
DEFSTR (NQREQ,4,00,01)		;THIS ENTRY HAS BEEN REQUEUED
	NQ%REQ==1B0		;THIS ENTRY HAS BEEN REQUEUED
DEFSTR (NQXTR,4,35,18)		;ADDRESS OF EXECUTOR STRING

;ORION MESSAGE DEFSTR'S


.PBVAL==1			;OFFSET TO VALUE
DEFSTR (PBLEN,<(P2)>,17,18)
DEFSTR (PBTYP,<(P2)>,35,18)
DEFSTR (PBVAL,<1(P2)>,35,36)
SUBTTL	DECnet-20 Topology Change Protocol Definitions

; MESSAGE TYPE CODES

.TPREQ==1			;REQUEST NOTIFICATION
.TPACC==2			;NOTIFICATION REQUEST ACCEPTED
.TPCHG==3			;TOPOLOGY CHANGE

; FIELD TYPE CODES

.TPNOD==1			;NODE NAME
.TPNUM==2			;NODE NUMBER
.TPNST==3			;NODE STATE
.TPLID==4			;LINE ID (IN NICE FORMAT 1)
.TPLST==5			;LINE STATE
.TPVER==6			;PROTOCOL VERSION
.TPCNT==7			;NUMBER OF NODE UNITS TO FOLLOW
SUBTTL	Keyword Definitions for OPR Commands


;*** N.B. 	THESE KEYWORDS ARE NOT IN ALPHABETICAL ORDER	****

DEFINE KEYWORD,<

X	ALL,ALL			;ALL
X	<BOOT-PASSWORD>,SNB	;BOOT-PASSWORD
X	COMPRESSED,LFC		;COMPRESSED
X	<CORE-IMAGE>,LFI	;CORE-IMAGE
X	COUNT,DRC		;COUNT
X	COUNTS,SCT		;COUNTS
X	DA11A,A11		;DA11A
X	<DEC-20>,D20		;DEC-20
X	DL11A,L1A		;DL11A
X	DL11E,L1E		;DL11E
X	DLV11,DLV		;DLV11
X	DMC11,DMC		;DMC11
X	DP11,D11		;DP11
X	DQ11,Q11		;DQ11
X	DTE20,DTE		;DTE-20
X	DU11,U11		;DU11
X	DUP11,DUP		;DUP11
X	DUMP,DMP		;DUMP
X	<DUMP-FILE>,SNF		;DUMP-FILE
X	<DUMP-LOAD>,DDL		;DUMP-LOAD
X	DV11,DV1		;DV11
X	ENABLE,ENA		;ENABLE
X	EXECUTOR,SEX		;EXECUTOR
X	FILE,FIL		;FILE
X	FOR,SHF			;FOR
X	FORMAT,LFO		;FORMAT
X	FROM,LFR		;FROM
X	HOST,LPH		;HOST
X	INITIATE,INI		;INITIATE
X	KL8J,KL8		;KL8J
X	KDP,KDP			;KMC-DUP
X	KDZ,KDZ			;KMC-DZ
X	LINE,SLI		;LINE
X	LINES,SKL		;LINES
X	LOAD,LOA		;LOAD
X	<LOAD-FILE>,SNL		;LOAD-FILE
X	LOCAL,SLO		;LOCAL
X	<LOGGING-INTERVAL>,LGI	;LOGGING-INTERNAL
X	MONITORING,DSM		;MONITORING
X	<MONITORING-INTERVAL>,SMO ;MONITORING-INTERVAL
X	NAME,LPN		;NAME
X	NCP,ACN			;NCP
X	<NCP-REQUESTS>,NCR		;NCP REQUESTS
X(<NETWORK-SERVICES-PROTOCOL>,NSP) ;NETWORK-SERVICES-PROTOCOL
X(<NEW-FORMS-PROMPTING>,NFP)	;NEW-FORMS-PROMPTING
X	NODE,NOD		;NODE
X	NONE,NON		;NONE
X	NUMBER,LP1		;NUMBER
X	OFF,SSF			;OFF
X	ON,SSO			;ON
X	OPERATOR,OPR		;OPERATOR
X	PARAMETERS,PRM		;PARAMETERS
X	PASSWORD,SPW		;PASSWORD
X	<PDP-11>,P11		;PDP-11
X	<PDP-8>,P8		;PDP-8
X (<PROTOCOL-TYPE>,SNT)		;PROTOCOL-TYPE
X	QUEUE,QUE		;QUEUE
X	RECEIVE,SPR		;RECEIVE
X(<RSX-20F-QUEUED-PROTOCOL>,RQP) ;RSX-20F-QUEUED-PROTOCOL
X	SECONDARY,LVS		;SECONDARY
X	<SECONDARY-DUMP-FILE>,SSD ;SECONDARY-DUMP-FILE
X	<SECONDARY-LOAD-FILE>,SSL ;SECONDARY-LOAD-FILE
X	SERVER,SNS		;SERVER
X	SET,SET			;SET
X	SHOW,SHW		;SHOW
X	SHUT,SSS		;SHUT
X	STARTING,DRS		;STARTING
X	STATE,SST		;STATE
X	STATUS,STS		;STATUS
X	TAKE,TAK		;TAKE
X	TELL,TEL		;TELL
X	TERTIARY,LVT		;TERTIARY
X	<TERTIARY-DUMP-FILE>,STD ;TERTIARY-DUMP-FILE
X	<TERTIARY-LOAD-FILE>,STL ;TERTIARY-LOAD-FILE
X	TO,DR2			;TO
X	TRANSMIT,SPT		;TRANSMIT
X	USER,USR		;USER
X	VIA,VIA			;VIA
X	ERROR-INFORMATION,ERR	;ERROR-INFORMATION
X	<LINE-COUNTERS>,LCT	;LINE-COUNTERS
X	TERMINATE,TRM		;TERMINATE
X	DISABLED,DAB		;DISABLED
X	ENABLED,EAB		;ENABLED
X	LOOPBACK,LPB		;LOOPBACK
X	NCP,NCP			;NETWORK CONTROL PROGRAM
X	ENTER,ENT		;ENTER (COMMAND SUBSET)
X	RETURN,RET		;RETURN (TO OPERATOR COMMAND LEVEL)
X	CONTROLLER-LOOPBACK,CNL	;CONTROLLER-LOOPBACK
X	CABLE-LOOPBACK,CBL	;CABLE-LOOPBACK
X	KNOWN,KNO		;KNOWN
X	NODES,NDS		;NODES
X	REMOTES,RMTS		;REMOTES
X	NETWORK-TOPOLOGY,TOP	;NETWORK TOPOLOGY
X	LENGTH,LNG		;LENGTH
X	LOOP,LOP		;LOOP
X	MIXED,MXD		;MIXED
X	ONES,ONS		;ONES
X	ZEROES,ZRO		;ZEROES
X	WITH,WTH		;WITH
X	LOGGING,LOG		;LOGGING
X	AUTO-DUMP,ADM		;AUTO-DUMP
X	AUTO-LOAD,ALD		;AUTO-LOAD
X	MAINTENANCE,MNT		;MAINTENANCE
X	EVENT-LOGGING,ELG	;EVENT-LOGGING
X	DISABLE,DSL		;DISABLE

> ;END OF DEFINITION OF KEYWORDS
;NOW DEFINE THE X MACRO TO GENERATE THE NEEDED SYMBOLS

DEFINE	X(A,B),<
	IF1,<IFDEF .DN'B,< PRINTX ? DUPLICATE KEYWORD CODE -- .DN'B>>
	.DN'B==..Z
	..Z==..Z+1
>
;INITIALIZE THE COUNTER AND CALL KEYWORD TO GENERATE THE SYMBOLS
	..Z==0
	KEYWORD

DEFINE KEYTAB(NXT,KEY,CODE,FLAGS),<
IFB <FLAGS>,<
	XWD	[ASCIZ\KEY\],[XWD .DN'CODE,NXT]
>
IFNB <FLAGS>,<
	XWD	[EXP CM%FW!FLAGS
		ASCIZ\KEY\],[XWD .DN'CODE,NXT]
>
>	;END OF KEYTAB MACRO

	END