<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">                                XPO$FAILURE - Default Failure A  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    0	      1 MODULE XFAIL (	IDENT = 'V1.0-14'		%TITLE 'XPO$FAILURE - Default Failure Action Routine'
    0	      2 		%BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) )
    0	      3 		%BLISS36( ,ENTRY( XPO$FAILURE, XPO$IO_FAILURE, XPO$PS_FAILURE, XPO$GM_FAILURE,
P   0	      4 					XPO$FM_FAILURE, XPO$PM_FAILURE ),OTS='' )
    0	      5 		) =
    0	      6 BEGIN
    1	      7 
    1	      8 !
    1	      9 !			  COPYRIGHT (c) 1981 BY
    1	     10 !	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
    1	     11 !
    1	     12 ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
    1	     13 ! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
    1	     14 ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
    1	     15 ! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
    1	     16 ! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
    1	     17 ! TRANSFERRED.
    1	     18 !
    1	     19 ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
    1	     20 ! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
    1	     21 ! CORPORATION.
    1	     22 !
    1	     23 ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
    1	     24 ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
    1	     25 !
    1	     26 
    1	     27 !++
    1	     28 !
    1	     29 ! FACILITY:  BLISS Library
    1	     30 !
    1	     31 ! ABSTRACT:
    1	     32 !
    1	     33 !	This module is the default XPORT failure action routine.
    1	     34 !
    1	     35 ! ENVIRONMENT:  User Mode - system-independent
    1	     36 !
    1	     37 ! AUTHOR:  Ward Clark,	CREATION DATE:  11 July 1978
    1	     38 !
    1	     39 !--

XFAIL                           XPO$FAILURE - Default Failure A  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 2
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	     41 !
    1	     42 ! TABLE OF CONTENTS:
    1	     43 !
    1	     44 
    1	     45 FORWARD ROUTINE
    1	     46     XPO$FAILURE;					! Failure action routine dispatcher
    1	     47 
    1	     48 %IF %BLISS(BLISS16) %THEN
U   1	     49 EXTERNAL ROUTINE
U   1	     50 %ELSE
    1	     51 FORWARD ROUTINE
    1	     52 %FI
    1	     53     XPO$IO_FAILURE,					! XPORT I/O failure action routine
    1	     54     XPO$PS_FAILURE,					! $XPO_PARSE_SPEC failure action routine
    1	     55     XPO$GM_FAILURE,					! $XPO_GET_MEM failure action routine
    1	     56     XPO$FM_FAILURE,					! $XPO_FREE_MEM failure action routine
    1	     57     XPO$PM_FAILURE;					! $XPO_PUT_MSG failure action routine
    1	     58 
    1	     59 !
    1	     60 ! INCLUDE FILES:
    1	     61 !
    1	     62 
    1	     63 LIBRARY  'XPORT' ;					! Public XPORT control block and macro definitions
    1	     65 LIBRARY  'XPOSYS' ;					! Internal XPORT macro definitions
    1	     67 
    1	     68     $XPO_SYS_TEST( $ALL )
		; %PRINT:		This module was compiled for any VAX-11 system
		; %PRINT:		XPORT V1.3-51    XPOSYS V1.3-16    XPO$K_VERSION = 1    XPO$K_LEVEL = 3
    1	     69 
    1	     70 !
    1	     71 ! MACROS:
    1	     72 !
    1	     73 
    1	     74 !
    1	     75 ! EQUATED SYMBOLS:
    1	     76 !
    1	     77 
    1	     78 !
    1	     79 ! PSECT DECLARATIONS:
    1	     80 !
    1	     81 
    1	     82     $XPO_PSECTS						! Declare XPORT PSECT names and attributes
    1	     83 
    1	     84 !
    1	     85 ! OWN STORAGE:
    1	     86 !
    1	     87 
    1	     88 !   See each function-specific failure action routine.
    1	     89 
    1	     90 !
    1	     91 ! EXTERNAL REFERENCES:
    1	     92 !
    1	     93 
    1	     94 !   See each function-specific failure action routine.

XFAIL                           XPO$FAILURE - Default Failure A  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 3
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	     96 GLOBAL ROUTINE XPO$FAILURE( function_code, primary_code, secondary_code, action_argument ) =
    1	     97 
    1	     98 !++
    1	     99 !
    1	    100 ! FUNCTIONAL DESCRIPTION:
    1	    101 !
    1	    102 !	This routine dispatches a failure action routine call to the
    1	    103 !	appropriate processing routine for the function which failed.
    1	    104 !
    1	    105 ! FORMAL PARAMETERS:
    1	    106 !
    1	    107 !	function_code - XPORT failure action routine function code
    1	    108 !	primary_code - primary failure completion code
    1	    109 !	secondary_code - secondary failure competion code
    1	    110 !	action_argument - function-specific action routine argument
    1	    111 !
    1	    112 ! IMPLICIT INPUTS:
    1	    113 !
    1	    114 !	None
    1	    115 !
    1	    116 ! IMPLICIT OUTPUTS:
    1	    117 !
    1	    118 !	None
    1	    119 !
    1	    120 ! ROUTINE VALUE:
    1	    121 !
    1	    122 !	.primary_code - primary completion code passed by caller
    1	    123 !
    1	    124 ! SIDE EFFECTS:
    1	    125 !
    1	    126 !	This routine returns to the caller if the completion code
    1	    127 !	severity is SUCCESS or WARNING.  If the severity is ERROR or
    1	    128 !	FATAL, this routine terminates program execution.
    1	    129 !
    1	    130 !--
    1	    131 
    1	    132     BEGIN
    2	    133 
    2	    134     LOCAL
    2	    135 	action_routine;
    2	    136 
    2	    137 !
    2	    138 ! Select the appropriate failure processing routine.
    2	    139 !
    2	    140 
    2	    141     action_routine = ( CASE .function_code FROM 1 to XPO$K_PUT_MSG OF
    3	    142 				SET
    3	    143 				[ XPO$K_IO ] :		XPO$IO_FAILURE;
    3	    144 				[ XPO$K_PARSE ] :	XPO$PS_FAILURE;
    3	    145 				[ XPO$K_GET_MEM ] :	XPO$GM_FAILURE;
    3	    146 				[ XPO$K_FREE_MEM ] :	XPO$FM_FAILURE;
    3	    147 				[ XPO$K_PUT_MSG ] :	XPO$PM_FAILURE;
    3	    148 				TES );
    2	    149 
    2	    150 !
    2	    151 ! Call the action routine.
    2	    152 !

XFAIL                           XPO$FAILURE - Default Failure A  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 4
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    2	    153 
    2	    154     (.action_routine)( .function_code, .primary_code, .secondary_code, .action_argument );
    2	    155 
    2	    156 !
    2	    157 ! Terminate program execution or return to the caller.
    2	    158 !
    2	    159 
    2	    160     IF .primary_code OR					! If the completion code is a success code
    2	    161 	.primary_code&lt;0,3,0&gt; EQL XPO$_WARNING		! or has a WARNING severity,
    2	    162     THEN						!
    2	    163 	RETURN .primary_code				! return the input completion code to the caller.
    2	    164     ELSE
    2	    165 	$XPO_TERMINATE( CODE = XPO$_PREV_ERROR )	! Otherwise, terminate program execution.
    3	    166 
    3	    167     END;
    1	    168 
    1	    169 $XPO_MODULE( XFAIL1 )

XFAIL                           XPO$IO_FAILURE - I/O Failure Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 5
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    171 %TITLE 'XPO$IO_FAILURE - I/O Failure Action Routine'
    1	    172 
    1	    173 GLOBAL ROUTINE XPO$IO_FAILURE( function_code, primary_code, secondary_code, iob ) =
    1	    174 
    1	    175 !++
    1	    176 !
    1	    177 ! FUNCTIONAL DESCRIPTION:
    1	    178 !
    1	    179 !	This routine sends the user a message sequence similar to the following:
    1	    180 !
    1	    181 !		? error opening 'file-spec' as input
    1	    182 !		-    primary completion code message
    1	    183 !		-    secondary completion code message
    1	    184 !
    1	    185 ! FORMAL PARAMETERS:
    1	    186 !
    1	    187 !	function_code - failure action routine function code (XPO$K_IO)
    1	    188 !	primary_code - primary I/O failure completion code
    1	    189 !	secondary_code - secondary failure competion code
    1	    190 !	iob - address of the associated IOB
    1	    191 !
    1	    192 ! IMPLICIT INPUTS:
    1	    193 !
    1	    194 !	None
    1	    195 !
    1	    196 ! IMPLICIT OUTPUTS:
    1	    197 !
    1	    198 !	None
    1	    199 !
    1	    200 ! COMPLETION CODES:
    1	    201 !
    1	    202 !	.primary_code - primary completion code passed by caller
    1	    203 !
    1	    204 ! SIDE EFFECTS:
    1	    205 !
    1	    206 !	None
    1	    207 !
    1	    208 !--
    1	    209 
    1	    210     BEGIN
    2	    211 
    2	    212     MAP
    2	    213 	iob :  REF $XPO_IOB();
    2	    214 
    2	    215     BIND
    2	    216 	file_spec = .iob[IOB$A_FILE_SPEC] :  $STR_DESCRIPTOR(),
    2	    217 	resultant = iob[IOB$T_RESULTANT] :  $STR_DESCRIPTOR();
    2	    218 
    2	    219     OWN
    2	    220 	initial_text :  $STR_DESCRIPTOR( STRING = 'error ' ),
    2	    221 	open_text :  $STR_DESCRIPTOR( STRING = 'opening ' ),
    2	    222 	close_text :  $STR_DESCRIPTOR( STRING = 'closing ' ),
    2	    223 	delete_text :  $STR_DESCRIPTOR( STRING = 'deleting ' ),
    2	    224 	rename_text :  $STR_DESCRIPTOR( STRING = 'renaming ' ),
    2	    225 	backup_text :  $STR_DESCRIPTOR( STRING = 'backing up ' ),
    2	    226 	put_text :  $STR_DESCRIPTOR( STRING = 'writing to ' ),
    2	    227 	get_text :  $STR_DESCRIPTOR( STRING = 'reading from ' ),

XFAIL                           XPO$IO_FAILURE - I/O Failure Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 6
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    2	    228 	auto_open_text :  $STR_DESCRIPTOR( STRING = 'auto-opening ' ),
    2	    229 	auto_close_text :  $STR_DESCRIPTOR( STRING = 'auto_closing ' ),
    2	    230 	bad_func_text :  $STR_DESCRIPTOR( STRING = 'invalid operation on ' ),
    2	    231 	input_text :  $STR_DESCRIPTOR( STRING = ' for input' ),
    2	    232 	and_output_text :  $STR_DESCRIPTOR( STRING = ' and output' ),
    2	    233 	output_text :  $STR_DESCRIPTOR( STRING = ' for output' ),
    2	    234 	to_text :  $STR_DESCRIPTOR( STRING = ' to ' );
    2	    235 
    2	    236     EXTERNAL ROUTINE
    2	    237 	XST$INIT_MSG :  NOVALUE,			! Failure message initialization routine
    2	    238 	XST$STRING :  NOVALUE,				! Append string to failure message routine
    2	    239 	XST$QUOTED :  NOVALUE;				! Append quoted string to failure message routine
    2	    240 
    2	    241     EXTERNAL
    2	    242 	XST$MESSAGE;					! Failure message string descriptor
    2	    243 
    2	    244 !
    2	    245 ! Don't issue a message for SUCCESS or WARNING conditions.
    2	    246 !
    2	    247 
    2	    248     IF .primary_code OR					! If this is a SUCCESS or WARNING condition,
    2	    249 	.primary_code&lt;0,3,0&gt; EQL XPO$_WARNING		!
    2	    250     THEN						!
    2	    251 	RETURN .primary_code;				! return without doing anything.
    2	    252 
    2	    253 !
    2	    254 ! Create the initial function-specific message.
    2	    255 !
    2	    256 
    2	    257     IF .iob[IOB$B_FUNCTION] LEQ IOB$K_PUT		! All messages except "invalid function" start with "error".
    2	    258     THEN
    2	    259 	XST$INIT_MSG( initial_text );
    2	    260 
    2	    261     CASE .iob[IOB$B_FUNCTION]				! Use the XPORT function code to select
    2	    262 	FROM IOB$K_OPEN TO IOB$K_PUT OF			! the next part of the message.
    2	    263 	SET
    2	    264 	[ OUTRANGE ] :  XST$INIT_MSG( bad_func_text );
    2	    265 	[ IOB$K_OPEN ] :  XST$STRING( open_text );
    2	    266 	[ IOB$K_CLOSE ] :  XST$STRING( close_text );
    2	    267 	[ IOB$K_DELETE ] :  XST$STRING( delete_text );
    2	    268 	[ IOB$K_RENAME ] :  XST$STRING( rename_text );
    2	    269 	[ IOB$K_BACKUP ] :  XST$STRING( backup_text );
    2	    270 	[ IOB$K_PUT ] :  XST$STRING( put_text );
    2	    271 	[ IOB$K_GET ] :
    2	    272 	    IF .iob[IOB$V_AUTO_CONC]			! If input switching is in progress,
    2	    273 	    THEN					! special open and close text will be needed.
    2	    274 		IF .iob[IOB$V_OPEN]
    2	    275 		THEN
    2	    276 		    XST$STRING( auto_close_text )
    2	    277 		ELSE
    2	    278 		    XST$STRING( auto_open_text )
    2	    279 	    ELSE
    2	    280 		XST$STRING( get_text );			! Otherwise, use the normal input failure text.
    2	    281 	TES;
    2	    282 
    2	    283     IF .resultant[STR$H_LENGTH] NEQ 0			! Put the best file name into the message:
    2	    284     THEN						!

XFAIL                           XPO$IO_FAILURE - I/O Failure Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 7
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    2	    285 	XST$QUOTED( resultant )				!    resultant file-spec (if one exists)
    2	    286     ELSE						!
    2	    287 	XST$QUOTED( file_spec );			!    user file-spec
    2	    288 
    2	    289     SELECTONE .iob[IOB$B_FUNCTION] OF
    2	    290 	SET
    2	    291 	[ IOB$K_OPEN, IOB$K_CLOSE ] :			! Special OPEN/CLOSE message suffix:
    2	    292 	    IF .iob[IOB$V_INPUT]			!    Indicate whether this is an
    2	    293 	    THEN					!    input or an output file.
    2	    294 		BEGIN
    3	    295 		XST$STRING( input_text );
    3	    296 		IF .iob[IOB$V_OUTPUT]
    3	    297 		THEN
    3	    298 		    XST$STRING( and_output_text );
    3	    299 		END
    3	    300 	    ELSE
    2	    301 		XST$STRING( output_text );
    2	    302 
    2	    303 	[ IOB$K_RENAME ] :				! Special RENAME message suffix:
    2	    304 	    BEGIN					!
    3	    305 	    BIND					!
    3	    306 		new_iob = .iob[IOB$A_ASSOC_IOB] :	!
    3	    307 					$XPO_IOB(),	!
    3	    308 		new_result = new_iob[IOB$T_RESULTANT] :	!
    3	    309 				$STR_DESCRIPTOR();	!
    3	    310 							!
    3	    311 	    XST$STRING( to_text );			!
    3	    312 							!
    3	    313 	    IF .new_result[STR$H_LENGTH] NEQ 0		!
    3	    314 	    THEN					!
    3	    315 		XST$QUOTED( new_result )		!    Add the new resultant file-spec
    3	    316 	    ELSE					!
    3	    317 		XST$QUOTED(.new_iob[IOB$A_FILE_SPEC]);	!	or the new primary file-spec.
    3	    318 
    3	    319 !
    3	    320 ! Send a multi-line failure message to the user.
    3	    321 !
    3	    322 	    IF .iob[IOB$G_COMP_CODE] EQL XPO$_BAD_NEW	! Test for special linked RENAME messages.
    3	    323 		AND .iob[IOB$G_2ND_CODE] EQL 0
    3	    324 	    THEN
    3	    325 		BEGIN
    4	    326 		$XPO_PUT_MSG( STRING = XST$MESSAGE,	! RENAME-specific message:
P   4	    327 		    CODE = XPO$_BAD_NEW,		!    "invalid new file"
P   4	    328 		    CODE = .new_iob[IOB$G_COMP_CODE],	!    primary new file completion code
P   4	    329 		    CODE = .new_iob[IOB$G_2ND_CODE],	!    secondary new file completion code
P   4	    330 		    FAILURE = 0 );
    4	    331 
    4	    332 		RETURN .primary_code			! Return after a special RENAME message.
    4	    333 		END;
    3	    334 	    END;
    2	    335 	TES;
    2	    336 
    2	    337     $XPO_PUT_MSG( STRING = XST$MESSAGE,			! Function-specific message
P   2	    338 		CODE = .iob[IOB$G_COMP_CODE],		! Primary completion code
P   2	    339 		CODE = .iob[IOB$G_2ND_CODE],		! Secondary competion code, if any
P   2	    340 		FAILURE = 0 );
    2	    341 

XFAIL                           XPO$IO_FAILURE - I/O Failure Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 8
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    2	    342 !
    2	    343 ! Return to the caller.
    2	    344 !
    2	    345 
    2	    346     RETURN .primary_code				! Return the original completion code to the caller.
    2	    347 
    2	    348     END;
    1	    349 
    1	    350 $XPO_MODULE( XFAIL2 )

XFAIL                           XPO$PS_FAILURE - Parse File-spe  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 9
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    352 %TITLE 'XPO$PS_FAILURE - Parse File-spec Action Routine'
    1	    353 
    1	    354 GLOBAL ROUTINE XPO$PS_FAILURE( function_code, primary_code, secondary_code, file_spec ) =
    1	    355 
    1	    356 !++
    1	    357 !
    1	    358 ! FUNCTIONAL DESCRIPTION:
    1	    359 !
    1	    360 !	This routine sends the user a message sequence similar to the following:
    1	    361 !
    1	    362 !		? error parsing 'file-spec'
    1	    363 !		-    primary completion code message
    1	    364 !		-    secondary completion code message
    1	    365 !
    1	    366 ! FORMAL PARAMETERS:
    1	    367 !
    1	    368 !	function_code - failure action routine function code (XPO$K_PARSE)
    1	    369 !	primary_code - primary $XPO_PARSE_SPEC failure completion code
    1	    370 !	secondary_code - secondary failure competion code
    1	    371 !	file_spec - address of file-spec string descriptor
    1	    372 !
    1	    373 ! IMPLICIT INPUTS:
    1	    374 !
    1	    375 !	None
    1	    376 !
    1	    377 ! IMPLICIT OUTPUTS:
    1	    378 !
    1	    379 !	None
    1	    380 !
    1	    381 ! COMPLETION CODES:
    1	    382 !
    1	    383 !	.primary_code - primary completion code passed by caller
    1	    384 !
    1	    385 ! SIDE EFFECTS:
    1	    386 !
    1	    387 !	None
    1	    388 !
    1	    389 !--
    1	    390 
    1	    391     BEGIN
    2	    392 
    2	    393     OWN
    2	    394 	initial_text :  $STR_DESCRIPTOR( STRING = 'error parsing ' );
    2	    395 
    2	    396     EXTERNAL ROUTINE
    2	    397 	XST$INIT_MSG :  NOVALUE,			! Failure message initialization routine
    2	    398 	XST$QUOTED :  NOVALUE;				! Append quoted string to failure message routine
    2	    399 
    2	    400     EXTERNAL
    2	    401 	XST$MESSAGE;					! Failure message string descriptor
    2	    402 
    2	    403 !
    2	    404 ! Create the initial function-specific message.
    2	    405 !
    2	    406 
    2	    407     XST$INIT_MSG( initial_text );
    2	    408     XST$QUOTED( .file_spec );

XFAIL                           XPO$PS_FAILURE - Parse File-spe  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 10
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    2	    409 
    2	    410 !
    2	    411 ! Send a multi-line failure message to the user.
    2	    412 !
    2	    413 
    2	    414     $XPO_PUT_MSG( STRING = XST$MESSAGE,			! Tell the user that $XPO_PARSE_SPEC failed
P   2	    415 		CODE = .primary_code,			! and what the failure was.
P   2	    416 		CODE = .secondary_code,
P   2	    417 		FAILURE = 0 );
    2	    418 
    2	    419 !
    2	    420 ! Return to the caller.
    2	    421 !
    2	    422 
    2	    423     RETURN .primary_code				! Return the original completion code to the caller.
    2	    424 
    2	    425     END;
    1	    426 
    1	    427 $XPO_MODULE( XFAIL3 )

XFAIL                           XPO$GM_FAILURE - Get Memory Act  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 11
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    429 %TITLE 'XPO$GM_FAILURE - Get Memory Action Routine'
    1	    430 
    1	    431 GLOBAL ROUTINE XPO$GM_FAILURE( function_code, primary_code, secondary_code, descriptor ) =
    1	    432 
    1	    433 !++
    1	    434 !
    1	    435 ! FUNCTIONAL DESCRIPTION:
    1	    436 !
    1	    437 !	This routine sends the user a message sequence similar to the following:
    1	    438 !
    1	    439 !		? dynamic memory allocation error
    1	    440 !		-    primary completion code message
    1	    441 !		-    secondary completion code message
    1	    442 !
    1	    443 ! FORMAL PARAMETERS:
    1	    444 !
    1	    445 !	function_code - XPORT failure action routine function code (ignored)
    1	    446 !	primary_code - primary $XPO_GET_MEM failure completion code
    1	    447 !	secondary_code - secondary failure competion code
    1	    448 !	descriptor - address of $XPO_GET_MEM request descriptor
    1	    449 !
    1	    450 ! IMPLICIT INPUTS:
    1	    451 !
    1	    452 !	None
    1	    453 !
    1	    454 ! IMPLICIT OUTPUTS:
    1	    455 !
    1	    456 !	None
    1	    457 !
    1	    458 ! COMPLETION CODES:
    1	    459 !
    1	    460 !	.primary_code - primary completion code passed by caller
    1	    461 !
    1	    462 ! SIDE EFFECTS:
    1	    463 !
    1	    464 !	None
    1	    465 !
    1	    466 !--
    1	    467 
    1	    468     BEGIN
    2	    469 
    2	    470     MAP
    2	    471 	descriptor :  REF $STR_DESCRIPTOR();		! Redefine the descriptor argument.
    2	    472 
    2	    473 !
    2	    474 ! Send a three-line error message to the user.
    2	    475 !
    2	    476 
    2	    477     $XPO_PUT_MSG( CODE = XPO$_GET_MEM,			! Tell the user that $XPO_GET_MEM failed
P   2	    478 		CODE = .primary_code,			! and what the failure was.
P   2	    479 		CODE = .secondary_code,
P   2	    480 		FAILURE = 0 );
    2	    481 
    2	    482     RETURN .primary_code				! Return the original completion code to the caller.
    2	    483 
    2	    484     END;
    1	    485 

XFAIL                           XPO$GM_FAILURE - Get Memory Act  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 12
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    486 $XPO_MODULE( XFAIL4 )

XFAIL                           XPO$FM_FAILURE - Free Memory Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 13
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    488 %TITLE 'XPO$FM_FAILURE - Free Memory Action Routine'
    1	    489 
    1	    490 GLOBAL ROUTINE XPO$FM_FAILURE( function_code, primary_code, secondary_code, descriptor ) =
    1	    491 
    1	    492 !++
    1	    493 !
    1	    494 ! FUNCTIONAL DESCRIPTION:
    1	    495 !
    1	    496 !	This routine sends the user a message sequence similar to the following:
    1	    497 !
    1	    498 !		? dynamic memory deallocation error
    1	    499 !		-    primary completion code message
    1	    500 !		-    secondary completion code message
    1	    501 !
    1	    502 ! FORMAL PARAMETERS:
    1	    503 !
    1	    504 !	function_code - XPORT failure action routine function code (ignored)
    1	    505 !	primary_code - primary $XPO_FREE_MEM failure completion code
    1	    506 !	secondary_code - secondary failure competion code
    1	    507 !	descriptor - address of $XPO_FREE_MEM request descriptor
    1	    508 !
    1	    509 ! IMPLICIT INPUTS:
    1	    510 !
    1	    511 !	None
    1	    512 !
    1	    513 ! IMPLICIT OUTPUTS:
    1	    514 !
    1	    515 !	None
    1	    516 !
    1	    517 ! COMPLETION CODES:
    1	    518 !
    1	    519 !	.primary_code - primary completion code passed by caller
    1	    520 !
    1	    521 ! SIDE EFFECTS:
    1	    522 !
    1	    523 !	None
    1	    524 !
    1	    525 !--
    1	    526 
    1	    527     BEGIN
    2	    528 
    2	    529     MAP
    2	    530 	descriptor :  REF $STR_DESCRIPTOR();		! Redefine the descriptor argument.
    2	    531 
    2	    532 !
    2	    533 ! Send a three-line error message to the user.
    2	    534 !
    2	    535 
    2	    536     $XPO_PUT_MSG( CODE = XPO$_FREE_MEM,			! Tell the user that $XPO_FREE_MEM failed
P   2	    537 		CODE = .primary_code,			! and what the failure was.
P   2	    538 		CODE = .secondary_code,
P   2	    539 		FAILURE = 0 );
    2	    540 
    2	    541     RETURN .primary_code				! Return the original completion code to the caller.
    2	    542 
    2	    543     END;
    1	    544 

XFAIL                           XPO$FM_FAILURE - Free Memory Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 14
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    545 $XPO_MODULE( XFAIL5 )

XFAIL                           XPO$PM_FAILURE - Put Message Ac  4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 15
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

    1	    547 %TITLE 'XPO$PM_FAILURE - Put Message Action Routine'
    1	    548 
    1	    549 GLOBAL ROUTINE XPO$PM_FAILURE( function_code, primary_code, secondary_code, actual_severity ) =
    1	    550 
    1	    551 !++
    1	    552 !
    1	    553 ! FUNCTIONAL DESCRIPTION:
    1	    554 !
    1	    555 !	This routine sends the user a message sequence similar to the following:
    1	    556 !
    1	    557 !		? message output error
    1	    558 !		-    primary completion code message
    1	    559 !		-    secondary completion code message
    1	    560 !
    1	    561 ! FORMAL PARAMETERS:
    1	    562 !
    1	    563 !	function_code - XPORT failure action routine function code (ignored)
    1	    564 !	primary_code - primary $XPO_PUT_MSG failure completion code
    1	    565 !	secondary_code - secondary failure competion code
    1	    566 !	actual_severity - actual severity of 1st message
    1	    567 !
    1	    568 ! IMPLICIT INPUTS:
    1	    569 !
    1	    570 !	None
    1	    571 !
    1	    572 ! IMPLICIT OUTPUTS:
    1	    573 !
    1	    574 !	None
    1	    575 !
    1	    576 ! COMPLETION CODES:
    1	    577 !
    1	    578 !	.primary_code - primary completion code passed by caller
    1	    579 !
    1	    580 ! SIDE EFFECTS:
    1	    581 !
    1	    582 !	None
    1	    583 !
    1	    584 !--
    1	    585 
    1	    586     BEGIN
    2	    587 
    2	    588 !
    2	    589 ! Send a three-line error message to the user.
    2	    590 !
    2	    591 
    2	    592     $XPO_PUT_MSG( CODE = XPO$_PUT_MSG,			! Tell the user that PUT_MESSAGE failed
P   2	    593 		CODE = .primary_code,			! and what the failure was
P   2	    594 		CODE = .secondary_code,			!
P   2	    595 		FAILURE = 0 );				! (blocking failure recursion).
    2	    596 
    2	    597     RETURN .primary_code				! Return the original completion code to the caller.
    2	    598 
    2	    599     END;
    1	    600 END
    1	    601 ELUDOM

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 16
V1.0-14                                                         19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

				      .psect _XPO$CODE, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   XPO$FAILURE
				      .align 32
				      .global  XPO$FAILURE
			XPO$FAILURE:											   // 000096
			   { .mii 
002C00C20A80     0000		      alloc   r42 = rspfs, 4, 8, 4, 0
000188000A40     0001		      mov     r41 = br0
0119F8CE0300     0002		      adds    r12 = -16, r12
			   }
			   { .mib 
01CC020041C0     0010		      cmp4.eq pr7, pr0 = 2, FUNCTION_CODE	// pr7, pr0 = 2, r32			   // 000141
010800100AC0     0011		      mov     r43 = r1									   // 000096
008600020007     0012	       (pr7)  br.cond.dpnt.few L$56								   // 000141
			   }
			   { .mfb 
01CC02006240     0020		      cmp4.eq pr9, pr0 = 3, FUNCTION_CODE	// pr9, pr0 = 3, r32
000008000000     0021		      nop.f   0
008600018009     0022	       (pr9)  br.cond.dpnt.few L$60
			   }
			   { .mfb 
01CC020082C0     0030		      cmp4.eq pr11, pr0 = 4, FUNCTION_CODE	// pr11, pr0 = 4, r32
000008000000     0031		      nop.f   0
00860001000B     0032	       (pr11) br.cond.dpnt.few L$64
			   }
			   { .mfb 
01CC0200A340     0040		      cmp4.eq pr13, pr0 = 5, FUNCTION_CODE	// pr13, pr0 = 5, r32
000008000000     0041		      nop.f   0
00860000800D     0042	       (pr13) br.cond.dpnt.few L$68 ;;
			   }
			   { .mii 
0120001000C0     0050		      add     r3 = @ltoff(@fptr(XPO$IO_FAILURE)), 
					      r1
010800C20200     0051		      adds    r8 = 16, r12
000008000000     0052		      nop.i   0 ;;
			   }
			   { .mmi 
0080C03000C0     0060		      ld8     r3 = XPO$IO_FAILURE ;;		// r3 = [r3]
008CC0806000     0061		      st8     [r8] = r3
000008000000     0062		      nop.i   0
			   }
			   { .mfb 
000008000000     0070		      nop.m   0
000008000000     0071		      nop.f   0
008000018000     0072		      br.sptk.few L$69 ;;
			   }
	         0080	L$68:
			   { .mii 
012000100240     0080		      add     r9 = @ltoff(@fptr(XPO$PM_FAILURE)), 
					      r1
010800C20280     0081		      adds    r10 = 16, r12
000008000000     0082		      nop.i   0 ;;
			   }
			   { .mmi 
0080C0900240     0090		      ld8     r9 = XPO$PM_FAILURE ;;		// r9 = [r9]
008CC0A12000     0091		      st8     [r10] = r9
000008000000     0092		      nop.i   0

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 17
V1.0-14                         XPO$FAILURE                     19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
			   { .mfb 
000008000000     00A0		      nop.m   0
000008000000     00A1		      nop.f   0
008000012000     00A2		      br.sptk.few L$69 ;;
			   }
	         00B0	L$64:
			   { .mii 
0120001002C0     00B0		      add     r11 = @ltoff(@fptr(XPO$FM_FAILURE)), 
					      r1
010800C20440     00B1		      adds    r17 = 16, r12
000008000000     00B2		      nop.i   0 ;;
			   }
			   { .mmi 
0080C0B002C0     00C0		      ld8     r11 = XPO$FM_FAILURE ;;		// r11 = [r11]
008CC1116000     00C1		      st8     [r17] = r11
000008000000     00C2		      nop.i   0
			   }
			   { .mfb 
000008000000     00D0		      nop.m   0
000008000000     00D1		      nop.f   0
00800000C000     00D2		      br.sptk.few L$69 ;;
			   }
	         00E0	L$60:
			   { .mii 
012000100480     00E0		      add     r18 = @ltoff(@fptr(XPO$GM_FAILURE)), 
					      r1
010800C204C0     00E1		      adds    r19 = 16, r12
000008000000     00E2		      nop.i   0 ;;
			   }
			   { .mmi 
0080C1200480     00F0		      ld8     r18 = XPO$GM_FAILURE ;;		// r18 = [r18]
008CC1324000     00F1		      st8     [r19] = r18
000008000000     00F2		      nop.i   0
			   }
			   { .mfb 
000008000000     0100		      nop.m   0
000008000000     0101		      nop.f   0
008000006000     0102		      br.sptk.few L$69 ;;
			   }
	         0110	L$56:
			   { .mii 
012000100500     0110		      add     r20 = @ltoff(@fptr(XPO$PS_FAILURE)), 
					      r1
010800C20540     0111		      adds    r21 = 16, r12
000008000000     0112		      nop.i   0 ;;
			   }
			   { .mmi 
0080C1400500     0120		      ld8     r20 = XPO$PS_FAILURE ;;		// r20 = [r20]
008CC1528000     0121		      st8     [r21] = r20
000008000000     0122		      nop.i   0
			   }
	         0130	L$69:
			   { .mii 
010800C20580     0130		      adds    r22 = 16, r12
012000008640     0131		      mov     r25 = 4									   // 000154
00A412100A00     0132		      extr.u  r40 = PRIMARY_CODE, 0, 3 ;;	// r40 = r33, 0, 3			   // 000161

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 18
V1.0-14                         XPO$FAILURE                     19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
			   { .mii 
008081600580     0140		      ld4     r22 = [r22]								   // 000141
0000B2300BC0     0141		      sxt4    r47 = ACTION_ARGUMENT		// r47 = r35				   // 000154
0000B2200B80     0142		      sxt4    r46 = SECONDARY_CODE ;;		// r46 = r34
			   }
			   { .mii 
000008000000     0150		      nop.m   0
0000B2100B40     0151		      sxt4    r45 = PRIMARY_CODE		// r45 = r33
0000B1600580     0152		      sxt4    r22 = r22 ;;
			   }
			   { .mii 
000008000000     0160		      nop.m   0
0000B2000B00     0161		      sxt4    r44 = FUNCTION_CODE		// r44 = r32
010801610580     0162		      adds    r22 = 8, r22 ;;
			   }
			   { .mmi 
00B0C96F0040     0170		      ld8     r1 = [r22], -8 ;;
0080C1600580     0171		      ld8     r22 = [r22]
000008000000     0172		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0180		      nop.m   0
000E0012C180     0181		      mov     br6 = r22
00210000C000     0182		      br.call.sptk.few br0 = br6
			   }
			   { .mii 
01C400050200     0190		      cmp4.eq pr8, pr0 = r40, r0							   // 000161
00A0321001C0     0191		      tbit.z  pr7, pr6 = PRIMARY_CODE, 0	// pr7, pr6 = r33, 0			   // 000160
010802B00040     0192		      mov     r1 = r43 ;;								   // 000154
			   }
			   { .mbb 
01C238000188     01A0	       (pr8)  cmp.eq.or.andcm pr6, pr7 = r0, r0							   // 000160
008600002006     01A1	       (pr6)  br.cond.dpnt.few L$70
008600004007     01A2	       (pr7)  br.cond.dpnt.few L$71
			   }
	         01B0	L$70:
			   { .mfb 
010802100200     01B0		      mov     r8 = PRIMARY_CODE			// r8 = r33				   // 000163
000008000000     01B1		      nop.f   0
008000008000     01B2		      br.sptk.few L$73 ;;
			   }
	         01C0	L$71:												   // 000165
			   { .mlx 
012000002640     01C0		      mov     r25 = 1
000000000000     01C1		      movl    r44 = 2138610
0194305C96
			   }
			   { .mfb 
000008000000     01D0		      nop.m   0
000008000000     01D1		      nop.f   0
00A000001000     01D2		      br.call.sptk.many br0 = XPO$TERMINATE
			   }
			   { .mii 
010800000200     01E0		      mov     r8 = r0
010802B00040     01E1		      mov     r1 = r43
000008000000     01E2		      nop.i   0 ;;

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 19
V1.0-14                         XPO$FAILURE                     19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
	         01F0	L$73:
			   { .mib 
000008000000     01F0		      nop.m   0
0000B0800200     01F1		      sxt4    r8 = r8
004000000000     01F2		      nop.b   0
			   }
			   { .mii 
000008000000     0200		      nop.m   0
000154054000     0201		      mov.i   rspfs = r42
010800C20300     0202		      adds    r12 = 16, r12 ;;
			   }
			   { .mib 
000008000000     0210		      nop.m   0
000E00152000     0211		      mov     br0 = r41
000108001100     0212		      br.ret.sptk.many br0 ;;
			   }
				      .endp   XPO$FAILURE

Routine Size: 544 bytes,    Routine Base: _XPO$CODE + 0000

				      .proc   XPO$IO_FAILURE
				      .align 32
				      .global  XPO$IO_FAILURE
			XPO$IO_FAILURE:											   // 000173
			   { .mii 
002C03377440     0220		      alloc   r81 = rspfs, 4, 47, 8, 0
000188001400     0221		      mov     r80 = br0
0119F8CC0300     0222		      adds    r12 = -32, r12
			   }
			   { .mib 
010800101480     0230		      mov     r82 = r1
0000B23008C0     0231		      sxt4    r35 = IOB				// r35 = r35				   // 000216
004000000000     0232		      nop.b   0
			   }
			   { .mii 
012000038A00     0240		      mov     r40 = 28									   // 000217
00A4121000C0     0241		      extr.u  r3 = PRIMARY_CODE, 0, 3		// r3 = r33, 0, 3			   // 000249
00A042100240     0242		      tbit.z  pr9, pr8 = PRIMARY_CODE, 0 ;;	// pr9, pr8 = r33, 0			   // 000248
			   }
			   { .mii 
01C400006180     0250		      cmp4.eq pr6, pr0 = r3, r0								   // 000249
0108023088C0     0251		      adds    r35 = 4, r35 ;;								   // 000216
01C248000206     0252	       (pr6)  cmp.eq.or.andcm pr8, pr9 = r0, r0							   // 000248
			   }
			   { .mmi 
00B08A3F8200     0260		      ld4     r8 = [r35], -4 ;;								   // 000216
010002846A40     0261		      add     r41 = r35, r40								   // 000217
0000B0800A80     0262		      sxt4    r42 = r8									   // 000216
			   }
			   { .bbb 
0086000CE008     0270	       (pr8)  br.cond.dpnt.few L$6								   // 000248
008600002009     0271	       (pr9)  br.cond.dpnt.few L$7
0080000CE000     0272		      br.sptk.few L$6 ;;
			   }
	         0280	L$7:
			   { .mii 

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 20
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

0108023588C0     0280		      adds    r35 = 44, r35								   // 000257
012000100AC0     0281		      add     r43 = @ltoff(INITIAL_TEXT), r1						   // 000264
000008000000     0282		      nop.i   0 ;;
			   }
			   { .mmi 
00B00A3A8280     0290		      ld1     r10 = [r35], -44								   // 000257
0080C2B00AC0     0291		      ld8     r43 = INITIAL_TEXT		// r43 = [r43]				   // 000264
000008000000     0292		      nop.i   0 ;;
			   }
			   { .mfb 
018C00A0E2C0     02A0		      cmp4.lt pr11, pr0 = 7, r10							   // 000257
000008000000     02A1		      nop.f   0
00860000600B     02A2	       (pr11) br.cond.dpnt.few L$12
			   }
			   { .mib 
012000002640     02B0		      mov     r25 = 1									   // 000259
0000B2B014C0     02B1		      sxt4    r83 = r43
00A000001000     02B2		      br.call.sptk.many br0 = XST$INIT_MSG
			   }
			   { .mfi 
010805200040     02C0		      mov     r1 = r82
000008000000     02C1		      nop.f   0
000008000000     02C2		      nop.i   0
			   }
	         02D0	L$12:												   // 000257
			   { .mmi 
0108023588C0     02D0		      adds    r35 = 44, r35 ;;								   // 000261
00B00A3A8B00     02D1		      ld1     r44 = [r35], -44
000008000000     02D2		      nop.i   0 ;;
			   }
			   { .mmi 
0119FACFEB00     02E0		      adds    r44 = -1, r44 ;;
01AC02C0C1C0     02E1		      cmp4.ltu pr7, pr0 = 6, r44
000008000000     02E2		      nop.i   0
			   }
			   { .mfb 
000008000000     02F0		      nop.m   0
000008000000     02F1		      nop.f   0
00860004A007     02F2	       (pr7)  br.cond.dpnt.few L$16
			   }
			   { .mib 
012000100080     0300		      add     r2 = @ltoff($LINK$), r1
0000B2C00B40     0301		      sxt4    r45 = r44
004000000000     0302		      nop.b   0 ;;
			   }
			   { .mmi 
0080C0200080     0310		      ld8     r2 = $LINK$ ;;			// r2 = [r2]
01009025A080     0311		      shladd  r2 = r45, 3, r2
000008000000     0312		      nop.i   0 ;;
			   }
			   { .mii 
0080C02003C0     0320		      ld8     r15 = $LINK$			// r15 = [r2]
000180000080     0321		      mov     r2 = ip ;;
01000021E3C0     0322		      add     r15 = r15, r2 ;;
			   }
			   { .mib 
000008000000     0330		      nop.m   0

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 21
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

000E0011E180     0331		      mov     br6 = r15
00010000C000     0332		      br.sptk.few br6 ;;
			   }
	         0340	L$17:
			   { .mii 
010802B10B80     0340		      adds    r46 = 8, r43								   // 000265
012000002640     0341		      mov     r25 = 1 ;;
0000B2E014C0     0342		      sxt4    r83 = r46
			   }
			   { .mfb 
000008000000     0350		      nop.m   0
000008000000     0351		      nop.f   0
00A000001000     0352		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     0360		      nop.m   0
000008000000     0361		      nop.f   0
008000040000     0362		      br.sptk.few L$74 ;;
			   }
	         0370	L$18:												   // 000261
			   { .mii 
010802B20BC0     0370		      adds    r47 = 16, r43								   // 000266
012000002640     0371		      mov     r25 = 1 ;;
0000B2F014C0     0372		      sxt4    r83 = r47
			   }
			   { .mfb 
000008000000     0380		      nop.m   0
000008000000     0381		      nop.f   0
00A000001000     0382		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     0390		      nop.m   0
000008000000     0391		      nop.f   0
00800003A000     0392		      br.sptk.few L$74 ;;
			   }
	         03A0	L$19:												   // 000261
			   { .mii 
010802B30C00     03A0		      adds    r48 = 24, r43								   // 000267
012000002640     03A1		      mov     r25 = 1 ;;
0000B30014C0     03A2		      sxt4    r83 = r48
			   }
			   { .mfb 
000008000000     03B0		      nop.m   0
000008000000     03B1		      nop.f   0
00A000001000     03B2		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     03C0		      nop.m   0
000008000000     03C1		      nop.f   0
008000034000     03C2		      br.sptk.few L$74 ;;
			   }
	         03D0	L$20:												   // 000261
			   { .mii 
010802B40C40     03D0		      adds    r49 = 32, r43								   // 000268
012000002640     03D1		      mov     r25 = 1 ;;
0000B31014C0     03D2		      sxt4    r83 = r49
			   }

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 22
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   { .mfb 
000008000000     03E0		      nop.m   0
000008000000     03E1		      nop.f   0
00A000001000     03E2		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     03F0		      nop.m   0
000008000000     03F1		      nop.f   0
00800002E000     03F2		      br.sptk.few L$74 ;;
			   }
	         0400	L$21:												   // 000261
			   { .mii 
010802B50C80     0400		      adds    r50 = 40, r43								   // 000269
012000002640     0401		      mov     r25 = 1 ;;
0000B32014C0     0402		      sxt4    r83 = r50
			   }
			   { .mfb 
000008000000     0410		      nop.m   0
000008000000     0411		      nop.f   0
00A000001000     0412		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     0420		      nop.m   0
000008000000     0421		      nop.f   0
008000028000     0422		      br.sptk.few L$74 ;;
			   }
	         0430	L$23:												   // 000261
			   { .mii 
010802B60CC0     0430		      adds    r51 = 48, r43								   // 000270
012000002640     0431		      mov     r25 = 1 ;;
0000B33014C0     0432		      sxt4    r83 = r51
			   }
			   { .mfb 
000008000000     0440		      nop.m   0
000008000000     0441		      nop.f   0
00A000001000     0442		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     0450		      nop.m   0
000008000000     0451		      nop.f   0
008000022000     0452		      br.sptk.few L$74 ;;
			   }
	         0460	L$22:												   // 000261
			   { .mmi 
0108023608C0     0460		      adds    r35 = 48, r35 ;;								   // 000272
00B08A3A0D00     0461		      ld4     r52 = [r35], -48
000008000000     0462		      nop.i   0 ;;
			   }
			   { .mii 
000008000000     0470		      nop.m   0
00A40344CD40     0471		      extr.u  r53 = r52, 19, 1 ;;
00A0335001C0     0472		      tbit.z  pr7, pr6 = r53, 0
			   }
			   { .mfb 
000008000000     0480		      nop.m   0
000008000000     0481		      nop.f   0
008600012007     0482	       (pr7)  br.cond.dpnt.few L$26

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 23
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
			   { .mii 
000008000000     0490		      nop.m   0
00A403440D00     0491		      extr.u  r52 = r52, 16, 1 ;;							   // 000274
00A043400240     0492		      tbit.z  pr9, pr8 = r52, 0
			   }
			   { .mfb 
000008000000     04A0		      nop.m   0
000008000000     04A1		      nop.f   0
008600008009     04A2	       (pr9)  br.cond.dpnt.few L$28
			   }
			   { .mii 
010802B90D80     04B0		      adds    r54 = 72, r43								   // 000276
012000002640     04B1		      mov     r25 = 1 ;;
0000B36014C0     04B2		      sxt4    r83 = r54
			   }
			   { .mfb 
000008000000     04C0		      nop.m   0
000008000000     04C1		      nop.f   0
00A000001000     04C2		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     04D0		      nop.m   0
000008000000     04D1		      nop.f   0
008000012000     04D2		      br.sptk.few L$74 ;;
			   }
	         04E0	L$28:												   // 000274
			   { .mii 
010802B80DC0     04E0		      adds    r55 = 64, r43								   // 000278
012000002640     04E1		      mov     r25 = 1 ;;
0000B37014C0     04E2		      sxt4    r83 = r55
			   }
			   { .mfb 
000008000000     04F0		      nop.m   0
000008000000     04F1		      nop.f   0
00A000001000     04F2		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     0500		      nop.m   0
000008000000     0501		      nop.f   0
00800000C000     0502		      br.sptk.few L$74 ;;
			   }
	         0510	L$26:												   // 000272
			   { .mii 
010802B70E00     0510		      adds    r56 = 56, r43								   // 000280
012000002640     0511		      mov     r25 = 1 ;;
0000B38014C0     0512		      sxt4    r83 = r56
			   }
			   { .mfb 
000008000000     0520		      nop.m   0
000008000000     0521		      nop.f   0
00A000001000     0522		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
000008000000     0530		      nop.m   0
000008000000     0531		      nop.f   0
008000006000     0532		      br.sptk.few L$74 ;;

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 24
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
	         0540	L$16:												   // 000261
			   { .mii 
010802BA0E40     0540		      adds    r57 = 80, r43								   // 000264
012000002640     0541		      mov     r25 = 1 ;;
0000B39014C0     0542		      sxt4    r83 = r57
			   }
			   { .mfb 
000008000000     0550		      nop.m   0
000008000000     0551		      nop.f   0
00A000001000     0552		      br.call.sptk.many br0 = XST$INIT_MSG
			   }
	         0560	L$74:
			   { .mii 
008042900E80     0560		      ld2     r58 = [r41]								   // 000283
010805200040     0561		      mov     r1 = r82 ;;								   // 000264
01C403A001C0     0562		      cmp4.eq pr7, pr0 = r0, r58							   // 000283
			   }
			   { .mfb 
000008000000     0570		      nop.m   0
000008000000     0571		      nop.f   0
008600004007     0572	       (pr7)  br.cond.dpnt.few L$30
			   }
			   { .mfb 
0108029014C0     0580		      mov     r83 = r41									   // 000285
000008000000     0581		      nop.f   0
008000004000     0582		      br.sptk.few L$75 ;;
			   }
	         0590	L$30:												   // 000283
			   { .mfi 
010802A014C0     0590		      mov     r83 = r42									   // 000287
000008000000     0591		      nop.f   0
000008000000     0592		      nop.i   0
			   }
	         05A0	L$75:
			   { .mmi 
012000002640     05A0		      mov     r25 = 1 ;;
000008000000     05A1		      nop.m   0
0000B53014C0     05A2		      sxt4    r83 = r83
			   }
			   { .mfb 
000008000000     05B0		      nop.m   0
000008000000     05B1		      nop.f   0
00A000001000     05B2		      br.call.sptk.many br0 = XST$QUOTED
			   }
			   { .mii 
0108023588C0     05C0		      adds    r35 = 44, r35								   // 000289
010805200040     05C1		      mov     r1 = r82									   // 000287
000008000000     05C2		      nop.i   0 ;;
			   }
			   { .mmi 
00B00A3A8EC0     05D0		      ld1     r59 = [r35], -44 ;;							   // 000289
0119FBBFEF00     05D1		      adds    r60 = -1, r59
000008000000     05D2		      nop.i   0 ;;
			   }
			   { .mfb 
01AC03C021C0     05E0		      cmp4.ltu pr7, pr0 = 1, r60

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 25
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

000008000000     05E1		      nop.f   0
00860001E007     05E2	       (pr7)  br.cond.dpnt.few L$35
			   }
			   { .mmi 
0108023588C0     05F0		      adds    r35 = 44, r35 ;;								   // 000292
00B08A3A8F40     05F1		      ld4     r61 = [r35], -44
000008000000     05F2		      nop.i   0 ;;
			   }
			   { .mii 
000008000000     0600		      nop.m   0
00A403D40F40     0601		      extr.u  r61 = r61, 16, 1 ;;
00A043D00240     0602		      tbit.z  pr9, pr8 = r61, 0
			   }
			   { .mfb 
000008000000     0610		      nop.m   0
000008000000     0611		      nop.f   0
008600012009     0612	       (pr9)  br.cond.dpnt.few L$37
			   }
			   { .mii 
010802BB0F80     0620		      adds    r62 = 88, r43								   // 000295
012000002640     0621		      mov     r25 = 1 ;;
0000B3E014C0     0622		      sxt4    r83 = r62
			   }
			   { .mfb 
000008000000     0630		      nop.m   0
000008000000     0631		      nop.f   0
00A000001000     0632		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mii 
0108023588C0     0640		      adds    r35 = 44, r35								   // 000296
010805200040     0641		      mov     r1 = r82									   // 000295
000008000000     0642		      nop.i   0 ;;
			   }
			   { .mmi 
00B08A3A8FC0     0650		      ld4     r63 = [r35], -44 ;;							   // 000296
000008000000     0651		      nop.m   0
00A403F44FC0     0652		      extr.u  r63 = r63, 17, 1 ;;
			   }
			   { .mib 
000008000000     0660		      nop.m   0
00A033F001C0     0661		      tbit.z  pr7, pr6 = r63, 0
008600040007     0662	       (pr7)  br.cond.dpnt.few L$39
			   }
			   { .mii 
010802BC1000     0670		      adds    r64 = 96, r43								   // 000298
012000002640     0671		      mov     r25 = 1 ;;
0000B40014C0     0672		      sxt4    r83 = r64
			   }
			   { .mfb 
000008000000     0680		      nop.m   0
000008000000     0681		      nop.f   0
00A000001000     0682		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
010805200040     0690		      mov     r1 = r82
000008000000     0691		      nop.f   0
00800003A000     0692		      br.sptk.few L$39 ;;								   // 000296

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 26
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
	         06A0	L$37:												   // 000292
			   { .mii 
010802BD1040     06A0		      adds    r65 = 104, r43								   // 000301
012000002640     06A1		      mov     r25 = 1 ;;
0000B41014C0     06A2		      sxt4    r83 = r65
			   }
			   { .mfb 
000008000000     06B0		      nop.m   0
000008000000     06B1		      nop.f   0
00A000001000     06B2		      br.call.sptk.many br0 = XST$STRING
			   }
			   { .mfb 
010805200040     06C0		      mov     r1 = r82
000008000000     06C1		      nop.f   0
008000034000     06C2		      br.sptk.few L$39 ;;								   // 000292
			   }
	         06D0	L$35:												   // 000289
			   { .mib 
01CC33B08000     06D0		      cmp4.eq pr0, pr6 = 4, r59
010802BE0AC0     06D1		      adds    r43 = 112, r43
008600032006     06D2	       (pr6)  br.cond.dpnt.few L$39 ;;
			   }
			   { .mii 
0108023508C0     06E0		      adds    r35 = 40, r35								   // 000306
012000002640     06E1		      mov     r25 = 1									   // 000311
0000B2B014C0     06E2		      sxt4    r83 = r43 ;;
			   }
			   { .mfb 
00B08A3B1080     06F0		      ld4     r66 = [r35], -40								   // 000306
000008000000     06F1		      nop.f   0
00A000001000     06F2		      br.call.sptk.many br0 = XST$STRING ;;						   // 000311
			   }
			   { .mii 
010805200040     0700		      mov     r1 = r82
0000B4201080     0701		      sxt4    r66 = r66 ;;								   // 000306
0100028850C0     0702		      add     r67 = r66, r40 ;;								   // 000308
			   }
			   { .mmi 
008044301100     0710		      ld2     r68 = [r67] ;;								   // 000313
01C4044001C0     0711		      cmp4.eq pr7, pr0 = r0, r68
000008000000     0712		      nop.i   0
			   }
			   { .mfb 
000008000000     0720		      nop.m   0
000008000000     0721		      nop.f   0
008600004007     0722	       (pr7)  br.cond.dpnt.few L$44
			   }
			   { .mfb 
0108043014C0     0730		      mov     r83 = r67									   // 000315
000008000000     0731		      nop.f   0
008000004000     0732		      br.sptk.few L$76 ;;
			   }
	         0740	L$44:												   // 000313
			   { .mmi 
010804209080     0740		      adds    r66 = 4, r66 ;;								   // 000317
00B08C2F94C0     0741		      ld4     r83 = [r66], -4

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 27
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

000008000000     0742		      nop.i   0 ;;
			   }
	         0750	L$76:
			   { .mii 
01080A3B1140     0750		      adds    r69 = 216, r35								   // 000322
012000002640     0751		      mov     r25 = 1									   // 000317
0000B53014C0     0752		      sxt4    r83 = r83
			   }
			   { .mfb 
000008000000     0760		      nop.m   0
000008000000     0761		      nop.f   0
00A000001000     0762		      br.call.sptk.many br0 = XST$QUOTED ;;
			   }
			   { .mii 
008084501140     0770		      ld4     r69 = [r69]								   // 000322
010805200040     0771		      mov     r1 = r82									   // 000317
000008000000     0772		      nop.i   0
			   }
			   { .mlx 
000008000000     0780		      nop.m   0
000000000000     0781		      movl    r90 = 2138226 ;;								   // 000322
0194005CAD
			   }
			   { .mfb 
01C43DA8A000     0790		      cmp4.eq pr0, pr7 = r69, r90
000008000000     0791		      nop.f   0
00860001A007     0792	       (pr7)  br.cond.dpnt.few L$39								   // 000323
			   }
			   { .mmi 
01080A3B9180     07A0		      adds    r70 = 220, r35 ;;
008084601180     07A1		      ld4     r70 = [r70]
000008000000     07A2		      nop.i   0 ;;
			   }
			   { .mfb 
01CC4C600000     07B0		      cmp4.eq pr0, pr9 = 0, r70
000008000000     07B1		      nop.f   0
008600016009     07B2	       (pr9)  br.cond.dpnt.few L$39
			   }
			   { .mii 
01080C2B11C0     07C0		      adds    r71 = 216, r66								   // 000330
01080C2B9080     07C1		      adds    r66 = 220, r66
012000101300     07C2		      add     r76 = @ltoff(XST$MESSAGE), r1
			   }
			   { .mmi 
012000003240     07D0		      mov     r73 = 1
010800C21200     07D1		      adds    r72 = 16, r12
010800C31280     07D2		      adds    r74 = 24, r12 ;;
			   }
			   { .mii 
0080847011C0     07E0		      ld4     r71 = [r71]
0000B4901240     07E1		      sxt4    r73 = r73
010800C412C0     07E2		      adds    r75 = 32, r12
			   }
			   { .mmi 
0080842014C0     07F0		      ld4     r83 = [r66]
0080C4C01300     07F1		      ld8     r76 = XST$MESSAGE			// r76 = [r76]
0000B5A01640     07F2		      sxt4    r89 = r90 ;;

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 28
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
			   { .mii 
012000016640     0800		      mov     r25 = 11
0000B47011C0     0801		      sxt4    r71 = r71
012000003680     0802		      mov     r90 = 1
			   }
			   { .mii 
012000003600     0810		      mov     r88 = 1
0000B53014C0     0811		      sxt4    r83 = r83
0000B4C015C0     0812		      sxt4    r87 = r76 ;;
			   }
			   { .mmi 
008CC488E000     0820		      st8     [r72] = r71
008CC4A92000     0821		      st8     [r74] = r73
012000005580     0822		      mov     r86 = 2
			   }
			   { .mii 
008CC4BA6000     0830		      st8     [r75] = r83
0000B0001540     0831		      sxt4    r85 = r0
0000B0001500     0832		      sxt4    r84 = r0
			   }
			   { .mfb 
0119F80FF4C0     0840		      adds    r83 = -1, r0
000008000000     0841		      nop.f   0
00A000001000     0842		      br.call.sptk.many br0 = XPO$MESSAGE
			   }
			   { .mfb 
000008000000     0850		      nop.m   0
000008000000     0851		      nop.f   0
008000010000     0852		      br.sptk.few L$77 ;;
			   }
	         0860	L$39:												   // 000340
			   { .mii 
01080A3B9340     0860		      adds    r77 = 220, r35
01080A3B1640     0861		      adds    r89 = 216, r35
0120001013C0     0862		      add     r79 = @ltoff(XST$MESSAGE), r1
			   }
			   { .mmi 
010800C21380     0870		      adds    r78 = 16, r12
012000012640     0871		      mov     r25 = 9
012000003680     0872		      mov     r90 = 1 ;;
			   }
			   { .mii 
008084D014C0     0880		      ld4     r83 = [r77]
012000003600     0881		      mov     r88 = 1
012000005580     0882		      mov     r86 = 2
			   }
			   { .mmi 
008085901640     0890		      ld4     r89 = [r89]
0080C4F013C0     0891		      ld8     r79 = XST$MESSAGE			// r79 = [r79]
0000B0001540     0892		      sxt4    r85 = r0 ;;
			   }
			   { .mii 
000008000000     08A0		      nop.m   0
0000B53014C0     08A1		      sxt4    r83 = r83
0000B0001500     08A2		      sxt4    r84 = r0 ;;
			   }

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 29
V1.0-14                         XPO$IO_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   { .mii 
008CC4EA6000     08B0		      st8     [r78] = r83
0000B5901640     08B1		      sxt4    r89 = r89
0000B4F015C0     08B2		      sxt4    r87 = r79
			   }
			   { .mfb 
0119F80FF4C0     08C0		      adds    r83 = -1, r0
000008000000     08C1		      nop.f   0
00A000001000     08C2		      br.call.sptk.many br0 = XPO$MESSAGE ;;
			   }
	         08D0	L$77:
			   { .mfi 
010805200040     08D0		      mov     r1 = r82
000008000000     08D1		      nop.f   0
000008000000     08D2		      nop.i   0
			   }
	         08E0	L$6:												   // 000248
			   { .mii 
000008000000     08E0		      nop.m   0
0000B2100200     08E1		      sxt4    r8 = PRIMARY_CODE			// r8 = r33				   // 000346
0001540A2000     08E2		      mov.i   rspfs = r81 ;;
			   }
			   { .mib 
010800C40300     08F0		      adds    r12 = 32, r12
000E001A0000     08F1		      mov     br0 = r80
000108001100     08F2		      br.ret.sptk.many br0 ;;
			   }
				      .endp   XPO$IO_FAILURE

Routine Size: 1760 bytes,    Routine Base: _XPO$CODE + 0220

				      .proc   XPO$PS_FAILURE
				      .align 32
				      .global  XPO$PS_FAILURE
			XPO$PS_FAILURE:											   // 000354
			   { .mii 
0120001000C0     0900		      add     r3 = @ltoff(INITIAL_TEXT), r1						   // 000407
0119F8CE0300     0901		      adds    r12 = -16, r12								   // 000354
012000002640     0902		      mov     r25 = 1 ;;								   // 000407
			   }
			   { .mmi 
0080C03000C0     0910		      ld8     r3 = INITIAL_TEXT ;;		// r3 = [r3]
002C00C28A80     0911		      alloc   r42 = rspfs, 4, 8, 8, 0							   // 000354
000188000A40     0912		      mov     r41 = br0
			   }
			   { .mii 
010800100AC0     0920		      mov     r43 = r1
0000B2200880     0921		      sxt4    SECONDARY_CODE = SECONDARY_CODE	// r34 = r34				   // 000417
0000B0300B00     0922		      sxt4    r44 = r3 ;;								   // 000407
			   }
			   { .mfb 
000008000000     0930		      nop.m   0
000008000000     0931		      nop.f   0
00A000001000     0932		      br.call.sptk.many br0 = XST$INIT_MSG
			   }
			   { .mii 
012000002640     0940		      mov     r25 = 1									   // 000408

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 30
V1.0-14                         XPO$PS_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

0000B2300B00     0941		      sxt4    r44 = FILE_SPEC			// r44 = r35
010802B00040     0942		      mov     r1 = r43									   // 000407
			   }
			   { .mfb 
000008000000     0950		      nop.m   0
000008000000     0951		      nop.f   0
004000000000     0952		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0960		      nop.m   0
000008000000     0961		      nop.f   0
00A000001000     0962		      br.call.sptk.many br0 = XST$QUOTED						   // 000408
			   }
			   { .mii 
010802B00040     0970		      mov     r1 = r43
010800C20B00     0971		      adds    r44 = 16, r12								   // 000417
012000012640     0972		      mov     r25 = 9
			   }
			   { .mmi 
012000002CC0     0980		      mov     r51 = 1
012000002C40     0981		      mov     r49 = 1
012000004BC0     0982		      mov     r47 = 2 ;;
			   }
			   { .mii 
012000100A00     0990		      add     r40 = @ltoff(XST$MESSAGE), r1
0000B2100C80     0991		      sxt4    r50 = PRIMARY_CODE		// r50 = r33
0000B0000B80     0992		      sxt4    r46 = r0 ;;
			   }
			   { .mmi 
008CC2C44000     09A0		      st8     [r44] = SECONDARY_CODE		// [r44] = r34
0080C2800A00     09A1		      ld8     r40 = XST$MESSAGE			// r40 = [r40]
0000B0000B40     09A2		      sxt4    r45 = r0 ;;
			   }
			   { .mib 
0119F80FEB00     09B0		      adds    r44 = -1, r0
0000B2800C00     09B1		      sxt4    r48 = r40
00A000001000     09B2		      br.call.sptk.many br0 = XPO$MESSAGE ;;
			   }
			   { .mii 
010802B00040     09C0		      mov     r1 = r43
0000B2100200     09C1		      sxt4    r8 = PRIMARY_CODE			// r8 = r33				   // 000423
000154054000     09C2		      mov.i   rspfs = r42 ;;
			   }
			   { .mib 
010800C20300     09D0		      adds    r12 = 16, r12
000E00152000     09D1		      mov     br0 = r41
000108001100     09D2		      br.ret.sptk.many br0 ;;
			   }
				      .endp   XPO$PS_FAILURE

Routine Size: 224 bytes,    Routine Base: _XPO$CODE + 0900

				      .proc   XPO$GM_FAILURE
				      .align 32
				      .global  XPO$GM_FAILURE
			XPO$GM_FAILURE:											   // 000431
			   { .mii 

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 31
V1.0-14                         XPO$GM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

002C0071E940     09E0		      alloc   r37 = rspfs, 4, 3, 8, 0
000188000900     09E1		      mov     r36 = br0
0119F8CE0300     09E2		      adds    r12 = -16, r12
			   }
			   { .mmi 
010800100980     09F0		      mov     r38 = r1
012000012640     09F1		      mov     r25 = 9									   // 000480
012000002B80     09F2		      mov     r46 = 1 ;;
			   }
			   { .mii 
010800C209C0     0A00		      adds    r39 = 16, r12
0000B2200880     0A01		      sxt4    SECONDARY_CODE = SECONDARY_CODE	// r34 = r34
0000B2100B40     0A02		      sxt4    r45 = PRIMARY_CODE ;;		// r45 = r33
			   }
			   { .mii 
008CC2744000     0A10		      st8     [r39] = SECONDARY_CODE		// [r39] = r34
012000002B00     0A11		      mov     r44 = 1
012000002A80     0A12		      mov     r42 = 1
			   }
			   { .mib 
0119F80FE9C0     0A20		      adds    r39 = -1, r0
0000B0000A40     0A21		      sxt4    r41 = r0
004000000000     0A22		      nop.b   0
			   }
			   { .mlx 
000008000000     0A30		      nop.m   0
800000000000     0A31		      movl    r43 = 2138370
0194204095
			   }
			   { .mib 
000008000000     0A40		      nop.m   0
0000B0000A00     0A41		      sxt4    r40 = r0
00A000001000     0A42		      br.call.sptk.many br0 = XPO$MESSAGE ;;
			   }
			   { .mii 
010802600040     0A50		      mov     r1 = r38
0000B2100200     0A51		      sxt4    r8 = PRIMARY_CODE			// r8 = r33				   // 000482
00015404A000     0A52		      mov.i   rspfs = r37 ;;
			   }
			   { .mib 
010800C20300     0A60		      adds    r12 = 16, r12
000E00148000     0A61		      mov     br0 = r36
000108001100     0A62		      br.ret.sptk.many br0 ;;
			   }
				      .endp   XPO$GM_FAILURE

Routine Size: 144 bytes,    Routine Base: _XPO$CODE + 09E0

				      .proc   XPO$FM_FAILURE
				      .align 32
				      .global  XPO$FM_FAILURE
			XPO$FM_FAILURE:											   // 000490
			   { .mii 
002C0071E940     0A70		      alloc   r37 = rspfs, 4, 3, 8, 0
000188000900     0A71		      mov     r36 = br0
0119F8CE0300     0A72		      adds    r12 = -16, r12
			   }

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 32
V1.0-14                         XPO$FM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   { .mmi 
010800100980     0A80		      mov     r38 = r1
012000012640     0A81		      mov     r25 = 9									   // 000539
012000002B80     0A82		      mov     r46 = 1 ;;
			   }
			   { .mii 
010800C209C0     0A90		      adds    r39 = 16, r12
0000B2200880     0A91		      sxt4    SECONDARY_CODE = SECONDARY_CODE	// r34 = r34
0000B2100B40     0A92		      sxt4    r45 = PRIMARY_CODE ;;		// r45 = r33
			   }
			   { .mii 
008CC2744000     0AA0		      st8     [r39] = SECONDARY_CODE		// [r39] = r34
012000002B00     0AA1		      mov     r44 = 1
012000002A80     0AA2		      mov     r42 = 1
			   }
			   { .mib 
0119F80FE9C0     0AB0		      adds    r39 = -1, r0
0000B0000A40     0AB1		      sxt4    r41 = r0
004000000000     0AB2		      nop.b   0
			   }
			   { .mlx 
000008000000     0AC0		      nop.m   0
800000000000     0AC1		      movl    r43 = 2138362
0194105E95
			   }
			   { .mib 
000008000000     0AD0		      nop.m   0
0000B0000A00     0AD1		      sxt4    r40 = r0
00A000001000     0AD2		      br.call.sptk.many br0 = XPO$MESSAGE ;;
			   }
			   { .mii 
010802600040     0AE0		      mov     r1 = r38
0000B2100200     0AE1		      sxt4    r8 = PRIMARY_CODE			// r8 = r33				   // 000541
00015404A000     0AE2		      mov.i   rspfs = r37 ;;
			   }
			   { .mib 
010800C20300     0AF0		      adds    r12 = 16, r12
000E00148000     0AF1		      mov     br0 = r36
000108001100     0AF2		      br.ret.sptk.many br0 ;;
			   }
				      .endp   XPO$FM_FAILURE

Routine Size: 144 bytes,    Routine Base: _XPO$CODE + 0A70

				      .proc   XPO$PM_FAILURE
				      .align 32
				      .global  XPO$PM_FAILURE
			XPO$PM_FAILURE:											   // 000549
			   { .mii 
002C0071E940     0B00		      alloc   r37 = rspfs, 4, 3, 8, 0
000188000900     0B01		      mov     r36 = br0
0119F8CE0300     0B02		      adds    r12 = -16, r12
			   }
			   { .mmi 
010800100980     0B10		      mov     r38 = r1
012000012640     0B11		      mov     r25 = 9									   // 000595
012000002B80     0B12		      mov     r46 = 1 ;;

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 33
V1.0-14                         XPO$PM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			   }
			   { .mii 
010800C209C0     0B20		      adds    r39 = 16, r12
0000B2200880     0B21		      sxt4    SECONDARY_CODE = SECONDARY_CODE	// r34 = r34
0000B2100B40     0B22		      sxt4    r45 = PRIMARY_CODE ;;		// r45 = r33
			   }
			   { .mii 
008CC2744000     0B30		      st8     [r39] = SECONDARY_CODE		// [r39] = r34
012000002B00     0B31		      mov     r44 = 1
012000002A80     0B32		      mov     r42 = 1
			   }
			   { .mib 
0119F80FE9C0     0B40		      adds    r39 = -1, r0
0000B0000A40     0B41		      sxt4    r41 = r0
004000000000     0B42		      nop.b   0
			   }
			   { .mlx 
000008000000     0B50		      nop.m   0
800000000000     0B51		      movl    r43 = 2138634
0194404295
			   }
			   { .mib 
000008000000     0B60		      nop.m   0
0000B0000A00     0B61		      sxt4    r40 = r0
00A000001000     0B62		      br.call.sptk.many br0 = XPO$MESSAGE ;;
			   }
			   { .mii 
010802600040     0B70		      mov     r1 = r38
0000B2100200     0B71		      sxt4    r8 = PRIMARY_CODE			// r8 = r33				   // 000597
00015404A000     0B72		      mov.i   rspfs = r37 ;;
			   }
			   { .mib 
010800C20300     0B80		      adds    r12 = 16, r12
000E00148000     0B81		      mov     br0 = r36
000108001100     0B82		      br.ret.sptk.many br0 ;;
			   }
				      .endp   XPO$PM_FAILURE

Routine Size: 144 bytes,    Routine Base: _XPO$CODE + 0B00

				       .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
				      .lcomm  INITIAL_TEXT, 8, 8
				      .lcomm  OPEN_TEXT, 8, 8
				      .lcomm  CLOSE_TEXT, 8, 8
				      .lcomm  DELETE_TEXT, 8, 8
				      .lcomm  RENAME_TEXT, 8, 8
				      .lcomm  BACKUP_TEXT, 8, 8
				      .lcomm  PUT_TEXT, 8, 8
				      .lcomm  GET_TEXT, 8, 8
				      .lcomm  AUTO_OPEN_TEXT, 8, 8
				      .lcomm  AUTO_CLOSE_TEXT, 8, 8
				      .lcomm  BAD_FUNC_TEXT, 8, 8
				      .lcomm  INPUT_TEXT, 8, 8
				      .lcomm  AND_OUTPUT_TEXT, 8, 8
				      .lcomm  OUTPUT_TEXT, 8, 8
				      .lcomm  TO_TEXT, 8, 8
				      .lcomm  INITIAL_TEXT, 8, 8

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 34
V1.0-14                         XPO$PM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

				      .lcomm  P.AAA, 6, 8
				      .lcomm  fill$$1, 2, 2
				      .lcomm  P.AAB, 8, 8
				      .lcomm  P.AAC, 8, 8
				      .lcomm  P.AAD, 9, 16
				      .lcomm  fill$$2, 3, 4
				      .lcomm  P.AAE, 9, 16
				      .lcomm  fill$$3, 3, 4
				      .lcomm  P.AAF, 11, 16
				      .lcomm  fill$$4, 1, 1
				      .lcomm  P.AAG, 11, 16
				      .lcomm  fill$$5, 1, 1
				      .lcomm  P.AAH, 13, 16
				      .lcomm  fill$$6, 3, 4
				      .lcomm  P.AAI, 13, 16
				      .lcomm  fill$$7, 3, 4
				      .lcomm  P.AAJ, 13, 16
				      .lcomm  fill$$8, 3, 4
				      .lcomm  P.AAK, 21, 16
				      .lcomm  fill$$9, 3, 4
				      .lcomm  P.AAL, 10, 16
				      .lcomm  fill$$10, 2, 2
				      .lcomm  P.AAM, 11, 16
				      .lcomm  fill$$11, 1, 1
				      .lcomm  P.AAN, 11, 16
				      .lcomm  fill$$12, 1, 1
				      .lcomm  P.AAO, 4, 4
				      .lcomm  P.AAP, 14, 16
				      .psect $LINK$, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC
0000000000000020     0000	      data8   L$17-0000000000000320
0000000000000050     0008	      data8   L$18-0000000000000320
0000000000000080     0010	      data8   L$19-0000000000000320
00000000000000B0     0018	      data8   L$20-0000000000000320
00000000000000E0     0020	      data8   L$21-0000000000000320
0000000000000140     0028	      data8   L$22-0000000000000320
0000000000000110     0030	      data8   L$23-0000000000000320
				      .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
			INITIAL_TEXT:
    0006         0000		      data2   0x6 // data2 6
      0E         0002		      data1   0xE // data1 14
      01         0003		      data1   0x1 // data1 1
00000000         0004		      data4   P.AAA
			OPEN_TEXT:
    0008         0008		      data2   0x8 // data2 8
      0E         000A		      data1   0xE // data1 14
      01         000B		      data1   0x1 // data1 1
00000000         000C		      data4   P.AAB
			CLOSE_TEXT:
    0008         0010		      data2   0x8 // data2 8
      0E         0012		      data1   0xE // data1 14
      01         0013		      data1   0x1 // data1 1
00000000         0014		      data4   P.AAC
			DELETE_TEXT:
    0009         0018		      data2   0x9 // data2 9
      0E         001A		      data1   0xE // data1 14
      01         001B		      data1   0x1 // data1 1
00000000         001C		      data4   P.AAD

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 35
V1.0-14                         XPO$PM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

			RENAME_TEXT:
    0009         0020		      data2   0x9 // data2 9
      0E         0022		      data1   0xE // data1 14
      01         0023		      data1   0x1 // data1 1
00000000         0024		      data4   P.AAE
			BACKUP_TEXT:
    000B         0028		      data2   0xB // data2 11
      0E         002A		      data1   0xE // data1 14
      01         002B		      data1   0x1 // data1 1
00000000         002C		      data4   P.AAF
			PUT_TEXT:
    000B         0030		      data2   0xB // data2 11
      0E         0032		      data1   0xE // data1 14
      01         0033		      data1   0x1 // data1 1
00000000         0034		      data4   P.AAG
			GET_TEXT:
    000D         0038		      data2   0xD // data2 13
      0E         003A		      data1   0xE // data1 14
      01         003B		      data1   0x1 // data1 1
00000000         003C		      data4   P.AAH
			AUTO_OPEN_TEXT:
    000D         0040		      data2   0xD // data2 13
      0E         0042		      data1   0xE // data1 14
      01         0043		      data1   0x1 // data1 1
00000000         0044		      data4   P.AAI
			AUTO_CLOSE_TEXT:
    000D         0048		      data2   0xD // data2 13
      0E         004A		      data1   0xE // data1 14
      01         004B		      data1   0x1 // data1 1
00000000         004C		      data4   P.AAJ
			BAD_FUNC_TEXT:
    0015         0050		      data2   0x15 // data2 21
      0E         0052		      data1   0xE // data1 14
      01         0053		      data1   0x1 // data1 1
00000000         0054		      data4   P.AAK
			INPUT_TEXT:
    000A         0058		      data2   0xA // data2 10
      0E         005A		      data1   0xE // data1 14
      01         005B		      data1   0x1 // data1 1
00000000         005C		      data4   P.AAL
			AND_OUTPUT_TEXT:
    000B         0060		      data2   0xB // data2 11
      0E         0062		      data1   0xE // data1 14
      01         0063		      data1   0x1 // data1 1
00000000         0064		      data4   P.AAM
			OUTPUT_TEXT:
    000B         0068		      data2   0xB // data2 11
      0E         006A		      data1   0xE // data1 14
      01         006B		      data1   0x1 // data1 1
00000000         006C		      data4   P.AAN
			TO_TEXT:
    0004         0070		      data2   0x4 // data2 4
      0E         0072		      data1   0xE // data1 14
      01         0073		      data1   0x1 // data1 1
00000000         0074		      data4   P.AAO
			INITIAL_TEXT:
    000E         0078		      data2   0xE // data2 14

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 36
V1.0-14                         XPO$PM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

      0E         007A		      data1   0xE // data1 14
      01         007B		      data1   0x1 // data1 1
00000000         007C		      data4   P.AAP
				      .psect _XPO$PLIT, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC
			P.AAA:
6F727265         0000		      string  "error "
    2072         0004

			P.AAB:
6E65706F         0008		      string  "opening "
20676E69         000C

			P.AAC:
736F6C63         0010		      string  "closing "
20676E69         0014

			P.AAD:
656C6564         0018		      string  "deleting "
676E6974         001C
      20         0020

			P.AAE:
616E6572         0024		      string  "renaming "
676E696D         0028
      20         002C

			P.AAF:
6B636162         0030		      string  "backing up "
20676E69         0034
  207075         0038

			P.AAG:
74697277         003C		      string  "writing to "
20676E69         0040
  206F74         0044

			P.AAH:
64616572         0048		      string  "reading from "
20676E69         004C
6D6F7266         0050
      20         0054

			P.AAI:
6F747561         0058		      string  "auto-opening "
65706F2D         005C
676E696E         0060
      20         0064

			P.AAJ:
6F747561         0068		      string  "auto_closing "
6F6C635F         006C
676E6973         0070
      20         0074

			P.AAK:
61766E69         0078		      string  "invalid operation on "
2064696C         007C

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 37
V1.0-14                         XPO$PM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

7265706F         0080
6F697461         0084
6E6F206E         0088
      20         008C

			P.AAL:
726F6620         0090		      string  " for input"
706E6920         0094
    7475         0098

			P.AAM:
646E6120         009C		      string  " and output"
74756F20         00A0
  747570         00A4

			P.AAN:
726F6620         00A8		      string  " for output"
74756F20         00AC
  747570         00B0

			P.AAO:
206F7420         00B4		      data4   0x206F7420 // data4 544175136
			P.AAP:
6F727265         00B8		      string  "error parsing "
61702072         00BC
6E697372         00C0
    2067         00C4

				      .section .data
				      .type   XPO$TERMINATE, @function 
				      .global  XPO$TERMINATE
				      .section .data
				      .type   XST$INIT_MSG, @function 
				      .global  XST$INIT_MSG
				      .section .data
				      .type   XST$STRING, @function 
				      .global  XST$STRING
				      .section .data
				      .type   XST$QUOTED, @function 
				      .global  XST$QUOTED
				      .global XST$MESSAGE
				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE
				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE
				      .section .data
				      .type   XST$INIT_MSG, @function 
				      .global  XST$INIT_MSG
				      .section .data
				      .type   XST$QUOTED, @function 
				      .global  XST$QUOTED
				      .global XST$MESSAGE
				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE

XFAIL                           Machine Code Listing             4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 38
V1.0-14                         XPO$PM_FAILURE                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE
				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE
				      .section .data
				      .type   XPO$MESSAGE, @function 
				      .global  XPO$MESSAGE


;				Library Statistics
;
;					     -------- Symbols --------	    Pages
;	File				     Total    Loaded   Percent      Mapped
;
;  DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14
;					       590       122        20       270
;  DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPOSYS.L32;14
;					        91        12        13        27




                                Source Listing                   4-FEB-2004 11:01:35  BLISS-32I T1.1-053                Page 39
                                Source Listing                  19-MAR-2002 10:12:10  [LASTOVICA.XPORT.VMSGEN]XFAIL.BLI;1

COMMAND LINE:

BLISSXFAIL/LIST/DEBUG
</pre></body></html>