MODULE XSPEC ( IDENT = 'V1.2-10' %TITLE 'XSPEC - XPORT Parse Spec Block Dumper Routine' %BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) ) %BLISS36( ,ENTRY(XSPEC),OTS='') ) = BEGIN LIBRARY 'XPORT'; ! ! The Module header and Library declaration above has been inserted in place of the automatically generated one. ! %BLISS32( PSECT OWN=$CODE$; ) GLOBAL ROUTINE XSPEC(control_block) : NOVALUE = BEGIN $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_SPEC_STAT, TYPE=BITS, VALUE=.BLOCK[.control_block,XPO$V_SPEC_STAT] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_DIR_NAME, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_DIR_NAME] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_PPN, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_PPN] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_SFD, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_SFD] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_CARD, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_CARD] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_NODE, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_NODE] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_DEV, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_DEV] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_DIR, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_DIR] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_NAME, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_NAME] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_TYPE, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_TYPE] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_VER, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_VER] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_NODE, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_NODE] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_DEVICE, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_DEVICE] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_DIRECT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_DIRECT] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$H_PROJ_NUMB, TYPE=BYTES, VALUE=.BLOCK[.control_block,XPO$H_PROJ_NUMB] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$H_PGMR_NUMB, TYPE=BYTES, VALUE=.BLOCK[.control_block,XPO$H_PGMR_NUMB] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_NAME, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_NAME] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_TYPE, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_TYPE] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_VER, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_VER] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_PROT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_PROT] ); $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_EXTRA, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_EXTRA] ); END; END ELUDOM