C
C BUFDEF
C 
C THIS FILE DEFINES THE STRUCTURE OF THE MESSAGE BUFFERS USED
C IN ROUTING.   THE BUFFERS ARE PART OF THE ROUTING DATABASE 
C AND POINTED TO BY THE NRB.
C
C
C COPY RIGHT: 
C		INLAND STEEL
C		PROCESS AUTOMATION DEPT.
C		3210 WATLING ST. MS 2-465
C		EAST CHICAGO, IN   46312
C	
C DATE OF LAST UPDATE:  6/30/86
C
	STRUCTURE/BUFDEF/
	  RECORD/IOSTATUS/BUF$Q_STS	! DECNET STATUS BLOCK
	  INTEGER*4 BUF$L_NRB	! LINK TO NRB (READ BUFFER OR
				! MESSAGE ID LIST ENTRY IN NRB)
	  RECORD/MGHDEF/BUF$S_MSG ! MESSAGE
	END STRUCTURE
C
	INTEGER*4 BUF$K_BUFOFF	! OFFSET TO ACTUAL START OF MESSAGE FOR QIO'S
	PARAMETER(BUF$K_BUFOFF=12)
C
C  "HDRDEF"
C
C DEFINE THE STRUCTURE OF THE MESSAGE HEADER. 
C
C THIS IS STRUCTURE CAN BE USED TO FORM A RECORD THAT CAN BE READ 
C FROM THE QUEUE.  IE: CONCATENATE THIS STRUCTURE TO PRECEED
C THE ACTUAL DATA TO BE RETURNED ON A READ_Q.
C
C IE:
C 	STRUCTURE /STEEL_EVENT/
C	   RECORD/HDRDEF/HDR        ! HEADER 
C                               ! --- START OF USER DATA ---
C	   CHARACTER*23 START_BLOW_TIME
C       END STRUCTURE
C
C       RECORD/STEEL_EVENT/MSG_BUF
C
C	INTEGER*4 Q_BLOCK(2)
C	INTEGER*4 RNA_PTR
C	INTEGER*4 SYS_STATUS
C
C       SYS_STATUS=READ_Q(Q_BLOCK,MESSAGE_ID,MSG_BUF,RNA_PTR)
C       IF(.NOT. SYS_STATUS)....
C
C       TYPE *,' START BLOW TIME: ',MSG_BUF.START_BLOW_TIME
C
C 
C
C DATE OF LAST UPDATE:  8/11/86
C
C COPY RIGHT: 
C		INLAND STEEL
C		PROCESS AUTOMATION DEPT.
C		3210 WATLING ST. MS 2-465
C		EAST CHICAGO, IN   46312
C		
	STRUCTURE /HDRDEF/
	  CHARACTER*6  HDR$C_SNM ! ASCII DECNET SOURCE NODE NAME
				 ! (FOR MESSAGES QUEUED WITHIN A NODE
				 !  THIS WILL BE BLANK)
	  CHARACTER*6 HDR$C_DNM  !  DESTINATION DECNET NODE NAME
				 ! FOR MESSAGES QUEUED WITHIN A NODE,
				 ! THIS WILL BE BLANK).
	  INTEGER*4 HDR$Q_OFFQT(2) ! OFF QUEUE TIME (FILLED IN DURING READ)
	  INTEGER*2 HDR$W_TYPE 	   ! TYPE OF MESSAGE 
C
C		0= MESSAGE CAN BE DELETED WHEN QUEUE IS FULL AND THIS IS OLDEST
C	 	1= MESSAGE IS NOT TO BE DELETED  EVEN IF QUEUE IS FULL
C	 	2= IF REMOTE NODE QUEUE IS FULL, THEN DO NOT QUEUE ON 
C		   REMOTE NODE
C
	  INTEGER*4 HDR$Q_ONQT(2)  ! ON QUEUE TIME (FILLED IN WHEN MESSAGE WAS
C				     FIRST WRITTEN TO A QUEUE EITHER LOCALLY
C				     OR ON THE REMOTE QUEUE (IT IS PRESERVED
C				     WHEN REQUEUED ON TARGET NODE)
	  INTEGER*2 HDR$W_LEN	! BYTE COUNT OF MESSAGE DOES NOT INCLUDE HEADER
	  INTEGER*2 HDR$W_QSEQ	! ON QUEUE SEQUENCE NUMBER (0000-HDR$W_MAXSEQ)
	END STRUCTURE
C
C PARAMETERS
C
	INTEGER*4 HDR$K_SIZ	!  MINIMUM MESSAGE SIZE
	PARAMETER (HDR$K_SIZ=34)
	INTEGER*4 HDR$K_MAXSEQ  ! MAXIMUM ON QUEUE SEQUENCE NUMBER
	PARAMETER (HDR$K_MAXSEQ=9999)

c
c Define the message header structure
C
C Copy right:	Inland Steel
c 		Earl Lakia
c		3210 Watling ST.  ms 2-465
c		East Chicago, IN 
c		46312
c
c Date of last update:  8/13/86
c
c
	INTEGER*2	MGH$W_MAXSEQ		! Maximum On queue sequence 
	PARAMETER (MGH$W_MAXSEQ=9999)

	STRUCTURE /MGHDEF/
	  INTEGER*2    MGH$W_LSQ		! LINE SEQUENCE NUMBER
	  INTEGER*4    MGH$L_IDX		! NRBID INDEX, FROM 1 TO
						! NRB$L_IDCNT.
	  CHARACTER*16 MGH$C_MID		! Message ID
	  RECORD /HDRDEF/HDR			! message header
	END STRUCTURE
c
C Define the message ID structure
C
C Copy right:	Inland Steel
c 		Earl Lakia
c		3210 Watling ST.  ms 2-465
c		East Chicago, IN 
c		46312
c
c Date of last update:  2/17/87
c	2/17/87  E. LAKIA- ADDED MID$L_HASH
C
c
	INTEGER*4 MID$K_LEN			! Length of MID area
	PARAMETER (MID$K_LEN=64)
	INTEGER*4 MID$K_SIZ			! Length of MID name
	PARAMETER (MID$K_SIZ=16)

	STRUCTURE /MIDDEF/
	    UNION
		MAP
		    BYTE MIDDEF_ALL(MID$K_LEN)	! Entire buffer
		END MAP
		MAP
	    	    CHARACTER*16 MID$C_MID	! ASCII MESSAGE ID
		    INTEGER*4	MID$L_FLK	! FORWARD LINK TO FIRST MESSAGE IN QUEUE THIS ID
		    INTEGER*4	MID$L_BLK	! BACKWARD LINK TO LAST MESSAGE IN QUEUE THIS ID
		    INTEGER*4	MID$L_RNA	! READ BUT NOT ACKNOWLEGED MESSAGE
		    INTEGER*4	MID$L_BRNA	! RNA Backward pointer
		    INTEGER*2	MID$W_MAX	! MAXIMUM NUMBER OF MESSAGES ALLOWED THIS ID
		    INTEGER*2	MID$W_CNT	! CURRENT NUMBER IN QUEUE THIS MESSAGE ID
		    INTEGER*2	MID$W_QSEQ	! CURRENT ON QUEUE SEQUNECE NUMBER
		    INTEGER*4	MID$L_STAT	! STATUS FLAG WORD ( DEFINITIONS BELOW:)
		    INTEGER*4	MID$L_CPID	! PID LONG WORD OF CONNECTED PROCESS
		    INTEGER*2	MID$W_NVCNT	! NUMBER OF NON-VOLATILE MESSAGE
		    INTEGER*2	MID$W_EFN	! READER'S EFN TO SET IF MID$W_CNT GOES NON-ZERO
		    INTEGER*4	MID$L_PCB	! READER'S PCB
		    INTEGER*4	MID$L_IPID	! READER'S INDEX PID
		    INTEGER*2   MID$W_FILL	! FILL 
		    INTEGER*4   MID$L_HASH	! LINK TO NEXT MID IN HASH CHAIN
		END MAP
	    END UNION
	END STRUCTURE
C
C Definition for status flags
C
	INTEGER*4 MID$M_RQF 	! REMOTE QUUEE FOR THIS MESSAGE ID IS FULL
	PARAMETER (MID$M_RQF = 1)
	INTEGER*4 MID$M_DEL	! This MID has been deleted
	PARAMETER (MID$M_DEL = 4)
	INTEGER*4 MID$M_IOPND	! I/O PENDING FOR THIS ID TO A REMOTE NODE
	PARAMETER (MID$M_IOPND = 8)
	INTEGER*4 MID$M_ACKPND	!  ACKNOWLEGE FROM A REMOTE NODE IS PENDING
	PARAMETER (MID$M_ACKPND=16)
	INTEGER*4 MID$M_NOROUTE	! THIS MID IS NOT ROUTEABLE
	PARAMETER (MID$M_NOROUTE= 32)
C
C STRUCTURE PLACED INTO THE QUEUE WHEN A ROUTING NODE
C AVAILABILITY STATUS CHANGES.  THE RECEIVER MUST INCLUDE
C THE HEADER OF THE MESSAGE TOO.
C
	INTEGER*4 NETMSGLTH	! LENGTH OF THIS STRUCTURE
	PARAMETER (NETMSGLTH=20)
C
	CHARACTER*16 NET_MSG_ID	! MESSAGE ID OF THE NET MESSAGE
	PARAMETER (NET_MSG_ID='NET_STATUS')
	STRUCTURE/NETMSG/
		CHARACTER*6 PRINODE	! FROM ROUTING DATABASE
		CHARACTER*6 SECNODE	! FROM ROUTING DATABASE
		INTEGER*2   NETSTATUS	! NETWORK STATUS (FROM DECNET)
		INTEGER*2   UPDOWN	! FLAG SHOWING (0= DOWN, 1=UP)
		INTEGER*4   FLAGS	! FLAG WORD FROM NRB 
	END STRUCTURE
C
C NRBDEF.TXT
C
C NODE ROUTING BLOCK WITHIN ROUTING DATABASE WITHIN THE
C MA_ROUTER PROCESS
C
C
C COPY RIGHT: 
C		INLAND STEEL
C		PROCESS AUTOMATION DEPT.
C		3210 WATLING ST. MS 2-465
C		EAST CHICAGO, IN   46312
C	
C DATE OF LAST UPDATE:   2/23/87
C
C MODIFICATION HISTORY:
C  2/23/87- E. LAKIA  ADDED NRB$M_PRILOG
C
C
	INTEGER*4 NET_MBX_CNT		! NUMBER OF LETTERS
	PARAMETER (NET_MBX_CNT=20)
C
	INTEGER*4 NET_MBX_SIZE		! SIZE OF EACH NETWORK LETTER
	PARAMETER(NET_MBX_SIZE=128)
C
	STRUCTURE/NRBDEF/
	  CHARACTER*6 NRB$C_PRINODE	! PRIMARY DECNET NODE NAME NODE
	  CHARACTER*6 NRB$C_SECNODE	! SECONDARY DECNET NODE NAME
	  INTEGER*4 NRB$Q_NCBDES(2)	! NCB DESCRIPTOR
	  CHARACTER*8 NRB$C_CURNODE 	! ACTUAL CURRENT NODE PLUS DOUBLE COLON
	  CHARACTER*60 NRB$C_ACC 	! DECNET ACCESS CONTROL STRING (LESS NODE NAME)
	  CHARACTER*100 NRB$C_REMNCB	! REMOTE NODE REQUEST NCB, IE:
					!  B4750B::"0=LAKIA      "
	  RECORD/IOSTATUS/NRB$Q_NETSTS	! NETWORK STATUS BLOCK, LINK CONNECTIONS, ETC.
	  RECORD/IOSTATUS/NRB$Q_OLDSTS	! PREVIOUS NETWORK STATUS (SO WON'T LOG FOREVER)
	  RECORD/IOSTATUS/NRB$Q_MBXSTS	! NETWORK MAILBOX STATUS
	  INTEGER*4 NRB$L_FLAGS 	! FLAG WORDS
	  INTEGER*4 NRB$L_CHAN		! CHANNEL ASSIGNED TO REMOTE NODE FOR WRITES
	  INTEGER*4 NRB$L_NETMBX	! CHANNEL ASSIGNED TO NET MBX
	  INTEGER*2 NRB$W_LNKSEQO	! LINK SEQUENCE NUMBER OUTBOUND
	  INTEGER*2 NRB$W_LNKSEQI	! LINK SEQUENCE NUMBER INBOUND
 	  UNION
	  MAP
	    BYTE NRB$B_NETMSG(NET_MBX_SIZE)	! NETWORK MESSAGE
	  END MAP
	  MAP
	    INTEGER*2 NRB$W_NETMSG(NET_MBX_SIZE/2)
	  END MAP
	  MAP
	    INTEGER*4 NRB$L_NETMSG(NET_MBX_SIZE/4)
	  END MAP
	  END UNION
	  INTEGER*4 NRB$L_UNSBUF ! UNSOLICITED READ BUFFER
	  INTEGER*4 NRB$L_UNSSIZ ! SIZE OF THE UNSOLICITED BUFFER
	  INTEGER*4 NRB$L_LASTID   ! LAST ID SCANNED FOR BUFFER FREE
	  INTEGER*4 NRB$L_IDCNT  ! NUMBER OF MESSAGE ID'S ROUTED TO THIS NODE

	END STRUCTURE
C
	INTEGER*4 NRB$L_SIZ
	PARAMETER (NRB$L_SIZ=372)	! LESS BUFFERS, ETC.
C
C DEFINITIONS FOR FLAG WORD
C
	INTEGER*4 NRB$M_DWN	! REMOTE LINK DOWN
	PARAMETER (NRB$M_DWN = 1)
	INTEGER*4 NRB$M_RTM	! REMOTE LINK RETRY TIMER ACTIVE
	PARAMETER (NRB$M_RTM = 2) 
	INTEGER*4 NRB$M_ATM	! LOCAL CONNECT FOR REMOTE NODE IN PROGRESS
	PARAMETER (NRB$M_ATM=4)
	INTEGER*4 NRB$M_DRQ 	! LOCAL DISCONECT FROM REMOTE NODE IN PROGRESS
	PARAMETER (NRB$M_DRQ=8)
	INTEGER*4 NRB$M_CON	! OUTBOUND REMOTE LINK ESTABLISHED AND CONNECTED
	PARAMETER (NRB$M_CON=16)
	INTEGER*4 NRB$M_RNRQC	! REMOTE NODE REQUESTING CONNECTION, USE
				! REMOTE NCB
	PARAMETER (NRB$M_RNRQC=32)
	INTEGER*4 NRB$M_SEC	! SECONDARY NODE NAME IN USE
	PARAMETER (NRB$M_SEC = 64)
	INTEGER*4 NRB$M_LNKAVL	! LOGICAL LINK ESTABLISHED WITH REMOTE NODE
	PARAMETER (NRB$M_LNKAVL=128)
	INTEGER*4 NRB$M_CONTIMER  ! CONNECT TIMER ACTIVE
	PARAMETER (NRB$M_CONTIMER=256)
	INTEGER*4 NRB$M_SHUTDOWN  ! ROUTING SHUTDOWN IN PROGRESS
	PARAMETER (NRB$M_SHUTDOWN=512)
	INTEGER*4 NRB$M_NOMSG	! NO OUTBOUND MESSAGES ROUTED BY THIS NODE
	PARAMETER (NRB$M_NOMSG=1024)
	INTEGER*4 NRB$M_PRILOG
	PARAMETER (NRB$M_PRILOG=2048) ! PRIMARY NODE NAME IS A LOGICAL NODE NAME
C
C THIS INCLUDE FILE DEFINES THE MESSAGE ID
C LIST STRUCTURE FOR THE ROUTING DATABASE
C PER EACH NODE DEFINITION (NRB).
C
C THIS LIST IS AN EXTENSION OF THE NRB.
C
C DATE OF LAST UPDATE:  8/26/86
C
	STRUCTURE/NRBID/
	  CHARACTER*16 NRBID$C_MSGID	! ASCII MESSAGE ID
	  INTEGER*4 NRBID$L_LHD		! INDEX TO LIST HEAD FOR THIS ID
	  INTEGER*4 NRBID$L_RNA		! READ BUT NOT ACKNOWLEGED INDEX
	  INTEGER*4 NRBID$L_IDX		! MESSAGE ID INDEX
	END STRUCTURE
C
	INTEGER*4 NRBID$L_SIZE
	PARAMETER (NRBID$L_SIZE=28)	! SIZE OF STRUCTURE
c
c Define the Expanded Region structure
C
C Copy right	Inland Steel
c 		Paul Vestuto
c		3210 Watling ST.  ms 2-465
c		East Chicago, IN 
c		46312
c
c Date of last update  2/12/87
c
c
	INTEGER*4 PEX$K_LEN
	PARAMETER (PEX$K_LEN=512) 		! Length of first block

	INTEGER*4 PEX$L_DEFMID			! Default number of allowed
	PARAMETER (PEX$L_DEFMID=21)		! MIDs to connect to
						! (CALCULATED IN PEXDEF.MAR)

	STRUCTURE /PEXDEF/
	    UNION
	        MAP 
		    BYTE PEXDEF_ALL(PEX$K_LEN)	! Entire buffer
		END MAP
		MAP 
		    INTEGER*4 PEX$L_SREG	! Start VA of expanded region
		    INTEGER*4 PEX$L_EREG	! End VA of expanded region
		    INTEGER*4 PEX$Q_GSINADR(2)	! Input VA of Global Section
		    INTEGER*4 PEX$Q_GSRETADR(2)	! Return VA of Global Section
		    INTEGER*4 PEX$Q_WORKLINKS(2)! Data link for processing message
		    INTEGER*4 PEX$L_HEADLINK	! Head link fo processing messages
		    INTEGER*4 PEX$L_PID		! PID of this process
		    INTEGER*4 PEX$L_PIDL	! PID length 
		    INTEGER*4 PEX$L_IPID	! Index PID of this process
		    CHARACTER*15 PEX$C_PNAME	! Process name of this process
		    INTEGER*4 PEX$L_PNAMEL	! Process name length
		    BYTE PEX$C_ITMLST(28)	! Two-item item list
		    INTEGER*4 PEX$Q_IOSB(2)	! IOSB status block
		    INTEGER*4 PEX$L_RSB		! RSB Address from lock
		    BYTE PEX$C_LOCK(24)		! Change lock block
		    INTEGER*4 PEX$Q_CLOCK(2)	! Change lock descriptor block
		    INTEGER*2 PEX$W_SETMID	! Maximum MIDs allowed as set by user
		    INTEGER*2 PEX$W_CURMID	! Current MIDs connected
		    INTEGER*4 PEX$L_EXTHDL(4)	! Exit handler descriptor block
		    INTEGER*4 PEX$L_P0VA	! Global section VA 
						! NOTE: MUST FOLLOW PEX$L_EXTHDL
		    INTEGER*4 PEX$L_STAT	! Status Long word
c
c The following MUST be the last in the list since the region may
c be allocated larger to accomodate a larger number of attached Message IDs
c
		    CHARACTER*16 PEX$C_MIDLIST(PEX$L_DEFMID)
						! Connected MIDs and EFNs
C ***	The region will expand here if more MIDs are required ***
		END MAP
	    END UNION
	END STRUCTURE
C
C Definition for status flags
C
	INTEGER*4 PEX$M_RTRFLAG		! Router flag
	PARAMETER (PEX$M_RTRFLAG = 1)
	INTEGER*4 PEX$M_INVIDX		! Invalid MID index for specified MID
	PARAMETER (PEX$M_INVIDX = 2)
C
C
C QEXDEF- Macro
C This macro defines the structure needed for calling the
C ATTACH_QE (attach queue with an exit handler).
C 
C Author:  Earl Lakia
C
C Date of last update:  2/20/87
C
	STRUCTURE/QEXDEF/
		INTEGER*4 QEX$Q_QBLK(2) 	! Q_BLOCK
		INTEGER*4 QEX$C_DESBLK(5)	!  EXIT HANDLER DESCRIPTOR BLOCK
	END STRUCTURE
C
	INTEGER*4 QEX$K_SIZ
	PARAMETER(QEX$K_SIZ=28)			! Size of this structure
c
C Define the queue section file header
C
C Copy right:	Inland Steel
c 		Earl Lakia
c		3210 Watling ST.  ms 2-465
c		East Chicago, IN 
c		46312
c
c Date of last update:  2/10/87
C	2/7/87 E. LAKIA  ADDED QHD$L_LKID
C	2/8/87 E. LAKIA  ADDED QHD$L_LKB
C	2/10/87 E. LAKIA ADDED QHD$L_RSB
c	2/16/87 E. LAKIA ADDED QHD$C_HASH
c
	INTEGER*4	QHD$K_SIZ
	PARAMETER (QHD$K_SIZ = 1024)	   ! Length of entire header
					   ! 2 BLOCKS (1024 BYTES)

	STRUCTURE /QHDDEF/
	    UNION
		MAP
		  BYTE		QHDDEF_ALL(QHD$K_SIZ)
		END MAP
		MAP
		  INTEGER*4	QHD$L_SIZ   ! Size of queue in 512 byte blocks
		  REAL*8	QHD$Q_UPD   ! Last updated time stamp
		  INTEGER*4	QHD$L_AID   ! Number of allocated MID
		  INTEGER*4	QHD$L_IDC   ! Actual current number ID's active
		  INTEGER*4	QHD$L_FREE  ! Number of free blocks in free list
		  INTEGER*4	QHD$Q_FLS(2)! Free-list list head
		  INTEGER*4	QHD$L_EFN   ! EFN OF CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_PID   ! PID OF REGION CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_IPID  ! IPID OF REGION CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_PCB   ! PCB OF REGION CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_STAT  ! STATUS FLAGS
		  INTEGER*4 	QHD$L_INSRV ! NUMBER OF PROCESSES IN SYS. SRV.
		  BYTE		CLOCK_CNT   ! Count of change lock name
		  CHARACTER*19	QHD$C_CLOCK ! CHANGE LOCK ASCII NAME
		  BYTE		RMBX_CNT    ! Count of router mailbox name
		  CHARACTER*19	QHD$C_RMBX  ! ROUTER MAILBOX ASCII NAME
		  CHARACTER*6	QHD$C_NODE  ! LOCAL NODE NAME
		  INTEGER*2	QHD$W_FILL  ! FILL TO MAKE FOLLOWING LONG WORD
		  INTEGER*4	QHD$L_LKID  ! LOCK ID OF CHANGE LOCK
		  INTEGER*4 	QHD$L_LKB   ! ADDRESS OF LOCK BLOCK
		  INTEGER*4 	QHD$L_RSB   ! RSB OF LOCK
		  INTEGER*4 	QHD$C_HASH(128) ! HAS ENTRIES
		END MAP
	    END UNION
	END STRUCTURE

C
C Definition for status flags
C
	INTEGER*4 QHD$M_LOCK	! MID LIST BEING REORGANIZED
	PARAMETER (QHD$M_LOCK = 1)
c
c MESSAGE STRUCTURE AS STORED WITHIN THE QUEUE MESSAGE BLOCKS
c
c
c COPY RIGHT: 
c		INLAND STEEL
c		PROCESS AUTOMATION DEPT.
c		3210 WATLING ST. MS 2-465
c		EAST CHICAGO, IN   46312
c		
c DATE OF LAST UPDATE:  8/12/86
c
	INTEGER*4 QST$K_MSGL			! Length of data area
	PARAMETER (QST$K_MSGL=504)
	INTEGER*4 QS2$K_MSGL			! Length of data area in header
	PARAMETER (QS2$K_MSGL=462)
	INTEGER*4 QST$K_SIZ			! Length of QST area
	PARAMETER (QST$K_SIZ=512)
	STRUCTURE /QSTDEF/
	    UNION
		MAP
		    BYTE QSTDEF_ALL(QST$K_SIZ)	! Entire buffer
		END MAP
		MAP
		    INTEGER*4	QS2$L_FLNK	! Foward link
		    INTEGER*4	QS2$L_BLNK	! Backward link
		    INTEGER*4	QS2$L_DLNK(2)	! Data links
		    BYTE	QS2$C_HDR(HDR$K_SIZ)	! Header
		    BYTE	QS2$C_MSG(QS2$K_MSGL)	! Data in block 1
		END MAP
		MAP
		    INTEGER*4	QST$L_FLNK	! Foward link
		    INTEGER*4	QST$L_BLNK	! Backward link
		    BYTE	QST$C_MSG(QST$K_MSGL)	! Data in blocks 2-N
		END MAP
	    END UNION
	END STRUCTURE
C
C
C Declare the common routines
C
	INTEGER*4 ATTACH_Q
	INTEGER*4 READ_Q
	INTEGER*4 WRITE_Q
	INTEGER*4 CONNECT_READ
	INTEGER*4 GET_MID_INDEX
	INTEGER*4 ACK_READ
	INTEGER*4 DETACH_Q
	INTEGER*4 BACKUP_RNA
	INTEGER*4 WRITE_QREC
	INTEGER*4 READ_QREC
	INTEGER*4 SHUTDOWN_Q
	INTEGER*4 DISPLAY_MESSAGE_ID
	INTEGER*4 DISPLAY_REGION
	INTEGER*4 DISPLAY_QUEUE_HEAD
	INTEGER*4 ATTACH_QE
	INTEGER*4 RTR_WRITE_Q
	INTEGER*4 ADD_MESSAGE_ID
	INTEGER*4 CHANGE_MESSAGE_ID
	INTEGER*4 DELETE_MESSAGE_ID
	INTEGER*4 FIND_Q_PROCESSES
C
C QUEMSG MESSAGE AND ERROR STATUS FORTRAN DEFINITION FILE
C CREATED ON: 11-MAR-1987 08:29:14.28
C
	INTEGER*4 QUE_MIDDELETED
	EXTERNAL QUE_MIDDELETED
	INTEGER*4 QUE_ALRATT
	EXTERNAL QUE_ALRATT
	INTEGER*4 QUE_MIDLISTFULL
	EXTERNAL QUE_MIDLISTFULL
	INTEGER*4 QUE_BADLOCK
	EXTERNAL QUE_BADLOCK
	INTEGER*4 QUE_MIDMAX
	EXTERNAL QUE_MIDMAX
	INTEGER*4 QUE_BUFTOOSMALL
	EXTERNAL QUE_BUFTOOSMALL
	INTEGER*4 QUE_MIDNOTATT
	EXTERNAL QUE_MIDNOTATT
	INTEGER*4 QUE_ESSACCVIO
	EXTERNAL QUE_ESSACCVIO
	INTEGER*4 QUE_MIDNOTFOUND
	EXTERNAL QUE_MIDNOTFOUND
	INTEGER*4 QUE_ESSINSFARG
	EXTERNAL QUE_ESSINSFARG
	INTEGER*4 QUE_MIDNOTUNIQUE
	EXTERNAL QUE_MIDNOTUNIQUE
	INTEGER*4 QUE_GTRMAX
	EXTERNAL QUE_GTRMAX
	INTEGER*4 QUE_NOCHK
	EXTERNAL QUE_NOCHK
	INTEGER*4 QUE_HASHCORUPT
	EXTERNAL QUE_HASHCORUPT
	INTEGER*4 QUE_NOMESS
	EXTERNAL QUE_NOMESS
	INTEGER*4 QUE_HEADNOTREM
	EXTERNAL QUE_HEADNOTREM
	INTEGER*4 QUE_NOPRIV
	EXTERNAL QUE_NOPRIV
	INTEGER*4 QUE_IDXOOR
	EXTERNAL QUE_IDXOOR
	INTEGER*4 QUE_NORNAMESS
	EXTERNAL QUE_NORNAMESS
	INTEGER*4 QUE_INSFARG
	EXTERNAL QUE_INSFARG
	INTEGER*4 QUE_NOTINITIALIZED
	EXTERNAL QUE_NOTINITIALIZED
	INTEGER*4 QUE_INSFREE
	EXTERNAL QUE_INSFREE
	INTEGER*4 QUE_RNAMESS
	EXTERNAL QUE_RNAMESS
	INTEGER*4 QUE_INVARG
	EXTERNAL QUE_INVARG
	INTEGER*4 QUE_RSBBAD
	EXTERNAL QUE_RSBBAD
	INTEGER*4 QUE_INVFREE
	EXTERNAL QUE_INVFREE
	INTEGER*4 QUE_SHUTDOWN
	EXTERNAL QUE_SHUTDOWN
	INTEGER*4 QUE_INVIDX
	EXTERNAL QUE_INVIDX
	INTEGER*4 QUE_SUCCESS
	EXTERNAL QUE_SUCCESS
	INTEGER*4 QUE_INVRNA
	EXTERNAL QUE_INVRNA
	INTEGER*4 QUE_TOOMANYPCBS
	EXTERNAL QUE_TOOMANYPCBS
	INTEGER*4 QUE_KSSACCVIO
	EXTERNAL QUE_KSSACCVIO
	INTEGER*4 QUE_KSSINSFARG
	EXTERNAL QUE_KSSINSFARG
	INTEGER*4 QUE_MAXMID
	EXTERNAL QUE_MAXMID
	INTEGER*4 QUE_MIDATTACHED
	EXTERNAL QUE_MIDATTACHED
C
C QUEMSGVAL MESSAGE AND ERROR STATUS FORTRAN DEFINITION FILE
C CREATED ON: 11-MAR-1987 08:29:13.82
C
	INTEGER*4 QUE_MIDDELETED
	PARAMETER(QUE_MIDDELETED='080980EA'X)
	INTEGER*4 QUE_ALRATT
	PARAMETER(QUE_ALRATT='08098020'X)
	INTEGER*4 QUE_MIDLISTFULL
	PARAMETER(QUE_MIDLISTFULL='08098032'X)
	INTEGER*4 QUE_BADLOCK
	PARAMETER(QUE_BADLOCK='080980CA'X)
	INTEGER*4 QUE_MIDMAX
	PARAMETER(QUE_MIDMAX='0809809A'X)
	INTEGER*4 QUE_BUFTOOSMALL
	PARAMETER(QUE_BUFTOOSMALL='08098062'X)
	INTEGER*4 QUE_MIDNOTATT
	PARAMETER(QUE_MIDNOTATT='08098092'X)
	INTEGER*4 QUE_ESSACCVIO
	PARAMETER(QUE_ESSACCVIO='080980FA'X)
	INTEGER*4 QUE_MIDNOTFOUND
	PARAMETER(QUE_MIDNOTFOUND='0809803A'X)
	INTEGER*4 QUE_ESSINSFARG
	PARAMETER(QUE_ESSINSFARG='0809810A'X)
	INTEGER*4 QUE_MIDNOTUNIQUE
	PARAMETER(QUE_MIDNOTUNIQUE='0809802A'X)
	INTEGER*4 QUE_GTRMAX
	PARAMETER(QUE_GTRMAX='080980B2'X)
	INTEGER*4 QUE_NOCHK
	PARAMETER(QUE_NOCHK='080980BA'X)
	INTEGER*4 QUE_HASHCORUPT
	PARAMETER(QUE_HASHCORUPT='080980DA'X)
	INTEGER*4 QUE_NOMESS
	PARAMETER(QUE_NOMESS='08098010'X)
	INTEGER*4 QUE_HEADNOTREM
	PARAMETER(QUE_HEADNOTREM='080980AA'X)
	INTEGER*4 QUE_NOPRIV
	PARAMETER(QUE_NOPRIV='080980E2'X)
	INTEGER*4 QUE_IDXOOR
	PARAMETER(QUE_IDXOOR='080980C2'X)
	INTEGER*4 QUE_NORNAMESS
	PARAMETER(QUE_NORNAMESS='08098072'X)
	INTEGER*4 QUE_INSFARG
	PARAMETER(QUE_INSFARG='08098042'X)
	INTEGER*4 QUE_NOTINITIALIZED
	PARAMETER(QUE_NOTINITIALIZED='08098052'X)
	INTEGER*4 QUE_INSFREE
	PARAMETER(QUE_INSFREE='08098082'X)
	INTEGER*4 QUE_RNAMESS
	PARAMETER(QUE_RNAMESS='0809806A'X)
	INTEGER*4 QUE_INVARG
	PARAMETER(QUE_INVARG='0809804A'X)
	INTEGER*4 QUE_RSBBAD
	PARAMETER(QUE_RSBBAD='0809811A'X)
	INTEGER*4 QUE_INVFREE
	PARAMETER(QUE_INVFREE='0809808A'X)
	INTEGER*4 QUE_SHUTDOWN
	PARAMETER(QUE_SHUTDOWN='08098112'X)
	INTEGER*4 QUE_INVIDX
	PARAMETER(QUE_INVIDX='08098018'X)
	INTEGER*4 QUE_SUCCESS
	PARAMETER(QUE_SUCCESS='08098009'X)
	INTEGER*4 QUE_INVRNA
	PARAMETER(QUE_INVRNA='0809807A'X)
	INTEGER*4 QUE_TOOMANYPCBS
	PARAMETER(QUE_TOOMANYPCBS='080980D2'X)
	INTEGER*4 QUE_KSSACCVIO
	PARAMETER(QUE_KSSACCVIO='080980F2'X)
	INTEGER*4 QUE_KSSINSFARG
	PARAMETER(QUE_KSSINSFARG='08098102'X)
	INTEGER*4 QUE_MAXMID
	PARAMETER(QUE_MAXMID='080980A2'X)
	INTEGER*4 QUE_MIDATTACHED
	PARAMETER(QUE_MIDATTACHED='0809805A'X)
C
C RSPBUF
C 
C THIS FILE DEFINES THE STRUCTURE OF THE RESPONSE BUFFER
C THAT IS STORED IN THE ROUTING DATABASE.
C
C COPY RIGHT: 
C		INLAND STEEL
C		PROCESS AUTOMATION DEPT.
C		3210 WATLING ST. MS 2-465
C		EAST CHICAGO, IN   46312
C	
C DATE OF LAST UPDATE:  7/15/86
C
	STRUCTURE/RSPBUF/
	  RECORD/IOSTATUS/RSP$Q_STS	! DECNET STATUS BLOCK
	  INTEGER*4 RSP$L_NRB	! LINK TO NRB (READ BUFFER OR
				! MESSAGE ID LIST ENTRY IN NRB)
	  INTEGER*4 RSP$L_INDEX	! INDEX OF THIS BUFFER (USED FOR DEALLOCATION)
	  RECORD/MGHDEF/RSP$S_MSG ! MESSAGE  (HOWEVER, NOT ALL IS USED)
	END STRUCTURE
!
! RSPDEF
! 	This is a definition of the response buffer description
! within the MA_ROUTER'S ROUTING DATABASE.
!
! 
! COPY RIGHT: 
!		INLAND STEEL
!		PROCESS AUTOMATION DEPT.
!		3210 WATLING ST. MS 2-465
!		EAST CHICAGO, IN   46312
!	
! DATE OF LAST UPDATE:  7/25/86
!
	STRUCTURE /RSPDEF/
	  RECORD/IOSTATUS/RSP$Q_STS	! I/O STATUS BLOCK
	  INTEGER*4 RSP$L_NRB		! LINK TO NRB THIS NODE
	  INTEGER*4 RSP$L_BUFIDX	! INDEX TO RESPONSE BUFFER LIST
	  RECORD/MGHDEF/RSP$S_MSG	! MESSAGE
	  INTEGER*4 RSP$S_RESP		! RESPONSE INFORMATION
	END STRUCTURE
C
	INTEGER*4 RESP_BUF_SIZE
	PARAMETER (RESP_BUF_SIZE=32)	! NOT SURE OF SIZE????
C
C RSPLST
C 
C RESPONSE BUFFER LIST HEAD WITHIN THE ROUTING DATABASE
C
C  	NODE: RSP_COUNT is located in MA_ROUTER common
c	      which is initialized from the routing database
C	      and contains the number of response buffers
c             allocated.
c		ie: record/rsplst/rsplst(rsp_count)
c
C DATE OF LAST UPDATE:  7/15/86
C
	STRUCTURE/RSPLST/
	   INTEGER*4 RSP$B_USE	! IN USE FLAG
	   INTEGER*4 RSP$L_ADD	! address of BUFFER
	END STRUCTURE
C