! ! **************************************************************************** ! * * ! * Copyright (c) 1998 * ! * by DIGITAL Equipment Corporation, Maynard, Mass. * ! * All rights reserved. * ! * * ! * This software is furnished under a license and may be used and copied * ! * only in accordance with the terms of such license and with the * ! * inclusion of the above copyright notice. This software or any other * ! * copies thereof may not be provided or otherwise made available to any * ! * other person. No title to and ownership of the software is hereby * ! * transferred. * ! * * ! * The information in this software is subject to change without notice * ! * and should not be construed as a commitment by DIGITAL Equipment * ! * Corporation. * ! * * ! * DIGITAL assumes no responsibility for the use or reliability of its * ! * software on equipment which is not supplied by DIGITAL. * ! * * ! ******************************************************************************************************************************** ! Created: 8-JUN-1998 10:33:23 by OpenVMS SDL EV1-53 ! Source: 8-JUN-1998 10:32:48 MAWK$DKA300:[ARSENAULT.EVMS.CODE]ALPHA_DSTRECRD ! ******************************************************************************************************************************** !*** MODULE ALPHA_DSTRECRDS *** FIELD DBG$DMT_PSECT_FIELDSET = SET dbg$l_dmt_psect_start = [0,0,32,0], dbg$l_dmt_psect_length = [4,0,32,0] TES; literal S_DBG$DMT_PSECT = 8; MACRO DBG$DMT_PSECT = BLOCK [S_DBG$DMT_PSECT,byte] FIELD (DBG$DMT_PSECT_FIELDSET) %; literal DBG$K_DMT_PSECT_SIZE = 8; FIELD DBG$DMT_HEADER_FIELDSET = SET dbg$l_dmt_modbeg = [0,0,32,0], dbg$l_dmt_dst_size = [4,0,32,0], dbg$w_dmt_psect_count = [8,0,16,0], dbg$w_dmt_mbz = [10,0,16,0] TES; literal S_DBG$DMT_HEADER = 12; MACRO DBG$DMT_HEADER = BLOCK [S_DBG$DMT_HEADER,byte] FIELD (DBG$DMT_HEADER_FIELDSET) %; literal DBG$K_DMT_HEADER_SIZE = 12; MACRO dbg$a_dmt_psect_base = DBG$K_DMT_HEADER_SIZE, 0, 0, 0%; macro DST$DTYPE = 0,0,16,0 %; literal DSC$K_DTYPE_LOWEST = 1; literal DSC$K_DTYPE_HIGHEST = 39; literal DSC$K_DTYPE_TF = 40; literal DSC$K_DTYPE_SV = 41; literal DSC$K_DTYPE_SVU = 42; literal DSC$K_DTYPE_FIXED = 43; literal DSC$K_DTYPE_TASK = 44; literal DSC$K_DTYPE_AC = 45; literal DSC$K_DTYPE_AZ = 46; literal DSC$K_DTYPE_M68_S = 47; literal DSC$K_DTYPE_M68_D = 48; literal DSC$K_DTYPE_M68_X = 49; literal DSC$K_DTYPE_1750_S = 50; literal DSC$K_DTYPE_1750_X = 51; literal DBG$K_MINIMUM_DTYPE = 0; literal DBG$K_MAXIMUM_DTYPE = 58; literal DSC$K_DTYPE_LITERAL = 191; literal DBG$K_DTYPE_AD = 192; literal DST$K_BLI = 0; literal DST$K_LOWEST = 116; literal DST$K_SYMBOL_FIXUP_64 = 116; literal DST$K_FIXUP_64 = 117; literal DST$K_DIS_RANGE = 118; literal DST$K_PROLOG_LIST = 119; literal DST$K_RTN_UNALLOC = 120; literal DST$K_SYMBOL_FIXUP = 121; literal DST$K_BASE_CLASS = 122; literal DST$K_TEMP_DECL = 123; literal DST$K_VIRT_FUNC = 124; literal DST$K_EXCEPTION = 125; literal DST$K_RETURN = 126; literal DST$K_EPILOG = 127; literal DST$K_REG_SAVE_END = 128; literal DST$K_REG_SAVE = 129; literal DST$K_REG_SAVE_BEGIN = 130; literal DST$K_BLIFLDBEG = 131; literal DST$K_BLIFLDEND = 132; literal DST$K_FULFILLS_TYPE = 133; literal DST$K_FIXUP = 134; literal DST$K_IMAGE = 135; literal DST$K_INLINE = 136; literal DST$K_EPILOGS = 137; literal DST$K_TYPE_SIG = 138; literal DST$K_EDIT_SOURCE = 139; literal DST$K_ALIAS = 140; literal DST$K_CXX_ATTRIBUTES = 141; literal DST$K_GOTO = 142; literal DST$K_TARGET = 143; literal DST$K_REAL_NAME = 144; literal DST$K_BODY_SPEC = 145; literal DST$K_PACK_SPEC_BEG = 146; literal DST$K_PACK_SPEC_END = 147; literal DST$K_PACK_BODY_BEG = 148; literal DST$K_PACK_BODY_END = 149; literal DST$K_SUBUNIT = 150; literal DST$K_SET_MODULE = 151; literal DST$K_USE_CLAUSE = 152; literal DST$K_VERSION = 153; literal DST$K_COBOLGBL = 154; literal DST$K_SOURCE = 155; literal DST$K_STATLINK = 156; literal DST$K_VARVAL = 157; literal DST$K_BOOL = 158; literal DST$K_EXTRNXT = 159; literal DST$K_GLOBNXT = 160; literal DSC$K_DTYPE_UBS = 161; literal DST$K_PROLOG = 162; literal DST$K_SEPTYP = 163; literal DST$K_ENUMELT = 164; literal DST$K_ENUMBEG = 165; literal DST$K_ENUMEND = 166; literal DST$K_VARBEG = 167; literal DST$K_VAREND = 168; literal DST$K_OVERLOAD = 169; literal DST$K_DEF_LNUM = 170; literal DST$K_RECBEG = 171; literal DST$K_RECEND = 172; literal DST$K_CONTIN = 173; literal DST$K_VALSPEC = 174; literal DST$K_TYPSPEC = 175; literal DST$K_BLKBEG = 176; literal DST$K_BLKEND = 177; literal DST$K_COB_HACK = 178; literal DST$K_DTYPE_RESERVED_1 = 179; literal DST$K_USING = 180; literal DST$K_ENTRY = 181; literal DST$K_LINE_NUM_REL_R11 = 182; literal DST$K_BLIFLD = 183; literal DST$K_PSECT = 184; literal DST$K_LINE_NUM = 185; literal DST$K_LBLORLIT = 186; literal DST$K_LABEL = 187; literal DST$K_MODBEG = 188; literal DST$K_MODEND = 189; literal DST$K_RTNBEG = 190; literal DST$K_RTNEND = 191; literal DST$K_PCLOC = 192; literal DST$K_HIGHEST = 192; FIELD DST$HEADER_FIELDSET = SET dst$w_length = [0,0,16,0], dst$x_length = [0,0,16,0], dst$$header_length = [0,0,16,0], dst$w_type = [2,0,16,0], dst$x_type = [2,0,16,0], dst$$header_type = [2,0,16,0] TES; literal S_DST$HEADER = 4; MACRO DST$HEADER = BLOCK [S_DST$HEADER,byte] FIELD (DST$HEADER_FIELDSET) %; literal DST$K_DST_BASE_FOR_NEXT = 2; literal DST$K_DST_HEADER_SIZE = 4; literal DST$K_LENGTH_LENGTH = 2; literal DST$K_LENGTH_TYPE = 2; MACRO dst$a_next = DST$K_DST_BASE_FOR_NEXT, 0, 0, 0%; MACRO $DBG$FIELD_TO_MACRO(fieldname)[] = COMPILETIME dbg$$n = %FIELDEXPAND(fieldname,0), dbg$$p = %FIELDEXPAND(fieldname,1), dbg$$s = %FIELDEXPAND(fieldname,2), dbg$$e = %FIELDEXPAND(fieldname,3); UNDECLARE fieldname; MACRO fieldname = %quote %expand %number(dbg$$n), %quote %expand %number(dbg$$p), %quote %expand %number(dbg$$s), %quote %expand %number(dbg$$e) %QUOTE % ; UNDECLARE dbg$$n, dbg$$p, dbg$$s, dbg$$e; $DBG$FIELD_TO_MACRO(%REMAINING) %; $DBG$FIELD_TO_MACRO(DST$W_LENGTH, DST$X_LENGTH, DST$W_TYPE, DST$X_TYPE); UNDECLARE %QUOTE $DBG$FIELD_TO_MACRO ; macro DST$LANGUAGE = 0,0,32,0 %; macro DBG$DST_LANGUAGE = 0,0,8,0 %; literal DST$K_MIN_LANGUAGE = 0; literal DST$K_MACRO = 0; literal DST$K_FORTRAN = 1; literal DST$K_BLISS = 2; literal DST$K_COBOL = 3; literal DST$K_BASIC = 4; literal DST$K_PLI = 5; literal DST$K_PASCAL = 6; literal DST$K_C = 7; literal DST$K_RPG = 8; literal DST$K_ADA = 9; literal DST$K_UNKNOWN = 10; literal DST$K_SCAN = 11; literal DST$K_DIBOL = 12; literal DST$K_MODULA = 13; literal DST$K_PILLAR = 14; literal DST$K_CXX = 15; literal DST$K_AMACRO = 16; literal DST$K_MACRO64 = 17; literal DST$K_MAX_LANGUAGE = 17; literal DBG$K_MIN_LANGUAGE = 0; literal DBG$K_MACRO = 0; literal DBG$K_FORTRAN = 1; literal DBG$K_BLISS = 2; literal DBG$K_COBOL = 3; literal DBG$K_BASIC = 4; literal DBG$K_PLI = 5; literal DBG$K_PASCAL = 6; literal DBG$K_C = 7; literal DBG$K_RPG = 8; literal DBG$K_ADA = 9; literal DBG$K_UNKNOWN = 10; literal DBG$K_SCAN = 11; literal DBG$K_DIBOL = 12; literal DBG$K_MODULA = 13; literal DBG$K_PILLAR = 14; literal DBG$K_CXX = 15; literal DBG$K_AMACRO = 16; literal DBG$K_MACRO64 = 17; literal DBG$K_MAX_LANGUAGE = 17; FIELD DST$MODULE_BEGIN_FIELDSET = SET dst$a_modbeg_header = [0,0,32,0], dst$v_modbeg_hide = [4,0,1,0], dst$v_modbeg_version = [4,1,1,0], dst$v_modbeg_unused = [4,2,6,0], dst$b_modbeg_flags = [4,0,8,0], dst$b_modbeg_unused = [5,0,8,0], dst$l_modbeg_language = [6,0,32,0], dst$w_version_major = [10,0,16,0], dst$w_version_minor = [12,0,16,0], dst$b_modbeg_name = [14,0,8,0] TES; literal S_DST$MODULE_BEGIN = 15; MACRO DST$MODULE_BEGIN = BLOCK [S_DST$MODULE_BEGIN,byte] FIELD (DST$MODULE_BEGIN_FIELDSET) %; literal DST$K_MODBEG_SIZE = 15; MACRO dst$a_modbeg_trlr = DST$K_MODBEG_SIZE, 0, 0, 0%; FIELD DST$MB_TRLR_FIELDSET = SET dst$b_compiler = [0,0,8,0] TES; literal S_DST$MB_TRLR = 1; MACRO DST$MB_TRLR = BLOCK [S_DST$MB_TRLR,byte] FIELD (DST$MB_TRLR_FIELDSET) %; literal DST$K_MB_TRLR_SIZE = 1; literal DST$K_MAJOR_ID_0 = 0; literal DST$K_MAJOR_ID_1 = 1; literal DST$K_MIN_MAJOR_ID = 0; literal DST$K_MAX_MAJOR_ID = 1; literal DST$K_MAJOR_ID_0_MINOR_ID_0 = 0; literal DST$K_MAJOR_ID_0_MINOR_ID_1 = 1; literal DST$K_MAJOR_ID_0_MINOR_ID_2 = 2; literal DST$K_MAJOR_ID_0_MINOR_ID_3 = 3; literal DST$K_MAJOR_ID_0_MIN_MINOR_ID = 0; literal DST$K_MAJOR_ID_0_MAX_MINOR_ID = 3; literal DST$K_MAJOR_ID_1_MINOR_ID_0 = 0; literal DST$K_MAJOR_ID_1_MINOR_ID_1 = 1; literal DST$K_MAJOR_ID_1_MINOR_ID_2 = 2; literal DST$K_MAJOR_ID_1_MINOR_ID_3 = 3; literal DST$K_MAJOR_ID_1_MINOR_ID_4 = 4; literal DST$K_MAJOR_ID_1_MINOR_ID_5 = 5; literal DST$K_MAJOR_ID_1_MINOR_ID_6 = 6; literal DST$K_MAJOR_ID_1_MINOR_ID_7 = 7; literal DST$K_MAJOR_ID_1_MINOR_ID_8 = 8; literal DST$K_MAJOR_ID_1_MINOR_ID_9 = 9; literal DST$K_MAJOR_ID_1_MINOR_ID_10 = 10; literal DST$K_MAJOR_ID_1_MINOR_ID_11 = 11; literal DST$K_MAJOR_ID_1_MINOR_ID_12 = 12; literal DST$K_MAJOR_ID_1_MINOR_ID_13 = 13; literal DST$K_MAJOR_ID_1_MINOR_ID_14 = 14; literal DST$K_MAJOR_ID_1_MINOR_ID_15 = 15; literal DST$K_MAJOR_ID_1_MINOR_ID_16 = 16; literal DST$K_MAJOR_ID_1_MINOR_ID_17 = 17; literal DST$K_MAJOR_ID_1_MINOR_ID_18 = 18; literal DST$K_MAJOR_ID_1_MAX_MINOR_ID = 18; literal DST$K_MAJOR_FIELD_TEST = 0; literal DST$K_MINOR_FIELD_TEST = 3; literal DST$K_VERSION_MAJOR = 1; literal DST$K_VERSION_MINOR = 18; FIELD DST$MODULE_END_FIELDSET = SET dst$a_modend_header = [0,0,32,0] TES; literal S_DST$MODULE_END = 4; MACRO DST$MODULE_END = BLOCK [S_DST$MODULE_END,byte] FIELD (DST$MODULE_END_FIELDSET) %; literal DST$K_MODEND_SIZE = 4; FIELD DST$ROUTINE_BEGIN_FIELDSET = SET dst$a_rtnbeg_header = [0,0,32,0], dst$v_rtnbeg_unused = [4,0,4,0], dst$v_rtnbeg_unalloc = [4,4,1,0], dst$v_rtnbeg_prototype = [4,5,1,0], dst$v_rtnbeg_notused = [4,6,1,0], dst$v_rtnbeg_no_call = [4,7,1,0], dst$b_rtnbeg_flags = [4,0,8,0], dst$l_rtnbeg_address = [5,0,32,0], dst$l_rtnbeg_pd_address = [9,0,32,0], dst$b_rtnbeg_name = [13,0,8,0] TES; literal S_DST$ROUTINE_BEGIN = 14; MACRO DST$ROUTINE_BEGIN = BLOCK [S_DST$ROUTINE_BEGIN,byte] FIELD (DST$ROUTINE_BEGIN_FIELDSET) %; literal DST$K_RTNBEG_SIZE = 14; FIELD DST$ROUTINE_END_FIELDSET = SET dst$a_rtnend_header = [0,0,32,0], dst$b_rtnend_unused = [4,0,8,1], dst$l_rtnend_size = [5,0,32,0] TES; literal S_DST$ROUTINE_END = 9; MACRO DST$ROUTINE_END = BLOCK [S_DST$ROUTINE_END,byte] FIELD (DST$ROUTINE_END_FIELDSET) %; literal DST$K_RTNEND_SIZE = 9; FIELD DST$ROUTINE_UNALLOC_FIELDSET = SET dst$a_rtnunalloc_header = [0,0,32,0], dst$b_rtnunalloc_name = [4,0,8,0] TES; literal S_DST$ROUTINE_UNALLOC = 5; MACRO DST$ROUTINE_UNALLOC = BLOCK [S_DST$ROUTINE_UNALLOC,byte] FIELD (DST$ROUTINE_UNALLOC_FIELDSET) %; literal DST$K_RTNUNALLOC_SIZE = 5; FIELD DST$INLINE_FIELDSET = SET dst$a_inline_header = [0,0,32,0], dst$l_inline_rtn_dst = [4,0,32,0], dst$l_inline_caller_line = [8,0,32,0] TES; literal S_DST$INLINE = 12; MACRO DST$INLINE = BLOCK [S_DST$INLINE,byte] FIELD (DST$INLINE_FIELDSET) %; literal DST$K_INLINE_SIZE = 12; FIELD DST$BLOCK_BEGIN_FIELDSET = SET dst$a_blkbeg_header = [0,0,32,0], dst$b_blkbeg_unused = [4,0,8,0], dst$l_blkbeg_address = [5,0,32,0], dst$b_blkbeg_name = [9,0,8,0] TES; literal S_DST$BLOCK_BEGIN = 10; MACRO DST$BLOCK_BEGIN = BLOCK [S_DST$BLOCK_BEGIN,byte] FIELD (DST$BLOCK_BEGIN_FIELDSET) %; literal DST$K_BLKBEG_SIZE = 10; FIELD DST$BLOCK_END_FIELDSET = SET dst$a_blkend_header = [0,0,32,0], dst$b_blkend_unused = [4,0,8,0], dst$l_blkend_size = [5,0,32,0] TES; literal S_DST$BLOCK_END = 9; MACRO DST$BLOCK_END = BLOCK [S_DST$BLOCK_END,byte] FIELD (DST$BLOCK_END_FIELDSET) %; literal DST$K_BLKEND_SIZE = 9; literal DST$K_NOELAB = 0; literal DST$K_ELAB_NOCALL = 1; literal DST$K_ELAB_CALL = 2; FIELD DST$PACKAGE_SPEC_BEGIN_FIELDSET = SET dst$a_packspec_beg_header = [0,0,32,0], dst$v_packspec_elab = [4,0,2,0], dst$v_packspec_dupl = [4,2,1,0], dst$v_packspec_beg_unused = [4,3,5,0], dst$b_packspec_flags = [4,0,8,0], dst$l_packspec_address = [5,0,32,0], dst$l_packspec_pd_address = [9,0,32,0], dst$b_packspec_name = [13,0,8,0] TES; literal S_DST$PACKAGE_SPEC_BEGIN = 14; MACRO DST$PACKAGE_SPEC_BEGIN = BLOCK [S_DST$PACKAGE_SPEC_BEGIN,byte] FIELD (DST$PACKAGE_SPEC_BEGIN_FIELDSET) %; literal DST$K_PACKSPEC_BEG_SIZE = 14; FIELD DST$PACKAGE_SPEC_END_FIELDSET = SET dst$a_packspec_end_header = [0,0,32,0], dst$b_packspec_end_unused = [4,0,8,0], dst$l_packspec_end_size = [5,0,32,0] TES; literal S_DST$PACKAGE_SPEC_END = 9; MACRO DST$PACKAGE_SPEC_END = BLOCK [S_DST$PACKAGE_SPEC_END,byte] FIELD (DST$PACKAGE_SPEC_END_FIELDSET) %; literal DST$K_PACKSPEC_END_SIZE = 9; FIELD DST$PACKAGE_BODY_BEGIN_FIELDSET = SET dst$a_packbody_beg_header = [0,0,32,0], dst$v_packbody_elab = [4,0,2,0], dst$v_packbody_mbz = [4,2,6,0], dst$b_packbody_flags = [4,0,8,0], dst$l_packbody_address = [5,0,32,0], dst$l_packbody_pd_address = [9,0,32,0], dst$b_packbody_name = [13,0,8,0] TES; literal S_DST$PACKAGE_BODY_BEGIN = 14; MACRO DST$PACKAGE_BODY_BEGIN = BLOCK [S_DST$PACKAGE_BODY_BEGIN,byte] FIELD (DST$PACKAGE_BODY_BEGIN_FIELDSET) %; literal DST$K_PACKBODY_BEG_SIZE = 14; FIELD DST$PACKAGE_BODY_END_FIELDSET = SET dst$a_packbody_end_header = [0,0,32,0], dst$b_packbody_end_unused = [4,0,8,0], dst$l_packbody_end_size = [5,0,32,0] TES; literal S_DST$PACKAGE_BODY_END = 9; MACRO DST$PACKAGE_BODY_END = BLOCK [S_DST$PACKAGE_BODY_END,byte] FIELD (DST$PACKAGE_BODY_END_FIELDSET) %; literal DST$K_PACKBODY_END_SIZE = 9; FIELD DST$DIS_RANGES_FIELDSET = SET dst$a_disrng_header = [0,0,32,0], dst$lu_disrng_count = [4,0,32,0] TES; literal S_DST$DIS_RANGES = 8; MACRO DST$DIS_RANGES = BLOCK [S_DST$DIS_RANGES,byte] FIELD (DST$DIS_RANGES_FIELDSET) %; literal DST$K_DISRNGS_SIZE = 8; MACRO dst$a_dis_ranges = DST$K_DISRNG_SIZE, 0, 0, 0%; FIELD DST$DIS_RANGE_FIELDSET = SET dst$lu_disrng_address = [0,0,32,0], dst$lu_disrng_size = [4,0,32,0] TES; literal S_DST$DIS_RANGE = 8; MACRO DST$DIS_RANGE = BLOCK [S_DST$DIS_RANGE,byte] FIELD (DST$DIS_RANGE_FIELDSET) %; literal DST$K_DISRNG_SIZE = 8; KEYWORDMACRO DST$DIS_RANGE_VECTOR(N = 1) = BLOCKVECTOR[(N), DST$K_DISRNG_SIZE,BYTE] FIELD(DST$DIS_RANGE_FIELDSET) %; FIELD DST$RECBEG_TRLR_FIELDSET = SET dst$l_recbeg_size = [0,0,32,0] TES; literal S_DST$RECBEG_TRLR = 4; MACRO DST$RECBEG_TRLR = BLOCK [S_DST$RECBEG_TRLR,byte] FIELD (DST$RECBEG_TRLR_FIELDSET) %; literal DST$K_RECBEG_TRAILER_SIZE = 4; FIELD DST$RECORD_END_FIELDSET = SET dst$a_recend_header = [0,0,32,0] TES; literal S_DST$RECORD_END = 4; MACRO DST$RECORD_END = BLOCK [S_DST$RECORD_END,byte] FIELD (DST$RECORD_END_FIELDSET) %; literal DST$K_RECEND_SIZE = 4; FIELD DST$VARBEG_TRAILER_FIELDSET = SET dst$l_varbeg_size = [0,0,32,0], dst$l_varbeg_tag_ptr = [4,0,32,0] TES; literal S_DST$VARBEG_TRAILER = 8; MACRO DST$VARBEG_TRAILER = BLOCK [S_DST$VARBEG_TRAILER,byte] FIELD (DST$VARBEG_TRAILER_FIELDSET) %; literal DST$K_VARBEG_TRAILER_SIZE = 8; FIELD DST$VARIANT_VALUE_FIELDSET = SET dst$a_varval_header = [0,0,32,0], dst$l_varval_size = [4,0,32,0], dst$w_varval_count = [8,0,16,0] TES; literal S_DST$VARIANT_VALUE = 10; MACRO DST$VARIANT_VALUE = BLOCK [S_DST$VARIANT_VALUE,byte] FIELD (DST$VARIANT_VALUE_FIELDSET) %; literal DST$K_VARIANT_VALUE_SIZE = 10; MACRO dst$a_varval_rngspec = DST$K_VARIANT_VALUE_SIZE, 0, 0, 0%; FIELD DST$VARVAL_RANGE_FIELDSET = SET dst$b_varval_rngkind = [0,0,8,0] TES; literal S_DST$VARVAL_RANGE = 1; MACRO DST$VARVAL_RANGE = BLOCK [S_DST$VARVAL_RANGE,byte] FIELD (DST$VARVAL_RANGE_FIELDSET) %; literal DST$K_VARVAL_RANGE_SIZE = 1; MACRO dst$a_varval_rngaddr = DST$K_VARVAL_RANGE_SIZE, 0, 0, 0%; literal DST$K_VARVAL_SINGLE = 1; literal DST$K_VARVAL_RANGE = 2; FIELD DST$VARIANT_SET_END_FIELDSET = SET dst$a_varset_end_header = [0,0,32,0] TES; literal S_DST$VARIANT_SET_END = 4; MACRO DST$VARIANT_SET_END = BLOCK [S_DST$VARIANT_SET_END,byte] FIELD (DST$VARIANT_SET_END_FIELDSET) %; literal DST$K_VARSET_END_SIZE = 4; FIELD DST$DATA_HEADER_FIELDSET = SET dst$a_data_header = [0,0,32,0], dst$v_valkind = [4,0,2,0], dst$v_indirect = [4,2,1,0], dst$v_disp = [4,3,1,0], dst$v_regnum = [4,4,4,0], dst$b_vflags = [4,0,8,0] TES; literal S_DST$DATA_HEADER = 5; MACRO DST$DATA_HEADER = BLOCK [S_DST$DATA_HEADER,byte] FIELD (DST$DATA_HEADER_FIELDSET) %; literal DST$K_DATA_HEADER_SIZE = 5; literal s_dst$a_data_dst_header = 5; FIELD DST$DATA_DST_FIELDSET = SET dst$a_data_dst_header = [0,0,40,0], dst$l_value = [5,0,32,0], dst$b_name = [9,0,8,0] TES; literal S_DST$DATA_DST = 10; MACRO DST$DATA_DST = BLOCK [S_DST$DATA_DST,byte] FIELD (DST$DATA_DST_FIELDSET) %; literal DST$K_DATA_SIZE = 10; UNDECLARE %QUOTE DST$DATA_DST; MACRO DST$DATA_DST = BLOCK[S_DST$DATA_DST,BYTE] FIELD(DST$DATA_HEADER_FIELDSET, DST$DATA_DST_FIELDSET) %; literal DST$K_VFLAGS_NOVAL = 128; literal DST$K_VFLAGS_NOTACTIVE = 248; literal DST$K_VFLAGS_UNALLOC = 249; literal DST$K_VFLAGS_DSC = 250; literal DST$K_VFLAGS_TVS = 251; literal DST$K_VS_FOLLOWS = 253; literal DST$K_VFLAGS_BITOFFS = 255; literal DST$K_VALKIND_LITERAL = 0; literal DST$K_VALKIND_ADDR = 1; literal DST$K_VALKIND_DESC = 2; literal DST$K_VALKIND_REG = 3; literal DST$K_VALKIND_MIN = 0; literal DST$K_VALKIND_MAX = 3; literal DST$K_NO_SUCH_REG = -1; literal DST$K_REG_VAX_R0 = 0; literal DST$K_REG_VAX_R1 = 1; literal DST$K_REG_VAX_R2 = 2; literal DST$K_REG_VAX_R3 = 3; literal DST$K_REG_VAX_R4 = 4; literal DST$K_REG_VAX_R5 = 5; literal DST$K_REG_VAX_R6 = 6; literal DST$K_REG_VAX_R7 = 7; literal DST$K_REG_VAX_R8 = 8; literal DST$K_REG_VAX_R9 = 9; literal DST$K_REG_VAX_R10 = 10; literal DST$K_REG_VAX_R11 = 11; literal DST$K_REG_VAX_R12 = 12; literal DST$K_REG_VAX_R13 = 13; literal DST$K_REG_VAX_R14 = 14; literal DST$K_REG_VAX_R15 = 15; literal DST$K_REG_VAX_PSL = 16; literal DST$K_REG_VAX_V0 = 17; literal DST$K_REG_VAX_V1 = 18; literal DST$K_REG_VAX_V2 = 19; literal DST$K_REG_VAX_V3 = 20; literal DST$K_REG_VAX_V4 = 21; literal DST$K_REG_VAX_V5 = 22; literal DST$K_REG_VAX_V6 = 23; literal DST$K_REG_VAX_V7 = 24; literal DST$K_REG_VAX_V8 = 25; literal DST$K_REG_VAX_V9 = 26; literal DST$K_REG_VAX_V10 = 27; literal DST$K_REG_VAX_V11 = 28; literal DST$K_REG_VAX_V12 = 29; literal DST$K_REG_VAX_V13 = 30; literal DST$K_REG_VAX_V14 = 31; literal DST$K_REG_VAX_V15 = 32; literal DST$K_REG_VAX_VCR = 33; literal DST$K_REG_VAX_VLR = 34; literal DST$K_REG_VAX_VMR = 35; literal DST$K_REG_VAX_MIN = 0; literal DST$K_REG_VAX_MAX = 35; literal DST$K_REG_VAX_AP = 12; literal DST$K_REG_VAX_FP = 13; literal DST$K_REG_VAX_SP = 14; literal DST$K_REG_VAX_PC = 15; literal DST$K_REG_VAX_PS = 16; literal DST$K_REG_VAX_MIN_SCALAR = 0; literal DST$K_REG_VAX_MAX_SCALAR = 15; literal DST$K_REG_VAX_MIN_FLOAT = -1; literal DST$K_REG_VAX_MAX_FLOAT = -1; literal DST$K_REG_VAX_MIN_REAL_VECTOR = 17; literal DST$K_REG_VAX_MAX_REAL_VECTOR = 32; literal DST$K_REG_VAX_MIN_VECTOR = 17; literal DST$K_REG_VAX_MAX_VECTOR = 35; literal DST$K_REG_ALPHA_R0 = 36; literal DST$K_REG_ALPHA_R1 = 37; literal DST$K_REG_ALPHA_R2 = 38; literal DST$K_REG_ALPHA_R3 = 39; literal DST$K_REG_ALPHA_R4 = 40; literal DST$K_REG_ALPHA_R5 = 41; literal DST$K_REG_ALPHA_R6 = 42; literal DST$K_REG_ALPHA_R7 = 43; literal DST$K_REG_ALPHA_R8 = 44; literal DST$K_REG_ALPHA_R9 = 45; literal DST$K_REG_ALPHA_R10 = 46; literal DST$K_REG_ALPHA_R11 = 47; literal DST$K_REG_ALPHA_R12 = 48; literal DST$K_REG_ALPHA_R13 = 49; literal DST$K_REG_ALPHA_R14 = 50; literal DST$K_REG_ALPHA_R15 = 51; literal DST$K_REG_ALPHA_R16 = 52; literal DST$K_REG_ALPHA_R17 = 53; literal DST$K_REG_ALPHA_R18 = 54; literal DST$K_REG_ALPHA_R19 = 55; literal DST$K_REG_ALPHA_R20 = 56; literal DST$K_REG_ALPHA_R21 = 57; literal DST$K_REG_ALPHA_R22 = 58; literal DST$K_REG_ALPHA_R23 = 59; literal DST$K_REG_ALPHA_R24 = 60; literal DST$K_REG_ALPHA_R25 = 61; literal DST$K_REG_ALPHA_R26 = 62; literal DST$K_REG_ALPHA_R27 = 63; literal DST$K_REG_ALPHA_R28 = 64; literal DST$K_REG_ALPHA_R29 = 65; literal DST$K_REG_ALPHA_R30 = 66; literal DST$K_REG_ALPHA_R31 = 67; literal DST$K_REG_ALPHA_F0 = 68; literal DST$K_REG_ALPHA_F1 = 69; literal DST$K_REG_ALPHA_F2 = 70; literal DST$K_REG_ALPHA_F3 = 71; literal DST$K_REG_ALPHA_F4 = 72; literal DST$K_REG_ALPHA_F5 = 73; literal DST$K_REG_ALPHA_F6 = 74; literal DST$K_REG_ALPHA_F7 = 75; literal DST$K_REG_ALPHA_F8 = 76; literal DST$K_REG_ALPHA_F9 = 77; literal DST$K_REG_ALPHA_F10 = 78; literal DST$K_REG_ALPHA_F11 = 79; literal DST$K_REG_ALPHA_F12 = 80; literal DST$K_REG_ALPHA_F13 = 81; literal DST$K_REG_ALPHA_F14 = 82; literal DST$K_REG_ALPHA_F15 = 83; literal DST$K_REG_ALPHA_F16 = 84; literal DST$K_REG_ALPHA_F17 = 85; literal DST$K_REG_ALPHA_F18 = 86; literal DST$K_REG_ALPHA_F19 = 87; literal DST$K_REG_ALPHA_F20 = 88; literal DST$K_REG_ALPHA_F21 = 89; literal DST$K_REG_ALPHA_F22 = 90; literal DST$K_REG_ALPHA_F23 = 91; literal DST$K_REG_ALPHA_F24 = 92; literal DST$K_REG_ALPHA_F25 = 93; literal DST$K_REG_ALPHA_F26 = 94; literal DST$K_REG_ALPHA_F27 = 95; literal DST$K_REG_ALPHA_F28 = 96; literal DST$K_REG_ALPHA_F29 = 97; literal DST$K_REG_ALPHA_F30 = 98; literal DST$K_REG_ALPHA_F31 = 99; literal DST$K_REG_ALPHA_PC = 100; literal DST$K_REG_ALPHA_PS = 101; literal DST$K_REG_ALPHA_FPCR = 102; literal DST$K_REG_ALPHA_SFPCR = 103; literal DST$K_REG_ALPHA_MIN = 36; literal DST$K_REG_ALPHA_MAX = 103; literal DST$K_REG_ALPHA_AI = 61; literal DST$K_REG_ALPHA_RA = 62; literal DST$K_REG_ALPHA_PV = 63; literal DST$K_REG_ALPHA_FP = 65; literal DST$K_REG_ALPHA_SP = 66; literal DST$K_REG_ALPHA_REGNUM_FP = 13; literal DST$K_REG_ALPHA_REGNUM_SP = 14; MACRO $DBG_VS_REGNUM(NUM) = ( %IF DBG$K_TARGET_IS_ALPHA %THEN IF ((NUM) EQLU DST$K_REG_ALPHA_REGNUM_FP) THEN (DST$K_REG_ALPHA_FP) ELSE IF ((NUM) EQLU DST$K_REG_ALPHA_REGNUM_SP) THEN (DST$K_REG_ALPHA_SP) ELSE (NUM) %ELSE (NUM) %FI ) %; literal DST$K_REG_ALPHA_MIN_SCALAR = 36; literal DST$K_REG_ALPHA_MAX_SCALAR = 67; literal DST$K_REG_ALPHA_MIN_FLOAT = 68; literal DST$K_REG_ALPHA_MAX_FLOAT = 99; literal DST$K_REG_ALPHA_MIN_VECTOR = -1; literal DST$K_REG_ALPHA_MAX_VECTOR = -1; literal DST$K_REG_M68_A0 = 0; literal DST$K_REG_M68_A1 = 1; literal DST$K_REG_M68_A2 = 2; literal DST$K_REG_M68_A3 = 3; literal DST$K_REG_M68_A4 = 4; literal DST$K_REG_M68_A5 = 5; literal DST$K_REG_M68_A6 = 6; literal DST$K_REG_M68_A7 = 7; literal DST$K_REG_M68_D0 = 8; literal DST$K_REG_M68_D1 = 9; literal DST$K_REG_M68_D2 = 10; literal DST$K_REG_M68_D3 = 11; literal DST$K_REG_M68_D4 = 12; literal DST$K_REG_M68_D5 = 13; literal DST$K_REG_M68_D6 = 14; literal DST$K_REG_M68_D7 = 15; literal DST$K_REG_M68_FP0 = 16; literal DST$K_REG_M68_FP1 = 17; literal DST$K_REG_M68_FP2 = 18; literal DST$K_REG_M68_FP3 = 19; literal DST$K_REG_M68_FP4 = 20; literal DST$K_REG_M68_FP5 = 21; literal DST$K_REG_M68_FP6 = 22; literal DST$K_REG_M68_FP7 = 23; literal DST$K_REG_M68_PC = 24; literal DST$K_REG_M68_SR = 25; literal DST$K_REG_M68_FPCR = 26; literal DST$K_REG_M68_FPSR = 27; literal DST$K_REG_M68_FPIAR = 28; literal DST$K_REG_M68_USP = 29; literal DST$K_REG_M68_MSP = 30; literal DST$K_REG_M68_CAAR = 31; literal DST$K_REG_M68_CACR = 32; literal DST$K_REG_M68_VBR = 33; literal DST$K_REG_M68_SFC = 34; literal DST$K_REG_M68_DFC = 35; literal DST$K_REG_M68_MIN = 0; literal DST$K_REG_M68_MAX = 35; literal DST$K_REG_M68_MIN_SCALAR = 0; literal DST$K_REG_M68_MAX_SCALAR = 15; literal DST$K_REG_M68_MIN_FLOAT = 16; literal DST$K_REG_M68_MAX_FLOAT = 23; literal DST$K_REG_M68_MIN_VECTOR = -1; literal DST$K_REG_M68_MAX_VECTOR = -1; literal DST$K_REG_1750_R15 = 0; literal DST$K_REG_1750_R14 = 1; literal DST$K_REG_1750_R13 = 2; literal DST$K_REG_1750_R12 = 3; literal DST$K_REG_1750_R11 = 4; literal DST$K_REG_1750_R10 = 5; literal DST$K_REG_1750_R9 = 6; literal DST$K_REG_1750_R8 = 7; literal DST$K_REG_1750_R7 = 8; literal DST$K_REG_1750_R6 = 9; literal DST$K_REG_1750_R5 = 10; literal DST$K_REG_1750_R4 = 11; literal DST$K_REG_1750_R3 = 12; literal DST$K_REG_1750_R2 = 13; literal DST$K_REG_1750_R1 = 14; literal DST$K_REG_1750_R0 = 15; literal DST$K_REG_1750_PC = 16; literal DST$K_REG_1750_SW = 17; literal DST$K_REG_1750_FT = 18; literal DST$K_REG_1750_MK = 19; literal DST$K_REG_1750_PI = 20; literal DST$K_REG_1750_IOIC = 21; literal DST$K_REG_1750_MFSR = 22; literal DST$K_REG_1750_PAGE = 23; literal DST$K_REG_1750_MIN = 0; literal DST$K_REG_1750_MAX = 23; literal DST$K_REG_1750_SP = 4; literal DST$K_REG_1750_FP = 0; literal DST$K_REG_1750_IC = 16; literal DST$K_REG_1750_MIN_SCALAR = 0; literal DST$K_REG_1750_MAX_SCALAR = 15; literal DST$K_REG_1750_MIN_INDEX = 0; literal DST$K_REG_1750_MAX_INDEX = 14; literal DST$K_REG_1750_MIN_BASE = 0; literal DST$K_REG_1750_MAX_BASE = 3; literal DST$K_REG_1750_MIN_FLOAT = -1; literal DST$K_REG_1750_MAX_FLOAT = -1; literal DST$K_REG_1750_MIN_VECTOR = -1; literal DST$K_REG_1750_MAX_VECTOR = -1; literal s_dst$a_dsc_format_header = 5; FIELD DST$DESCRIPTOR_FORMAT_FIELDSET = SET dst$a_dsc_format_header = [0,0,40,0], dst$l_dsc_offs = [5,0,32,0] TES; literal S_DST$DESCRIPTOR_FORMAT = 9; MACRO DST$DESCRIPTOR_FORMAT = BLOCK [S_DST$DESCRIPTOR_FORMAT,byte] FIELD (DST$DESCRIPTOR_FORMAT_FIELDSET) %; literal DST$K_DESCRIPTOR_FORMAT_SIZE = 9; MACRO dst$a_dsc_base = DST$K_DESCRIPTOR_FORMAT_SIZE, 0, 0, 0%; UNDECLARE %QUOTE DST$DESCRIPTOR_FORMAT; MACRO DST$DESCRIPTOR_FORMAT = BLOCK[S_DST$DESCRIPTOR_FORMAT,BYTE] FIELD( DST$DATA_HEADER_FIELDSET, DST$DATA_DST_FIELDSET, DST$DESCRIPTOR_FORMAT_FIELDSET) %; literal s_dst$a_tvs_header = 5; FIELD DST$TRAILING_VALSPEC_FIELDSET = SET dst$a_tvs_header = [0,0,40,0], dst$l_tvs_offset = [5,0,32,0] TES; literal S_DST$TRAILING_VALSPEC = 9; MACRO DST$TRAILING_VALSPEC = BLOCK [S_DST$TRAILING_VALSPEC,byte] FIELD (DST$TRAILING_VALSPEC_FIELDSET) %; literal DST$K_TRAILING_VALSPEC_SIZE = 9; MACRO dst$a_tvs_base = DST$K_TRAILING_VALSPEC_SIZE, 0, 0, 0%; literal DST$K_SEPTYP_SIZE = 10; macro DST$VS_ALLOC_KIND = 0,0,8,0 %; literal DST$K_VS_ALLOC_STAT = 1; literal DST$K_VS_ALLOC_DYN = 2; literal DST$K_VS_ALLOC_SPLIT = 3; literal DST$K_VS_ALLOC_BIASED = 4; literal DST$K_VS_ALLOC_XVS = 5; literal DST$K_VS_ALLOC_MIN = 1; literal DST$K_VS_ALLOC_MAX = 5; FIELD DST$VAL_SPEC_FIELDSET = SET dst$v_vs_valkind = [0,0,2,0], dst$v_vs_indirect = [0,2,1,0], dst$v_vs_disp = [0,3,1,0], dst$v_vs_regnum = [0,4,4,0], dst$b_vs_vflags = [0,0,8,0], dst$l_vs_value = [1,0,32,0], dst$l_vs_dsc_offs = [1,0,32,0], dst$l_vs_tvs_offset = [1,0,32,0], dst$w_vs_length = [1,0,16,0], dst$b_vs_alloc = [3,0,8,0], dst$b_vs_mbz = [4,0,8,0], dst$b_vs_reserved = [4,0,8,0], dst$a_mat_spec_info = [4,0,8,0], dst$a_vs_materialization_spec = [1,0,32,0], dst$value_spec_variants = [1,0,32,0] TES; literal S_DST$VAL_SPEC = 5; MACRO DST$VAL_SPEC = BLOCK [S_DST$VAL_SPEC,byte] FIELD (DST$VAL_SPEC_FIELDSET) %; literal DST$K_VALUE_SPEC_SIZE = 5; literal DST$K_VS_DSC_BASE = 5; literal DST$K_VS_TVS_BASE = 5; literal DST$K_VS_MATSPEC_BASE = 4; literal DST$K_VS_BINDSPEC_BASE = 5; literal DST$K_VS_BIASING_VS_BASE = 5; literal DST$K_VS_BIASED_VS_BASE = 10; literal DST$K_VS_XVS_BASE = 4; MACRO DST$A_VS_DSC_BASE = DST$K_VS_DSC_BASE, 0, 0, 0%; ! Descriptor starts at this loca- ! tion + DST$L_VS_DSC_OFFS MACRO DST$A_VS_TVS_BASE = DST$K_VS_TVS_BASE, 0, 0, 0%; ! Value Spec starts at this loca- ! tion + DST$A_VS_TVS_OFFSET MACRO DST$A_VS_MATSPEC = DST$K_VS_MATSPEC_BASE, 0, 0, 0%; ! Location of Materialization ! Specification MACRO DST$A_VS_BINDSPEC = DST$K_VS_BINDSPEC_BASE, 0, 0, 0%; ! Base address of first binding ! specification within split ! lifetime value specification MACRO DST$A_VS_BIASING_VALSPEC = DST$K_VS_BIASING_VS_BASE, 0, 0, 0%; ! Value Spec of Bias to add/subtract to ! value (Note use of "biasING" to ! avoid errors) MACRO DST$A_VS_BIASED_VALSPEC = DST$K_VS_BIASED_VS_BASE, 0, 0, 0%; MACRO DST$A_VS_XVS_BASE = DST$K_VS_XVS_BASE, 0, 0, 0%; ! Base address of the Extended Value ! Spec within a standard Value ! Spec. FIELD DST$BIND_SPEC_STRUCT_FIELDSET = SET dst$w_bs_num_bindings = [0,0,16,0] TES; literal S_DST$BIND_SPEC_STRUCT = 2; MACRO DST$BIND_SPEC_STRUCT = BLOCK [S_DST$BIND_SPEC_STRUCT,byte] FIELD (DST$BIND_SPEC_STRUCT_FIELDSET) %; literal DST$K_BIND_SPEC_STRUCT_SIZE = 2; MACRO DST$A_BS_BINDSPEC = DST$K_BIND_SPEC_STRUCT_SIZE, 0, 0, 0%; FIELD DST$BIND_SPEC_FIELDSET = SET dst$l_bs_lo_pc = [0,0,32,0], dst$l_bs_hi_pc = [4,0,32,0], dst$w_bs_num_pc_bindings = [8,0,16,0] TES; literal S_DST$BIND_SPEC = 10; MACRO DST$BIND_SPEC = BLOCK [S_DST$BIND_SPEC,byte] FIELD (DST$BIND_SPEC_FIELDSET) %; literal DST$K_BIND_SPEC_SIZE = 10; MACRO dst$a_bs_pc_bindings = DST$K_BIND_SPEC_SIZE, 0, 0, 0%; MACRO dst$a_bs_valspec = DST$K_BIND_SPEC_SIZE, 0, 0, 0%; macro DST$MS_KIND = 0,0,8,0 %; literal DST$K_MS_BYTADDR = 1; literal DST$K_MS_BITADDR = 2; literal DST$K_MS_BITOFFS = 3; literal DST$K_MS_RVAL = 4; literal DST$K_MS_REG = 5; literal DST$K_MS_DSC = 6; literal DST$K_MS_ADDR_DSC = 7; literal DST$K_MS_LOWEST = 1; literal DST$K_MS_HIGHEST = 7; macro DST$MS_MECH = 0,0,8,0 %; literal DST$K_MS_MECH_RTNCALL = 1; literal DST$K_MS_MECH_STK = 2; literal DST$K_MS_MECH_RTN_NOFP = 3; literal DST$K_MS_MECH_MIN = 1; literal DST$K_MS_MECH_MAX = 3; FIELD DST$MATER_SPEC_FIELDSET = SET dst$b_ms_kind = [0,0,8,0], dst$b_ms_mech = [1,0,8,0], dst$v_ms_noeval = [2,0,1,0], dst$v_ms_dumarg = [2,1,1,0], dst$v_ms_wrongbounds = [2,2,1,0], dst$v_ms_mbz = [2,3,5,0], dst$b_ms_flagbits = [2,0,8,0], dst$l_ms_mech_rtnaddr = [3,0,32,0] TES; literal S_DST$MATER_SPEC = 7; MACRO DST$MATER_SPEC = BLOCK [S_DST$MATER_SPEC,byte] FIELD (DST$MATER_SPEC_FIELDSET) %; literal DST$K_MATER_SPEC_HEADER_SIZE = 3; literal DST$K_MATER_SPEC_SIZE = 7; MACRO dst$a_ms_mech_spec = DST$K_MATER_SPEC_HEADER_SIZE, 0, 0, 0%; literal DST$K_STK_LOW = 0; literal DST$K_STK_PUSHR0 = 0; literal DST$K_STK_PUSHR1 = 1; literal DST$K_STK_PUSHR2 = 2; literal DST$K_STK_PUSHR3 = 3; literal DST$K_STK_PUSHR4 = 4; literal DST$K_STK_PUSHR5 = 5; literal DST$K_STK_PUSHR6 = 6; literal DST$K_STK_PUSHR7 = 7; literal DST$K_STK_PUSHR8 = 8; literal DST$K_STK_PUSHR9 = 9; literal DST$K_STK_PUSHR10 = 10; literal DST$K_STK_PUSHR11 = 11; literal DST$K_STK_PUSHRAP = 12; literal DST$K_STK_PUSHRFP = 13; literal DST$K_STK_PUSHRSP = 14; literal DST$K_STK_PUSHRPC = 15; literal DST$K_STK_PUSH_ALPHA_R0 = 55; literal DST$K_STK_PUSH_ALPHA_R1 = 56; literal DST$K_STK_PUSH_ALPHA_R2 = 57; literal DST$K_STK_PUSH_ALPHA_R3 = 58; literal DST$K_STK_PUSH_ALPHA_R4 = 59; literal DST$K_STK_PUSH_ALPHA_R5 = 60; literal DST$K_STK_PUSH_ALPHA_R6 = 61; literal DST$K_STK_PUSH_ALPHA_R7 = 62; literal DST$K_STK_PUSH_ALPHA_R8 = 63; literal DST$K_STK_PUSH_ALPHA_R9 = 64; literal DST$K_STK_PUSH_ALPHA_R10 = 65; literal DST$K_STK_PUSH_ALPHA_R11 = 66; literal DST$K_STK_PUSH_ALPHA_R12 = 67; literal DST$K_STK_PUSH_ALPHA_R13 = 68; literal DST$K_STK_PUSH_ALPHA_R14 = 69; literal DST$K_STK_PUSH_ALPHA_R15 = 70; literal DST$K_STK_PUSH_ALPHA_R16 = 71; literal DST$K_STK_PUSH_ALPHA_R17 = 72; literal DST$K_STK_PUSH_ALPHA_R18 = 73; literal DST$K_STK_PUSH_ALPHA_R19 = 74; literal DST$K_STK_PUSH_ALPHA_R20 = 75; literal DST$K_STK_PUSH_ALPHA_R21 = 76; literal DST$K_STK_PUSH_ALPHA_R22 = 77; literal DST$K_STK_PUSH_ALPHA_R23 = 78; literal DST$K_STK_PUSH_ALPHA_R24 = 79; literal DST$K_STK_PUSH_ALPHA_R25 = 80; literal DST$K_STK_PUSH_ALPHA_R26 = 81; literal DST$K_STK_PUSH_ALPHA_R27 = 82; literal DST$K_STK_PUSH_ALPHA_R28 = 83; literal DST$K_STK_PUSH_ALPHA_R29 = 84; literal DST$K_STK_PUSH_ALPHA_R30 = 85; literal DST$K_STK_PUSH_ALPHA_R31 = 86; literal DST$K_STK_PUSH_ALPHA_AI = 80; literal DST$K_STK_PUSH_ALPHA_RA = 81; literal DST$K_STK_PUSH_ALPHA_PV = 82; literal DST$K_STK_PUSH_ALPHA_FP = 84; literal DST$K_STK_PUSH_ALPHA_SP = 85; literal DST$K_STK_PUSH_M68_A0 = 0; literal DST$K_STK_PUSH_M68_A1 = 1; literal DST$K_STK_PUSH_M68_A2 = 2; literal DST$K_STK_PUSH_M68_A3 = 3; literal DST$K_STK_PUSH_M68_A4 = 4; literal DST$K_STK_PUSH_M68_A5 = 5; literal DST$K_STK_PUSH_M68_A6 = 6; literal DST$K_STK_PUSH_M68_A7 = 7; literal DST$K_STK_PUSH_M68_D0 = 8; literal DST$K_STK_PUSH_M68_D1 = 9; literal DST$K_STK_PUSH_M68_D2 = 10; literal DST$K_STK_PUSH_M68_D3 = 11; literal DST$K_STK_PUSH_M68_D4 = 12; literal DST$K_STK_PUSH_M68_D5 = 13; literal DST$K_STK_PUSH_M68_D6 = 14; literal DST$K_STK_PUSH_M68_D7 = 15; literal DST$K_STK_PUSH_1750_R0 = 15; literal DST$K_STK_PUSH_1750_R1 = 14; literal DST$K_STK_PUSH_1750_R2 = 13; literal DST$K_STK_PUSH_1750_R3 = 12; literal DST$K_STK_PUSH_1750_R4 = 11; literal DST$K_STK_PUSH_1750_R5 = 10; literal DST$K_STK_PUSH_1750_R6 = 9; literal DST$K_STK_PUSH_1750_R7 = 8; literal DST$K_STK_PUSH_1750_R8 = 7; literal DST$K_STK_PUSH_1750_R9 = 6; literal DST$K_STK_PUSH_1750_R10 = 5; literal DST$K_STK_PUSH_1750_R11 = 4; literal DST$K_STK_PUSH_1750_R12 = 3; literal DST$K_STK_PUSH_1750_R13 = 2; literal DST$K_STK_PUSH_1750_R14 = 1; literal DST$K_STK_PUSH_1750_R15 = 0; literal DST$K_STK_PUSHIMB = 16; literal DST$K_STK_PUSHIMW = 17; literal DST$K_STK_PUSHIML = 18; literal DST$K_STK_PUSHIM_VAR = 24; literal DST$K_STK_PUSHIMBU = 25; literal DST$K_STK_PUSHIMWU = 26; literal DST$K_STK_PUSHINB = 20; literal DST$K_STK_PUSHINW = 21; literal DST$K_STK_PUSHINL = 22; literal DST$K_STK_PUSHINBU = 27; literal DST$K_STK_PUSHINWU = 28; literal DST$K_STK_ADD = 19; literal DST$K_STK_SUB = 29; literal DST$K_STK_MULT = 30; literal DST$K_STK_DIV = 31; literal DST$K_STK_LSH = 32; literal DST$K_STK_ROT = 33; literal DST$K_STK_EXTV_IMED = 45; literal DST$K_STK_EXTZV_IMED = 46; literal DST$K_STK_EXTV_IND = 47; literal DST$K_STK_EXTZV_IND = 48; literal DST$K_STK_COP = 34; literal DST$K_STK_EXCH = 35; literal DST$K_STK_STO_B = 36; literal DST$K_STK_STO_W = 37; literal DST$K_STK_STO_L = 38; literal DST$K_STK_FET_B = 49; literal DST$K_STK_FET_W = 50; literal DST$K_STK_FET_L = 51; literal DST$K_STK_POP = 39; literal DST$K_STK_STOP = 23; literal DST$K_STK_RTNCALL = 40; literal DST$K_STK_RTNCALL_ALT = 41; literal DST$K_STK_RTN_NOFP = 44; literal DST$K_STK_PUSH_OUTER_REC = 42; literal DST$K_STK_PUSH_INNER_REC = 43; literal DST$K_STK_POS = 52; literal DST$K_STK_PUSH_VALSPEC = 53; literal DST$K_STK_PUSH_INNER_ARRAY = 54; literal DST$K_STK_HIGH = 86; literal s_dst$q_xvs_value = 8; FIELD DST$XVS_SPEC_FIELDSET = SET dst$v_xvs_indirect = [0,0,1,0], dst$v_xvs_disp = [0,1,1,0], dst$v_xvs_valkind = [0,2,2,0], dst$v_xvs_fill0 = [0,4,12,0], dst$w_xvs_flags = [0,0,16,0], dst$w_xvs_regnum = [2,0,16,0], dst$l_xvs_low_value = [4,0,32,1], dst$l_xvs_hi_value = [8,0,32,1], dst$q_xvs_value = [4,0,64,0] TES; literal S_DST$XVS_SPEC = 12; MACRO DST$XVS_SPEC = BLOCK [S_DST$XVS_SPEC,byte] FIELD (DST$XVS_SPEC_FIELDSET) %; literal DST$K_XVS_SPEC_SIZE = 12; FIELD DST$TYPSPEC_FIELDSET = SET dst$a_typspec_header = [0,0,32,0], dst$b_typspec_name = [4,0,8,0] TES; literal S_DST$TYPSPEC = 5; MACRO DST$TYPSPEC = BLOCK [S_DST$TYPSPEC,byte] FIELD (DST$TYPSPEC_FIELDSET) %; literal DST$K_TYPSPEC_SIZE = 5; MACRO dst$a_typspec_ts_addr = DST$K_TYPSPEC_SIZE, 0, 0, 0%; macro DST$TS_DTYPE = 0,0,8,0 %; literal DST$K_TS_ATOM = 1; literal DST$K_TS_DSC = 2; literal DST$K_TS_IND = 3; literal DST$K_TS_TPTR = 4; literal DST$K_TS_PTR = 5; literal DST$K_TS_PIC = 6; literal DST$K_TS_ARRAY = 7; literal DST$K_TS_SET = 8; literal DST$K_TS_SUBRANGE = 9; literal DST$K_TS_ADA_DSC = 10; literal DST$K_TS_FILE = 11; literal DST$K_TS_AREA = 12; literal DST$K_TS_OFFSET = 13; literal DST$K_TS_NOV_LENG = 14; literal DST$K_TS_IND_TSPEC = 15; literal DST$K_TS_SELF_REL_LABEL = 16; literal DST$K_TS_RFA = 17; literal DST$K_TS_TASK = 18; literal DST$K_TS_ADA_ARRAY = 19; literal DST$K_TS_XMOD_IND = 20; literal DST$K_TS_CONSTRAINED = 21; literal DST$K_TS_MAYBE_CONSTR = 22; literal DST$K_TS_DYN_NOV_LENG = 23; literal DST$K_TS_TPTR_D = 24; literal DST$K_TS_SCAN_TREE = 25; literal DST$K_TS_SCAN_TREEPTR = 26; literal DST$K_TS_INCOMPLETE = 27; literal DST$K_TS_BLISS_BLOCK = 28; literal DST$K_TS_TPTR_64 = 29; literal DST$K_TS_PTR_64 = 30; literal DST$K_TS_REF = 31; literal DST$K_TS_REF_64 = 32; literal DST$K_TS_DTYPE_LOWEST = 1; literal DST$K_TS_DTYPE_HIGHEST = 32; literal s_dst$type_spec_variants = 8; FIELD DST$TYPE_SPEC_FIELDSET = SET dst$w_ts_length = [0,0,16,0], dst$b_ts_kind = [2,0,8,0], dst$b_ts_atom_typ = [3,0,8,0], dst$atomic_type = [3,0,8,0], dst$b_ts_ada_dsc_class = [3,0,8,0], dst$b_ts_ada_dsc_dtype = [4,0,8,0], dst$ada_descriptor_type = [3,0,16,0], dst$l_ts_ind_ptr = [3,0,32,0], dst$indirect_type = [3,0,32,0], dst$l_ts_xmod_offset = [3,0,32,0], dst$b_ts_xmod_modname = [7,0,8,0], dst$xmod_indirect_type = [3,0,40,0], dst$b_ts_pic_dleng = [3,0,8,0], dst$b_ts_pic_lang = [4,0,8,0], dst$b_ts_pic_pleng = [5,0,8,0], dst$picture_type = [3,0,24,0], dst$b_ts_array_dim = [3,0,8,0], dst$array_type = [3,0,8,0], dst$b_ts_ada_array_dim = [3,0,8,0], dst$b_ts_ada_array_class = [4,0,8,0], dst$b_ts_ada_array_dtype = [5,0,8,0], dst$ada_array_type = [3,0,24,0], dst$l_ts_set_leng = [3,0,32,0], dst$set_type = [3,0,32,0], dst$l_ts_subr_leng = [3,0,32,0], dst$subrange_type = [3,0,32,0], dst$b_ts_file_lang = [3,0,8,0], dst$file_type = [3,0,8,0], dst$l_ts_nov_leng = [3,0,32,0], dst$l_ts_nov_leng_par_tspec = [7,0,32,0], dst$novel_length_type = [3,0,64,0], dst$a_dyn_nov_val_spec = [3,0,40,0], dst$dynamic_novel_length_type = [3,0,40,0], dst$l_ts_self_leng = [3,0,32,0], dst$self_relative_type = [3,0,32,0], dst$wu_ts_task_entry_count = [3,0,16,0], dst$task_type = [3,0,16,0], dst$l_ts_constr_record = [3,0,32,0], dst$l_ts_constr_count = [7,0,32,0], dst$constrained_type = [3,0,64,0], dst$l_ts_mightbe_record = [3,0,32,0], dst$might_be_constrained_type = [3,0,32,0], dst$b_ts_scan_tree_depth = [3,0,8,0], dst$scan_tree_type = [3,0,8,0], dst$l_ts_incomplete_ptr = [3,0,32,0], dst$incomplete_type = [3,0,32,0], dst$l_ts_number_units = [3,0,32,0], dst$b_ts_unit_size = [7,0,8,0], dst$b_ts_field_set_count = [8,0,8,0], dst$bliss_block_type = [3,0,48,0], dst$type_spec_variants = [3,0,64,0] TES; literal S_DST$TYPE_SPEC = 11; MACRO DST$TYPE_SPEC = BLOCK [S_DST$TYPE_SPEC,byte] FIELD (DST$TYPE_SPEC_FIELDSET) %; literal DST$K_TYPE_SPEC_SIZE = 11; literal DST$K_TS_ATOM_LENG = 4; literal DST$K_TS_IND_LENG = 7; literal DST$K_TS_PTR_LENG = 3; literal DST$K_TS_PTR_64_LENG = 3; literal DST$K_TS_FILE_LENG = 4; literal DST$K_TS_AREA_LENG = 3; literal DST$K_TS_OFFSET_LENG = 3; literal DST$K_TS_NOV_LENG_LENG = 11; literal DST$K_TS_TASK_LENG = 3; literal DST$K_TS_INCOMPLETE_LENG = 7; literal DST$K_TS_BASE = 2; literal DST$K_TS_DSC_VSPEC = 3; literal DST$K_TS_ADA_DSC_VSPEC = 5; literal DST$K_TS_TPTR_TSPEC = 3; literal DST$K_TS_TPTR_64_TSPEC = 3; literal DST$K_TS_REF_TSPEC = 3; literal DST$K_TS_REF_64_TSPEC = 3; literal DST$K_TS_PIC_ADDR = 6; literal DST$K_TS_ARRAY_FLAGS = 4; literal DST$K_TS_ADA_ARRAY_FLAGS = 6; literal DST$K_TS_SET_PAR_TSPEC = 7; literal DST$K_TS_SUBR_PAR_TSPEC = 7; literal DST$K_TS_FILE_RCRD_TYP = 4; literal DST$K_TS_AREA_BYTE_LEN = 3; literal DST$K_TS_OFFSET_VALSPEC = 3; literal DST$K_TS_NOV_LENG_VSPEC = 3; literal DST$K_TS_NOV_LENG_TSPEC = 8; literal DST$K_TS_TASK_ENTRY = 5; literal DST$K_TS_CONSTR_LIST = 11; literal DST$K_TS_MIGHTBE_VALSPEC = 7; literal DST$K_TS_SCAN_TREE_FLAGS = 4; literal DST$K_TS_SCAN_TREEPTR_TREE = 3; literal DST$K_TS_FIELD_SET_LIST = 9; MACRO DST$A_TS_BASE = DST$K_TS_BASE, 0, 0, 0%; MACRO DST$A_TS_DSC_VSPEC_ADDR = DST$K_TS_DSC_VSPEC, 0, 0, 0%; MACRO DST$A_TS_ADA_DSC_VSPEC = DST$K_TS_ADA_DSC_VSPEC, 0, 0, 0%; MACRO DST$A_TS_TPTR_TSPEC_ADDR = DST$K_TS_TPTR_TSPEC, 0, 0, 0%; MACRO DST$A_TS_PIC_ADDR = DST$K_TS_PIC_ADDR, 0, 0, 0%; MACRO DST$A_TS_ARRAY_FLAGS_ADDR = DST$K_TS_ARRAY_FLAGS, 0, 0, 0%; MACRO DST$A_TS_ADA_ARRAY_FLAGS = DST$K_TS_ADA_ARRAY_FLAGS, 0, 0, 0%; MACRO DST$A_TS_SET_PAR_TSPEC_ADDR = DST$K_TS_SET_PAR_TSPEC, 0, 0, 0%; MACRO DST$A_TS_SUBR_PAR_TSPEC_ADDR = DST$K_TS_SUBR_PAR_TSPEC, 0, 0, 0%; MACRO DST$A_TS_FILE_RCRD_TYP = DST$K_TS_FILE_RCRD_TYP, 0, 0, 0%; MACRO DST$A_TS_AREA_BYTE_LEN = DST$K_TS_AREA_BYTE_LEN, 0, 0, 0%; MACRO DST$A_TS_OFFSET_VALSPEC = DST$K_TS_OFFSET_VALSPEC, 0, 0, 0%; MACRO DST$A_TS_NOV_LENG_VSPEC = DST$K_TS_NOV_LENG_VSPEC, 0, 0, 0%; MACRO DST$A_TS_NOV_LENG_TSPEC = DST$K_TS_NOV_LENG_TSPEC, 0, 0, 0%; MACRO DST$A_TS_TASK_ENTRY_BASE = DST$K_TS_TASK_ENTRY, 0, 0, 0%; MACRO DST$A_TS_CONSTR_LIST = DST$K_TS_CONSTR_LIST, 0, 0, 0%; MACRO DST$A_TS_MIGHTBE_VALSPEC = DST$K_TS_MIGHTBE_VALSPEC, 0, 0, 0%; MACRO DST$A_TS_SCAN_TREE_FLAGS = DST$K_TS_SCAN_TREE_FLAGS, 0, 0, 0%; MACRO DST$A_TS_SCAN_TREEPTR_TREE = DST$K_TS_SCAN_TREEPTR_TREE, 0, 0, 0%; MACRO DST$A_TS_FIELD_SET_LIST = DST$K_TS_FIELD_SET_LIST, 0, 0, 0%; literal DBG$K_SET_SIZE_MAX = 8192; literal DBG$K_PREDEF_SET_SIZE_MAX = 32; FIELD DST$TASK_TS_ENTRY_FIELDSET = SET dst$v_ts_task_entry_family = [0,0,1,0], dst$v_ts_task_entry_mbz = [0,1,7,0], dst$bu_ts_task_entry_flags = [0,0,8,0], dst$bu_ts_task_entry_name = [1,0,8,0], dst$bu_ts_task_entry_trlr_offs = [1,0,8,0], dst$bu_ts_task_fields = [1,0,8,0] TES; literal S_DST$TASK_TS_ENTRY = 2; MACRO DST$TASK_TS_ENTRY = BLOCK [S_DST$TASK_TS_ENTRY,byte] FIELD (DST$TASK_TS_ENTRY_FIELDSET) %; literal DST$K_TASK_TS_ENTRY_SIZE = 2; MACRO dst$a_ts_task_entry_trlr_base = DST$K_TASK_TS_ENTRY_SIZE, 0, 0, 0%; literal s_dst$a_ts_entry_family_lb = 5; literal s_dst$a_ts_entry_family_ub = 5; FIELD DST$TASK_TS_FAMILY_FIELDSET = SET dst$a_ts_entry_family_lb = [0,0,40,0], dst$a_ts_entry_family_ub = [5,0,40,0] TES; literal S_DST$TASK_TS_FAMILY = 10; MACRO DST$TASK_TS_FAMILY = BLOCK [S_DST$TASK_TS_FAMILY,byte] FIELD (DST$TASK_TS_FAMILY_FIELDSET) %; literal DST$K_TASK_TS_ENTRY_FAMILY_SIZE = 10; MACRO DST$TASK_TS_ENTRY_FAMILY = DST$TASK_TS_FAMILY%; MACRO dst$a_ts_entry_family_type = DST$K_TASK_TS_ENTRY_FAMILY_SIZE, 0, 0, 0%; FIELD DST$ENUM_BEGIN_FIELDSET = SET dst$a_enumbeg_header = [0,0,32,0], dst$b_enumbeg_leng = [4,0,8,0], dst$b_enumbeg_name = [5,0,8,0] TES; literal S_DST$ENUM_BEGIN = 6; MACRO DST$ENUM_BEGIN = BLOCK [S_DST$ENUM_BEGIN,byte] FIELD (DST$ENUM_BEGIN_FIELDSET) %; literal DST$K_ENUM_BEGIN_SIZE = 6; FIELD DST$ENUM_END_FIELDSET = SET dst$a_enum_end_header = [0,0,32,0] TES; literal S_DST$ENUM_END = 4; MACRO DST$ENUM_END = BLOCK [S_DST$ENUM_END,byte] FIELD (DST$ENUM_END_FIELDSET) %; literal DST$K_ENUM_END_SIZE = 4; FIELD DST$BLISS_FIELD_BEGIN_FIELDSET = SET dst$a_blifldbeg_header = [0,0,32,0], dst$b_blifldbeg_name = [4,0,8,0] TES; literal S_DST$BLISS_FIELD_BEGIN = 5; MACRO DST$BLISS_FIELD_BEGIN = BLOCK [S_DST$BLISS_FIELD_BEGIN,byte] FIELD (DST$BLISS_FIELD_BEGIN_FIELDSET) %; literal DST$K_BLISS_FIELD_BEGIN_SIZE = 5; FIELD DST$BLISS_FIELD_END_FIELDSET = SET dst$a_blifld_end_header = [0,0,32,0] TES; literal S_DST$BLISS_FIELD_END = 4; MACRO DST$BLISS_FIELD_END = BLOCK [S_DST$BLISS_FIELD_END,byte] FIELD (DST$BLISS_FIELD_END_FIELDSET) %; literal DST$K_BLISS_FIELD_END_SIZE = 4; FIELD DST$BLISS_FIELD_FIELDSET = SET dst$a_blifld_header = [0,0,32,0], dst$b_blifld_unused = [4,0,8,0], dst$l_blifld_comps = [5,0,32,0], dst$b_blifld_name = [9,0,8,0] TES; literal S_DST$BLISS_FIELD = 10; MACRO DST$BLISS_FIELD = BLOCK [S_DST$BLISS_FIELD,byte] FIELD (DST$BLISS_FIELD_FIELDSET) %; literal DST$K_BLISS_FIELD_SIZE = 10; literal DST$K_BLI_NOSTRUC = 0; literal DST$K_BLI_VEC = 1; literal DST$K_BLI_BITVEC = 2; literal DST$K_BLI_BLOCK = 3; literal DST$K_BLI_BLKVEC = 4; literal DST$K_BLI_STRUC_MIN = 0; literal DST$K_BLI_STRUC_MAX = 4; literal s_dst$bli_struc_variants = 9; FIELD DST$BLI_FIELDS_FIELDSET = SET dst$a_bli_fields_header = [0,0,32,0], dst$b_bli_lng = [4,0,8,0], dst$b_bli_formal = [5,0,8,0], dst$b_bli_vflags = [6,0,8,0], dst$v_bli_struc = [7,0,3,0], dst$v_bli_mbz = [7,3,4,0], dst$v_bli_ref = [7,7,1,0], dst$b_bli_sym_type = [7,0,8,0], dst$l_bli_vec_units = [8,0,32,0], dst$v_bli_vec_unit_size = [12,0,4,0], dst$v_bli_vec_sign_ext = [12,4,4,0], dst$v_bli_vec_flags = [12,0,8,0], dst$bli_struc_vector = [8,0,40,0], dst$l_bli_bitvec_size = [8,0,32,0], dst$bli_struc_bitvector = [8,0,32,0], dst$l_bli_block_units = [8,0,32,0], dst$v_bli_block_unit_size = [12,0,4,0], dst$v_bli_block_mbz = [12,4,4,0], dst$v_bli_block_flags = [12,0,8,0], dst$bli_struc_block = [8,0,40,0], dst$l_bli_blkvec_blocks = [8,0,32,0], dst$l_bli_blkvec_units = [12,0,32,0], dst$b_bli_blkvec_unit_size = [16,0,8,0], dst$bli_struc_blockvector = [8,0,0,0], dst$bli_struc_variants = [8,0,0,0] TES; literal S_DST$BLI_FIELDS = 17; MACRO DST$BLI_FIELDS = BLOCK [S_DST$BLI_FIELDS,byte] FIELD (DST$BLI_FIELDS_FIELDSET) %; literal DST$K_BLI_FIELDS_SIZE = 17; literal DST$K_BLI_TRLR1 = 5; literal DST$K_BLI_SYM_ATTR = 8; MACRO dst$a_bli_trlr1 = DST$K_BLI_TRLR1, 0, 0, 0%; MACRO dst$a_bli_sym_attr = DST$K_BLI_SYM_ATTR, 0, 0, 0%; FIELD DST$BLI_TRAILER1_FIELDSET = SET dst$l_bli_value = [0,0,32,0], dst$b_bli_name = [4,0,8,0] TES; literal S_DST$BLI_TRAILER1 = 5; MACRO DST$BLI_TRAILER1 = BLOCK [S_DST$BLI_TRAILER1,byte] FIELD (DST$BLI_TRAILER1_FIELDSET) %; literal DST$K_BLI_TRAILER1_SIZE = 5; MACRO dst$a_bli_trlr2 = DST$K_BLI_TRAILER1_SIZE, 0, 0, 0%; FIELD DST$BLI_TRAILER2_FIELDSET = SET dst$l_bli_size = [0,0,32,0] TES; literal S_DST$BLI_TRAILER2 = 4; MACRO DST$BLI_TRAILER2 = BLOCK [S_DST$BLI_TRAILER2,byte] FIELD (DST$BLI_TRAILER2_FIELDSET) %; literal DST$K_BLI_TRAILER2_SIZE = 4; literal s_dst$a_image_header = 10; FIELD DST$IMAGE_FIELDSET = SET dst$a_image_header = [0,0,0,0] TES; literal S_DST$IMAGE = 10; MACRO DST$IMAGE = BLOCK [S_DST$IMAGE,byte] FIELD (DST$IMAGE_FIELDSET) %; literal DST$K_IMAGE_SIZE = 10; FIELD DST$PSECT_FIELDSET = SET dst$a_psect_header = [0,0,32,0], dst$b_psect_unused = [4,0,8,0], dst$l_psect_value = [5,0,32,0], dst$b_psect_name = [9,0,8,0], dst$b_psect_trlr_offs = [9,0,8,0], dst$a_psect_info = [9,0,8,0] TES; literal S_DST$PSECT = 10; MACRO DST$PSECT = BLOCK [S_DST$PSECT,byte] FIELD (DST$PSECT_FIELDSET) %; literal DST$K_PSECT_HEADER_SIZE = 10; MACRO dst$a_psect_trlr_base = DST$K_PSECT_HEADER_SIZE, 0, 0, 0%; FIELD DST$PSECT_TRAILER_FIELDSET = SET dst$l_psect_size = [0,0,32,0] TES; literal S_DST$PSECT_TRAILER = 4; MACRO DST$PSECT_TRAILER = BLOCK [S_DST$PSECT_TRAILER,byte] FIELD (DST$PSECT_TRAILER_FIELDSET) %; literal DST$K_PSECT_TRAILER_SIZE = 4; literal DST$K_LABEL_SIZE = 10; literal DST$K_LBL_OR_LIT_SIZE = 10; FIELD DST$ENTRY_FIELDSET = SET dst$a_entry_dst_header = [0,0,32,0], dst$v_entry_mbz = [4,0,8,0], dst$b_entry_flags = [4,0,8,0], dst$l_entry_address = [5,0,32,0], dst$l_entry_pd_address = [9,0,32,0], dst$b_entry_name = [13,0,8,0] TES; literal S_DST$ENTRY = 14; MACRO DST$ENTRY = BLOCK [S_DST$ENTRY,byte] FIELD (DST$ENTRY_FIELDSET) %; literal DST$K_ENTRY_SIZE = 14; FIELD DST$LINE_NUM_HEADER_FIELDSET = SET dst$a_line_num_header = [0,0,32,0] TES; literal S_DST$LINE_NUM_HEADER = 4; MACRO DST$LINE_NUM_HEADER = BLOCK [S_DST$LINE_NUM_HEADER,byte] FIELD (DST$LINE_NUM_HEADER_FIELDSET) %; literal DST$K_LINE_NUM_HEADER_SIZE = 4; MACRO dst$a_line_num_data = DST$K_LINE_NUM_HEADER_SIZE, 0, 0, 0%; FIELD DST$PCLINE_COMMANDS_FIELDSET = SET dst$b_pcline_command = [0,0,8,1], dst$l_pcline_unslong = [1,0,32,0], dst$w_pcline_unsword = [1,0,16,0], dst$b_pcline_unsbyte = [1,0,8,0], dst$a_pcline_access_fields = [1,0,32,0] TES; literal S_DST$PCLINE_COMMANDS = 5; MACRO DST$PCLINE_COMMANDS = BLOCK [S_DST$PCLINE_COMMANDS,byte] FIELD (DST$PCLINE_COMMANDS_FIELDSET) %; literal DST$K_PCLINE_COMMANDS_SIZE = 5; literal DST$K_PCLINE_COMMANDS_SIZE_MIN = 2; literal DST$K_PCLINE_COMMANDS_SIZE_MAX = 5; literal DST$K_DELTA_PC_LOW = -128; literal DST$K_DELTA_PC_HIGH = 0; literal DST$K_DELTA_PC_W = 1; literal DST$K_INCR_LINUM = 2; literal DST$K_INCR_LINUM_W = 3; literal DST$K_SET_LINUM_INCR = 4; literal DST$K_SET_LINUM_INCR_W = 5; literal DST$K_RESET_LINUM_INCR = 6; literal DST$K_BEG_STMT_MODE = 7; literal DST$K_END_STMT_MODE = 8; literal DST$K_SET_LINUM = 9; literal DST$K_SET_PC = 10; literal DST$K_SET_PC_W = 11; literal DST$K_SET_PC_L = 12; literal DST$K_SET_STMTNUM = 13; literal DST$K_TERM = 14; literal DST$K_TERM_W = 15; literal DST$K_SET_ABS_PC = 16; literal DST$K_DELTA_PC_L = 17; literal DST$K_INCR_LINUM_L = 18; literal DST$K_SET_LINUM_B = 19; literal DST$K_SET_LINUM_L = 20; literal DST$K_TERM_L = 21; literal DST$K_PCCOR_LOW = -128; literal DST$K_PCCOR_HIGH = 21; FIELD DST$SOURCE_CORR_FIELDSET = SET dst$a_source_corr_header = [0,0,32,0] TES; literal S_DST$SOURCE_CORR = 4; MACRO DST$SOURCE_CORR = BLOCK [S_DST$SOURCE_CORR,byte] FIELD (DST$SOURCE_CORR_FIELDSET) %; literal DST$K_SOURCE_CORR_HEADER_SIZE = 4; MACRO dst$a_src_first_cmd = DST$K_SOURCE_CORR_HEADER_SIZE, 0, 0, 0%; literal DST$K_SRC_DECLFILE = 1; literal DST$K_SRC_SETFILE = 2; literal DST$K_SRC_SETREC_L = 3; literal DST$K_SRC_SETREC_W = 4; literal DST$K_SRC_SETLNUM_L = 5; literal DST$K_SRC_SETLNUM_W = 6; literal DST$K_SRC_INCRLNUM_B = 7; literal DST$K_SRC_UNUSED1 = 8; literal DST$K_SRC_UNUSED2 = 9; literal DST$K_SRC_DEFLINES_W = 10; literal DST$K_SRC_DEFLINES_B = 11; literal DST$K_SRC_UNUSED3 = 12; literal DST$K_SRC_UNUSED4 = 13; literal DST$K_SRC_UNUSED5 = 14; literal DST$K_SRC_UNUSED6 = 15; literal DST$K_SRC_FORMFEED = 16; literal DST$K_SRC_MIN_CMD = 1; literal DST$K_SRC_MAX_CMD = 16; literal s_dst$a_src_cmd_fields = 20; FIELD DST$SRC_COMMAND_FIELDSET = SET dst$b_src_command = [0,0,8,0], dst$b_src_df_length = [1,0,8,0], dst$b_src_df_flags = [2,0,8,0], dst$w_src_df_fileid = [3,0,16,0], dst$q_src_df_rms_cdt = [5,0,64,0], dst$l_src_df_rms_ebk = [13,0,32,0], dst$w_src_df_rms_ffb = [17,0,16,0], dst$b_src_df_rms_rfo = [19,0,8,0], dst$b_src_df_filename = [20,0,8,0], dst$a_src_decl_src = [1,0,0,0], dst$l_src_unslong = [1,0,32,0], dst$w_src_unsword = [1,0,16,0], dst$b_src_unsbyte = [1,0,8,0], dst$a_src_cmd_fields = [1,0,0,0] TES; literal S_DST$SRC_COMMAND = 21; MACRO DST$SRC_COMMAND = BLOCK [S_DST$SRC_COMMAND,byte] FIELD (DST$SRC_COMMAND_FIELDSET) %; literal DST$K_SRC_COMMAND_SIZE = 21; literal DST$K_SRC_DF_FILENAME_BASE = 21; MACRO dst$a_src_df_filename = DST$K_SRC_DF_FILENAME_BASE, 0, 0, 0%; FIELD DST$SRC_CMDTRLR_FIELDSET = SET dst$b_src_df_libmodname = [0,0,8,0] TES; literal S_DST$SRC_CMDTRLR = 1; MACRO DST$SRC_CMDTRLR = BLOCK [S_DST$SRC_CMDTRLR,byte] FIELD (DST$SRC_CMDTRLR_FIELDSET) %; literal DST$K_SRC_CMDTRLR_SIZE = 1; MACRO dst$a_src_df_libmodname = DST$K_SRC_CMDTRLR_SIZE, 0, 0, 0%; FIELD DST$GEM_LOC_HEADER_FIELDSET = SET dst$a_gem_loc_header = [0,0,32,0] TES; literal S_DST$GEM_LOC_HEADER = 4; MACRO DST$GEM_LOC_HEADER = BLOCK [S_DST$GEM_LOC_HEADER,byte] FIELD (DST$GEM_LOC_HEADER_FIELDSET) %; literal DST$K_GEM_LOC_HEADER_SIZE = 4; MACRO dst$a_gem_loc_data = DST$K_GEM_LOC_HEADER_SIZE, 0, 0, 0%; literal s_dst$pcloc_subcommand_args = 12; FIELD DST$PCLOC_COMMANDS_FIELDSET = SET dst$b_pcloc_command = [0,0,8,1], dst$w_pcloc_pnts_line = [1,0,16,0], dst$b_pcloc_pnts_column = [3,0,8,0], dst$a_pcloc_pnts = [1,0,24,0], dst$l_pcloc_pntl_line = [1,0,32,0], dst$w_pcloc_pntl_column = [5,0,16,0], dst$a_pcloc_pntl = [1,0,48,0], dst$w_pcloc_rngs_low_line = [1,0,16,0], dst$b_pcloc_rngs_low_column = [3,0,8,0], dst$w_pcloc_rngs_high_line = [4,0,16,0], dst$b_pcloc_rngs_high_column = [6,0,8,0], dst$a_pcloc_rngs = [1,0,48,0], dst$l_pcloc_rngl_low_line = [1,0,32,0], dst$w_pcloc_rngl_low_column = [5,0,16,0], dst$l_pcloc_rngl_high_line = [7,0,32,0], dst$w_pcloc_rngl_high_column = [11,0,16,0], dst$a_pcloc_rngl = [1,0,0,0], dst$w_pcloc_lins_line = [1,0,16,0], dst$b_pcloc_lins_low_column = [3,0,8,0], dst$b_pcloc_lins_high_column = [4,0,8,0], dst$a_pcloc_lins = [1,0,32,0], dst$q_pcloc_setpc64_value = [1,0,64,0], dst$a_pcloc_setpc64 = [1,0,64,0], dst$l_pcloc_setpc32_value = [1,0,32,0], dst$a_pcloc_setpc32 = [1,0,32,0], dst$l_pcloc_event_read_sym1 = [1,0,32,0], dst$l_pcloc_event_read_sym2 = [5,0,32,0], dst$a_pcloc_event_read = [1,0,64,0], dst$l_pcloc_event_write_sym = [1,0,32,0], dst$a_pcloc_event_write = [1,0,32,0], dst$pcloc_subcommand_args = [1,0,0,0] TES; literal S_DST$PCLOC_COMMANDS = 13; MACRO DST$PCLOC_COMMANDS = BLOCK [S_DST$PCLOC_COMMANDS,byte] FIELD (DST$PCLOC_COMMANDS_FIELDSET) %; literal DST$K_PCLOC_CMD_SIZE_END = 1; literal DST$K_PCLOC_CMD_SIZE_PNTS = 4; literal DST$K_PCLOC_CMD_SIZE_PNTL = 7; literal DST$K_PCLOC_CMD_SIZE_RNGS = 7; literal DST$K_PCLOC_CMD_SIZE_RNGL = 13; literal DST$K_PCLOC_CMD_SIZE_LINS = 5; literal DST$K_PCLOC_CMD_SIZE_INCR = 1; literal DST$K_PCLOC_CMD_SIZE_SETPC64 = 9; literal DST$K_PCLOC_CMD_SIZE_SETPC32 = 5; literal DST$K_PCLOC_CMD_SIZE_EVENT = 1; literal DST$K_PCLOC_CMD_SIZE_EVENT_RD = 9; literal DST$K_PCLOC_CMD_SIZE_EVENT_WR = 5; literal DST$K_PCLOC_END = 0; literal DST$K_PCLOC_PNTS_INCR = 1; literal DST$K_PCLOC_PNTL_INCR = 2; literal DST$K_PCLOC_RNGS_INCR = 3; literal DST$K_PCLOC_RNGL_INCR = 4; literal DST$K_PCLOC_PNTS = 5; literal DST$K_PCLOC_PNTL = 6; literal DST$K_PCLOC_RNGS = 7; literal DST$K_PCLOC_RNGL = 8; literal DST$K_PCLOC_INCR = 9; literal DST$K_PCLOC_SETPC64 = 10; literal DST$K_PCLOC_SETPC32 = 11; literal DST$K_PCLOC_EVENT_INST = 12; literal DST$K_PCLOC_EVENT_READ = 13; literal DST$K_PCLOC_EVENT_WRITE = 14; literal DST$K_PCLOC_EVENT_CTRL = 15; literal DST$K_PCLOC_EVENT_CALL = 16; literal DST$K_PCLOC_LINS = 17; literal DST$K_PCLOC_LINS_INCR = 18; literal DST$K_PCLOC_EVENT_PWRIT = 19; literal DST$K_PCLOC_EVENT_LABEL = 20; literal DST$K_PCLOC_LOW = 0; literal DST$K_PCLOC_HIGH = 20; FIELD DST$CONTINUATION_FIELDSET = SET dst$a_continuation_header = [0,0,32,0] TES; literal S_DST$CONTINUATION = 4; MACRO DST$CONTINUATION = BLOCK [S_DST$CONTINUATION,byte] FIELD (DST$CONTINUATION_FIELDSET) %; literal DST$K_CONTINUATION_HEADER_SIZE = 4; MACRO dst$a_contin = DST$K_CONTINUATION_HEADER_SIZE, 0, 0, 0%; FIELD DST$GOTO_FIELDSET = SET dst$a_goto_header = [0,0,32,0], dst$l_goto_ptr = [4,0,32,0] TES; literal S_DST$GOTO = 8; MACRO DST$GOTO = BLOCK [S_DST$GOTO,byte] FIELD (DST$GOTO_FIELDSET) %; literal DST$K_GOTO_SIZE = 8; FIELD DST$OVERLOAD_HEADER_FIELDSET = SET dst$a_ol_header = [0,0,32,0], dst$b_ol_name = [4,0,8,0] TES; literal S_DST$OVERLOAD_HEADER = 5; MACRO DST$OVERLOAD_HEADER = BLOCK [S_DST$OVERLOAD_HEADER,byte] FIELD (DST$OVERLOAD_HEADER_FIELDSET) %; literal DST$K_OVERLOAD_HEADER_SIZE = 5; MACRO dst$a_ol_trailer = DST$K_OVERLOAD_HEADER_SIZE, 0, 0, 0%; FIELD DST$OVERLOAD_TRLR_FIELDSET = SET dst$w_ol_count = [0,0,16,0] TES; literal S_DST$OVERLOAD_TRLR = 2; MACRO DST$OVERLOAD_TRLR = BLOCK [S_DST$OVERLOAD_TRLR,byte] FIELD (DST$OVERLOAD_TRLR_FIELDSET) %; literal DST$K_OVERLOAD_VECTOR_BASE = 2; MACRO dst$a_ol_vector = DST$K_OVERLOAD_VECTOR_BASE, 0, 0, 0%; FIELD DST$SUBUNIT_FIELDSET = SET dst$a_subunit_header = [0,0,32,0], dst$b_subunit_pathname_count = [4,0,8,0] TES; literal S_DST$SUBUNIT = 5; MACRO DST$SUBUNIT = BLOCK [S_DST$SUBUNIT,byte] FIELD (DST$SUBUNIT_FIELDSET) %; literal DST$K_SUBUNIT_SIZE = 5; FIELD DST$SET_MODULE_FIELDSET = SET dst$a_set_module_header = [0,0,32,0], dst$b_set_module_name = [4,0,8,0] TES; literal S_DST$SET_MODULE = 5; MACRO DST$SET_MODULE = BLOCK [S_DST$SET_MODULE,byte] FIELD (DST$SET_MODULE_FIELDSET) %; literal DST$K_SET_MODULE_SIZE = 5; FIELD DST$USE_CLAUSE_FIELDSET = SET dst$a_use_header = [0,0,32,0], dst$b_use_pathname_count = [4,0,8,0] TES; literal S_DST$USE_CLAUSE = 5; MACRO DST$USE_CLAUSE = BLOCK [S_DST$USE_CLAUSE,byte] FIELD (DST$USE_CLAUSE_FIELDSET) %; literal DST$K_USE_CLAUSE_SIZE = 5; FIELD DST$REAL_NAME_FIELDSET = SET dst$a_real_name_header = [0,0,32,0], dst$b_real_name = [4,0,8,0] TES; literal S_DST$REAL_NAME = 5; MACRO DST$REAL_NAME = BLOCK [S_DST$REAL_NAME,byte] FIELD (DST$REAL_NAME_FIELDSET) %; literal DST$K_REAL_NAME_SIZE = 5; FIELD DST$BODY_SPEC_FIELDSET = SET dst$a_body_spec_header = [0,0,32,0], dst$b_body_spec_pathname_count = [4,0,8,0] TES; literal S_DST$BODY_SPEC = 5; MACRO DST$BODY_SPEC = BLOCK [S_DST$BODY_SPEC,byte] FIELD (DST$BODY_SPEC_FIELDSET) %; literal DST$K_BODY_SPEC_SIZE = 5; FIELD DST$ALIAS_FIELDSET = SET dst$a_alias_header = [0,0,32,0], dst$l_alias_mod_offset = [4,0,32,0], dst$b_alias_name = [8,0,8,0] TES; literal S_DST$ALIAS = 9; MACRO DST$ALIAS = BLOCK [S_DST$ALIAS,byte] FIELD (DST$ALIAS_FIELDSET) %; literal DST$K_ALIAS_SIZE = 9; FIELD DST$FULFILLS_TYPE_FIELDSET = SET dst$a_fulfills_header = [0,0,32,0] TES; literal S_DST$FULFILLS_TYPE = 4; MACRO DST$FULFILLS_TYPE = BLOCK [S_DST$FULFILLS_TYPE,byte] FIELD (DST$FULFILLS_TYPE_FIELDSET) %; literal DST$K_FULFILLS_TYPE_SIZE = 4; MACRO dst$a_ff_incomplete_ts = DST$K_FULFILLS_TYPE_SIZE, 0, 0, 0%; FIELD DST$DEF_LNUM_FIELDSET = SET dst$a_def_lnum_header = [0,0,32,0], dst$b_def_lnum_mbz = [4,0,8,0], dst$l_def_lnum_line = [5,0,32,0] TES; literal S_DST$DEF_LNUM = 9; MACRO DST$DEF_LNUM = BLOCK [S_DST$DEF_LNUM,byte] FIELD (DST$DEF_LNUM_FIELDSET) %; literal DST$K_DEF_LNUM_SIZE = 9; FIELD DST$STATLINK_FIELDSET = SET dst$a_sl_header = [0,0,32,0] TES; literal S_DST$STATLINK = 4; MACRO DST$STATLINK = BLOCK [S_DST$STATLINK,byte] FIELD (DST$STATLINK_FIELDSET) %; literal DST$K_STATLINK_SIZE = 4; MACRO dst$a_sl_valspec = DST$K_STATLINK_SIZE, 0, 0, 0%; FIELD DST$PROLOG_FIELDSET = SET dst$a_prolog_header = [0,0,32,0], dst$l_prolog_bkpt_addr = [4,0,32,0] TES; literal S_DST$PROLOG = 8; MACRO DST$PROLOG = BLOCK [S_DST$PROLOG,byte] FIELD (DST$PROLOG_FIELDSET) %; literal DST$K_PROLOG_SIZE = 8; FIELD DST$PROLIST_FIELDSET = SET dst$w_prolist_header = [0,0,32,0], dst$lu_prolist_count = [4,0,32,0] TES; literal S_DST$PROLIST = 8; MACRO DST$PROLIST = BLOCK [S_DST$PROLIST,byte] FIELD (DST$PROLIST_FIELDSET) %; literal DST$K_PROLIST_SIZE = 8; MACRO dst$a_prolist = DST$K_PROLIST_SIZE, 0, 0, 0%; FIELD DST$PROLIST_ENTRY_FIELDSET = SET dst$lu_prolist_bkpt_addr = [0,0,32,0] TES; literal S_DST$PROLIST_ENTRY = 4; MACRO DST$PROLIST_ENTRY = BLOCK [S_DST$PROLIST_ENTRY,byte] FIELD (DST$PROLIST_ENTRY_FIELDSET) %; literal DST$K_PROLIST_ENTRY_SIZE = 4; KEYWORDMACRO DST$PROLIST_VECTOR(N = 1) = BLOCKVECTOR[(N), DST$K_PROLIST_ENTRY_SIZE, BYTE] FIELD(DST$PROLIST_ENTRY_FIELDSET) %; FIELD DST$EPILOG_FIELDSET = SET dst$w_epilog_header = [0,0,32,0], dst$v_epilog_addr_pairs_flag = [4,0,1,0], dst$v_epilog_mbz = [4,1,7,0], dst$b_epilog_flags = [4,0,8,0], dst$lu_epilog_count = [5,0,32,0] TES; literal S_DST$EPILOG = 9; MACRO DST$EPILOG = BLOCK [S_DST$EPILOG,byte] FIELD (DST$EPILOG_FIELDSET) %; literal DST$K_EPILOG_SIZE = 9; MACRO dst$a_epilogs = DST$K_EPILOG_SIZE, 0, 0, 0%; FIELD DST$EPI_SINGLETON_FIELDSET = SET dst$lu_epilog_single_addr = [0,0,32,0] TES; literal S_DST$EPI_SINGLETON = 4; MACRO DST$EPI_SINGLETON = BLOCK [S_DST$EPI_SINGLETON,byte] FIELD (DST$EPI_SINGLETON_FIELDSET) %; literal DST$K_EPILOG_SINGLETON_SIZE = 4; KEYWORDMACRO DST$EPILOG_SINGLETON(N = 1) = BLOCKVECTOR[(N), DST$K_EPILOG_SINGLETON_SIZE,BYTE] FIELD(DST$EPI_SINGLETON_FIELDSET) %; FIELD DST$EPI_PAIR_FIELDSET = SET dst$lu_epilog_pair_low_addr = [0,0,32,0], dst$lu_epilog_pair_high_addr = [4,0,32,0] TES; literal S_DST$EPI_PAIR = 8; MACRO DST$EPI_PAIR = BLOCK [S_DST$EPI_PAIR,byte] FIELD (DST$EPI_PAIR_FIELDSET) %; literal DST$K_EPILOG_PAIR_SIZE = 8; KEYWORDMACRO DST$EPILOG_PAIR(N = 1) = BLOCKVECTOR[(N), DST$K_EPILOG_PAIR_SIZE,BYTE] FIELD(DST$EPI_PAIR_FIELDSET) %; FIELD DST$RETURN_FIELDSET = SET dst$w_return_header = [0,0,32,0], dst$b_return_mbz = [4,0,8,0], dst$lu_return_count = [5,0,32,0] TES; literal S_DST$RETURN = 9; MACRO DST$RETURN = BLOCK [S_DST$RETURN,byte] FIELD (DST$RETURN_FIELDSET) %; literal DST$K_RETURN_SIZE = 9; MACRO dst$a_returns = DST$K_RETURN_SIZE, 0, 0, 0%; FIELD DST$VERSION_FIELDSET = SET dst$a_version_header = [0,0,32,0], dst$b_version_major = [4,0,8,0], dst$b_version_minor = [5,0,8,0] TES; literal S_DST$VERSION = 6; MACRO DST$VERSION = BLOCK [S_DST$VERSION,byte] FIELD (DST$VERSION_FIELDSET) %; literal DST$K_VERSION_SIZE = 6; FIELD DST$REG_SAVE_BEGIN_FIELDSET = SET dst$w_regbeg_header = [0,0,32,0], dst$v_regbeg_save_mask_flag = [4,0,1,0], dst$v_regbeg_mbz = [4,1,7,0], dst$bu_regbeg_flags = [4,0,8,0], dst$bu_regbeg_save_mask_length = [5,0,8,0] TES; literal S_DST$REG_SAVE_BEGIN = 6; MACRO DST$REG_SAVE_BEGIN = BLOCK [S_DST$REG_SAVE_BEGIN,byte] FIELD (DST$REG_SAVE_BEGIN_FIELDSET) %; literal DST$K_REGISTER_SAVE_BEGIN_SIZE = 6; MACRO DST$REGISTER_SAVE_BEGIN = DST$REG_SAVE_BEGIN%; MACRO dst$v_regbeg_save_mask_base = DST$K_REGISTER_SAVE_BEGIN_SIZE, 0, 0, 0%; literal s_dst$a_reg_save_valspec = 5; FIELD DST$REGISTER_SAVE_FIELDSET = SET dst$w_reg_save_header = [0,0,32,0], dst$a_reg_save_valspec = [4,0,40,0], dst$bu_reg_save_regnum = [9,0,8,0] TES; literal S_DST$REGISTER_SAVE = 10; MACRO DST$REGISTER_SAVE = BLOCK [S_DST$REGISTER_SAVE,byte] FIELD (DST$REGISTER_SAVE_FIELDSET) %; literal DST$K_REGISTER_SAVE_SIZE = 10; FIELD DST$REGISTER_SAVE_END_FIELDSET = SET dst$w_regend_header = [0,0,32,0] TES; literal S_DST$REGISTER_SAVE_END = 4; MACRO DST$REGISTER_SAVE_END = BLOCK [S_DST$REGISTER_SAVE_END,byte] FIELD (DST$REGISTER_SAVE_END_FIELDSET) %; literal DST$K_REGISTER_SAVE_END_SIZE = 4; FIELD DST$EXCEPTION_FIELDSET = SET dst$w_exception_header = [0,0,32,0], dst$v_exception_mod_name_flag = [4,0,1,0], dst$v_exception_mbz = [4,1,7,0], dst$bu_exception_flags = [4,0,8,0], dst$lu_exception_value = [5,0,32,0], dst$b_exception_name = [9,0,8,0], dst$b_exception_trlr_offs = [9,0,8,0], dst$a_exception_variant = [9,0,8,0] TES; literal S_DST$EXCEPTION = 10; MACRO DST$EXCEPTION = BLOCK [S_DST$EXCEPTION,byte] FIELD (DST$EXCEPTION_FIELDSET) %; literal DST$K_EXCEPTION_SIZE = 10; MACRO dst$a_exception_trlr_base = DST$K_EXCEPTION_SIZE, 0, 0, 0%; FIELD DST$EXCEPTION_TRAILER_FIELDSET = SET dst$b_exception_mod_name = [0,0,8,0] TES; literal S_DST$EXCEPTION_TRAILER = 1; MACRO DST$EXCEPTION_TRAILER = BLOCK [S_DST$EXCEPTION_TRAILER,byte] FIELD (DST$EXCEPTION_TRAILER_FIELDSET) %; literal DST$K_EXCEPTION_TRAILER_SIZE = 1; FIELD DST$BASE_CLASS_FIELDSET = SET dst$w_base_class_header = [0,0,32,0], dst$v_base_class_virtual = [4,0,1,0], dst$v_base_class_unused = [4,1,7,0], dst$b_base_class_flags = [4,0,8,0], dst$l_base_class_dst = [5,0,32,0], dst$l_base_class_value = [9,0,32,0] TES; literal S_DST$BASE_CLASS = 13; MACRO DST$BASE_CLASS = BLOCK [S_DST$BASE_CLASS,byte] FIELD (DST$BASE_CLASS_FIELDSET) %; literal DST$K_BASE_CLASS_SIZE = 13; FIELD DST$VIRT_FUNC_FIELDSET = SET dst$w_virt_func_header = [0,0,32,0], dst$v_virt_func_unused = [4,0,8,0], dst$b_virt_func_flags = [4,0,8,0], dst$l_virt_func_index = [5,0,32,0] TES; literal S_DST$VIRT_FUNC = 9; MACRO DST$VIRT_FUNC = BLOCK [S_DST$VIRT_FUNC,byte] FIELD (DST$VIRT_FUNC_FIELDSET) %; literal DST$K_VIRT_FUNC_SIZE = 9; FIELD DST$TYPE_SIG_FIELDSET = SET dst$a_type_sig_header = [0,0,32,0], dst$v_type_sig_unused = [4,0,8,0], dst$b_type_sig_flags = [4,0,8,0], dst$b_type_sig_string = [5,0,8,0] TES; literal S_DST$TYPE_SIG = 6; MACRO DST$TYPE_SIG = BLOCK [S_DST$TYPE_SIG,byte] FIELD (DST$TYPE_SIG_FIELDSET) %; literal DST$K_TYPE_SIG_SIZE = 6; FIELD DST$CXX_ATTRIBUTES_FIELDSET = SET dst$w_cxxa_header = [0,0,32,0], dst$v_cxxa_unused1 = [4,0,1,0], dst$v_cxxa_unused2 = [4,1,1,0], dst$v_cxxa_unused3 = [4,2,1,0], dst$v_cxxa_namespace = [4,3,1,0], dst$v_cxxa_struct = [4,4,1,0], dst$v_cxxa_union = [4,5,1,0], dst$v_cxxa_static = [4,6,1,0], dst$v_cxxa_unused = [4,7,9,0], dst$w_cxxa_flags = [4,0,16,0] TES; literal S_DST$CXX_ATTRIBUTES = 6; MACRO DST$CXX_ATTRIBUTES = BLOCK [S_DST$CXX_ATTRIBUTES,byte] FIELD (DST$CXX_ATTRIBUTES_FIELDSET) %; literal DST$K_CXX_ATTRIBUTES_SIZE = 6; FIELD DST$TEMP_DECL_FIELDSET = SET dst$w_temp_decl_header = [0,0,32,0], dst$b_temp_decl_name = [4,0,8,0] TES; literal S_DST$TEMP_DECL = 5; MACRO DST$TEMP_DECL = BLOCK [S_DST$TEMP_DECL,byte] FIELD (DST$TEMP_DECL_FIELDSET) %; literal DST$K_TEMP_DECL_SIZE = 5; FIELD DST$USING_FIELDSET = SET dst$w_using_header = [0,0,32,0], dst$l_using_dst = [4,0,32,0] TES; literal S_DST$USING = 8; MACRO DST$USING = BLOCK [S_DST$USING,byte] FIELD (DST$USING_FIELDSET) %; literal DST$K_USING_SIZE = 8; literal s_dst$a_cobhack_fields = 10; FIELD DST$COB_HACK_FIELDSET = SET dst$a_cobhack_fields = [0,0,0,0] TES; literal S_DST$COB_HACK = 10; MACRO DST$COB_HACK = BLOCK [S_DST$COB_HACK,byte] FIELD (DST$COB_HACK_FIELDSET) %; literal DST$K_COB_HACK_SIZE = 10; MACRO dst$a_cobhack_trlr = DST$K_COB_HACK_SIZE, 0, 0, 0%; FIELD DST$CH_TRLR_FIELDSET = SET dst$b_ch_type = [0,0,8,0] TES; literal S_DST$CH_TRLR = 1; MACRO DST$CH_TRLR = BLOCK [S_DST$CH_TRLR,byte] FIELD (DST$CH_TRLR_FIELDSET) %; literal DST$K_CH_TRLR_SIZE = 1; MACRO dst$a_ch_stkrtn_addr = DST$K_CH_TRLR_SIZE, 0, 0, 0%; FIELD DST$VALSPEC_FIELDSET = SET dst$a_valspec_header = [0,0,32,0] TES; literal S_DST$VALSPEC = 4; MACRO DST$VALSPEC = BLOCK [S_DST$VALSPEC,byte] FIELD (DST$VALSPEC_FIELDSET) %; literal DST$K_VALSPEC_SIZE = 4; MACRO dst$a_vs_valspec_addr = DST$K_VALSPEC_SIZE, 0, 0, 0%; MACRO DST$RECORD = BLOCK [256,BYTE] FIELD ( DST$HEADER_FIELDSET, ! ! The rest of these are defined in alphabetic order, for easy lookup ! DST$ALIAS_FIELDSET, DST$BASE_CLASS_FIELDSET, DST$BLI_FIELDS_FIELDSET, DST$BLISS_FIELD_FIELDSET, DST$BLISS_FIELD_BEGIN_FIELDSET, DST$BLOCK_BEGIN_FIELDSET, DST$BLOCK_END_FIELDSET, DST$BODY_SPEC_FIELDSET, DST$CONTINUATION_FIELDSET, DST$CXX_ATTRIBUTES_FIELDSET, DST$DATA_HEADER_FIELDSET, DST$DATA_DST_FIELDSET, DST$DEF_LNUM_FIELDSET, DST$DESCRIPTOR_FORMAT_FIELDSET, DST$DIS_RANGES_FIELDSET, DST$ENTRY_FIELDSET, DST$ENUM_BEGIN_FIELDSET, DST$EPILOG_FIELDSET, DST$EXCEPTION_FIELDSET, DST$FULFILLS_TYPE_FIELDSET, DST$GOTO_FIELDSET, DST$INLINE_FIELDSET, DST$LINE_NUM_HEADER_FIELDSET, DST$MODULE_BEGIN_FIELDSET, DST$OVERLOAD_HEADER_FIELDSET, DST$PACKAGE_BODY_BEGIN_FIELDSET, DST$PACKAGE_BODY_END_FIELDSET, DST$PACKAGE_SPEC_BEGIN_FIELDSET, DST$PACKAGE_SPEC_END_FIELDSET, DST$PCLOC_COMMANDS_FIELDSET, DST$PROLOG_FIELDSET, DST$PROLIST_FIELDSET, DST$PSECT_FIELDSET, DST$REAL_NAME_FIELDSET, DST$REG_SAVE_BEGIN_FIELDSET, DST$REGISTER_SAVE_FIELDSET, DST$REGISTER_SAVE_END_FIELDSET, DST$RETURN_FIELDSET, DST$ROUTINE_BEGIN_FIELDSET, DST$ROUTINE_END_FIELDSET, DST$ROUTINE_UNALLOC_FIELDSET, DST$SET_MODULE_FIELDSET, DST$SOURCE_CORR_FIELDSET, DST$STATLINK_FIELDSET, DST$SUBUNIT_FIELDSET, DST$TEMP_DECL_FIELDSET, DST$TRAILING_VALSPEC_FIELDSET, DST$TYPE_SIG_FIELDSET, DST$XVS_SPEC_FIELDSET, DST$TYPE_SPEC_FIELDSET, DST$TYPSPEC_FIELDSET, DST$USE_CLAUSE_FIELDSET, DST$USING_FIELDSET, DST$VARIANT_VALUE_FIELDSET, DST$VERSION_FIELDSET, DST$VIRT_FUNC_FIELDSET, ! ! The following are obsolete ! DST$CH_TRLR_FIELDSET, DST$COB_HACK_FIELDSET, DST$VALSPEC_FIELDSET) %;