;
; Program Region Data Structure
;
;		INLAND STEEL
;		PROCESS AUTOMATION DEPT.
;		3210 WATLING ST. MS 2-465
;		EAST CHICAGO, IN   46312
;		
; DATE OF LAST UPDATE 2/12/87
;
	.MACRO	PEXDEF
	.SAVE_PSECT
	.PSECT	$$PEX,ABS
PEX$L_MAXMID=2000			; Maximum # of allowed MIDS to connect
.=0
PEX$L_SREG:	.BLKL	1		; Start VA of expanded region
PEX$L_EREG:	.BLKL	1		; End VA of expanded region
PEX$Q_GSINADR:	.BLKL	2		; Input VA of Global Section
PEX$Q_GSRETADR:	.BLKL	2		; Return VA of Global Section
PEX$Q_WORKLINKS:.BLKL	2		; Data links for processing messages
PEX$L_HEADLINK:	.BLKL	1		; Head link for processing messages
PEX$L_PID:	.BLKL	1		; PID of this process
PEX$L_PIDL:	.BLKL	1		; PID length 
PEX$L_IPID:	.BLKL	1		; Index PID of this process
PEX$C_PNAME:	.BLKB	15		; Process name of this process
PEX$L_PNAMEL:	.BLKL	1		; Process name length
PEX$C_ITMLST:	.BLKB	28		; Two-item item list
PEX$Q_IOSB:	.BLKQ	1		; IOSB status block
PEX$L_RSB:	.BLKL	1		; RSB Address from lock
PEX$C_LOCK:	.BLKB	24		; Change lock block
PEX$Q_CLOCK:	.BLKL	2		; Change lock descriptor block
PEX$W_SETMID:	.BLKW	1		; Maximum MIDs allowed as set by caller
PEX$W_CURMID:	.BLKW	1		; Current MIDs connected
PEX$L_EXTHDL:	.BLKL	4		; Exit handler descriptor block
PEX$L_P0VA:	.BLKL	1		; Start VA of P0 work area
					; NOTE: This must follow PEX$L_EXTHDL
PEX$L_STAT:	.BLKL	1		; Status Long word
	PEX$M_RTRFLAG = 1		; Router flag
	PEX$M_INVIDX = 2		; Invalid MID index for specified MID

;
; This area may be lengthened dynamically due to larged MID list,
; therefore, the following MUST be the last in the list.
;
PEX$C_MIDLIST:	.BLKB	MID$K_SIZ	; Connected MID's name
					; The region is expanded for the 
					; number of needed MIDs
$$I=512-.				; HOW MUCH NEEDED TO PAD OUT
PEX$C_REST:	.BLKB	$$I		; Force section to be = 1 block
PEX$K_LEN = .				; Length of PEX area
PEX$L_DEFMID=<$$I+MID$K_SIZ-1>/MID$K_SIZ ; Default # of allowed MIDS to connect
				; Force this to be whatever is left in P0
.=0
	.RESTORE_PSECT
	.ENDM