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<0,3,0> 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<0,3,0> 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