Google
 

Trailing-Edge - PDP-10 Archives - BB-L014Z-BM_1990 - galsrc/nebmac.mac
There are 11 other files named nebmac.mac in the archive. Click here to see a list.
UNIVER	NEBMAC				;PARAMETER FILE FOR NEBULA
SUBTTL  Preliminaries

;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1988.
;	ALL RIGHTS RESERVED.
;
;	THIS SOFTWARE IS FURNISHED UNDER A  LICENSE AND MAY BE USED AND  COPIED
;	ONLY IN  ACCORDANCE  WITH  THE  TERMS OF  SUCH  LICENSE  AND  WITH  THE
;	INCLUSION OF THE ABOVE  COPYRIGHT NOTICE.  THIS  SOFTWARE OR ANY  OTHER
;	COPIES THEREOF MAY NOT BE PROVIDED  OR OTHERWISE MADE AVAILABLE TO  ANY
;	OTHER PERSON.  NO  TITLE TO  AND OWNERSHIP  OF THE  SOFTWARE IS  HEREBY
;	TRANSFERRED.
;
;	THE INFORMATION IN THIS  SOFTWARE IS SUBJECT  TO CHANGE WITHOUT  NOTICE
;	AND SHOULD  NOT  BE CONSTRUED  AS  A COMMITMENT  BY  DIGITAL  EQUIPMENT
;	CORPORATION.
;
;	DIGITAL ASSUMES NO  RESPONSIBILITY FOR  THE USE OR  RELIABILITY OF  ITS
;	SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.

	SEARCH	GLXMAC		;CHECK GALAXY LIBRARY
	SEARCH	QSRMAC		;CHECK QUASARS LIBRARY
	SEARCH	ORNMAC		;CHECK ORIONS LIBRARY
	SEARCH	GALCNF		;GET CONFIGURATION DATA
	SEARCH	MONSYM		;CHECK THE MONITOR'S SYMBOLS

	SALL			;MAKE CLEAN LISTINGS

	IF1,<PRINTX BUILDING A GALAXY-20 NEBMAC>


	NMCMAN==:21
	NMCDEV==:15
	VERSIN(NMC)

	NMCWHO==0
	NMCVER==6
	NMCMIN==0
	Subttl	Table of Contents

;		     Table of Contents for NEBMAC
;
;				  Section		      Page
;
;
;    1. Revision history . . . . . . . . . . . . . . . . . . .   3
;    2. SYMBOLS DERIVED FROM GALCNF  . . . . . . . . . . . . .   4
;    3. NODE TABLE (NODTBL)  . . . . . . . . . . . . . . . . .   5
;    4. LISTENER DATA BASE DEFINITIONS . . . . . . . . . . . .   6
;    5. SENDER DATA BASE DEFINITIONS . . . . . . . . . . . . .   9
;    6. TABLE OF PREVIOUSLY AND CURRENTLY KNOWN NODES  . . . .  12
;    7. TIMER LIST . . . . . . . . . . . . . . . . . . . . . .  13
;    8. MESSAGE QUEUE (MSGQUE) . . . . . . . . . . . . . . . .  14
;    9. REMOTE QUEUE (REMQUE)  . . . . . . . . . . . . . . . .  15
;   10. IN BEHALF OF QUEUE (IBOQUE)  . . . . . . . . . . . . .  16
;   11. NODE NAME BLOCK  . . . . . . . . . . . . . . . . . . .  17
;   12. REMOTE DISMOUNT MESSAGE  . . . . . . . . . . . . . . .  18
;   13. TO NEBULA DISMOUNT MESSAGE . . . . . . . . . . . . . .  19
;   14. FROM NEBULA DISMOUNT MESSAGE . . . . . . . . . . . . .  20
;   15. FROM NEBULA DISMOUNT ACK MESSAGE . . . . . . . . . . .  21
;   16. TO NEBULA DISMOUNT ACK MESSAGE . . . . . . . . . . . .  22
;   17. NEBULA CANCEL DISMOUNT MESSAGE . . . . . . . . . . . .  23
;   18. TO NEBULA MOUNT MESSAGE  . . . . . . . . . . . . . . .  24
;   19. FROM NEBULA MOUNT MESSAGE  . . . . . . . . . . . . . .  25
;   20. NEBULA SHOW MESSAGES' CODES  . . . . . . . . . . . . .  26
;   21. RESPONSE TO EXEC CANCEL MESSAGE  . . . . . . . . . . .  27
;   22. (TO NEBULA) SHOW OPERATORS MESSAGE . . . . . . . . . .  28
;   23. (TO NEBULA) SHOW MESSAGE . . . . . . . . . . . . . . .  29
;   24. SHOW CLUSTER-GALAXY-LINK-STATUS MESSAGE  . . . . . . .  30
;   25. REMOTE SHOW ACK MESSAGE  . . . . . . . . . . . . . . .  31
;   26. SHOW CLUSTER-GALAXY-LINK-STATUS MESSAGE  . . . . . . .  32
;   27. DISABLE REPORT-CONNECTION-FAILURES MESSAGE . . . . . .  33
;   28. ENABLE REPORT-CONNECTION-FAILURES MESSAGE  . . . . . .  34
;   29. DISABLE DECNET-CONNECTION-ATTEMPTS MESSAGE . . . . . .  35
;   30. ENABLE DECNET-CONNECTION-ATTEMPTS MESSAGE  . . . . . .  36
;   31. NEBULA ACK / NEBULA ACK RESPONSE MESSAGES  . . . . . .  37
;   32. NEBULA MESSAGE CODES . . . . . . . . . . . . . . . . .  38
;   33. NEBULA ERROR CODES . . . . . . . . . . . . . . . . . .  39
	SUBTTL	Revision history

COMMENT \

*****	Release 6.0 -- begin development edits	*****

1	6.1077		15-Nov-87
	Move to the GALAXY 6 development area.

2	6.1080		16-Nov-87
	Add symbol .NBMSG as the minimum message code value of a message
that involves NEBULA processing.

3	6.1084		18-Nov-87
	Add REMOTE SHOW ACK message definition.

4	6.1138		13-Dec-87
	Increase the listener's stack size, increase the listener's SRV:
device name storage size, increase the sender's DCN: device name storage
size and add error code E$IFM.

5	6.1145		17-Dec-87
	Define debugging blocks for private world DCN: and SRV: Decnet
device names.

6	6.1142		17-Dec-87
	Add message code definitions for SHOW STATUS DISK and SHOW STATUS
TAPE messages

7	6.1146		17-Dec-87
	Add message code definition for SHOW STATUS STRUCTURE

10	6.1175		7-Feb-88
	Add word .IQPID to the in behalf of queue entry definition, add word
.MQPID to the message queue entry definition and define message type .NMTXT,
all in support of the EXEC commands INFORMATION OUTPUT/DESTINATION and
CANCEL PRINT/DESTINATION.

11	6.1183		16-Feb-88
	Remove the Cluster GALAXY option definition from NEBMAC.

12	6.1193		23-Feb-88
	Add message codes for the NEBULA ACK and NEBULA ACK RESPONSE messages.
Also, place all the message code definitions together for easier updating.

13	6.1203		29-Feb-88
	Define error code INS.

14	6.1225		8-Mar-88
	Update copyright notice.

15	6.1247		5-May-88
	Define message codes .NMSSN and .MNSPN in support of the SHOW STATUS
NETWORK-NODE and SHOW PARAMETERS NETWORK-NODE commands.

*****	Release 6.0 -- begin maintenance edits	*****

16	6.1269		18-Oct-88
	Define bit NN%PAS in the node data base to specify whether it is Field
Image Galaxy or Post FI. This is to determine whether that node is capable of
executing the new OPR commands. Also, add a word in the in behalf of queue
(IBOQUE) to indicate how many responses are expected for this command.

17	6.1301		15-Jan-90
	Add definition Original Command Text block.

20	6.1312		1-Mar-90
	Add definitions E$RDA, E$REA, E$DDA, E$DEA, E$RDS, E$RES, E$DDS and
E$DES.

21	6.1315		27-Apr-90
	Define symbol OP.ALL

\	;End of revision history
	SUBTTL	SYMBOLS DERIVED FROM GALCNF

	XP	N$ACKO,G.NEBA			;[12]NEBULA ACK MESSAGE OPTION
	SUBTTL	NODE TABLE (NODTBL)

COMMENT \
          The node table describes remote nodes in the  cluster.   For
     each remote node in the cluster known to NEBULA, there will be an
     entry for that node in the node table.   The  format  of  a  node
     table entry is:

        !=======================================================!
        !                    SIXBIT Node Name                   ! .NNNAM
        !-------------------------------------------------------!
        !          NS.STA           !          NS.NUM           ! .NNSTA
        !-------------------------------------------------------!
	!                 Status of the Sender                  ! .NSSTA
	!-------------------------------------------------------!
	!                Status of the Listener			! .NLSTA
	!-------------------------------------------------------!
	!                  INFO% error counter                  ! .NIERC
	!-------------------------------------------------------!
	!                  INFO% error timeout                  ! .NIETM
	!-------------------------------------------------------!
	!          Time DECnet Messages Were Sent List          ! .NTIML
	!-------------------------------------------------------!       
	!    Remote Queue Link List Header Word For This Node   ! .NRQLH
	!-------------------------------------------------------!
	!   Remote Queue Link List Trailer Word For This Node   ! .NRQLT
        !-------------------------------------------------------!
        !     Address of the First Page of the Sender Block     ! .NNSBA
        !-------------------------------------------------------!
        !    Address of the First Page of the Listener Block    ! .NNLBA
        !=======================================================!

 Note: Word .NNSTA is only modified by NEBULA's top fork. It is read by
the listener and sender. Word .NSSTA can be written by both the top
fork and by the sender. This implies that there must be a protocol that
is followed by the top fork and the sender to ensure that what is written
by both is not lost due to simultaneous updating. The protocol that
is used is:

1. The top fork turns on bit NS%WHR before it starts the sender. Once it
   starts the sender it will not modify word .NSSTA until the sender 
   has a connection.
2. When the sender successfully completes a DECnet connection, it turns
   on bit NS%NRH and informs the top fork. It does not modify the word
   .NSSTA again.
3. The top fork will then turn off bits NS%WHR and NS%NRH and turn on
   bit NS%HEL.
4. If the sender detects a fatal error, then it turns on bit NS%SFC
   and crashes. Since this is an unplanned event, it is possible that the
   top fork may be modifying word .NSSTA while the sender is attempting
   to turn this bit on. However, in this case, it does not matter since
   when the sender crashes, the top fork will be interrupted and it will
   be able to determine which sender crashed by the RFSTS% JSYS.

 Word .NLSTA can also be modified by both the top fork and, in this case,
the listener. Consequently, a protocol must also be observed between the
top fork and the listener.

1. The top fork turns on bit NL%WHL before it starts the listener. It does
   not modify word .NLSTA until the listener has accepted a connection.

2. The listener turns on bit NL%NRH when it has accepted a connection
   and then informs the top fork of the connection. It does not modify
   word .NLSTA again.
3. The top fork, when it notices that bit NL%NRH is turned on, will then
   turn off bits NL%NRH and NL%WHL and turn on bit NL%HEL.

4. If the listener detects a fatal error, then it turns on bit NL%LFC
   and crashes. Since this is an unplanned event, it is possible that the
   top fork may be modifying word .NLSTA while the listener is attempting
   to turn this bit on. However, in this case, it does not matter since
   when the listener crashes, the top fork will be interrupted and it will
   be able to determine which listener crashed by the RFSTS% JSYS.

\
        PHASE 0

.NNNAM: BLOCK 1                             ;SIXBIT REMOTE NEBULA'S NODE NAME
.NNSTA: BLOCK 1                             ;STATUS INFORMATION.
     NS.STA==-1,,0                          ;STATUS OF THE NODE
	NN%OKS==1B0                         ;O.K. TO SEND MESSAGES TO THIS NODE
	NN%COI==1B1                         ;INFO% NOT ABLE TO GET S.W. ENVMENT
	NN%DCN==1B2                         ;DECNET NOT INSTALLED
	NN%REL==1B3			    ;MONITOR VERSION LESS THAN 7
	NN%SCS==1B4                         ;SCS DETECTED NODE LEFT CLUSTER
	NN%SHO==1B5                         ;SENDER DOES NOT HAVE A CONNECTION
	NN%LHO==1B6                         ;LISTENER DOESN'T HAVE A CONNECTION
	NN%IFC==1B7			    ;KILL THE INFERIOR FORKS
	NN%DCO==1B8                         ;DON'T NOTIFY ORION IF CAN'T
                                            ; OBTAIN A DECNET CONNECTION
	NN%CCA==1B9			    ;CEASE DECNET CONNECTION ATTEMPTS
;**;[16] At NN%CCA==1B9 + 1L add 1 line  JYCW  Oct-18-88
	NN%PAS==1B10			    ;[16]NEW MESSAGE FORMAT ACCEPTED
      NNLOW==POS(NN%COI)                    ;LOWEST ERROR BIT NUMBER
;**;[16]At NNLOW==POS change 1 line  JYCW  Oct-18-88
      NNHIGH==POS(NN%PAS)                   ;[16]HIGHEST ERROR BIT NUMBER
    NS.NUM==0,,-1                           ;CFS NODE NUMBER
.NSSTA:	BLOCK 1                             ;STATUS OF THE SENDER
	NS%HEL==1B0                         ;SENDER SUCCESSFULLY SENT HELLO MSG
	NS%WHR==1B1			    ;WAITING FOR HELLO RESPONSE
	NS%HRJ==1B2                         ;HELLO MESSAGE REJECTED
	NS%SFC==1B3                         ;SENDER FORK CRASHED
	NS%NRH==1B4                         ;NOTIFY TOP FORK RECEIVED HELLO RSP
.NLSTA:	BLOCK 1                             ;STATUS OF THE LISTENER
	NL%HEL==1B0                         ;LISTENER RECEIVED HELLO MESSAGE
	NL%WHL==1B1                         ;WAITING FOR A HELLO MESSAGE
	NL%HMR==1B2                         ;HELLO MSG RECEIVED FROM NON-NEBULA
	NL%LFC==1B3                         ;LISTENER FORK CRASHED
	NL%NRH==1B4                         ;NOTIFY TOP FORK RECD HELLO MSG   
.NIERC:	BLOCK 1				    ;[12]INFO% ERROR COUNTER
.NIETM: BLOCK 1				    ;[12]INFO% ERROR TIMER
.NTIML:	BLOCK 1                             ;LIST OF TIMES MESSAGES SENT
.NRQLH: BLOCK 1                             ;REMOTE QUEUE LINK LIST HEADER WORD
.NRQLT: BLOCK 1                             ;REMOTE QUEUE LINK LIST TRAILER WORD
.NNSBA: BLOCK 1                             ;ADR OF FIRST PAGE OF SENDER BLOCK
.NNLBA: BLOCK 1                             ;ADR OF FIRST PG OF LISTENER BLOCK
.NNNSZ:                                     ;SIZE OF A NODE TABLE ENTRY        
        DEPHASE
	SUBTTL	LISTENER DATA BASE DEFINITIONS

COMMENT \
          Each listener has a two page listener block.   The  listener
     block  is shared between the top fork and the listener.  The first page
     has the following format:

        !=======================================================!
        !                 Message Buffer Address                ! .LSMSG
        !-------------------------------------------------------!
	!		 Node Table Entry Address		! .LSNTA
	!-------------------------------------------------------!
	!                 SIXBIT Remote Node Name               ! .LSNME
	!-------------------------------------------------------!
	!                                                       !
	/                 ASCIZ Remote Node Name                / .LSANN
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                   Remote Sender Name                  / .LSUSR
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/               DECnet Remote Sender Name               / .LSSNE
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/          DECnet Remote Sender Optional Data           / .LSOPT
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!          Listener Message Queue Header Word           ! .LSHWD
        !-------------------------------------------------------!
	!          Listener Message Queue Trailer Word          ! .LSTWD
	!-------------------------------------------------------!
	!    Number of Messages in the Listener Message Queue   ! .LSUSM
	!-------------------------------------------------------!
        !                   DECnet Link Status                  ! .LSLNK
        !-------------------------------------------------------!
        !           Listener Has a Message for NEBULA           ! .LSAVA
        !-------------------------------------------------------!
        !                                                       !
        /                                                       /
        /               Listener AC Save Area                   / .LSREG
        /                                                       /
        !                                                       !
        !-------------------------------------------------------!

Continued on the next page.
Continued from the previous page.

	!-------------------------------------------------------!
        !                                                       !
        /                                                       /
        /                   Listener Stack                      / .LSPDL
        /                                                       /
	!                                                       !
        !-------------------------------------------------------!
        !                 Listener's Fork Handle                ! .LSHND
        !-------------------------------------------------------!
        !                    DECnet Link JFN                    ! .LSJFN
        !-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/          Listener's DECnet Device Name (SRV:)         / .LSSRV
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                  Debugging User Name                  / .LSDBW
	/                                                       /
	!                                                       /
	!-------------------------------------------------------!
	!                 Byte Pointer for $TEXT                ! .LSBTP
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/               GLXLIB Initialization Block             / .LSIBK
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                PID Initialization Block               / .LSPIB
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                 Interrupt Level Table                 / .LSLEV
	!                                                       !
	!-------------------------------------------------------!
	!            Interrupt Level 1 PC Save Block            ! .LS1PC
	!-------------------------------------------------------!
	!            Interrupt Level 2 PC Save Block            ! .LS2PC
        !-------------------------------------------------------!
	!            Interrupt Level 3 PC Save Block            ! .LS3PC
	!-------------------------------------------------------!

Continued on the next page
Continued from the previous page

	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/               MUTIL% JSYS Argument Block              / .LSMUT
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/              Stopcode Processing Save Block           / .LSERR
	!                                                       !
        !=======================================================!

\

;LISTENER DATA BASE DEFINITIONS

	PHASE	0

.LSMSG:! BLOCK	1			;ADDRESS OF MESSAGE BUFFER
.LSNTA:! BLOCK	1			;NODE TABLE ENTRY ADDRESS
.LSNME:! BLOCK  1			;SIXBIT REMOTE NODE NAME
.LSANN:! BLOCK	2			;ASCIZ REMOTE NODE NAME
.LSUSR:! BLOCK	^D8			;REMOTE SENDER NAME
.LSSNE:! BLOCK	4			;DECNET SENDER NAME
.LSOPT:! BLOCK  4			;DECNET SENDER OPTIONAL DATA
.LSHWD:! BLOCK	1			;LISTENER MESSAGE QUEUE HEADER WORD
.LSTWD:! BLOCK	1			;LISTENER MESSAGE QUEUE TRAILER WORD
.LSUSM:! BLOCK	1			;NUMBER OF MESSAGE QUEUE ENTRIES
.LSLNK:! BLOCK	1			;STATUS OF THE DECNET LINK
.LSAVA:! BLOCK	1			;MESSAGE AVAILABLE FLAG
.LSREG:! BLOCK	20			;LISTENER AC SAVE AREA
.LSPDL:! BLOCK	^D200			;[4]LISTENER CONTEXT PDL.
.LSHND:! BLOCK	1			;LISTENER'S PROCESS HANDLE
.LSJFN:! BLOCK	1			;DECNET LOGICAL LINK JFN
.LSSRV:! BLOCK	6			;[4]DECNET DEVICE NAME
.LSDBW:! BLOCK	8			;[5]DEBUG USER NAME
.LSBTP:! BLOCK	1			;BYTE POINTER FOR $TEXT
.LSIBK:! BLOCK	IB.SZ			;GLXLIB INITIALIZATION BLOCK
.LSPIB:! BLOCK	PB.MNS			;PID INITIALIZATION BLOCK
.LSLEV:! BLOCK	3			;INTERRUPT LEVEL TABLE
.LS1PC:! BLOCK	1			;INTERRUPT LEVEL 1 PC SAVE BLOCK
.LS2PC:! BLOCK	1			;INTERRUPT LEVEL 2 PC SAVE BLOCK
.LS3PC:! BLOCK 	1			;INTERRUPT LEVEL 3 PC SAVE BLOCK
.LSMUT:! BLOCK	3			;MUTIL% ARGUMENT BLOCK
.LSERR:! BLOCK	2			;STOPCODE PROCESSING SAVE BLOCK

DBLED:!					;END OF DEFINED LISTENER DATA BASE

	DEPHASE
	SUBTTL	SENDER DATA BASE DEFINITIONS

COMMENT \

          Each sender has a two page sender block.   The  sender
     block  is shared between the top fork and the sender.  The first page
     has the following format:

        !=======================================================!
        !                 Message Buffer Address                ! .SNMSG
        !-------------------------------------------------------!
	!		 Node Table Entry Address		! .SNNTA
        !-------------------------------------------------------!
	!                    Remote Node Name                   ! .SNNME
	!-------------------------------------------------------!
        !          Message Queue Link List Header Word          ! .SNHWD
	!-------------------------------------------------------!
        !          Message Queue Link List Trailer Word         ! .SNTWD
        !-------------------------------------------------------!
        !               Number of Unsent Messages               ! .SNUSM
	!-------------------------------------------------------!
        !               Status of the DECnet Link               ! .SNLNK
        !-------------------------------------------------------!
        !         Free to Send a Message to the Listener        ! .SNFRE
        !-------------------------------------------------------!
        !                                                       !
        /                                                       /
        /                 Sender AC Save Area                   / .SNREG
        /                                                       /
        !                                                       !
        !-------------------------------------------------------!
        !                                                       !
        /                                                       /
        /                     Sender Stack                      / .SNPDL
        /                                                       /
	!                                                       !
        !-------------------------------------------------------/
        !                  Sender's Fork Handle                 ! .SNHND
        !-------------------------------------------------------!
        !                    DECnet Link JFN                    ! .SNJFN
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                DECnet DCN: Device Name                / .SNDCN
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!

Continued on the next page.
Continued from the previous page.

	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                  Debugging User Name                  / .SNDBW
	/                                                       /
	!                                                       /
	!-------------------------------------------------------!
	!                 Byte Pointer for $TEXT                ! .SNBTP
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/               GLXLIB Initialization Block             / .SNIBK
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                PID Initialization Block               / .SNPIB
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!                                                       !
	/                 Interrupt Level Table                 / .SNLEV
	!                                                       !
	!-------------------------------------------------------!
	!            Interrupt Level 1 PC Save Block            ! .SN1PC
	!-------------------------------------------------------!
	!            Interrupt Level 2 PC Save Block            ! .SN2PC
        !-------------------------------------------------------!
	!            Interrupt Level 3 PC Save Block            ! .SN3PC
	!-------------------------------------------------------!
	!        Time Between DECnet Connection Attempts        ! .SNTIM
	!-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/               MUTIL% JSYS Argument Block              / .SNMUT
	/                                                       /
	!                                                       !
	!-------------------------------------------------------!
	!              Checksum Enable/Disable Flag             ! .SNCHS
	!-------------------------------------------------------!
	!                                                       !
	/              Stopcode Processing Save Block           / .SNERR
	!                                                       !
        !=======================================================!

\
;SENDER DATA BASE DEFINITIONS

	PHASE	0

.SNMSG:! BLOCK	1			;ADDRESS OF MESSAGE BUFFER
.SNNTA:! BLOCK	1			;NODE TABLE ENTRY ADDRESS
.SNNME:! BLOCK	1			;REMOTE NODE NAME
.SNHWD:! BLOCK	1			;MESSAGE QUEUE LINK LIST HEADER WORD
.SNTWD:! BLOCK  1			;MESSAGE QUEUE LINK LISTS TRAILER WORD
.SNUSM:! BLOCK	1			;NUMBER OF MESSAGES IN MESSAGE QUEUE
.SNLNK:! BLOCK	1			;STATUS OF THE DECNET LINK
.SNFRE:! BLOCK	1			;MESSAGE AVAILABLE FLAG
.SNREG:! BLOCK	20			;SENDER AC SAVE AREA
.SNPDL:! BLOCK	^D200			;SENDER CONTEXT PDL.
.SNHND:! BLOCK	1			;SENDER'S PROCESS HANDLE
.SNJFN:! BLOCK	1			;DECNET LOGICAL LINK JFN
.SNDCN:! BLOCK	^D20			;[4]DECNET DEVICE NAME
.SNDBW:! BLOCK	8			;[5]DEBUG USER NAME
.SNBTP:! BLOCK	1			;BYTE POINTER FOR $TEXT
.SNIBK:! BLOCK	IB.SZ			;GLXLIB INITIALIZATION BLOCK
.SNPIB:! BLOCK	PB.MNS			;PID INITIALIZATION BLOCK
.SNLEV:! BLOCK	3			;INTERRUPT LEVEL TABLE
.SN1PC:! BLOCK	1			;INTERRUPT LEVEL 1 PC SAVE BLOCK
.SN2PC:! BLOCK	1			;INTERRUPT LEVEL 2 PC SAVE BLOCK
.SN3PC:! BLOCK 	1			;INTERRUPT LEVEL 3 PC SAVE BLOCK
.SNTIM:! BLOCK	1			;TIME BETWEEN DECNET CONNECTION ATTEMPTS
.SNMUT:! BLOCK	3			;MUTIL% ARGUMENT BLOCK
.SNCKS:! BLOCK	1			;CHECKSUM ENABLE/DISABLE FLAG
.SNERR:! BLOCK	2			;STOPCODE PROCESSING SAVE BLOCK
DBSED:!					;END OF DEFINED SENDER DATA BASE 

	DEPHASE
	SUBTTL	TABLE OF PREVIOUSLY AND CURRENTLY KNOWN NODES

COMMENT \

The table of previously and currently known (remote) nodes (PACKN) is used
to support the following OPR commands:
1. SHOW CLUSTER-GALAXY-LINK-STATUS
2. ENABLE/DISABLE DECNET-CONNECTION-ATTEMPTS
3. ENABLE/DISABLE REPORT-CONNECTION-FAILURES

Every remote node that has ever been known to NEBULA has an 
entry in this table. The DECnet link status of the sender and listener is
kept in this table as well as whether the reporting of the sender's attempt
to obtain a DECnet connection should be reported to ORION or not and also
whether the sender should continue to attempt to obtain a DECnet connection
or not.

	!=======================================================!
	!                  SIXBIT node name                     ! .NDNAM
        !-------------------------------------------------------!
	!            DECnet Connection Status Word              ! .LKSTS
	!=======================================================!

\
	PHASE 0

.NDNAM:	BLOCK	1			;SIXBIT REMOTE NODE NAME
.LKSTS:	BLOCK	1			;SENDER/LISTENER DECNET STATUS
   LK%DIS==1B0				;DISABLE LINK ATTEMPT REPORTING
   LK%CCA==1B1				;DISABLE OBTAINING A LINK
   LK%SEN==1B2				;SENDER HAS (OR HAS HAD) A CONNECTION
   LK%LIS==1B3                          ;LISTENER HAS (OR HAS HAD) A CONNECTION
.NDLSZ:					;SIZE OF A PACKN ENTRY
	DEPHASE
	SUBTTL	TIMER LIST

COMMENT \

A timer is set for every message that is sent to a remote node and for
which a response is expected. If the timer goes off and there has been no
response, then it is assumed that communication with the remote node
has been lost. However, if a response is received from the remote node
before the timer has gone off, then the timer is turned off.
In order to identify the response with the original message, the ACK
code (.MSCOD) of the original message is kept on the timer list for that
node. In addition, the time at which the timer goes off is also kept so 
that if the response is received before the timer goes off, then the timer
can be turned off using the saved time by means of the timer function .TIMDD

        !=======================================================!
        !                ACK Code of the Message                ! .TMACK
        !-------------------------------------------------------!
        !            Time the Timer is Set to Go Off            ! .TMUDT
        !=======================================================!

\
	PHASE 0

.TMACK:	BLOCK 1				;ACK CODE (.MSCOD) OF MESSAGE
.TMUDT:	BLOCK 1				;TIME THE TIMER IS TO GO OFF
.TMSIZ:					;SIZE OF THE TIME LIST ENTRY
	DEPHASE
	SUBTTL	MESSAGE QUEUE (MSGQUE)

COMMENT \


     NEBULA queues IPCF messages that are to be  forwarded  to  remote
     nodes in the cluster on the message queue.  A message queue entry
     has the following format:

        !=======================================================!
        !          MQ.OFF           !          MQ.NEA           ! .MQBLK
        !-------------------------------------------------------!
        /                                                       /
        /                                                       /
        /                                                       /
        !-------------------------------------------------------!
        !          MQ.OFF           !          MQ.NEA           ! .MQBLK
        !-------------------------------------------------------!
        !FLAGS!    MQ.NUM           !          MQ.ADR           ! .MQNOM
	!-------------------------------------------------------!
	!FLAGS!    MQ.LEN           !          MQ.PTR           ! .MQMEM
	!-------------------------------------------------------!
	!                 PID of the EXEC sender                ! .MQPID
        !=======================================================!


      Each node that the message is to be sent to  will  have  the
     message  in  that  node's  message queue.  Words .MQBLK are link
     list words for each node the message is to be sent to.
      Note: If bit MQ%PAG is turned on, then this indicates that the
     message plus entry size is greater than a page. Therefore, the
     message is allocated a page of memory and it is not in general
     contiguous to the message queue entry. If bit MQ%PAG is not turned on,
     then this indicates that the message plus queue entry size 
     is less than or equal to a page in length which means that the
     message and message queue entry are located contiguously in memory.
\

            PHASE  0
.MQBLK:! BLOCK 1                        ;MESSAGE QUEUE LINK LIST WORD
        MQ.OFF==-1,,0                   ;WORD OFFSET TO WORD .MQNOM
        MQ.NEA==0,,-1                   ;ADDRESS OF NEXT MESSAGE QUEUE ENTRY
                                        ; FOR THIS SENDER
.MQBSZ:!                                ;MESSAGE QUEUE LINK LIST WORD SIZE
            DEPHASE

             PHASE  0
.MQNOM:! BLOCK 1                        ;NUMBER OF NODES/MESSAGE ADDRESS
	MQ.FLG==7B2			;MESSAGE ATTRIBUTE INFORMATION
	   MQ%IBH==1B0			;MSG IS RESPONSE TO IN BEHALF OF MSG
	   MQ%REM==1B1                  ;MSG HAS AN ENTRY IN THE REMOTE QUEUE
	   MQ%EXE==1B2			;MESSAGE IS FROM THE EXEC
        MQ.NUM==77777B17                ;NUMBER OF NODES THE MESSAGE STILL 
                                        ;NEEDS TO BE SENT TO
        MQ.ADR==0,,-1                   ;ADDRESS OF THE MESSAGE
.MQMEM:! BLOCK 1                        ;GLXMEM MEMORY MANAGEMENT INFORMATION
	   MQ%PAG==1B0			;THE MESSAGE OCCUPIES A PAGE
	MQ.LEN==377777B17		;LENGTH OF GLXMEM BLOCK SIZE
	MQ.PTR==0,,-1			;ADDRESS OF GLXMEM BLOCK SIZE
.MQPID:! BLOCK 1			;[10]PID OF AN EXEC SENDER
.MQISZ:!                                ;INVARIANT BLOCK SIZE
             DEPHASE
	SUBTTL	REMOTE QUEUE (REMQUE)

COMMENT \
          The  remote  queue  contains  entries  that  correspond   to
     "remote"  messages  whose  responses from a remote NEBULA must be
     evaluated by NEBULA.  When such a message is received by  NEBULA,
     in  addition  to placing the message on the message queue, NEBULA
     also creates a remote queue entry for  the  message.   Currently,
     there  is  only  one  type  of  remote  queue  entry.  This entry
     corresponds to REMOTE DISMOUNT messages.  The format of a  remote
     queue entry is:

        !=======================================================!
        !          RQ.OFF           !          RQ.NEA           ! .RQBLK
        !-------------------------------------------------------!
        /                                                       /
        /                                                       /
        /                                                       /
        !-------------------------------------------------------!
        !          RQ.OFF           !          RQ.NEA           ! .RQBLK
        !-------------------------------------------------------!
	!          RQ.PRE           !          RQ.NXT           ! .RQLNK
	!-------------------------------------------------------!
	!          RQ.LEN           !          RQ.ADR           ! .RQMEM
	!-------------------------------------------------------!
        !            Time Stamp Message Was Received            ! .RQTSP
        !-------------------------------------------------------!
        !                      Message Type                     ! .RQMST
        !-------------------------------------------------------!
        !                 SIXBIT Structure Name                 ! .RQSTN
        !-------------------------------------------------------!
        !                    MOUNTR ACK Code                    ! .RQACK
        !-------------------------------------------------------!
        !                      Status Word                      ! .RQSTS
        !-------------------------------------------------------!
        !          RQ.NTS           !          RQ.NOR           ! .RQNUM
	!=======================================================!
        !          RQ.SOM           !          RQ.ERR           ! .RQNST
        !-------------------------------------------------------!
        !                    SIXBIT Node Name                   ! .RQNDN
	!=======================================================!
        /                                                       /
        /                                                       /
        /                                                       /
	!=======================================================!
        !          RQ.SOM           !          RQ.ERR           ! .RQNST
        !-------------------------------------------------------!
        !                    SIXBIT Node Name                   ! .RQNDN
	!=======================================================!

\
             PHASE 0
.RQBLK:! BLOCK  1                       ;NODE REMOTE QUEUE LINK LIST WORD
        RQ.OFF==-1,,0                   ;WORD OFFSET TO WORD .RQLNK
        RQ.NEA==0,,-1                   ;ADDRESS OF NEXT REMOTE QUEUE ENTRY
                                        ; FOR THIS NODE
.RQBSZ:!                                ;NODE REMOTE QUEUE LINK LIST WORD SIZE
             DEPHASE

             PHASE 0	 
.RQLNK:! BLOCK 1			;GLOBAL REMOTE QUEUE LINK LIST WORD
	RQ.PRE==-1,,0			;POINTER TO PREVIOUS GLOBAL REMOTE QE
	RQ.NXT==0,,-1			;POINTER TO NEXT GLOBAL REMOTE QE
.RQMEM:! BLOCK 1                        ;GLXMEM MEMORY MANAGEMENT INFORMATION
	RQ.LEN==-1,,0			;LENGTH OF GLXMEM BLOCK SIZE
	RQ.ADR==0,,-1			;ADDRESS OF GLXMEM BLOCK SIZE
.RQTSP:! BLOCK  1                       ;TIME REMOTE MESSAGE RECEIVED
.RQMST:! BLOCK  1                       ;MESSAGE TYPE
;       .NRDSM==300001                  ;REMOTE DISMOUNT MESSAGE
.RQSTN:! BLOCK  1                       ;SIXBIT NAME OF STRUCTURE TO DISMOUNT
.RQACK:! BLOCK  1                       ;ACK CODE FROM REMOTE DISMOUNT MESSAGE
.RQSTS:! BLOCK  1                       ;STATUS OF THE REQUEST
        RQ%CAN==1B0                     ;DISMOUNT REQUEST CANCELED
	RQ%SEC==1B1			;SET STRUCTURE EXCLUSIVE CANCELLED
	RQ%SEX==1B2			;DISMOUNT DUE SET STRUCTURE EXCLUSIVE
	RQ%DIS==1B3			;DISMOUNT DUE DISMOUNT/REMOVAL
.RQNUM:! BLOCK  1                       ;NUMBER OF NODES/OUTSTANDING RESPONSES
        RQ.NTS==-1,,0                   ;NUMBER OF NODES IN REMOTE QUEUE ENTRY
        RQ.NOR==0,,-1                   ;NUMBER OF OUTSTANDING RESPONSES
.RQNIZ:!                                ;INVARIANT BLOCK SIZE
             DEPHASE

COMMENT \

          For each node that the REMOTE DISMOUNT message was sent  to,
     there is a two-word block in the remote queue entry. The first word,
     .RQNST, contains the status of the response for the REMOTE DISMOUNT
     message in its left half.  If bit RQ%TER, RQ%OER, RQ%QER, RQ%NEB
     or RQ%MER is turned on, then the right half of word .RQNST contains
     an error code. (Note: before a response is received from the node
     the right half of word .RQNST contains the address of the preceding
     Remote Queue entry for that node.)
     The second word, .RQNDN, contains the SIXBIT node name that the message
     was sent to.
\
             PHASE 0

.RQNST:! BLOCK  1                       ;STATUS OF MESSAGE SENT TO NODE
        RQ.SOM==-1,,0                   ;STATUS OF THE MESSAGE
               RQ%SNR==1B0              ;RESPONSE NOT YET RECEIVED FROM NODE
               RQ%SSD==1B1              ;STRUCTURE SUCCESSFULLY DISMOUNTED 
               RQ%SNH==1B2              ;SENDER WAITING FOR HELLO RESPONSE
               RQ%LNH==1B3              ;LISTENER HAS NOT RECEIVED HELLO MSG
               RQ%SLD==1B4              ;SENDER AND/OR LISTENER HAVE CRASHED
               RQ%NSN==1B5              ;NO SUCH NODE
               RQ%PSM==1B6              ;PRE-RELEASE 7 MONITOR
               RQ%NDC==1B7              ;DECNET NOT ENABLED
               RQ%SCS==1B8              ;SCS% DETECTED NODE LEFT THE CLUSTER
               RQ%COI==1B9              ;INFO% UNABLE OBTAIN SOFTWARE ENVIRMENT
	       RQ%CIT==1B10		;DISMOUNT CANCELLED IN TIME 
               RQ%TER==1B11             ;MONITOR ERROR DISMOUNTING STRUCTURE
               RQ%OER==1B12             ;ORION ERROR
               RQ%QER==1B13             ;QUASAR ERROR
               RQ%NER==1B14             ;NEBULA ERROR
               RQ%MER==1B15		;MOUNTR ERROR
        RQ.ERR==0,,-1                   ;ERROR CODE OR ADR OF PRECEDING RQE
.RQNDN:! BLOCK  1                       ;SIXBIT NODE NAME THAT MSG WAS SENT TO
.RQNSZ:!                                ;REMOTE NODE ENTRY SIZE
             DEPHASE
	SUBTTL	IN BEHALF OF QUEUE (IBOQUE)

COMMENT \

          The in behalf of queue is used by NEBULA to correlate an  in
     behalf  of  message  response  with the original "remote" request
     that came from a remote NEBULA.  The in behalf of queue entry has
     the following format:

        !=======================================================!
        !          IQ.PRE           !          IQ.NXT           ! .IQLNK
        !-------------------------------------------------------!
        !                   Remote NEBULA ACK                   ! .IQRNA
        !-------------------------------------------------------!
        !                    Local NEBULA ACK                   ! .IQLNA
        !-------------------------------------------------------!
        !            SIXBIT "In Behalf Of" Node Name            ! .IQNEN
	!-------------------------------------------------------!
	!                 PID of the EXEC sender                ! .IQPID
        !-------------------------------------------------------! 
	!               Number of Expected Replies              ! .IQNUM
        !=======================================================! 

\
        PHASE 0
.IQLNK:! BLOCK  1	                  ;LINK LIST WORD
	IQ.PRE==-1,,0			  ;ADDRESS OF PREVIOUS ENTRY
	IQ.NXT==0,,-1			  ;ADDRESS OF NEXT ENTRY
.IQRNA:! BLOCK  1              	          ;ORIGINAL ACK CODE FROM REMOTE MSG
.IQLNA:! BLOCK  1                         ;ACK CODE FROM IN BEHALF OF MSG
.IQNEN:! BLOCK  1                         ;SIXBIT NODE NAME THAT SENT REMOTE MSG
.IQPID:! BLOCK	1			  ;[10]PID OF THE EXEC SENDER
.IQNUM:! BLOCK	1                         ;[16]NUMBER OF EXPECTED REPLIES
.IQSIZ:!                                  ;IN BEHALF OF QUEUE ENTRY SIZE
        DEPHASE
	SUBTTL	NODE NAME BLOCK

COMMENT \

     The messages of type "remote" have a node name (.NDENM) block.
     message block, the .NDENM block. This block specifies the remote
     node the message is to be sent to. (If the node name field contains
     -1, then this indicates that the mesage is to be forwarded to
     all the remote nodes in the cluster.)

             !=======================================================!
             !        BLOCK SIZE         !          .NDENM           ! ARG.HD
             !-------------------------------------------------------!
             !                   SIXBIT Node name                    ! ARG.DA
             !=======================================================!

     where

     ARG.HD==0  is the block header word. The left  half contains  the
                size of the  block  and  the  right  half contains the
                block type code, .NDENM==30002.
     ARG.DA==1  is the block data word. This block contains the SIXBIT
                node name that the message is to be forwarded to.

\
	.NDENM==30002			;BLOCK TYPE CODE
	  .NDESZ==2			;SIZE OF THE NODE BLOCK

;**;[17]After .NDESZ==2 add .OCTXT block definition  JCR  1/15/90
	SUBTTL	Original Command Text Block

COMMENT \

     The Original Command Text block is appended to OPR command messages 
     that are sent to a remote ORION. This block contains the command text
     that the operator typed. This text is logged by the remote ORION.

             !=======================================================!
             !        Block size         !          .OCTXT           ! ARG.HD
             !-------------------------------------------------------!
             !                                                       !
             /        ASCIZ command text typed by the operator       / ARG.DA
             !                                                       !
             !=======================================================!

\
        .OCTXT==30004			;Block type code
	SUBTTL	REMOTE DISMOUNT MESSAGE

COMMENT \

This message is sent by MOUNTR to ORION to dismount a structure with
NO-REMOVAL from one or more remote nodes.

        !=======================================================!
        !      Message Length       !         .NRDSM            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !               MOUNTR's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !.DMSIS or .DMSEX                                       ! .OFLAG
        !-------------------------------------------------------!
        !                  Argument Count Word                  ! .OARGC
        !=======================================================!
        !         AR.LEN            !          .STRDV           ! ARG.HD
        !-------------------------------------------------------!
        !                 ASCIZ Structure name                  ! ARG.DA
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!
        /                                                       /
        /                                                       /
        /                                                       /
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

                                   
The .MSFLG word has the following bit set:

MF.NEB==1B5     The "NEBULA" bit. This  bit turned on  indicates  to the
                remote  QUASAR  (and  remote  MOUNTR) that this dismount 
                request  came  from  NEBULA  (i.e., is a remote dismount
                request). This bit is turned on in flag word .MSFLG.

The .OFLAG word has one of the following bits set:

.DMSEX==1B5     Message result of a SET STRUCTURE EXCLUSIVE
.DMDIS==1B6     Message result of a DISMOUNT/REMOVAL

.STRDV==20002   Structure name block. The ASCIZ name of the structure
	        that is to be dismounted.
.NDENM==30002   Node name block. This block contains the SIXBIT node
                name of a remote node that the structure is to be 
                dismounted from. There will be one such block for each node
                the structure is to be dismounted from.
  .NDESZ==2     Size of the node name block
\

.DMSEX==1B5				;MESSAGE DUE SET STRUCTURE EXCLUSIVE
.DMDIS==1B6				;MESSAGE DUE DISMOUNT/REMOVAL
					
	SUBTTL	TO NEBULA DISMOUNT MESSAGE

COMMENT \

This message is sent by ORION on behalf of MOUNTR to NEBULA to dismount
with no removal the structure indicated in the  message  from the nodes
indicated in the message.

        !=======================================================!
        !      Message Length       !         .NTDSM            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !               MOUNTR's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !.DMSIS or .DMSEX                                       ! .OFLAG
        !-------------------------------------------------------!
        !                  Argument Count Word                  ! .OARGC
        !=======================================================!
        !         AR.LEN            !          .STRDV           ! ARG.HD
        !-------------------------------------------------------!
        !                 ASCIZ Structure name                  ! ARG.DA
        !=======================================================!
        !         .NDESZ            !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!
        /                                                       /
        /                                                       /
        /                                                       /
        !=======================================================!
        !             2             !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!


.STRDV          Structure name block. This block contains the ASCIZ
                structure name of the structure to be dismounted.  
.NDENM          Node name block. This block contains the SIXBIT node
                name of a remote node that the structure is to be 
                dismounted from. There is one such block for each node
                the structure is to be dismounted from.
\
	SUBTTL	FROM NEBULA DISMOUNT MESSAGE

COMMENT \

     NEBULA forwards this message to the nodes  indicated  by  the
.NDENM  blocks.   Before it does this, however, it deletes all the
node name blocks and replaces them with a single node  name  block
which contains  the  local node name (i.e., the node name of the
node requesting the dismount.) It also changes the message code to
FROM NEBULA DISMOUNT message.  The format of this message is:

        !=======================================================!
        !      Message Length       !         .NFDSM            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !               MOUNTR's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                           2                           ! .OARGC
        !=======================================================!
        !             2             !          .STRDV           ! ARG.HD
        !-------------------------------------------------------!
        !                 ASCIZ Structure name                  ! ARG.DA
        !=======================================================!
        !             2             !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !        SIXBIT node name of the requesting node        ! ARG.DA
        !=======================================================!


.STRDV         Structure  block  name. The ASCIZ  name  of the structure
               that  is to be dismounted.  
.NDENM         Node name block. This block contains the SIXBIT node name
               of the  node that  the dismount request originated from.
\
	SUBTTL	 FROM NEBULA DISMOUNT ACK MESSAGE

COMMENT \

     MOUNTR, after processing a (remote) dismount message, sends
to  ORION  a message of type FROM NEBULA DISMOUNT ACK message.  (Note:
the ACK code in word .MSCOD is the same one NEBULA used  in  its  FROM
NEBULA  DISMOUNT message.) If the dismount was successful, then the FROM
NEBULA DISMOUNT ACK message has the following format:

        !=======================================================!
        !      Message Length       !         .NFDAK            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !               NEBULA's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !SU%NOE                                                 ! .OFLAG
        !-------------------------------------------------------!
        !                           0                           ! .OARGC
        !=======================================================!


SU%NOE==1B0     This bit set indicates that MOUNTR successfully 
                dismounted the structure.

There are no argument blocks.
\
SU%NOE==1B0				;STRUCTURE SUCCESSFULLY DISMOUNTED

COMMENT \

     If the dismount was unsuccessful, then the FROM  NEBULA  DISMOUNT
ACK message has the following format:

        !=======================================================!
        !      Message Length       !         .NFDAK            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !               NEBULA's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !                   Error Indication                    ! .OFLAG
        !-------------------------------------------------------!
        !                           1                           ! .OARGC
        !=======================================================!
        !             2             !          .ERRBK           ! ARG.HD
        !-------------------------------------------------------!
        !                       error code                      ! ARG.DA
        !=======================================================!


Word .OFLAG indicates the error:

FA%TER==1B1     This bit turned on indicates that the dismount failed 
                due to a monitor error.
FA%MER==1B2     This bit turned on indicates that the dismount failed
                due to a MOUNTR error.

     (Note:  It may turn out that (the remote) QUASAR, ORION or NEBULA
may  detect  an  error  while processing a DISMOUNT request.  In these
cases, the component detecting the  error sends  to  the  remote
NEBULA  a  FROM NEBULA DISMOUNT ACK message (in the case of the remote
QUASAR, the remote QUASAR sends the message to  the  remote  ORION
which forwards the message to the remote NEBULA).  The .OFLAG word
indicates which component detected the error as follows:

FA%OER==1B3    This bit turned on indicates that the dismount failed
               due to an ORION error.
FA%QER==1B4    This bit turned on indicates that the dismount failed
               due to a QUASAR error.
FA%NER==1B5    This bit turned on indicates that the dismount failed
               due to a NEBULA error.

.ERRBK==30001   Error block.  This  block returns the error code of
                the remote GALAXY component that detected the error.
  .ERRSZ==2     Size of the error block

      o  The remote  ORION forwards  this  message  without  any
         changes to the remote NEBULA.

      o  The remote NEBULA  replaces the  ACK  code  with  MOUNTR's
         original  ACK  code.  The remote NEBULA  then forwards the
         message to NEBULA.

\

;WORD .OFLAG  INDICATES THE ERROR

NF.VER==77B5				;ERROR BIT FIELD
FA%TER==1B1   				;REMOTE MONITOR ERROR
FA%MER==1B2				;REMOTE MOUNTR ERROR
FA%OER==1B3				;REMOTE ORION ERROR
FA%QER==1B4				;REMOTE QUASAR ERROR
FA%NER==1B5				;REMOTE NEBULA ERROR


.ERRBK==30001 				;MESSAGE CODE
  .ERRSZ==2              		;ERROR BLOCK CODE
	SUBTTL	TO NEBULA DISMOUNT ACK MESSAGE
Comment \

     NEBULA, after  all  the  FROM  NEBULA  DISMOUNT  ACKS  have  been
received, builds a TO NEBULA DISMOUNT ACK message.  The TO NEBULA
DISMOUNT ACK message has the following format:

        !=======================================================!
        !      Message Length       !         .NTDAK            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !               MOUNTR's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !               Status of the Dismount Request          ! .OFLAG
        !-------------------------------------------------------!
        !                  Argument Count Word                  ! .OARGC
        !=======================================================!
        !           .STRLN          !          .STRNM           ! ARG.HD
        !-------------------------------------------------------!
        !                 SIXBIT Structure Name                 ! ARG.DA
        !=======================================================!
        !    Status Block Length    !          .STSBK           ! ARG.HD
        !-------------------------------------------------------!
        !                    SIXBIT Node Name                   ! .STNNE
        !-------------------------------------------------------!
        !           ST.SOM          !          ST.ERR           ! .STNST
	!-------------------------------------------------------!
        /                                                       /
        /                                                       /
        /                                                       /
        !-------------------------------------------------------!
        !                    SIXBIT Node Name                   ! .STNNE
        !-------------------------------------------------------!
        !           ST.SOM          !          ST.ERR           ! .STNST
        !=======================================================!

The .OFLAG can have the following bits turned on:

DS%CAN==1B0     The DISMOUNT request was cancelled
DS%SEC==1B1	The SET EXCLUSIVE was cancelled
DS%SUC==1B2     The structure was successfully dismounted from all remote nodes
DS%FAI==1B3     The structure was not dismounted from one or more nodes
DS%SEX==1B4     The DISMOUNT was due to a SET STRUCTURE EXCLUSIVE
DS%DIS==1B5     The DISMOUNT was due to a DISMOUNT/REMOVAL
.STRNM          SIXBIT structure name block. This block contains the SIXBIT
                name of the structure whose dismount was attempted
.STSBK          Status block. This block gives the result of the
                dismount  request  for each node the dismount request was
                given for.

     ORION forwards the TO NEBULA DISMOUNT ACK message  to  MOUNTR
but  changes   the   message   code   to  REMOTE  DISMOUNT  ACK
(.NRDAK==300006).

\

;THE .OFLAG WORD CAN HAVE THE FOLLOWING BITS TURNED ON:

DS%CAN==1B0     			;THE DISMOUNT REQUEST WAS CANCELLED
DS%SEC==1B1                             ;THE SET EXCLUSIVE WAS CANCELLED
DS%SUC==1B2     			;STRUCTURE SUCCESSFULLY DISMOUNTED
DS%FAI==1B3  	  			;STRUCTURE NOT DISMOUNTED FROM ALL NODES
DS%SEX==1B4     			;DISMOUNT DUE TO SET STRUCTURE EXCLUSIVE
DS%DIS==1B5     			;DISMOUNT DUE TO A DISMOUNT/REMOVAL

.STRNM==30001				;SIXBIT STRUCTURE NAME BLOCK
  .STRLN==2				;LENGTH OF THE SIXBIT NAME BLOCK 

.STSBK==30003   			;STATUS BLOCK CODE

	PHASE 0

.STNNE:	BLOCK 1				;SIXBIT NODE NAME
.STNST: BLOCK 1				;STATUS BLOCK
	ST.SOM=-1,,0			;STATUS FIELD
               ST%SSD==1B1              ;STRUCTURE SUCCESSFULLY DISMOUNTED 
               ST%SNH==1B2              ;SENDER HAS NOT SENT HELLO MESSAGE
               ST%LNH==1B3              ;LISTENER HAS NOT RECEIVED HELLO MSG
               ST%SLD==1B4              ;SENDER/LISTENER ARE CRASHED
               ST%NSN==1B5              ;NO SUCH NODE
               ST%PSM==1B6              ;PRE-RELEASE 7 MONITOR
               ST%NDC==1B7              ;DECNET NOT ENABLED
               ST%SCS==1B8              ;NODE CRASHED AND CAME BACK
               ST%COI==1B9              ;INFO% CAN'T OBTAIN SOFTWARE ENVIRONMENT
               ST%CAN==1B10             ;DISMOUNT CANCELLED IN TIME
               ST%TER==1B11             ;MONITOR ERROR DISMOUNTING STRUCTURE
               ST%OER==1B12             ;ORION ERROR
               ST%QER==1B13             ;QUASAR ERROR
               ST%NER==1B14             ;NEBULA ERROR
               ST%MER==1B15		;MOUNTR ERROR
	ST.ERR=0,,-1			;ERROR CODE

.STSLN:					;LENGTH OF A STATUS BLOCK FIELD
	DEPHASE
	SUBTTL	NEBULA CANCEL DISMOUNT MESSAGE

Comment \

     This message is sent by MOUNTR to ORION to cancel  a  REMOTE
DISMOUNT  message or as a result of setting a structure shared that was
in the process of being SET EXCLUSIVE. ORION  forwards this message,
as is, to NEBULA. The format of the message is:

        !=======================================================!
        !      Message Length       !         .NCDSM            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !               MOUNTR's Acknowledgement code           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                  Argument Count Word                  ! .OARGC
        !=======================================================!

Word .OFLAG has one of the following bits turned on:

  NC%CDM==1B0   Cancel a dismount
  NC%CSE==1B1   Cancel a SET STRUCTURE EXCLUSIVE

      o  The ACK code is  the  same  as  the  one  that  MOUNTR
         orginally sent in its REMOTE DISMOUNT message.

      o  Bit NC%CSE  is  set  if  the  NEBULA  CANCEL  DISMOUNT  is  a
         consequence   of   processing  an  OPR>SET  STRUCTURE  SHARED
         command.

      o  These bits must correspond in value to those of the .RQSTS word
         of the remote queue entry.
         
\

  NC%CDM==1B0   		;CANCEL A DISMOUNT
  NC%CSE==1B1   		;CANCEL A SET STRUCTURE EXCLUSIVE
	SUBTTL	TO NEBULA MOUNT MESSAGE

COMMENT \

 This message is sent  by  ORION  to  NEBULA  when  ORION receives a
message that resulted from a OPR>MOUNT STRUCTURE FOO:/NODE:BAR command.
The format of the message is:

        !=======================================================!
        !      Message Length       !         .NTMTS            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB!MF.WTO                                          ! .MSFLG
        !-------------------------------------------------------!
        !                   Acknowledgement code                ! .MSCOD
        !=======================================================!
        !                        .MTSID                         ! .OFLAG
        !-------------------------------------------------------!
        !                        .TNNMB                         ! .OARGC
        !=======================================================!
        !             n             !          .STALS           ! ARG.HD
        !-------------------------------------------------------!
        !                  ASCIZ  alias name                    ! ARG.DA
        !=======================================================!
        !             n             !          .STRDV           ! ARG.HD
        !-------------------------------------------------------!
        !                ASCIZ  Structure name                  ! ARG.DA
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                   SIXBIT node name                    ! ARG.DA
        !=======================================================!

  .TNNMB        Number of argument blocks
.STALS          Alias block.  This  block  contains the  structure alias
                name in ASCIZ. 
.STRDV          Structure block. This block will be optional and will be
                present only  if  the operator typed in  /STRUCTURE-ID:.
                This  bloc  contains  the structure name in ASCIZ.
.NDENM          Node name block. This block will contain the SIXBIT node
                name of the node that the structure is to be mounted on.

If  the operator  typed in /STRUCTURE-ID:, then the flag word .OFLAG has
the following bit set:

.MTSID==1B4     Command included /STRUCTURE-ID:

n is the block size in words, including the header word ARG.HD.
\
.TNNMB==3				;NUMBER OF ARGUMENT BLOCKS
	SUBTTL	FROM NEBULA MOUNT MESSAGE

COMMENT \


     NEBULA forwards the TO NEBULA MOUNT  message  to  the  remote
NEBULA  indicated  by  the node block.  NEBULA places the local node
name in the node name block and changes the message code to FROM
NEBULA MOUNT. This message has the same format as the .ODMTS
message that ORION normally sends to QUASAR. The format of the message is:

        !=======================================================!
        !      Message Length       !         .NFMTS            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !                Acknowledgement code                   ! .MSCOD
        !=======================================================!
        !                        .MTSID                         ! .OFLAG
        !-------------------------------------------------------!
        !                        .FNNMB                         ! .OARGC
        !=======================================================!
        !             n             !          .STALS           ! ARG.HD
        !-------------------------------------------------------!
        !                  ASCIZ  alias name                    ! ARG.DA
        !=======================================================!
        !             n             !          .STRDV           ! ARG.HD
        !-------------------------------------------------------!
        !                ASCIZ  Structure name                  ! ARG.DA
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                   SIXBIT node name                    ! ARG.DA
        !=======================================================!

   
.FNNMB          Number of argument blocks
.STALS          Alias block.  This  block  contains the  structure alias
                name in ASCIZ. 
.STRDV          Structure block. This block is optional and is
                present only  if  the operator typed in  /STRUCTURE-ID:.
                This  block contains  the structure name in ASCIZ.
If  the operator  typed in /STRUCTURE-ID:, then the flag word .OFLAG has
the following bit set:

.MTSID==1B4     Command included /STRUCTURE-ID:

n is the block size in words, including the header word ARG.HD.

.NDENM         This block contains the node name of the node that originated
               the mount request.

\

.FNNMB==3        		;NUMBER OF ARGUMENT BLOCKS
	SUBTTL	NEBULA SHOW MESSAGES' CODES

COMMENT \

If ORION receives an OPR SHOW message that was specified with the
/CLUSTER-NODE: switch, then it formats the message into the format expected
by (the remote) QUASAR or ORION. In addition, however, ORION appends
a node (.NDNME) block that specifies the node the message is to be
forwarded to. If the SHOW command was given with /CLUSTER-NODE:*,
then the node block contains -1 as its node name. In this case, the
SHOW message is sent to all remote nodes in the cluster and is also
processed locally.



.NMSHS - SHOW STATUS (.OMSHS)
.NDSCD - SHOW CONFIGURATION (.ODSCD)
.NMSHQ - SHOW QUEUES (.OMSHQ)
.NMSHP - SHOW PARAMETERS (.OMSHP)
.NMSHR - SHOW ROUTE (.OMSHR)
.NDSHT - [6]SHOW STATUS TAPE (.ODSHT)
.NDSHD - [6]SHOW STATUS DISK (.ODSHD)
.NDSTR - [7]SHOW STATUS STRUCTURE (.ODSTR)

\ ;End of comment
	SUBTTL	RESPONSE TO EXEC CANCEL MESSAGE

COMMENT \

The response to an EXEC CANCEL PRINT/DESTINATION request from a remote
QUASAR must have a different message code than .OMTXT so that the 
requestor's NEBULA can distinquish the response from an operator's 
request so that it can forward the response to the EXEC rather than to
ORION.

.NMTXT - [10]RESPONSE TO EXEC KILL REQUEST

\ ;End fo comment
	SUBTTL (TO NEBULA) SHOW OPERATORS MESSAGE

COMMENT \

This message is sent by ORION to NEBULA if ORION receives a SHOW message
(.OMSHS) from an OPR with keyword OPERATORS (.KYOPR) and a node switch
block (.SWNOD). The format of the message is:

        !=======================================================!
        !      Message Length       !         .NSHOP            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !           PID of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                  Argument Count Word                  ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

.NDENM==30002   Node name block. This block contains the SIXBIT node
                name of the node that the message is to be forwarded to.

 If the data field of the .NDENM block contains a -1, then the message
is to be routed to all remote nodes (and also processed locally).

\ ;End of Comment

;**;[21]After SHOW OPERATORS MESSAGE Description add 1 line  JCR  4/27/90

OP.ALL==1B0					;[21]/ALL switch was given
	SUBTTL	(TO NEBULA) SHOW MESSAGE

COMMENT \
     This message is sent by ORION to NEBULA if ORION  receives
a  SHOW message (.OMSHS) from OPR with keyword MESSAGES (.KYMSG) and a
node switch block (.SWNOD).  The format of the message is:

        !=======================================================!
        !      Message Length       !         .NMESS            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !           PID Of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                  Argument Count Word                  ! .OARGC
        !=======================================================!
        !             2             !          .ORSEQ           ! ARG.HD
        !-------------------------------------------------------!
        !                    Message Number                     ! ARG.DA
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

.NMESS==300017  message code
.NDENM==30002   Node name block. This block contains the SIXBIT node
                name of the node that the message is to be forwarded to.
.ORSEQ==103     The sequence number block. If the operator specified
                a  message  number,  then  this  block contains
                that number.

 If the data field of the .NDENM block contains -1, then the message is to
be routed to all the remote nodes in the cluster (and is also processed
locally).

\ ;End of comment
	SUBTTL  SHOW CLUSTER-GALAXY-LINK-STATUS MESSAGE

COMMENT \

     This message is sent by ORION to NEBULA when ORION  receives
a  SHOW  message (.OMSHS) from OPR with the keyword CLUSTERS (.KYCLU).
The format of the message is:

        !=======================================================!
        !      Message Length       !         .NSCLU            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !           PID Of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                Argument Block Count                   ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

.NSCLU==300024  Message code

     The node block (.NDENM) is present only if the  command  was
given with the /NODE:  switch.

\ ;End of comment
	SUBTTL	REMOTE SHOW ACK MESSAGE

COMMENT \
     In response to a SHOW message, the remote QUASAR or ORION builds a
SHOW ACK message that is similar to the QUASAR SHOW ACK (.OMACS) message
but includes an additional display (.ORDSP) blank which indicates the
node the message was created on. 

	!=======================================================!
	!     Message Length      !         .NMACS              ! .MSTYP
	!-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !      ACK code supplied by the Remote NEBULA           ! .MSCOD
        !=======================================================!
        !WT.SJI!WT.NFO                                          ! .OFLAG
        !-------------------------------------------------------!
        !                           3                           ! .OARGC
        !=======================================================!
        !       Block Length        !          .ORDSP           ! ARG.HD
        !-------------------------------------------------------!
	!                         Blank                         !
	!Received Message From FOO::                            ! ARG.DA
	!=======================================================!
        !       Block Length        !          .ORDSP           ! ARG.HD
        !-------------------------------------------------------!
	!                Universal Date and Time                !
	/                 ASCIZ Text of Header                  / ARG.HD
	!                                                       !
	!=======================================================!
        !       Block Length        !          .CMTXT           ! ARG.HD
        !-------------------------------------------------------!
	!                                                       !
	/                                                       /
	/                  ASCIZ Message Text                   / ARG.DA
	/                                                       /
	!=======================================================!

\
	SUBTTL	SHOW CLUSTER-GALAXY-LINK-STATUS MESSAGE

COMMENT \
     If the SHOW CLUSTER-GALAXY-LINK-STATUS command was given with the
the  /CLUSTER-NODE  switch,  then the the following message is sent to
NEBULA:

        !=======================================================!
        !      Message Length       !         .NSRCL            ! .MSTYP
        !-------------------------------------------------------!
        !MF.NEB                                                 ! .MSFLG
        !-------------------------------------------------------!
        !           PID Of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                Argument Block Count                   ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

.NSRCL==300025  Message code

\ ;End of comment
	SUBTTL	DISABLE REPORT-CONNECTION-FAILURES MESSAGE

COMMENT \
     This message is sent by ORION to NEBULA if  ORION  receives  a
DISABLE (.OMDIS) message from OPR with keyword REPORT-CONNECTION-FAILURES
(.KYRCF). The format of the message is:

        !=======================================================!
        !      Message Length       !         .NDRCF            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !           PID Of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !               Number of Argument Blocks               ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

     If the node block is present, then only that node's reporting of
DECnet connection failures is disabled.

\ ;End of comment
	SUBTTL  ENABLE REPORT-CONNECTION-FAILURES MESSAGE

COMMENT \

     This message is sent by ORION to NEBULA if ORION  receives  an
ENABLE (.OMENA) message from OPR with keyword REPORT-CONNECTION-FAILURES
(.KYRCF). The format of the message is:

        !=======================================================!
        !      Message Length       !         .NDRCF            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !           PID of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !ND%ENA                                                 ! .OFLAG
        !-------------------------------------------------------!
        !               Number of Argument Blocks               ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

 In word .OFLAG:

ND%ENA==1B0    This is an ENABLE message

     If the node block is present, then only that node's reporting of
DECnet connection failures is enabled.

\ ;End of comment

;IN WORD .OFLAG THE FOLLOWING BIT IS SET

ND%ENA==1B0				;ENABLE REPORT-CONNECTION-FAILURES
	SUBTTL	DISABLE DECNET-CONNECTION-ATTEMPTS MESSAGE

COMMENT \
     This message is sent by ORION to NEBULA if ORION  receives  a
DISABLE (.OMDIS) message from OPR with keyword DECNET-CONNECTION-ATTEMPTS
(.KYDCA). The format of the message is:

        !=======================================================!
        !      Message Length       !         .NDDCA            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !           PID Of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !               Number of Argument Blocks               ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

     If the node block is present, then only that node's attempts to
obtain a DECnet connection is disabled.

\ ;End of comment
	SUBTTL  ENABLE DECNET-CONNECTION-ATTEMPTS MESSAGE

COMMENT \

     This message is sent by ORION to NEBULA if ORION  receives  an
ENABLE (.OMENA) message from OPR with keyword DECNET-CONNECTION-ATTEMPTS
(.KYDCA). The format of the message is:

        !=======================================================!
        !      Message Length       !         .NDDCA            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !           PID Of OPR That Sent This Message           ! .MSCOD
        !=======================================================!
        !ND%ENA                                                 ! .OFLAG
        !-------------------------------------------------------!
        !               Number of Argument Blocks               ! .OARGC
        !=======================================================!
        !           .NDESZ          !          .NDENM           ! ARG.HD
        !-------------------------------------------------------!
        !                  SIXBIT Node name                     ! ARG.DA
        !=======================================================!

.NDDCA==300032  message code

 In word .OFLAG:

ND%ENA==1B0    This is an ENABLE message

     If the node block is present, then only that node's attempts to
obtain a DECnet connection is enabled.

\ ;End of comment
	SUBTTL	NEBULA ACK / NEBULA ACK RESPONSE MESSAGES

COMMENT \

 The sending of these messages is a GALGEN option. The intent of these messages
is to ensure that NEBULA does indeed have communication with those nodes that
it believes it is in communication with. This is essentially to cover the case
where a remote node in the cluster has its NI reloaded. When this happens, the
local NEBULA is not interrupted to inform it of this fact and the remote node
is not able to establish communication with any other nodes in the cluster.
 NEBULA sends a NEBULA ACK message every TIMOUT minutes to nodes in the cluster
it believes it has communication with. As with other messages NEBULA sends, a
timer is set for TIMOUT minutes. If a NEBULA ACK RESPONSE is not received
from each node a NEBULA ACK message was sent to when the appropriate timer
goes off, then NEBULA assumes that communication to that node has been lost.

 The NEBULA ACK message has the following format:

        !=======================================================!
        !             5             !         .NACKM            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !                           0                           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                           0                           ! .OARGC
        !=======================================================!

The NEBULA ACK RESPONSE message has the following format:

        !=======================================================!
        !             5             !         .NACKR            ! .MSTYP
        !-------------------------------------------------------!
        !                           0                           ! .MSFLG
        !-------------------------------------------------------!
        !                           0                           ! .MSCOD
        !=======================================================!
        !                           0                           ! .OFLAG
        !-------------------------------------------------------!
        !                           0                           ! .OARGC
        !=======================================================!

\ ;End of comment
	SUBTTL	NEBULA MESSAGE CODES

.NBMSG==300000				;MINIMUM NEBULA MESSAGE CODE

.NRDSM==300001				;REMOTE DISMOUNT MESSAGE CODE
.NTDSM==300002				;TO NEBULA DISMOUNT MESSAGE CODE
.NFDSM==300003                          ;NEBULA DISMOUNT MESSAGE CODE
.NFDAK==300004				;FROM NEBULA DISMOUNT ACK MESSAGE CODE
.NTDAK==300005				;TO NEBULA DISMOUNT ACK MESSAGE CODE
.NRDAK==300006				;REMOTE DISMOUNT ACK MESSAGE CODE
.NTMTS==300007				;TO NEBULA MOUNT MESSAGE CODE
.NFMTS==300010  			;FROM NEBULA MOUNT MESSAGE CODE
.NMSHS==300011				;SHOW STATUS (.OMSHS) MESSAGE CODE
.NDSCD==300012				;SHOW CONFIGURATION (.ODSCD) MSG CODE
.NMSHQ==300013				;SHOW QUEUES (.OMSHQ) MESSAGE CODE
.NMSHP==300014				;SHOW PARAMETERS (.OMSHP) MESSAGE CODE
.NMSHR==300015				;SHOW ROUTE (.OMSHR) MESSAGE CODE
.NSCLU==300016				;SHOW CLUSTER/NODE: MESSAGE CODE
.NSRCL==300017				;SHOW CLUSTER/CLUSTER-NODE: MSG CODE
.NCDSM==300020  			;NEBULA CANCEL DISMOUNT MESSAGE CODE
.NMESS==300021				;(TO NEBULA) SHOW MESSAGE MESSAGE CODE
.NSHOP==300022				;(TO NEBULA) SHOW OPERATORS MSG CODE
.NDRCF==300023				;ENABLE REPORT-CONNECTION-FAILURES 
.NDDCA==300024				;DISABLE DECNET-CONNECTION ATTEMPTS
.NMACS==300025				;REMOTE SHOW ACK MESSAGE CODE
.NDSHT==300026				;SHOW STATUS TAPE (.ODSHT) MESSAGE CODE
.NDSHD==300027				;SHOW STATUS DISK (.ODSHD) MESSAGE CODE
.NDSTR==300030				;SHOW STATUS STRUCTURE (.ODSTR) MSG CODE
.NMTXT==300031				;RESPONSE TO EXEC KILL REQUEST MSG CODE
.NACKM==300032				;NEBULA ACK MESSAGE CODE
.NACKR==300033				;NEBULA ACK RESPONSE MESSAGE CODE

.NMSSN==300034				;[16]SHOW STATUS (.OMSSN) NETWORK-NODE
.NMSPN==300035				;[16]SHOW PARAMETERS (.OMSPN) NETWORK

.NMAXC==.NMSPN				;[16]MAXIMUM NEBULA MESSAGE CODE
SUBTTL	NEBULA ERROR CODES

;The following macros define the types of errors that NEBULA reports to
;an operator upon processing a message from that operator. These macros
;are used by NEBULA to send an ACK message (.OMACK) to ORION.

;ARGUMENTS USED ARE

;	X	'SUFFIX' , 'TEXT' , 'ERROR SEVERITY'

;DEFINE THE ERROR CODES THAT ARE ASSOCIATED WITH INVARIANT TEXT

DEFINE	ERRCDS,<
	
	XLIST

	X	IAC,<Invalid Argument Count>
	X	IBT,<Invalid Block Type>
	X	IML,<Invalid Message Length>
	X	IFW,<Invalid Flag (.MSFLG) word>
	X	NNF,<Node Block Not Found In SHOW Message>	
	X	NRN,<There are no reachable remote nodes in the cluster>
	X	IFM,<Illegally formatted message>		;[4]
;;*;[20]At ERRCDS+8L add 4 lines  JCR  3/1/90
	X	RDA,<NEBULA report connection failures disabled> ;;[20]
	X	REA,<NEBULA report connection failures enabled>  ;;[20]
	X	DDA,<NEBULA connection attempts disabled>	 ;;[20]
	X	DEA,<NEBULA connection attempts enabled>	 ;;[20]
	X	XXX,<This is a text buffer for messages built on the fly. MAX 70 characters>

	LIST
	SALL>  ;END OF DEFINITIONS OF INVARIANT TEXT ERRORS

;DEFINE THE ERROR CODES THAT ARE ASSOCIATED WITH VARIABLE TEXT

DEFINE	ERRTXT,<

	XLIST

;;*;[20]At ERRTXT+4L change 2 lines  JCR  3/1/90
	X	NSN,<Node ^N/G$ARG3/ is not known to be in the cluster>;;[20]
	X	INS,<Cannot specify the local node name ^N/G$ARG3/> ;;[20]
	X	USN,<Message not sent to node ^N/G$ARG1/ ^T/@G$ARG2/>
	X	INN,<Illegal number of nodes, ^D/G$ARG1/, specified in message>
	X	NSM,<Communication to node ^N/G$ARG1/ lost. Message not sent>
;;*;[20]At ERRTXT+8L add 4 lines  JCR  3/1/90
	X	RDS,<NEBULA report connection failures to node ^N/G$ARG3/ disabled>;;[20]
	X	RES,<NEBULA report connection failures to node ^N/G$ARG3/ enabled>;;[20]
	X	DDS,<NEBULA connection attempts to node ^N/G$ARG3/ disabled> ;;[20]
	X	DES,<NEBULA connection attempts to node ^N/G$ARG3/ enabled>;;[20]
	LIST
	SALL> ;END OF  DEFINITIONS OF VARIABLE TEXT ERRORS

	END