c
c Define the Expanded Region structure
C
C 		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