!*** MODULE $GPSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  GSD entry - P-section definition
 ! 
	PARAMETER GPS$M_PIC = '00000001'X
	PARAMETER GPS$M_LIB = '00000002'X
	PARAMETER GPS$M_OVR = '00000004'X
	PARAMETER GPS$M_REL = '00000008'X
	PARAMETER GPS$M_GBL = '00000010'X
	PARAMETER GPS$M_SHR = '00000020'X
	PARAMETER GPS$M_EXE = '00000040'X
	PARAMETER GPS$M_RD = '00000080'X
	PARAMETER GPS$M_WRT = '00000100'X
	PARAMETER GPS$M_VEC = '00000200'X
	PARAMETER GPS$M_NOMOD = '00000400'X
	PARAMETER GPS$M_COM = '00000800'X
	PARAMETER GPS$K_NAME = '00000009'X
	PARAMETER GPS$C_NAME = '00000009'X
	STRUCTURE /GPSDEF/
	    UNION
	        MAP
	        BYTE      GPS$B_GSDTYP			 ! Typ field 
	        END MAP
	        MAP
	            ! unsupported type CHARACTER*0 GPS$T_START
	            BYTE      %FILL
	        END MAP
	    END UNION
	    BYTE      GPS$B_ALIGN			 ! P-sect alignment 
	    UNION
	        MAP
	        INTEGER*2 GPS$W_FLAGS			 ! P-sect flags 
	        END MAP
	        MAP
	            PARAMETER GPS$S_PIC = 1
	            PARAMETER GPS$V_PIC = 0			 ! Position independent 
	            PARAMETER GPS$S_LIB = 1
	            PARAMETER GPS$V_LIB = 1			 ! From a shareable image 
	            PARAMETER GPS$S_OVR = 1
	            PARAMETER GPS$V_OVR = 2			 ! Overlaid memory allocation 
	            PARAMETER GPS$S_REL = 1
	            PARAMETER GPS$V_REL = 3			 ! Relocatable 
	            PARAMETER GPS$S_GBL = 1
	            PARAMETER GPS$V_GBL = 4			 ! Global scope 
	            PARAMETER GPS$S_SHR = 1
	            PARAMETER GPS$V_SHR = 5			 ! Shareable 
	            PARAMETER GPS$S_EXE = 1
	            PARAMETER GPS$V_EXE = 6			 ! Executable 
	            PARAMETER GPS$S_RD = 1
	            PARAMETER GPS$V_RD = 7			 ! Readable 
	            PARAMETER GPS$S_WRT = 1
	            PARAMETER GPS$V_WRT = 8			 ! Writeable 
	            PARAMETER GPS$S_VEC = 1
	            PARAMETER GPS$V_VEC = 9			 ! Vector psect 
	            PARAMETER GPS$S_NOMOD = 1
	            PARAMETER GPS$V_NOMOD = 10		 ! Not stored into
	            PARAMETER GPS$S_COM = 1
	            PARAMETER GPS$V_COM = 11		 ! Associated with COMM sym
	        BYTE %FILL (2)
	        END MAP
	    END UNION
	    INTEGER*4 GPS$L_ALLOC			 ! Length of this contribution 
	    BYTE      GPS$B_NAMLNG			 ! Length of p-sect name 
	    CHARACTER*31 GPS$T_NAME			 ! Name field 
	END STRUCTURE	! GPSDEF
!DEC$ END OPTIONS