!*** MODULE $GSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Global symbol definition record (GSD)
 ! 
	PARAMETER GSD$K_ENTRIES = '00000001'X	 ! Offset to first entry in record 
	PARAMETER GSD$C_ENTRIES = '00000001'X	 ! Offset to first entry in record 
	PARAMETER GSD$C_PSC = '00000000'X	 ! Psect definition 
	PARAMETER GSD$C_SYM = '00000001'X	 ! Symbol specification 
	PARAMETER GSD$C_EPM = '00000002'X	 ! Entry point and mask definition 
	PARAMETER GSD$C_PRO = '00000003'X	 ! Procedure with formal arguments 
	PARAMETER GSD$C_SYMW = '00000004'X	 ! Symbol specification with word psect 
	PARAMETER GSD$C_EPMW = '00000005'X	 ! Entry point mask with word psect 
	PARAMETER GSD$C_PROW = '00000006'X	 ! Procedure with word psect 
	PARAMETER GSD$C_IDC = '00000007'X	 ! Random entity check 
	PARAMETER GSD$C_ENV = '00000008'X	 ! Define environment 
	PARAMETER GSD$C_LSY = '00000009'X	 ! Local symbol 
	PARAMETER GSD$C_LEPM = '0000000A'X	 ! Local symbol entry point definition 
	PARAMETER GSD$C_LPRO = '0000000B'X	 ! Local symbol procedure definition 
	PARAMETER GSD$C_SPSC = '0000000C'X	 ! Shareable image psect definition 
 !  
	PARAMETER GSD$C_VECTOR_TYPE_INCREMENT = '0000000C'X
	PARAMETER GSD$C_SYMV = '0000000D'X	 ! Vectored (dual-valued) versions of SYM,
	PARAMETER GSD$C_EPMV = '0000000E'X	 ! 	EPM,
	PARAMETER GSD$C_PROV = '0000000F'X	 ! 	PRO
 ! 
	PARAMETER GSD$C_MASK_TYPE_INCREMENT = '0000000F'X
	PARAMETER GSD$C_SYMM = '00000010'X	 ! Masked versions of SYM,
	PARAMETER GSD$C_EPMM = '00000011'X	 !       EPM,
	PARAMETER GSD$C_PROM = '00000012'X	 !       PRO
	PARAMETER GSD$C_MAXRECTYP = '00000012'X	 ! Maximum entry type defined 
	STRUCTURE /GSDEF/
	    BYTE      GSD$B_RECTYP			 ! Record type (OBJ$C_GSD) 
	    BYTE      GSD$B_GSDTYP			 ! Type of entry (first byte of entry) 
 !  Vectored symbol types are (regular + 12).  For example, SYMV = SYM + 12.
 ! 
 !  Mask symbol types are (regular + 15).  For example, SYMM = SYM + 15.
 ! 
	END STRUCTURE	! GSDEF
!DEC$ END OPTIONS