!*** MODULE $LEPMDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! GSD entry - Module local entry point definition ! PARAMETER LEPM$K_NAME = '0000000F'X PARAMETER LEPM$C_NAME = '0000000F'X STRUCTURE /LEPMDEF/ UNION MAP BYTE LEPM$B_GSDTYP ! Maps over LSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 LEPM$T_START BYTE %FILL END MAP END UNION BYTE LEPM$B_DATYP ! Maps over LSY$B_DATYP INTEGER*2 LEPM$W_FLAGS ! Maps over LSY$W_FLAGS INTEGER*2 LEPM$W_ENVINDX ! Environment index symbol defined in INTEGER*2 LEPM$W_PSINDX ! Maps over LSDF$W_PSINDX INTEGER*4 LEPM$L_ADDRS ! Entry point address, maps ! over LSDF$L_VALUE INTEGER*2 LEPM$W_MASK ! Entry point mask BYTE LEPM$B_NAMLNG ! Length of name CHARACTER*31 LEPM$T_NAME ! Symbol name END STRUCTURE ! LEPMDEF !DEC$ END OPTIONS