RNOVMS - RUNOFF VMS Command Lin 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 1 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 0 1 MODULE RNOVMS ( IDENT = 'X00.06', %TITLE 'RNOVMS - RUNOFF VMS Command Line Interface' 0 2 MAIN = RNOVMS, ! Entry point of main program 0 3 ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) 0 4 ) = 0 5 BEGIN 1 6 1 7 ! 1 8 ! COPYRIGHT (c) 1980 BY 1 9 ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 1 10 ! 1 11 ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 1 12 ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 1 13 ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 1 14 ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 1 15 ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 1 16 ! TRANSFERRED. 1 17 ! 1 18 ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 1 19 ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 1 20 ! CORPORATION. 1 21 ! 1 22 ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 1 23 ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 1 24 ! 1 25 1 26 !++ 1 27 ! 1 28 ! FACILITY: BLISS Library 1 29 ! 1 30 ! ABSTRACT: 1 31 ! 1 32 ! This module is the RUNOFF VMS Command Line interface module. 1 33 ! 1 34 ! ENVIRONMENT: User Mode 1 35 ! 1 36 ! AUTHOR: Ward Clark, CREATION DATE: 21 May 1979 1 37 ! 1 38 !-- RNOVMS RNOVMS - RUNOFF VMS Command Lin 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 2 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 40 ! 1 41 ! TABLE OF CONTENTS: 1 42 ! 1 43 1 44 FORWARD ROUTINE 1 45 rnovms, ! RUNOFF VMS command interface routine 1 46 debug_parse : NOVALUE, ! /DEBUG qualifier value parse routine 1 47 messages_parse : NOVALUE, ! /MESSAGES qualifier value parse routine 1 48 underline_parse : NOVALUE; ! /UNDERLINE qualifier value parse routine 1 49 1 50 ! 1 51 ! INCLUDE FILES: 1 52 ! 1 53 1 54 LIBRARY 'BLI:XPORT' ; ! XPORT macro and field definitions 1 56 1 57 REQUIRE 'RNOMAC' ; ! RUNOFF macro and field definitions 1 124 undeclare %quote $descriptor; 1 125 1 126 LIBRARY 'SYS$LIBRARY:CLIMAC' ; ! VMS DCL CLI interface macros 1 128 LIBRARY 'SYS$LIBRARY:STARLET' ; ! and symbol definitions 1 130 1 131 ! 1 132 ! MACROS: 1 133 ! 1 134 1 135 ! 1 136 ! EQUATED SYMBOLS: 1 137 ! 1 138 1 139 LITERAL 1 140 yes = 1, ! Used to turn indicators on 1 141 no = 0; ! Used to turn indicators off 1 142 1 143 ! 1 144 ! OWN STORAGE: 1 145 ! 1 146 1 147 ! See below 1 148 1 149 ! 1 150 ! EXTERNAL REFERENCES: 1 151 ! 1 152 1 153 EXTERNAL ROUTINE 1 154 RUNOFF, ! Transportable RUNOFF entry point 1 155 XPO$CHAR_PARSE, ! XPORT character value parse routine 1 156 XPO$SHORT_PARSE, ! XPORT short integer parse routine 1 157 XPO$STR_PARSE, ! XPORT string parse routine 1 158 XPO$CLI_ERROR, ! XPORT DCL error routine 1 159 LIB$LOOKUP_KEY : ADDRESSING_MODE(GENERAL); ! VMS OTS keyword lookup routine 1 160 1 161 EXTERNAL 1 162 XPO$CLI_WORK; ! DCL CLI "work area" - life-of-image control block RNOVMS RUNOFF DCL CLI Control Blocks a 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 3 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 164 %TITLE 'RUNOFF DCL CLI Control Blocks and Work Areas' 1 165 OWN 1 166 runoff_command : $RNO_CMD; ! RUNOFF command information block 1 167 1 168 $CLIQUALCODES( RUNOFF, ! Define the RUNOFF qualifier codes P 1 169 BACKSPACE, P 1 170 BOLD, P 1 171 CHANGE_BARS, P 1 172 DEBUG, P 1 173 DOWN, P 1 174 FORM_SIZE, P 1 175 MESSAGES, P 1 176 OVERPRINT, P 1 177 PAGES, P 1 178 PAUSE, P 1 179 RIGHT, P 1 180 SEQUENCE, P 1 181 SIMULATE, P 1 182 UNDERLINE, P 1 183 VARIANT ); 1 184 1 185 $LITERAL 1 186 backspace_bit = $DISTINCT, 1 187 bold_bit = $DISTINCT, 1 188 change_bars_bit = $DISTINCT, 1 189 contents_bit = $DISTINCT, 1 190 debug_bit = $DISTINCT, 1 191 down_bit = $DISTINCT, 1 192 form_size_bit = $DISTINCT, 1 193 index_bit = $DISTINCT, 1 194 messages_bit = $DISTINCT, 1 195 overprint_bit = $DISTINCT, 1 196 pages_bit = $DISTINCT, 1 197 pause_bit = $DISTINCT, 1 198 right_bit = $DISTINCT, 1 199 sequence_bit = $DISTINCT, 1 200 simulate_bit = $DISTINCT, 1 201 underline_bit = $DISTINCT, 1 202 variant_bit = $DISTINCT, 1 203 max_qual_bit = $DISTINCT - 1; 1 204 1 205 OWN 1 206 runoff_qual : BITVECTOR[ max_qual_bit+1 ] PRESET( [underline_bit] = yes ); 1 207 1 208 ! 1 209 ! Command Qualifier Descriptors 1 210 ! 1 211 1 212 OWN 1 213 backspace_qual : 1 214 $CLIQUALDESC( QDCODE = BACKSPACE, P 1 215 SETLST = backspace_bit ), ................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 216 1 217 bold_qual : RNOVMS RUNOFF DCL CLI Control Blocks a 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 4 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 218 $CLIQUALDESC( QDCODE = BOLD, P 1 219 SETLST = bold_bit, P 1 220 TRUACT = XPO$SHORT_PARSE, P 1 221 USRVAL = runoff_command[RNO$H_BOLD] ), .............................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 222 1 223 change_bar_qual : 1 224 $CLIQUALDESC( QDCODE = CHANGE_BARS, P 1 225 SETLST = change_bars_bit, P 1 226 TRUACT = XPO$CHAR_PARSE, P 1 227 USRVAL = runoff_command[RNO$C_CHANGE] ), ...............................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 228 1 229 debug_qual : 1 230 $CLIQUALDESC( QDCODE = DEBUG, P 1 231 SETLST = debug_bit, P 1 232 TRUACT = debug_parse ), ..............................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 233 1 234 down_qual : 1 235 $CLIQUALDESC( QDCODE = DOWN, P 1 236 SETLST = down_bit, P 1 237 TRUACT = XPO$SHORT_PARSE, P 1 238 USRVAL = runoff_command[RNO$H_DOWN] ), .............................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 239 1 240 form_size_qual : 1 241 $CLIQUALDESC( QDCODE = FORM_SIZE, P 1 242 SETLST = form_size_bit, P 1 243 TRUACT = XPO$SHORT_PARSE, P 1 244 USRVAL = runoff_command[RNO$H_FORM_SIZE] ), ..................................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 245 1 246 messages_qual : 1 247 $CLIQUALDESC( QDCODE = MESSAGES, P 1 248 SETLST = messages_bit, P 1 249 TRUACT = messages_parse ), .................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 250 1 251 overprint_qual : 1 252 $CLIQUALDESC( QDCODE = OVERPRINT, RNOVMS RUNOFF DCL CLI Control Blocks a 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 5 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 P 1 253 SETLST = overprint_bit ), ................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 254 1 255 pages_qual : 1 256 $CLIQUALDESC( QDCODE = PAGES, P 1 257 SETLST = pages_bit, P 1 258 TRUACT = XPO$STR_PARSE, P 1 259 USRVAL = runoff_command[RNO$T_PAGES] ), ..............................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 260 1 261 pause_qual : 1 262 $CLIQUALDESC( QDCODE = PAUSE, P 1 263 SETLST = pause_bit ), ............................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 264 1 265 right_qual : 1 266 $CLIQUALDESC( QDCODE = RIGHT, P 1 267 SETLST = right_bit, P 1 268 TRUACT = XPO$SHORT_PARSE, P 1 269 USRVAL = runoff_command[RNO$H_RIGHT] ), ..............................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 270 1 271 sequence_qual : 1 272 $CLIQUALDESC( QDCODE = SEQUENCE, P 1 273 SETLST = sequence_bit ), ...............................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 274 1 275 simulate_qual : 1 276 $CLIQUALDESC( QDCODE = SIMULATE, P 1 277 SETLST = simulate_bit ), ...............................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 278 1 279 underline_qual : 1 280 $CLIQUALDESC( QDCODE = UNDERLINE, P 1 281 SETLST = underline_bit, P 1 282 TRUACT = underline_parse, P 1 283 USRVAL = runoff_command[RNO$C_UNDERLINE] ), ..................................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 284 1 285 variant_qual : 1 286 $CLIQUALDESC( QDCODE = VARIANT, P 1 287 SETLST = variant_bit, P 1 288 TRUACT = XPO$STR_PARSE, RNOVMS RUNOFF DCL CLI Control Blocks a 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 6 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 P 1 289 USRVAL = runoff_command[RNO$T_VARIANT] ), ................................................................1 %BLS32-W-TEXT, (1) Alignment less than default will cause reduced performance 1 290 1 291 end_of_qual : 1 292 $CLIQUALEND, 1 293 1 294 ! 1 295 ! VMS DCL Command Language Interpreter control blocks and work areas 1 296 ! 1 297 1 298 initial_desc : ! CLI initialization descriptor: 1 299 $CLIREQDESC( RQTYPE = INITPRS, ! initialization indicator P 1 300 RQFLGS = ABSADR, ! absolute address indicator P 1 301 ERRACT = XPO$CLI_ERROR ), ! address of error action routine 1 302 1 303 command_desc : ! Command qualifiers request descriptor: 1 304 $CLIREQDESC( RQTYPE = GETQUAL, ! command-level qualifiers request P 1 305 RQFLGS = ABSADR, ! absolute address indicator P 1 306 ERRACT = XPO$CLI_ERROR, ! address of error action routine P 1 307 QUALST = backspace_qual ), ! address of qualifier descriptors 1 308 1 309 input_file_desc : ! Input file request descriptor: 1 310 $CLIREQDESC( RQTYPE = INPUT1, ! primary input indicator P 1 311 RQFLGS = ABSADR, ! absolute address indicator P 1 312 ERRACT = XPO$CLI_ERROR, ! address of error action routine P 1 313 QUALST = 0 ), ! address of qualifier descriptors (none) 1 314 1 315 output_desc : ! Output file request descriptor: 1 316 $CLIREQDESC( RQTYPE = OUTPUT1, ! primary output indicator P 1 317 RQFLGS = ABSADR, ! absolute address indicator P 1 318 ERRACT = XPO$CLI_ERROR, ! address of error action routine P 1 319 QUALST = 0 ), ! address of qualifier descriptors (none) 1 320 1 321 contents_desc : ! Table-of-contents file request descriptor: 1 322 $CLIREQDESC( RQTYPE = OUTPUT2, ! secondary output indicator P 1 323 RQFLGS = ABSADR, ! absolute address indicator P 1 324 BITNUM = contents_bit, ! runoff_qual bit to set P 1 325 ERRACT = XPO$CLI_ERROR, ! address of error action routine P 1 326 QUALST = 0 ), ! address of qualifier descriptors (none) 1 327 1 328 index_desc : ! Binary-index file request descriptor: 1 329 $CLIREQDESC( RQTYPE = OUTPUT3, ! tertiary output indicator P 1 330 RQFLGS = ABSADR, ! absolute address indicator P 1 331 BITNUM = index_bit, ! runoff_qual bit to set P 1 332 ERRACT = XPO$CLI_ERROR, ! address of error action routine P 1 333 QUALST = 0 ), ! address of qualifier descriptors (none) 1 334 1 335 end_of_cmd_desc : ! Parameter "cleanup" request descriptor: 1 336 $CLIREQDESC( RQTYPE = ENDPRM1, ! parameter cleanup indicator P 1 337 RQFLGS = ABSADR, ! absolute address indicator P 1 338 ERRACT = XPO$CLI_ERROR ), ! address of error action routine 1 339 1 340 str_parse_desc : ! ASCII string value parse request descriptor: 1 341 $CLIREQDESC( RQTYPE = ASCIIVAL, ! ASCII string value parse indicator P 1 342 RQFLGS = ABSADR, ! absolute address indicator RNOVMS RUNOFF DCL CLI Control Blocks a 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 7 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 P 1 343 ERRACT = XPO$CLI_ERROR ); ! address of error action routine RNOVMS RNOVMS - Primary RUNOFF CLI Int 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 8 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 345 GLOBAL ROUTINE rnovms = %TITLE 'RNOVMS - Primary RUNOFF CLI Interface Routine' 1 346 1 347 !++ 1 348 ! 1 349 ! FUNCTIONAL DESCRIPTION: 1 350 ! 1 351 ! This routine uses the VMS DCL CLI routines to obtain command 1 352 ! line information which is in turn passed to the RUNOFF application 1 353 ! in a transportable manner. 1 354 ! 1 355 ! FORMAL PARAMETERS: 1 356 ! 1 357 ! None 1 358 ! 1 359 ! IMPLICIT INPUTS: 1 360 ! 1 361 ! None 1 362 ! 1 363 ! IMPLICIT OUTPUTS: 1 364 ! 1 365 ! None 1 366 ! 1 367 ! COMPLETION CODES: 1 368 ! 1 369 ! completion code from RUNOFF 1 370 ! 1 371 ! SIDE EFFECTS: 1 372 ! 1 373 ! None 1 374 ! 1 375 !-- 1 376 1 377 BEGIN 2 378 2 379 BUILTIN 2 380 AP; ! Declare the name of the argument pointer ........1 %BLS32-W-TEXT, (1) Unknown name in BUILTIN declaration: AP 2 381 2 382 LOCAL 2 383 status; ! Temporary routine completion code 2 384 2 385 ! 2 386 ! Initialize the VMS DCL CLI facility. 2 387 ! 2 388 2 389 $XPO_CALL_CLI( initial_desc, XPO$CLI_WORK, runoff_qual ); 2 390 2 391 ! 2 392 ! Initialize the RUNOFF command block. 2 393 ! 2 394 2 395 DO 2 396 BEGIN 3 397 3 398 BEGIN RNOVMS RNOVMS - Primary RUNOFF CLI Int 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 9 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 4 399 MAP runoff_command : VECTOR; 4 400 4 401 INCR index FROM 0 TO RNO$K_CMD_LEN / %UPVAL - 1 DO 4 402 runoff_command[.index] = 0; 4 403 END; 3 404 3 405 runoff_command[RNO$C_CHANGE] = %X'FF'; 3 406 runoff_command[RNO$C_UNDERLINE] = %X'FF'; 3 407 3 408 ! 3 409 ! Process all RUNOFF command qualifiers. 3 410 ! 3 411 3 412 $XPO_CALL_CLI( command_desc, XPO$CLI_WORK, runoff_qual ); 3 413 3 414 ! 3 415 ! Process each set of input and output parameters. 3 416 ! 3 417 3 418 $XPO_CALL_CLI( input_file_desc, XPO$CLI_WORK, runoff_qual ); 3 419 3 420 $XPO_CALL_CLI( output_desc, XPO$CLI_WORK, runoff_qual ); 3 421 3 422 $XPO_CALL_CLI( contents_desc, XPO$CLI_WORK, runoff_qual ); 3 423 3 424 $XPO_CALL_CLI( index_desc, XPO$CLI_WORK, runoff_qual ); 3 425 3 426 $XPO_CALL_CLI( end_of_cmd_desc, XPO$CLI_WORK, runoff_qual ); 3 427 3 428 ! 3 429 ! Complete the RUNOFF command block (RNOCMD) from the information returned by the DCL CLI. 3 430 ! NOTE : Some RNOCMD fields are set by qualifier action routines. 3 431 ! 3 432 3 433 $STR_DESC_INIT( DESCRIPTOR = runoff_command[RNO$T_INPUT], P 3 434 STRING = ( .input_file_desc[CLI$W_RQSIZE], .input_file_desc[CLI$A_RQADDR] ) ); 3 435 3 436 $STR_DESC_INIT( DESCRIPTOR = runoff_command[RNO$T_OUTPUT], P 3 437 STRING = ( .output_desc[CLI$W_RQSIZE], .output_desc[CLI$A_RQADDR] ) ); 3 438 3 439 $STR_DESC_INIT( DESCRIPTOR = runoff_command[RNO$T_CONTENTS], P 3 440 STRING = ( .contents_desc[CLI$W_RQSIZE], .contents_desc[CLI$A_RQADDR] ) ); 3 441 3 442 $STR_DESC_INIT( DESCRIPTOR = runoff_command[RNO$T_INDEX], P 3 443 STRING = ( .index_desc[CLI$W_RQSIZE], .index_desc[CLI$A_RQADDR] ) ); 3 444 3 445 runoff_command[RNO$V_BACKSPACE] = .runoff_qual[backspace_bit]; 3 446 runoff_command[RNO$V_CHANGE] = .runoff_qual[change_bars_bit]; 3 447 runoff_command[RNO$V_CONTENTS] = .runoff_qual[contents_bit]; 3 448 runoff_command[RNO$V_INDEX] = .runoff_qual[index_bit]; 3 449 runoff_command[RNO$V_OVERPRINT] = .runoff_qual[overprint_bit]; 3 450 runoff_command[RNO$V_PAUSE] = .runoff_qual[pause_bit]; 3 451 runoff_command[RNO$V_SEQUENCE] = .runoff_qual[sequence_bit]; 3 452 runoff_command[RNO$V_SIMULATE] = .runoff_qual[simulate_bit]; 3 453 runoff_command[RNO$V_UNDERLINE] = .runoff_qual[underline_bit]; 3 454 3 455 IF .runoff_command[RNO$C_CHANGE] EQLU %X'FF' RNOVMS RNOVMS - Primary RUNOFF CLI Int 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 10 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 3 456 THEN 3 457 runoff_command[RNO$C_CHANGE] = 0 3 458 ELSE 3 459 runoff_command[RNO$V_CHNG_CHAR] = yes; 3 460 3 461 IF .runoff_command[RNO$C_UNDERLINE] EQLU %X'FF' 3 462 THEN 3 463 runoff_command[RNO$C_UNDERLINE] = 0 3 464 ELSE 3 465 runoff_command[RNO$V_UND_CHAR] = yes; 3 466 3 467 ! 3 468 ! Call the RUNOFF application to process a single command line. 3 469 ! 3 470 3 471 status = RUNOFF( runoff_command ); ! Pass the RUNOFF application the address 3 472 ! of the complete command information block. 3 473 3 474 IF NOT .status ! If RUNOFF returns a failure completion code, 3 475 THEN ! 3 476 EXITLOOP ! exit the input file-spec processing loop. 3 477 END 3 478 WHILE .end_of_cmd_desc[CLI$V_MOREINP]; ! Otherwise, loop until all input file-spec 2 479 ! have been processed. 2 480 2 481 ! 2 482 ! Return to the system. 2 483 ! 2 484 2 485 RETURN .status ! Return the final RUNOFF completion code to the caller. 2 486 2 487 END; RNOVMS RNOVMS - /DEBUG Qualifier Value 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 11 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 489 %TITLE 'RNOVMS - /DEBUG Qualifier Value Parse' 1 490 ROUTINE debug_parse ( qualifier_desc ) : NOVALUE = 1 491 1 492 !++ 1 493 ! 1 494 ! FUNCTIONAL DESCRIPTION: 1 495 ! 1 496 ! This routine parses a /DEBUG qualifier value. 1 497 ! 1 498 ! FORMAL PARAMETERS: 1 499 ! 1 500 ! qualifier_desc.r.r - address of a qualifier descriptor 1 501 ! 1 502 ! IMPLICIT INPUTS: 1 503 ! 1 504 ! None 1 505 ! 1 506 ! IMPLICIT OUTPUTS: 1 507 ! 1 508 ! runoff_command - /DEBUG keyword indicators set 1 509 ! 1 510 ! ROUTINE VALUE: 1 511 ! 1 512 ! None 1 513 ! 1 514 ! SIDE EFFECTS: 1 515 ! 1 516 ! None 1 517 ! 1 518 !-- 1 519 1 520 BEGIN 2 521 2 522 MAP 2 523 qualifier_desc : REF BLOCK[,BYTE]; ! Redefine the qualifier descriptor parameter 2 524 2 525 OWN 2 526 debug_keys : ! /DEBUG keyword table 2 527 $XPO_KEY_TABLE( (CONDITIONALS,1), P 2 528 (CONTENTS,2), (FILES,3), (INDEX,4), (ALL,5) ); 2 529 2 530 LOCAL 2 531 qual_value_desc : VECTOR[2], ! Qualifier value descriptor before parsing 2 532 keyword_value, ! Keyword value area 2 533 status; ! Temporary routine completion code 2 534 2 535 ! 2 536 ! Setup a qualifier value descriptor for error messages. 2 537 ! 2 538 2 539 qual_value_desc[0] = ! Setup a qualifier value descriptor for error messages. 2 540 .qualifier_desc[CLI$W_QDVALSIZ]; 2 541 qual_value_desc[1] = .qualifier_desc[CLI$A_QDVALADR]; 2 542 2 543 ! 2 544 ! Process one qualifier keyword at a time. 2 545 ! RNOVMS RNOVMS - /DEBUG Qualifier Value 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 12 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 2 546 2 547 DO ! Loop until all values have been processed. 2 548 BEGIN 3 549 $XPO_CALL_CLI( str_parse_desc, XPO$CLI_WORK, .qualifier_desc ); 3 550 3 551 ! 3 552 ! Verify that a valid keyword was specified. 3 553 ! 3 554 3 555 status = LIB$LOOKUP_KEY( ! Call the keyword lookup routine with the following argumen 3 555 ts: 3 556 str_parse_desc[CLI$Q_RQDESC], ! address of the keyword descriptor 3 557 debug_keys, ! address of the /DEBUG keyword table 3 558 keyword_value ); ! address of keyword value deposit area 3 559 3 560 IF NOT .status 3 561 THEN 3 562 SIGNAL_STOP( CLI$_SYNTAX,1,qual_value_desc, 3 563 .status,1,str_parse_desc[CLI$Q_RQDESC] ); 3 564 3 565 ! 3 566 ! Record the specified keyword in the RUNOFF command block. 3 567 ! 3 568 3 569 CASE .keyword_value FROM 1 TO 5 OF 3 570 SET 3 571 3 572 [ 1 ] : runoff_command[RNO$V_DEB_COND] = yes; 3 573 3 574 [ 2 ] : runoff_command[RNO$V_DEB_CONT] = yes; 3 575 3 576 [ 3 ] : runoff_command[RNO$V_DEB_FILES] = yes; 3 577 3 578 [ 4 ] : runoff_command[RNO$V_DEB_INDEX] = yes; 3 579 3 580 [ 5 ] : 3 581 BEGIN 4 582 runoff_command[RNO$V_DEB_COND] = yes; 4 583 runoff_command[RNO$V_DEB_CONT] = yes; 4 584 runoff_command[RNO$V_DEB_FILES] = yes; 4 585 runoff_command[RNO$V_DEB_INDEX] = yes; 4 586 END; 3 587 3 588 TES; 3 589 END 3 590 WHILE .str_parse_desc[CLI$V_MOREVALS]; ! Loop until all keywords have been processed. 2 591 2 592 ! 2 593 ! Return to the DCL CLI. 2 594 ! 2 595 2 596 RETURN 2 597 2 598 END; RNOVMS RNOVMS - /MESSAGES Qualifier Va 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 13 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 600 %TITLE 'RNOVMS - /MESSAGES Qualifier Value Parse' 1 601 ROUTINE messages_parse ( qualifier_desc ) : NOVALUE = 1 602 1 603 !++ 1 604 ! 1 605 ! FUNCTIONAL DESCRIPTION: 1 606 ! 1 607 ! This routine parses a /MESSAGES qualifier value. 1 608 ! 1 609 ! FORMAL PARAMETERS: 1 610 ! 1 611 ! qualifier_desc.r.r - address of a qualifier descriptor 1 612 ! 1 613 ! IMPLICIT INPUTS: 1 614 ! 1 615 ! None 1 616 ! 1 617 ! IMPLICIT OUTPUTS: 1 618 ! 1 619 ! runoff_command - /MESSAGES keyword indicators set 1 620 ! 1 621 ! ROUTINE VALUE: 1 622 ! 1 623 ! None 1 624 ! 1 625 ! SIDE EFFECTS: 1 626 ! 1 627 ! None 1 628 ! 1 629 !-- 1 630 1 631 BEGIN 2 632 2 633 MAP 2 634 qualifier_desc : REF BLOCK[,BYTE]; ! Redefine the qualifier descriptor parameter 2 635 2 636 OWN 2 637 messages_keys : ! /MESSAGES keyword table 2 638 $XPO_KEY_TABLE( (USER,1), (OUTPUT,2) ); 2 639 2 640 LOCAL 2 641 qual_value_desc : VECTOR[2], ! Qualifier value descriptor before parsing 2 642 keyword_value, ! Keyword value area 2 643 status; ! Temporary routine completion code 2 644 2 645 ! 2 646 ! Setup a qualifier value descriptor for error messages. 2 647 ! 2 648 2 649 qual_value_desc[0] = ! Setup a qualifier value descriptor for error messages. 2 650 .qualifier_desc[CLI$W_QDVALSIZ]; 2 651 qual_value_desc[1] = .qualifier_desc[CLI$A_QDVALADR]; 2 652 2 653 ! 2 654 ! Process one qualifier keyword at a time. 2 655 ! 2 656 RNOVMS RNOVMS - /MESSAGES Qualifier Va 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 14 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 2 657 DO ! Loop until all values have been processed. 2 658 BEGIN 3 659 $XPO_CALL_CLI( str_parse_desc, XPO$CLI_WORK, .qualifier_desc ); 3 660 3 661 ! 3 662 ! Verify that a valid keyword was specified. 3 663 ! 3 664 3 665 status = LIB$LOOKUP_KEY( ! Call the keyword lookup routine with the following argumen 3 665 ts: 3 666 str_parse_desc[CLI$Q_RQDESC], ! address of the keyword descriptor 3 667 messages_keys, ! address of the /MESSAGES keyword table 3 668 keyword_value ); ! address of keyword value deposit area 3 669 3 670 IF NOT .status 3 671 THEN 3 672 SIGNAL_STOP( CLI$_SYNTAX,1,qual_value_desc, 3 673 .status,1,str_parse_desc[CLI$Q_RQDESC] ); 3 674 3 675 ! 3 676 ! Record the specified keyword in the RUNOFF command block. 3 677 ! 3 678 3 679 CASE .keyword_value FROM 1 TO 2 OF 3 680 SET 3 681 3 682 [ 1 ] : runoff_command[RNO$V_MSG_USER] = yes; 3 683 3 684 [ 2 ] : runoff_command[RNO$V_MSG_OUT] = yes; 3 685 3 686 TES; 3 687 END 3 688 WHILE .str_parse_desc[CLI$V_MOREVALS]; ! Loop until all keywords have been processed. 2 689 2 690 ! 2 691 ! Return to the DCL CLI. 2 692 ! 2 693 2 694 RETURN 2 695 2 696 END; RNOVMS RNOVMS - /UNDERLINE Qualifier V 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 15 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 1 698 %TITLE 'RNOVMS - /UNDERLINE Qualifier Value Parse' 1 699 ROUTINE underline_parse ( qualifier_desc ) : NOVALUE = 1 700 1 701 !++ 1 702 ! 1 703 ! FUNCTIONAL DESCRIPTION: 1 704 ! 1 705 ! This routine parses a /UNDERLINE qualifier value. 1 706 ! 1 707 ! FORMAL PARAMETERS: 1 708 ! 1 709 ! qualifier_desc.r.r - address of a qualifier descriptor 1 710 ! 1 711 ! IMPLICIT INPUTS: 1 712 ! 1 713 ! None 1 714 ! 1 715 ! IMPLICIT OUTPUTS: 1 716 ! 1 717 ! runoff_command - /UNDERLINE keyword indicators/value set 1 718 ! 1 719 ! ROUTINE VALUE: 1 720 ! 1 721 ! None 1 722 ! 1 723 ! SIDE EFFECTS: 1 724 ! 1 725 ! None 1 726 ! 1 727 !-- 1 728 1 729 BEGIN 2 730 2 731 MAP 2 732 qualifier_desc : REF BLOCK[,BYTE]; ! Redefine the qualifier descriptor parameter 2 733 2 734 OWN 2 735 underline_keys : ! /UNDERLINE keyword table 2 736 $XPO_KEY_TABLE( (NONSPACING,1), (SEPARATE,2) ); 2 737 2 738 LOCAL 2 739 qual_value_desc : VECTOR[2], ! Qualifier value descriptor before parsing 2 740 keyword_value, ! Keyword value area 2 741 status, ! Temporary routine completion code 2 742 first_character; ! Single character 2 743 2 744 ! 2 745 ! Setup a qualifier value descriptor for error messages. 2 746 ! 2 747 2 748 qual_value_desc[0] = ! Setup a qualifier value descriptor for error messages. 2 749 .qualifier_desc[CLI$W_QDVALSIZ]; 2 750 qual_value_desc[1] = .qualifier_desc[CLI$A_QDVALADR]; 2 751 2 752 ! 2 753 ! Process one qualifier value at a time. 2 754 ! RNOVMS RNOVMS - /UNDERLINE Qualifier V 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 16 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 2 755 2 756 DO ! Loop until all values have been processed. 2 757 2 758 ! 2 759 ! Parse a character value of the form "c", 123, %O377 or %X01FF. 2 760 ! 2 761 2 762 IF CH$RCHAR( .qualifier_desc[CLI$A_QDVALADR] ) ! If the 1st character of the value is 2 763 LSSU %C'A' OR ! not an upper case letter, 2 764 CH$RCHAR( .qualifier_desc[CLI$A_QDVALADR] ) ! 2 765 GTRU %C'Z' ! 2 766 THEN ! 2 767 XPO$CHAR_PARSE( .qualifier_desc ) ! convert and store the character. 2 768 2 769 ! 2 770 ! Get a qualifier keyword from the DCL CLI. 2 771 ! 2 772 2 773 ELSE 2 774 BEGIN 3 775 $XPO_CALL_CLI( str_parse_desc, XPO$CLI_WORK, .qualifier_desc ); 3 776 3 777 ! 3 778 ! Verify that a valid keyword was specified. 3 779 ! 3 780 3 781 status = LIB$LOOKUP_KEY( ! Call the keyword lookup routine with the following argumen 3 781 ts: 3 782 str_parse_desc[CLI$Q_RQDESC], ! address of the keyword descriptor 3 783 underline_keys, ! address of the /UNDERLINE keyword table 3 784 keyword_value ); ! address of keyword value deposit area 3 785 3 786 IF NOT .status 3 787 THEN 3 788 SIGNAL_STOP( CLI$_SYNTAX,1,qual_value_desc, 3 789 .status,1,str_parse_desc[CLI$Q_RQDESC] ); 3 790 3 791 ! 3 792 ! Record the specified keyword in the RUNOFF command block. 3 793 ! 3 794 3 795 CASE .keyword_value FROM 1 TO 2 OF 3 796 SET 3 797 3 798 [ 1 ] : runoff_command[RNO$V_UND_NONSP] = yes; 3 799 3 800 [ 2 ] : runoff_command[RNO$V_UND_SEPAR] = yes; 3 801 3 802 TES; 3 803 END 3 804 WHILE .str_parse_desc[CLI$V_MOREVALS]; ! Loop until all keywords have been processed. 2 805 2 806 ! 2 807 ! Return to the DCL CLI. 2 808 ! 2 809 2 810 RETURN RNOVMS RNOVMS - /UNDERLINE Qualifier V 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 17 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 2 811 2 812 END; 1 813 END 1 814 ELUDOM RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 18 X00.06 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC .proc RNOVMS .align 32 .global RNOVMS RNOVMS: // 000345 { .mii 002C055B1CC0 0000 alloc r115 = rspfs, 0, 85, 3, 0 012000100A80 0001 add r42 = @ltoff(INITIAL_DESC), r1 // 000389 012000100A40 0002 add r41 = @ltoff(XPO$CLI_WORK), r1 } { .mii 012000100A00 0010 add r40 = @ltoff(RUNOFF_QUAL), r1 000188001C80 0011 mov r114 = br0 // 000345 010800101D00 0012 mov r116 = r1 ;; } { .mii 0080C2800A00 0020 ld8 r40 = RUNOFF_QUAL // r40 = [r40] // 000389 012000006640 0021 mov r25 = 3 012FF80FEB00 0022 addl r44 = 65535, r0 // 000405 } { .mmi 0080C2A00A80 0030 ld8 r42 = INITIAL_DESC // r42 = [r42] // 000389 0080C2900A40 0031 ld8 r41 = XPO$CLI_WORK // r41 = [r41] 01201001CAC0 0032 mov r43 = 270 ;; // 000434 } { .mii 000008000000 0040 nop.m 0 0000B2801DC0 0041 sxt4 r119 = r40 // 000389 0000B2901D80 0042 sxt4 r118 = r41 } { .mib 000008000000 0050 nop.m 0 0000B2A01D40 0051 sxt4 r117 = r42 00A000001000 0052 br.call.sptk.many br0 = SYS$CLI } { .mfi 010807400040 0060 mov r1 = r116 000008000000 0061 nop.f 0 000008000000 0062 nop.i 0 ;; } 0070 L$2: // 000401 { .mii 010802A38B40 0070 adds r45 = 28, r42 // 000412 0119FA8C8A00 0071 adds r40 = -28, r40 // 000405 010802A70CC0 0072 adds r51 = 56, r42 // 000418 } { .mii 012000006640 0080 mov r25 = 3 // 000412 0000B2901D80 0081 sxt4 r118 = r41 010802AA8D00 0082 adds r52 = 84, r42 ;; // 000420 } { .mii 010802AE0D40 0090 adds r53 = 112, r42 // 000422 01080AA18D80 0091 adds r54 = 140, r42 // 000424 0000B2D01D40 0092 sxt4 r117 = r45 // 000412 } { .mmi RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 19 X00.06 RNOVMS 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 00BC4A859A00 00A0 st2 [r40] = r44, -24 // 000405 01080AA50DC0 00A1 adds r55 = 168, r42 // 000426 01080AA315C0 00A2 adds r87 = 152, r42 ;; // 000443 } { .mii 00BC8A801F00 00B0 st4 [r40] = r0, -4 // 000402 01080AA29480 00B1 adds r82 = 148, r42 // 000443 0120080FF8C0 00B2 mov r99 = 255 ;; // 000455 } { .mmi 00BC8A801F00 00C0 st4 [r40] = r0, -4 ;; // 000402 00BC8A801F00 00C1 st4 [r40] = r0, -4 000008000000 00C2 nop.i 0 ;; } { .mmi 00AC82801000 00D0 st4 [r40] = r0, 64 ;; 000008000000 00D1 nop.m 0 0000B2801DC0 00D2 sxt4 r119 = r40 // 000412 } { .mfb 000008000000 00E0 nop.m 0 000008000000 00E1 nop.f 0 00A000001000 00E2 br.call.sptk.many br0 = SYS$CLI ;; } { .mii 012000006640 00F0 mov r25 = 3 // 000418 0000B2801DC0 00F1 sxt4 r119 = r40 0000B2901D80 00F2 sxt4 r118 = r41 } { .mib 010807400040 0100 mov r1 = r116 // 000412 0000B3301D40 0101 sxt4 r117 = r51 // 000418 004000000000 0102 nop.b 0 ;; } { .mfb 000008000000 0110 nop.m 0 000008000000 0111 nop.f 0 00A000001000 0112 br.call.sptk.many br0 = SYS$CLI } { .mii 012000006640 0120 mov r25 = 3 // 000420 0000B2801DC0 0121 sxt4 r119 = r40 0000B2901D80 0122 sxt4 r118 = r41 } { .mib 010807400040 0130 mov r1 = r116 // 000418 0000B3401D40 0131 sxt4 r117 = r52 // 000420 004000000000 0132 nop.b 0 ;; } { .mfb 000008000000 0140 nop.m 0 000008000000 0141 nop.f 0 00A000001000 0142 br.call.sptk.many br0 = SYS$CLI } { .mii 012000006640 0150 mov r25 = 3 // 000422 0000B2801DC0 0151 sxt4 r119 = r40 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 20 X00.06 RNOVMS 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 0000B2901D80 0152 sxt4 r118 = r41 } { .mib 010807400040 0160 mov r1 = r116 // 000420 0000B3501D40 0161 sxt4 r117 = r53 // 000422 004000000000 0162 nop.b 0 ;; } { .mfb 000008000000 0170 nop.m 0 000008000000 0171 nop.f 0 00A000001000 0172 br.call.sptk.many br0 = SYS$CLI } { .mii 012000006640 0180 mov r25 = 3 // 000424 0000B2801DC0 0181 sxt4 r119 = r40 0000B2901D80 0182 sxt4 r118 = r41 } { .mib 010807400040 0190 mov r1 = r116 // 000422 0000B3601D40 0191 sxt4 r117 = r54 // 000424 004000000000 0192 nop.b 0 ;; } { .mfb 000008000000 01A0 nop.m 0 000008000000 01A1 nop.f 0 00A000001000 01A2 br.call.sptk.many br0 = SYS$CLI } { .mii 012000006640 01B0 mov r25 = 3 // 000426 0000B2801DC0 01B1 sxt4 r119 = r40 0000B2901D80 01B2 sxt4 r118 = r41 } { .mib 010807400040 01C0 mov r1 = r116 // 000424 0000B3701D40 01C1 sxt4 r117 = r55 // 000426 004000000000 01C2 nop.b 0 ;; } { .mfb 000008000000 01D0 nop.m 0 000008000000 01D1 nop.f 0 00A000001000 01D2 br.call.sptk.many br0 = SYS$CLI } { .mmi 010802A80A80 01E0 adds r42 = 64, r42 // 000434 00B0CA880E80 01E1 ld8 r58 = [r40], -64 // 000445 010807400040 01E2 mov r1 = r116 ;; // 000426 } { .mmi 00A042A38E00 01F0 ld2 r56 = [r42], 28 // 000434 0080857015C0 01F1 ld4 r87 = [r87] // 000443 00A403A04FC0 01F2 extr.u r63 = r58, 1, 1 ;; // 000445 } { .mmi 00B04AAD0E40 0200 ld2 r57 = [r42], -24 // 000437 008045201480 0201 ld2 r82 = [r82] // 000443 00A403A0D100 0202 extr.u r68 = r58, 3, 1 ;; // 000446 } RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 21 X00.06 RNOVMS 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 { .mmi 00AC42870080 0210 st2 [r40] = r56, 2 // 000434 00A082A70EC0 0211 ld4 r59 = [r42], 56 00A403A11180 0212 extr.u r70 = r58, 4, 1 ;; // 000447 } { .mmi 00AC42856180 0220 st2 [r40] = r43, 6 // 000434 00B08AAC9580 0221 ld4 r86 = [r42], -28 // 000440 00A403A21200 0222 extr.u r72 = r58, 8, 1 ;; // 000448 } { .mmi 00BC4A873F00 0230 st2 [r40] = r57, -4 // 000437 00A082A31540 0231 ld4 r85 = [r42], 24 00A403A29280 0232 extr.u r74 = r58, 10, 1 ;; // 000449 } { .mmi 00AC82876180 0240 st4 [r40] = r59, 6 // 000434 00B04AA11400 0241 ld2 r80 = [r42], -120 // 000440 00A403A31300 0242 extr.u r76 = r58, 12, 1 ;; // 000450 } { .mii 00AC42856580 0250 st2 [r40] = r43, 22 // 000437 00A403A39380 0251 extr.u r78 = r58, 14, 1 // 000451 00A403A3D440 0252 extr.u r81 = r58, 15, 1 ;; // 000452 } { .mii 00B08A8F9080 0260 ld4 r66 = [r40], -4 // 000445 00A403A40E80 0261 extr.u r58 = r58, 16, 1 ;; // 000453 009F8427EFC0 0262 dep r63 = r63, r66, 0, 1 ;; // 000445 } { .mii 00AC828AE100 0270 st4 [r40] = r87, 4 // 000443 0000B3F00FC0 0271 sxt4 r63 = r63 ;; // 000445 009F03F89100 0272 dep r68 = r68, r63, 1, 1 ;; // 000446 } { .mii 00BC8A87FD00 0280 st4 [r40] = r63, -12 // 000445 0000B4401100 0281 sxt4 r68 = r68 ;; // 000446 009E0448D180 0282 dep r70 = r70, r68, 3, 1 ;; // 000447 } { .mii 00BC8A8ADE00 0290 st4 [r40] = r86, -8 // 000440 0000B4601180 0291 sxt4 r70 = r70 ;; // 000447 009B84691200 0292 dep r72 = r72, r70, 8, 1 ;; // 000448 } { .mii 00AC828AA380 02A0 st4 [r40] = r85, 14 // 000437 0000B4801200 02A1 sxt4 r72 = r72 ;; // 000448 009A04895280 02A2 dep r74 = r74, r72, 11, 1 ;; // 000449 } { .mii 00BC4A857F80 02B0 st2 [r40] = r43, -2 // 000443 0000B4A01280 02B1 sxt4 r74 = r74 ;; // 000449 009984A99300 02B2 dep r76 = r76, r74, 12, 1 ;; // 000450 } { .mii 00BC4A8A5E80 02C0 st2 [r40] = r82, -6 // 000443 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 22 X00.06 RNOVMS 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 0000B4C01300 02C1 sxt4 r76 = r76 ;; // 000450 009904C9D380 02C2 dep r78 = r78, r76, 13, 1 ;; // 000451 } { .mii 00BC4A857F80 02D0 st2 [r40] = r43, -2 // 000440 0000B4E01380 02D1 sxt4 r78 = r78 ;; // 000451 009884EA3440 02D2 dep r81 = r81, r78, 14, 1 ;; // 000452 } { .mii 00AC428A0500 02E0 st2 [r40] = r80, 20 // 000440 0000B5101440 02E1 sxt4 r81 = r81 ;; // 000452 009785174E80 02E2 dep r58 = r58, r81, 16, 1 ;; // 000453 } { .mii 00B00A8F97C0 02F0 ld1 r95 = [r40], -4 // 000455 0000B3A00E80 02F1 sxt4 r58 = r58 ;; // 000453 01C4363BE000 02F2 cmp4.eq pr0, pr6 = r95, r99 // 000455 } { .mmi 008C82888000 0300 st4 [r40] = r68 ;; // 000446 008C8288C000 0301 st4 [r40] = r70 // 000447 000008000000 0302 nop.i 0 } { .mmi 008C82890000 0310 st4 [r40] = r72 ;; // 000448 008C82894000 0311 st4 [r40] = r74 // 000449 000008000000 0312 nop.i 0 } { .mmi 008C82898000 0320 st4 [r40] = r76 ;; // 000450 008C8289C000 0321 st4 [r40] = r78 // 000451 000008000000 0322 nop.i 0 } { .mmi 008C828A2000 0330 st4 [r40] = r81 ;; // 000452 00AC82874800 0331 st4 [r40] = r58, 32 // 000453 000008000000 0332 nop.i 0 } { .mfb 000008000000 0340 nop.m 0 000008000000 0341 nop.f 0 008600006006 0342 (pr6) br.cond.dpnt.few L$3 ;; // 000455 } { .mmi 0119FA8C8A00 0350 adds r40 = -28, r40 ;; // 000457 00AC02800700 0351 st1 [r40] = r0, 28 000008000000 0352 nop.i 0 } { .mfb 000008000000 0360 nop.m 0 000008000000 0361 nop.f 0 008000006000 0362 br.sptk.few L$5 ;; // 000455 } 0370 L$3: { .mii 010173A08E80 0370 or r58 = 4, r58 // 000459 0119FA8C0A00 0371 adds r40 = -32, r40 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 23 X00.06 RNOVMS 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 000008000000 0372 nop.i 0 ;; } { .mmi 00AC82874800 0380 st4 [r40] = r58, 32 ;; 000008000000 0381 nop.m 0 000008000000 0382 nop.i 0 } 0390 L$5: // 000455 { .mmi 0119FA8CAA00 0390 adds r40 = -27, r40 ;; // 000461 00A002837AC0 0391 ld1 r107 = [r40], 27 000008000000 0392 nop.i 0 ;; } { .mfb 01C4463D6000 03A0 cmp4.eq pr0, pr8 = r107, r99 000008000000 03A1 nop.f 0 008600006008 03A2 (pr8) br.cond.dpnt.few L$6 } { .mmi 0119FA8CAA00 03B0 adds r40 = -27, r40 ;; // 000463 00AC028006C0 03B1 st1 [r40] = r0, 27 000008000000 03B2 nop.i 0 } { .mfb 000008000000 03C0 nop.m 0 000008000000 03C1 nop.f 0 008000008000 03C2 br.sptk.few L$8 ;; // 000461 } 03D0 L$6: { .mii 0119FA8C0A00 03D0 adds r40 = -32, r40 // 000465 012002001B80 03D1 addl r110 = 524288, r0 000008000000 03D2 nop.i 0 ;; } { .mmi 008082801B40 03E0 ld4 r109 = [r40] ;; 010076EDBB40 03E1 or r109 = r109, r110 000008000000 03E2 nop.i 0 ;; } { .mmi 00AC828DA800 03F0 st4 [r40] = r109, 32 ;; 000008000000 03F1 nop.m 0 000008000000 03F2 nop.i 0 } 0400 L$8: // 000461 { .mii 01080AA51C40 0400 adds r113 = 168, r42 // 000478 0119FA881C00 0401 adds r112 = -64, r40 // 000471 012000002640 0402 mov r25 = 1 ;; } { .mib 000008000000 0410 nop.m 0 0000B7001D40 0411 sxt4 r117 = r112 00A000001000 0412 br.call.sptk.many br0 = RUNOFF } { .mii 008087101C40 0420 ld4 r113 = [r113] // 000478 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 24 X00.06 RNOVMS 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 00A0308001C0 0421 tbit.z pr7, pr6 = STATUS, 0 // pr7, pr6 = r8, 0 // 000474 010807400040 0422 mov r1 = r116 ;; // 000471 } { .mii 000008000000 0430 nop.m 0 00A407169C40 0431 extr.u r113 = r113, 26, 1 ;; // 000478 00A047100240 0432 tbit.z pr9, pr8 = r113, 0 ;; // 000395 } { .mfb 01C230000009 0440 (pr9) cmp.eq.or.andcm pr0, pr6 = r0, r0 000008000000 0441 nop.f 0 0095FFF86006 0442 (pr6) br.cond.dptk.few L$2 } { .mib 000008000000 0450 nop.m 0 0000B0800200 0451 sxt4 r8 = r8 // 000485 004000000000 0452 nop.b 0 } { .mii 000008000000 0460 nop.m 0 0001540E6000 0461 mov.i rspfs = r115 000E001E4000 0462 mov br0 = r114 ;; } { .mfb 000008000000 0470 nop.m 0 000008000000 0471 nop.f 0 000108001100 0472 br.ret.sptk.many br0 ;; } .endp RNOVMS Routine Size: 1152 bytes, Routine Base: $CODE$ + 0000 .proc DEBUG_PARSE .align 32 DEBUG_PARSE: // 000490 { .mii 002C01F4AF40 0480 alloc r61 = rspfs, 1, 30, 6, 0 0000B20000C0 0481 sxt4 r3 = QUALIFIER_DESC // r3 = r32 // 000540 0119F8CE0300 0482 adds r12 = -16, r12 // 000490 } { .mmi 012000100A00 0490 add r40 = @ltoff(STR_PARSE_DESC), r1 // 000549 012000100A80 0491 add r42 = @ltoff(XPO$CLI_WORK), r1 012000100A40 0492 add r41 = @ltoff(RUNOFF_COMMAND), r1 ;; // 000574 } { .mmi 010800C30240 04A0 adds r9 = 24, r12 // 000539 0080C2800A00 04A1 ld8 r40 = STR_PARSE_DESC // r40 = [r40] // 000549 0108003080C0 04A2 adds r3 = 4, r3 // 000540 } { .mii 010800C382C0 04B0 adds r11 = 28, r12 // 000541 012000010280 04B1 mov r10 = 8 // 000555 012108CF0AC0 04B2 addl r43 = 200952, r0 ;; // 000562 } { .mii 0080C2A00A80 04C0 ld8 r42 = XPO$CLI_WORK // r42 = [r42] // 000549 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 25 X00.06 DEBUG_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 000188000F00 04C1 mov r60 = br0 // 000490 010000A50B00 04C2 add r44 = r40, r10 // 000555 } { .mmi 0080C2900A40 04D0 ld8 r41 = RUNOFF_COMMAND // r41 = [r41] // 000574 00A040308200 04D1 ld2 r8 = [r3], 4 // 000540 010800100F80 04D2 mov r62 = r1 ;; // 000490 } { .mmi 008C80910000 04E0 st4 [r9] = r8 // 000539 0080803000C0 04E1 ld4 r3 = [r3] // 000541 000008000000 04E2 nop.i 0 ;; } { .mfi 008C80B06000 04F0 st4 [r11] = r3 000008000000 04F1 nop.f 0 000008000000 04F2 nop.i 0 ;; } 0500 L$26: // 000549 { .mii 012000006640 0500 mov r25 = 3 0000B2800FC0 0501 sxt4 r63 = r40 010802838B40 0502 adds r45 = 28, r40 // 000555 } { .mii 000008000000 0510 nop.m 0 0000B2001040 0511 sxt4 r65 = QUALIFIER_DESC // r65 = r32 // 000549 0000B2A01000 0512 sxt4 r64 = r42 } { .mfb 000008000000 0520 nop.m 0 000008000000 0521 nop.f 0 00A000001000 0522 br.call.sptk.many br0 = SYS$CLI ;; } { .mii 012000006640 0530 mov r25 = 3 // 000555 0000B2D01000 0531 sxt4 r64 = r45 010800C20B40 0532 adds r45 = 16, r12 } { .mii 010803E00040 0540 mov r1 = r62 // 000549 0000B2C00FC0 0541 sxt4 r63 = r44 ;; // 000555 0000B2D01040 0542 sxt4 r65 = r45 } { .mfb 000008000000 0550 nop.m 0 000008000000 0551 nop.f 0 00A000001000 0552 br.call.sptk.many br0 = LIB$LOOKUP_KEY } { .mib 010803E00040 0560 mov r1 = r62 00A0308001C0 0561 tbit.z pr7, pr6 = STATUS, 0 // pr7, pr6 = r8, 0 // 000560 00860000A006 0562 (pr6) br.cond.dpnt.few L$27 } { .mii 010800C30B80 0570 adds r46 = 24, r12 // 000562 01200000C640 0571 mov r25 = 6 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 26 X00.06 DEBUG_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 0000B2C01100 0572 sxt4 r68 = r44 } { .mii 0120000030C0 0580 mov r67 = 1 0000B0801080 0581 sxt4 r66 = STATUS // r66 = r8 0000B2B00FC0 0582 sxt4 r63 = r43 ;; } { .mib 012000003000 0590 mov r64 = 1 0000B2E01040 0591 sxt4 r65 = r46 00A000001000 0592 br.call.sptk.many br0 = LIB$STOP } { .mfi 010803E00040 05A0 mov r1 = r62 000008000000 05A1 nop.f 0 000008000000 05A2 nop.i 0 } 05B0 L$27: // 000560 { .mmi 010800C20BC0 05B0 adds r47 = 16, r12 ;; // 000569 008082F00BC0 05B1 ld4 r47 = [r47] 000008000000 05B2 nop.i 0 ;; } { .mfb 01CC02F041C0 05C0 cmp4.eq pr7, pr0 = 2, r47 000008000000 05C1 nop.f 0 00860001E007 05C2 (pr7) br.cond.dpnt.few L$32 } { .mfb 01CC02F06240 05D0 cmp4.eq pr9, pr0 = 3, r47 000008000000 05D1 nop.f 0 008600016009 05D2 (pr9) br.cond.dpnt.few L$36 } { .mfb 01CC02F082C0 05E0 cmp4.eq pr11, pr0 = 4, r47 000008000000 05E1 nop.f 0 00860000E00B 05E2 (pr11) br.cond.dpnt.few L$40 } { .mii 01CC62F0A000 05F0 cmp4.eq pr0, pr12 = 5, r47 01200001F080 05F1 mov r66 = 15 // 000572 012000002CC0 05F2 mov r51 = 1 } { .mmi 012000009040 0600 mov r65 = 4 012000002C40 0601 mov r49 = 1 012000009000 0602 mov r64 = 4 ;; } { .mii 01C00000138C 0610 (pr12) cmp.eq.unc pr14, pr0 = r0, r0 // 000569 010802940FC0 0611 adds r63 = 32, r41 // 000572 0000B4001000 0612 sxt4 r64 = r64 ;; } { .mii 01080330108E 0620 (pr14) mov r66 = r51 01080310104E 0621 (pr14) mov r65 = r49 ;; 0000B4201080 0622 sxt4 r66 = r66 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 27 X00.06 DEBUG_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 } { .mib 000008000000 0630 nop.m 0 0000B4101040 0631 sxt4 r65 = r65 00A000001000 0632 br.call.sptk.many br0 = OTS$INSV } { .mfb 010803E00040 0640 mov r1 = r62 000008000000 0641 nop.f 0 008000012000 0642 br.sptk.few L$41 ;; // 000569 } 0650 L$40: { .mii 010802940A40 0650 adds r41 = 32, r41 // 000578 012008000D40 0651 mov r53 = 128 000008000000 0652 nop.i 0 ;; } { .mmi 008082900D00 0660 ld4 r52 = [r41] ;; 010073568D00 0661 or r52 = r52, r53 000008000000 0662 nop.i 0 ;; } { .mfb 00BC8A969800 0670 st4 [r41] = r52, -32 000008000000 0671 nop.f 0 00800000C000 0672 br.sptk.few L$41 ;; // 000569 } 0680 L$36: { .mmi 010802940A40 0680 adds r41 = 32, r41 ;; // 000576 008082900DC0 0681 ld4 r55 = [r41] 000008000000 0682 nop.i 0 ;; } { .mmi 010173780DC0 0690 or r55 = 64, r55 ;; 00BC8A96F800 0691 st4 [r41] = r55, -32 000008000000 0692 nop.i 0 } { .mfb 000008000000 06A0 nop.m 0 000008000000 06A1 nop.f 0 008000006000 06A2 br.sptk.few L$41 ;; // 000569 } 06B0 L$32: { .mmi 010802940A40 06B0 adds r41 = 32, r41 ;; // 000574 008082900E40 06B1 ld4 r57 = [r41] 000008000000 06B2 nop.i 0 ;; } { .mmi 010173940E40 06C0 or r57 = 32, r57 ;; 00BC8A973800 06C1 st4 [r41] = r57, -32 000008000000 06C2 nop.i 0 } 06D0 L$41: // 000569 { .mmi 008082800EC0 06D0 ld4 r59 = [r40] ;; // 000590 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 28 X00.06 DEBUG_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 000008000000 06D1 nop.m 0 00A403B60EC0 06D2 extr.u r59 = r59, 24, 1 ;; } { .mib 000008000000 06E0 nop.m 0 00A033B001C0 06E1 tbit.z pr7, pr6 = r59, 0 // 000547 0095FFFC4006 06E2 (pr6) br.cond.dptk.few L$26 } { .mii 000008000000 06F0 nop.m 0 00015407A000 06F1 mov.i rspfs = r61 // 000596 010800C20300 06F2 adds r12 = 16, r12 ;; } { .mib 000008000000 0700 nop.m 0 000E00178000 0701 mov br0 = r60 000108001100 0702 br.ret.sptk.many br0 ;; } .endp DEBUG_PARSE Routine Size: 656 bytes, Routine Base: $CODE$ + 0480 .proc MESSAGES_PARSE .align 32 MESSAGES_PARSE: // 000601 { .mii 002C01D46EC0 0710 alloc r59 = rspfs, 1, 28, 6, 0 0000B20000C0 0711 sxt4 r3 = QUALIFIER_DESC // r3 = r32 // 000650 0119F8CE0300 0712 adds r12 = -16, r12 // 000601 } { .mmi 012000100A00 0720 add r40 = @ltoff(STR_PARSE_DESC), r1 // 000659 012000100A80 0721 add r42 = @ltoff(XPO$CLI_WORK), r1 012000100A40 0722 add r41 = @ltoff(RUNOFF_COMMAND), r1 ;; // 000682 } { .mmi 010800C30240 0730 adds r9 = 24, r12 // 000649 0080C2800A00 0731 ld8 r40 = STR_PARSE_DESC // r40 = [r40] // 000659 0108003080C0 0732 adds r3 = 4, r3 // 000650 } { .mii 010800C382C0 0740 adds r11 = 28, r12 // 000651 012000010280 0741 mov r10 = 8 // 000665 012108CF0B00 0742 addl r44 = 200952, r0 ;; // 000672 } { .mii 0080C2A00A80 0750 ld8 r42 = XPO$CLI_WORK // r42 = [r42] // 000659 000188000E80 0751 mov r58 = br0 // 000601 010000A50B40 0752 add r45 = r40, r10 // 000665 } { .mmi 0080C2900A40 0760 ld8 r41 = RUNOFF_COMMAND // r41 = [r41] // 000682 00A040308200 0761 ld2 r8 = [r3], 4 // 000650 010800100F00 0762 mov r60 = r1 ;; // 000601 } { .mmi 008C80910000 0770 st4 [r9] = r8 // 000649 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 29 X00.06 MESSAGES_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 0080803000C0 0771 ld4 r3 = [r3] // 000651 000008000000 0772 nop.i 0 ;; } { .mfi 008C80B06000 0780 st4 [r11] = r3 000008000000 0781 nop.f 0 000008000000 0782 nop.i 0 ;; } 0790 L$21: // 000659 { .mii 012000006640 0790 mov r25 = 3 0000B2800F40 0791 sxt4 r61 = r40 010802890B80 0792 adds r46 = 72, r40 // 000665 } { .mii 000008000000 07A0 nop.m 0 0000B2000FC0 07A1 sxt4 r63 = QUALIFIER_DESC // r63 = r32 // 000659 0000B2A00F80 07A2 sxt4 r62 = r42 } { .mfb 000008000000 07B0 nop.m 0 000008000000 07B1 nop.f 0 00A000001000 07B2 br.call.sptk.many br0 = SYS$CLI ;; } { .mii 012000006640 07C0 mov r25 = 3 // 000665 0000B2E00F80 07C1 sxt4 r62 = r46 010800C20B80 07C2 adds r46 = 16, r12 } { .mii 010803C00040 07D0 mov r1 = r60 // 000659 0000B2D00F40 07D1 sxt4 r61 = r45 ;; // 000665 0000B2E00FC0 07D2 sxt4 r63 = r46 } { .mfb 000008000000 07E0 nop.m 0 000008000000 07E1 nop.f 0 00A000001000 07E2 br.call.sptk.many br0 = LIB$LOOKUP_KEY } { .mib 010803C00040 07F0 mov r1 = r60 00A0308001C0 07F1 tbit.z pr7, pr6 = STATUS, 0 // pr7, pr6 = r8, 0 // 000670 00860000A006 07F2 (pr6) br.cond.dpnt.few L$22 } { .mii 010800C30BC0 0800 adds r47 = 24, r12 // 000672 01200000C640 0801 mov r25 = 6 0000B2D01080 0802 sxt4 r66 = r45 } { .mii 012000003040 0810 mov r65 = 1 0000B0801000 0811 sxt4 r64 = STATUS // r64 = r8 0000B2C00F40 0812 sxt4 r61 = r44 ;; } { .mib 012000002F80 0820 mov r62 = 1 0000B2F00FC0 0821 sxt4 r63 = r47 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 30 X00.06 MESSAGES_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 00A000001000 0822 br.call.sptk.many br0 = LIB$STOP } { .mfi 010803C00040 0830 mov r1 = r60 000008000000 0831 nop.f 0 000008000000 0832 nop.i 0 } 0840 L$22: // 000670 { .mii 010800C20C00 0840 adds r48 = 16, r12 // 000679 012000012D00 0841 mov r52 = 9 // 000682 012000014CC0 0842 mov r51 = 10 ;; } { .mii 008083000C00 0850 ld4 r48 = [r48] // 000679 010800002E40 0851 adds r57 = 1, r0 // 000682 010802940D40 0852 adds r53 = 32, r41 } { .mmi 008082800C40 0860 ld4 r49 = [r40] ;; // 000688 01CC33004000 0861 cmp4.eq pr0, pr6 = 2, r48 // 000679 00A403160C40 0862 extr.u r49 = r49, 24, 1 ;; // 000688 } { .mii 010803300D06 0870 (pr6) mov r52 = r51 // 000682 00A03B100200 0871 tbit.z pr8, pr7 = r49, 0 ;; // 000657 01016340EE00 0872 and r56 = 7, r52 // 000682 } { .mii 000008000000 0880 nop.m 0 00A5E340EDC0 0881 shr r55 = r52, 3 ;; 01000376ADC0 0882 add r55 = r53, r55 ;; } { .mib 000008000000 0890 nop.m 0 00F243872E40 0891 shl r57 = r57, r56 004000000000 0892 nop.b 0 } { .mmi 008003700D80 08A0 ld1 r54 = [r55] ;; 01007396CD80 08A1 or r54 = r54, r57 000008000000 08A2 nop.i 0 ;; } { .mfb 008C0376C000 08B0 st1 [r55] = r54 000008000000 08B1 nop.f 0 0095FFFDC007 08B2 (pr7) br.cond.dptk.few L$21 // 000657 } { .mii 000008000000 08C0 nop.m 0 000154076000 08C1 mov.i rspfs = r59 // 000694 010800C20300 08C2 adds r12 = 16, r12 ;; } { .mib 000008000000 08D0 nop.m 0 000E00174000 08D1 mov br0 = r58 000108001100 08D2 br.ret.sptk.many br0 ;; RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 31 X00.06 MESSAGES_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 } .endp MESSAGES_PARSE Routine Size: 464 bytes, Routine Base: $CODE$ + 0710 .proc UNDERLINE_PARSE .align 32 UNDERLINE_PARSE: // 000699 { .mii 002C01E48F00 08E0 alloc r60 = rspfs, 1, 29, 6, 0 0000B20000C0 08E1 sxt4 r3 = QUALIFIER_DESC // r3 = r32 // 000749 0119F8CE0300 08E2 adds r12 = -16, r12 // 000699 } { .mmi 012000100A40 08F0 add r41 = @ltoff(STR_PARSE_DESC), r1 // 000804 012000100AC0 08F1 add r43 = @ltoff(XPO$CLI_WORK), r1 // 000775 012000100A80 08F2 add r42 = @ltoff(RUNOFF_COMMAND), r1 ;; // 000798 } { .mii 010800300A00 0900 mov r40 = r3 // 000749 010800C30240 0901 adds r9 = 24, r12 // 000748 0108003080C0 0902 adds r3 = 4, r3 // 000749 } { .mmi 0080C2900A40 0910 ld8 r41 = STR_PARSE_DESC // r41 = [r41] // 000804 010800C382C0 0911 adds r11 = 28, r12 // 000750 012000010280 0912 mov r10 = 8 ;; // 000762 } { .mii 0080C2B00AC0 0920 ld8 r43 = XPO$CLI_WORK // r43 = [r43] // 000775 000188000EC0 0921 mov r59 = br0 // 000699 012108CF0B40 0922 addl r45 = 200952, r0 // 000788 } { .mmi 0080C2A00A80 0930 ld8 r42 = RUNOFF_COMMAND // r42 = [r42] // 000798 00A040308200 0931 ld2 r8 = [r3], 4 // 000749 010000A52B80 0932 add r46 = r41, r10 ;; // 000781 } { .mmi 010800100F40 0940 mov r61 = r1 // 000699 008C80910000 0941 st4 [r9] = r8 // 000748 000008000000 0942 nop.i 0 } { .mmi 008080300200 0950 ld4 r8 = [r3] ;; // 000750 008C80B10000 0951 st4 [r11] = r8 000008000000 0952 nop.i 0 ;; } 0960 L$11: // 000756 { .mmi 010802810A00 0960 adds r40 = 8, r40 ;; // 000762 00B08A8F0440 0961 ld4 r17 = [r40], -8 000008000000 0962 nop.i 0 ;; } { .mib 000008000000 0970 nop.m 0 0000B1100440 0971 sxt4 r17 = r17 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 32 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 004000000000 0972 nop.b 0 ;; } { .mmi 008001100440 0980 ld1 r17 = [r17] ;; 0119F917E440 0981 adds r17 = -65, r17 000008000000 0982 nop.i 0 ;; } { .mfb 01AC31132000 0990 cmp4.ltu pr0, pr6 = 25, r17 // 000763 000008000000 0991 nop.f 0 008600006006 0992 (pr6) br.cond.dpnt.few L$14 } { .mib 012000002640 09A0 mov r25 = 1 // 000767 0000B2000F80 09A1 sxt4 r62 = QUALIFIER_DESC // r62 = r32 00A000001000 09A2 br.call.sptk.many br0 = XPO$CHAR_PARSE } { .mfb 010803D00040 09B0 mov r1 = r61 000008000000 09B1 nop.f 0 008000024000 09B2 br.sptk.few L$16 ;; // 000762 } 09C0 L$14: // 000775 { .mii 012000006640 09C0 mov r25 = 3 0000B2900F80 09C1 sxt4 r62 = r41 0108029B8BC0 09C2 adds r47 = 92, r41 // 000781 } { .mii 000008000000 09D0 nop.m 0 0000B2001000 09D1 sxt4 r64 = QUALIFIER_DESC // r64 = r32 // 000775 0000B2B00FC0 09D2 sxt4 r63 = r43 } { .mfb 000008000000 09E0 nop.m 0 000008000000 09E1 nop.f 0 00A000001000 09E2 br.call.sptk.many br0 = SYS$CLI ;; } { .mii 012000006640 09F0 mov r25 = 3 // 000781 0000B2F00FC0 09F1 sxt4 r63 = r47 010800C20BC0 09F2 adds r47 = 16, r12 } { .mii 010803D00040 0A00 mov r1 = r61 // 000775 0000B2E00F80 0A01 sxt4 r62 = r46 ;; // 000781 0000B2F01000 0A02 sxt4 r64 = r47 } { .mfb 000008000000 0A10 nop.m 0 000008000000 0A11 nop.f 0 00A000001000 0A12 br.call.sptk.many br0 = LIB$LOOKUP_KEY } { .mib 010803D00040 0A20 mov r1 = r61 00A0308001C0 0A21 tbit.z pr7, pr6 = STATUS, 0 // pr7, pr6 = r8, 0 // 000786 00860000A006 0A22 (pr6) br.cond.dpnt.few L$17 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 33 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 } { .mii 010800C30C00 0A30 adds r48 = 24, r12 // 000788 01200000C640 0A31 mov r25 = 6 0000B2E010C0 0A32 sxt4 r67 = r46 } { .mii 012000003080 0A40 mov r66 = 1 0000B0801040 0A41 sxt4 r65 = STATUS // r65 = r8 0000B2D00F80 0A42 sxt4 r62 = r45 ;; } { .mib 012000002FC0 0A50 mov r63 = 1 0000B3001000 0A51 sxt4 r64 = r48 00A000001000 0A52 br.call.sptk.many br0 = LIB$STOP } { .mfi 010803D00040 0A60 mov r1 = r61 000008000000 0A61 nop.f 0 000008000000 0A62 nop.i 0 } 0A70 L$17: // 000786 { .mii 010800C20C40 0A70 adds r49 = 16, r12 // 000795 012000022D00 0A71 mov r52 = 17 // 000798 012000024CC0 0A72 mov r51 = 18 ;; } { .mii 008083100C40 0A80 ld4 r49 = [r49] // 000795 010800002E40 0A81 adds r57 = 1, r0 // 000798 010802A40D40 0A82 adds r53 = 32, r42 ;; } { .mmi 01CC33104000 0A90 cmp4.eq pr0, pr6 = 2, r49 ;; // 000795 010803300D06 0A91 (pr6) mov r52 = r51 // 000798 000008000000 0A92 nop.i 0 ;; } { .mii 01016340EE00 0AA0 and r56 = 7, r52 00A5E340EDC0 0AA1 shr r55 = r52, 3 ;; 01000376ADC0 0AA2 add r55 = r53, r55 ;; } { .mii 008003700D80 0AB0 ld1 r54 = [r55] 00F243872E40 0AB1 shl r57 = r57, r56 ;; 01007396CD80 0AB2 or r54 = r54, r57 ;; } { .mfi 008C0376C000 0AC0 st1 [r55] = r54 000008000000 0AC1 nop.f 0 000008000000 0AC2 nop.i 0 } 0AD0 L$16: // 000762 { .mmi 008082900E80 0AD0 ld4 r58 = [r41] ;; // 000804 000008000000 0AD1 nop.m 0 00A403A60E80 0AD2 extr.u r58 = r58, 24, 1 ;; RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 34 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 } { .mib 000008000000 0AE0 nop.m 0 00A03BA00200 0AE1 tbit.z pr8, pr7 = r58, 0 // 000756 0095FFFD0007 0AE2 (pr7) br.cond.dptk.few L$11 } { .mii 000008000000 0AF0 nop.m 0 000154078000 0AF1 mov.i rspfs = r60 // 000810 010800C20300 0AF2 adds r12 = 16, r12 ;; } { .mib 000008000000 0B00 nop.m 0 000E00176000 0B01 mov br0 = r59 000108001100 0B02 br.ret.sptk.many br0 ;; } .endp UNDERLINE_PARSE Routine Size: 560 bytes, Routine Base: $CODE$ + 08E0 .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC .lcomm $STR$BIN_DESC, 64, 16 .lcomm $STR$BIN_DESC, 64, 16 .lcomm $STR$BIN_DESC, 64, 16 .lcomm $STR$BIN_DESC, 64, 16 .lcomm RUNOFF_QUAL, 3, 4 .lcomm BACKSPACE_QUAL, 24, 16 .lcomm BOLD_QUAL, 28, 16 .lcomm CHANGE_BAR_QUAL, 28, 16 .lcomm DEBUG_QUAL, 24, 16 .lcomm DOWN_QUAL, 28, 16 .lcomm FORM_SIZE_QUAL, 28, 16 .lcomm MESSAGES_QUAL, 24, 16 .lcomm OVERPRINT_QUAL, 24, 16 .lcomm PAGES_QUAL, 28, 16 .lcomm PAUSE_QUAL, 24, 16 .lcomm RIGHT_QUAL, 28, 16 .lcomm SEQUENCE_QUAL, 24, 16 .lcomm SIMULATE_QUAL, 24, 16 .lcomm UNDERLINE_QUAL, 28, 16 .lcomm VARIANT_QUAL, 28, 16 .lcomm END_OF_QUAL, 1, 1 .lcomm INITIAL_DESC, 28, 16 .lcomm COMMAND_DESC, 28, 16 .lcomm INPUT_FILE_DESC, 28, 16 .lcomm OUTPUT_DESC, 28, 16 .lcomm CONTENTS_DESC, 28, 16 .lcomm INDEX_DESC, 28, 16 .lcomm END_OF_CMD_DESC, 28, 16 .lcomm STR_PARSE_DESC, 28, 16 .lcomm DEBUG_KEYS, 44, 16 .lcomm MESSAGES_KEYS, 20, 16 .lcomm UNDERLINE_KEYS, 20, 16 .lcomm P.AAA, 16, 16 .lcomm P.AAB, 12, 16 .lcomm P.AAC, 8, 8 .lcomm P.AAD, 8, 8 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 35 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 .lcomm P.AAE, 4, 4 .lcomm P.AAF, 8, 8 .lcomm P.AAG, 8, 8 .lcomm P.AAH, 12, 16 .lcomm P.AAI, 12, 16 .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC RUNOFF_QUAL: 00 0040 data1 0x0 : 2 // data1 0 01 0042 data1 0x1 // data1 1 BACKSPACE_QUAL: 18 0043 data1 0x18 // data1 24 00 0044 data1 CLI$K_RUNO_BACK 00 0045 data1 0x0 // data1 0 00 0046 data1 0x0 // data1 0 00000000 0047 data4 0x0 // data4 0 00000000 004B data4 0x0 // data4 0 00000000 004F data4 0x0 // data4 0 00000000 0053 data4 0x0 // data4 0 00 0057 data1 0x0 // data1 0 01 0058 data1 0x1 // data1 1 01 0059 data1 0x1 // data1 1 00 005A data1 0x0 // data1 0 BOLD_QUAL: 1C 005B data1 0x1C // data1 28 00 005C data1 CLI$K_RUNO_BOLD 02 005D data1 0x2 // data1 2 00 005E data1 0x0 // data1 0 00000000 005F data4 0x0 // data4 0 00000000 0063 data4 0x0 // data4 0 00000000 0067 data4 XPO$SHORT_PARSE 00000000 006B data4 0x0 // data4 0 00000026 006F data4 RUNOFF_COMMAND+38 00 0073 data1 0x0 // data1 0 01 0074 data1 0x1 // data1 1 02 0075 data1 0x2 // data1 2 00 0076 data1 0x0 // data1 0 CHANGE_BAR_QUAL: 1C 0077 data1 0x1C // data1 28 00 0078 data1 CLI$K_RUNO_CHAN 02 0079 data1 0x2 // data1 2 00 007A data1 0x0 // data1 0 00000000 007B data4 0x0 // data4 0 00000000 007F data4 0x0 // data4 0 00000000 0083 data4 XPO$CHAR_PARSE 00000000 0087 data4 0x0 // data4 0 00000024 008B data4 RUNOFF_COMMAND+36 00 008F data1 0x0 // data1 0 01 0090 data1 0x1 // data1 1 03 0091 data1 0x3 // data1 3 00 0092 data1 0x0 // data1 0 DEBUG_QUAL: 18 0093 data1 0x18 // data1 24 00 0094 data1 CLI$K_RUNO_DEBU 00 0095 data1 0x0 // data1 0 00 0096 data1 0x0 // data1 0 00000000 0097 data4 0x0 // data4 0 00000000 009B data4 0x0 // data4 0 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 36 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 00000000 009F data4 DEBUG_PARSE 00000000 00A3 data4 0x0 // data4 0 00 00A7 data1 0x0 // data1 0 01 00A8 data1 0x1 // data1 1 05 00A9 data1 0x5 // data1 5 00 00AA data1 0x0 // data1 0 DOWN_QUAL: 1C 00AB data1 0x1C // data1 28 00 00AC data1 CLI$K_RUNO_DOWN 02 00AD data1 0x2 // data1 2 00 00AE data1 0x0 // data1 0 00000000 00AF data4 0x0 // data4 0 00000000 00B3 data4 0x0 // data4 0 00000000 00B7 data4 XPO$SHORT_PARSE 00000000 00BB data4 0x0 // data4 0 00000028 00BF data4 RUNOFF_COMMAND+40 00 00C3 data1 0x0 // data1 0 01 00C4 data1 0x1 // data1 1 06 00C5 data1 0x6 // data1 6 00 00C6 data1 0x0 // data1 0 FORM_SIZE_QUAL: 1C 00C7 data1 0x1C // data1 28 00 00C8 data1 CLI$K_RUNO_FORM 02 00C9 data1 0x2 // data1 2 00 00CA data1 0x0 // data1 0 00000000 00CB data4 0x0 // data4 0 00000000 00CF data4 0x0 // data4 0 00000000 00D3 data4 XPO$SHORT_PARSE 00000000 00D7 data4 0x0 // data4 0 0000002C 00DB data4 RUNOFF_COMMAND+44 00 00DF data1 0x0 // data1 0 01 00E0 data1 0x1 // data1 1 07 00E1 data1 0x7 // data1 7 00 00E2 data1 0x0 // data1 0 MESSAGES_QUAL: 18 00E3 data1 0x18 // data1 24 00 00E4 data1 CLI$K_RUNO_MESS 00 00E5 data1 0x0 // data1 0 00 00E6 data1 0x0 // data1 0 00000000 00E7 data4 0x0 // data4 0 00000000 00EB data4 0x0 // data4 0 00000000 00EF data4 MESSAGES_PARSE 00000000 00F3 data4 0x0 // data4 0 00 00F7 data1 0x0 // data1 0 01 00F8 data1 0x1 // data1 1 09 00F9 data1 0x9 // data1 9 00 00FA data1 0x0 // data1 0 OVERPRINT_QUAL: 18 00FB data1 0x18 // data1 24 00 00FC data1 CLI$K_RUNO_OVER 00 00FD data1 0x0 // data1 0 00 00FE data1 0x0 // data1 0 00000000 00FF data4 0x0 // data4 0 00000000 0103 data4 0x0 // data4 0 00000000 0107 data4 0x0 // data4 0 00000000 010B data4 0x0 // data4 0 00 010F data1 0x0 // data1 0 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 37 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 01 0110 data1 0x1 // data1 1 0A 0111 data1 0xA // data1 10 00 0112 data1 0x0 // data1 0 PAGES_QUAL: 1C 0113 data1 0x1C // data1 28 00 0114 data1 CLI$K_RUNO_PAGE 02 0115 data1 0x2 // data1 2 00 0116 data1 0x0 // data1 0 00000000 0117 data4 0x0 // data4 0 00000000 011B data4 0x0 // data4 0 00000000 011F data4 XPO$STR_PARSE 00000000 0123 data4 0x0 // data4 0 00000030 0127 data4 RUNOFF_COMMAND+48 00 012B data1 0x0 // data1 0 01 012C data1 0x1 // data1 1 0B 012D data1 0xB // data1 11 00 012E data1 0x0 // data1 0 PAUSE_QUAL: 18 012F data1 0x18 // data1 24 00 0130 data1 CLI$K_RUNO_PAUS 00 0131 data1 0x0 // data1 0 00 0132 data1 0x0 // data1 0 00000000 0133 data4 0x0 // data4 0 00000000 0137 data4 0x0 // data4 0 00000000 013B data4 0x0 // data4 0 00000000 013F data4 0x0 // data4 0 00 0143 data1 0x0 // data1 0 01 0144 data1 0x1 // data1 1 0C 0145 data1 0xC // data1 12 00 0146 data1 0x0 // data1 0 RIGHT_QUAL: 1C 0147 data1 0x1C // data1 28 00 0148 data1 CLI$K_RUNO_RIGH 02 0149 data1 0x2 // data1 2 00 014A data1 0x0 // data1 0 00000000 014B data4 0x0 // data4 0 00000000 014F data4 0x0 // data4 0 00000000 0153 data4 XPO$SHORT_PARSE 00000000 0157 data4 0x0 // data4 0 0000002A 015B data4 RUNOFF_COMMAND+42 00 015F data1 0x0 // data1 0 01 0160 data1 0x1 // data1 1 0D 0161 data1 0xD // data1 13 00 0162 data1 0x0 // data1 0 SEQUENCE_QUAL: 18 0163 data1 0x18 // data1 24 00 0164 data1 CLI$K_RUNO_SEQU 00 0165 data1 0x0 // data1 0 00 0166 data1 0x0 // data1 0 00000000 0167 data4 0x0 // data4 0 00000000 016B data4 0x0 // data4 0 00000000 016F data4 0x0 // data4 0 00000000 0173 data4 0x0 // data4 0 00 0177 data1 0x0 // data1 0 01 0178 data1 0x1 // data1 1 0E 0179 data1 0xE // data1 14 00 017A data1 0x0 // data1 0 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 38 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 SIMULATE_QUAL: 18 017B data1 0x18 // data1 24 00 017C data1 CLI$K_RUNO_SIMU 00 017D data1 0x0 // data1 0 00 017E data1 0x0 // data1 0 00000000 017F data4 0x0 // data4 0 00000000 0183 data4 0x0 // data4 0 00000000 0187 data4 0x0 // data4 0 00000000 018B data4 0x0 // data4 0 00 018F data1 0x0 // data1 0 01 0190 data1 0x1 // data1 1 0F 0191 data1 0xF // data1 15 00 0192 data1 0x0 // data1 0 UNDERLINE_QUAL: 1C 0193 data1 0x1C // data1 28 00 0194 data1 CLI$K_RUNO_UNDE 02 0195 data1 0x2 // data1 2 00 0196 data1 0x0 // data1 0 00000000 0197 data4 0x0 // data4 0 00000000 019B data4 0x0 // data4 0 00000000 019F data4 UNDERLINE_PARSE 00000000 01A3 data4 0x0 // data4 0 00000025 01A7 data4 RUNOFF_COMMAND+37 00 01AB data1 0x0 // data1 0 01 01AC data1 0x1 // data1 1 10 01AD data1 0x10 // data1 16 00 01AE data1 0x0 // data1 0 VARIANT_QUAL: 1C 01AF data1 0x1C // data1 28 00 01B0 data1 CLI$K_RUNO_VARI 02 01B1 data1 0x2 // data1 2 00 01B2 data1 0x0 // data1 0 00000000 01B3 data4 0x0 // data4 0 00000000 01B7 data4 0x0 // data4 0 00000000 01BB data4 XPO$STR_PARSE 00000000 01BF data4 0x0 // data4 0 00000038 01C3 data4 RUNOFF_COMMAND+56 00 01C7 data1 0x0 // data1 0 01 01C8 data1 0x1 // data1 1 11 01C9 data1 0x11 // data1 17 00 01CA data1 0x0 // data1 0 END_OF_QUAL: 00 01CB data1 0x0 // data1 0 INITIAL_DESC: 00 01CC data1 0x0 // data1 0 00 01CD data1 0x0 // data1 0 02 01CE data1 0x2 // data1 2 00 01CF data1 0x0 // data1 0 00000000 01D0 data4 XPO$CLI_ERROR 00000000 01D4 data4 0x0 // data4 0 00000000 01D8 data4 0x0 // data4 0 00000000 01DC data4 0x0 // data4 0 00000000 01E0 data4 0x0 // data4 0 00000000 01E4 data4 0x0 // data4 0 COMMAND_DESC: 02 01E8 data1 0x2 // data1 2 00 01E9 data1 0x0 // data1 0 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 39 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 02 01EA data1 0x2 // data1 2 00 01EB data1 0x0 // data1 0 00000000 01EC data4 XPO$CLI_ERROR 00000000 01F0 data4 0x0 // data4 0 00000000 01F4 data4 0x0 // data4 0 00000000 01F8 data4 0x0 // data4 0 00000000 01FC data4 0x0 // data4 0 00000000 0200 data4 BACKSPACE_QUAL INPUT_FILE_DESC: 10 0204 data1 0x10 // data1 16 00 0205 data1 0x0 // data1 0 02 0206 data1 0x2 // data1 2 00 0207 data1 0x0 // data1 0 00000000 0208 data4 XPO$CLI_ERROR 00000000 020C data4 0x0 // data4 0 00000000 0210 data4 0x0 // data4 0 00000000 0214 data4 0x0 // data4 0 00000000 0218 data4 0x0 // data4 0 00000000 021C data4 0x0 // data4 0 OUTPUT_DESC: 20 0220 data1 0x20 // data1 32 00 0221 data1 0x0 // data1 0 02 0222 data1 0x2 // data1 2 00 0223 data1 0x0 // data1 0 00000000 0224 data4 XPO$CLI_ERROR 00000000 0228 data4 0x0 // data4 0 00000000 022C data4 0x0 // data4 0 00000000 0230 data4 0x0 // data4 0 00000000 0234 data4 0x0 // data4 0 00000000 0238 data4 0x0 // data4 0 CONTENTS_DESC: 21 023C data1 0x21 // data1 33 04 023D data1 0x4 // data1 4 02 023E data1 0x2 // data1 2 00 023F data1 0x0 // data1 0 00000000 0240 data4 XPO$CLI_ERROR 00000000 0244 data4 0x0 // data4 0 00000000 0248 data4 0x0 // data4 0 00000000 024C data4 0x0 // data4 0 00000000 0250 data4 0x0 // data4 0 00000000 0254 data4 0x0 // data4 0 INDEX_DESC: 22 0258 data1 0x22 // data1 34 08 0259 data1 0x8 // data1 8 02 025A data1 0x2 // data1 2 00 025B data1 0x0 // data1 0 00000000 025C data4 XPO$CLI_ERROR 00000000 0260 data4 0x0 // data4 0 00000000 0264 data4 0x0 // data4 0 00000000 0268 data4 0x0 // data4 0 00000000 026C data4 0x0 // data4 0 00000000 0270 data4 0x0 // data4 0 END_OF_CMD_DESC: 30 0274 data1 0x30 // data1 48 00 0275 data1 0x0 // data1 0 02 0276 data1 0x2 // data1 2 00 0277 data1 0x0 // data1 0 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 40 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 00000000 0278 data4 XPO$CLI_ERROR 00000000 027C data4 0x0 // data4 0 00000000 0280 data4 0x0 // data4 0 00000000 0284 data4 0x0 // data4 0 00000000 0288 data4 0x0 // data4 0 00000000 028C data4 0x0 // data4 0 STR_PARSE_DESC: 41 0290 data1 0x41 // data1 65 00 0291 data1 0x0 // data1 0 02 0292 data1 0x2 // data1 2 00 0293 data1 0x0 // data1 0 00000000 0294 data4 XPO$CLI_ERROR 00000000 0298 data4 0x0 // data4 0 00000000 029C data4 0x0 // data4 0 00000000 02A0 data4 0x0 // data4 0 00000000 02A4 data4 0x0 // data4 0 00000000 02A8 data4 0x0 // data4 0 DEBUG_KEYS: 0000000A 02AC data4 0xA // data4 10 00000000 02B0 data4 P.AAA 00000001 02B4 data4 0x1 // data4 1 00000000 02B8 data4 P.AAB 00000002 02BC data4 0x2 // data4 2 00000000 02C0 data4 P.AAC 00000003 02C4 data4 0x3 // data4 3 00000000 02C8 data4 P.AAD 00000004 02CC data4 0x4 // data4 4 00000000 02D0 data4 P.AAE 00000005 02D4 data4 0x5 // data4 5 MESSAGES_KEYS: 00000004 02D8 data4 0x4 // data4 4 00000000 02DC data4 P.AAF 00000001 02E0 data4 0x1 // data4 1 00000000 02E4 data4 P.AAG 00000002 02E8 data4 0x2 // data4 2 UNDERLINE_KEYS: 00000004 02EC data4 0x4 // data4 4 00000000 02F0 data4 P.AAH 00000001 02F4 data4 0x1 // data4 1 00000000 02F8 data4 P.AAI 00000002 02FC data4 0x2 // data4 2 .psect $PLIT$, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC P.AAA: 4E4F430C 0000 string "\X0CCONDITIONALS\X00\X00\X00" 49544944 0004 4C414E4F 0008 00000053 000C P.AAB: 4E4F4308 0010 string "\X08CONTENTS\X00\X00\X00" 544E4554 0014 00000053 0018 P.AAC: 4C494605 001C string "\X05FILES\X00\X00" 00005345 0020 RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 41 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 P.AAD: 444E4905 0024 string "\X05INDEX\X00\X00" 00005845 0028 P.AAE: 4C4C4103 002C data4 0x4C4C4103 // data4 1280065795 P.AAF: 45535504 0030 string "\X04USER\X00\X00\X00" 00000052 0034 P.AAG: 54554F06 0038 string "\X06OUTPUT\X00" 00545550 003C P.AAH: 4E4F4E0A 0040 string "\X0ANONSPACING\X00" 43415053 0044 00474E49 0048 P.AAI: 50455308 004C string "\X08SEPARATE\X00\X00\X00" 54415241 0050 00000045 0054 .global XPO$CLI_WORK .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type RUNOFF, @function .global RUNOFF .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type LIB$LOOKUP_KEY, @function .global LIB$LOOKUP_KEY .section .data .type LIB$STOP, @function RNOVMS Machine Code Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 42 X00.06 UNDERLINE_PARSE 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 .global LIB$STOP .section .data .type OTS$INSV, @function .global OTS$INSV .section .data .type SYS$CLI, @function .global SYS$CLI .section .data .type XPO$CHAR_PARSE, @function .global XPO$CHAR_PARSE .section .data .type SYS$CLI, @function .global SYS$CLI ; Library Statistics ; ; -------- Symbols -------- Pages ; File Total Loaded Percent Mapped ; ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14 ; 590 67 11 270 ; SYS$COMMON:[SYSLIB]CLIMAC.L32;1 14 14 100 10 ; SYS$COMMON:[SYSLIB]STARLET.L32;1 28352 20 0 2178 Source Listing 4-FEB-2004 11:02:17 BLISS-32I T1.1-053 Page 43 Source Listing 19-MAR-2002 10:11:31 [LASTOVICA.XPORT.VMSGEN]RNOVMS.B32;2 COMMAND LINE: BLISSRNOVMS/LIST/DEBUG