!*** MODULE $EPMVDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! GSD entry - Entry point definition, vectored symbols ! PARAMETER EPMV$K_NAME = '00000010'X PARAMETER EPMV$C_NAME = '00000010'X STRUCTURE /EPMVDEF/ UNION MAP BYTE EPMV$B_GSDTYP ! Maps over GSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 EPMV$T_START BYTE %FILL END MAP END UNION BYTE EPMV$B_DATYP ! Maps over GSY$B_DATYP INTEGER*2 EPMV$W_FLAGS ! Maps over GSY$W_FLAGS BYTE EPMV$B_PSINDX ! Maps over SDF$B_PSINDX INTEGER*4 EPMV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE INTEGER*4 EPMV$L_VECTOR ! Vectored entry point address INTEGER*2 EPMV$W_MASK ! Entry point mask BYTE EPMV$B_NAMLNG ! Length of name CHARACTER*31 EPMV$T_NAME ! Symbol name END STRUCTURE ! EPMVDEF !DEC$ END OPTIONS