                                XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    0	      1 MODULE xdump ( IDENT = 'X00.07',		%TITLE 'XDUMP - Generate Structure Dump Module'
    0	      2 		MAIN = FIELD_DUMP			!Entry point of main program
    0	      3 		%BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) )
    0	      4 		) =
    0	      5 BEGIN
    1	      6 
    1	      7 !
    1	      8 !			  COPYRIGHT (c) 1980 BY
    1	      9 !	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
    1	     10 !
    1	     11 ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
    1	     12 ! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
    1	     13 ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
    1	     14 ! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
    1	     15 ! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
    1	     16 ! TRANSFERRED.
    1	     17 !
    1	     18 ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
    1	     19 ! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
    1	     20 ! CORPORATION.
    1	     21 !
    1	     22 ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
    1	     23 ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
    1	     24 !
    1	     25 
    1	     26 !++
    1	     27 !
    1	     28 ! FACILITY:  BLISS Library
    1	     29 !
    1	     30 ! ABSTRACT:
    1	     31 !
    1	     32 !	This module generates a BLISS module (<structure-name>.BLI)
    1	     33 !	which when used in conjunction with XDUMPR will dump the
    1	     34 !	contents of a requested data structure from a requested REQUIRE file.
    1	     35 !
    1	     36 !	REQUIREMENTS:
    1	     37 !		1.) At the beginning of the data structure a comment line
    1	     38 !		    must appear such that the '!' is in the first column
    1	     39 !	 	    and the name of the structure (upper case) follows 
    1	     40 !		    this. (Example: ! IOB )
    1	     41 !
    1	     42 !		2.) At the beginning of the data structure a comment line
    1	     43 !		    starting in the first column with the words End of <structure name>
    1	     44 !		    must appear. (Example: ! End of IOB )
    1	     45 !
    1	     46 ! ENVIRONMENT:  User mode - multiple host operating/file systems
    1	     47 !
    1	     48 ! AUTHOR:  Linda Duffell,	CREATION DATE: 9/14/79  
    1	     49 !
    1	     50 !--
    1	     51 !

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 2
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    1	     53 ! TABLE OF CONTENTS:
    1	     54 !
    1	     55 
    1	     56 FORWARD ROUTINE
    1	     57     FIELD_DUMP :  NOVALUE,				! Principal dumping routine
    1	     58     FIND_STRUCTURE,					! Structure finding routine
    1	     59     FIND_FIELD;						! Field finding routine
    1	     60 
    1	     61 !
    1	     62 ! INCLUDE FILES:
    1	     63 !
    1	     64 
    1	     65 LIBRARY  'XPORT' ;					! Public XPORT control block and macro definitions
    1	     67 
    1	     68 
    1	     69 !
    1	     70 ! MACROS:
    1	     71 !
    1	     72 
    1	     73 MACRO
    1	     74     SKIP( literal_string )=
M   1	     75         %STRING( %CHAR(10), literal_string )%;
    1	     76 
    1	     77 !
    1	     78 ! EQUATED SYMBOLS:
    1	     79 !
    1	     80 
    1	     81 LITERAL
    1	     82     true = 1,						! Used for completion codes from routines.
    1	     83     false = 0,						! Used for completion codes from routines.
    1	     84     true_fetch = 1,					! Used for completion codes from routines.
    1	     85     true_no_fetch = 3,					! Used for completion codes from routines.
    1	     86     maxlength = 6;					! Maximum length of characters in file name.
    1	     87 
    1	     88 !
    1	     89 ! OWN STORAGE:
    1	     90 !
    1	     91 
    1	     92 OWN
    1	     93     code,						! Value returned from a routine
    1	     94 
    1	     95     tty_input :  $XPO_IOB(),				! IOB for  input from terminal
    1	     96     tty_output :  $XPO_IOB(),				! IOB for output to terminal
    1	     97     input_file :  $XPO_IOB(),				! IOB for input file
    1	     98     output_file :  $XPO_IOB(),				! IOB for output file
    1	     99 
    1	    100     file_name :  $STR_DESCRIPTOR (),			! String descriptor for file name
    1	    101     message : $STR_DESCRIPTOR
P   1	    102 			( CLASS = DYNAMIC_BOUNDED ),	! String descriptor for message
    1	    103     field_name :  $STR_DESCRIPTOR
P   1	    104 			( CLASS = FIXED ),		! String descriptor for field name
    1	    105     field_type :  $STR_DESCRIPTOR
P   1	    106 			( CLASS = FIXED );		! String descriptor for field type
    1	    107 
    1	    108 
    1	    109 !
    1	    110 ! EXTERNAL REFERENCES:

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 3
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    1	    111 !
    1	    112 

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 4
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    1	    114 ROUTINE FIELD_DUMP :  NOVALUE = 
    1	    115 
    1	    116 !++
    1	    117 !
    1	    118 ! FUNCTIONAL DESCRIPTION:
    1	    119 !
    1	    120 !
    1	    121 !	This routine requests the name of a REQUIRE file and a data structure.
    1	    122 !	If the structure is found then a BLISS module (<structure-name>.BLI)
    1	    123 !	is created in a format readable by XDUMP.
    1	    124 !
    1	    125 ! FORMAL PARAMETERS:
    1	    126 !
    1	    127 !	None
    1	    128 !
    1	    129 ! IMPLICIT INPUTS:
    1	    130 !
    1	    131 !	None
    1	    132 !
    1	    133 ! IMPLICIT OUTPUTS:
    1	    134 !
    1	    135 !	None
    1	    136 !
    1	    137 ! COMPLETION CODES:
    1	    138 !
    1	    139 !	None
    1	    140 !
    1	    141 ! SIDE EFFECTS:
    1	    142 !
    1	    143 !	None
    1	    144 !
    1	    145 !--
    1	    146 
    1	    147     BEGIN
    2	    148 
    2	    149 !
    2	    150 ! Initialize the STRING DESCRIPTORS.
    2	    151 !
    2	    152 
    2	    153     $STR_DESC_INIT( DESCRIPTOR = message, CLASS = DYNAMIC_BOUNDED );
    2	    154 
    2	    155 !
    2	    156 ! Open the user's terminal for input and output.
    2	    157 !
    2	    158 
    2	    159     $XPO_OPEN( IOB = tty_input,				! Open the user's terminal		
P   2	    160 	        FILE_SPEC = $XPO_INPUT,			!    standard input file
P   2	    161 		OPTIONS = INPUT );			
    2	    162 
    2	    163     $XPO_OPEN( IOB = tty_output,			! Open the users's terminal
P   2	    164 		FILE_SPEC = $XPO_OUTPUT,		!    standard output file
P   2	    165 		OPTIONS = OUTPUT );			
    2	    166 
    2	    167 !
    2	    168 ! Request the name of the REQUIRE file and open that file.
    2	    169 !
    2	    170 

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 5
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    2	    171     WHILE 1 DO						! Keep asking until an input file can be opened.
    2	    172 	BEGIN
    3	    173 	IF NOT $XPO_GET( IOB = tty_input,		! Read a file name from the terminal
P   3	    174          PROMPT = ( skip('BLISS REQUIRE file name (default = .REQ)? ')))
    4	    175 	THEN						! If terminal end-of-file (^Z) is reached,
    3	    176 	    RETURN XPO$_NORMAL;				! terminate program execution.
    3	    177 
    3	    178 	IF $XPO_OPEN( IOB = input_file,			! Open the specified input file:
P   3	    179 		FILE_SPEC =				!    input file-spec descriptot
P   3	    180 		    tty_input[IOB$T_STRING],
P   3	    181 		DEFAULT = ('.REQ'),
P   3	    182 		OPTIONS = INPUT,			
P   3	    183 		FAILURE = XPO$IO_FAILURE )		
    4	    184 	THEN						! If the input file was successfully opened,
    3	    185 	    EXITLOOP;					! exit the file open loop.
    3	    186 	END;
    2	    187 
    2	    188 !
    2	    189 ! Request the name of the structure.
    2	    190 !
    2	    191 
    2	    192     IF NOT $XPO_GET( IOB = tty_input,			! Read a file name from the terminal.
P   2	    193 	PROMPT = ( skip('Name of structure? ') ) )
    3	    194     THEN
    2	    195 	RETURN XPO$_NORMAL;				! If terminal end of file (^Z) is reached,
    2	    196 							! terminate program execution.
    2	    197 
    2	    198 !
    2	    199 ! Save name in upper case.
    2	    200 !
    2	    201 
    2	    202     $STR_COPY( STRING = tty_input[IOB$T_STRING],		
P   2	    203 		TARGET = tty_input[IOB$T_STRING],
P   2	    204 		OPTIONS = UP_CASE );
    2	    205 
    2	    206 !
    2	    207 ! Read file and search for structure name.
    2	    208 !
    2	    209 
    2	    210     WHILE 1 DO						! Keep reading the file
    2	    211 	BEGIN						!
    3	    212 	IF NOT $XPO_GET( IOB = input_file )		!
    4	    213 	THEN						!
    3	    214 	    $XPO_PUT_MSG( CODE = XPO$_END_FILE,		! Until end-of-file is reached
P   3	    215 		STRING = 'Structure name not found. ',	!
P   3	    216 		SEVERITY = FATAL );			!
    3	    217 							!
    3	    218 	IF FIND_STRUCTURE( input_file[IOB$T_STRING],	!
    3	    219 			  tty_input[IOB$T_STRING] )	!
    3	    220 	THEN						!
    3	    221 	    EXITLOOP					! or the requested structure is found.
    3	    222 	END;
    2	    223 
    2	    224 !
    2	    225 ! Save the file name ( first 6 characters )
    2	    226 !
    2	    227 

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 6
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    2	    228     $STR_DESC_INIT( DESCRIPTOR = file_name, CLASS = DYNAMIC );
    2	    229 
    2	    230     $STR_COPY( STRING = ( MIN(.tty_input[IOB$H_STRING],maxlength),
P   2	    231 				.tty_input[IOB$A_STRING] ),
P   2	    232 		TARGET = file_name );
    2	    233 
    2	    234 !
    2	    235 ! Open the output file.   The name of the output file will be the given
    2	    236 ! structure name (first 6 characters) and the extension will be .BLI.
    2	    237 !
    2	    238 
    2	    239     $XPO_OPEN( IOB = output_file,					
P   2	    240 		  FILE_SPEC = file_name,
P   2	    241 		  DEFAULT = '.BLI',
P   2	    242 		  OPTIONS = OUTPUT );
    2	    243 
    2	    244 !
    2	    245 ! Write out the module prologue to the file.
    2	    246 !
    2	    247 
    2	    248     $XPO_PUT( IOB = output_file,			! Output:  MODULE <structure-name> = BEGIN
P   2	    249 		STRING = $STR_CONCAT( 'MODULE ',
P   2	    250 				file_name,
P   2	    251 				' %BLISS36( (ENTRY(',
P   2	    252 				file_name,
P   2	    253 				')) ) = BEGIN' ) );
    2	    254 
    2	    255     $XPO_PUT( IOB = output_file,			! Output:  LIBRARY 'BLI:XPORT';
P   2	    256 		STRING = 'LIBRARY ''BLI:XPORT'';' );
    2	    257 
    2	    258     $XPO_PUT( IOB = output_file,			! Output:  REQUIRE '<require-file-name>';
P   2	    259 		STRING = $STR_CONCAT( 'REQUIRE ''',
P   2	    260 				input_file[IOB$T_RESULTANT],
P   2	    261 				''';' ) );
    2	    262 
    2	    263     $XPO_PUT( IOB = output_file,			! Output:  %BLISS32( PSECT OWN=$OWN$; )
P   2	    264 		STRING = '%BLISS32( PSECT OWN=$OWN$; )' );
    2	    265 
    2	    266     $XPO_PUT( IOB = output_file,			! Output:  'GLOBAL ROUTINE <structure-name>
P   2	    267 		STRING = $STR_CONCAT( 'GLOBAL ROUTINE ',	!		(control block) :  NOVALUE = BEGIN
P   2	    268 				    file_name,
P   2	    269 				    '(control_block) :  NOVALUE = BEGIN') );
    2	    270 
    2	    271     $XPO_PUT( IOB = output_file, STRING = '' );
    2	    272 
    2	    273 !
    2	    274 ! Read through structure searching for fields.
    2	    275 !
    2	    276 
    2	    277     WHILE 1 DO					
    2	    278 	BEGIN
    3	    279 	IF NOT $XPO_GET( IOB = input_file)		! Keep reading file
    4	    280 	THEN
    3	    281 	    EXITLOOP;					! until end-of-file 
    3	    282 
    3	    283 	IF CH$RCHAR(.input_file[IOB$A_STRING]) EQL %C'!'
    3	    284 	THEN

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 7
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    3	    285 	    IF $STR_SCAN( STRING = input_file[IOB$T_STRING],
P   3	    286 	    		FIND = $STR_CONCAT( 'End of ', tty_input[IOB$T_STRING] ) )
    4	    287 	    THEN
    3	    288 		EXITLOOP;				! or the end of structure is reached
    3	    289 
    3	    290 	code = FIND_FIELD( input_file[IOB$T_STRING],	! Obtain the field name and field type
    3	    291 			  field_name,field_type );
    3	    292 	IF .code
    3	    293 	THEN
    3	    294 	    BEGIN					! Here if fields were found
    4	    295 	    $STR_COPY( STRING = $STR_CONCAT( '$XPO_DUMP_FIELD( FIELD_NAME=',
P   4	    296 					 field_name,
P   4	    297 					 ', TYPE=',
P   4	    298 					 field_type ),
P   4	    299 			TARGET = message );
    4	    300 
    4	    301 
    4	    302 	    IF .code EQL true_fetch			! If fields have been found and 
    4	    303 	    THEN					! fetch parameter is to be included.
    4	    304 		$STR_APPEND( STRING = 
P   4	    305 		  (', VALUE=.BLOCK[.control_block,'),
P   4	    306 			    TARGET = message )
    5	    307 	    ELSE					! Else, do not include fetch parameter
    4	    308 		$STR_APPEND( STRING = 
P   4	    309   		  (', VALUE=BLOCK[.control_block,'),
P   4	    310 			    TARGET = message );
    4	    311 
    4	    312 	    $STR_APPEND( STRING = $STR_CONCAT( field_name, '] );' ),
P   4	    313 			    TARGET = message );
    4	    314 	    
    4	    315 	    $XPO_PUT( IOB = output_file,
P   4	    316 			STRING = message );
    4	    317 	    END;
    3	    318 	END;
    2	    319     $XPO_PUT( IOB = output_file, STRING = '' );
    2	    320 
    2	    321     $XPO_PUT( IOB = output_file,			! Write epilogue to file.
P   2	    322 		STRING = 'END;  END  ELUDOM ' );
    2	    323     $XPO_CLOSE( IOB = output_file );			! Close output file.
    2	    324 
    2	    325     $XPO_PUT( IOB = tty_output,				! Tell user about success
P   2	    326 	   	STRING = $STR_CONCAT( .output_file[IOB$A_FILE_SPEC],
P   2	    327 				    '.BLI display module generated ' ) );
    2	    328     END;
    1	    329 

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 8
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    1	    331 ROUTINE FIND_STRUCTURE( source_line, structure_name )=
    1	    332 
    1	    333 !++
    1	    334 !
    1	    335 ! FUNCTIONAL DESCRIPTION:
    1	    336 !
    1	    337 !	This routine searches a file for a given structure name.
    1	    338 !
    1	    339 !	Restrictions:
    1	    340 !		A comment line with the '!' being the first
    1	    341 !		character followed by the structure name in
    1	    342 !		upper case must precede the data structure.
    1	    343 !
    1	    344 ! FORMAL PARAMETERS:
    1	    345 !
    1	    346 !	source_line - string descriptor of the line to search through - READ ONLY PRIVILEGES 
    1	    347 !	structure_name - string descriptor of requested structure name - READ ONLY PRIVILEGES
    1	    348 !
    1	    349 ! IMPLICIT INPUTS:
    1	    350 !
    1	    351 !	None
    1	    352 !
    1	    353 ! IMPLICIT OUTPUTS:
    1	    354 !
    1	    355 !	None
    1	    356 !
    1	    357 ! COMPLETION CODE
    1	    358 !
    1	    359 !	true - If structure name is found.
    1	    360 !	false - If structure name is not found.
    1	    361 !
    1	    362 ! SIDE EFFECTS:
    1	    363 !
    1	    364 !	None
    1	    365 !
    1	    366 !--
    1	    367 
    1	    368     BEGIN
    2	    369 
    2	    370     MAP
    2	    371 	source_line :  REF $STR_DESCRIPTOR(),
    2	    372 	structure_name :  REF $STR_DESCRIPTOR();
    2	    373 
    2	    374     LOCAL
    2	    375 
    2	    376 	local_source :  $STR_DESCRIPTOR( CLASS = BOUNDED ),	! Used to point to string passed by caller
    2	    377 	value;							! Used to store value of this routine
    2	    378 
    2	    379 !
    2	    380 ! Initialize the lexeme descriptor block.
    2	    381 !
    2	    382 
    2	    383     $STR_DESC_INIT( DESCRIPTOR = local_source,			! Point to string passed by caller
P   2	    384 		    CLASS = BOUNDED,
P   2	    385 		    STRING = .source_line );
    2	    386 
    2	    387 !

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 9
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    2	    388 ! Assume this routine is false until proven otherwise.
    2	    389 !
    2	    390 
    2	    391     value = false;
    2	    392 
    2	    393 !
    2	    394 ! Looks for '! <structure name> ' at the beginning of the line.
    2	    395 !
    2	    396 
    2	    397     IF .source_line[STR$H_LENGTH] NEQ 0			! Make sure line is not null
    2	    398     THEN
    2	    399 	IF CH$RCHAR( .local_source[STR$A_POINTER] ) EQL %C'!'		
    2	    400 	THEN
    2	    401 	    BEGIN
    3	    402 	    $STR_SCAN( REMAINDER = local_source,
P   3	    403 			SPAN = '!	 ',
P   3	    404 			SUBSTRING= local_source );
    3	    405 	    
    3	    406 	    $STR_SCAN( REMAINDER = local_source,
P   3	    407 			STOP = '	 ',
P   3	    408 			SUBSTRING = local_source );
    3	    409 
    3	    410 	    value = $STR_EQL( STRING1 = local_source,		! Check if the lexeme matches the structure name
P   3	    411 				   STRING2 =.structure_name );
    3	    412 	    END;
    2	    413 	    
    2	    414 !
    2	    415 ! Return to caller the results of finding the structure name.
    2	    416 !
    2	    417     RETURN .value
    2	    418 
    2	    419     END;
    1	    420 

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 10
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    1	    422 ROUTINE FIND_FIELD( line_desc,name_desc,type_desc )=
    1	    423 
    1	    424 !++
    1	    425 !
    1	    426 ! FUNCTIONAL DESCRIPTION:
    1	    427 !
    1	    428 !	This routine searches for both the field name and field type and
    1	    429 !	updates the corresponding descriptors. 
    1	    430 !
    1	    431 !
    1	    432 ! FORMAL PARAMETERS:
    1	    433 !
    1	    434 !	line_desc - string descriptor of line to search through - READ ONLY PRIVILEGES
    1	    435 !	name-desc - string descriptor for storage of the field name - READ & WRITE PRIVILEGES
    1	    436 !	type-desc - string descriptor for storage of the field type - READ & WRITE PRIVILEGES
    1	    437 !
    1	    438 !
    1	    439 ! IMPLICIT INPUTS:
    1	    440 !
    1	    441 !	None
    1	    442 !
    1	    443 ! IMPLICIT OUTPUTS:
    1	    444 !
    1	    445 !	None
    1	    446 !
    1	    447 ! ROUTINE VALUE:
    1	    448 !
    1	    449 !	false - If either the field name or field type is not found.
    1	    450 !
    1	    451 !	true_fetch - If both the field name and type  are found and it does
    1	    452 !	    require the fetch parameter.
    1	    453 !
    1	    454 !	true_no_fetch - If both the field name and type are found and it doesn't
    1	    455 !	    require the fetch parameter.
    1	    456 !
    1	    457 !
    1	    458 ! SIDE EFFECTS:
    1	    459 !
    1	    460 !	None
    1	    461 !
    1	    462 !--
    1	    463 
    1	    464 
    1	    465     BEGIN
    2	    466     MAP
    2	    467 	line_desc :  REF $STR_DESCRIPTOR(),
    2	    468 	name_desc :  REF $STR_DESCRIPTOR( CLASS = FIXED ),
    2	    469 	type_desc :  REF $STR_DESCRIPTOR( CLASS = FIXED );
    2	    470 
    2	    471     LABEL
    2	    472 	exit_search;
    2	    473 
    2	    474     LOCAL
    2	    475 	value,							! Storage area for routine value
    2	    476 	local_line_desc :  $STR_DESCRIPTOR( CLASS = BOUNDED );	
    2	    477 
    2	    478 !

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 11
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    2	    479 ! Initialize the lexeme descriptor block.
    2	    480 !
    2	    481 
    2	    482     $STR_DESC_INIT( DESCRIPTOR = local_line_desc,		! Point to string passed by caller
P   2	    483 		    CLASS = BOUNDED,
P   2	    484 		    STRING = .line_desc );
    2	    485 
    2	    486 
    2	    487 !		
    2	    488 ! Assume routine is false until proven otherwise.
    2	    489 !
    2	    490 
    2	    491     value = false;
    2	    492 
    2	    493 !
    2	    494 ! Get field name.
    2	    495 !
    2	    496   exit_search:
    2	    497     BEGIN
    3	    498     WHILE 1 DO
    3	    499         BEGIN
    4	    500         IF $STR_SCAN( REMAINDER = local_line_desc,		! Ignore spaces and tabs
P   4	    501 			SPAN = '	 ',
P   4	    502 			SUBSTRING = local_line_desc ) NEQ STR$_NORMAL
    4	    503 	THEN
    4	    504 	    LEAVE exit_search;
    4	    505 
    4	    506 	IF $STR_SCAN( REMAINDER = local_line_desc,		! Point to the field name
P   4	    507 			STOP = '	 =',
P   4	    508 			SUBSTRING = local_line_desc ) NEQ STR$_NORMAL
    4	    509         THEN
    4	    510             LEAVE exit_search;
    4	    511 
    4	    512         IF NOT $STR_EQL( STRING1 = local_line_desc,		! $FIELD and FIELD are not valid field names
P   4	    513     		          STRING2 = '$FIELD' ) AND
    4	    514            NOT $STR_EQL( STRING1 = local_line_desc,
P   4	    515 		          STRING2 = 'FIELD' )
    5	    516         THEN
    4	    517             EXITLOOP;
    4	    518         END;
    3	    519 
    3	    520 !
    3	    521 ! Update the field name descriptor.
    3	    522 !
    3	    523 
    3	    524     $STR_DESC_INIT( DESCRIPTOR = .name_desc,
P   3	    525 		    CLASS = FIXED,
P   3	    526 		    STRING = local_line_desc );
    3	    527 
    3	    528 !
    3	    529 ! Find the field type
    3	    530 !
    3	    531 
    3	    532     IF $STR_SCAN( REMAINDER = local_line_desc, FIND = '[' )	! Make sure this is a Field and not a Literal
    4	    533 						NEQ STR$_NORMAL	! declaration
    3	    534     THEN
    3	    535 	LEAVE exit_search;

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 12
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    3	    536 	
    3	    537     IF $STR_SCAN( REMAINDER = local_line_desc,			! Point to the field type
P   3	    538 			STOP = '$',
P   3	    539 			SUBSTRING = local_line_desc ) NEQ STR$_NORMAL
    3	    540     THEN
    3	    541 	LEAVE exit_search;
    3	    542 
    3	    543     IF $STR_SCAN( REMAINDER = local_line_desc,
P   3	    544 			STOP = ' (]',
P   3	    545 			SUBSTRING = local_line_desc ) NEQ STR$_NORMAL
    3	    546     THEN
    3	    547         LEAVE exit_search;
    3	    548 
    3	    549 !
    3	    550 ! Update the field type.
    3	    551 !
    3	    552 
    3	    553     $STR_DESC_INIT( DESCRIPTOR = .type_desc,
P   3	    554 		    CLASS = FIXED,
P   3	    555 		    STRING = (.local_line_desc[STR$H_LENGTH] - 1,
P   3	    556 		  CH$PLUS(.local_line_desc[STR$A_POINTER],1)) );	! Get rid of '$' 
    3	    557 
    3	    558     IF $STR_EQL( STRING1 = .type_desc,
P   3	    559 		   STRING2 = ('SUB_BLOCK') ) OR
    3	    560       $STR_EQL( STRING1 = .type_desc,
P   3	    561 		  STRING2 = ('DESCRIPTOR') ) OR
    3	    562       $STR_EQL( STRING1 = .type_desc,
P   3	    563 		  STRING2 = ('STRING') )
    4	    564     THEN
    3	    565 	value = true_no_fetch
    3	    566     ELSE
    3	    567 	value = true_fetch;
    3	    568   END;								! End of exit_search
    2	    569 
    2	    570   RETURN .value
    2	    571   END;
    1	    572 

XDUMP                           XDUMP - Generate Structure Dump  4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 13
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    1	    574     END
    1	    575 ELUDOM

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 14
X00.07                                                          19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   FIELD_DUMP
				      .align 32
			FIELD_DUMP:											   // 000114
			   { .mii 
002C059C1DC0     0000		      alloc   r119 = rspfs, 0, 89, 7, 0
012000100A00     0001		      add     r40 = @ltoff(TTY_INPUT), r1						   // 000161
012000400A40     0002		      addl    r41 = 65536, r0
			   }
			   { .mmi 
012000100540     0010		      add     r21 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
012000100A80     0011		      add     r42 = @ltoff(MESSAGE), r1							   // 000153
012000002AC0     0012		      mov     r43 = 1 ;;								   // 000161
			   }
			   { .mlx 
0080C1500540     0020		      ld8     r21 = XPO$FAILURE			// r21 = [r21]
81FFFFFFFEF8     0021		      movl    r9 = -1106378752								   // 000153
01A0070004
			   }
			   { .mii 
0080C2800A00     0030		      ld8     r40 = TTY_INPUT			// r40 = [r40]				   // 000161
000188001D80     0031		      mov     r118 = br0								   // 000114
0119F8CE0300     0032		      adds    r12 = -16, r12
			   }
			   { .mmi 
010800101E00     0040		      mov     r120 = r1
0080C2A00A80     0041		      ld8     r42 = MESSAGE			// r42 = [r42]				   // 000153
012000006640     0042		      mov     r25 = 3 ;;								   // 000161
			   }
			   { .mii 
012000800B40     0050		      addl    r45 = 131072, r0								   // 000165
0000B1501EC0     0051		      sxt4    r123 = r21								   // 000161
0000B0001E80     0052		      sxt4    r122 = r0
			   }
			   { .mmi 
012000068D00     0060		      mov     r52 = 52									   // 000183
01200000CEC0     0061		      mov     r59 = 6									   // 000174
010802858A00     0062		      adds    r40 = 44, r40								   // 000161
			   }
			   { .mib 
010802A38200     0070		      adds    r8 = 28, r42
010802A48B80     0071		      adds    r46 = 36, r42								   // 000165
004000000000     0072		      nop.b   0 ;;
			   }
			   { .mmi 
00AC82A12100     0080		      st4     [r42] = r9, 4								   // 000153
0080828000C0     0081		      ld4     r3 = [r40]								   // 000161
000008000000     0082		      nop.i   0 ;;
			   }
			   { .mmi 
00AC82A00100     0090		      st4     [r42] = r0, 4 ;;								   // 000153
00BC8AA01E00     0091		      st4     [r42] = r0, -8
0100729060C0     0092		      or      r3 = r3, r41 ;;								   // 000161
			   }
			   { .mmi 
008C82806000     00A0		      st4     [r40] = r3 ;;

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 15
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

00BC0A857600     00A1		      st1     [r40] = r43, -40
000008000000     00A2		      nop.i   0 ;;
			   }
			   { .mmi 
00BC8A811F00     00B0		      st4     [r40] = r8, -4 ;;
000008000000     00B1		      nop.m   0
0000B2801E40     00B2		      sxt4    r121 = r40
			   }
			   { .mib 
010812840B00     00C0		      adds    r44 = 288, r40								   // 000165
010812840C00     00C1		      adds    r48 = 288, r40
00A000001000     00C2		      br.call.sptk.many br0 = XPO$OPEN ;;						   // 000161
			   }
			   { .mmi 
010807800040     00D0		      mov     r1 = r120
008082C00B00     00D1		      ld4     r44 = [r44]								   // 000165
010812840C40     00D2		      adds    r49 = 288, r40 ;;
			   }
			   { .mii 
012000100CC0     00E0		      add     r51 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
01080A8F0C80     00E1		      adds    r50 = 248, r40
01080A8E8BC0     00E2		      adds    r47 = 244, r40
			   }
			   { .mmi 
012000006640     00F0		      mov     r25 = 3
010072D58B00     00F1		      or      r44 = r44, r45
0000B0001E80     00F2		      sxt4    r122 = r0 ;;
			   }
			   { .mii 
0080C3300CC0     0100		      ld8     r51 = XPO$FAILURE			// r51 = [r51]
0000B2F01E40     0101		      sxt4    r121 = r47
010003450E80     0102		      add     r58 = r40, r52 ;;								   // 000183
			   }
			   { .mmi 
008C83058000     0110		      st4     [r48] = r44								   // 000165
008C03156000     0111		      st1     [r49] = r43
0000B3301EC0     0112		      sxt4    r123 = r51
			   }
			   { .mfb 
008C8325C000     0120		      st4     [r50] = r46
000008000000     0121		      nop.f   0
00A000001000     0122		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mmi 
010807800040     0130		      mov     r1 = r120 ;;
012000100E40     0131		      add     r57 = @ltoff(INPUT_FILE), r1						   // 000183
012000100DC0     0132		      add     r55 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000174
					      r1
			   }
			   { .mmi 
012000100D40     0140		      add     r53 = @ltoff(@fptr(XPO$IO_FAILURE)), 					   // 000183
					      r1 ;;
0080C3500D80     0141		      ld8     r54 = XPO$IO_FAILURE		// r54 = [r53]
000008000000     0142		      nop.i   0
			   }
			   { .mmi 

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 16
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

0080C3900E40     0150		      ld8     r57 = INPUT_FILE			// r57 = [r57]
0080C3700E00     0151		      ld8     r56 = XPO$FAILURE			// r56 = [r55]				   // 000174
000008000000     0152		      nop.i   0 ;;
			   }
	         0160	L$36:
			   { .mmi 
010802848A00     0160		      adds    r40 = 36, r40 ;;
00B08A8B8F40     0161		      ld4     r61 = [r40], -36
000008000000     0162		      nop.i   0 ;;
			   }
			   { .mfb 
01C403D001C0     0170		      cmp4.eq pr7, pr0 = r0, r61
000008000000     0171		      nop.f   0
008600006007     0172	       (pr7)  br.cond.dpnt.few L$38
			   }
			   { .mib 
012000002640     0180		      mov     r25 = 1
0000B3D01E40     0181		      sxt4    r121 = r61
00A000001000     0182		      br.call.sptk.many br0 = XST$FREE_TEMP ;;
			   }
			   { .mfi 
010807800040     0190		      mov     r1 = r120
000008000000     0191		      nop.f   0
000008000000     0192		      nop.i   0
			   }
	         01A0	L$38:
			   { .mii 
010802858A00     01A0		      adds    r40 = 44, r40
010802A58F80     01A1		      adds    r62 = 44, r42
012000006640     01A2		      mov     r25 = 3 ;;
			   }
			   { .mii 
00BC0A877E00     01B0		      st1     [r40] = r59, -8
0000B3801EC0     01B1		      sxt4    r123 = r56
0000B0001E80     01B2		      sxt4    r122 = r0 ;;
			   }
			   { .mmi 
00BC8A87D700     01C0		      st4     [r40] = r62, -36 ;;
000008000000     01C1		      nop.m   0
0000B2801E40     01C2		      sxt4    r121 = r40
			   }
			   { .mfb 
000008000000     01D0		      nop.m   0
000008000000     01D1		      nop.f   0
00A000001000     01D2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mii 
010803958E40     01E0		      adds    r57 = 44, r57								   // 000183
00A0308001C0     01E1		      tbit.z  pr7, pr6 = r8, 0								   // 000174
010807800040     01E2		      mov     r1 = r120
			   }
			   { .mfb 
000008000000     01F0		      nop.m   0
000008000000     01F1		      nop.f   0
008600170007     01F2	       (pr7)  br.cond.dpnt.few L$42 ;;								   // 000173
			   }
			   { .mii 

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 17
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

008083901040     0200		      ld4     r65 = [r57]								   // 000183
010802A69080     0201		      adds    r66 = 52, r42
012000006640     0202		      mov     r25 = 3
			   }
			   { .mii 
000008000000     0210		      nop.m   0
0000B3601EC0     0211		      sxt4    r123 = r54
0000B0001E80     0212		      sxt4    r122 = r0 ;;
			   }
			   { .mmi 
010072983040     0220		      or      r65 = r65, r41 ;;
008C83982000     0221		      st4     [r57] = r65
000008000000     0222		      nop.i   0
			   }
			   { .mmi 
00BC0B957700     0230		      st1     [r57] = r43, -36 ;;
00BC8B985F00     0231		      st4     [r57] = r66, -4
000008000000     0232		      nop.i   0 ;;
			   }
			   { .mmi 
00BC8B975F00     0240		      st4     [r57] = r58, -4 ;;
000008000000     0241		      nop.m   0
0000B3901E40     0242		      sxt4    r121 = r57
			   }
			   { .mfb 
000008000000     0250		      nop.m   0
000008000000     0251		      nop.f   0
00A000001000     0252		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mib 
010807800040     0260		      mov     r1 = r120
00A0308001C0     0261		      tbit.z  pr7, pr6 = r8, 0
0095FFFE0007     0262	       (pr7)  br.cond.dptk.few L$36								   // 000178
			   }
			   { .mmi 
010802848A00     0270		      adds    r40 = 36, r40 ;;								   // 000193
00B08A8B9200     0271		      ld4     r72 = [r40], -36
000008000000     0272		      nop.i   0 ;;
			   }
			   { .mfb 
01C404800240     0280		      cmp4.eq pr9, pr0 = r0, r72
000008000000     0281		      nop.f   0
008600006009     0282	       (pr9)  br.cond.dpnt.few L$44
			   }
			   { .mib 
012000002640     0290		      mov     r25 = 1
0000B4801E40     0291		      sxt4    r121 = r72
00A000001000     0292		      br.call.sptk.many br0 = XST$FREE_TEMP ;;
			   }
			   { .mfi 
010807800040     02A0		      mov     r1 = r120
000008000000     02A1		      nop.f   0
000008000000     02A2		      nop.i   0
			   }
	         02B0	L$44:
			   { .mii 
010802858A00     02B0		      adds    r40 = 44, r40

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 18
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

010802A79240     02B1		      adds    r73 = 60, r42
012000006640     02B2		      mov     r25 = 3 ;;
			   }
			   { .mmi 
012000101300     02C0		      add     r76 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
00BC0A877E00     02C1		      st1     [r40] = r59, -8
0000B0001E80     02C2		      sxt4    r122 = r0 ;;
			   }
			   { .mmi 
0080C4C01300     02D0		      ld8     r76 = XPO$FAILURE			// r76 = [r76]
00BC8A893700     02D1		      st4     [r40] = r73, -36
000008000000     02D2		      nop.i   0 ;;
			   }
			   { .mii 
000008000000     02E0		      nop.m   0
0000B2801E40     02E1		      sxt4    r121 = r40
0000B4C01EC0     02E2		      sxt4    r123 = r76
			   }
			   { .mfb 
000008000000     02F0		      nop.m   0
000008000000     02F1		      nop.f   0
00A000001000     02F2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010807800040     0300		      mov     r1 = r120
00A0308001C0     0301		      tbit.z  pr7, pr6 = r8, 0
008600004006     0302	       (pr6)  br.cond.dpnt.few L$45								   // 000192
			   }
			   { .mfb 
000008000000     0310		      nop.m   0
000008000000     0311		      nop.f   0
00800014C000     0312		      br.sptk.few L$42 ;;								   // 000195
			   }
	         0320	L$45:												   // 000204
			   { .mii 
012000101340     0320		      add     r77 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
01200000A640     0321		      mov     r25 = 5
0000B0001F00     0322		      sxt4    r124 = r0
			   }
			   { .mii 
012100001E40     0330		      mov     r121 = 4096
0000B3A01EC0     0331		      sxt4    r123 = r58
0000B3A01E80     0332		      sxt4    r122 = r58 ;;
			   }
			   { .mii 
0080C4D01340     0340		      ld8     r77 = STR$FAILURE			// r77 = [r77]
0120000054C0     0341		      mov     r83 = 2									   // 000323
010003473480     0342		      add     r82 = r57, r52								   // 000218
			   }
			   { .mlx 
000008000000     0350		      nop.m   0
000000000000     0351		      movl    r84 = 2134016 ;;								   // 000216
019200402A
			   }
			   { .mib 

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 19
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

000008000000     0360		      nop.m   0
0000B4D01F40     0361		      sxt4    r125 = r77								   // 000204
00A000001000     0362		      br.call.sptk.many br0 = XST$COPY
			   }
			   { .mmi 
010807800040     0370		      mov     r1 = r120 ;;
012000101400     0371		      add     r80 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000212
					      r1
012000101380     0372		      add     r78 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000216
					      r1 ;;
			   }
			   { .mmi 
0080C5001440     0380		      ld8     r81 = XPO$FAILURE			// r81 = [r80]				   // 000212
0080C4E013C0     0381		      ld8     r79 = XPO$FAILURE			// r79 = [r78]				   // 000216
000008000000     0382		      nop.i   0 ;;
			   }
	         0390	L$47:												   // 000212
			   { .mii 
010803958E40     0390		      adds    r57 = 44, r57
012000006640     0391		      mov     r25 = 3
0000B5101EC0     0392		      sxt4    r123 = r81 ;;
			   }
			   { .mii 
00BC0B977500     03A0		      st1     [r57] = r59, -44
0000B0001E80     03A1		      sxt4    r122 = r0 ;;
0000B3901E40     03A2		      sxt4    r121 = r57
			   }
			   { .mfb 
000008000000     03B0		      nop.m   0
000008000000     03B1		      nop.f   0
00A000001000     03B2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010807800040     03C0		      mov     r1 = r120
00A0308001C0     03C1		      tbit.z  pr7, pr6 = r8, 0
00860000C006     03C2	       (pr6)  br.cond.dpnt.few L$48
			   }
			   { .mii 
010802A89580     03D0		      adds    r86 = 68, r42								   // 000216
01200000E640     03D1		      mov     r25 = 7
012000005F80     03D2		      mov     r126 = 2
			   }
			   { .mii 
012000003F00     03E0		      mov     r124 = 1
0000B5401F40     03E1		      sxt4    r125 = r84
0000B4F01EC0     03E2		      sxt4    r123 = r79 ;;
			   }
			   { .mii 
012000009E40     03F0		      mov     r121 = 4
0000B5601FC0     03F1		      sxt4    r127 = r86
0000B0001E80     03F2		      sxt4    r122 = r0
			   }
			   { .mfb 
000008000000     0400		      nop.m   0
000008000000     0401		      nop.f   0
00A000001000     0402		      br.call.sptk.many br0 = XPO$MESSAGE ;;
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 20
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mfi 
010807800040     0410		      mov     r1 = r120
000008000000     0411		      nop.f   0
000008000000     0412		      nop.i   0
			   }
	         0420	L$48:												   // 000212
			   { .mii 
000008000000     0420		      nop.m   0
0000B3A01E80     0421		      sxt4    r122 = r58								   // 000218
0000B5201E40     0422		      sxt4    r121 = r82 ;;
			   }
			   { .mfb 
000008000000     0430		      nop.m   0
000008000000     0431		      nop.f   0
00A000001000     0432		      br.call.sptk.many br0 = FIND_STRUCTURE
			   }
			   { .mib 
000008000000     0440		      nop.m   0
00A0308001C0     0441		      tbit.z  pr7, pr6 = r8, 0
0095FFFEA007     0442	       (pr7)  br.cond.dptk.few L$47
			   }
			   { .mii 
010802868A00     0450		      adds    r40 = 52, r40								   // 000232
0120001018C0     0451		      add     r99 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
010803B01600     0452		      mov     r88 = r59
			   }
			   { .mmi 
010800C21740     0460		      adds    r93 = 16, r12
010800C257C0     0461		      adds    r95 = 18, r12
01201001D780     0462		      mov     r94 = 270 ;;
			   }
			   { .mlx 
00A0428095C0     0470		      ld2     r87 = [r40], 4
800000000008     0471		      movl    r91 = 34471936 ;;								   // 000228
018007002D
			   }
			   { .mmi 
00B08A891640     0480		      ld4     r89 = [r40], -56								   // 000232
0080C63018C0     0481		      ld8     r99 = STR$FAILURE			// r99 = [r99]
010800C29840     0482		      adds    r97 = 20, r12
			   }
			   { .mii 
018403BAE200     0490		      cmp4.lt pr8, pr0 = r87, r59
0119F2A61900     0491		      adds    r100 = -208, r42								   // 000242
010800C21880     0492		      adds    r98 = 16, r12								   // 000232
			   }
			   { .mmi 
0119FAAF1680     04A0		      adds    r90 = -8, r42
0119FAAF0A80     04A1		      adds    r42 = -8, r42								   // 000228
01200000A640     04A2		      mov     r25 = 5 ;;								   // 000232
			   }
			   { .mii 
010805701608     04B0	       (pr8)  mov     r88 = r87
0000B6301F40     04B1		      sxt4    r125 = r99
0000B0001F00     04B2		      sxt4    r124 = r0 ;;
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 21
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mmi 
008C45DB0000     04C0		      st2     [r93] = r88
008C45FBC000     04C1		      st2     [r95] = r94
0000B5A01EC0     04C2		      sxt4    r123 = r90
			   }
			   { .mii 
008C82AB6000     04D0		      st4     [r42] = r91								   // 000228
0000B6201E80     04D1		      sxt4    r122 = r98								   // 000232
0000B0001E40     04D2		      sxt4    r121 = r0
			   }
			   { .mmi 
008C861B2000     04E0		      st4     [r97] = r89
0119F2A719C0     04E1		      adds    r103 = -200, r42								   // 000242
010802A00A80     04E2		      adds    r42 = 0, r42 ;;								   // 000228
			   }
			   { .mii 
0119F2A71A00     04F0		      adds    r104 = -200, r42								   // 000242
010802A00A80     04F1		      adds    r42 = 0, r42								   // 000228
01200000FC00     04F2		      mov     r112 = 7 ;;								   // 000253
			   }
			   { .mii 
0119F2A21A40     0500		      adds    r105 = -240, r42								   // 000242
010802A00A80     0501		      adds    r42 = 0, r42								   // 000228
012000038B80     0502		      mov     r46 = 28 ;;								   // 000261
			   }
			   { .mii 
0119F2A29A80     0510		      adds    r106 = -236, r42								   // 000242
010802A00A80     0511		      adds    r42 = 0, r42								   // 000228
010002E72B80     0512		      add     r46 = r57, r46 ;;								   // 000261
			   }
			   { .mii 
0119F2A19980     0520		      adds    r102 = -244, r42								   // 000242
010802A08A80     0521		      adds    r42 = 4, r42								   // 000228
000008000000     0522		      nop.i   0 ;;
			   }
			   { .mii 
008C82A00000     0530		      st4     [r42] = r0
0119FAAF9680     0531		      adds    r90 = -4, r42								   // 000242
010802AA1940     0532		      adds    r101 = 80, r42
			   }
			   { .mfb 
010802AD1BC0     0540		      adds    r111 = 104, r42								   // 000253
000008000000     0541		      nop.f   0
00A000001000     0542		      br.call.sptk.many br0 = XST$COPY							   // 000232
			   }
			   { .mmi 
010807800040     0550		      mov     r1 = r120
008086401900     0551		      ld4     r100 = [r100]								   // 000242
0119FAAF9B40     0552		      adds    r109 = -4, r42 ;;								   // 000253
			   }
			   { .mii 
012000101AC0     0560		      add     r107 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000242
					      r1
010802AC1B80     0561		      adds    r110 = 96, r42								   // 000253
010802AB1B00     0562		      adds    r108 = 88, r42
			   }
			   { .mmi 

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 22
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

012000006640     0570		      mov     r25 = 3									   // 000242
010072DC8B40     0571		      or      r45 = r100, r45
0000B0001E80     0572		      sxt4    r122 = r0 ;;
			   }
			   { .mii 
0080C6B01AC0     0580		      ld8     r107 = XPO$FAILURE		// r107 = [r107]
0000B6601E40     0581		      sxt4    r121 = r102
0119F2A69C40     0582		      adds    r113 = -204, r42								   // 000253
			   }
			   { .mmi 
008C8675A000     0590		      st4     [r103] = r45								   // 000242
008C06856000     0591		      st1     [r104] = r43
0119F2A99C80     0592		      adds    r114 = -180, r42 ;;							   // 000253
			   }
			   { .mii 
008C869B4000     05A0		      st4     [r105] = r90								   // 000242
0000B6B01EC0     05A1		      sxt4    r123 = r107
0119F2A11980     05A2		      adds    r102 = -248, r42								   // 000253
			   }
			   { .mfb 
008C86ACA000     05B0		      st4     [r106] = r101								   // 000242
000008000000     05B1		      nop.f   0
00A000001000     05B2		      br.call.sptk.many br0 = XPO$OPEN ;;
			   }
			   { .mii 
01200000A640     05C0		      mov     r25 = 5									   // 000253
0000B6F01F40     05C1		      sxt4    r125 = r111
0000B6D01F00     05C2		      sxt4    r124 = r109
			   }
			   { .mii 
010807800040     05D0		      mov     r1 = r120									   // 000242
0000B6E01EC0     05D1		      sxt4    r123 = r110								   // 000253
0000B6D01E80     05D2		      sxt4    r122 = r109
			   }
			   { .mmi 
0119F2A69D40     05E0		      adds    r117 = -204, r42								   // 000256
0119F2A98B00     05E1		      adds    r44 = -180, r42
0000B6C01E40     05E2		      sxt4    r121 = r108 ;;								   // 000253
			   }
			   { .mib 
010802AE1D00     05F0		      adds    r116 = 112, r42								   // 000256
01080AA00C80     05F1		      adds    r50 = 128, r42								   // 000261
00A000001000     05F2		      br.call.sptk.many br0 = XST$JOIN							   // 000253
			   }
			   { .mmi 
010807800040     0600		      mov     r1 = r120
008C071E0000     0601		      st1     [r113] = r112
012000006640     0602		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000101CC0     0610		      add     r115 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0611		      sxt4    r122 = r0
0000B6601E40     0612		      sxt4    r121 = r102
			   }
			   { .mmi 
008C87210000     0620		      st4     [r114] = r8

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 23
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

0119F2A11980     0621		      adds    r102 = -248, r42								   // 000256
010802AF0C40     0622		      adds    r49 = 120, r42 ;;								   // 000261
			   }
			   { .mii 
0080C7301CC0     0630		      ld8     r115 = XPO$FAILURE		// r115 = [r115]			   // 000253
0119F2A68CC0     0631		      adds    r51 = -204, r42								   // 000261
0119F2A98D40     0632		      adds    r53 = -180, r42
			   }
			   { .mmi 
0119F2A68F40     0640		      adds    r61 = -204, r42								   // 000264
0119F2A98FC0     0641		      adds    r63 = -180, r42
01080AA10F00     0642		      adds    r60 = 136, r42 ;;
			   }
			   { .mii 
01080AA30A40     0650		      adds    r41 = 152, r42								   // 000269
0000B7301EC0     0651		      sxt4    r123 = r115								   // 000253
0119FAAF9B40     0652		      adds    r109 = -4, r42								   // 000269
			   }
			   { .mfb 
01080AA21000     0660		      adds    r64 = 144, r42
000008000000     0661		      nop.f   0
00A000001000     0662		      br.call.sptk.many br0 = XPO$PUT							   // 000253
			   }
			   { .mmi 
010807800040     0670		      mov     r1 = r120
008C075E0000     0671		      st1     [r117] = r112								   // 000256
012000006640     0672		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000100C00     0680		      add     r48 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0681		      sxt4    r122 = r0
0000B6601E40     0682		      sxt4    r121 = r102
			   }
			   { .mmi 
008C82CE8000     0690		      st4     [r44] = r116
0119F2A11980     0691		      adds    r102 = -248, r42								   // 000261
0119F2A69040     0692		      adds    r65 = -204, r42 ;;							   // 000269
			   }
			   { .mii 
0080C3000C00     06A0		      ld8     r48 = XPO$FAILURE			// r48 = [r48]				   // 000256
0119F2A990C0     06A1		      adds    r67 = -180, r42								   // 000269
0119F2A69080     06A2		      adds    r66 = -204, r42 ;;							   // 000271
			   }
			   { .mii 
0119F2A99180     06B0		      adds    r70 = -180, r42
01080AA41140     06B1		      adds    r69 = 160, r42
0000B3001EC0     06B2		      sxt4    r123 = r48								   // 000256
			   }
			   { .mfb 
000008000000     06C0		      nop.m   0
000008000000     06C1		      nop.f   0
00A000001000     06C2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     06D0		      mov     r25 = 3									   // 000261
0000B3201EC0     06D1		      sxt4    r123 = r50

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 24
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

0000B2E01E80     06D2		      sxt4    r122 = r46
			   }
			   { .mib 
010807800040     06E0		      mov     r1 = r120									   // 000256
0000B3101E40     06E1		      sxt4    r121 = r49								   // 000261
004000000000     06E2		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     06F0		      nop.m   0
000008000000     06F1		      nop.f   0
00A000001000     06F2		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mmi 
010807800040     0700		      mov     r1 = r120
008C033E0000     0701		      st1     [r51] = r112
012000006640     0702		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000100DC0     0710		      add     r55 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0711		      sxt4    r122 = r0
0000B6601E40     0712		      sxt4    r121 = r102
			   }
			   { .mib 
008C83510000     0720		      st4     [r53] = r8
0119F2A11980     0721		      adds    r102 = -248, r42								   // 000264
004000000000     0722		      nop.b   0 ;;
			   }
			   { .mmi 
0080C3700DC0     0730		      ld8     r55 = XPO$FAILURE ;;		// r55 = [r55]				   // 000261
000008000000     0731		      nop.m   0
0000B3701EC0     0732		      sxt4    r123 = r55
			   }
			   { .mfb 
000008000000     0740		      nop.m   0
000008000000     0741		      nop.f   0
00A000001000     0742		      br.call.sptk.many br0 = XPO$PUT
			   }
			   { .mmi 
010807800040     0750		      mov     r1 = r120
008C03DE0000     0751		      st1     [r61] = r112								   // 000264
012000006640     0752		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000100F80     0760		      add     r62 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0761		      sxt4    r122 = r0
0000B6601E40     0762		      sxt4    r121 = r102
			   }
			   { .mib 
008C83F78000     0770		      st4     [r63] = r60
0119F2A11980     0771		      adds    r102 = -248, r42								   // 000269
004000000000     0772		      nop.b   0 ;;
			   }
			   { .mmi 
0080C3E00F80     0780		      ld8     r62 = XPO$FAILURE ;;		// r62 = [r62]				   // 000264
000008000000     0781		      nop.m   0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 25
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

0000B3E01EC0     0782		      sxt4    r123 = r62
			   }
			   { .mfb 
000008000000     0790		      nop.m   0
000008000000     0791		      nop.f   0
00A000001000     0792		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     07A0		      mov     r25 = 3									   // 000269
0000B2901EC0     07A1		      sxt4    r123 = r41
0000B6D01E80     07A2		      sxt4    r122 = r109
			   }
			   { .mib 
010807800040     07B0		      mov     r1 = r120									   // 000264
0000B4001E40     07B1		      sxt4    r121 = r64								   // 000269
004000000000     07B2		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     07C0		      nop.m   0
000008000000     07C1		      nop.f   0
00A000001000     07C2		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mmi 
010807800040     07D0		      mov     r1 = r120
008C041E0000     07D1		      st1     [r65] = r112
012000006640     07D2		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000101100     07E0		      add     r68 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     07E1		      sxt4    r122 = r0
0000B6601E40     07E2		      sxt4    r121 = r102
			   }
			   { .mmi 
008C84310000     07F0		      st4     [r67] = r8
0119F2A11980     07F1		      adds    r102 = -248, r42								   // 000271
010802A08A80     07F2		      adds    r42 = 4, r42 ;;
			   }
			   { .mmi 
0080C4401100     0800		      ld8     r68 = XPO$FAILURE ;;		// r68 = [r68]				   // 000269
000008000000     0801		      nop.m   0
0000B4401EC0     0802		      sxt4    r123 = r68
			   }
			   { .mfb 
000008000000     0810		      nop.m   0
000008000000     0811		      nop.f   0
00A000001000     0812		      br.call.sptk.many br0 = XPO$PUT
			   }
			   { .mmi 
010807800040     0820		      mov     r1 = r120
008C042E0000     0821		      st1     [r66] = r112								   // 000271
012000006640     0822		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000100D80     0830		      add     r54 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0831		      sxt4    r122 = r0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 26
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

0000B6601E40     0832		      sxt4    r121 = r102
			   }
			   { .mmi 
008C8468A000     0840		      st4     [r70] = r69 ;;
0080C3600D80     0841		      ld8     r54 = XPO$FAILURE			// r54 = [r54]
000008000000     0842		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0850		      nop.m   0
0000B3601EC0     0851		      sxt4    r123 = r54
00A000001000     0852		      br.call.sptk.many br0 = XPO$PUT
			   }
			   { .mmi 
010807800040     0860		      mov     r1 = r120 ;;
012000101580     0861		      add     r86 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000279
					      r1
012000101400     0862		      add     r80 = @ltoff(@fptr(STR$FAILURE)), 					   // 000286
					      r1
			   }
			   { .mii 
012000100D00     0870		      add     r52 = @ltoff(@fptr(STR$FAILURE)), 					   // 000299
					      r1
012000101300     0871		      add     r76 = @ltoff(@fptr(STR$FAILURE)), 					   // 000306
					      r1
012000101240     0872		      add     r73 = @ltoff(@fptr(STR$FAILURE)), 					   // 000310
					      r1 ;;
			   }
			   { .mii 
012000101200     0880		      add     r72 = @ltoff(@fptr(STR$FAILURE)), 					   // 000313
					      r1
012000100E00     0881		      add     r56 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000316
					      r1
000008000000     0882		      nop.i   0
			   }
			   { .mmb 
0080C56013C0     0890		      ld8     r79 = XPO$FAILURE			// r79 = [r86]				   // 000279
0080C5001540     0891		      ld8     r85 = STR$FAILURE			// r85 = [r80]				   // 000286
004000000000     0892		      nop.b   0 ;;
			   }
			   { .mmi 
0080C3401380     08A0		      ld8     r78 = STR$FAILURE			// r78 = [r52]				   // 000299
0080C4C01340     08A1		      ld8     r77 = STR$FAILURE			// r77 = [r76]				   // 000306
000008000000     08A2		      nop.i   0
			   }
			   { .mmi 
0080C49012C0     08B0		      ld8     r75 = STR$FAILURE			// r75 = [r73]				   // 000310
0080C4801280     08B1		      ld8     r74 = STR$FAILURE			// r74 = [r72]				   // 000313
000008000000     08B2		      nop.i   0
			   }
			   { .mfi 
0080C38011C0     08C0		      ld8     r71 = XPO$FAILURE			// r71 = [r56]				   // 000316
000008000000     08C1		      nop.f   0
000008000000     08C2		      nop.i   0 ;;
			   }
	         08D0	L$52:												   // 000279
			   { .mii 
010803958E40     08D0		      adds    r57 = 44, r57

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 27
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

012000006640     08D1		      mov     r25 = 3
0000B4F01EC0     08D2		      sxt4    r123 = r79 ;;
			   }
			   { .mii 
00BC0B977500     08E0		      st1     [r57] = r59, -44
0000B0001E80     08E1		      sxt4    r122 = r0 ;;
0000B3901E40     08E2		      sxt4    r121 = r57
			   }
			   { .mfb 
000008000000     08F0		      nop.m   0
000008000000     08F1		      nop.f   0
00A000001000     08F2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mii 
010803970E40     0900		      adds    r57 = 56, r57								   // 000283
00A0308001C0     0901		      tbit.z  pr7, pr6 = r8, 0								   // 000279
010807800040     0902		      mov     r1 = r120
			   }
			   { .mfb 
000008000000     0910		      nop.m   0
000008000000     0911		      nop.f   0
00860005C007     0912	       (pr7)  br.cond.dpnt.few L$54 ;;
			   }
			   { .mmi 
00B08B991500     0920		      ld4     r84 = [r57], -56 ;;							   // 000283
000008000000     0921		      nop.m   0
0000B5401500     0922		      sxt4    r84 = r84 ;;
			   }
			   { .mmi 
008005401500     0930		      ld1     r84 = [r84] ;;
01CC45442000     0931		      cmp4.eq pr0, pr8 = 33, r84
000008000000     0932		      nop.i   0
			   }
			   { .mfb 
000008000000     0940		      nop.m   0
000008000000     0941		      nop.f   0
008600010008     0942	       (pr8)  br.cond.dpnt.few L$57
			   }
			   { .mii 
01080AA495C0     0950		      adds    r87 = 164, r42								   // 000286
012000004640     0951		      mov     r25 = 2
0000B3A01E80     0952		      sxt4    r122 = r58 ;;
			   }
			   { .mib 
000008000000     0960		      nop.m   0
0000B5701E40     0961		      sxt4    r121 = r87
00A000001000     0962		      br.call.sptk.many br0 = XST$JOIN ;;
			   }
			   { .mii 
01200000E640     0970		      mov     r25 = 7
0000B5501FC0     0971		      sxt4    r127 = r85
0000B0001F80     0972		      sxt4    r126 = r0
			   }
			   { .mii 
012000003E40     0980		      mov     r121 = 1
0000B0001F40     0981		      sxt4    r125 = r0
0000B0001F00     0982		      sxt4    r124 = r0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 28
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   }
			   { .mii 
010807800040     0990		      mov     r1 = r120
0000B0801EC0     0991		      sxt4    r123 = r8
0000B5201E80     0992		      sxt4    r122 = r82 ;;
			   }
			   { .mfb 
000008000000     09A0		      nop.m   0
000008000000     09A1		      nop.f   0
00A000001000     09A2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
010807800040     09B0		      mov     r1 = r120
00A0308001C0     09B1		      tbit.z  pr7, pr6 = r8, 0
008600048006     09B2	       (pr6)  br.cond.dpnt.few L$54								   // 000285
			   }
	         09C0	L$57:												   // 000283
			   { .mii 
010802A29700     09C0		      adds    r92 = 20, r42								   // 000290
010802A196C0     09C1		      adds    r91 = 12, r42
0000B5201E40     09C2		      sxt4    r121 = r82 ;;
			   }
			   { .mii 
000008000000     09D0		      nop.m   0
0000B5C01EC0     09D1		      sxt4    r123 = r92
0000B5B01E80     09D2		      sxt4    r122 = r91
			   }
			   { .mfb 
000008000000     09E0		      nop.m   0
000008000000     09E1		      nop.f   0
00A000001000     09E2		      br.call.sptk.many br0 = FIND_FIELD
			   }
			   { .mib 
0119FA8F8A00     09F0		      adds    r40 = -4, r40
00A0308001C0     09F1		      tbit.z  pr7, pr6 = r8, 0								   // 000292
004000000000     09F2		      nop.b   0 ;;
			   }
			   { .mfb 
00AC82810100     0A00		      st4     [r40] = r8, 4								   // 000290
000008000000     0A01		      nop.f   0
0095FFFDA007     0A02	       (pr7)  br.cond.dptk.few L$52								   // 000292
			   }
			   { .mii 
010802A29700     0A10		      adds    r92 = 20, r42								   // 000299
01080AA69780     0A11		      adds    r94 = 180, r42
010802A196C0     0A12		      adds    r91 = 12, r42
			   }
			   { .mii 
01080AA59740     0A20		      adds    r93 = 172, r42
012000008640     0A21		      mov     r25 = 4 ;;
0000B5C01F00     0A22		      sxt4    r124 = r92
			   }
			   { .mii 
000008000000     0A30		      nop.m   0
0000B5E01EC0     0A31		      sxt4    r123 = r94
0000B5B01E80     0A32		      sxt4    r122 = r91
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 29
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mib 
000008000000     0A40		      nop.m   0
0000B5D01E40     0A41		      sxt4    r121 = r93
00A000001000     0A42		      br.call.sptk.many br0 = XST$JOIN ;;
			   }
			   { .mii 
01200000A640     0A50		      mov     r25 = 5
0000B4E01F40     0A51		      sxt4    r125 = r78
0000B0001F00     0A52		      sxt4    r124 = r0
			   }
			   { .mii 
010807800040     0A60		      mov     r1 = r120
0000B2A01EC0     0A61		      sxt4    r123 = r42
0000B0801E80     0A62		      sxt4    r122 = r8 ;;
			   }
			   { .mib 
000008000000     0A70		      nop.m   0
0000B0001E40     0A71		      sxt4    r121 = r0
00A000001000     0A72		      br.call.sptk.many br0 = XST$COPY
			   }
			   { .mii 
0119FA8F8A00     0A80		      adds    r40 = -4, r40								   // 000302
010807800040     0A81		      mov     r1 = r120									   // 000299
000008000000     0A82		      nop.i   0 ;;
			   }
			   { .mmi 
00A0828097C0     0A90		      ld4     r95 = [r40], 4 ;;								   // 000302
01CC35F02000     0A91		      cmp4.eq pr0, pr6 = 1, r95
000008000000     0A92		      nop.i   0
			   }
			   { .mfb 
000008000000     0AA0		      nop.m   0
000008000000     0AA1		      nop.f   0
00860000C006     0AA2	       (pr6)  br.cond.dpnt.few L$62
			   }
			   { .mii 
01080AA79800     0AB0		      adds    r96 = 188, r42								   // 000306
01200000A640     0AB1		      mov     r25 = 5
0000B4D01F40     0AB2		      sxt4    r125 = r77
			   }
			   { .mii 
000008000000     0AC0		      nop.m   0
0000B0001F00     0AC1		      sxt4    r124 = r0
0000B2A01EC0     0AC2		      sxt4    r123 = r42 ;;
			   }
			   { .mii 
000008000000     0AD0		      nop.m   0
0000B6001E80     0AD1		      sxt4    r122 = r96
0000B0001E40     0AD2		      sxt4    r121 = r0
			   }
			   { .mfb 
000008000000     0AE0		      nop.m   0
000008000000     0AE1		      nop.f   0
00A000001000     0AE2		      br.call.sptk.many br0 = XST$APPEND
			   }
			   { .mfb 
000008000000     0AF0		      nop.m   0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 30
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

000008000000     0AF1		      nop.f   0
00800000A000     0AF2		      br.sptk.few L$65 ;;
			   }
	         0B00	L$62:												   // 000310
			   { .mii 
01080AA89640     0B00		      adds    r89 = 196, r42
01200000A640     0B01		      mov     r25 = 5
0000B4B01F40     0B02		      sxt4    r125 = r75
			   }
			   { .mii 
000008000000     0B10		      nop.m   0
0000B0001F00     0B11		      sxt4    r124 = r0
0000B2A01EC0     0B12		      sxt4    r123 = r42 ;;
			   }
			   { .mii 
000008000000     0B20		      nop.m   0
0000B5901E80     0B21		      sxt4    r122 = r89
0000B0001E40     0B22		      sxt4    r121 = r0
			   }
			   { .mfb 
000008000000     0B30		      nop.m   0
000008000000     0B31		      nop.f   0
00A000001000     0B32		      br.call.sptk.many br0 = XST$APPEND
			   }
	         0B40	L$65:
			   { .mii 
01080AA99840     0B40		      adds    r97 = 204, r42								   // 000313
010802A196C0     0B41		      adds    r91 = 12, r42
012000004640     0B42		      mov     r25 = 2
			   }
			   { .mmi 
010807800040     0B50		      mov     r1 = r120 ;;								   // 000310
000008000000     0B51		      nop.m   0
0000B6101E80     0B52		      sxt4    r122 = r97								   // 000313
			   }
			   { .mib 
000008000000     0B60		      nop.m   0
0000B5B01E40     0B61		      sxt4    r121 = r91
00A000001000     0B62		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
01200000A640     0B70		      mov     r25 = 5
0000B2A01EC0     0B71		      sxt4    r123 = r42
0119F2A91880     0B72		      adds    r98 = -184, r42								   // 000316
			   }
			   { .mii 
010807800040     0B80		      mov     r1 = r120									   // 000313
0000B4A01F40     0B81		      sxt4    r125 = r74
0000B0001F00     0B82		      sxt4    r124 = r0 ;;
			   }
			   { .mii 
0119F2A09980     0B90		      adds    r102 = -252, r42								   // 000316
0000B0801E80     0B91		      sxt4    r122 = r8									   // 000313
0000B0001E40     0B92		      sxt4    r121 = r0
			   }
			   { .mfb 
000008000000     0BA0		      nop.m   0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 31
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

000008000000     0BA1		      nop.f   0
00A000001000     0BA2		      br.call.sptk.many br0 = XST$APPEND ;;
			   }
			   { .mii 
008C86254000     0BB0		      st4     [r98] = r42								   // 000316
0119F2A618C0     0BB1		      adds    r99 = -208, r42
012000006640     0BB2		      mov     r25 = 3
			   }
			   { .mii 
010807800040     0BC0		      mov     r1 = r120									   // 000313
0000B4701EC0     0BC1		      sxt4    r123 = r71								   // 000316
0000B0001E80     0BC2		      sxt4    r122 = r0 ;;
			   }
			   { .mib 
008C063E0000     0BD0		      st1     [r99] = r112
0000B6601E40     0BD1		      sxt4    r121 = r102
00A000001000     0BD2		      br.call.sptk.many br0 = XPO$PUT
			   }
			   { .mfb 
010807800040     0BE0		      mov     r1 = r120
000008000000     0BE1		      nop.f   0
0091FFF9E000     0BE2		      br.sptk.few L$52 ;;
			   }
	         0BF0	L$54:												   // 000319
			   { .mii 
012000100AC0     0BF0		      add     r43 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0119F2A60B40     0BF1		      adds    r45 = -208, r42
0119F2A919C0     0BF2		      adds    r103 = -184, r42
			   }
			   { .mmi 
01080AAA9900     0C00		      adds    r100 = 212, r42
0119F2A09980     0C01		      adds    r102 = -252, r42
012000006640     0C02		      mov     r25 = 3 ;;
			   }
			   { .mii 
0080C2B00AC0     0C10		      ld8     r43 = XPO$FAILURE			// r43 = [r43]
0000B0001E80     0C11		      sxt4    r122 = r0
0000B6601E40     0C12		      sxt4    r121 = r102
			   }
			   { .mmi 
008C02DE0000     0C20		      st1     [r45] = r112
008C867C8000     0C21		      st4     [r103] = r100
0119F2A61680     0C22		      adds    r90 = -208, r42 ;;							   // 000322
			   }
			   { .mii 
0119F2A91A40     0C30		      adds    r105 = -184, r42
0000B2B01EC0     0C31		      sxt4    r123 = r43								   // 000319
01080AAB9A00     0C32		      adds    r104 = 220, r42								   // 000322
			   }
			   { .mfb 
0119F2A09980     0C40		      adds    r102 = -252, r42
000008000000     0C41		      nop.f   0
00A000001000     0C42		      br.call.sptk.many br0 = XPO$PUT							   // 000319
			   }
			   { .mmi 
010807800040     0C50		      mov     r1 = r120

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 32
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

008C05AE0000     0C51		      st1     [r90] = r112								   // 000322
012000006640     0C52		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000101940     0C60		      add     r101 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0C61		      sxt4    r122 = r0
0000B6601E40     0C62		      sxt4    r121 = r102
			   }
			   { .mmi 
008C869D0000     0C70		      st4     [r105] = r104
0119F2A61A80     0C71		      adds    r106 = -208, r42								   // 000323
0119F2A09980     0C72		      adds    r102 = -252, r42 ;;
			   }
			   { .mii 
0080C6501940     0C80		      ld8     r101 = XPO$FAILURE		// r101 = [r101]			   // 000322
01080AAC9B00     0C81		      adds    r108 = 228, r42								   // 000327
010812871B80     0C82		      adds    r110 = 312, r40 ;;
			   }
			   { .mii 
010812841BC0     0C90		      adds    r111 = 288, r40
01080A8E8BC0     0C91		      adds    r47 = 244, r40
0000B6501EC0     0C92		      sxt4    r123 = r101								   // 000322
			   }
			   { .mfb 
000008000000     0CA0		      nop.m   0
000008000000     0CA1		      nop.f   0
00A000001000     0CA2		      br.call.sptk.many br0 = XPO$PUT
			   }
			   { .mii 
010807800040     0CB0		      mov     r1 = r120
012000006640     0CB1		      mov     r25 = 3									   // 000323
0000B0001E80     0CB2		      sxt4    r122 = r0
			   }
			   { .mii 
008C06AA6000     0CC0		      st1     [r106] = r83
0000B6601E40     0CC1		      sxt4    r121 = r102 ;;
012000101AC0     0CC2		      add     r107 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1 ;;
			   }
			   { .mmi 
0080C6B01AC0     0CD0		      ld8     r107 = XPO$FAILURE ;;		// r107 = [r107]
000008000000     0CD1		      nop.m   0
0000B6B01EC0     0CD2		      sxt4    r123 = r107
			   }
			   { .mfb 
000008000000     0CE0		      nop.m   0
000008000000     0CE1		      nop.f   0
00A000001000     0CE2		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mii 
0119F2A11E40     0CF0		      adds    r121 = -248, r42								   // 000327
012000004640     0CF1		      mov     r25 = 2
0000B6C01E80     0CF2		      sxt4    r122 = r108
			   }
			   { .mmi 
010807800040     0D00		      mov     r1 = r120 ;;								   // 000323

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 33
X00.07                          FIELD_DUMP                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

008087901E40     0D01		      ld4     r121 = [r121]								   // 000327
000008000000     0D02		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0D10		      nop.m   0
0000B7901E40     0D11		      sxt4    r121 = r121
00A000001000     0D12		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mmi 
010807800040     0D20		      mov     r1 = r120
008C86E10000     0D21		      st4     [r110] = r8
012000006640     0D22		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000101C40     0D30		      add     r113 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     0D31		      sxt4    r122 = r0
0000B2F01E40     0D32		      sxt4    r121 = r47
			   }
			   { .mmi 
008C06FE0000     0D40		      st1     [r111] = r112 ;;
0080C7101C40     0D41		      ld8     r113 = XPO$FAILURE		// r113 = [r113]
000008000000     0D42		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0D50		      nop.m   0
0000B7101EC0     0D51		      sxt4    r123 = r113
00A000001000     0D52		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mfi 
010807800040     0D60		      mov     r1 = r120
000008000000     0D61		      nop.f   0
000008000000     0D62		      nop.i   0
			   }
	         0D70	L$42:												   // 000328
			   { .mii 
000008000000     0D70		      nop.m   0
0001540EE000     0D71		      mov.i   rspfs = r119
010800C20300     0D72		      adds    r12 = 16, r12 ;;
			   }
			   { .mib 
000008000000     0D80		      nop.m   0
000E001EC000     0D81		      mov     br0 = r118
000108001100     0D82		      br.ret.sptk.many br0 ;;
			   }
				      .endp   FIELD_DUMP

Routine Size: 3472 bytes,    Routine Base: $CODE$ + 0000

				      .proc   FIND_STRUCTURE
				      .align 32
			FIND_STRUCTURE:											   // 000331
			   { .mii 
0119F8CE0300     0D90		      adds    r12 = -16, r12
012000006240     0D91		      mov     r9 = 3									   // 000385
000008000000     0D92		      nop.i   0 ;;
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 34
X00.07                          FIND_STRUCTURE                  19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mii 
010800C200C0     0DA0		      adds    r3 = 16, r12
010800C26280     0DA1		      adds    r10 = 19, r12
000008000000     0DA2		      nop.i   0 ;;
			   }
			   { .mii 
002C00C26A80     0DB0		      alloc   r42 = rspfs, 2, 10, 7, 0							   // 000331
000188000A40     0DB1		      mov     r41 = br0
010800100AC0     0DB2		      mov     r43 = r1
			   }
			   { .mii 
008C40300000     0DC0		      st2     [r3] = r0									   // 000385
0000B2000800     0DC1		      sxt4    r32 = SOURCE_LINE			// r32 = r32
010800C240C0     0DC2		      adds    r3 = 18, r12 ;;
			   }
			   { .mmi 
010802004800     0DD0		      adds    r32 = 2, r32 ;;
00A002004200     0DD1		      ld1     r8 = [r32], 2
000008000000     0DD2		      nop.i   0 ;;
			   }
			   { .mmi 
008C00310000     0DE0		      st1     [r3] = r8
008C00A12000     0DE1		      st1     [r10] = r9
010800C280C0     0DE2		      adds    r3 = 20, r12
			   }
			   { .mii 
00B08A0F8240     0DF0		      ld4     r9 = [r32], -4
010800C34200     0DF1		      adds    r8 = 26, r12
010800C30280     0DF2		      adds    r10 = 24, r12 ;;
			   }
			   { .mmi 
008C80312000     0E00		      st4     [r3] = r9
0080420000C0     0E01		      ld2     r3 = [r32]
000008000000     0E02		      nop.i   0 ;;
			   }
			   { .mii 
008C40800000     0E10		      st2     [r8] = r0
010800000200     0E11		      mov     VALUE = r0			// r8 = r0				   // 000391
01C4003001C0     0E12		      cmp4.eq pr7, pr0 = r0, r3								   // 000397
			   }
			   { .mfb 
008C40A06000     0E20		      st2     [r10] = r3								   // 000385
000008000000     0E21		      nop.f   0
00860002A007     0E22	       (pr7)  br.cond.dpnt.few L$31								   // 000397
			   }
			   { .mib 
000008000000     0E30		      nop.m   0
0000B0900240     0E31		      sxt4    r9 = r9									   // 000399
004000000000     0E32		      nop.b   0 ;;
			   }
			   { .mmi 
008000900240     0E40		      ld1     r9 = [r9] ;;
01CC30942000     0E41		      cmp4.eq pr0, pr6 = 33, r9
000008000000     0E42		      nop.i   0
			   }
			   { .mfb 
000008000000     0E50		      nop.m   0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 35
X00.07                          FIND_STRUCTURE                  19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

000008000000     0E51		      nop.f   0
008600024006     0E52	       (pr6)  br.cond.dpnt.few L$31
			   }
			   { .mii 
012000100240     0E60		      add     r9 = @ltoff(@fptr(STR$FAILURE)), 						   // 000404
					      r1
012000100800     0E61		      add     r32 = @ltoff($STR$PATTERN), r1
010800C200C0     0E62		      adds    r3 = 16, r12
			   }
			   { .mii 
01200000E640     0E70		      mov     r25 = 7
0000B0000C40     0E71		      sxt4    r49 = r0
0000B0000C00     0E72		      sxt4    r48 = r0 ;;
			   }
			   { .mii 
0080C0900240     0E80		      ld8     r9 = STR$FAILURE			// r9 = [r9]
010800300A00     0E81		      mov     r40 = r3
0000B0300BC0     0E82		      sxt4    r47 = r3 ;;
			   }
			   { .mii 
0080C2000800     0E90		      ld8     r32 = $STR$PATTERN		// r32 = [r32]
0000B0300B40     0E91		      sxt4    r45 = r3
0000B0900C80     0E92		      sxt4    r50 = r9 ;;
			   }
			   { .mii 
012010004B00     0EA0		      mov     r44 = 258
0000B2000B80     0EA1		      sxt4    r46 = r32
010802010800     0EA2		      adds    r32 = 8, r32
			   }
			   { .mfb 
000008000000     0EB0		      nop.m   0
000008000000     0EB1		      nop.f   0
00A000001000     0EB2		      br.call.sptk.many br0 = XST$SCAN ;;
			   }
			   { .mii 
010802B00040     0EC0		      mov     r1 = r43
01200000E640     0EC1		      mov     r25 = 7									   // 000408
0000B0000C40     0EC2		      sxt4    r49 = r0
			   }
			   { .mii 
012010006B00     0ED0		      mov     r44 = 259
0000B0000C00     0ED1		      sxt4    r48 = r0
0000B2800BC0     0ED2		      sxt4    r47 = r40 ;;
			   }
			   { .mii 
012000100200     0EE0		      add     r8 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
0000B2000B80     0EE1		      sxt4    r46 = r32
0000B2800B40     0EE2		      sxt4    r45 = r40 ;;
			   }
			   { .mmi 
0080C0800200     0EF0		      ld8     r8 = STR$FAILURE ;;		// r8 = [r8]
000008000000     0EF1		      nop.m   0
0000B0800C80     0EF2		      sxt4    r50 = r8
			   }
			   { .mfb 
000008000000     0F00		      nop.m   0

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 36
X00.07                          FIND_STRUCTURE                  19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

000008000000     0F01		      nop.f   0
00A000001000     0F02		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mii 
010802B00040     0F10		      mov     r1 = r43
01200000C640     0F11		      mov     r25 = 6									   // 000411
0000B0000C00     0F12		      sxt4    r48 = r0
			   }
			   { .mii 
0119F80FEBC0     0F20		      adds    r47 = -1, r0
0000B2100B80     0F21		      sxt4    r46 = STRUCTURE_NAME		// r46 = r33
0000B2800B40     0F22		      sxt4    r45 = r40 ;;
			   }
			   { .mib 
0120001000C0     0F30		      add     r3 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
0000B0000B00     0F31		      sxt4    r44 = r0
004000000000     0F32		      nop.b   0 ;;
			   }
			   { .mmi 
0080C03000C0     0F40		      ld8     r3 = STR$FAILURE ;;		// r3 = [r3]
000008000000     0F41		      nop.m   0
0000B0300C40     0F42		      sxt4    r49 = r3
			   }
			   { .mfb 
000008000000     0F50		      nop.m   0
000008000000     0F51		      nop.f   0
00A000001000     0F52		      br.call.sptk.many br0 = XST$EQL ;;
			   }
			   { .mfi 
010802B00040     0F60		      mov     r1 = r43
000008000000     0F61		      nop.f   0
000008000000     0F62		      nop.i   0
			   }
	         0F70	L$31:												   // 000397
			   { .mii 
000008000000     0F70		      nop.m   0
0000B0800200     0F71		      sxt4    r8 = r8									   // 000417
000154054000     0F72		      mov.i   rspfs = r42 ;;
			   }
			   { .mib 
010800C20300     0F80		      adds    r12 = 16, r12
000E00152000     0F81		      mov     br0 = r41
000108001100     0F82		      br.ret.sptk.many br0 ;;
			   }
				      .endp   FIND_STRUCTURE

Routine Size: 512 bytes,    Routine Base: $CODE$ + 0D90

				      .proc   FIND_FIELD
				      .align 32
			FIND_FIELD:											   // 000422
			   { .mii 
0119F8CE0300     0F90		      adds    r12 = -16, r12
012000006240     0F91		      mov     r9 = 3									   // 000484
000008000000     0F92		      nop.i   0 ;;
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 37
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mii 
010800C200C0     0FA0		      adds    r3 = 16, r12
010800C26280     0FA1		      adds    r10 = 19, r12
000008000000     0FA2		      nop.i   0 ;;
			   }
			   { .mii 
002C01232C00     0FB0		      alloc   r48 = rspfs, 3, 15, 7, 0							   // 000422
000188000BC0     0FB1		      mov     r47 = br0
010800100C40     0FB2		      mov     r49 = r1
			   }
			   { .mii 
008C40300000     0FC0		      st2     [r3] = r0									   // 000484
0000B2000800     0FC1		      sxt4    r32 = LINE_DESC			// r32 = r32
010800C240C0     0FC2		      adds    r3 = 18, r12
			   }
			   { .mib 
012000100B00     0FD0		      add     r44 = @ltoff($STR$PATTERN), r1						   // 000502
012000002B40     0FD1		      mov     r45 = 1
004000000000     0FD2		      nop.b   0 ;;
			   }
			   { .mii 
0080C2C00B00     0FE0		      ld8     r44 = $STR$PATTERN		// r44 = [r44]
010802004800     0FE1		      adds    r32 = 2, r32								   // 000484
000008000000     0FE2		      nop.i   0 ;;
			   }
			   { .mmi 
00A002004200     0FF0		      ld1     r8 = [r32], 2 ;;
008C00310000     0FF1		      st1     [r3] = r8
010800C280C0     0FF2		      adds    r3 = 20, r12
			   }
			   { .mii 
008C00A12000     1000		      st1     [r10] = r9
010800C34200     1001		      adds    r8 = 26, r12
010800C30280     1002		      adds    r10 = 24, r12
			   }
			   { .mmi 
00B08A0F8240     1010		      ld4     r9 = [r32], -4 ;;
008C80312000     1011		      st4     [r3] = r9
012000100240     1012		      add     r9 = @ltoff(@fptr(STR$FAILURE)), 						   // 000513
					      r1
			   }
			   { .mii 
0080420000C0     1020		      ld2     r3 = [r32]								   // 000484
010800000800     1021		      mov     VALUE = r0			// r32 = r0				   // 000491
000008000000     1022		      nop.i   0 ;;
			   }
			   { .mii 
008C40800000     1030		      st2     [r8] = r0									   // 000484
012000100200     1031		      add     r8 = @ltoff(@fptr(STR$FAILURE)), 						   // 000508
					      r1
000008000000     1032		      nop.i   0
			   }
			   { .mmi 
008C40A06000     1040		      st2     [r10] = r3								   // 000484
0080C0900A40     1041		      ld8     r41 = STR$FAILURE			// r41 = [r9]				   // 000513
0120001000C0     1042		      add     r3 = @ltoff(@fptr(STR$FAILURE)), 						   // 000515
					      r1 ;;

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 38
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   }
			   { .mmi 
012000100280     1050		      add     r10 = @ltoff(@fptr(STR$FAILURE)), 					   // 000502
					      r1
0080C0800A80     1051		      ld8     r42 = STR$FAILURE			// r42 = [r8]				   // 000508
000008000000     1052		      nop.i   0 ;;
			   }
			   { .mmi 
0080C03000C0     1060		      ld8     r3 = STR$FAILURE			// r3 = [r3]				   // 000515
0080C0A00AC0     1061		      ld8     r43 = STR$FAILURE			// r43 = [r10]				   // 000502
000008000000     1062		      nop.i   0 ;;
			   }
			   { .mfi 
010800300A00     1070		      mov     r40 = r3									   // 000515
000008000000     1071		      nop.f   0
000008000000     1072		      nop.i   0 ;;
			   }
	         1080	L$2:												   // 000502
			   { .mii 
010800C200C0     1080		      adds    r3 = 16, r12
01200000E640     1081		      mov     r25 = 7
0000B2B00E00     1082		      sxt4    r56 = r43
			   }
			   { .mii 
012010004C80     1090		      mov     r50 = 258
0000B0000DC0     1091		      sxt4    r55 = r0
0000B0000D80     1092		      sxt4    r54 = r0 ;;
			   }
			   { .mii 
010800300B80     10A0		      mov     r46 = r3
0000B0300D40     10A1		      sxt4    r53 = r3
0000B2C00D00     10A2		      sxt4    r52 = r44
			   }
			   { .mib 
000008000000     10B0		      nop.m   0
0000B0300CC0     10B1		      sxt4    r51 = r3
00A000001000     10B2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
01CC30802000     10C0		      cmp4.eq pr0, pr6 = 1, r8
010803100040     10C1		      mov     r1 = r49
00860008E006     10C2	       (pr6)  br.cond.dpnt.few L$5
			   }
			   { .mii 
010802C100C0     10D0		      adds    r3 = 8, r44								   // 000508
01200000E640     10D1		      mov     r25 = 7
0000B2A00E00     10D2		      sxt4    r56 = r42
			   }
			   { .mii 
012010006C80     10E0		      mov     r50 = 259
0000B0000DC0     10E1		      sxt4    r55 = r0
0000B0000D80     10E2		      sxt4    r54 = r0 ;;
			   }
			   { .mii 
000008000000     10F0		      nop.m   0
0000B2E00D40     10F1		      sxt4    r53 = r46
0000B0300D00     10F2		      sxt4    r52 = r3

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 39
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   }
			   { .mib 
000008000000     1100		      nop.m   0
0000B2E00CC0     1101		      sxt4    r51 = r46
00A000001000     1102		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
01CC30802000     1110		      cmp4.eq pr0, pr6 = 1, r8
010803100040     1111		      mov     r1 = r49
008600084006     1112	       (pr6)  br.cond.dpnt.few L$5 ;;
			   }
			   { .mii 
010802C20D40     1120		      adds    r53 = 16, r44								   // 000513
01200000C640     1121		      mov     r25 = 6
0000B2900DC0     1122		      sxt4    r55 = r41 ;;
			   }
			   { .mii 
000008000000     1130		      nop.m   0
0000B3500D00     1131		      sxt4    r52 = r53
0000B0000D80     1132		      sxt4    r54 = r0
			   }
			   { .mii 
0119F80FED40     1140		      adds    r53 = -1, r0
0000B2E00CC0     1141		      sxt4    r51 = r46
0000B0000C80     1142		      sxt4    r50 = r0
			   }
			   { .mfb 
000008000000     1150		      nop.m   0
000008000000     1151		      nop.f   0
00A000001000     1152		      br.call.sptk.many br0 = XST$EQL
			   }
			   { .mib 
010803100040     1160		      mov     r1 = r49
00A0308001C0     1161		      tbit.z  pr7, pr6 = r8, 0
008600004007     1162	       (pr7)  br.cond.dpnt.few L$11
			   }
			   { .mfb 
0108000000C0     1170		      mov     r3 = r0
000008000000     1171		      nop.f   0
00800000E000     1172		      br.sptk.few L$12 ;;
			   }
	         1180	L$11:												   // 000515
			   { .mii 
010802C30D40     1180		      adds    r53 = 24, r44
01200000C640     1181		      mov     r25 = 6
0000B2800DC0     1182		      sxt4    r55 = r40 ;;
			   }
			   { .mii 
000008000000     1190		      nop.m   0
0000B3500D00     1191		      sxt4    r52 = r53
0000B0000D80     1192		      sxt4    r54 = r0
			   }
			   { .mii 
0119F80FED40     11A0		      adds    r53 = -1, r0
0000B2E00CC0     11A1		      sxt4    r51 = r46
0000B0000C80     11A2		      sxt4    r50 = r0
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 40
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mfb 
000008000000     11B0		      nop.m   0
000008000000     11B1		      nop.f   0
00A000001000     11B2		      br.call.sptk.many br0 = XST$EQL
			   }
			   { .mii 
0108000000C0     11C0		      mov     r3 = r0									   // 000513
00A0308001C0     11C1		      tbit.z  pr7, pr6 = r8, 0								   // 000515
010803100040     11C2		      mov     r1 = r49 ;;
			   }
			   { .mfi 
0108000020C7     11D0	       (pr7)  adds    r3 = 1, r0								   // 000513
000008000000     11D1		      nop.f   0
000008000000     11D2		      nop.i   0 ;;
			   }
	         11E0	L$12:
			   { .mib 
000008000000     11E0		      nop.m   0
00A040300240     11E1		      tbit.z  pr9, pr8 = r3, 0								   // 000512
0095FFFD4009     11E2	       (pr9)  br.cond.dptk.few L$2
			   }
			   { .mii 
010800C20240     11F0		      adds    r9 = 16, r12								   // 000526
0000B2100840     11F1		      sxt4    r33 = NAME_DESC			// r33 = r33
010800C242C0     11F2		      adds    r11 = 18, r12
			   }
			   { .mmi 
010800C28480     1200		      adds    r18 = 20, r12
012000100540     1201		      add     r21 = @ltoff(@fptr(STR$FAILURE)), 					   // 000532
					      r1
010800C20B80     1202		      adds    r46 = 16, r12 ;;
			   }
			   { .mii 
008040900240     1210		      ld2     r9 = [r9]									   // 000526
010802C404C0     1211		      adds    r19 = 32, r44								   // 000532
01200000E640     1212		      mov     r25 = 7 ;;
			   }
			   { .mii 
012010002C80     1220		      mov     r50 = 257
0000B0000DC0     1221		      sxt4    r55 = r0
0000B0000D80     1222		      sxt4    r54 = r0
			   }
			   { .mmi 
00AC421120C0     1230		      st2     [r33] = r9, 3								   // 000526
0080C1500540     1231		      ld8     r21 = STR$FAILURE			// r21 = [r21]				   // 000532
0000B0000D40     1232		      sxt4    r53 = r0 ;;
			   }
			   { .mmi 
008000B002C0     1240		      ld1     r11 = [r11]								   // 000526
00BC0A15BFC0     1241		      st1     [r33] = r45, -1
0000B1300D00     1242		      sxt4    r52 = r19									   // 000532
			   }
			   { .mii 
000008000000     1250		      nop.m   0
0000B1500E00     1251		      sxt4    r56 = r21
0000B2E00CC0     1252		      sxt4    r51 = r46 ;;
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 41
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mmi 
00AC02116080     1260		      st1     [r33] = r11, 2								   // 000526
008081200480     1261		      ld4     r18 = [r18]
000008000000     1262		      nop.i   0 ;;
			   }
			   { .mfb 
008C82124000     1270		      st4     [r33] = r18
000008000000     1271		      nop.f   0
00A000001000     1272		      br.call.sptk.many br0 = XST$SCAN							   // 000532
			   }
			   { .mib 
01CC30802000     1280		      cmp4.eq pr0, pr6 = 1, r8								   // 000533
010803100040     1281		      mov     r1 = r49									   // 000532
008600056006     1282	       (pr6)  br.cond.dpnt.few L$5 ;;								   // 000533
			   }
			   { .mii 
012000100A80     1290		      add     r42 = @ltoff(@fptr(STR$FAILURE)), 					   // 000539
					      r1
010802C50A00     1291		      adds    r40 = 40, r44
01200000E640     1292		      mov     r25 = 7
			   }
			   { .mii 
012010006C80     12A0		      mov     r50 = 259
0000B0000DC0     12A1		      sxt4    r55 = r0
0000B0000D80     12A2		      sxt4    r54 = r0 ;;
			   }
			   { .mii 
0080C2A00A80     12B0		      ld8     r42 = STR$FAILURE			// r42 = [r42]
0000B2E00D40     12B1		      sxt4    r53 = r46
0000B2800D00     12B2		      sxt4    r52 = r40 ;;
			   }
			   { .mii 
000008000000     12C0		      nop.m   0
0000B2A00E00     12C1		      sxt4    r56 = r42
0000B2E00CC0     12C2		      sxt4    r51 = r46
			   }
			   { .mfb 
000008000000     12D0		      nop.m   0
000008000000     12D1		      nop.f   0
00A000001000     12D2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
01CC30802000     12E0		      cmp4.eq pr0, pr6 = 1, r8
010803100040     12E1		      mov     r1 = r49
00860004A006     12E2	       (pr6)  br.cond.dpnt.few L$5 ;;
			   }
			   { .mii 
012000100A40     12F0		      add     r41 = @ltoff(@fptr(STR$FAILURE)), 					   // 000545
					      r1
010802C60AC0     12F1		      adds    r43 = 48, r44
01200000E640     12F2		      mov     r25 = 7
			   }
			   { .mii 
012010006C80     1300		      mov     r50 = 259
0000B0000DC0     1301		      sxt4    r55 = r0
0000B0000D80     1302		      sxt4    r54 = r0 ;;
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 42
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mii 
0080C2900A40     1310		      ld8     r41 = STR$FAILURE			// r41 = [r41]
0000B2E00D40     1311		      sxt4    r53 = r46
0000B2B00D00     1312		      sxt4    r52 = r43 ;;
			   }
			   { .mii 
000008000000     1320		      nop.m   0
0000B2900E00     1321		      sxt4    r56 = r41
0000B2E00CC0     1322		      sxt4    r51 = r46
			   }
			   { .mfb 
000008000000     1330		      nop.m   0
000008000000     1331		      nop.f   0
00A000001000     1332		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
01CC30802000     1340		      cmp4.eq pr0, pr6 = 1, r8
010803100040     1341		      mov     r1 = r49
00860003E006     1342	       (pr6)  br.cond.dpnt.few L$5 ;;
			   }
			   { .mii 
0120001000C0     1350		      add     r3 = @ltoff(@fptr(STR$FAILURE)), 						   // 000559
					      r1
010800C20A00     1351		      adds    r40 = 16, r12								   // 000556
01200001C840     1352		      mov     r33 = 14
			   }
			   { .mmi 
010800C28A40     1360		      adds    r41 = 20, r12
010802C70D40     1361		      adds    r53 = 56, r44								   // 000559
0000B2200A80     1362		      sxt4    r42 = TYPE_DESC ;;		// r42 = r34				   // 000556
			   }
			   { .mii 
0080C03000C0     1370		      ld8     r3 = STR$FAILURE			// r3 = [r3]				   // 000559
01200000C640     1371		      mov     r25 = 6
0000B3500D00     1372		      sxt4    r52 = r53
			   }
			   { .mii 
008042800A00     1380		      ld2     r40 = [r40]								   // 000556
0000B0000D80     1381		      sxt4    r54 = r0									   // 000559
010802A00A80     1382		      adds    r42 = 0, r42 ;;								   // 000556
			   }
			   { .mii 
000008000000     1390		      nop.m   0
0000B0300DC0     1391		      sxt4    r55 = r3									   // 000559
0119FA8FEA00     1392		      adds    r40 = -1, r40 ;;								   // 000556
			   }
			   { .mii 
0119F80FED40     13A0		      adds    r53 = -1, r0								   // 000559
0000B2200CC0     13A1		      sxt4    r51 = TYPE_DESC			// r51 = r34
0000B0000C80     13A2		      sxt4    r50 = r0
			   }
			   { .mmi 
00AC42A500C0     13B0		      st2     [r42] = r40, 3 ;;								   // 000556
00BC0AA5BFC0     13B1		      st1     [r42] = r45, -1
000008000000     13B2		      nop.i   0 ;;
			   }
			   { .mmi 

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 43
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

00AC02A42080     13C0		      st1     [r42] = r33, 2
008082900A40     13C1		      ld4     r41 = [r41]
000008000000     13C2		      nop.i   0 ;;
			   }
			   { .mmi 
010802902A40     13D0		      adds    r41 = 1, r41 ;;
008C82A52000     13D1		      st4     [r42] = r41
000008000000     13D2		      nop.i   0
			   }
			   { .mfb 
000008000000     13E0		      nop.m   0
000008000000     13E1		      nop.f   0
00A000001000     13E2		      br.call.sptk.many br0 = XST$EQL							   // 000559
			   }
			   { .mib 
010803100040     13F0		      mov     r1 = r49
00A0308001C0     13F1		      tbit.z  pr7, pr6 = r8, 0
008600008007     13F2	       (pr7)  br.cond.dpnt.few L$24
			   }
			   { .mmi 
012000002800     1400		      mov     r32 = 1 ;;
000008000000     1401		      nop.m   0
00A03A000200     1402		      tbit.z  pr8, pr7 = r32, 0								   // 000561
			   }
			   { .mfb 
000008000000     1410		      nop.m   0
000008000000     1411		      nop.f   0
008600014008     1412	       (pr8)  br.cond.dpnt.few L$27
			   }
			   { .mfb 
012000002AC0     1420		      mov     r43 = 1
000008000000     1421		      nop.f   0
00800001E000     1422		      br.sptk.few L$28 ;;
			   }
	         1430	L$24:
			   { .mii 
012000100840     1430		      add     r33 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
010802C80D40     1431		      adds    r53 = 64, r44
01200000C640     1432		      mov     r25 = 6
			   }
			   { .mii 
010800000800     1440		      mov     r32 = r0									   // 000559
0000B0000D80     1441		      sxt4    r54 = r0									   // 000561
0000B2200CC0     1442		      sxt4    r51 = TYPE_DESC ;;		// r51 = r34
			   }
			   { .mii 
0080C2100840     1450		      ld8     r33 = STR$FAILURE			// r33 = [r33]
0000B3500D00     1451		      sxt4    r52 = r53
0119F80FED40     1452		      adds    r53 = -1, r0 ;;
			   }
			   { .mii 
000008000000     1460		      nop.m   0
0000B2100DC0     1461		      sxt4    r55 = r33
0000B0000C80     1462		      sxt4    r50 = r0
			   }
			   { .mfb 

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 44
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

000008000000     1470		      nop.m   0
000008000000     1471		      nop.f   0
00A000001000     1472		      br.call.sptk.many br0 = XST$EQL
			   }
			   { .mii 
010803100040     1480		      mov     r1 = r49
00A030800000     1481		      tbit.z  pr0, pr6 = r8, 0 ;;
010800002806     1482	       (pr6)  adds    r32 = 1, r0 ;;								   // 000559
			   }
			   { .mib 
000008000000     1490		      nop.m   0
00A03A000200     1491		      tbit.z  pr8, pr7 = r32, 0								   // 000561
008600004008     1492	       (pr8)  br.cond.dpnt.few L$27
			   }
			   { .mfb 
012000002AC0     14A0		      mov     r43 = 1
000008000000     14A1		      nop.f   0
00800000E000     14A2		      br.sptk.few L$28 ;;
			   }
	         14B0	L$27:												   // 000563
			   { .mii 
012000100A00     14B0		      add     r40 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
010802C90D40     14B1		      adds    r53 = 72, r44
01200000C640     14B2		      mov     r25 = 6
			   }
			   { .mii 
010800000AC0     14C0		      mov     r43 = r0									   // 000561
0000B0000D80     14C1		      sxt4    r54 = r0									   // 000563
0000B2200CC0     14C2		      sxt4    r51 = TYPE_DESC ;;		// r51 = r34
			   }
			   { .mii 
0080C2800A00     14D0		      ld8     r40 = STR$FAILURE			// r40 = [r40]
0000B3500D00     14D1		      sxt4    r52 = r53
0119F80FED40     14D2		      adds    r53 = -1, r0 ;;
			   }
			   { .mii 
000008000000     14E0		      nop.m   0
0000B2800DC0     14E1		      sxt4    r55 = r40
0000B0000C80     14E2		      sxt4    r50 = r0
			   }
			   { .mfb 
000008000000     14F0		      nop.m   0
000008000000     14F1		      nop.f   0
00A000001000     14F2		      br.call.sptk.many br0 = XST$EQL
			   }
			   { .mii 
010803100040     1500		      mov     r1 = r49
00A030800000     1501		      tbit.z  pr0, pr6 = r8, 0 ;;
010800002AC6     1502	       (pr6)  adds    r43 = 1, r0 ;;								   // 000561
			   }
	         1510	L$28:
			   { .mii 
010802D00A40     1510		      mov     r41 = r45									   // 000565
012000006B80     1511		      mov     r46 = 3
00A03AB00000     1512		      tbit.z  pr0, pr7 = r43, 0 ;;							   // 000558
			   }

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 45
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			   { .mmi 
010802E00A47     1520	       (pr7)  mov     r41 = r46 ;;								   // 000565
010802900800     1521		      mov     VALUE = r41			// r32 = r41
000008000000     1522		      nop.i   0 ;;
			   }
	         1530	L$5:												   // 000474
			   { .mib 
000008000000     1530		      nop.m   0
0000B2000200     1531		      sxt4    r8 = VALUE			// r8 = r32				   // 000570
004000000000     1532		      nop.b   0
			   }
			   { .mii 
000008000000     1540		      nop.m   0
000154060000     1541		      mov.i   rspfs = r48
010800C20300     1542		      adds    r12 = 16, r12 ;;
			   }
			   { .mib 
000008000000     1550		      nop.m   0
000E0015E000     1551		      mov     br0 = r47
000108001100     1552		      br.ret.sptk.many br0 ;;
			   }
				      .endp   FIND_FIELD

Routine Size: 1488 bytes,    Routine Base: $CODE$ + 0F90

				       .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
				      .lcomm  CODE, 4, 4
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$STRING1, 244, 16
				      .lcomm  IOB$, 244, 16
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$STRING1, 244, 16
				      .lcomm  $STR$STRING, 244, 16
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$STRING1, 8, 8
				      .lcomm  $IOB$OUTPUT, 12, 16
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING3, 8, 8
				      .lcomm  $IOB$FILE_SPEC, 8, 8
				      .lcomm  $IOB$FILE_SPEC, 8, 8
				      .lcomm  $IOB$PROMPT, 8, 8
				      .lcomm  $IOB$DEFAULT, 8, 8
				      .lcomm  $IOB$PROMPT, 8, 8
				      .lcomm  $PMSG$STRING, 8, 8
				      .lcomm  $IOB$DEFAULT, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING4, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING0, 8, 8

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 46
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING, 8, 8
				      .lcomm  $STR$STRING, 8, 8
				      .lcomm  $STR$STRING1, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $STR$STRING1, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  P.AAA, 9, 16
				      .lcomm  fill$$1, 3, 4
				      .lcomm  P.AAB, 10, 16
				      .lcomm  fill$$2, 2, 2
				      .lcomm  P.AAC, 43, 16
				      .lcomm  fill$$3, 1, 1
				      .lcomm  P.AAD, 4, 4
				      .lcomm  P.AAE, 20, 16
				      .lcomm  P.AAF, 26, 16
				      .lcomm  fill$$4, 2, 2
				      .lcomm  P.AAG, 4, 4
				      .lcomm  P.AAK, 7, 8
				      .lcomm  fill$$5, 1, 1
				      .lcomm  P.AAL, 18, 16
				      .lcomm  fill$$6, 2, 2
				      .lcomm  P.AAM, 12, 16
				      .lcomm  P.AAQ, 20, 16
				      .lcomm  P.AAT, 9, 16
				      .lcomm  fill$$7, 3, 4
				      .lcomm  P.AAU, 2, 2
				      .lcomm  fill$$8, 2, 2
				      .lcomm  P.AAX, 28, 16
				      .lcomm  P.ABA, 15, 16
				      .lcomm  fill$$9, 1, 1
				      .lcomm  P.ABB, 34, 16
				      .lcomm  fill$$10, 2, 2
				      .lcomm  P.ABG, 7, 8
				      .lcomm  fill$$11, 1, 1
				      .lcomm  P.ABK, 28, 16
				      .lcomm  P.ABL, 7, 8
				      .lcomm  fill$$12, 1, 1
				      .lcomm  P.ABO, 30, 16
				      .lcomm  fill$$13, 2, 2
				      .lcomm  P.ABP, 29, 16
				      .lcomm  fill$$14, 3, 4
				      .lcomm  P.ABR, 4, 4
				      .lcomm  P.ABU, 18, 16
				      .lcomm  fill$$15, 2, 2

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 47
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .lcomm  P.ABW, 30, 16
				      .lcomm  fill$$16, 2, 2
				      .lcomm  P.ABY, 3, 4
				      .lcomm  fill$$17, 1, 1
				      .lcomm  P.ABZ, 2, 2
				      .lcomm  fill$$18, 2, 2
				      .lcomm  P.ACA, 2, 2
				      .lcomm  fill$$19, 2, 2
				      .lcomm  P.ACB, 3, 4
				      .lcomm  fill$$20, 1, 1
				      .lcomm  P.ACC, 6, 8
				      .lcomm  fill$$21, 2, 2
				      .lcomm  P.ACD, 5, 8
				      .lcomm  fill$$22, 3, 4
				      .lcomm  P.ACE, 1, 1
				      .lcomm  fill$$23, 3, 4
				      .lcomm  P.ACF, 1, 1
				      .lcomm  fill$$24, 3, 4
				      .lcomm  P.ACG, 3, 4
				      .lcomm  fill$$25, 1, 1
				      .lcomm  P.ACH, 9, 16
				      .lcomm  fill$$26, 3, 4
				      .lcomm  P.ACI, 10, 16
				      .lcomm  fill$$27, 2, 2
				      .lcomm  P.ACJ, 6, 8
				      .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
			$IOB$FILE_SPEC:
    0009         03F8		      data2   0x9 // data2 9
      0E         03FA		      data1   0xE // data1 14
      01         03FB		      data1   0x1 // data1 1
00000000         03FC		      data4   P.AAA
			$IOB$FILE_SPEC:
    000A         0400		      data2   0xA // data2 10
      0E         0402		      data1   0xE // data1 14
      01         0403		      data1   0x1 // data1 1
00000000         0404		      data4   P.AAB
			$IOB$PROMPT:
    002B         0408		      data2   0x2B // data2 43
      0E         040A		      data1   0xE // data1 14
      01         040B		      data1   0x1 // data1 1
00000000         040C		      data4   P.AAC
			$IOB$DEFAULT:
    0004         0410		      data2   0x4 // data2 4
      0E         0412		      data1   0xE // data1 14
      01         0413		      data1   0x1 // data1 1
00000000         0414		      data4   P.AAD
			$IOB$PROMPT:
    0014         0418		      data2   0x14 // data2 20
      0E         041A		      data1   0xE // data1 14
      01         041B		      data1   0x1 // data1 1
00000000         041C		      data4   P.AAE
			$PMSG$STRING:
    001A         0420		      data2   0x1A // data2 26
      0E         0422		      data1   0xE // data1 14
      01         0423		      data1   0x1 // data1 1
00000000         0424		      data4   P.AAF
			$IOB$DEFAULT:

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 48
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

    0004         0428		      data2   0x4 // data2 4
      0E         042A		      data1   0xE // data1 14
      01         042B		      data1   0x1 // data1 1
00000000         042C		      data4   P.AAG
			$STR$STRING0:
    0007         0430		      data2   0x7 // data2 7
      0E         0432		      data1   0xE // data1 14
      01         0433		      data1   0x1 // data1 1
00000000         0434		      data4   P.AAK
			$STR$STRING2:
    0012         0438		      data2   0x12 // data2 18
      0E         043A		      data1   0xE // data1 14
      01         043B		      data1   0x1 // data1 1
00000000         043C		      data4   P.AAL
			$STR$STRING4:
    000C         0440		      data2   0xC // data2 12
      0E         0442		      data1   0xE // data1 14
      01         0443		      data1   0x1 // data1 1
00000000         0444		      data4   P.AAM
			$IOB$OUTPUT:
    0014         0448		      data2   0x14 // data2 20
      0E         044A		      data1   0xE // data1 14
      01         044B		      data1   0x1 // data1 1
00000000         044C		      data4   P.AAQ
			$STR$STRING0:
    0009         0450		      data2   0x9 // data2 9
      0E         0452		      data1   0xE // data1 14
      01         0453		      data1   0x1 // data1 1
00000000         0454		      data4   P.AAT
			$STR$STRING2:
    0002         0458		      data2   0x2 // data2 2
      0E         045A		      data1   0xE // data1 14
      01         045B		      data1   0x1 // data1 1
00000000         045C		      data4   P.AAU
			$IOB$OUTPUT:
    001C         0460		      data2   0x1C // data2 28
      0E         0462		      data1   0xE // data1 14
      01         0463		      data1   0x1 // data1 1
00000000         0464		      data4   P.AAX
			$STR$STRING0:
    000F         0468		      data2   0xF // data2 15
      0E         046A		      data1   0xE // data1 14
      01         046B		      data1   0x1 // data1 1
00000000         046C		      data4   P.ABA
			$STR$STRING2:
    0022         0470		      data2   0x22 // data2 34
      0E         0472		      data1   0xE // data1 14
      01         0473		      data1   0x1 // data1 1
00000000         0474		      data4   P.ABB
			$IOB$OUTPUT:
    0000         0478		      data2   0x0 // data2 0
      0E         047A		      data1   0xE // data1 14
      01         047B		      data1   0x1 // data1 1
00000000         047C		      data4   P.ABE
			$STR$STRING0:
    0007         0480		      data2   0x7 // data2 7
      0E         0482		      data1   0xE // data1 14

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 49
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

      01         0483		      data1   0x1 // data1 1
00000000         0484		      data4   P.ABG
			$STR$STRING0:
    001C         0488		      data2   0x1C // data2 28
      0E         048A		      data1   0xE // data1 14
      01         048B		      data1   0x1 // data1 1
00000000         048C		      data4   P.ABK
			$STR$STRING2:
    0007         0490		      data2   0x7 // data2 7
      0E         0492		      data1   0xE // data1 14
      01         0493		      data1   0x1 // data1 1
00000000         0494		      data4   P.ABL
			$STR$STRING:
    001E         0498		      data2   0x1E // data2 30
      0E         049A		      data1   0xE // data1 14
      01         049B		      data1   0x1 // data1 1
00000000         049C		      data4   P.ABO
			$STR$STRING:
    001D         04A0		      data2   0x1D // data2 29
      0E         04A2		      data1   0xE // data1 14
      01         04A3		      data1   0x1 // data1 1
00000000         04A4		      data4   P.ABP
			$STR$STRING1:
    0004         04A8		      data2   0x4 // data2 4
      0E         04AA		      data1   0xE // data1 14
      01         04AB		      data1   0x1 // data1 1
00000000         04AC		      data4   P.ABR
			$IOB$OUTPUT:
    0000         04B0		      data2   0x0 // data2 0
      0E         04B2		      data1   0xE // data1 14
      01         04B3		      data1   0x1 // data1 1
00000000         04B4		      data4   P.ABT
			$IOB$OUTPUT:
    0012         04B8		      data2   0x12 // data2 18
      0E         04BA		      data1   0xE // data1 14
      01         04BB		      data1   0x1 // data1 1
00000000         04BC		      data4   P.ABU
			$STR$STRING1:
    001E         04C0		      data2   0x1E // data2 30
      0E         04C2		      data1   0xE // data1 14
      01         04C3		      data1   0x1 // data1 1
00000000         04C4		      data4   P.ABW
			$STR$PATTERN:
    0003         04C8		      data2   0x3 // data2 3
      0E         04CA		      data1   0xE // data1 14
      01         04CB		      data1   0x1 // data1 1
00000000         04CC		      data4   P.ABY
			$STR$PATTERN:
    0002         04D0		      data2   0x2 // data2 2
      0E         04D2		      data1   0xE // data1 14
      01         04D3		      data1   0x1 // data1 1
00000000         04D4		      data4   P.ABZ
			$STR$PATTERN:
    0002         04D8		      data2   0x2 // data2 2
      0E         04DA		      data1   0xE // data1 14
      01         04DB		      data1   0x1 // data1 1
00000000         04DC		      data4   P.ACA

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 50
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

			$STR$PATTERN:
    0003         04E0		      data2   0x3 // data2 3
      0E         04E2		      data1   0xE // data1 14
      01         04E3		      data1   0x1 // data1 1
00000000         04E4		      data4   P.ACB
			$STR$STRING2:
    0006         04E8		      data2   0x6 // data2 6
      0E         04EA		      data1   0xE // data1 14
      01         04EB		      data1   0x1 // data1 1
00000000         04EC		      data4   P.ACC
			$STR$STRING2:
    0005         04F0		      data2   0x5 // data2 5
      0E         04F2		      data1   0xE // data1 14
      01         04F3		      data1   0x1 // data1 1
00000000         04F4		      data4   P.ACD
			$STR$PATTERN:
    0001         04F8		      data2   0x1 // data2 1
      0E         04FA		      data1   0xE // data1 14
      01         04FB		      data1   0x1 // data1 1
00000000         04FC		      data4   P.ACE
			$STR$PATTERN:
    0001         0500		      data2   0x1 // data2 1
      0E         0502		      data1   0xE // data1 14
      01         0503		      data1   0x1 // data1 1
00000000         0504		      data4   P.ACF
			$STR$PATTERN:
    0003         0508		      data2   0x3 // data2 3
      0E         050A		      data1   0xE // data1 14
      01         050B		      data1   0x1 // data1 1
00000000         050C		      data4   P.ACG
			$STR$STRING2:
    0009         0510		      data2   0x9 // data2 9
      0E         0512		      data1   0xE // data1 14
      01         0513		      data1   0x1 // data1 1
00000000         0514		      data4   P.ACH
			$STR$STRING2:
    000A         0518		      data2   0xA // data2 10
      0E         051A		      data1   0xE // data1 14
      01         051B		      data1   0x1 // data1 1
00000000         051C		      data4   P.ACI
			$STR$STRING2:
    0006         0520		      data2   0x6 // data2 6
      0E         0522		      data1   0xE // data1 14
      01         0523		      data1   0x1 // data1 1
00000000         0524		      data4   P.ACJ
				      .psect $PLIT$, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC
			P.AAA:
24535953         0000		      string  "SYS$INPUT"
55504E49         0004
      54         0008

			P.AAB:
24535953         000C		      string  "SYS$OUTPUT"
5054554F         0010
    5455         0014

			P.AAC:

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 51
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

494C420A         0018		      string  "\X0ABLISS REQUIRE file name (default = .REQ)? "
52205353         001C
49555145         0020
66204552         0024
20656C69         0028
656D616E         002C
65642820         0030
6C756166         0034
203D2074         0038
5145522E         003C
  203F29         0040

			P.AAD:
5145522E         0044		      data4   0x5145522E // data4 1363497518
			P.AAE:
6D614E0A         0048		      string  "\X0AName of structure? "
666F2065         004C
72747320         0050
75746375         0054
203F6572         0058

			P.AAF:
75727453         005C		      string  "Structure name not found. "
72757463         0060
616E2065         0064
6E20656D         0068
6620746F         006C
646E756F         0070
    202E         0074

			P.AAG:
494C422E         0078		      data4   0x494C422E // data4 1229734446
			P.AAK:
55444F4D         007C		      string  "MODULE "
  20454C         0080

			P.AAL:
4C422520         0084		      string  " %BLISS36( (ENTRY("
33535349         0088
28202836         008C
52544E45         0090
    2859         0094

			P.AAM:
29202929         0098		      string  ")) ) = BEGIN"
42203D20         009C
4E494745         00A0

			P.AAQ:
5242494C         00A4		      string  "LIBRARY 'BLI:XPORT';"
20595241         00A8
494C4227         00AC
4F50583A         00B0
3B275452         00B4

			P.AAT:
55514552         00B8		      string  "REQUIRE '"

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 52
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

20455249         00BC
      27         00C0

			P.AAU:
    3B27         00C4		      data2   0x3B27 // data2 15143
			P.AAX:
494C4225         00C8		      string  "%BLISS32( PSECT OWN=$OWN$; )"
32335353         00CC
53502028         00D0
20544345         00D4
3D4E574F         00D8
4E574F24         00DC
29203B24         00E0

			P.ABA:
424F4C47         00E4		      string  "GLOBAL ROUTINE "
52204C41         00E8
4954554F         00EC
  20454E         00F0

			P.ABB:
6E6F6328         00F4		      string  "(control_block) :  NOVALUE = BEGIN"
6C6F7274         00F8
6F6C625F         00FC
20296B63         0100
4E20203A         0104
4C41564F         0108
3D204555         010C
47454220         0110
    4E49         0114

			P.ABG:
20646E45         0118		      string  "End of "
  20666F         011C

			P.ABK:
4F505824         0120		      string  "$XPO_DUMP_FIELD( FIELD_NAME="
4D55445F         0124
49465F50         0128
28444C45         012C
45494620         0130
4E5F444C         0134
3D454D41         0138

			P.ABL:
5954202C         013C		      string  ", TYPE="
  3D4550         0140

			P.ABO:
4156202C         0144		      string  ", VALUE=.BLOCK[.control_block,"
3D45554C         0148
4F4C422E         014C
2E5B4B43         0150
746E6F63         0154
5F6C6F72         0158
636F6C62         015C
    2C6B         0160

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 53
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2


			P.ABP:
4156202C         0164		      string  ", VALUE=BLOCK[.control_block,"
3D45554C         0168
434F4C42         016C
632E5B4B         0170
72746E6F         0174
625F6C6F         0178
6B636F6C         017C
      2C         0180

			P.ABR:
3B29205D         0184		      data4   0x3B29205D // data4 992551005
			P.ABU:
3B444E45         0188		      string  "END;  END  ELUDOM "
4E452020         018C
45202044         0190
4F44554C         0194
    204D         0198

			P.ABW:
494C422E         019C		      string  ".BLI display module generated "
73696420         01A0
79616C70         01A4
646F6D20         01A8
20656C75         01AC
656E6567         01B0
65746172         01B4
    2064         01B8

			P.ABY:
  200921         01BC		      string  "!\X09 "

			P.ABZ:
    2009         01C0		      data2   0x2009 // data2 8201
			P.ACA:
    2009         01C4		      data2   0x2009 // data2 8201
			P.ACB:
  3D2009         01C8		      string  "\X09 ="

			P.ACC:
45494624         01CC		      string  "$FIELD"
    444C         01D0

			P.ACD:
4C454946         01D4		      string  "FIELD"
      44         01D8

			P.ACE:
      5B         01DC		      data1   0x5B // data1 91
			P.ACF:
      24         01E0		      data1   0x24 // data1 36
			P.ACG:
  5D2820         01E4		      string  " (]"

			P.ACH:
5F425553         01E8		      string  "SUB_BLOCK"

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 54
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

434F4C42         01EC
      4B         01F0

			P.ACI:
43534544         01F4		      string  "DESCRIPTOR"
54504952         01F8
    524F         01FC

			P.ACJ:
49525453         0200		      string  "STRING"
    474E         0204

				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$OPEN, @function 
				      .global  XPO$OPEN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$OPEN, @function 
				      .global  XPO$OPEN
				      .section .data
				      .type   XPO$IO_FAILURE, @function 
				      .global  XPO$IO_FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XST$FREE_TEMP, @function 
				      .global  XST$FREE_TEMP
				      .section .data
				      .type   XPO$GET, @function 
				      .global  XPO$GET
				      .section .data
				      .type   XPO$OPEN, @function 
				      .global  XPO$OPEN
				      .section .data
				      .type   XST$FREE_TEMP, @function 
				      .global  XST$FREE_TEMP
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$GET, @function 
				      .global  XPO$GET
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$COPY, @function 
				      .global  XST$COPY
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 55
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$GET, @function 
				      .global  XPO$GET
				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$COPY, @function 
				      .global  XST$COPY
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$OPEN, @function 
				      .global  XPO$OPEN
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 56
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$GET, @function 
				      .global  XPO$GET
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XST$COPY, @function 
				      .global  XST$COPY
				      .section .data
				      .type   XST$APPEND, @function 
				      .global  XST$APPEND
				      .section .data
				      .type   XST$APPEND, @function 
				      .global  XST$APPEND
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XST$APPEND, @function 
				      .global  XST$APPEND

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 57
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$CLOSE, @function 
				      .global  XPO$CLOSE
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$EQL, @function 
				      .global  XST$EQL
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE

XDUMP                           Machine Code Listing             4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 58
X00.07                          FIND_FIELD                      19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$EQL, @function 
				      .global  XST$EQL
				      .section .data
				      .type   XST$EQL, @function 
				      .global  XST$EQL
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$EQL, @function 
				      .global  XST$EQL
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$EQL, @function 
				      .global  XST$EQL
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$EQL, @function 
				      .global  XST$EQL


;				Library Statistics
;
;					     -------- Symbols --------	    Pages
;	File				     Total    Loaded   Percent      Mapped

                                Source Listing                   4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 59
                                                                19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

;
;  DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14
;					       590       159        26       270




                                Source Listing                   4-FEB-2004 11:01:44  BLISS-32I T1.1-053                Page 60
                                Source Listing                  19-MAR-2002 10:27:59  [LASTOVICA.XPORT.VMSGEN]XDUMP.BLI;2

COMMAND LINE:

BLISSXDUMP/LIST/DEBUG
