;
; QUEUE SECTION FILE HEADER STRUCTURE
;
;
;		INLAND STEEL
;		PROCESS AUTOMATION DEPT.
;		3210 WATLING ST. MS 2-465
;		EAST CHICAGO, IN   46312
;		
; DATE OF LAST UPDATE:  3/3/87
; 	2/7/87- ADDED QHD$L_LKID
;	2/9/87- ADDED QHD$L_LKB
;	2/10/87- ADDED QHD$L_RSB
;	2/16/87- ADDED QHD$C_HASH
;	3/3/87- REPLACED QHD$W_FILL to QHD$W_VERSION
;		Added QHD$$VERSION which reflects the
;		relative compatible version of the queue
;		software.  If the QUEUE_CHKR, the QUEUE
;		etc. do not match, then the queue will not
;		be created.
;	
	.MACRO	QHDDEF
	.SAVE_PSECT
	.PSECT	QHD,ABS
.=0
QHD$L_SIZ:	.BLKL	1	; SIZE OF QUEUE IN 512 BYTE BLOCKS
QHD$Q_UPD:	.BLKQ	1	; QUAD WORD FOR LAST UPDATED TIME STAMP
QHD$L_AID:	.BLKL	1	; NUMBER OF MESSAGES ID'S ALLOCATED
QHD$L_IDC:	.BLKL	1	; ACTUAL NUMBER OF ID'S IN USE OR DEFINED
QHD$L_FREE:	.BLKL	1	; NUMBER OF FREE BLOCKS IN FREE LIST
QHD$Q_FLS:	.BLKQ	1	; FREE LIST OF EMPTY BLOCKS LIST HEAD
				; NOTE: THIS MUST BE QUAD WORD ALIGNED
QHD$L_EFN:	.BLKL	1	; EVENT FLAG TO WAKE UP CHECKPOINT PROCESS
QHD$L_PID:	.BLKL	1	; PID OF REGION CHECKPOINT PROCESS
QHD$L_IPID:	.BLKL	1	; INTERNAL PID OF CHECKPOINT PROCESS
QHD$L_PCB:	.BLKL	1	; PCB OF REGION CHECKPOINT PROCESS
QHD$L_STAT:	.BLKL	1	; Status flags
	QHD$M_LOCK = 1		; MID list is being reorganized
	QHD$M_SHUTDOWN=2	; Queue is being shut down
QHD$L_INSRV:	.BLKL	1	; number of processes currently within sys. srv.
QHD$C_CLOCK:	.BLKB	20	; CHANGE LOCK ASCII NAME
QHD$C_RMBX:	.BLKB	20	; ROUTER MAILBOX ASCII NAME
QHD$C_NODE:	.BLKB	6	; Local node name
QHD$W_VERSION:	.BLKW	1	; QUEUE VERSION NUMBER
QHD$L_LKID:	.BLKL	1	; CHANGE LOCK, LOCK ID
QHD$L_LKB:	.BLKL	1	; LOCK BLOCK ADDRESS
QHD$L_RSB:	.BLKL	1	; RESOURCE BLOCK POINTED TO BY LOCK BLOCK
QHD$C_HASH:	.BLKL	128	; HASH TABLE ENTRIES
$$I=1024-.			; HOW MUCH NEEDED TO PAD OUT
QHD$C_REST:	.BLKB	$$I	; Force section to be = 2 Blocks
QHD$K_SIZ=.
;
QHD$$VERSION=2		; CURRENT VERSION OF QUEUE SOFTWARE
.=0
	.RESTORE_PSECT
	.ENDM