COMPILATION LISTING OF SEGMENT control_point_manager_call Compiled by: Multics PL/I Compiler, Release 29, of July 28, 1986 Compiled at: Honeywell Multics Op. - System M Compiled on: 11/04/86 1435.4 mst Tue Options: optimize list 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1985 * 4* * * 5* *********************************************************** */ 6 7 /* format: off */ 8 9 /* Command interface to the Multics Control Point Manager */ 10 11 /****^ HISTORY COMMENTS: 12* 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 13* audit(86-10-20,Fawcett), install(86-11-03,MR12.0-1206): 14* Written to support control point management in March 1985 by G. Palter. 15* END HISTORY COMMENTS */ 16 17 /* format: style3,linecom */ 18 19 control_point_manager_call: 20 cpmc: 21 procedure () options (variable); 22 23 24 dcl return_value character (return_value_lth) varying based (return_value_ptr); 25 dcl return_value_ptr pointer; 26 dcl return_value_lth fixed binary (21); 27 dcl is_active_function bit (1) aligned; 28 29 dcl argument character (argument_lth) based (argument_ptr); 30 dcl argument_ptr pointer; 31 dcl argument_lth fixed binary (21); 32 dcl (n_arguments, argument_idx) 33 fixed binary; 34 35 dcl system_area area based (system_area_ptr); 36 dcl system_area_ptr pointer; 37 38 dcl 1 users_entry aligned based (users_entry_ptr), 39 2 entry entry (pointer) variable, 40 2 info_ptr pointer; 41 dcl users_entry_ptr pointer; 42 43 dcl command_line character (4 * sys_info$max_seg_size - 4) varying based (command_line_ptr); 44 dcl command_line_ptr pointer; 45 46 dcl pi_preferred bit (1) aligned based (pi_preferred_ptr); 47 dcl pi_preferred_ptr pointer; 48 49 dcl sci_ptr pointer; 50 51 dcl 1 cpmc_info aligned, 52 2 ssu_arg_ptr entry (pointer, fixed binary, pointer, fixed binary (21)) variable, 53 2 operation_idx fixed binary; 54 55 dcl i fixed binary; 56 57 dcl code fixed binary (35); 58 59 dcl CONTROL_POINT_MANAGER_CALL 60 character (32) static options (constant) initial ("control_point_manager_call"); 61 62 dcl CONTROL_POINT_MANAGER_CALL_VERSION 63 character (32) static options (constant) initial ("1.0"); 64 65 dcl SSU_ARG_PTR character (32) static options (constant) initial ("arg_ptr"); 66 dcl SSU_GET_SUBSYSTEM_AND_REQUEST_NAME 67 character (32) static options (constant) initial ("get_subsystem_and_request_name"); 68 69 dcl WHITESPACE character (5) static options (constant) initial (" 70 "); /* NL, HT, SP, VT, FF */ 71 72 /* format: off */ 73 dcl OPERATION_NAMES dimension (0:21, 2) character (20) varying static options (constant) initial 74 ("", "", /* (the command itself) */ 75 "enabled", "invoked", 76 "id", "", 77 "create", "cr", /* ENTRY {INFO_PTR} {-control_args} */ 78 "destroy", "", /* ID */ 79 "start", "sr", /* ID */ 80 "wakeup", "", /* ID */ 81 "stop", "", /* ID */ 82 "scheduler", "", 83 "generate_call", "gc", /* ID ENTRY {INFO_PTR} {-control_args} */ 84 "list", "ls", /* {ID} {-control_args} */ 85 "probe", "pb", /* ID */ 86 "program_interrupt", "pi", /* ID {-control_arg} */ 87 "run", "", /* {-control_args} COMMAND_LINE */ 88 "cl_intermediary", "", /* ID */ 89 "set_cl_intermediary", "", /* ID {ENTRY} {-control_args} */ 90 "preferred", "", 91 "set_preferred", "", /* ID */ 92 "push_preferred", "", /* ID */ 93 "pop_preferred", "", /* FLAG */ 94 "enable", "invoke", 95 "select", "sl"); /* ID */ 96 97 dcl OPERATION_IS_COMMAND_ONLY 98 dimension (21) bit (1) aligned static options (constant) initial 99 (( 2) ("0"b), /* enabled, id */ 100 (11) ("1"b), 101 ( 1) ("0"b), /* cl_intermediary */ 102 ( 1) ("1"b), 103 ( 1) ("0"b), /* preferred */ 104 ( 1) ("1"b), 105 ( 1) ("0"b), /* push_preferred */ 106 ( 3) ("1"b)); 107 108 dcl OPERATION_ENTRIES dimension (21) entry () variable; 109 110 dcl STATE_NAMES dimension (0:3) character (12) varying initial 111 ("DESTROYED", "STOPPED", "BLOCKED", "READY"); 112 113 /* format: on */ 114 115 dcl ( 116 MICROSECONDS_PER_HOUR 117 initial (3600000000), 118 MICROSECONDS_PER_MINUTE 119 initial (60000000), 120 MICROSECONDS_PER_SECOND 121 initial (1000000) 122 ) fixed binary (71) static options (constant); 123 124 dcl ( 125 cpm_et_$already_started, 126 cpm_et_$control_point_not_found, 127 error_table_$active_function, 128 error_table_$bad_arg, 129 error_table_$bad_conversion, 130 error_table_$badopt, 131 error_table_$inconsistent, 132 error_table_$noarg, 133 error_table_$too_many_args 134 ) fixed binary (35) external; 135 136 dcl sys_info$max_seg_size 137 fixed binary (19) external; 138 139 dcl active_fnc_err_$suppress_name 140 entry () options (variable); 141 dcl com_err_ entry () options (variable); 142 dcl com_err_$suppress_name 143 entry () options (variable); 144 dcl cpm_initialize_ entry (); 145 dcl cu_$cp entry (pointer, fixed binary (21), fixed binary (35)); 146 dcl cv_dec_check_ entry (character (*), fixed binary (35)) returns (fixed binary (35)); 147 dcl cv_entry_ entry (character (*), pointer, fixed binary (35)) returns (entry); 148 dcl cv_oct_check_ entry (character (*), fixed binary (35)) returns (bit (36) aligned); 149 dcl cv_ptr_ entry (character (*), fixed binary (35)) returns (pointer); 150 dcl cv_ptr_$terminate entry (pointer); 151 dcl get_system_free_area_ 152 entry () returns (pointer); 153 dcl get_entry_name_ entry (pointer, character (*), fixed binary (18), character (8) aligned, fixed binary (35)); 154 dcl get_temp_segment_ entry (character (*), pointer, fixed binary (35)); 155 dcl hcs_$fs_get_path_name 156 entry (pointer, character (*), fixed binary, character (*), fixed binary (35)); 157 dcl ioa_ entry () options (variable); 158 dcl ioa_$rsnnl entry () options (variable); 159 dcl ioa_$rsnpnnl entry () options (variable); 160 dcl pathname_ entry (character (*), character (*)) returns (character (168)); 161 dcl probe$probe entry () options (variable); 162 dcl program_interrupt$program_interrupt 163 entry () options (variable); 164 dcl release_temp_segment_ 165 entry (character (*), pointer, fixed binary (35)); 166 dcl requote_string_ entry (character (*)) returns (character (*)); 167 dcl ssu_$abort_subsystem 168 entry () options (variable); 169 dcl ssu_$arg_ptr entry (pointer, fixed binary, pointer, fixed binary (21)); 170 dcl ssu_$destroy_invocation 171 entry (pointer); 172 dcl ssu_$get_info_ptr entry (pointer) returns (pointer); 173 dcl ssu_$get_procedure entry (pointer, character (*), entry, fixed binary (35)); 174 dcl ssu_$print_message entry () options (variable); 175 dcl ssu_$return_arg entry (pointer, fixed binary, bit (1) aligned, pointer, fixed binary (21)); 176 dcl ssu_$set_info_ptr entry (pointer, pointer); 177 dcl ssu_$set_procedure entry (pointer, character (*), entry, fixed binary (35)); 178 dcl ssu_$standalone_invocation 179 entry (pointer, character (*), character (*), pointer, entry, fixed binary (35)); 180 181 dcl cleanup condition; 182 183 dcl (addr, addwordno, baseptr, before, binary, codeptr, divide, environmentptr, float, hbound, index, lbound, 184 length, mod, null, rtrim, stackbaseptr, string, substr) 185 builtin; 186 187 /* control_point_manager_call: cpmc: entry () options (variable); */ 188 189 call ssu_$standalone_invocation (sci_ptr, CONTROL_POINT_MANAGER_CALL, CONTROL_POINT_MANAGER_CALL_VERSION, 190 null (), abort_control_point_manager_call, code); 191 if code ^= 0 192 then do; 193 call com_err_ (code, CONTROL_POINT_MANAGER_CALL, "Creating a standalone invocation."); 194 return; 195 end; 196 197 on cleanup call ssu_$destroy_invocation (sci_ptr); 198 199 cpmc_info.operation_idx = 0; /* see commentary before operation_arg_ptr for details */ 200 cpmc_info.ssu_arg_ptr = cpm_$nulle; 201 call ssu_$set_info_ptr (sci_ptr, addr (cpmc_info)); 202 203 call ssu_$return_arg (sci_ptr, n_arguments, is_active_function, return_value_ptr, return_value_lth); 204 if n_arguments = 0 205 then call display_usage_message_and_abort ("operation {operation_arguments}"); 206 207 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 208 209 do cpmc_info.operation_idx = lbound (OPERATION_ENTRIES, 1) to hbound (OPERATION_ENTRIES, 1); 210 do i = lbound (OPERATION_NAMES, 2) to hbound (OPERATION_NAMES, 2); 211 if argument = OPERATION_NAMES (cpmc_info.operation_idx, i) 212 then go to KNOWN_OPERATION; 213 end; 214 end; 215 216 call ssu_$abort_subsystem (sci_ptr, 0, "Unknown operation. ""^a""", argument); 217 218 219 KNOWN_OPERATION: 220 if is_active_function & OPERATION_IS_COMMAND_ONLY (cpmc_info.operation_idx) 221 then call ssu_$abort_subsystem (sci_ptr, error_table_$active_function, 222 "^/^-The ""^a"" keyword is not valid when used as an active function.", 223 OPERATION_NAMES (cpmc_info.operation_idx, 1)); 224 225 call prepare_for_operation (); 226 227 call OPERATION_ENTRIES (cpmc_info.operation_idx) (); 228 /* perform the requested operation */ 229 230 RETURN_FROM_CONTROL_POINT_MANAGER_CALL: 231 call ssu_$destroy_invocation (sci_ptr); 232 233 return; 234 235 236 237 /* Invoked by ssu_$abort_subsystem and ssu_$abort_line after printing an error message to terminate command execution */ 238 239 abort_control_point_manager_call: 240 procedure (); 241 242 go to RETURN_FROM_CONTROL_POINT_MANAGER_CALL; 243 244 end abort_control_point_manager_call; 245 246 /* Due to a bug in ssu_, the following procedures (operation_arg_ptr and get_command_and_operation_name) must be 247* entrypoints directly into control_point_manager_call rather than internal procedures. Therefore, they can only 248* reference data which is made available through the subsystem's info_ptr. */ 249 250 dcl P_sci_ptr pointer parameter; /* common to both entrypoints */ 251 252 dcl 1 based_cpmc_info like cpmc_info aligned based (cpmc_info_ptr); 253 dcl cpmc_info_ptr pointer; 254 255 256 257 /* ssu_$arg_ptr replacement used by the individual operations */ 258 259 operation_arg_ptr: 260 entry (P_sci_ptr, P_argument_idx, P_argument_ptr, P_argument_lth); 261 262 dcl P_argument_idx fixed binary parameter; 263 dcl P_argument_ptr pointer parameter; 264 dcl P_argument_lth fixed binary (21) parameter; 265 266 cpmc_info_ptr = ssu_$get_info_ptr (P_sci_ptr); 267 268 call based_cpmc_info.ssu_arg_ptr (P_sci_ptr, (P_argument_idx + 1), P_argument_ptr, P_argument_lth); 269 270 return; 271 272 273 274 /* ssu_$get_subsystem_and_request_name replacement used by the individual operations */ 275 276 get_command_and_operation_name: 277 entry (P_sci_ptr) returns (character (72) varying); 278 279 dcl command_and_operation_name 280 character (72) varying; 281 282 cpmc_info_ptr = ssu_$get_info_ptr (P_sci_ptr); 283 284 command_and_operation_name = rtrim (CONTROL_POINT_MANAGER_CALL); 285 286 if based_cpmc_info.operation_idx > 0 287 then do; /* there's an operation in control at present */ 288 command_and_operation_name = command_and_operation_name || " ("; 289 command_and_operation_name = 290 command_and_operation_name || OPERATION_NAMES (based_cpmc_info.operation_idx, 1); 291 command_and_operation_name = command_and_operation_name || ")"; 292 end; 293 294 return (command_and_operation_name); 295 296 /* This entrypoint is invoked by the create and generate_call operations in the other control point -- After invoking the 297* user's entrypoint, this entrypint will then terminate the user's info_ptr as it was initiated by this command in the 298* first place. */ 299 300 run_users_entry: 301 entry (P_users_entry_ptr); 302 303 dcl P_users_entry_ptr pointer parameter; 304 305 users_entry_ptr = P_users_entry_ptr; 306 307 on cleanup 308 begin; 309 if users_entry.info_ptr ^= null () 310 then do; 311 call cv_ptr_$terminate (users_entry.info_ptr); 312 users_entry.info_ptr = null (); 313 end; 314 end; 315 316 call users_entry.entry (users_entry.info_ptr); 317 318 if users_entry.info_ptr ^= null () 319 then do; 320 call cv_ptr_$terminate (users_entry.info_ptr); 321 users_entry.info_ptr = null (); 322 end; 323 324 return; 325 326 327 328 /* This entrypoint is invoked by the run operation in the new control point to invoke execute the command line and the 329* release the temporary segment containing the command line. */ 330 331 run_command_line: 332 entry (P_command_line_ptr); 333 334 dcl P_command_line_ptr pointer parameter; 335 336 command_line_ptr = P_command_line_ptr; 337 338 on cleanup 339 begin; 340 if command_line_ptr ^= null () 341 then call release_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, (0)); 342 end; 343 344 call cu_$cp (addwordno (addr (command_line), 1), length (command_line), (0)); 345 346 call release_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, (0)); 347 348 return; 349 350 /* This entrypoint is invoked by the program_interrupt operation in the target control point to actually signal 351* program_interrupt -- The user can request that the control point be made the preferred control point before actually 352* signalling program_interrupt. Due to the interaction of cpm_$generate_call and the control point scheduler, setting 353* the preferred control point must be deferred until we are running in the target control point. */ 354 355 pi_signaller: 356 entry (P_pi_preferred_ptr); 357 358 dcl P_pi_preferred_ptr pointer parameter; 359 360 system_area_ptr = get_system_free_area_ (); 361 362 pi_preferred_ptr = P_pi_preferred_ptr; 363 364 on cleanup 365 begin; 366 if pi_preferred_ptr ^= null () 367 then free pi_preferred in (system_area); 368 pi_preferred_ptr = null (); 369 end; 370 371 if pi_preferred 372 then do; 373 call cpm_$set_preferred_control_point (get_control_point_id_ (), code); 374 if code ^= 0 375 then call com_err_ (code, CONTROL_POINT_MANAGER_CALL, 376 "Trying to make the control point ^12.3b preferred.", get_control_point_id_ ()); 377 end; 378 379 free pi_preferred in (system_area); /* we don't need it anymore */ 380 pi_preferred_ptr = null (); 381 382 call program_interrupt$program_interrupt (); /* the command knows how to handle no handler */ 383 384 return; 385 386 /* Prepare to perform a specific operation */ 387 388 prepare_for_operation: 389 procedure (); 390 391 n_arguments = n_arguments - 1; /* operations don't count their name as an argument */ 392 393 394 /* Replace ssu_$arg_ptr with a private procedure -- The private procedure will increment the requested argument index by 395* one before calling the saved value of ssu_$arg_ptr. In this way, the individual operations can be coded as if they 396* were standalone commands as the private ssu_$arg_ptr will, effectively, make them ignore the existence of our real 397* first argument -- the operation keyword. */ 398 399 call ssu_$get_procedure (sci_ptr, SSU_ARG_PTR, cpmc_info.ssu_arg_ptr, code); 400 401 if code = 0 /* we have the reall ssu_$arg_ptr stashed away */ 402 then call ssu_$set_procedure (sci_ptr, SSU_ARG_PTR, operation_arg_ptr, code); 403 404 if code ^= 0 405 then call ssu_$abort_subsystem (sci_ptr, code, "Attempting to replace ssu_$arg_ptr."); 406 407 408 /* Replace ssu_$get_subsystem_and_request_name with a private procedure -- The private procedure uses the operation's 409* primary name as the "request" name. */ 410 411 call ssu_$set_procedure (sci_ptr, SSU_GET_SUBSYSTEM_AND_REQUEST_NAME, get_command_and_operation_name, code); 412 if code ^= 0 413 then call ssu_$abort_subsystem (sci_ptr, code, "Attempting to replace ssu_$get_subsystem_and_request_name."); 414 415 416 /* Initialize the OPERATION_ENTRIES array -- Multics PL/I does not implement constant entry arrays. */ 417 418 OPERATION_ENTRIES (1) = is_cpm_enabled; 419 OPERATION_ENTRIES (2) = get_id; 420 OPERATION_ENTRIES (3) = create_control_point$create; 421 OPERATION_ENTRIES (4) = destroy; 422 OPERATION_ENTRIES (5) = start; 423 OPERATION_ENTRIES (6) = wakeup; 424 OPERATION_ENTRIES (7) = stop; 425 OPERATION_ENTRIES (8) = scheduler; 426 OPERATION_ENTRIES (9) = generate_call; 427 OPERATION_ENTRIES (10) = list; 428 OPERATION_ENTRIES (11) = probe; 429 OPERATION_ENTRIES (12) = program_interrupt; 430 OPERATION_ENTRIES (13) = create_control_point$run; 431 OPERATION_ENTRIES (14) = get_cl_intermediary; 432 OPERATION_ENTRIES (15) = set_cl_intermediary; 433 OPERATION_ENTRIES (16) = get_preferred; 434 OPERATION_ENTRIES (17) = set_preferred; 435 OPERATION_ENTRIES (18) = push_preferred; 436 OPERATION_ENTRIES (19) = pop_preferred; 437 OPERATION_ENTRIES (20) = enable_cpm; 438 OPERATION_ENTRIES (21) = select; 439 440 return; 441 442 end prepare_for_operation; 443 444 /* Display a usage message for the command or one of its operations and then abort the command */ 445 446 display_usage_message_and_abort: 447 procedure (p_arguments_description); 448 449 dcl p_arguments_description 450 character (*) parameter; 451 452 if is_active_function 453 then call active_fnc_err_$suppress_name (0, CONTROL_POINT_MANAGER_CALL, "Usage: ^a^[ ^a^;^s^]^[ ^a^]", 454 CONTROL_POINT_MANAGER_CALL, (cpmc_info.operation_idx > 0), 455 OPERATION_NAMES (cpmc_info.operation_idx, 1), (length (p_arguments_description) > 0), 456 p_arguments_description); 457 else call com_err_$suppress_name (0, CONTROL_POINT_MANAGER_CALL, "Usage: ^a^[ ^a^;^s^]^[ ^a^]", 458 CONTROL_POINT_MANAGER_CALL, (cpmc_info.operation_idx > 0), 459 OPERATION_NAMES (cpmc_info.operation_idx, 1), (length (p_arguments_description) > 0), 460 p_arguments_description); 461 462 call abort_control_point_manager_call (); /* never returns */ 463 464 end display_usage_message_and_abort; 465 466 467 468 /* Abort the operation if it was given any arguments */ 469 470 reject_any_arguments: 471 procedure (); 472 473 if n_arguments ^= 0 474 then call ssu_$abort_subsystem (sci_ptr, 0, "No arguments may be given for this operation."); 475 476 return; 477 478 end reject_any_arguments; 479 480 481 482 /* Pickup a control argument's required argument */ 483 484 fetch_next_argument: 485 procedure (p_noarg_message); 486 487 dcl p_noarg_message character (*) parameter; 488 489 if argument_idx = n_arguments 490 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, p_noarg_message); 491 492 argument_idx = argument_idx + 1; 493 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 494 495 return; 496 497 end fetch_next_argument; 498 499 /* Convert a character string into a control point ID -- Actually, this procedure sets cpd_ptr to locate the control point 500* definition requested by the user. A control point ID can be specified in one of two ways. Either the entire ID must 501* be given or only the first six digits (the stack segment number) must be supplied. In either case, the ID must always 502* be supplied as an octal number. */ 503 504 cv_string_to_control_point_id: 505 procedure (); 506 507 dcl 1 decoded_control_point_id /* internal representation of a control point ID */ 508 aligned, 509 2 stack_segno bit (18) unaligned, 510 2 unique_bits bit (18) unaligned; 511 512 dcl control_point_id bit (36) aligned; 513 dcl check_unique_bits bit (1) aligned; 514 515 control_point_id = cv_oct_check_ (argument, code); 516 if code ^= 0 517 then call ssu_$abort_subsystem (sci_ptr, error_table_$bad_conversion, 518 "Control point IDs must be given as octal strings; not ""^a"".", argument); 519 520 if control_point_id > "000000777777"b3 /* full ID given */ 521 then do; 522 string (decoded_control_point_id) = control_point_id; 523 check_unique_bits = "1"b; 524 end; 525 else do; 526 string (decoded_control_point_id) = substr (control_point_id, 19, 18) || "000000"b3; 527 check_unique_bits = "0"b; 528 end; 529 530 if cpm_data_$valid_control_points.map (binary (decoded_control_point_id.stack_segno, 18, 0)) 531 then do; /* the given ID does identify a valid stack */ 532 cpd_ptr = baseptr (decoded_control_point_id.stack_segno) -> stack_header.cpm_data_ptr; 533 if check_unique_bits 534 then if control_point_data.id = control_point_id 535 then return; 536 else ; /* unique IDs don't match */ 537 else return; /* caller only supplied the stack segno */ 538 end; 539 540 call ssu_$abort_subsystem (sci_ptr, cpm_et_$control_point_not_found, "^6.3b^[^6.3b^;xxxxxx^]", 541 decoded_control_point_id.stack_segno, check_unique_bits, decoded_control_point_id.unique_bits); 542 543 end cv_string_to_control_point_id; 544 545 /* Enable control point management */ 546 547 enable_cpm: 548 procedure (); 549 550 call reject_any_arguments (); 551 552 if stackbaseptr () -> stack_header.cpm_enabled 553 then call ssu_$abort_subsystem (sci_ptr, 0, "Control point management is already enabled."); 554 else call cpm_initialize_ (); 555 556 return; 557 558 end enable_cpm; 559 560 561 /* Determine whether control point management is enabled */ 562 563 is_cpm_enabled: 564 procedure (); 565 566 dcl cpm_is_enabled bit (1) aligned; 567 568 call reject_any_arguments (); 569 570 cpm_is_enabled = (stackbaseptr () -> stack_header.cpm_enabled ^= ""b); 571 572 if is_active_function /* return it into the command line */ 573 then if cpm_is_enabled 574 then return_value = "true"; 575 else return_value = "false"; 576 577 else call ioa_ ("Control point management is^[ not^] enabled.", ^cpm_is_enabled); 578 579 return; 580 581 end is_cpm_enabled; 582 583 584 585 /* Determine the current control point's unique ID */ 586 587 get_id: 588 procedure (); 589 590 dcl id_string character (12); 591 592 call reject_any_arguments (); 593 594 call ioa_$rsnnl ("^12.3b", id_string, (0), get_control_point_id_ ()); 595 596 if is_active_function /* return it into the command line */ 597 then return_value = id_string; 598 599 else call ioa_ ("Current control point ID is ^a.", id_string); 600 601 return; 602 603 end get_id; 604 605 /* The "create" and "run" operations */ 606 607 create_control_point: 608 procedure (); 609 return; /* not used */ 610 611 dcl 1 ccpi_header like create_control_point_info.header aligned; 612 613 dcl atd_argument character (atd_argument_lth) based (atd_argument_ptr); 614 dcl atd_argument_ptr pointer; 615 dcl atd_argument_lth fixed binary (21); 616 617 dcl control_point_id bit (36) aligned; 618 619 dcl users_entry_entrypoint_name 620 character (256); 621 dcl users_entry_ename character (32); 622 623 dcl (create_operation, run_operation, in_command_line, have_users_entry, have_users_info_ptr, display_the_id, 624 start_the_control_point, prefer_the_control_point, prefer_the_control_point_given) 625 bit (1) aligned; 626 627 628 629 /* Create a new control point -- This operation is pratically a direct interface to cpm_$create. However, rather than 630* invoking the user's initial procedure immediately in the new control point, we supply a private initial procedure whose 631* sole purpose is to insure that the user's info_ptr is properly terminated. */ 632 633 create_control_point$create: 634 entry (); 635 636 if n_arguments = 0 637 then call display_usage_message_and_abort ("ENTRY {INFO_PTR} {-control_args}"); 638 639 create_operation = "1"b; 640 run_operation = "0"b; 641 642 go to CREATE_CONTROL_POINT; 643 644 645 646 /* Create a new control point to execute the supplied command line */ 647 648 create_control_point$run: 649 entry (); 650 651 if n_arguments = 0 652 then call display_usage_message_and_abort ("{-control_args} COMMAND_LINE"); 653 654 create_operation = "0"b; 655 run_operation = "1"b; 656 657 go to CREATE_CONTROL_POINT; 658 659 660 661 /* The actual code for both the "create" and "run" operations */ 662 663 CREATE_CONTROL_POINT: 664 system_area_ptr = get_system_free_area_ (); 665 666 users_entry_ptr, /* for cleanup handler */ 667 command_line_ptr, ccpi_ptr = null (); 668 have_users_entry, have_users_info_ptr = "0"b; 669 670 on cleanup 671 begin; 672 if create_operation 673 then do; 674 if users_entry_ptr ^= null () 675 then do; 676 if have_users_info_ptr 677 then do; 678 call cv_ptr_$terminate (users_entry.info_ptr); 679 have_users_info_ptr = "0"b; 680 end; 681 free users_entry in (system_area); 682 users_entry_ptr = null (); 683 end; 684 end; 685 else /*** if run_operation then */ 686 do; 687 if command_line_ptr ^= null () 688 then call release_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, (0)); 689 end; 690 if ccpi_ptr ^= null () 691 then do; 692 free create_control_point_info in (system_area); 693 ccpi_ptr = null (); 694 end; 695 end; 696 697 698 /* Setup appropriate defaults for the new control point */ 699 700 display_the_id = "1"b; /* tell the user what happened */ 701 702 if create_operation 703 then do; 704 allocate users_entry in (system_area) set (users_entry_ptr); 705 ccpi_header.initproc.entry = run_users_entry; 706 ccpi_header.initproc.info_ptr = users_entry_ptr; 707 start_the_control_point = "0"b; /* the user must explicitly start this control point ... */ 708 prefer_the_control_point = "0"b; /* ... and explicitly give it control */ 709 end; 710 711 else /*** if run_operation then */ 712 do; 713 call get_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, code); 714 if code ^= 0 715 then call ssu_$abort_subsystem (sci_ptr, code, "Unable to obtain space for the command line."); 716 command_line = ""; /* initialize the command line to empty */ 717 ccpi_header.initproc.entry = run_command_line; 718 ccpi_header.initproc.info_ptr = command_line_ptr; 719 start_the_control_point = "1"b; /* have execution begin as soon as possible ... */ 720 prefer_the_control_point = "1"b; /* ... and let it have real control */ 721 end; 722 723 ccpi_header.version = CREATE_CONTROL_POINT_INFO_VERSION_1; 724 ccpi_header.comment = ""; 725 ccpi_header.priority = 1; 726 string (ccpi_header.flags) = ""b; 727 ccpi_header.independent = "1"b; 728 729 730 /* Parse the arguments which define the new control point */ 731 732 in_command_line = "0"b; /* for run: we haven't seen the command line yet */ 733 prefer_the_control_point_given = "0"b; 734 735 do argument_idx = 1 to n_arguments; 736 737 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 738 739 if ^in_command_line & (index (argument, "-") = 1) 740 then /* a control argument */ 741 if (argument = "-long") | (argument = "-lg") 742 then display_the_id = "1"b; 743 else if (argument = "-brief") | (argument = "-bf") 744 then display_the_id = "0"b; 745 746 else if (argument = "-start") | (argument = "-sr") 747 then start_the_control_point = "1"b; 748 else if (argument = "-no_start") | (argument = "-nsr") 749 then start_the_control_point = "0"b; 750 751 else if argument = "-preferred" 752 then prefer_the_control_point, prefer_the_control_point_given = "1"b; 753 else if argument = "-not_preferred" 754 then do; 755 prefer_the_control_point = "0"b; 756 prefer_the_control_point_given = "1"b; 757 end; 758 759 else if argument = "-priority" 760 then do; 761 call fetch_next_argument ("A number after ""-priority""."); 762 ccpi_header.priority = cv_dec_check_ (argument, code); 763 if code ^= 0 764 then call ssu_$abort_subsystem (sci_ptr, error_table_$bad_conversion, "-priority ""^a""", 765 argument); 766 end; 767 768 else if (argument = "-comment") | (argument = "-com") 769 then do; 770 call fetch_next_argument ("A string after ""-comment""."); 771 ccpi_header.comment = argument; 772 end; 773 774 else if argument = "-independent" 775 then ccpi_header.independent = "1"b; 776 else if argument = "-dependent" 777 then ccpi_header.independent = "0"b; 778 779 else if argument = "-cl_intermediary" 780 then do; 781 call fetch_next_argument ("An entry after ""-cl_intermediary""."); 782 ccpi_header.user_cl_intermediary = cv_entry_ (argument, null (), code); 783 if code ^= 0 784 then call ssu_$abort_subsystem (sci_ptr, code, "-cl_intermediary ""^a""", argument); 785 ccpi_header.user_cl_intermediary_given = "1"b; 786 end; 787 else if argument = "-default_cl_intermediary" 788 then ccpi_header.user_cl_intermediary_given = "0"b; 789 790 else if (argument = "-separate_io_switches") | (argument = "-sepios") 791 then do; 792 ccpi_header.separate_standard_iocbs = "1"b; 793 ccpi_header.user_io_attach_desc_given = "0"b; 794 if argument_idx < n_arguments 795 then do; /* check for an optional attach description */ 796 call ssu_$arg_ptr (sci_ptr, (argument_idx + 1), atd_argument_ptr, 797 atd_argument_lth); 798 if index (atd_argument, "-") ^= 1 799 then do; 800 ccpi_header.user_io_attach_desc_given = "1"b; 801 argument_idx = argument_idx + 1; 802 end; 803 end; 804 end; 805 else if (argument = "-shared_io_switches") | (argument = "-shios") 806 then ccpi_header.separate_standard_iocbs, ccpi_header.user_io_attach_desc_given = "0"b; 807 808 else if run_operation & ((argument = "-string") | (argument = "-str")) 809 then do; 810 if argument_idx = n_arguments 811 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, 812 "A command line after ""-string""."); 813 in_command_line = "1"b; 814 end; 815 816 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 817 818 else /* not a control argument: depends on the operation */ 819 if create_operation 820 then do; 821 if ^have_users_entry 822 then do; 823 users_entry.entry = cv_entry_ (argument, null (), code); 824 if code ^= 0 825 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 826 have_users_entry = "1"b; 827 end; 828 829 else if ^have_users_info_ptr 830 then do; 831 users_entry.info_ptr = cv_ptr_ (argument, code); 832 if code ^= 0 833 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 834 have_users_info_ptr = "1"b; 835 end; 836 837 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 838 end; 839 840 else /*** if run_operation then */ 841 do; 842 if length (command_line) > 0 843 then command_line = command_line || " "; 844 command_line = command_line || argument; 845 in_command_line = "1"b; 846 end; 847 end; 848 849 if create_operation 850 then do; 851 if ^have_users_entry /* there must be an initial procedure */ 852 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, 853 "An initial procedure must be specified."); 854 if ^have_users_info_ptr /* ... but its info_ptr is optional */ 855 then users_entry.info_ptr = null (); 856 end; 857 858 else /*** if run_operation then */ 859 do; 860 if length (command_line) = 0 861 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A command line to be executed."); 862 end; 863 864 if prefer_the_control_point_given & ^start_the_control_point 865 then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, 866 """-no_start"" and ""-^[not_^;^]preferred"".", ^prefer_the_control_point); 867 868 if ccpi_header.comment = "" 869 then do; /* supply a reasonable "name" for the control point */ 870 if create_operation 871 then do; 872 call hcs_$fs_get_path_name (codeptr (users_entry.entry), ((168)" "), (0), users_entry_ename, 873 (0)); 874 call get_entry_name_ (codeptr (users_entry.entry), users_entry_entrypoint_name, (0), 875 ((8)" "), (0)); 876 ccpi_header.comment = rtrim (users_entry_ename) || "$" || users_entry_entrypoint_name; 877 end; 878 else /*** if run_operation then */ 879 ccpi_header.comment = before (command_line, WHITESPACE); 880 end; 881 882 883 /* Create and, optionally, start the control point and mark it as preferred */ 884 885 if ccpi_header.user_io_attach_desc_given 886 then ccpi_user_io_attach_desc_length = atd_argument_lth; 887 else ccpi_user_io_attach_desc_length = 1; /* PL/I abhors zero-length strings */ 888 889 allocate create_control_point_info in (system_area) set (ccpi_ptr); 890 891 create_control_point_info.header = ccpi_header; 892 create_control_point_info.user_io_attach_desc_length = ccpi_user_io_attach_desc_length; 893 894 if create_control_point_info.user_io_attach_desc_given 895 then create_control_point_info.user_io_attach_desc = atd_argument; 896 897 call cpm_$create (ccpi_ptr, control_point_id, code); 898 if code ^= 0 899 then call ssu_$abort_subsystem (sci_ptr, code, "Creating the control point."); 900 901 revert cleanup; /* it's the new control point's responsibility to cleanup */ 902 903 free create_control_point_info in (system_area); /* we don't need it anymore */ 904 905 if start_the_control_point 906 then do; 907 call cpm_$start (control_point_id, code); 908 if code = 0 909 then /* it started: mark it preferred if requested */ 910 if prefer_the_control_point 911 then do; 912 call cpm_$set_preferred_control_point (control_point_id, code); 913 if code ^= 0 914 then call ssu_$print_message (sci_ptr, code, 915 "Trying to make the control point ^12.3b preferred.", control_point_id); 916 end; 917 else ; 918 else call ssu_$print_message (sci_ptr, code, "Trying to start the control point ^12.3b.", 919 control_point_id); 920 end; 921 922 if display_the_id 923 then call ioa_ ("Control point ^12.3b created^[^[, started, and marked preferred^; and started^]^].", 924 control_point_id, start_the_control_point, prefer_the_control_point); 925 926 return; 927 928 end create_control_point; 929 930 /* Destroy the specified control point */ 931 932 destroy: 933 procedure (); 934 935 if n_arguments ^= 1 936 then call display_usage_message_and_abort ("ID"); 937 938 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 939 940 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 941 942 call cpm_$destroy (control_point_data.id, code); 943 if code ^= 0 944 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to destroy the control point ^12.3b.", 945 control_point_data.id); 946 947 return; 948 949 end destroy; 950 951 952 953 /* Start the specified control point if it is in the STOPPED state */ 954 955 start: 956 procedure (); 957 958 if n_arguments ^= 1 959 then call display_usage_message_and_abort ("ID"); 960 961 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 962 963 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 964 965 call cpm_$start (control_point_data.id, code); 966 if code ^= 0 967 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to start the control point ^12.3b.", 968 control_point_data.id); 969 970 return; 971 972 end start; 973 974 /* Wakeup the specified control point if it is in the BLOCKED state */ 975 976 wakeup: 977 procedure (); 978 979 if n_arguments ^= 1 980 then call display_usage_message_and_abort ("ID"); 981 982 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 983 984 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 985 986 call cpm_$wakeup (control_point_data.id, code); 987 if code ^= 0 988 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to wakeup the control point ^12.3b.", 989 control_point_data.id); 990 991 return; 992 993 end wakeup; 994 995 996 997 /* Stop the specified control point if it is in the READY or BLOCKED state */ 998 999 stop: 1000 procedure (); 1001 1002 if n_arguments ^= 1 1003 then call display_usage_message_and_abort ("ID"); 1004 1005 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1006 1007 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1008 1009 call cpm_$stop (control_point_data.id, code); 1010 if code ^= 0 1011 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to stop the control point ^12.3b.", 1012 control_point_data.id); 1013 1014 return; 1015 1016 end stop; 1017 1018 /* Select the specified control point for preferred treatment -- If the control point is STOPPED, start it. In any event, 1019* try to make it the preferred control point. */ 1020 1021 select: 1022 procedure (); 1023 1024 if n_arguments ^= 1 1025 then call display_usage_message_and_abort ("ID"); 1026 1027 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1028 1029 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1030 1031 call cpm_$start (control_point_data.id, code); 1032 if (code ^= 0) & (code ^= cpm_et_$already_started) 1033 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to start the control point ^12.3b.", 1034 control_point_data.id); 1035 1036 call cpm_$set_preferred_control_point (control_point_data.id, code); 1037 if code ^= 0 1038 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to make the control point ^12.3b preferred.", 1039 control_point_data.id); 1040 1041 return; 1042 1043 end select; 1044 1045 1046 1047 /* Block the current control point and invoke the control point scheduler */ 1048 1049 scheduler: 1050 procedure (); 1051 1052 call reject_any_arguments (); 1053 1054 call cpm_$block (); 1055 call cpm_$scheduler (); 1056 1057 return; 1058 1059 end scheduler; 1060 1061 /* Generate a call to the given entrypoint in another control point */ 1062 1063 generate_call: 1064 procedure (); 1065 1066 dcl (have_control_point_id, have_users_entry, have_users_info_ptr, immediate, preferred, preferred_given) 1067 bit (1) aligned; 1068 1069 if n_arguments = 0 1070 then call display_usage_message_and_abort ("ID ENTRY {INFO_PTR} {-control_args}"); 1071 1072 system_area_ptr = get_system_free_area_ (); 1073 1074 users_entry_ptr = null (); /* for cleanup handler */ 1075 have_control_point_id, have_users_entry, have_users_info_ptr = "0"b; 1076 1077 on cleanup 1078 begin; 1079 if users_entry_ptr ^= null () 1080 then do; 1081 if have_users_info_ptr 1082 then do; 1083 call cv_ptr_$terminate (users_entry.info_ptr); 1084 have_users_info_ptr = "0"b; 1085 end; 1086 free users_entry in (system_area); 1087 users_entry_ptr = null (); 1088 end; 1089 end; 1090 1091 allocate users_entry in (system_area) set (users_entry_ptr); 1092 1093 1094 /* Parse our arguments */ 1095 1096 immediate = "1"b; /* run the other control point right away */ 1097 preferred, preferred_given = "0"b; /* ... but do not make it the preferred control point */ 1098 1099 do argument_idx = 1 to n_arguments; 1100 1101 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 1102 1103 if index (argument, "-") = 1 1104 then /* a control argument */ 1105 if (argument = "-immediate") | (argument = "-im") 1106 then immediate = "1"b; 1107 else if (argument = "-defer_until_ready") | (argument = "-dur") 1108 then immediate = "0"b; 1109 1110 else if argument = "-preferred" 1111 then preferred, preferred_given = "1"b; 1112 else if argument = "-not_preferred" 1113 then do; 1114 preferred = "0"b; 1115 preferred_given = "1"b; 1116 end; 1117 1118 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 1119 1120 else /* a non-control argument */ 1121 if ^have_control_point_id 1122 then do; 1123 call cv_string_to_control_point_id (); 1124 have_control_point_id = "1"b; 1125 end; 1126 1127 else if ^have_users_entry 1128 then do; 1129 users_entry.entry = cv_entry_ (argument, null (), code); 1130 if code ^= 0 1131 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 1132 have_users_entry = "1"b; 1133 end; 1134 1135 else if ^have_users_info_ptr 1136 then do; 1137 users_entry.info_ptr = cv_ptr_ (argument, code); 1138 if code ^= 0 1139 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 1140 have_users_info_ptr = "1"b; 1141 end; 1142 1143 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 1144 end; 1145 1146 if ^have_control_point_id /* we must have someplace to execute the entrypoint */ 1147 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A control point ID must be specified."); 1148 1149 if ^have_users_entry /* ... and there must be an entrypoint */ 1150 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "An entrypoint must be specified."); 1151 1152 if ^have_users_info_ptr /* ... but its info_ptr is optional */ 1153 then users_entry.info_ptr = null (); 1154 1155 if ^immediate & preferred_given 1156 then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, 1157 """-defer_until_ready"" and ""-^[not_^]preferred"".", ^preferred); 1158 1159 1160 /* Make the call */ 1161 1162 if immediate 1163 then if preferred 1164 then call cpm_$generate_call_preferred (control_point_data.id, run_users_entry, users_entry_ptr, code); 1165 else call cpm_$generate_call (control_point_data.id, run_users_entry, users_entry_ptr, code); 1166 else call cpm_$generate_call (control_point_data.id, run_users_entry, users_entry_ptr, code); 1167 1168 if code ^= 0 1169 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to generate a call into the control point ^12.3b.", 1170 control_point_data.id); 1171 1172 return; 1173 1174 end generate_call; 1175 1176 /* List the specified (or all) control points with optional metering data */ 1177 1178 list: 1179 procedure (); 1180 1181 dcl cpd_ptr_list dimension (n_arguments) pointer based (cpd_ptr_list_ptr); 1182 dcl cpd_ptr_list_ptr pointer; 1183 dcl n_control_points fixed binary; 1184 1185 dcl (list_all, display_meters) 1186 bit (1) aligned; 1187 dcl i fixed binary; 1188 1189 if n_arguments = 0 1190 then call display_usage_message_and_abort ("{IDs} {-control_args}"); 1191 1192 if stackbaseptr () -> stack_header.cpm_enabled = ""b 1193 then call ssu_$abort_subsystem (sci_ptr, 0, "Control point management is not enabled."); 1194 1195 system_area_ptr = get_system_free_area_ (); 1196 1197 cpd_ptr_list_ptr = null (); /* for cleanup handler */ 1198 1199 on cleanup 1200 begin; 1201 if cpd_ptr_list_ptr ^= null () 1202 then do; 1203 free cpd_ptr_list in (system_area); 1204 cpd_ptr_list_ptr = null (); 1205 end; 1206 end; 1207 1208 allocate cpd_ptr_list in (system_area) set (cpd_ptr_list_ptr); 1209 1210 1211 /* Parse our arguments */ 1212 1213 list_all = "0"b; /* caller must either supply IDs or "-all" */ 1214 n_control_points = 0; 1215 1216 display_meters = "0"b; /* no meters unless explicitly requested */ 1217 1218 do argument_idx = 1 to n_arguments; 1219 1220 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 1221 1222 if index (argument, "-") = 1 1223 then /* a control argument */ 1224 if (argument = "-all") | (argument = "-a") 1225 then list_all = "1"b; 1226 1227 else if argument = "-meters" 1228 then display_meters = "1"b; 1229 else if argument = "-no_meters" 1230 then display_meters = "0"b; 1231 1232 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 1233 1234 else /* a non-control argument: must be a control point ID */ 1235 do; 1236 call cv_string_to_control_point_id (); 1237 do i = 1 to n_control_points; /* ... don't list a control point more than once */ 1238 if cpd_ptr_list (i) = cpd_ptr 1239 then go to PARSE_NEXT_ARGUMENT; 1240 end; 1241 n_control_points = n_control_points + 1; 1242 cpd_ptr_list (n_control_points) = cpd_ptr; 1243 end; 1244 1245 PARSE_NEXT_ARGUMENT: 1246 end; 1247 1248 if list_all & (n_control_points > 0) 1249 then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, """-all"" and control point IDs."); 1250 1251 else if ^list_all & (n_control_points = 0) 1252 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, 1253 "At least one control point ID or ""-all"" must be specified."); 1254 1255 1256 /* Now display the requested control points */ 1257 1258 if display_meters & (list_all | (n_control_points > 1)) 1259 then do; /* display scheduler meters if multiple control points */ 1260 call ioa_ ("Scheduler overhead:"); 1261 call display_metering_data (addr (cpm_data_$global_meters.overhead)); 1262 end; 1263 1264 if list_all | (n_control_points > 1) 1265 then do; /* display a header for multiple control points */ 1266 call ioa_ ("^4tID^12t(Long ID)^25tDepth^33tState^51tComment"); 1267 call ioa_ (""); 1268 end; 1269 1270 if list_all /* list all control points */ 1271 then call list_all_control_points (addr (cpm_data_$root_control_point_data), 0); 1272 1273 else /* list only the ones specificly requested */ 1274 do i = 1 to n_control_points; 1275 call list_control_point (cpd_ptr_list (i), -1); 1276 end; 1277 1278 free cpd_ptr_list in (system_area); /* cleanup */ 1279 cpd_ptr_list_ptr = null (); 1280 1281 return; 1282 1283 1284 1285 /* List all control points recursively */ 1286 1287 list_all_control_points: 1288 procedure (p_cpd_ptr, p_depth) recursive; 1289 1290 dcl 1 p_cpd like control_point_data aligned based (p_cpd_ptr); 1291 dcl p_cpd_ptr pointer; 1292 1293 dcl p_depth fixed binary parameter; 1294 1295 dcl 1 child_cpd like control_point_data aligned based (child_cpd_ptr); 1296 dcl child_cpd_ptr pointer; 1297 1298 call list_control_point (p_cpd_ptr, p_depth); /* display this control point's definition */ 1299 1300 do child_cpd_ptr = p_cpd.first_child repeat (child_cpd.next_peer) while (child_cpd_ptr ^= null ()); 1301 call list_all_control_points (child_cpd_ptr, (p_depth + 1)); 1302 end; 1303 1304 return; 1305 1306 end list_all_control_points; 1307 1308 1309 1310 /* List a single control point */ 1311 1312 list_control_point: 1313 procedure (p_cpd_ptr, p_depth); 1314 1315 dcl 1 p_cpd like control_point_data aligned based (p_cpd_ptr); 1316 dcl p_cpd_ptr pointer; 1317 1318 dcl p_depth fixed binary parameter; 1319 1320 dcl 1 parent_cpd like control_point_data aligned based (parent_cpd_ptr); 1321 dcl parent_cpd_ptr pointer; 1322 dcl depth fixed binary; 1323 1324 dcl 1 cpma like control_point_meters_argument aligned; 1325 1326 if p_depth = -1 1327 then do; /* caller has asked us to compute it */ 1328 depth = 0; 1329 do parent_cpd_ptr = p_cpd.parent repeat (parent_cpd.parent) while (parent_cpd_ptr ^= null ()); 1330 depth = depth + 1; 1331 end; 1332 end; 1333 1334 else depth = p_depth; /* caller has supplied it */ 1335 1336 call ioa_ ("^[*^; ^]^6.3b^9t(^12.3b)^27t^3d^33t^a^46t^a", (p_cpd_ptr = stackbaseptr () -> stack_header.cpm_data_ptr), 1337 p_cpd.id, p_cpd.id, depth, STATE_NAMES (p_cpd.state), p_cpd.comment); 1338 1339 if display_meters & (p_cpd.state > CPM_DESTROYED) 1340 then do; /* ask cpm_ for the meters to insure they're up-to-date */ 1341 cpma.version = CONTROL_POINT_METERS_ARGUMENT_VERSION_1; 1342 call cpm_$get_control_point_meters (p_cpd.id, addr (cpma), (0)); 1343 call display_metering_data (addr (cpma.meters)); 1344 end; 1345 1346 return; 1347 1348 end list_control_point; 1349 1350 1351 1352 /* Display the supplied metering data */ 1353 1354 display_metering_data: 1355 procedure (p_meters_ptr); 1356 1357 dcl 1 p_meters like control_point_meters aligned based (p_meters_ptr); 1358 dcl p_meters_ptr pointer; 1359 1360 call ioa_ ("^11tRuns - ^6d^46tElapsed time - ^a", p_meters.n_schedules, format_time (p_meters.real_time)); 1361 1362 call ioa_ ("^11tCPU time - ^a^46tPage Faults - ^6d", format_time (p_meters.virtual_cpu_time), 1363 p_meters.page_faults); 1364 1365 call ioa_ ("^11tSegment Faults - ^6d^46tBounds Faults - ^6d", p_meters.segment_faults, p_meters.bounds_faults); 1366 1367 call ioa_ ("^11tVTOC reads - ^6d^46tVTOC writes - ^6d", p_meters.vtoc_reads, p_meters.vtoc_writes); 1368 1369 call ioa_ (""); 1370 1371 return; 1372 1373 end display_metering_data; 1374 1375 1376 1377 /* Format an elapsed time reading as HHH:MM:SS.SSSSSS */ 1378 1379 format_time: 1380 procedure (p_time) returns (character (16)); 1381 1382 dcl p_time fixed binary (71) parameter; 1383 1384 dcl 1 formatted_time aligned, 1385 2 hours picture "999" unaligned, 1386 2 colon_1 character (1) unaligned, 1387 2 minutes picture "99" unaligned, 1388 2 colon_2 character (1) unaligned, 1389 2 seconds picture "99v.999999" unaligned; 1390 1391 dcl (hours_value, minutes_value, seconds_value) 1392 fixed binary (71); 1393 1394 seconds_value = mod (p_time, MICROSECONDS_PER_MINUTE); 1395 minutes_value = mod ((p_time - seconds_value), MICROSECONDS_PER_HOUR); 1396 hours_value = p_time - (minutes_value + seconds_value); 1397 1398 string (formatted_time) = "000:00:00.000000"; 1399 formatted_time.hours = divide (hours_value, MICROSECONDS_PER_HOUR, 10, 0); 1400 formatted_time.minutes = divide (minutes_value, MICROSECONDS_PER_MINUTE, 7, 0); 1401 formatted_time.seconds = float (seconds_value) / float (MICROSECONDS_PER_SECOND); 1402 1403 return (string (formatted_time)); 1404 1405 end format_time; 1406 1407 end list; 1408 1409 /* Invoke probe in the specified control point */ 1410 1411 probe: 1412 procedure (); 1413 1414 if n_arguments ^= 1 1415 then call display_usage_message_and_abort ("ID"); 1416 1417 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1418 1419 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1420 1421 call cpm_$generate_call_preferred (control_point_data.id, probe_caller, null (), code); 1422 if code ^= 0 1423 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to invoke probe in the control point ^12.3b.", 1424 control_point_data.id); 1425 1426 return; 1427 1428 end probe; 1429 1430 1431 1432 /* Invoked by the above internal procedure in the desired control point to actually invoke probe */ 1433 1434 probe_caller: 1435 entry (); 1436 1437 call probe$probe (); 1438 1439 return; 1440 1441 /* Signal program_interrupt in the specified control point */ 1442 1443 program_interrupt: 1444 procedure (); 1445 1446 if n_arguments = 0 1447 then call display_usage_message_and_abort ("ID {-control_arg}"); 1448 1449 system_area_ptr = get_system_free_area_ (); 1450 1451 pi_preferred_ptr = null (); /* for cleanup handler */ 1452 1453 on cleanup 1454 begin; 1455 if pi_preferred_ptr ^= null () 1456 then free pi_preferred in (system_area); 1457 pi_preferred_ptr = null (); 1458 end; 1459 1460 allocate pi_preferred in (system_area) set (pi_preferred_ptr); 1461 1462 1463 /* Parse our arguments */ 1464 1465 cpd_ptr = null (); /* no ID yet */ 1466 pi_preferred = "1"b; /* the target should become preferred */ 1467 1468 do argument_idx = 1 to n_arguments; 1469 1470 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 1471 1472 if index (argument, "-") = 1 1473 then /* a control argument */ 1474 if argument = "-preferred" 1475 then pi_preferred = "1"b; 1476 else if argument = "-not_preferred" 1477 then pi_preferred = "0"b; 1478 1479 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 1480 1481 else /* a non-control argument: must be a control point ID */ 1482 if cpd_ptr = null () 1483 then call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1484 1485 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 1486 end; 1487 1488 if cpd_ptr = null () 1489 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A control point ID must be specified."); 1490 1491 1492 /* Push a call to signal program_interrupt onto the target control point's stack */ 1493 1494 revert cleanup; /* pi_preferred now belongs to the other control point */ 1495 1496 call cpm_$generate_call (control_point_data.id, pi_signaller, pi_preferred_ptr, code); 1497 if code ^= 0 1498 then call ssu_$abort_subsystem (sci_ptr, code, 1499 "Trying to signal program_interrupt in the control point ^12.3b.", control_point_data.id); 1500 1501 return; 1502 1503 end program_interrupt; 1504 1505 /* Determine the user CL intermediary for a specific control point */ 1506 1507 get_cl_intermediary: 1508 procedure (); 1509 1510 dcl cl_intermediary entry (bit (1) aligned) variable; 1511 dcl cl_intermediary_name 1512 character (1024) varying; 1513 dcl cl_intermediary_entrypoint_name 1514 character (256); 1515 dcl cl_intermediary_dirname 1516 character (168); 1517 dcl cl_intermediary_ename 1518 character (32); 1519 1520 if n_arguments ^= 1 1521 then call display_usage_message_and_abort ("ID"); 1522 1523 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1524 1525 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1526 1527 call cpm_$get_user_cl_intermediary (control_point_data.id, cl_intermediary, code); 1528 if code ^= 0 1529 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to get the CL intermediary of the control point ^12.3b", 1530 control_point_data.id); 1531 1532 call hcs_$fs_get_path_name (codeptr (cl_intermediary), cl_intermediary_dirname, (0), cl_intermediary_ename, (0)) 1533 ; 1534 call get_entry_name_ (codeptr (cl_intermediary), cl_intermediary_entrypoint_name, (0), ((8)" "), (0)); 1535 1536 call ioa_$rsnpnnl ("(^a$^a, ^p)", cl_intermediary_name, (0), 1537 pathname_ (cl_intermediary_dirname, cl_intermediary_ename), cl_intermediary_entrypoint_name, 1538 environmentptr (cl_intermediary)); 1539 1540 if is_active_function /* return it into the command line */ 1541 then return_value = requote_string_ ((cl_intermediary_name)); 1542 1543 else call ioa_ ("The CL intermediary for the control point ^12.3b is ^a.", control_point_data.id, 1544 cl_intermediary_name); 1545 1546 return; 1547 1548 end get_cl_intermediary; 1549 1550 /* Set the user CL intermediary for a specific control point */ 1551 1552 set_cl_intermediary: 1553 procedure (); 1554 1555 dcl cl_intermediary entry (bit (1) aligned) variable; 1556 dcl cl_intermediary_name 1557 character (1024) varying; 1558 dcl (have_control_point_id, have_cl_intermediary, use_default_cl_intermediary) 1559 bit (1) aligned; 1560 1561 if n_arguments = 0 1562 then call display_usage_message_and_abort ("ID {ENTRY} {-control_arg}"); 1563 1564 have_control_point_id, have_cl_intermediary, use_default_cl_intermediary = "0"b; 1565 1566 do argument_idx = 1 to n_arguments; 1567 1568 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 1569 1570 if index (argument, "-") = 1 1571 then /* a control argument */ 1572 if (argument = "-default") | (argument = "-dft") 1573 then use_default_cl_intermediary = "1"b; 1574 1575 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 1576 1577 else /* a non-control argument */ 1578 if ^have_control_point_id 1579 then do; 1580 call cv_string_to_control_point_id (); 1581 have_control_point_id = "1"b; 1582 end; 1583 1584 else if ^have_cl_intermediary 1585 then do; 1586 cl_intermediary = cv_entry_ (argument, null (), code); 1587 if code ^= 0 1588 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 1589 have_cl_intermediary = "1"b; 1590 cl_intermediary_name = argument; 1591 end; 1592 1593 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 1594 end; 1595 1596 if ^have_control_point_id 1597 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A control point ID must be specified."); 1598 1599 if have_cl_intermediary & use_default_cl_intermediary 1600 then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, """-default"" and ""^a"".", 1601 cl_intermediary_name); 1602 1603 else if ^have_cl_intermediary & ^use_default_cl_intermediary 1604 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "An entrypoint or ""-default"" must be specified.") 1605 ; 1606 1607 if have_cl_intermediary 1608 then call cpm_$set_user_cl_intermediary (control_point_data.id, cl_intermediary, code); 1609 1610 else /*** if use_default_cl_intermediary then */ 1611 call cpm_$set_user_cl_intermediary (control_point_data.id, cpm_$nulle, code); 1612 1613 if code ^= 0 1614 then call ssu_$abort_subsystem (sci_ptr, code, 1615 "Trying to set the CL intermediary of the control point ^12.3b to ^[""^a""^;its default value^].", 1616 control_point_data.id, have_cl_intermediary, cl_intermediary_name); 1617 1618 return; 1619 1620 end set_cl_intermediary; 1621 1622 /* Determine the unique ID of the preferred control point (if any) */ 1623 1624 get_preferred: 1625 procedure (); 1626 1627 dcl preferred_control_point_id 1628 bit (36) aligned; 1629 dcl id_string character (12); 1630 1631 call reject_any_arguments (); 1632 1633 preferred_control_point_id = cpm_$get_preferred_control_point (); 1634 1635 if is_active_function /* return it into the command line */ 1636 then if preferred_control_point_id = ""b 1637 then return_value = "none"; 1638 else do; 1639 call ioa_$rsnnl ("^12.3b", id_string, (0), preferred_control_point_id); 1640 return_value = id_string; 1641 end; 1642 1643 else if preferred_control_point_id = ""b 1644 then call ioa_ ("There is no preferred control point."); 1645 else call ioa_ ("Preferred control point ID is ^12.3b.", preferred_control_point_id); 1646 1647 return; 1648 1649 end get_preferred; 1650 1651 1652 1653 /* Set the preferred control point */ 1654 1655 set_preferred: 1656 procedure (); 1657 1658 if n_arguments ^= 1 1659 then call display_usage_message_and_abort ("ID"); 1660 1661 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1662 1663 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1664 1665 call cpm_$set_preferred_control_point (control_point_data.id, code); 1666 if code ^= 0 1667 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to make the control point ^12.3b preferred.", 1668 control_point_data.id); 1669 1670 return; 1671 1672 end set_preferred; 1673 1674 /* Set the preferred control point and push the previous one onto the preferred control point stack */ 1675 1676 push_preferred: 1677 procedure (); 1678 1679 dcl pushed_ok bit (1) aligned; 1680 1681 if n_arguments ^= 1 1682 then call display_usage_message_and_abort ("ID"); 1683 1684 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1685 1686 call cv_string_to_control_point_id (); /* sets cpd_ptr or aborts */ 1687 1688 call cpm_$push_preferred_control_point (control_point_data.id, pushed_ok, code); 1689 if code ^= 0 1690 then call ssu_$abort_subsystem (sci_ptr, code, 1691 "Trying to push the preferred stack and make the control point ^12.3b preferred.", 1692 control_point_data.id); 1693 1694 if is_active_function /* return an indication of success into the command line */ 1695 then if pushed_ok 1696 then return_value = "true"; 1697 else return_value = "false"; 1698 1699 return; 1700 1701 end push_preferred; 1702 1703 /* Pop the top entry off the preferred control point stack and make it preferred */ 1704 1705 pop_preferred: 1706 procedure (); 1707 1708 dcl was_pushed bit (1) aligned; 1709 1710 if n_arguments ^= 1 1711 then call display_usage_message_and_abort ("FLAG"); 1712 1713 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 1714 1715 if index (argument, "-") = 1 1716 then call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 1717 1718 else if argument = "true" 1719 then was_pushed = "1"b; 1720 else if argument = "false" 1721 then was_pushed = "0"b; 1722 1723 else call ssu_$abort_subsystem (sci_ptr, error_table_$bad_arg, """^a""", argument); 1724 1725 call cpm_$pop_preferred_control_point (was_pushed); 1726 1727 return; 1728 1729 end pop_preferred; 1730 1731 /* format: off */ 1732 /* BEGIN INCLUDE FILE ... cpm_entries.incl.pl1 */ 1 2 1 3 /****^ HISTORY COMMENTS: 1 4* 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 1 5* audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206): 1 6* Written to support control point management in March 1985 by G. Palter. 1 7* END HISTORY COMMENTS */ 1 8 1 9 /* format: style3,linecom */ 1 10 1 11 /* Control Point Manager (cpm_) entrypoint definitions */ 1 12 1 13 dcl get_control_point_id_ /* returns the ID of the currently running control point */ 1 14 entry () returns (bit (36) aligned); 1 15 1 16 dcl cpm_$create /* create a new control point */ 1 17 entry (pointer, bit (36) aligned, fixed binary (35)); 1 18 1 19 dcl ( 1 20 cpm_$destroy, /* destroy the specified control point */ 1 21 cpm_$start, /* start the specified control point if its stopped */ 1 22 cpm_$wakeup, /* make the specified control point ready if its blocked */ 1 23 cpm_$stop /* stop the specified control point if its ready or blocked */ 1 24 ) entry (bit (36) aligned, fixed binary (35)); 1 25 1 26 dcl cpm_$block entry (); /* block the current control point */ 1 27 1 28 dcl cpm_$scheduler entry (); /* find a runnable control point and let it run */ 1 29 1 30 dcl ( 1 31 cpm_$get_user_cl_intermediary, /* get the user supplied procedure to run during cu_$cl */ 1 32 cpm_$set_user_cl_intermediary /* set the user supplied procedure to run during cu_$cl */ 1 33 ) entry (bit (36) aligned, entry (bit (1) aligned), fixed binary (35)); 1 34 1 35 dcl ( 1 36 cpm_$generate_call, /* generate an immediate call */ 1 37 cpm_$generate_call_preferred, /* generate an immediate call and make it run preferred */ 1 38 cpm_$generate_call_when_ready /* generate a call when the control point is next ready */ 1 39 ) entry (bit (36) aligned, entry (pointer), pointer, fixed binary (35)); 1 40 1 41 dcl cpm_$get_preferred_control_point /* return the ID of the preferred control point */ 1 42 entry () returns (bit (36) aligned); 1 43 dcl cpm_$set_preferred_control_point /* make the specified control point preferred */ 1 44 entry (bit (36) aligned, fixed binary (35)); 1 45 dcl cpm_$push_preferred_control_point /* switch preferred control points */ 1 46 entry (bit (36) aligned, bit (1) aligned, fixed binary (35)); 1 47 dcl cpm_$pop_preferred_control_point /* restore the previous preferred control point */ 1 48 entry (bit (1) aligned); 1 49 1 50 dcl cpm_$get_control_point_meters /* get the usage meters for a specific control point */ 1 51 entry (bit (36) aligned, pointer, fixed binary (35)); 1 52 dcl cpm_$get_scheduler_meters /* get the usage meters for the control point scheduler */ 1 53 entry (pointer, fixed binary (35)); 1 54 1 55 dcl cpm_$nulle entry () options (variable); /* a "null" entry value which should never be called */ 1 56 1 57 /* END INCLUDE FILE ... cpm_entries.incl.pl1 */ 1732 1733 /* BEGIN INCLUDE FILE ... cpm_internal_data.incl.pl1 */ 2 2 2 3 /****^ HISTORY COMMENTS: 2 4* 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 2 5* audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206): 2 6* Written to support control point management in March 1985 by G. Palter. 2 7* END HISTORY COMMENTS */ 2 8 2 9 /* format: style3,linecom */ 2 10 2 11 /* NOTE: This include file references structures contained in the following independent include files -- 2 12* cpm_control_point_data.incl.pl1 cpm_ctrl_pt_meters.incl.pl1 2 13* process_usage.incl.pl1 */ 2 14 2 15 2 16 /* Constants defined by the Control Point Manager for internal use only */ 2 17 2 18 dcl cpm_data_$subsystem_name /* our name for use in error messages, etc. */ 2 19 character (32) external; 2 20 2 21 2 22 /* Static data defined by the Control Point Manager for internal use only */ 2 23 2 24 dcl 1 cpm_data_$root_control_point_data /* definition of the root control point */ 2 25 like control_point_data aligned external; 2 26 2 27 dcl cpm_data_$gc_control_points /* ON => there are destroyed control points to ... */ 2 28 bit (1) aligned external; /* ... be garbage collected */ 2 29 2 30 dcl cpm_data_$saved_cl_intermediary /* the process' original CL intermediary */ 2 31 entry (bit (36) aligned) variable external; 2 32 2 33 dcl cpm_data_$preferred_control_point /* -> definition of the preferred control point */ 2 34 pointer external; 2 35 2 36 dcl 1 cpm_data_$preferred_control_point_stack /* preferred control points stacked by ... */ 2 37 aligned external, /* ... event calls and timers */ 2 38 2 stack_depth fixed binary, /* ... # of entries in the stack at present */ 2 39 2 pad bit (36) aligned, 2 40 2 cpd_ptr_stack (16) pointer; /* ... the actual stack */ 2 41 2 42 dcl 1 cpm_data_$ready_queue /* ordered list of ready control points in the process */ 2 43 aligned external, 2 44 2 first pointer, 2 45 2 last pointer; 2 46 2 47 dcl cpm_data_$previous_control_point /* -> definition of control point which ran before current */ 2 48 pointer external; 2 49 2 50 dcl 1 cpm_data_$valid_control_points /* maps stack segment numbers into an indication of ... */ 2 51 aligned external, /* ... whether there is a live control point there */ 2 52 2 map (0:4095) bit (1) unaligned; 2 53 2 54 dcl 1 cpm_data_$global_meters /* global meters kept by the control point manager */ 2 55 aligned external, 2 56 2 overhead like control_point_meters, /* ... scheduling overhead */ 2 57 2 last_meters like control_point_meters; /* ... used to compute meters (not really a meter) */ 2 58 2 59 /* END INCLUDE FILE ... cpm_internal_data.incl.pl1 */ 1733 1734 /* BEGIN INCLUDE FILE ... cpm_control_point_data.incl.pl1 */ 3 2 3 3 /****^ HISTORY COMMENTS: 3 4* 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 3 5* audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206): 3 6* Written to support control point management in March 1985 by G. Palter. 3 7* END HISTORY COMMENTS */ 3 8 3 9 /* format: style3,linecom,idind22 */ 3 10 3 11 /* NOTE: This include file references structures contained in the following independent include files -- 3 12* cpm_ctrl_pt_meters.incl.pl1 process_usage.incl.pl1 */ 3 13 3 14 3 15 /* Definition of a single control point in the process */ 3 16 3 17 dcl 1 control_point_data aligned based (cpd_ptr), 3 18 2 id bit (36) aligned, /* unique ID of this control point */ 3 19 2 group_id bit (36) aligned, /* unique ID of containing group of control points */ 3 20 2 state fixed binary, /* scheduling state (see below) */ 3 21 2 flags, 3 22 3 preferred bit (1) unaligned, /* ON => this is the preferred task (infinite priority) */ 3 23 3 swapped_switches /* ON => this control point's switches were swapped ... */ 3 24 bit (1) unaligned, /* ... with the root's during an unclaimed signal */ 3 25 3 pad bit (34) unaligned, 3 26 2 priority fixed binary, /* scheduling priority */ 3 27 2 pad bit (36) aligned, 3 28 2 stack_ptr pointer, /* -> the stack used by this control point */ 3 29 2 last_frame_ptr pointer, /* -> last frame in said stack where control is to resume */ 3 30 2 destroy label, /* transferring to this label will kill the control point */ 3 31 2 parent pointer, /* -> defintion of this control point's parent */ 3 32 2 peers, /* linked list of this control point's peers */ 3 33 3 prev_peer pointer, 3 34 3 next_peer pointer, 3 35 2 children, /* linked list of this control point's children */ 3 36 3 first_child pointer, 3 37 3 last_child pointer, 3 38 2 ready_queue, /* ordered list of control points in the ready state */ 3 39 3 prev_ready pointer, 3 40 3 next_ready pointer, 3 41 2 user_cl_intermediary /* procedure to be called by cpm_overseer_$cl_intermediary */ 3 42 entry (bit (1) aligned), 3 43 2 comment character (64), /* a description of this control point */ 3 44 2 saved_environment, /* data saved when the control point stops running ... */ 3 45 3 ips_mask bit (36) aligned, /* ... IPS mask when it stopped running */ 3 46 3 privileges bit (36) aligned, /* ... system privileges */ 3 47 3 cl_intermediary entry (bit (36) aligned), /* ... CL intermediary */ 3 48 3 io_switches, /* ... standard I/O switches */ 3 49 4 user_io pointer, 3 50 4 user_input pointer, 3 51 4 user_output pointer, 3 52 4 error_output pointer, 3 53 2 meters like control_point_meters; /* per control point metering data */ 3 54 3 55 dcl cpd_ptr pointer; 3 56 3 57 3 58 /* Scheduler states for a control point */ 3 59 3 60 dcl ( 3 61 CPM_DESTROYED initial (0), /* waiting to be deleted */ 3 62 CPM_STOPPED initial (1), /* can not run without an explicit cpm_$start */ 3 63 CPM_BLOCKED initial (2), /* blocked on an IPC event channel */ 3 64 CPM_READY initial (3) /* eligible to run on next call to cpm_$scheduler */ 3 65 ) fixed binary static options (constant); 3 66 3 67 /* END INCLUDE FILE ... cpm_control_point_data.incl.pl1 */ 1734 4 1 /* BEGIN INCLUDE FILE ... cpm_ctrl_pt_meters.incl.pl1 */ 4 2 4 3 /****^ HISTORY COMMENTS: 4 4* 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 4 5* audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206): 4 6* Written to support control point management in March 1985 by G. Palter. 4 7* END HISTORY COMMENTS */ 4 8 4 9 /* format: style3,linecom */ 4 10 4 11 /* NOTE: The include file references structures contained in the following independent include file -- 4 12* process_usage.incl.pl1 */ 4 13 4 14 4 15 /* Definition of control point metering data -- A set of metering data is kept independently for each control point which 4 16* provides usage statistics for that control point. In addition, another set of metering data is kept to record the 4 17* overhead involved in the control point scheduler */ 4 18 4 19 dcl 1 control_point_meters 4 20 aligned based (cpm_ptr), 4 21 2 n_schedules fixed binary, /* # of times the control point has been run or 4 22* # of times the scheduler has been invoked */ 4 23 2 pad fixed binary, 4 24 2 real_time fixed binary (71), /* ... real time used by the control point or scheduler */ 4 25 2 usage like process_usage; /* ... CPU, memory, etc. */ 4 26 4 27 dcl cpm_ptr pointer; 4 28 4 29 4 30 /* Definition of the structure used in calls to cpm_$get_control_point_meters and cpm_$get_scheduler_meters */ 4 31 4 32 dcl 1 control_point_meters_argument 4 33 aligned based (cpma_ptr), 4 34 2 version character (8) unaligned, 4 35 2 meters like control_point_meters; 4 36 4 37 dcl CONTROL_POINT_METERS_ARGUMENT_VERSION_1 4 38 character (8) static options (constant) initial ("cpma_001"); 4 39 4 40 dcl MAX_NUMBER_OF_METERS 4 41 fixed bin internal static options (constant) init (9); 4 42 4 43 dcl cpma_ptr pointer; 4 44 4 45 /* END INCLUDE FILE ... cpm_ctrl_pt_meters.incl.pl1 */ 1735 5 1 /* BEGIN INCLUDE FILE process_usage.incl.pl1 WRITTEN 09/17/76 BY Richard Bratt */ 5 2 5 3 declare 5 4 process_usage_pointer pointer, 5 5 1 process_usage based (process_usage_pointer), 5 6 2 number_wanted fixed bin, /* max number of entries to be returned */ 5 7 2 number_can_return fixed bin, /* the number of entries currently returnable */ 5 8 2 cpu_time fixed bin (71), 5 9 2 paging_measure fixed bin (71), 5 10 2 page_faults fixed bin (34), 5 11 2 pd_faults fixed bin (34), 5 12 2 virtual_cpu_time fixed bin (71), 5 13 2 segment_faults fixed bin (34), 5 14 2 bounds_faults fixed bin (34), 5 15 2 vtoc_reads fixed bin (34), 5 16 2 vtoc_writes fixed bin (34); 5 17 5 18 /* END INCLUDE FILE process_usage.incl.pl1 */ 1736 1737 /* BEGIN INCLUDE FILE ... cpm_create_ctrl_pt_info.incl.pl1 */ 6 2 6 3 /****^ HISTORY COMMENTS: 6 4* 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 6 5* audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206): 6 6* Written to support control point management in March 1985 by G. Palter. 6 7* END HISTORY COMMENTS */ 6 8 6 9 /* format: style3,linecom */ 6 10 6 11 /* Description of a new control point to be created by a call to cpm_$create */ 6 12 6 13 dcl 1 create_control_point_info 6 14 aligned based (ccpi_ptr), 6 15 2 header, 6 16 3 version character (8) unaligned, 6 17 3 comment character (64) unaligned, /* a description of the control point */ 6 18 3 initproc, /* definition of the first user code to be run */ 6 19 4 entry entry (pointer) variable, /* ... the actual program */ 6 20 4 info_ptr pointer, /* ... and its single parameter */ 6 21 3 user_cl_intermediary /* user program to be called by cpm_cl_intermediary_ */ 6 22 entry (bit (1) aligned) variable, 6 23 3 priority fixed binary, /* scheduling prioirty (1 is highest, 2 next, etc.) */ 6 24 3 flags, 6 25 4 independent bit (1) unaligned, /* ON => the new control point is standalone */ 6 26 /* OFF => the new control point belongs to the current one */ 6 27 4 separate_standard_iocbs /* ON => the new control point should have its own switches */ 6 28 bit (1) unaligned, /* OFF => the new control point shares its parent's */ 6 29 4 user_io_attach_desc_given /* ON => there is an attach description for user_i/o */ 6 30 bit (1) unaligned, /* OFF => user_i/o should be syn_'ed to the parent's */ 6 31 4 user_cl_intermediary_given /* ON => user has supplied a program to be called by ... */ 6 32 bit (1) unaligned, /* ... cpm_cl_intermediary_ before creating a new level */ 6 33 4 pad bit (32) unaligned, 6 34 3 pad bit (36) aligned, 6 35 3 user_io_attach_desc_length /* length of the user_i/o attach description (if present) */ 6 36 fixed binary (21), 6 37 2 user_io_attach_desc /* attach description for user_i/o */ 6 38 character (ccpi_user_io_attach_desc_length 6 39 refer (create_control_point_info.user_io_attach_desc_length)) unaligned; 6 40 6 41 dcl CREATE_CONTROL_POINT_INFO_VERSION_1 6 42 character (8) static options (constant) initial ("ccpi_001"); 6 43 6 44 dcl ccpi_user_io_attach_desc_length /* required to allocate the above structure */ 6 45 fixed binary (21); 6 46 dcl ccpi_ptr pointer; 6 47 6 48 /* END INCLUDE FILE ... cpm_create_ctrl_pt_info.incl.pl1 */ 1737 1738 /* BEGIN INCLUDE FILE ... stack_header.incl.pl1 .. 3/72 Bill Silver */ 7 2 /* modified 7/76 by M. Weaver for *system links and more system use of areas */ 7 3 /* modified 3/77 by M. Weaver to add rnt_ptr */ 7 4 /* Modified April 1983 by C. Hornig for tasking */ 7 5 7 6 /****^ HISTORY COMMENTS: 7 7* 1) change(86-06-24,DGHowe), approve(86-06-24,MCR7396), 7 8* audit(86-08-05,Schroth), install(86-11-03,MR12.0-1206): 7 9* added the heap_header_ptr definition. 7 10* 2) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 7 11* audit(86-10-10,Fawcett), install(86-11-03,MR12.0-1206): 7 12* Modified to support control point management. These changes were actually 7 13* made in February 1985 by G. Palter. 7 14* 3) change(86-10-22,Fawcett), approve(86-10-22,MCR7473), 7 15* audit(86-10-22,Farley), install(86-11-03,MR12.0-1206): 7 16* Remove the old_lot pointer and replace it with cpm_data_ptr. Use the 18 7 17* bit pad after cur_lot_size for the cpm_enabled. This was done to save some 7 18* space int the stack header and change the cpd_ptr unal to cpm_data_ptr 7 19* (ITS pair). 7 20* END HISTORY COMMENTS */ 7 21 7 22 /* format: style2 */ 7 23 7 24 dcl sb ptr; /* the main pointer to the stack header */ 7 25 7 26 dcl 1 stack_header based (sb) aligned, 7 27 2 pad1 (4) fixed bin, /* (0) also used as arg list by outward_call_handler */ 7 28 2 cpm_data_ptr ptr, /* (4) pointer to control point which owns this stack */ 7 29 2 combined_stat_ptr ptr, /* (6) pointer to area containing separate static */ 7 30 2 clr_ptr ptr, /* (8) pointer to area containing linkage sections */ 7 31 2 max_lot_size fixed bin (17) unal, /* (10) DU number of words allowed in lot */ 7 32 2 main_proc_invoked fixed bin (11) unal, /* (10) DL nonzero if main procedure invoked in run unit */ 7 33 2 have_static_vlas bit (1) unal, /* (10) DL "1"b if (very) large arrays are being used in static */ 7 34 2 pad4 bit (2) unal, 7 35 2 run_unit_depth fixed bin (2) unal, /* (10) DL number of active run units stacked */ 7 36 2 cur_lot_size fixed bin (17) unal, /* (11) DU number of words (entries) in lot */ 7 37 2 cpm_enabled bit (18) unal, /* (11) DL non-zero if control point management is enabled */ 7 38 2 system_free_ptr ptr, /* (12) pointer to system storage area */ 7 39 2 user_free_ptr ptr, /* (14) pointer to user storage area */ 7 40 2 null_ptr ptr, /* (16) */ 7 41 2 stack_begin_ptr ptr, /* (18) pointer to first stack frame on the stack */ 7 42 2 stack_end_ptr ptr, /* (20) pointer to next useable stack frame */ 7 43 2 lot_ptr ptr, /* (22) pointer to the lot for the current ring */ 7 44 2 signal_ptr ptr, /* (24) pointer to signal procedure for current ring */ 7 45 2 bar_mode_sp ptr, /* (26) value of sp before entering bar mode */ 7 46 2 pl1_operators_ptr ptr, /* (28) pointer to pl1_operators_$operator_table */ 7 47 2 call_op_ptr ptr, /* (30) pointer to standard call operator */ 7 48 2 push_op_ptr ptr, /* (32) pointer to standard push operator */ 7 49 2 return_op_ptr ptr, /* (34) pointer to standard return operator */ 7 50 2 return_no_pop_op_ptr 7 51 ptr, /* (36) pointer to standard return / no pop operator */ 7 52 2 entry_op_ptr ptr, /* (38) pointer to standard entry operator */ 7 53 2 trans_op_tv_ptr ptr, /* (40) pointer to translator operator ptrs */ 7 54 2 isot_ptr ptr, /* (42) pointer to ISOT */ 7 55 2 sct_ptr ptr, /* (44) pointer to System Condition Table */ 7 56 2 unwinder_ptr ptr, /* (46) pointer to unwinder for current ring */ 7 57 2 sys_link_info_ptr ptr, /* (48) pointer to *system link name table */ 7 58 2 rnt_ptr ptr, /* (50) pointer to Reference Name Table */ 7 59 2 ect_ptr ptr, /* (52) pointer to event channel table */ 7 60 2 assign_linkage_ptr ptr, /* (54) pointer to storage for (obsolete) hcs_$assign_linkage */ 7 61 2 heap_header_ptr ptr, /* (56) pointer to the heap header for this ring */ 7 62 2 trace, 7 63 3 frames, 7 64 4 count fixed bin, /* (58) number of trace frames */ 7 65 4 top_ptr ptr unal, /* (59) pointer to last trace frame */ 7 66 3 in_trace bit (36) aligned, /* (60) trace antirecursion flag */ 7 67 2 pad2 bit (36), /* (61) */ 7 68 2 pad5 pointer; /* (62) pointer to future stuff */ 7 69 7 70 /* The following offset refers to a table within the pl1 operator table. */ 7 71 7 72 dcl tv_offset fixed bin init (361) internal static; 7 73 /* (551) octal */ 7 74 7 75 7 76 /* The following constants are offsets within this transfer vector table. */ 7 77 7 78 dcl ( 7 79 call_offset fixed bin init (271), 7 80 push_offset fixed bin init (272), 7 81 return_offset fixed bin init (273), 7 82 return_no_pop_offset fixed bin init (274), 7 83 entry_offset fixed bin init (275) 7 84 ) internal static; 7 85 7 86 7 87 7 88 7 89 7 90 /* The following declaration is an overlay of the whole stack header. Procedures which 7 91* move the whole stack header should use this overlay. 7 92**/ 7 93 7 94 dcl stack_header_overlay (size (stack_header)) fixed bin based (sb); 7 95 7 96 7 97 7 98 /* END INCLUDE FILE ... stack_header.incl.pl1 */ 1738 1739 /* format: on */ 1740 1741 end control_point_manager_call; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/04/86 1031.4 control_point_manager_call.pl1 >special_ldd>install>MR12.0-1206>control_point_manager_call.pl1 1732 1 11/03/86 1113.3 cpm_entries.incl.pl1 >special_ldd>install>MR12.0-1206>cpm_entries.incl.pl1 1733 2 11/03/86 1113.3 cpm_internal_data.incl.pl1 >special_ldd>install>MR12.0-1206>cpm_internal_data.incl.pl1 1734 3 11/03/86 1112.9 cpm_control_point_data.incl.pl1 >special_ldd>install>MR12.0-1206>cpm_control_point_data.incl.pl1 1735 4 11/03/86 1114.7 cpm_ctrl_pt_meters.incl.pl1 >special_ldd>install>MR12.0-1206>cpm_ctrl_pt_meters.incl.pl1 1736 5 10/26/76 1333.6 process_usage.incl.pl1 >ldd>include>process_usage.incl.pl1 1737 6 11/03/86 1113.1 cpm_create_ctrl_pt_info.incl.pl1 >special_ldd>install>MR12.0-1206>cpm_create_ctrl_pt_info.incl.pl1 1738 7 11/04/86 1324.3 stack_header.incl.pl1 >special_ldd>install>MR12.0-1206>stack_header.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. CONTROL_POINT_MANAGER_CALL 000502 constant char(32) initial unaligned dcl 59 set ref 189* 193* 284 340* 346* 374* 452* 452* 457* 457* 687* 713* CONTROL_POINT_MANAGER_CALL_VERSION 000472 constant char(32) initial unaligned dcl 62 set ref 189* CONTROL_POINT_METERS_ARGUMENT_VERSION_1 000002 constant char(8) initial unaligned dcl 4-37 ref 1341 CPM_DESTROYED constant fixed bin(17,0) initial dcl 3-60 ref 1339 CREATE_CONTROL_POINT_INFO_VERSION_1 000000 constant char(8) initial unaligned dcl 6-41 ref 723 MICROSECONDS_PER_HOUR 000010 constant fixed bin(71,0) initial dcl 115 ref 1395 1399 MICROSECONDS_PER_MINUTE 000006 constant fixed bin(71,0) initial dcl 115 ref 1394 1400 MICROSECONDS_PER_SECOND 000004 constant fixed bin(71,0) initial dcl 115 ref 1401 OPERATION_ENTRIES 000134 automatic entry variable array dcl 108 set ref 209 209 227 418* 419* 420* 421* 422* 423* 424* 425* 426* 427* 428* 429* 430* 431* 432* 433* 434* 435* 436* 437* 438* OPERATION_IS_COMMAND_ONLY 000012 constant bit(1) initial array dcl 97 ref 219 OPERATION_NAMES 000037 constant varying char(20) initial array dcl 73 set ref 210 210 211 219* 289 452* 457* P_argument_idx parameter fixed bin(17,0) dcl 262 ref 259 268 P_argument_lth parameter fixed bin(21,0) dcl 264 set ref 259 268* P_argument_ptr parameter pointer dcl 263 set ref 259 268* P_command_line_ptr parameter pointer dcl 334 ref 331 336 P_pi_preferred_ptr parameter pointer dcl 358 ref 355 362 P_sci_ptr parameter pointer dcl 250 set ref 259 266* 268* 276 282* P_users_entry_ptr parameter pointer dcl 303 ref 300 305 SSU_ARG_PTR 000462 constant char(32) initial unaligned dcl 65 set ref 399* 401* SSU_GET_SUBSYSTEM_AND_REQUEST_NAME 000452 constant char(32) initial unaligned dcl 66 set ref 411* STATE_NAMES 000260 automatic varying char(12) initial array dcl 110 set ref 110* 110* 110* 110* 1336* WHITESPACE 000450 constant char(5) initial unaligned dcl 69 ref 878 active_fnc_err_$suppress_name 000034 constant entry external dcl 139 ref 452 addr builtin function dcl 183 ref 201 201 344 344 1261 1261 1270 1270 1342 1342 1343 1343 addwordno builtin function dcl 183 ref 344 344 argument based char unaligned dcl 29 set ref 211 216* 515* 516* 739 739 739 743 743 746 746 748 748 751 753 759 762* 763* 768 768 771 774 776 779 782* 783* 787 790 790 805 805 808 808 816* 823* 824* 831* 832* 837* 844 1103 1103 1103 1107 1107 1110 1112 1118* 1129* 1130* 1137* 1138* 1143* 1222 1222 1222 1227 1229 1232* 1472 1472 1476 1479* 1485* 1570 1570 1570 1575* 1586* 1587* 1590 1593* 1715 1715* 1718 1720 1723* argument_idx 000110 automatic fixed bin(17,0) dcl 32 set ref 489 492* 492 493* 735* 737* 794 796 801* 801 810* 1099* 1101* 1218* 1220* 1468* 1470* 1566* 1568* argument_lth 000106 automatic fixed bin(21,0) dcl 31 set ref 207* 211 216 216 493* 515 515 516 516 737* 739 739 739 743 743 746 746 748 748 751 753 759 762 762 763 763 768 768 771 774 776 779 782 782 783 783 787 790 790 805 805 808 808 816 816 823 823 824 824 831 831 832 832 837 837 844 938* 961* 982* 1005* 1027* 1101* 1103 1103 1103 1107 1107 1110 1112 1118 1118 1129 1129 1130 1130 1137 1137 1138 1138 1143 1143 1220* 1222 1222 1222 1227 1229 1232 1232 1417* 1470* 1472 1472 1476 1479 1479 1485 1485 1523* 1568* 1570 1570 1570 1575 1575 1586 1586 1587 1587 1590 1593 1593 1661* 1684* 1713* 1715 1715 1715 1718 1720 1723 1723 argument_ptr 000104 automatic pointer dcl 30 set ref 207* 211 216 493* 515 516 737* 739 739 739 743 743 746 746 748 748 751 753 759 762 763 768 768 771 774 776 779 782 783 787 790 790 805 805 808 808 816 823 824 831 832 837 844 938* 961* 982* 1005* 1027* 1101* 1103 1103 1103 1107 1107 1110 1112 1118 1129 1130 1137 1138 1143 1220* 1222 1222 1222 1227 1229 1232 1417* 1470* 1472 1472 1476 1479 1485 1523* 1568* 1570 1570 1570 1575 1586 1587 1590 1593 1661* 1684* 1713* 1715 1715 1718 1720 1723 atd_argument based char unaligned dcl 613 ref 798 894 atd_argument_lth 000150 automatic fixed bin(21,0) dcl 615 set ref 796* 798 885 894 atd_argument_ptr 000146 automatic pointer dcl 614 set ref 796* 798 894 based_cpmc_info based structure level 1 dcl 252 baseptr builtin function dcl 183 ref 532 before builtin function dcl 183 ref 878 binary builtin function dcl 183 ref 530 bounds_faults 17 based fixed bin(34,0) level 3 dcl 1357 set ref 1365* ccpi_header 000106 automatic structure level 1 dcl 611 set ref 891 ccpi_ptr 000340 automatic pointer dcl 6-46 set ref 666* 690 692 693* 889* 891 892 894 894 897* 903 ccpi_user_io_attach_desc_length 000336 automatic fixed bin(21,0) dcl 6-44 set ref 885* 887* 889 889 892 check_unique_bits 000102 automatic bit(1) dcl 513 set ref 523* 527* 533 540* child_cpd based structure level 1 dcl 1295 child_cpd_ptr 000100 automatic pointer dcl 1296 set ref 1300* 1300* 1301* 1302 children 24 based structure level 2 dcl 1290 cl_intermediary 000100 automatic entry variable dcl 1510 in procedure "get_cl_intermediary" set ref 1527* 1532 1532 1534 1534 1536 1536 cl_intermediary 000100 automatic entry variable dcl 1555 in procedure "set_cl_intermediary" set ref 1586* 1607* cl_intermediary_dirname 000605 automatic char(168) unaligned dcl 1515 set ref 1532* 1536* 1536* cl_intermediary_ename 000657 automatic char(32) unaligned dcl 1517 set ref 1532* 1536* 1536* cl_intermediary_entrypoint_name 000505 automatic char(256) unaligned dcl 1513 set ref 1534* 1536* cl_intermediary_name 000104 automatic varying char(1024) dcl 1556 in procedure "set_cl_intermediary" set ref 1590* 1599* 1613* cl_intermediary_name 000104 automatic varying char(1024) dcl 1511 in procedure "get_cl_intermediary" set ref 1536* 1540 1543* cleanup 000300 stack reference condition dcl 181 ref 197 307 338 364 670 901 1077 1199 1453 1494 code 000132 automatic fixed bin(35,0) dcl 57 set ref 189* 191 193* 373* 374 374* 399* 401 401* 404 404* 411* 412 412* 515* 516 713* 714 714* 762* 763 782* 783 783* 823* 824 824* 831* 832 832* 897* 898 898* 907* 908 912* 913 913* 918* 942* 943 943* 965* 966 966* 986* 987 987* 1009* 1010 1010* 1031* 1032 1032 1032* 1036* 1037 1037* 1129* 1130 1130* 1137* 1138 1138* 1162* 1165* 1166* 1168 1168* 1421* 1422 1422* 1496* 1497 1497* 1527* 1528 1528* 1586* 1587 1587* 1607* 1610* 1613 1613* 1665* 1666 1666* 1688* 1689 1689* codeptr builtin function dcl 183 ref 872 872 874 874 1532 1532 1534 1534 com_err_ 000036 constant entry external dcl 141 ref 193 374 com_err_$suppress_name 000040 constant entry external dcl 142 ref 457 command_and_operation_name 000310 automatic varying char(72) dcl 279 set ref 284* 288* 288 289* 289 291* 291 294 command_line based varying char dcl 43 set ref 344 344 344 344 716* 842 842* 842 844* 844 860 878 command_line_ptr 000116 automatic pointer dcl 44 set ref 336* 340 340* 344 344 344 344 346* 666* 687 687* 713* 716 718 842 842 842 844 844 860 878 comment 2 000106 automatic char(64) level 2 in structure "ccpi_header" packed unaligned dcl 611 in procedure "create_control_point" set ref 724* 771* 868 876* 878* comment 40 based char(64) level 2 in structure "p_cpd" dcl 1315 in procedure "list_control_point" set ref 1336* control_point_data based structure level 1 dcl 3-17 control_point_id 000151 automatic bit(36) dcl 617 in procedure "create_control_point" set ref 897* 907* 912* 913* 918* 922* control_point_id 000101 automatic bit(36) dcl 512 in procedure "cv_string_to_control_point_id" set ref 515* 520 522 526 533 control_point_meters based structure level 1 dcl 4-19 control_point_meters_argument based structure level 1 dcl 4-32 cpd_ptr 000334 automatic pointer dcl 3-55 set ref 532* 533 942 943 965 966 986 987 1009 1010 1031 1032 1036 1037 1162 1165 1166 1168 1238 1242 1421 1422 1465* 1481 1488 1496 1497 1527 1528 1543 1607 1610 1613 1665 1666 1688 1689 cpd_ptr_list based pointer array dcl 1181 set ref 1203 1208 1238 1242* 1275* 1278 cpd_ptr_list_ptr 000100 automatic pointer dcl 1182 set ref 1197* 1201 1203 1204* 1208* 1238 1242 1275 1278 1279* cpm_$block 000150 constant entry external dcl 1-26 ref 1054 cpm_$create 000136 constant entry external dcl 1-16 ref 897 cpm_$destroy 000140 constant entry external dcl 1-19 ref 942 cpm_$generate_call 000160 constant entry external dcl 1-35 ref 1165 1166 1496 cpm_$generate_call_preferred 000162 constant entry external dcl 1-35 ref 1162 1421 cpm_$get_control_point_meters 000174 constant entry external dcl 1-50 ref 1342 cpm_$get_preferred_control_point 000164 constant entry external dcl 1-41 ref 1633 cpm_$get_user_cl_intermediary 000154 constant entry external dcl 1-30 ref 1527 cpm_$nulle 000176 constant entry external dcl 1-55 ref 200 1610 1610 cpm_$pop_preferred_control_point 000172 constant entry external dcl 1-47 ref 1725 cpm_$push_preferred_control_point 000170 constant entry external dcl 1-45 ref 1688 cpm_$scheduler 000152 constant entry external dcl 1-28 ref 1055 cpm_$set_preferred_control_point 000166 constant entry external dcl 1-43 ref 373 912 1036 1665 cpm_$set_user_cl_intermediary 000156 constant entry external dcl 1-30 ref 1607 1610 cpm_$start 000142 constant entry external dcl 1-19 ref 907 965 1031 cpm_$stop 000146 constant entry external dcl 1-19 ref 1009 cpm_$wakeup 000144 constant entry external dcl 1-19 ref 986 cpm_data_$global_meters 000204 external static structure level 1 dcl 2-54 cpm_data_$root_control_point_data 000200 external static structure level 1 dcl 2-24 set ref 1270 1270 cpm_data_$valid_control_points 000202 external static structure level 1 dcl 2-50 cpm_data_ptr 4 based pointer level 2 dcl 7-26 ref 532 1336 cpm_enabled 13(18) based bit(18) level 2 packed unaligned dcl 7-26 ref 552 570 1192 cpm_et_$already_started 000010 external static fixed bin(35,0) dcl 124 ref 1032 cpm_et_$control_point_not_found 000012 external static fixed bin(35,0) dcl 124 set ref 540* cpm_initialize_ 000042 constant entry external dcl 144 ref 554 cpm_is_enabled 000100 automatic bit(1) dcl 566 set ref 570* 572 577 cpma 000104 automatic structure level 1 dcl 1324 set ref 1342 1342 cpmc_info 000124 automatic structure level 1 dcl 51 set ref 201 201 cpmc_info_ptr 000306 automatic pointer dcl 253 set ref 266* 268 282* 286 289 create_control_point_info based structure level 1 dcl 6-13 set ref 692 889 903 create_operation 000262 automatic bit(1) dcl 623 set ref 639* 654* 672 702 818 849 870 cu_$cp 000044 constant entry external dcl 145 ref 344 cv_dec_check_ 000046 constant entry external dcl 146 ref 762 cv_entry_ 000050 constant entry external dcl 147 ref 782 823 1129 1586 cv_oct_check_ 000052 constant entry external dcl 148 ref 515 cv_ptr_ 000054 constant entry external dcl 149 ref 831 1137 cv_ptr_$terminate 000056 constant entry external dcl 150 ref 311 320 678 1083 decoded_control_point_id 000100 automatic structure level 1 dcl 507 set ref 522* 526* depth 000102 automatic fixed bin(17,0) dcl 1322 set ref 1328* 1330* 1330 1334* 1336* display_meters 000104 automatic bit(1) dcl 1185 set ref 1216* 1227* 1229* 1258 1339 display_the_id 000267 automatic bit(1) dcl 623 set ref 700* 739* 743* 922 divide builtin function dcl 183 ref 1399 1400 entry based entry variable level 2 in structure "users_entry" dcl 38 in procedure "cpmc" set ref 316 823* 872 872 874 874 1129* entry 22 000106 automatic entry variable level 3 in structure "ccpi_header" dcl 611 in procedure "create_control_point" set ref 705* 717* environmentptr builtin function dcl 183 ref 1536 1536 error_table_$active_function 000014 external static fixed bin(35,0) dcl 124 set ref 219* error_table_$bad_arg 000016 external static fixed bin(35,0) dcl 124 set ref 1723* error_table_$bad_conversion 000020 external static fixed bin(35,0) dcl 124 set ref 516* 763* error_table_$badopt 000022 external static fixed bin(35,0) dcl 124 set ref 816* 1118* 1232* 1479* 1575* 1715* error_table_$inconsistent 000024 external static fixed bin(35,0) dcl 124 set ref 864* 1155* 1248* 1599* error_table_$noarg 000026 external static fixed bin(35,0) dcl 124 set ref 489* 810* 851* 860* 1146* 1149* 1251* 1488* 1596* 1603* error_table_$too_many_args 000030 external static fixed bin(35,0) dcl 124 set ref 837* 1143* 1485* 1593* first_child 24 based pointer level 3 dcl 1290 ref 1300 flags 35 000106 automatic structure level 2 in structure "ccpi_header" dcl 611 in procedure "create_control_point" set ref 726* flags 35 based structure level 3 in structure "create_control_point_info" dcl 6-13 in procedure "cpmc" float builtin function dcl 183 ref 1401 1401 formatted_time 000106 automatic structure level 1 dcl 1384 set ref 1398* 1403 get_control_point_id_ 000134 constant entry external dcl 1-13 ref 373 373 374 374 594 594 get_entry_name_ 000062 constant entry external dcl 153 ref 874 1534 get_system_free_area_ 000060 constant entry external dcl 151 ref 360 663 1072 1195 1449 get_temp_segment_ 000064 constant entry external dcl 154 ref 713 have_cl_intermediary 000506 automatic bit(1) dcl 1558 set ref 1564* 1584 1589* 1599 1603 1607 1613* have_control_point_id 000100 automatic bit(1) dcl 1066 in procedure "generate_call" set ref 1075* 1120 1124* 1146 have_control_point_id 000505 automatic bit(1) dcl 1558 in procedure "set_cl_intermediary" set ref 1564* 1577 1581* 1596 have_users_entry 000265 automatic bit(1) dcl 623 in procedure "create_control_point" set ref 668* 821 826* 851 have_users_entry 000101 automatic bit(1) dcl 1066 in procedure "generate_call" set ref 1075* 1127 1132* 1149 have_users_info_ptr 000102 automatic bit(1) dcl 1066 in procedure "generate_call" set ref 1075* 1081 1084* 1135 1140* 1152 have_users_info_ptr 000266 automatic bit(1) dcl 623 in procedure "create_control_point" set ref 668* 676 679* 829 834* 854 hbound builtin function dcl 183 ref 209 210 hcs_$fs_get_path_name 000066 constant entry external dcl 155 ref 872 1532 header based structure level 2 dcl 6-13 set ref 891* hours 000106 automatic picture(3) level 2 packed unaligned dcl 1384 set ref 1399* hours_value 000112 automatic fixed bin(71,0) dcl 1391 set ref 1396* 1399 i 000131 automatic fixed bin(17,0) dcl 55 in procedure "cpmc" set ref 210* 211* i 000105 automatic fixed bin(17,0) dcl 1187 in procedure "list" set ref 1237* 1238* 1273* 1275* id based bit(36) level 2 in structure "control_point_data" dcl 3-17 in procedure "cpmc" set ref 533 942* 943* 965* 966* 986* 987* 1009* 1010* 1031* 1032* 1036* 1037* 1162* 1165* 1166* 1168* 1421* 1422* 1496* 1497* 1527* 1528* 1543* 1607* 1610* 1613* 1665* 1666* 1688* 1689* id based bit(36) level 2 in structure "p_cpd" dcl 1315 in procedure "list_control_point" set ref 1336* 1336* 1342* id_string 000100 automatic char(12) unaligned dcl 590 in procedure "get_id" set ref 594* 596 599* id_string 000101 automatic char(12) unaligned dcl 1629 in procedure "get_preferred" set ref 1639* 1640 immediate 000103 automatic bit(1) dcl 1066 set ref 1096* 1103* 1107* 1155 1162 in_command_line 000264 automatic bit(1) dcl 623 set ref 732* 739 813* 845* independent 35 000106 automatic bit(1) level 3 packed unaligned dcl 611 set ref 727* 774* 776* index builtin function dcl 183 ref 739 798 1103 1222 1472 1570 1715 info_ptr 26 000106 automatic pointer level 3 in structure "ccpi_header" dcl 611 in procedure "create_control_point" set ref 706* 718* info_ptr 4 based pointer level 2 in structure "users_entry" dcl 38 in procedure "cpmc" set ref 309 311* 312* 316* 318 320* 321* 678* 831* 854* 1083* 1137* 1152* initproc 22 000106 automatic structure level 2 dcl 611 ioa_ 000070 constant entry external dcl 157 ref 577 599 922 1260 1266 1267 1336 1360 1362 1365 1367 1369 1543 1643 1645 ioa_$rsnnl 000072 constant entry external dcl 158 ref 594 1639 ioa_$rsnpnnl 000074 constant entry external dcl 159 ref 1536 is_active_function 000103 automatic bit(1) dcl 27 set ref 203* 219 452 572 596 1540 1635 1694 lbound builtin function dcl 183 ref 209 210 length builtin function dcl 183 ref 344 344 452 457 842 860 list_all 000103 automatic bit(1) dcl 1185 set ref 1213* 1222* 1248 1251 1258 1264 1270 map 000202 external static bit(1) array level 2 packed unaligned dcl 2-50 ref 530 meters 2 000104 automatic structure level 2 dcl 1324 set ref 1343 1343 minutes 1 000106 automatic picture(2) level 2 packed unaligned dcl 1384 set ref 1400* minutes_value 000114 automatic fixed bin(71,0) dcl 1391 set ref 1395* 1396 1400 mod builtin function dcl 183 ref 1394 1395 n_arguments 000107 automatic fixed bin(17,0) dcl 32 set ref 203* 204 391* 391 473 489 636 651 735 794 810 935 958 979 1002 1024 1069 1099 1189 1203 1208 1218 1278 1414 1446 1468 1520 1561 1566 1658 1681 1710 n_control_points 000102 automatic fixed bin(17,0) dcl 1183 set ref 1214* 1237 1241* 1241 1242 1248 1251 1258 1264 1273 n_schedules based fixed bin(17,0) level 2 dcl 1357 set ref 1360* next_peer 22 based pointer level 3 dcl 1295 ref 1302 null builtin function dcl 183 ref 189 189 309 312 318 321 340 366 368 380 666 674 682 687 690 693 782 782 823 823 854 1074 1079 1087 1129 1129 1152 1197 1201 1204 1279 1300 1329 1421 1421 1451 1455 1457 1465 1481 1488 1586 1586 operation_idx 4 000124 automatic fixed bin(17,0) level 2 in structure "cpmc_info" dcl 51 in procedure "cpmc" set ref 199* 209* 211* 219 219 227 452 452 457 457 operation_idx 4 based fixed bin(17,0) level 2 in structure "based_cpmc_info" dcl 252 in procedure "cpmc" ref 286 289 overhead 000204 external static structure level 2 dcl 2-54 set ref 1261 1261 p_arguments_description parameter char unaligned dcl 449 set ref 446 452 452* 457 457* p_cpd based structure level 1 dcl 1315 in procedure "list_control_point" p_cpd based structure level 1 dcl 1290 in procedure "list_all_control_points" p_cpd_ptr parameter pointer dcl 1291 in procedure "list_all_control_points" set ref 1287 1298* 1300 p_cpd_ptr parameter pointer dcl 1316 in procedure "list_control_point" ref 1312 1329 1336 1336 1336 1336 1336 1339 1342 p_depth parameter fixed bin(17,0) dcl 1318 in procedure "list_control_point" ref 1312 1326 1334 p_depth parameter fixed bin(17,0) dcl 1293 in procedure "list_all_control_points" set ref 1287 1298* 1301 p_meters based structure level 1 dcl 1357 p_meters_ptr parameter pointer dcl 1358 ref 1354 1360 1360 1360 1362 1362 1362 1365 1365 1367 1367 p_noarg_message parameter char unaligned dcl 487 set ref 484 489* p_time parameter fixed bin(71,0) dcl 1382 ref 1379 1394 1395 1396 page_faults 12 based fixed bin(34,0) level 3 dcl 1357 set ref 1362* parent 16 based pointer level 2 in structure "parent_cpd" dcl 1320 in procedure "list_control_point" ref 1331 parent 16 based pointer level 2 in structure "p_cpd" dcl 1315 in procedure "list_control_point" ref 1329 parent_cpd based structure level 1 dcl 1320 parent_cpd_ptr 000100 automatic pointer dcl 1321 set ref 1329* 1329* 1331 pathname_ 000076 constant entry external dcl 160 ref 1536 1536 peers 20 based structure level 2 dcl 1295 pi_preferred based bit(1) dcl 46 set ref 366 371 379 1455 1460 1466* 1472* 1476* pi_preferred_ptr 000120 automatic pointer dcl 47 set ref 362* 366 366 368* 371 379 380* 1451* 1455 1455 1457* 1460* 1466 1472 1476 1496* prefer_the_control_point 000271 automatic bit(1) dcl 623 set ref 708* 720* 751* 755* 864 908 922* prefer_the_control_point_given 000272 automatic bit(1) dcl 623 set ref 733* 751* 756* 864 preferred 000104 automatic bit(1) dcl 1066 set ref 1097* 1110* 1114* 1155 1162 preferred_control_point_id 000100 automatic bit(36) dcl 1627 set ref 1633* 1635 1639* 1643 1645* preferred_given 000105 automatic bit(1) dcl 1066 set ref 1097* 1110* 1115* 1155 priority 34 000106 automatic fixed bin(17,0) level 2 dcl 611 set ref 725* 762* probe$probe 000100 constant entry external dcl 161 ref 1437 process_usage based structure level 1 unaligned dcl 5-3 program_interrupt$program_interrupt 000102 constant entry external dcl 162 ref 382 pushed_ok 000100 automatic bit(1) dcl 1679 set ref 1688* 1694 real_time 2 based fixed bin(71,0) level 2 dcl 1357 set ref 1360* 1360* release_temp_segment_ 000104 constant entry external dcl 164 ref 340 346 687 requote_string_ 000106 constant entry external dcl 166 ref 1540 return_value based varying char dcl 24 set ref 572* 575* 596* 1540* 1635* 1640* 1694* 1697* return_value_lth 000102 automatic fixed bin(21,0) dcl 26 set ref 203* 572 575 596 1540 1635 1640 1694 1697 return_value_ptr 000100 automatic pointer dcl 25 set ref 203* 572 575 596 1540 1635 1640 1694 1697 rtrim builtin function dcl 183 ref 284 876 run_operation 000263 automatic bit(1) dcl 623 set ref 640* 655* 808 sci_ptr 000122 automatic pointer dcl 49 set ref 189* 197* 201* 203* 207* 216* 219* 230* 399* 401* 404* 411* 412* 473* 489* 493* 516* 540* 552* 714* 737* 763* 783* 796* 810* 816* 824* 832* 837* 851* 860* 864* 898* 913* 918* 938* 943* 961* 966* 982* 987* 1005* 1010* 1027* 1032* 1037* 1101* 1118* 1130* 1138* 1143* 1146* 1149* 1155* 1168* 1192* 1220* 1232* 1248* 1251* 1417* 1422* 1470* 1479* 1485* 1488* 1497* 1523* 1528* 1568* 1575* 1587* 1593* 1596* 1599* 1603* 1613* 1661* 1666* 1684* 1689* 1713* 1715* 1723* seconds 1(27) 000106 automatic picture(9) level 2 packed unaligned dcl 1384 set ref 1401* seconds_value 000116 automatic fixed bin(71,0) dcl 1391 set ref 1394* 1395 1396 1401 segment_faults 16 based fixed bin(34,0) level 3 dcl 1357 set ref 1365* separate_standard_iocbs 35(01) 000106 automatic bit(1) level 3 packed unaligned dcl 611 set ref 792* 805* ssu_$abort_subsystem 000110 constant entry external dcl 167 ref 216 219 404 412 473 489 516 540 552 714 763 783 810 816 824 832 837 851 860 864 898 943 966 987 1010 1032 1037 1118 1130 1138 1143 1146 1149 1155 1168 1192 1232 1248 1251 1422 1479 1485 1488 1497 1528 1575 1587 1593 1596 1599 1603 1613 1666 1689 1715 1723 ssu_$arg_ptr 000112 constant entry external dcl 169 ref 207 493 737 796 938 961 982 1005 1027 1101 1220 1417 1470 1523 1568 1661 1684 1713 ssu_$destroy_invocation 000114 constant entry external dcl 170 ref 197 230 ssu_$get_info_ptr 000116 constant entry external dcl 172 ref 266 282 ssu_$get_procedure 000120 constant entry external dcl 173 ref 399 ssu_$print_message 000122 constant entry external dcl 174 ref 913 918 ssu_$return_arg 000124 constant entry external dcl 175 ref 203 ssu_$set_info_ptr 000126 constant entry external dcl 176 ref 201 ssu_$set_procedure 000130 constant entry external dcl 177 ref 401 411 ssu_$standalone_invocation 000132 constant entry external dcl 178 ref 189 ssu_arg_ptr based entry variable level 2 in structure "based_cpmc_info" dcl 252 in procedure "cpmc" ref 268 ssu_arg_ptr 000124 automatic entry variable level 2 in structure "cpmc_info" dcl 51 in procedure "cpmc" set ref 200* 399* stack_header based structure level 1 dcl 7-26 stack_segno 000100 automatic bit(18) level 2 packed unaligned dcl 507 set ref 530 532 540* stackbaseptr builtin function dcl 183 ref 552 570 1192 1336 start_the_control_point 000270 automatic bit(1) dcl 623 set ref 707* 719* 746* 748* 864 905 922* state 2 based fixed bin(17,0) level 2 dcl 1315 ref 1336 1339 string builtin function dcl 183 set ref 522* 526* 726* 1398* 1403 substr builtin function dcl 183 ref 526 sys_info$max_seg_size 000032 external static fixed bin(19,0) dcl 136 ref 716 842 844 system_area based area(1024) dcl 35 ref 366 379 681 692 704 889 903 1086 1091 1203 1208 1278 1455 1460 system_area_ptr 000112 automatic pointer dcl 36 set ref 360* 366 379 663* 681 692 704 889 903 1072* 1086 1091 1195* 1203 1208 1278 1449* 1455 1460 unique_bits 0(18) 000100 automatic bit(18) level 2 packed unaligned dcl 507 set ref 540* usage 4 based structure level 2 dcl 1357 use_default_cl_intermediary 000507 automatic bit(1) dcl 1558 set ref 1564* 1570* 1599 1603 user_cl_intermediary 30 000106 automatic entry variable level 2 dcl 611 set ref 782* user_cl_intermediary_given 35(03) 000106 automatic bit(1) level 3 packed unaligned dcl 611 set ref 785* 787* user_io_attach_desc 40 based char level 2 packed unaligned dcl 6-13 set ref 894* user_io_attach_desc_given 35(02) based bit(1) level 4 in structure "create_control_point_info" packed unaligned dcl 6-13 in procedure "cpmc" set ref 894 user_io_attach_desc_given 35(02) 000106 automatic bit(1) level 3 in structure "ccpi_header" packed unaligned dcl 611 in procedure "create_control_point" set ref 793* 800* 805* 885 user_io_attach_desc_length 37 based fixed bin(21,0) level 3 dcl 6-13 set ref 692 889* 892* 894 903 users_entry based structure level 1 dcl 38 set ref 681 704 1086 1091 users_entry_ename 000252 automatic char(32) unaligned dcl 621 set ref 872* 876 users_entry_entrypoint_name 000152 automatic char(256) unaligned dcl 619 set ref 874* 876 users_entry_ptr 000114 automatic pointer dcl 41 set ref 305* 309 311 312 316 316 318 320 321 666* 674 678 681 682* 704* 706 823 831 854 872 872 874 874 1074* 1079 1083 1086 1087* 1091* 1129 1137 1152 1162* 1165* 1166* version 000104 automatic char(8) level 2 in structure "cpma" packed unaligned dcl 1324 in procedure "list_control_point" set ref 1341* version 000106 automatic char(8) level 2 in structure "ccpi_header" packed unaligned dcl 611 in procedure "create_control_point" set ref 723* virtual_cpu_time 14 based fixed bin(71,0) level 3 dcl 1357 set ref 1362* 1362* vtoc_reads 20 based fixed bin(34,0) level 3 dcl 1357 set ref 1367* vtoc_writes 21 based fixed bin(34,0) level 3 dcl 1357 set ref 1367* was_pushed 000100 automatic bit(1) dcl 1708 set ref 1718* 1720* 1725* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. CPM_BLOCKED internal static fixed bin(17,0) initial dcl 3-60 CPM_READY internal static fixed bin(17,0) initial dcl 3-60 CPM_STOPPED internal static fixed bin(17,0) initial dcl 3-60 MAX_NUMBER_OF_METERS internal static fixed bin(17,0) initial dcl 4-40 call_offset internal static fixed bin(17,0) initial dcl 7-78 cpm_$generate_call_when_ready 000000 constant entry external dcl 1-35 cpm_$get_scheduler_meters 000000 constant entry external dcl 1-52 cpm_data_$gc_control_points external static bit(1) dcl 2-27 cpm_data_$preferred_control_point external static pointer dcl 2-33 cpm_data_$preferred_control_point_stack external static structure level 1 dcl 2-36 cpm_data_$previous_control_point external static pointer dcl 2-47 cpm_data_$ready_queue external static structure level 1 dcl 2-42 cpm_data_$saved_cl_intermediary external static entry variable dcl 2-30 cpm_data_$subsystem_name external static char(32) unaligned dcl 2-18 cpm_ptr automatic pointer dcl 4-27 cpma_ptr automatic pointer dcl 4-43 entry_offset internal static fixed bin(17,0) initial dcl 7-78 process_usage_pointer automatic pointer dcl 5-3 push_offset internal static fixed bin(17,0) initial dcl 7-78 return_no_pop_offset internal static fixed bin(17,0) initial dcl 7-78 return_offset internal static fixed bin(17,0) initial dcl 7-78 sb automatic pointer dcl 7-24 stack_header_overlay based fixed bin(17,0) array dcl 7-94 tv_offset internal static fixed bin(17,0) initial dcl 7-72 NAMES DECLARED BY EXPLICIT CONTEXT. CREATE_CONTROL_POINT 005117 constant label dcl 663 ref 642 657 KNOWN_OPERATION 002570 constant label dcl 219 ref 211 PARSE_NEXT_ARGUMENT 011557 constant label dcl 1245 ref 1238 RETURN_FROM_CONTROL_POINT_MANAGER_CALL 002640 constant label dcl 230 ref 242 abort_control_point_manager_call 003534 constant entry internal dcl 239 ref 189 189 462 control_point_manager_call 002250 constant entry external dcl 19 cpmc 002236 constant entry external dcl 19 create_control_point 005027 constant entry internal dcl 607 create_control_point$create 005036 constant entry internal dcl 633 ref 420 create_control_point$run 005067 constant entry internal dcl 648 ref 430 cv_string_to_control_point_id 004340 constant entry internal dcl 504 ref 940 963 984 1007 1029 1123 1236 1419 1481 1525 1580 1663 1686 destroy 007325 constant entry internal dcl 932 ref 421 display_metering_data 012240 constant entry internal dcl 1354 ref 1261 1343 display_usage_message_and_abort 004035 constant entry internal dcl 446 ref 204 636 651 935 958 979 1002 1024 1069 1189 1414 1446 1520 1561 1658 1681 1710 enable_cpm 004544 constant entry internal dcl 547 ref 437 fetch_next_argument 004257 constant entry internal dcl 484 ref 761 770 781 format_time 012436 constant entry internal dcl 1379 ref 1360 1360 1362 1362 generate_call 010242 constant entry internal dcl 1063 ref 426 get_cl_intermediary 013301 constant entry internal dcl 1507 ref 431 get_command_and_operation_name 002740 constant entry external dcl 276 ref 411 411 get_id 004716 constant entry internal dcl 587 ref 419 get_preferred 014444 constant entry internal dcl 1624 ref 433 is_cpm_enabled 004620 constant entry internal dcl 563 ref 418 list 011236 constant entry internal dcl 1178 ref 427 list_all_control_points 012007 constant entry internal dcl 1287 ref 1270 1301 list_control_point 012063 constant entry internal dcl 1312 ref 1275 1298 operation_arg_ptr 002663 constant entry external dcl 259 ref 401 401 pi_signaller 003331 constant entry external dcl 355 ref 1496 1496 pop_preferred 015105 constant entry internal dcl 1705 ref 436 prepare_for_operation 003544 constant entry internal dcl 388 ref 225 probe 012547 constant entry internal dcl 1411 ref 428 probe_caller 003507 constant entry external dcl 1434 ref 1421 1421 program_interrupt 012701 constant entry internal dcl 1443 ref 429 push_preferred 014731 constant entry internal dcl 1676 ref 435 reject_any_arguments 004222 constant entry internal dcl 470 ref 550 568 592 1052 1631 run_command_line 003174 constant entry external dcl 331 ref 717 run_users_entry 003064 constant entry external dcl 300 ref 705 1162 1162 1165 1165 1166 1166 scheduler 010214 constant entry internal dcl 1049 ref 425 select 010025 constant entry internal dcl 1021 ref 438 set_cl_intermediary 013701 constant entry internal dcl 1552 ref 432 set_preferred 014611 constant entry internal dcl 1655 ref 434 start 007445 constant entry internal dcl 955 ref 422 stop 007705 constant entry internal dcl 999 ref 424 wakeup 007565 constant entry internal dcl 976 ref 423 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 17032 17240 15416 17042 Length 20200 15416 206 724 1414 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cpmc 340 external procedure is an external procedure. on unit on line 197 68 on unit abort_control_point_manager_call 64 internal procedure is assigned to an entry variable. on unit on line 307 68 on unit on unit on line 338 80 on unit on unit on line 364 64 on unit prepare_for_operation internal procedure shares stack frame of external procedure cpmc. display_usage_message_and_abort 110 internal procedure is called by several nonquick procedures. reject_any_arguments 92 internal procedure is called by several nonquick procedures. fetch_next_argument internal procedure shares stack frame of internal procedure create_control_point. cv_string_to_control_point_id 142 internal procedure is called by several nonquick procedures. enable_cpm 92 internal procedure is assigned to an entry variable. is_cpm_enabled 88 internal procedure is assigned to an entry variable. get_id 104 internal procedure is assigned to an entry variable. create_control_point 342 internal procedure is assigned to an entry variable, and enables or reverts conditions. on unit on line 670 84 on unit destroy 114 internal procedure is assigned to an entry variable. start 114 internal procedure is assigned to an entry variable. wakeup 114 internal procedure is assigned to an entry variable. stop 102 internal procedure is assigned to an entry variable. select 132 internal procedure is assigned to an entry variable. scheduler 64 internal procedure is assigned to an entry variable. generate_call 144 internal procedure is assigned to an entry variable, and enables or reverts conditions. on unit on line 1077 68 on unit list 140 internal procedure is assigned to an entry variable, and enables or reverts conditions. on unit on line 1199 64 on unit list_all_control_points 75 internal procedure calls itself recursively. list_control_point 132 internal procedure is called by several nonquick procedures. display_metering_data 166 internal procedure is called by several nonquick procedures. format_time internal procedure shares stack frame of internal procedure display_metering_data. probe 118 internal procedure is assigned to an entry variable. program_interrupt 132 internal procedure is assigned to an entry variable, and enables or reverts conditions. on unit on line 1453 64 on unit get_cl_intermediary 588 internal procedure is assigned to an entry variable. set_cl_intermediary 440 internal procedure is assigned to an entry variable. get_preferred 110 internal procedure is assigned to an entry variable. set_preferred 116 internal procedure is assigned to an entry variable. push_preferred 122 internal procedure is assigned to an entry variable. pop_preferred 104 internal procedure is assigned to an entry variable. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cpmc 000100 return_value_ptr cpmc 000102 return_value_lth cpmc 000103 is_active_function cpmc 000104 argument_ptr cpmc 000106 argument_lth cpmc 000107 n_arguments cpmc 000110 argument_idx cpmc 000112 system_area_ptr cpmc 000114 users_entry_ptr cpmc 000116 command_line_ptr cpmc 000120 pi_preferred_ptr cpmc 000122 sci_ptr cpmc 000124 cpmc_info cpmc 000131 i cpmc 000132 code cpmc 000134 OPERATION_ENTRIES cpmc 000260 STATE_NAMES cpmc 000306 cpmc_info_ptr cpmc 000310 command_and_operation_name cpmc 000334 cpd_ptr cpmc 000336 ccpi_user_io_attach_desc_length cpmc 000340 ccpi_ptr cpmc create_control_point 000106 ccpi_header create_control_point 000146 atd_argument_ptr create_control_point 000150 atd_argument_lth create_control_point 000151 control_point_id create_control_point 000152 users_entry_entrypoint_name create_control_point 000252 users_entry_ename create_control_point 000262 create_operation create_control_point 000263 run_operation create_control_point 000264 in_command_line create_control_point 000265 have_users_entry create_control_point 000266 have_users_info_ptr create_control_point 000267 display_the_id create_control_point 000270 start_the_control_point create_control_point 000271 prefer_the_control_point create_control_point 000272 prefer_the_control_point_given create_control_point cv_string_to_control_point_id 000100 decoded_control_point_id cv_string_to_control_point_id 000101 control_point_id cv_string_to_control_point_id 000102 check_unique_bits cv_string_to_control_point_id display_metering_data 000106 formatted_time format_time 000112 hours_value format_time 000114 minutes_value format_time 000116 seconds_value format_time generate_call 000100 have_control_point_id generate_call 000101 have_users_entry generate_call 000102 have_users_info_ptr generate_call 000103 immediate generate_call 000104 preferred generate_call 000105 preferred_given generate_call get_cl_intermediary 000100 cl_intermediary get_cl_intermediary 000104 cl_intermediary_name get_cl_intermediary 000505 cl_intermediary_entrypoint_name get_cl_intermediary 000605 cl_intermediary_dirname get_cl_intermediary 000657 cl_intermediary_ename get_cl_intermediary get_id 000100 id_string get_id get_preferred 000100 preferred_control_point_id get_preferred 000101 id_string get_preferred is_cpm_enabled 000100 cpm_is_enabled is_cpm_enabled list 000100 cpd_ptr_list_ptr list 000102 n_control_points list 000103 list_all list 000104 display_meters list 000105 i list list_all_control_points 000100 child_cpd_ptr list_all_control_points list_control_point 000100 parent_cpd_ptr list_control_point 000102 depth list_control_point 000104 cpma list_control_point pop_preferred 000100 was_pushed pop_preferred push_preferred 000100 pushed_ok push_preferred set_cl_intermediary 000100 cl_intermediary set_cl_intermediary 000104 cl_intermediary_name set_cl_intermediary 000505 have_control_point_id set_cl_intermediary 000506 have_cl_intermediary set_cl_intermediary 000507 use_default_cl_intermediary set_cl_intermediary THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_g_a r_e_as r_ne_as alloc_char_temp cat_realloc_chars call_ent_var call_ext_out_desc call_ext_out call_int_this_desc call_int_this call_int_other_desc call_int_other return_mac tra_ext_1 mdfx4 signal_op enable_op shorten_stack ext_entry int_entry int_entry_desc set_chars_eis real_to_real_truncatdivide_fx4 op_alloc_ op_freen_ index_before_cs THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. active_fnc_err_$suppress_name com_err_ com_err_$suppress_name cpm_$block cpm_$create cpm_$destroy cpm_$generate_call cpm_$generate_call_preferred cpm_$get_control_point_meters cpm_$get_preferred_control_point cpm_$get_user_cl_intermediary cpm_$nulle cpm_$pop_preferred_control_point cpm_$push_preferred_control_point cpm_$scheduler cpm_$set_preferred_control_point cpm_$set_user_cl_intermediary cpm_$start cpm_$stop cpm_$wakeup cpm_initialize_ cu_$cp cv_dec_check_ cv_entry_ cv_oct_check_ cv_ptr_ cv_ptr_$terminate get_control_point_id_ get_entry_name_ get_system_free_area_ get_temp_segment_ hcs_$fs_get_path_name ioa_ ioa_$rsnnl ioa_$rsnpnnl pathname_ probe$probe program_interrupt$program_interrupt release_temp_segment_ requote_string_ ssu_$abort_subsystem ssu_$arg_ptr ssu_$destroy_invocation ssu_$get_info_ptr ssu_$get_procedure ssu_$print_message ssu_$return_arg ssu_$set_info_ptr ssu_$set_procedure ssu_$standalone_invocation THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cpm_data_$global_meters cpm_data_$root_control_point_data cpm_data_$valid_control_points cpm_et_$already_started cpm_et_$control_point_not_found error_table_$active_function error_table_$bad_arg error_table_$bad_conversion error_table_$badopt error_table_$inconsistent error_table_$noarg error_table_$too_many_args sys_info$max_seg_size CONSTANTS 015300 aa 070 322 207 326 8Ò‡Ö 015301 aa 000006000010 015302 aa 070 322 000 000 8Ò 015303 aa 070 323 000 000 8Ó 015304 aa 577777777777 015305 aa 677777777777 015306 aa 737777777777 015310 aa 000002000000 015311 aa 000002000000 015312 aa 600000000041 015313 aa 000362000000 015314 ta 000571000000 015315 aa 000000000000 015316 aa 377777777777 015320 aa 000002000000 015321 aa 000002000000 015322 aa 600000000041 015323 aa 000332000000 015324 ta 000572000000 015325 aa 000000000000 015326 aa 000002000000 015327 aa 000002000000 015330 aa 600000000041 015331 aa 000332000000 015332 ta 000574000000 015333 aa 000000000000 015334 aa 077777000043 015335 aa 000001000000 000000 aa 143 143 160 151 ccpi 000001 aa 137 060 060 061 _001 000002 aa 143 160 155 141 cpma 000003 aa 137 060 060 061 _001 000004 aa 000000000000 000005 aa 000003641100 000006 aa 000000000000 000007 aa 000344703400 000010 aa 000000000000 000011 aa 032644722000 000012 aa 000000000000 000013 aa 000000000000 000014 aa 400000000000 000015 aa 400000000000 000016 aa 400000000000 000017 aa 400000000000 000020 aa 400000000000 000021 aa 400000000000 000022 aa 400000000000 000023 aa 400000000000 000024 aa 400000000000 000025 aa 400000000000 000026 aa 400000000000 000027 aa 000000000000 000030 aa 400000000000 000031 aa 000000000000 000032 aa 400000000000 000033 aa 000000000000 000034 aa 400000000000 000035 aa 400000000000 000036 aa 400000000000 000037 aa 000000000000 000040 aa 040 040 040 040 000041 aa 040 040 040 040 000042 aa 040 040 040 040 000043 aa 040 040 040 040 000044 aa 040 040 040 040 000045 aa 000000000000 000046 aa 040 040 040 040 000047 aa 040 040 040 040 000050 aa 040 040 040 040 000051 aa 040 040 040 040 000052 aa 040 040 040 040 000053 aa 000000000007 000054 aa 145 156 141 142 enab 000055 aa 154 145 144 040 led 000056 aa 040 040 040 040 000057 aa 040 040 040 040 000060 aa 040 040 040 040 000061 aa 000000000007 000062 aa 151 156 166 157 invo 000063 aa 153 145 144 040 ked 000064 aa 040 040 040 040 000065 aa 040 040 040 040 000066 aa 040 040 040 040 000067 aa 000000000002 000070 aa 151 144 040 040 id 000071 aa 040 040 040 040 000072 aa 040 040 040 040 000073 aa 040 040 040 040 000074 aa 040 040 040 040 000075 aa 000000000000 000076 aa 040 040 040 040 000077 aa 040 040 040 040 000100 aa 040 040 040 040 000101 aa 040 040 040 040 000102 aa 040 040 040 040 000103 aa 000000000006 000104 aa 143 162 145 141 crea 000105 aa 164 145 040 040 te 000106 aa 040 040 040 040 000107 aa 040 040 040 040 000110 aa 040 040 040 040 000111 aa 000000000002 000112 aa 143 162 040 040 cr 000113 aa 040 040 040 040 000114 aa 040 040 040 040 000115 aa 040 040 040 040 000116 aa 040 040 040 040 000117 aa 000000000007 000120 aa 144 145 163 164 dest 000121 aa 162 157 171 040 roy 000122 aa 040 040 040 040 000123 aa 040 040 040 040 000124 aa 040 040 040 040 000125 aa 000000000000 000126 aa 040 040 040 040 000127 aa 040 040 040 040 000130 aa 040 040 040 040 000131 aa 040 040 040 040 000132 aa 040 040 040 040 000133 aa 000000000005 000134 aa 163 164 141 162 star 000135 aa 164 040 040 040 t 000136 aa 040 040 040 040 000137 aa 040 040 040 040 000140 aa 040 040 040 040 000141 aa 000000000002 000142 aa 163 162 040 040 sr 000143 aa 040 040 040 040 000144 aa 040 040 040 040 000145 aa 040 040 040 040 000146 aa 040 040 040 040 000147 aa 000000000006 000150 aa 167 141 153 145 wake 000151 aa 165 160 040 040 up 000152 aa 040 040 040 040 000153 aa 040 040 040 040 000154 aa 040 040 040 040 000155 aa 000000000000 000156 aa 040 040 040 040 000157 aa 040 040 040 040 000160 aa 040 040 040 040 000161 aa 040 040 040 040 000162 aa 040 040 040 040 000163 aa 000000000004 000164 aa 163 164 157 160 stop 000165 aa 040 040 040 040 000166 aa 040 040 040 040 000167 aa 040 040 040 040 000170 aa 040 040 040 040 000171 aa 000000000000 000172 aa 040 040 040 040 000173 aa 040 040 040 040 000174 aa 040 040 040 040 000175 aa 040 040 040 040 000176 aa 040 040 040 040 000177 aa 000000000011 000200 aa 163 143 150 145 sche 000201 aa 144 165 154 145 dule 000202 aa 162 040 040 040 r 000203 aa 040 040 040 040 000204 aa 040 040 040 040 000205 aa 000000000000 000206 aa 040 040 040 040 000207 aa 040 040 040 040 000210 aa 040 040 040 040 000211 aa 040 040 040 040 000212 aa 040 040 040 040 000213 aa 000000000015 000214 aa 147 145 156 145 gene 000215 aa 162 141 164 145 rate 000216 aa 137 143 141 154 _cal 000217 aa 154 040 040 040 l 000220 aa 040 040 040 040 000221 aa 000000000002 000222 aa 147 143 040 040 gc 000223 aa 040 040 040 040 000224 aa 040 040 040 040 000225 aa 040 040 040 040 000226 aa 040 040 040 040 000227 aa 000000000004 000230 aa 154 151 163 164 list 000231 aa 040 040 040 040 000232 aa 040 040 040 040 000233 aa 040 040 040 040 000234 aa 040 040 040 040 000235 aa 000000000002 000236 aa 154 163 040 040 ls 000237 aa 040 040 040 040 000240 aa 040 040 040 040 000241 aa 040 040 040 040 000242 aa 040 040 040 040 000243 aa 000000000005 000244 aa 160 162 157 142 prob 000245 aa 145 040 040 040 e 000246 aa 040 040 040 040 000247 aa 040 040 040 040 000250 aa 040 040 040 040 000251 aa 000000000002 000252 aa 160 142 040 040 pb 000253 aa 040 040 040 040 000254 aa 040 040 040 040 000255 aa 040 040 040 040 000256 aa 040 040 040 040 000257 aa 000000000021 000260 aa 160 162 157 147 prog 000261 aa 162 141 155 137 ram_ 000262 aa 151 156 164 145 inte 000263 aa 162 162 165 160 rrup 000264 aa 164 040 040 040 t 000265 aa 000000000002 000266 aa 160 151 040 040 pi 000267 aa 040 040 040 040 000270 aa 040 040 040 040 000271 aa 040 040 040 040 000272 aa 040 040 040 040 000273 aa 000000000003 000274 aa 162 165 156 040 run 000275 aa 040 040 040 040 000276 aa 040 040 040 040 000277 aa 040 040 040 040 000300 aa 040 040 040 040 000301 aa 000000000000 000302 aa 040 040 040 040 000303 aa 040 040 040 040 000304 aa 040 040 040 040 000305 aa 040 040 040 040 000306 aa 040 040 040 040 000307 aa 000000000017 000310 aa 143 154 137 151 cl_i 000311 aa 156 164 145 162 nter 000312 aa 155 145 144 151 medi 000313 aa 141 162 171 040 ary 000314 aa 040 040 040 040 000315 aa 000000000000 000316 aa 040 040 040 040 000317 aa 040 040 040 040 000320 aa 040 040 040 040 000321 aa 040 040 040 040 000322 aa 040 040 040 040 000323 aa 000000000023 000324 aa 163 145 164 137 set_ 000325 aa 143 154 137 151 cl_i 000326 aa 156 164 145 162 nter 000327 aa 155 145 144 151 medi 000330 aa 141 162 171 040 ary 000331 aa 000000000000 000332 aa 040 040 040 040 000333 aa 040 040 040 040 000334 aa 040 040 040 040 000335 aa 040 040 040 040 000336 aa 040 040 040 040 000337 aa 000000000011 000340 aa 160 162 145 146 pref 000341 aa 145 162 162 145 erre 000342 aa 144 040 040 040 d 000343 aa 040 040 040 040 000344 aa 040 040 040 040 000345 aa 000000000000 000346 aa 040 040 040 040 000347 aa 040 040 040 040 000350 aa 040 040 040 040 000351 aa 040 040 040 040 000352 aa 040 040 040 040 000353 aa 000000000015 000354 aa 163 145 164 137 set_ 000355 aa 160 162 145 146 pref 000356 aa 145 162 162 145 erre 000357 aa 144 040 040 040 d 000360 aa 040 040 040 040 000361 aa 000000000000 000362 aa 040 040 040 040 000363 aa 040 040 040 040 000364 aa 040 040 040 040 000365 aa 040 040 040 040 000366 aa 040 040 040 040 000367 aa 000000000016 000370 aa 160 165 163 150 push 000371 aa 137 160 162 145 _pre 000372 aa 146 145 162 162 ferr 000373 aa 145 144 040 040 ed 000374 aa 040 040 040 040 000375 aa 000000000000 000376 aa 040 040 040 040 000377 aa 040 040 040 040 000400 aa 040 040 040 040 000401 aa 040 040 040 040 000402 aa 040 040 040 040 000403 aa 000000000015 000404 aa 160 157 160 137 pop_ 000405 aa 160 162 145 146 pref 000406 aa 145 162 162 145 erre 000407 aa 144 040 040 040 d 000410 aa 040 040 040 040 000411 aa 000000000000 000412 aa 040 040 040 040 000413 aa 040 040 040 040 000414 aa 040 040 040 040 000415 aa 040 040 040 040 000416 aa 040 040 040 040 000417 aa 000000000006 000420 aa 145 156 141 142 enab 000421 aa 154 145 040 040 le 000422 aa 040 040 040 040 000423 aa 040 040 040 040 000424 aa 040 040 040 040 000425 aa 000000000006 000426 aa 151 156 166 157 invo 000427 aa 153 145 040 040 ke 000430 aa 040 040 040 040 000431 aa 040 040 040 040 000432 aa 040 040 040 040 000433 aa 000000000006 000434 aa 163 145 154 145 sele 000435 aa 143 164 040 040 ct 000436 aa 040 040 040 040 000437 aa 040 040 040 040 000440 aa 040 040 040 040 000441 aa 000000000002 000442 aa 163 154 040 040 sl 000443 aa 040 040 040 040 000444 aa 040 040 040 040 000445 aa 040 040 040 040 000446 aa 040 040 040 040 000450 aa 012 011 040 013 000451 aa 014 000 000 000 000452 aa 147 145 164 137 get_ 000453 aa 163 165 142 163 subs 000454 aa 171 163 164 145 yste 000455 aa 155 137 141 156 m_an 000456 aa 144 137 162 145 d_re 000457 aa 161 165 145 163 ques 000460 aa 164 137 156 141 t_na 000461 aa 155 145 040 040 me 000462 aa 141 162 147 137 arg_ 000463 aa 160 164 162 040 ptr 000464 aa 040 040 040 040 000465 aa 040 040 040 040 000466 aa 040 040 040 040 000467 aa 040 040 040 040 000470 aa 040 040 040 040 000471 aa 040 040 040 040 000472 aa 061 056 060 040 1.0 000473 aa 040 040 040 040 000474 aa 040 040 040 040 000475 aa 040 040 040 040 000476 aa 040 040 040 040 000477 aa 040 040 040 040 000500 aa 040 040 040 040 000501 aa 040 040 040 040 000502 aa 143 157 156 164 cont 000503 aa 162 157 154 137 rol_ 000504 aa 160 157 151 156 poin 000505 aa 164 137 155 141 t_ma 000506 aa 156 141 147 145 nage 000507 aa 162 137 143 141 r_ca 000510 aa 154 154 040 040 ll 000511 aa 040 040 040 040 000512 aa 106 114 101 107 FLAG 000513 aa 524000000117 000514 aa 524000000044 000515 aa 156 157 156 145 none 000516 aa 524000000135 000517 aa 524000000024 000520 aa 055 144 146 164 -dft 000521 aa 524000000031 000522 aa 524000000067 000523 aa 530000002000 000524 aa 524000000013 000525 aa 524000000075 000526 aa 524000000077 000527 aa 524000000021 000530 aa 524000000063 000531 aa 410000000107 000532 aa 404000000042 000533 aa 524000000046 000534 aa 524000000020 000535 aa 524000000100 000536 aa 530000000014 000537 aa 524000000000 000540 aa 524000000057 000541 aa 524000000023 000542 aa 524000000035 015336 aa 055 141 000 000 -a 000543 aa 055 141 154 154 -all 000544 aa 526000000020 000545 aa 524000000070 000546 aa 524000000056 000547 aa 524000000045 000550 aa 055 144 165 162 -dur 000551 aa 055 151 155 000 -im 000552 aa 524000000050 000553 aa 524000000052 000554 aa 524000000053 000555 aa 524000000002 000556 aa 524000000122 000557 aa 524000000051 015337 aa 044 000 000 000 $ 000560 aa 524000000010 000561 aa 404000000022 000562 aa 526000000400 000563 aa 524000000250 000564 aa 524000000036 000565 aa 524000000047 000566 aa 524000000004 000567 aa 042 136 141 042 "^a" 000570 aa 524000000025 000571 aa 524000000042 000572 aa 524000000032 000573 aa 524000000016 000574 aa 524000000033 000575 aa 055 156 163 162 -nsr 000576 aa 055 163 162 000 -sr 000577 aa 055 142 146 000 -bf 000600 aa 055 154 147 000 -lg 000601 aa 524000000040 000602 aa 526000000014 000603 aa 524000000006 000604 aa 164 162 165 145 true 000605 aa 524000000054 000606 aa 516000000022 000607 aa 524000000026 000610 aa 524000000073 000611 aa 524000000055 000612 aa 514000000001 000613 aa 524000000034 000614 aa 526077777777 000615 aa 524000000072 000616 aa 524000000043 000617 aa 524000000062 015340 aa 051 000 000 000 ) 015341 aa 040 050 000 000 ( 015342 aa 040 000 000 000 000620 aa 530000000024 000621 aa 524000000102 015343 aa 777777777777 000622 aa 526000000000 000623 aa 524000000030 000624 aa 404000000005 000625 aa 524000000037 000626 aa 524000000041 000627 aa 526000000040 000630 aa 404000000025 000631 aa 404000000021 000632 aa 526000000250 000633 aa 464000000000 000634 aa 514000000044 000635 aa 500000000000 000636 aa 404000000043 000637 aa 530000000110 000640 aa 055 155 145 164 -met 000641 aa 145 162 163 000 ers 000642 aa 055 163 164 162 -str 000643 aa 151 156 147 000 ing 000644 aa 055 163 150 151 -shi 000645 aa 157 163 000 000 os 000646 aa 055 163 145 160 -sep 000647 aa 151 157 163 000 ios 000650 aa 055 143 157 155 -com 000651 aa 155 145 156 164 ment 000652 aa 055 163 164 141 -sta 000653 aa 162 164 000 000 rt 000654 aa 055 142 162 151 -bri 000655 aa 145 146 000 000 ef 000656 aa 055 154 157 156 -lon 000657 aa 147 000 000 000 g 000660 aa 136 061 062 056 ^12. 000661 aa 063 142 000 000 3b 000662 aa 146 141 154 163 fals 000663 aa 145 000 000 000 e 000664 aa 122 105 101 104 READ 000665 aa 131 000 000 000 Y 000666 aa 102 114 117 103 BLOC 000667 aa 113 105 104 000 KED 000670 aa 123 124 117 120 STOP 000671 aa 120 105 104 000 PED 000672 aa 077777000043 000673 aa 000001000000 000674 aa 143 154 145 141 clea 000675 aa 156 165 160 000 nup 000676 aa 050 136 141 044 (^a$ 000677 aa 136 141 054 040 ^a, 000700 aa 136 160 051 000 ^p) 000701 aa 055 156 157 137 -no_ 000702 aa 155 145 164 145 mete 000703 aa 162 163 000 000 rs 000704 aa 055 151 155 155 -imm 000705 aa 145 144 151 141 edia 000706 aa 164 145 000 000 te 000707 aa 055 144 145 160 -dep 000710 aa 145 156 144 145 ende 000711 aa 156 164 000 000 nt 000712 aa 055 151 156 144 -ind 000713 aa 145 160 145 156 epen 000714 aa 144 145 156 164 dent 000715 aa 055 160 162 151 -pri 000716 aa 157 162 151 164 orit 000717 aa 171 000 000 000 y 000720 aa 055 160 162 145 -pre 000721 aa 146 145 162 162 ferr 000722 aa 145 144 000 000 ed 000723 aa 055 156 157 137 -no_ 000724 aa 163 164 141 162 star 000725 aa 164 000 000 000 t 000726 aa 104 105 123 124 DEST 000727 aa 122 117 131 105 ROYE 000730 aa 104 000 000 000 D 000731 aa 060 060 060 072 000: 000732 aa 060 060 072 060 00:0 000733 aa 060 056 060 060 0.00 000734 aa 060 060 060 060 0000 000735 aa 055 143 154 137 -cl_ 000736 aa 151 156 164 145 inte 000737 aa 162 155 145 144 rmed 000740 aa 151 141 162 171 iary 000741 aa 055 160 162 151 -pri 000742 aa 157 162 151 164 orit 000743 aa 171 040 042 136 y "^ 000744 aa 141 042 000 000 a" 000745 aa 055 156 157 164 -not 000746 aa 137 160 162 145 _pre 000747 aa 146 145 162 162 ferr 000750 aa 145 144 000 000 ed 000751 aa 042 055 144 145 "-de 000752 aa 146 141 165 154 faul 000753 aa 164 042 040 141 t" a 000754 aa 156 144 040 042 nd " 000755 aa 136 141 042 056 ^a". 000756 aa 111 104 040 173 ID { 000757 aa 055 143 157 156 -con 000760 aa 164 162 157 154 trol 000761 aa 137 141 162 147 _arg 000762 aa 175 000 000 000 } 000763 aa 123 143 150 145 Sche 000764 aa 144 165 154 145 dule 000765 aa 162 040 157 166 r ov 000766 aa 145 162 150 145 erhe 000767 aa 141 144 072 000 ad: 000770 aa 055 144 145 146 -def 000771 aa 145 162 137 165 er_u 000772 aa 156 164 151 154 ntil 000773 aa 137 162 145 141 _rea 000774 aa 144 171 000 000 dy 000775 aa 055 163 150 141 -sha 000776 aa 162 145 144 137 red_ 000777 aa 151 157 137 163 io_s 001000 aa 167 151 164 143 witc 001001 aa 150 145 163 000 hes 001002 aa 173 111 104 163 {IDs 001003 aa 175 040 173 055 } {- 001004 aa 143 157 156 164 cont 001005 aa 162 157 154 137 rol_ 001006 aa 141 162 147 163 args 001007 aa 175 000 000 000 } 001010 aa 055 163 145 160 -sep 001011 aa 141 162 141 164 arat 001012 aa 145 137 151 157 e_io 001013 aa 137 163 167 151 _swi 001014 aa 164 143 150 145 tche 001015 aa 163 000 000 000 s 001016 aa 055 144 145 146 -def 001017 aa 141 165 154 164 ault 001020 aa 137 143 154 137 _cl_ 001021 aa 151 156 164 145 inte 001022 aa 162 155 145 144 rmed 001023 aa 151 141 162 171 iary 001024 aa 055 143 154 137 -cl_ 001025 aa 151 156 164 145 inte 001026 aa 162 155 145 144 rmed 001027 aa 151 141 162 171 iary 001030 aa 040 042 136 141 "^a 001031 aa 042 000 000 000 " 001032 aa 136 066 056 063 ^6.3 001033 aa 142 136 133 136 b^[^ 001034 aa 066 056 063 142 6.3b 001035 aa 136 073 170 170 ^;xx 001036 aa 170 170 170 170 xxxx 001037 aa 136 135 000 000 ^] 001040 aa 125 156 153 156 Unkn 001041 aa 157 167 156 040 own 001042 aa 157 160 145 162 oper 001043 aa 141 164 151 157 atio 001044 aa 156 056 040 040 n. 001045 aa 042 136 141 042 "^a" 001046 aa 162 145 164 165 retu 001047 aa 162 156 137 143 rn_c 001050 aa 157 156 166 145 onve 001051 aa 162 163 151 157 rsio 001052 aa 156 137 145 162 n_er 001053 aa 162 157 162 000 ror 001054 aa 111 104 040 173 ID { 001055 aa 105 116 124 122 ENTR 001056 aa 131 175 040 173 Y} { 001057 aa 055 143 157 156 -con 001060 aa 164 162 157 154 trol 001061 aa 137 141 162 147 _arg 001062 aa 175 000 000 000 } 001063 aa 103 162 145 141 Crea 001064 aa 164 151 156 147 ting 001065 aa 040 164 150 145 the 001066 aa 040 143 157 156 con 001067 aa 164 162 157 154 trol 001070 aa 040 160 157 151 poi 001071 aa 156 164 056 000 nt. 001072 aa 101 040 163 164 A st 001073 aa 162 151 156 147 ring 001074 aa 040 141 146 164 aft 001075 aa 145 162 040 042 er " 001076 aa 055 143 157 155 -com 001077 aa 155 145 156 164 ment 001100 aa 042 056 000 000 ". 001101 aa 101 040 156 165 A nu 001102 aa 155 142 145 162 mber 001103 aa 040 141 146 164 aft 001104 aa 145 162 040 042 er " 001105 aa 055 160 162 151 -pri 001106 aa 157 162 151 164 orit 001107 aa 171 042 056 000 y". 001110 aa 173 055 143 157 {-co 001111 aa 156 164 162 157 ntro 001112 aa 154 137 141 162 l_ar 001113 aa 147 163 175 040 gs} 001114 aa 103 117 115 115 COMM 001115 aa 101 116 104 137 AND_ 001116 aa 114 111 116 105 LINE 001117 aa 125 163 141 147 Usag 001120 aa 145 072 040 040 e: 001121 aa 136 141 136 133 ^a^[ 001122 aa 040 136 141 136 ^a^ 001123 aa 073 136 163 136 ;^s^ 001124 aa 135 136 133 040 ]^[ 001125 aa 136 141 136 135 ^a^] 001126 aa 042 055 141 154 "-al 001127 aa 154 042 040 141 l" a 001130 aa 156 144 040 143 nd c 001131 aa 157 156 164 162 ontr 001132 aa 157 154 040 160 ol p 001133 aa 157 151 156 164 oint 001134 aa 040 111 104 163 IDs 001135 aa 056 000 000 000 . 001136 aa 101 156 040 145 An e 001137 aa 156 164 162 171 ntry 001140 aa 160 157 151 156 poin 001141 aa 164 040 155 165 t mu 001142 aa 163 164 040 142 st b 001143 aa 145 040 163 160 e sp 001144 aa 145 143 151 146 ecif 001145 aa 151 145 144 056 ied. 001146 aa 101 040 143 157 A co 001147 aa 155 155 141 156 mman 001150 aa 144 040 154 151 d li 001151 aa 156 145 040 164 ne t 001152 aa 157 040 142 145 o be 001153 aa 040 145 170 145 exe 001154 aa 143 165 164 145 cute 001155 aa 144 056 000 000 d. 001156 aa 101 040 143 157 A co 001157 aa 155 155 141 156 mman 001160 aa 144 040 154 151 d li 001161 aa 156 145 040 141 ne a 001162 aa 146 164 145 162 fter 001163 aa 040 042 055 163 "-s 001164 aa 164 162 151 156 trin 001165 aa 147 042 056 000 g". 001166 aa 105 116 124 122 ENTR 001167 aa 131 040 173 111 Y {I 001170 aa 116 106 117 137 NFO_ 001171 aa 120 124 122 175 PTR} 001172 aa 040 173 055 143 {-c 001173 aa 157 156 164 162 ontr 001174 aa 157 154 137 141 ol_a 001175 aa 162 147 163 175 rgs} 001176 aa 103 165 162 162 Curr 001177 aa 145 156 164 040 ent 001200 aa 143 157 156 164 cont 001201 aa 162 157 154 040 rol 001202 aa 160 157 151 156 poin 001203 aa 164 040 111 104 t ID 001204 aa 040 151 163 040 is 001205 aa 136 141 056 000 ^a. 001206 aa 157 160 145 162 oper 001207 aa 141 164 151 157 atio 001210 aa 156 040 173 157 n {o 001211 aa 160 145 162 141 pera 001212 aa 164 151 157 156 tion 001213 aa 137 141 162 147 _arg 001214 aa 165 155 145 156 umen 001215 aa 164 163 175 000 ts} 001216 aa 124 150 145 162 Ther 001217 aa 145 040 151 163 e is 001220 aa 040 156 157 040 no 001221 aa 160 162 145 146 pref 001222 aa 145 162 162 145 erre 001223 aa 144 040 143 157 d co 001224 aa 156 164 162 157 ntro 001225 aa 154 040 160 157 l po 001226 aa 151 156 164 056 int. 001227 aa 136 061 061 164 ^11t 001230 aa 122 165 156 163 Runs 001231 aa 040 055 040 136 - ^ 001232 aa 066 144 136 064 6d^4 001233 aa 066 164 105 154 6tEl 001234 aa 141 160 163 145 apse 001235 aa 144 040 164 151 d ti 001236 aa 155 145 040 055 me - 001237 aa 040 136 141 000 ^a 001240 aa 111 104 040 105 ID E 001241 aa 116 124 122 131 NTRY 001242 aa 040 173 111 116 {IN 001243 aa 106 117 137 120 FO_P 001244 aa 124 122 175 040 TR} 001245 aa 173 055 143 157 {-co 001246 aa 156 164 162 157 ntro 001247 aa 154 137 141 162 l_ar 001250 aa 147 163 175 000 gs} 001251 aa 101 156 040 145 An e 001252 aa 156 164 162 171 ntry 001253 aa 040 141 146 164 aft 001254 aa 145 162 040 042 er " 001255 aa 055 143 154 137 -cl_ 001256 aa 151 156 164 145 inte 001257 aa 162 155 145 144 rmed 001260 aa 151 141 162 171 iary 001261 aa 042 056 000 000 ". 001262 aa 101 164 164 145 Atte 001263 aa 155 160 164 151 mpti 001264 aa 156 147 040 164 ng t 001265 aa 157 040 162 145 o re 001266 aa 160 154 141 143 plac 001267 aa 145 040 163 163 e ss 001270 aa 165 137 044 141 u_$a 001271 aa 162 147 137 160 rg_p 001272 aa 164 162 056 000 tr. 001273 aa 103 162 145 141 Crea 001274 aa 164 151 156 147 ting 001275 aa 040 141 040 163 a s 001276 aa 164 141 156 144 tand 001277 aa 141 154 157 156 alon 001300 aa 145 040 151 156 e in 001301 aa 166 157 143 141 voca 001302 aa 164 151 157 156 tion 001303 aa 056 000 000 000 . 001304 aa 120 162 145 146 Pref 001305 aa 145 162 162 145 erre 001306 aa 144 040 143 157 d co 001307 aa 156 164 162 157 ntro 001310 aa 154 040 160 157 l po 001311 aa 151 156 164 040 int 001312 aa 111 104 040 151 ID i 001313 aa 163 040 136 061 s ^1 001314 aa 062 056 063 142 2.3b 001315 aa 056 000 000 000 . 001316 aa 136 061 061 164 ^11t 001317 aa 103 120 125 040 CPU 001320 aa 164 151 155 145 time 001321 aa 040 055 040 136 - ^ 001322 aa 141 136 064 066 a^46 001323 aa 164 120 141 147 tPag 001324 aa 145 040 106 141 e Fa 001325 aa 165 154 164 163 ults 001326 aa 040 055 040 136 - ^ 001327 aa 066 144 000 000 6d 001330 aa 103 157 156 164 Cont 001331 aa 162 157 154 040 rol 001332 aa 160 157 151 156 poin 001333 aa 164 040 155 141 t ma 001334 aa 156 141 147 145 nage 001335 aa 155 145 156 164 ment 001336 aa 040 151 163 040 is 001337 aa 156 157 164 040 not 001340 aa 145 156 141 142 enab 001341 aa 154 145 144 056 led. 001342 aa 101 040 143 157 A co 001343 aa 156 164 162 157 ntro 001344 aa 154 040 160 157 l po 001345 aa 151 156 164 040 int 001346 aa 111 104 040 155 ID m 001347 aa 165 163 164 040 ust 001350 aa 142 145 040 163 be s 001351 aa 160 145 143 151 peci 001352 aa 146 151 145 144 fied 001353 aa 056 000 000 000 . 001354 aa 124 162 171 151 Tryi 001355 aa 156 147 040 164 ng t 001356 aa 157 040 163 164 o st 001357 aa 157 160 040 164 op t 001360 aa 150 145 040 143 he c 001361 aa 157 156 164 162 ontr 001362 aa 157 154 040 160 ol p 001363 aa 157 151 156 164 oint 001364 aa 040 136 061 062 ^12 001365 aa 056 063 142 056 .3b. 001366 aa 042 055 156 157 "-no 001367 aa 137 163 164 141 _sta 001370 aa 162 164 042 040 rt" 001371 aa 141 156 144 040 and 001372 aa 042 055 136 133 "-^[ 001373 aa 156 157 164 137 not_ 001374 aa 136 073 136 135 ^;^] 001375 aa 160 162 145 146 pref 001376 aa 145 162 162 145 erre 001377 aa 144 042 056 000 d". 001400 aa 101 156 040 151 An i 001401 aa 156 151 164 151 niti 001402 aa 141 154 040 160 al p 001403 aa 162 157 143 145 roce 001404 aa 144 165 162 145 dure 001405 aa 040 155 165 163 mus 001406 aa 164 040 142 145 t be 001407 aa 040 163 160 145 spe 001410 aa 143 151 146 151 cifi 001411 aa 145 144 056 000 ed. 001412 aa 136 061 061 164 ^11t 001413 aa 126 124 117 103 VTOC 001414 aa 040 162 145 141 rea 001415 aa 144 163 040 055 ds - 001416 aa 040 136 066 144 ^6d 001417 aa 136 064 066 164 ^46t 001420 aa 126 124 117 103 VTOC 001421 aa 040 167 162 151 wri 001422 aa 164 145 163 040 tes 001423 aa 055 040 136 066 - ^6 001424 aa 144 000 000 000 d 001425 aa 136 133 052 136 ^[*^ 001426 aa 073 040 136 135 ; ^] 001427 aa 136 066 056 063 ^6.3 001430 aa 142 136 071 164 b^9t 001431 aa 050 136 061 062 (^12 001432 aa 056 063 142 051 .3b) 001433 aa 136 062 067 164 ^27t 001434 aa 136 063 144 136 ^3d^ 001435 aa 063 063 164 136 33t^ 001436 aa 141 136 064 066 a^46 001437 aa 164 136 141 000 t^a 001440 aa 124 162 171 151 Tryi 001441 aa 156 147 040 164 ng t 001442 aa 157 040 167 141 o wa 001443 aa 153 145 165 160 keup 001444 aa 040 164 150 145 the 001445 aa 040 143 157 156 con 001446 aa 164 162 157 154 trol 001447 aa 040 160 157 151 poi 001450 aa 156 164 040 136 nt ^ 001451 aa 061 062 056 063 12.3 001452 aa 142 056 000 000 b. 001453 aa 124 162 171 151 Tryi 001454 aa 156 147 040 164 ng t 001455 aa 157 040 144 145 o de 001456 aa 163 164 162 157 stro 001457 aa 171 040 164 150 y th 001460 aa 145 040 143 157 e co 001461 aa 156 164 162 157 ntro 001462 aa 154 040 160 157 l po 001463 aa 151 156 164 040 int 001464 aa 136 061 062 056 ^12. 001465 aa 063 142 056 000 3b. 001466 aa 124 162 171 151 Tryi 001467 aa 156 147 040 164 ng t 001470 aa 157 040 163 164 o st 001471 aa 141 162 164 040 art 001472 aa 164 150 145 040 the 001473 aa 143 157 156 164 cont 001474 aa 162 157 154 040 rol 001475 aa 160 157 151 156 poin 001476 aa 164 040 136 061 t ^1 001477 aa 062 056 063 142 2.3b 001500 aa 056 000 000 000 . 001501 aa 125 156 141 142 Unab 001502 aa 154 145 040 164 le t 001503 aa 157 040 157 142 o ob 001504 aa 164 141 151 156 tain 001505 aa 040 163 160 141 spa 001506 aa 143 145 040 146 ce f 001507 aa 157 162 040 164 or t 001510 aa 150 145 040 143 he c 001511 aa 157 155 155 141 omma 001512 aa 156 144 040 154 nd l 001513 aa 151 156 145 056 ine. 001514 aa 103 157 156 164 Cont 001515 aa 162 157 154 040 rol 001516 aa 160 157 151 156 poin 001517 aa 164 040 155 141 t ma 001520 aa 156 141 147 145 nage 001521 aa 155 145 156 164 ment 001522 aa 040 151 163 136 is^ 001523 aa 133 040 156 157 [ no 001524 aa 164 136 135 040 t^] 001525 aa 145 156 141 142 enab 001526 aa 154 145 144 056 led. 001527 aa 103 157 156 164 Cont 001530 aa 162 157 154 040 rol 001531 aa 160 157 151 156 poin 001532 aa 164 040 155 141 t ma 001533 aa 156 141 147 145 nage 001534 aa 155 145 156 164 ment 001535 aa 040 151 163 040 is 001536 aa 141 154 162 145 alre 001537 aa 141 144 171 040 ady 001540 aa 145 156 141 142 enab 001541 aa 154 145 144 056 led. 001542 aa 101 156 040 145 An e 001543 aa 156 164 162 171 ntry 001544 aa 160 157 151 156 poin 001545 aa 164 040 157 162 t or 001546 aa 040 042 055 144 "-d 001547 aa 145 146 141 165 efau 001550 aa 154 164 042 040 lt" 001551 aa 155 165 163 164 must 001552 aa 040 142 145 040 be 001553 aa 163 160 145 143 spec 001554 aa 151 146 151 145 ifie 001555 aa 144 056 000 000 d. 001556 aa 136 061 061 164 ^11t 001557 aa 123 145 147 155 Segm 001560 aa 145 156 164 040 ent 001561 aa 106 141 165 154 Faul 001562 aa 164 163 040 055 ts - 001563 aa 040 136 066 144 ^6d 001564 aa 136 064 066 164 ^46t 001565 aa 102 157 165 156 Boun 001566 aa 144 163 040 106 ds F 001567 aa 141 165 154 164 ault 001570 aa 163 040 055 040 s - 001571 aa 136 066 144 000 ^6d 001572 aa 136 064 164 111 ^4tI 001573 aa 104 136 061 062 D^12 001574 aa 164 050 114 157 t(Lo 001575 aa 156 147 040 111 ng I 001576 aa 104 051 136 062 D)^2 001577 aa 065 164 104 145 5tDe 001600 aa 160 164 150 136 pth^ 001601 aa 063 063 164 123 33tS 001602 aa 164 141 164 145 tate 001603 aa 136 065 061 164 ^51t 001604 aa 103 157 155 155 Comm 001605 aa 145 156 164 000 ent 001606 aa 042 055 144 145 "-de 001607 aa 146 145 162 137 fer_ 001610 aa 165 156 164 151 unti 001611 aa 154 137 162 145 l_re 001612 aa 141 144 171 042 ady" 001613 aa 040 141 156 144 and 001614 aa 040 042 055 136 "-^ 001615 aa 133 156 157 164 [not 001616 aa 137 136 135 160 _^]p 001617 aa 162 145 146 145 refe 001620 aa 162 162 145 144 rred 001621 aa 042 056 000 000 ". 001622 aa 116 157 040 141 No a 001623 aa 162 147 165 155 rgum 001624 aa 145 156 164 163 ents 001625 aa 040 155 141 171 may 001626 aa 040 142 145 040 be 001627 aa 147 151 166 145 give 001630 aa 156 040 146 157 n fo 001631 aa 162 040 164 150 r th 001632 aa 151 163 040 157 is o 001633 aa 160 145 162 141 pera 001634 aa 164 151 157 156 tion 001635 aa 056 000 000 000 . 001636 aa 124 162 171 151 Tryi 001637 aa 156 147 040 164 ng t 001640 aa 157 040 151 156 o in 001641 aa 166 157 153 145 voke 001642 aa 040 160 162 157 pro 001643 aa 142 145 040 151 be i 001644 aa 156 040 164 150 n th 001645 aa 145 040 143 157 e co 001646 aa 156 164 162 157 ntro 001647 aa 154 040 160 157 l po 001650 aa 151 156 164 040 int 001651 aa 136 061 062 056 ^12. 001652 aa 063 142 056 000 3b. 001653 aa 124 162 171 151 Tryi 001654 aa 156 147 040 164 ng t 001655 aa 157 040 155 141 o ma 001656 aa 153 145 040 164 ke t 001657 aa 150 145 040 143 he c 001660 aa 157 156 164 162 ontr 001661 aa 157 154 040 160 ol p 001662 aa 157 151 156 164 oint 001663 aa 040 136 061 062 ^12 001664 aa 056 063 142 040 .3b 001665 aa 160 162 145 146 pref 001666 aa 145 162 162 145 erre 001667 aa 144 056 000 000 d. 001670 aa 124 150 145 040 The 001671 aa 103 114 040 151 CL i 001672 aa 156 164 145 162 nter 001673 aa 155 145 144 151 medi 001674 aa 141 162 171 040 ary 001675 aa 146 157 162 040 for 001676 aa 164 150 145 040 the 001677 aa 143 157 156 164 cont 001700 aa 162 157 154 040 rol 001701 aa 160 157 151 156 poin 001702 aa 164 040 136 061 t ^1 001703 aa 062 056 063 142 2.3b 001704 aa 040 151 163 040 is 001705 aa 136 141 056 000 ^a. 001706 aa 124 162 171 151 Tryi 001707 aa 156 147 040 164 ng t 001710 aa 157 040 147 145 o ge 001711 aa 156 145 162 141 nera 001712 aa 164 145 040 141 te a 001713 aa 040 143 141 154 cal 001714 aa 154 040 151 156 l in 001715 aa 164 157 040 164 to t 001716 aa 150 145 040 143 he c 001717 aa 157 156 164 162 ontr 001720 aa 157 154 040 160 ol p 001721 aa 157 151 156 164 oint 001722 aa 040 136 061 062 ^12 001723 aa 056 063 142 056 .3b. 001724 aa 101 164 040 154 At l 001725 aa 145 141 163 164 east 001726 aa 040 157 156 145 one 001727 aa 040 143 157 156 con 001730 aa 164 162 157 154 trol 001731 aa 040 160 157 151 poi 001732 aa 156 164 040 111 nt I 001733 aa 104 040 157 162 D or 001734 aa 040 042 055 141 "-a 001735 aa 154 154 042 040 ll" 001736 aa 155 165 163 164 must 001737 aa 040 142 145 040 be 001740 aa 163 160 145 143 spec 001741 aa 151 146 151 145 ifie 001742 aa 144 056 000 000 d. 001743 aa 103 157 156 164 Cont 001744 aa 162 157 154 040 rol 001745 aa 160 157 151 156 poin 001746 aa 164 040 111 104 t ID 001747 aa 163 040 155 165 s mu 001750 aa 163 164 040 142 st b 001751 aa 145 040 147 151 e gi 001752 aa 166 145 156 040 ven 001753 aa 141 163 040 157 as o 001754 aa 143 164 141 154 ctal 001755 aa 040 163 164 162 str 001756 aa 151 156 147 163 ings 001757 aa 073 040 156 157 ; no 001760 aa 164 040 042 136 t "^ 001761 aa 141 042 056 000 a". 001762 aa 101 164 164 145 Atte 001763 aa 155 160 164 151 mpti 001764 aa 156 147 040 164 ng t 001765 aa 157 040 162 145 o re 001766 aa 160 154 141 143 plac 001767 aa 145 040 163 163 e ss 001770 aa 165 137 044 147 u_$g 001771 aa 145 164 137 163 et_s 001772 aa 165 142 163 171 ubsy 001773 aa 163 164 145 155 stem 001774 aa 137 141 156 144 _and 001775 aa 137 162 145 161 _req 001776 aa 165 145 163 164 uest 001777 aa 137 156 141 155 _nam 002000 aa 145 056 000 000 e. 002001 aa 124 162 171 151 Tryi 002002 aa 156 147 040 164 ng t 002003 aa 157 040 147 145 o ge 002004 aa 164 040 164 150 t th 002005 aa 145 040 103 114 e CL 002006 aa 040 151 156 164 int 002007 aa 145 162 155 145 erme 002010 aa 144 151 141 162 diar 002011 aa 171 040 157 146 y of 002012 aa 040 164 150 145 the 002013 aa 040 143 157 156 con 002014 aa 164 162 157 154 trol 002015 aa 040 160 157 151 poi 002016 aa 156 164 040 136 nt ^ 002017 aa 061 062 056 063 12.3 002020 aa 142 000 000 000 b 002021 aa 124 162 171 151 Tryi 002022 aa 156 147 040 164 ng t 002023 aa 157 040 163 151 o si 002024 aa 147 156 141 154 gnal 002025 aa 040 160 162 157 pro 002026 aa 147 162 141 155 gram 002027 aa 137 151 156 164 _int 002030 aa 145 162 162 165 erru 002031 aa 160 164 040 151 pt i 002032 aa 156 040 164 150 n th 002033 aa 145 040 143 157 e co 002034 aa 156 164 162 157 ntro 002035 aa 154 040 160 157 l po 002036 aa 151 156 164 040 int 002037 aa 136 061 062 056 ^12. 002040 aa 063 142 056 000 3b. 002041 aa 136 057 136 055 ^/^- 002042 aa 124 150 145 040 The 002043 aa 042 136 141 042 "^a" 002044 aa 040 153 145 171 key 002045 aa 167 157 162 144 word 002046 aa 040 151 163 040 is 002047 aa 156 157 164 040 not 002050 aa 166 141 154 151 vali 002051 aa 144 040 167 150 d wh 002052 aa 145 156 040 165 en u 002053 aa 163 145 144 040 sed 002054 aa 141 163 040 141 as a 002055 aa 156 040 141 143 n ac 002056 aa 164 151 166 145 tive 002057 aa 040 146 165 156 fun 002060 aa 143 164 151 157 ctio 002061 aa 156 056 000 000 n. 002062 aa 124 162 171 151 Tryi 002063 aa 156 147 040 164 ng t 002064 aa 157 040 160 165 o pu 002065 aa 163 150 040 164 sh t 002066 aa 150 145 040 160 he p 002067 aa 162 145 146 145 refe 002070 aa 162 162 145 144 rred 002071 aa 040 163 164 141 sta 002072 aa 143 153 040 141 ck a 002073 aa 156 144 040 155 nd m 002074 aa 141 153 145 040 ake 002075 aa 164 150 145 040 the 002076 aa 143 157 156 164 cont 002077 aa 162 157 154 040 rol 002100 aa 160 157 151 156 poin 002101 aa 164 040 136 061 t ^1 002102 aa 062 056 063 142 2.3b 002103 aa 040 160 162 145 pre 002104 aa 146 145 162 162 ferr 002105 aa 145 144 056 000 ed. 002106 aa 103 157 156 164 Cont 002107 aa 162 157 154 040 rol 002110 aa 160 157 151 156 poin 002111 aa 164 040 136 061 t ^1 002112 aa 062 056 063 142 2.3b 002113 aa 040 143 162 145 cre 002114 aa 141 164 145 144 ated 002115 aa 136 133 136 133 ^[^[ 002116 aa 054 040 163 164 , st 002117 aa 141 162 164 145 arte 002120 aa 144 054 040 141 d, a 002121 aa 156 144 040 155 nd m 002122 aa 141 162 153 145 arke 002123 aa 144 040 160 162 d pr 002124 aa 145 146 145 162 efer 002125 aa 162 145 144 136 red^ 002126 aa 073 040 141 156 ; an 002127 aa 144 040 163 164 d st 002130 aa 141 162 164 145 arte 002131 aa 144 136 135 136 d^]^ 002132 aa 135 056 000 000 ]. 002133 aa 124 162 171 151 Tryi 002134 aa 156 147 040 164 ng t 002135 aa 157 040 163 145 o se 002136 aa 164 040 164 150 t th 002137 aa 145 040 103 114 e CL 002140 aa 040 151 156 164 int 002141 aa 145 162 155 145 erme 002142 aa 144 151 141 162 diar 002143 aa 171 040 157 146 y of 002144 aa 040 164 150 145 the 002145 aa 040 143 157 156 con 002146 aa 164 162 157 154 trol 002147 aa 040 160 157 151 poi 002150 aa 156 164 040 136 nt ^ 002151 aa 061 062 056 063 12.3 002152 aa 142 040 164 157 b to 002153 aa 040 136 133 042 ^[" 002154 aa 136 141 042 136 ^a"^ 002155 aa 073 151 164 163 ;its 002156 aa 040 144 145 146 def 002157 aa 141 165 154 164 ault 002160 aa 040 166 141 154 val 002161 aa 165 145 136 135 ue^] 002162 aa 056 000 000 000 . 015344 aa 040 040 040 040 015345 aa 040 040 040 040 015346 aa 040 040 040 040 015347 aa 040 040 040 040 015350 aa 040 040 040 040 015351 aa 040 040 040 040 015352 aa 040 040 040 040 015353 aa 040 040 040 040 015354 aa 040 040 040 040 015355 aa 040 040 040 040 015356 aa 040 040 040 040 015357 aa 040 040 040 040 015360 aa 040 040 040 040 015361 aa 040 040 040 040 015362 aa 040 040 040 040 015363 aa 040 040 040 040 015364 aa 040 040 040 040 015365 aa 040 040 040 040 015366 aa 040 040 040 040 015367 aa 040 040 040 040 015370 aa 040 040 040 040 015371 aa 040 040 040 040 015372 aa 040 040 040 040 015373 aa 040 040 040 040 015374 aa 040 040 040 040 015375 aa 040 040 040 040 015376 aa 040 040 040 040 015377 aa 040 040 040 040 015400 aa 040 040 040 040 015401 aa 040 040 040 040 015402 aa 040 040 040 040 015403 aa 040 040 040 040 015404 aa 040 040 040 040 015405 aa 040 040 040 040 015406 aa 040 040 040 040 015407 aa 040 040 040 040 015410 aa 040 040 040 040 015411 aa 040 040 040 040 015412 aa 040 040 040 040 015413 aa 040 040 040 040 015414 aa 040 040 040 040 015415 aa 040 040 040 040 BEGIN PROCEDURE cpmc PROLOGUE SEQUENCE 002163 aa 6 00352 4401 00 sxl0 pr6|234 STATEMENT 1 ON LINE 110 002164 aa 000001 3360 07 lcq 1,dl 002165 aa 6 00343 7561 00 stq pr6|227 002166 aa 6 00343 0541 00 aos pr6|227 002167 aa 6 00343 2361 00 ldq pr6|227 002170 aa 000002 7360 00 qls 2 002171 aa 000000 6270 06 eax7 0,ql 002172 aa 000011 2360 07 ldq 9,dl 002173 aa 6 00260 7561 17 stq pr6|176,7 STATE_NAMES 002174 aa 6 00261 3735 17 epp7 pr6|177,7 STATE_NAMES 002175 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 002176 aa 776531 00 0006 desc9a -679,ql 000726 = 104105123124 002177 aa 7 00000 00 0006 desc9a pr7|0,ql STATE_NAMES 002200 aa 6 00343 0541 00 aos pr6|227 002201 aa 6 00343 2361 00 ldq pr6|227 002202 aa 000002 7360 00 qls 2 002203 aa 000000 6260 06 eax6 0,ql 002204 aa 776464 2370 04 ldaq -716,ic 000670 = 123124117120 120105104000 002205 aa 6 00261 7551 16 sta pr6|177,6 STATE_NAMES 002206 aa 6 00262 7561 16 stq pr6|178,6 STATE_NAMES 002207 aa 000007 2360 07 ldq 7,dl 002210 aa 6 00260 7561 16 stq pr6|176,6 STATE_NAMES 002211 aa 6 00343 0541 00 aos pr6|227 002212 aa 6 00343 2361 00 ldq pr6|227 002213 aa 000002 7360 00 qls 2 002214 aa 000000 6250 06 eax5 0,ql 002215 aa 776451 2370 04 ldaq -727,ic 000666 = 102114117103 113105104000 002216 aa 6 00261 7551 15 sta pr6|177,5 STATE_NAMES 002217 aa 6 00262 7561 15 stq pr6|178,5 STATE_NAMES 002220 aa 000007 2360 07 ldq 7,dl 002221 aa 6 00260 7561 15 stq pr6|176,5 STATE_NAMES 002222 aa 6 00343 0541 00 aos pr6|227 002223 aa 6 00343 2361 00 ldq pr6|227 002224 aa 000002 7360 00 qls 2 002225 aa 000000 6240 06 eax4 0,ql 002226 aa 776436 2370 04 ldaq -738,ic 000664 = 122105101104 131000000000 002227 aa 6 00261 7551 14 sta pr6|177,4 STATE_NAMES 002230 aa 6 00262 7561 14 stq pr6|178,4 STATE_NAMES 002231 aa 000005 2360 07 ldq 5,dl 002232 aa 6 00260 7561 14 stq pr6|176,4 STATE_NAMES 002233 aa 6 00352 7201 00 lxl0 pr6|234 002234 aa 000000 7100 10 tra 0,0 MAIN SEQUENCE ENTRY TO cpmc STATEMENT 1 ON LINE 19 control_point_manager_call: cpmc: procedure () options (variable); 002235 da 000743240000 002236 aa 000540 6270 00 eax7 352 002237 aa 7 00034 3521 20 epp2 pr7|28,* 002240 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002241 aa 000000000000 002242 aa 000000000000 002243 aa 000001 2360 07 ldq 1,dl 002244 aa 6 00342 7561 00 stq pr6|226 002245 aa 777716 7000 04 tsx0 -50,ic 002163 002246 aa 000012 7100 04 tra 10,ic 002260 ENTRY TO control_point_manager_call STATEMENT 1 ON LINE 19 control_point_manager_call: cpmc: procedure () options (variable); 002247 da 000746240000 002250 aa 000540 6270 00 eax7 352 002251 aa 7 00034 3521 20 epp2 pr7|28,* 002252 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002253 aa 000000000000 002254 aa 000000000000 002255 aa 000001 2360 07 ldq 1,dl 002256 aa 6 00342 7561 00 stq pr6|226 002257 aa 777704 7000 04 tsx0 -60,ic 002163 STATEMENT 1 ON LINE 189 call ssu_$standalone_invocation (sci_ptr, CONTROL_POINT_MANAGER_CALL, CONTROL_POINT_MANAGER_CALL_VERSION, null (), abort_control_point_manager_call, code); 002260 aa 776412 3734 24 epp7 -758,ic* 002261 aa 6 00354 6535 00 spri7 pr6|236 002262 aa 001252 3520 04 epp2 682,ic 003534 = 000100627000 002263 aa 6 00356 2521 00 spri2 pr6|238 cp.708 002264 aa 6 00360 6521 00 spri6 pr6|240 cp.708 002265 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002266 aa 6 00364 2521 00 spri2 pr6|244 002267 aa 776213 3520 04 epp2 -885,ic 000502 = 143157156164 002270 aa 6 00366 2521 00 spri2 pr6|246 002271 aa 776201 3520 04 epp2 -895,ic 000472 = 061056060040 002272 aa 6 00370 2521 00 spri2 pr6|248 002273 aa 6 00354 3521 00 epp2 pr6|236 002274 aa 6 00372 2521 00 spri2 pr6|250 002275 aa 6 00356 3521 00 epp2 pr6|238 cp.708 002276 aa 6 00374 2521 00 spri2 pr6|252 002277 aa 6 00132 3521 00 epp2 pr6|90 code 002300 aa 6 00376 2521 00 spri2 pr6|254 002301 aa 776332 3520 04 epp2 -806,ic 000633 = 464000000000 002302 aa 6 00400 2521 00 spri2 pr6|256 002303 aa 6 00406 2521 00 spri2 pr6|262 002304 aa 776323 3520 04 epp2 -813,ic 000627 = 526000000040 002305 aa 6 00402 2521 00 spri2 pr6|258 002306 aa 6 00404 2521 00 spri2 pr6|260 002307 aa 776326 3520 04 epp2 -810,ic 000635 = 500000000000 002310 aa 6 00410 2521 00 spri2 pr6|264 002311 aa 776325 3520 04 epp2 -811,ic 000636 = 404000000043 002312 aa 6 00412 2521 00 spri2 pr6|266 002313 aa 6 00362 6211 00 eax1 pr6|242 002314 aa 030000 4310 07 fld 12288,dl 002315 aa 6 00044 3701 20 epp4 pr6|36,* 002316 la 4 00132 3521 20 epp2 pr4|90,* ssu_$standalone_invocation 002317 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 191 if code ^= 0 then do; 002320 aa 6 00132 2361 00 ldq pr6|90 code 002321 aa 000034 6000 04 tze 28,ic 002355 STATEMENT 1 ON LINE 193 call com_err_ (code, CONTROL_POINT_MANAGER_CALL, "Creating a standalone invocation."); 002322 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002323 aa 776751 00 0044 desc9a -535,36 001273 = 103162145141 002324 aa 6 00362 00 0044 desc9a pr6|242,36 002325 aa 6 00132 3521 00 epp2 pr6|90 code 002326 aa 6 00416 2521 00 spri2 pr6|270 002327 aa 776153 3520 04 epp2 -917,ic 000502 = 143157156164 002330 aa 6 00420 2521 00 spri2 pr6|272 002331 aa 6 00362 3521 00 epp2 pr6|242 002332 aa 6 00422 2521 00 spri2 pr6|274 002333 aa 776303 3520 04 epp2 -829,ic 000636 = 404000000043 002334 aa 6 00424 2521 00 spri2 pr6|276 002335 aa 776272 3520 04 epp2 -838,ic 000627 = 526000000040 002336 aa 6 00426 2521 00 spri2 pr6|278 002337 aa 776267 3520 04 epp2 -841,ic 000626 = 524000000041 002340 aa 6 00430 2521 00 spri2 pr6|280 002341 aa 6 00414 6211 00 eax1 pr6|268 002342 aa 014000 4310 07 fld 6144,dl 002343 aa 6 00044 3701 20 epp4 pr6|36,* 002344 la 4 00036 3521 20 epp2 pr4|30,* com_err_ 002345 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 194 return; 002346 aa 6 00342 2361 00 ldq pr6|226 002347 aa 000005 6010 04 tnz 5,ic 002354 002350 aa 000027 7260 07 lxl6 23,dl 002351 aa 776475 3520 04 epp2 -707,ic 001046 = 162145164165 002352 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 002353 aa 0 00631 7101 00 tra pr0|409 return_mac 002354 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 195 end; STATEMENT 1 ON LINE 197 on cleanup call ssu_$destroy_invocation (sci_ptr); 002355 aa 000007 7260 07 lxl6 7,dl 002356 aa 776316 3520 04 epp2 -818,ic 000674 = 143154145141 002357 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 002360 aa 000004 7100 04 tra 4,ic 002364 002361 aa 000300000000 002362 aa 000017 7100 04 tra 15,ic 002401 BEGIN CONDITION cleanup.1 ENTRY TO cleanup.1 STATEMENT 1 ON LINE 197 on cleanup call ssu_$destroy_invocation (sci_ptr); 002363 da 000754200000 002364 aa 000120 6270 00 eax7 80 002365 aa 7 00034 3521 20 epp2 pr7|28,* 002366 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 002367 aa 000000000000 002370 aa 000000000000 002371 aa 6 00040 3735 20 epp7 pr6|32,* 002372 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 002373 aa 6 00102 2521 00 spri2 pr6|66 002374 aa 6 00100 6211 00 eax1 pr6|64 002375 aa 004000 4310 07 fld 2048,dl 002376 la 4 00114 3521 20 epp2 pr4|76,* ssu_$destroy_invocation 002377 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 002400 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.1 STATEMENT 1 ON LINE 199 cpmc_info.operation_idx = 0; 002401 aa 6 00130 4501 00 stz pr6|88 cpmc_info.operation_idx STATEMENT 1 ON LINE 200 cpmc_info.ssu_arg_ptr = cpm_$nulle; 002402 aa 6 00044 3701 20 epp4 pr6|36,* 002403 la 4 00176 3521 20 epp2 pr4|126,* cpm_$nulle 002404 aa 6 00124 2521 00 spri2 pr6|84 cpmc_info.ssu_arg_ptr 002405 aa 012727 2370 04 ldaq 5591,ic 015334 = 077777000043 000001000000 002406 aa 6 00126 7571 00 staq pr6|86 cpmc_info.ssu_arg_ptr STATEMENT 1 ON LINE 201 call ssu_$set_info_ptr (sci_ptr, addr (cpmc_info)); 002407 aa 6 00124 3735 00 epp7 pr6|84 cpmc_info 002410 aa 6 00354 6535 00 spri7 pr6|236 002411 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002412 aa 6 00416 2521 00 spri2 pr6|270 002413 aa 6 00354 3521 00 epp2 pr6|236 002414 aa 6 00420 2521 00 spri2 pr6|272 002415 aa 6 00414 6211 00 eax1 pr6|268 002416 aa 010000 4310 07 fld 4096,dl 002417 la 4 00126 3521 20 epp2 pr4|86,* ssu_$set_info_ptr 002420 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 203 call ssu_$return_arg (sci_ptr, n_arguments, is_active_function, return_value_ptr, return_value_lth); 002421 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002422 aa 6 00416 2521 00 spri2 pr6|270 002423 aa 6 00107 3521 00 epp2 pr6|71 n_arguments 002424 aa 6 00420 2521 00 spri2 pr6|272 002425 aa 6 00103 3521 00 epp2 pr6|67 is_active_function 002426 aa 6 00422 2521 00 spri2 pr6|274 002427 aa 6 00100 3521 00 epp2 pr6|64 return_value_ptr 002430 aa 6 00424 2521 00 spri2 pr6|276 002431 aa 6 00102 3521 00 epp2 pr6|66 return_value_lth 002432 aa 6 00426 2521 00 spri2 pr6|278 002433 aa 6 00414 6211 00 eax1 pr6|268 002434 aa 024000 4310 07 fld 10240,dl 002435 aa 6 00044 3701 20 epp4 pr6|36,* 002436 la 4 00124 3521 20 epp2 pr4|84,* ssu_$return_arg 002437 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 204 if n_arguments = 0 then call display_usage_message_and_abort ("operation {operation_arguments}"); 002440 aa 6 00107 2361 00 ldq pr6|71 n_arguments 002441 aa 000014 6010 04 tnz 12,ic 002455 002442 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002443 aa 776544 00 0040 desc9a -668,32 001206 = 157160145162 002444 aa 6 00414 00 0040 desc9a pr6|268,32 002445 aa 6 00414 3521 00 epp2 pr6|268 002446 aa 6 00364 2521 00 spri2 pr6|244 002447 aa 776156 3520 04 epp2 -914,ic 000625 = 524000000037 002450 aa 6 00370 2521 00 spri2 pr6|248 002451 aa 6 00362 6211 00 eax1 pr6|242 002452 aa 004000 4310 07 fld 2048,dl 002453 aa 001362 3520 04 epp2 754,ic 004035 = 000160627000 002454 aa 0 00624 7001 00 tsx0 pr0|404 call_int_this_desc STATEMENT 1 ON LINE 207 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 002455 aa 000001 2360 07 ldq 1,dl 002456 aa 6 00353 7561 00 stq pr6|235 002457 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002460 aa 6 00416 2521 00 spri2 pr6|270 002461 aa 6 00353 3521 00 epp2 pr6|235 002462 aa 6 00420 2521 00 spri2 pr6|272 002463 aa 6 00104 3521 00 epp2 pr6|68 argument_ptr 002464 aa 6 00422 2521 00 spri2 pr6|274 002465 aa 6 00106 3521 00 epp2 pr6|70 argument_lth 002466 aa 6 00424 2521 00 spri2 pr6|276 002467 aa 6 00414 6211 00 eax1 pr6|268 002470 aa 020000 4310 07 fld 8192,dl 002471 aa 6 00044 3701 20 epp4 pr6|36,* 002472 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 002473 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 209 do cpmc_info.operation_idx = lbound (OPERATION_ENTRIES, 1) to hbound (OPERATION_ENTRIES, 1); 002474 aa 000001 2360 07 ldq 1,dl 002475 aa 6 00130 7561 00 stq pr6|88 cpmc_info.operation_idx 002476 aa 6 00130 2361 00 ldq pr6|88 cpmc_info.operation_idx 002477 aa 000025 1160 07 cmpq 21,dl 002500 aa 000031 6054 04 tpnz 25,ic 002531 STATEMENT 1 ON LINE 210 do i = lbound (OPERATION_NAMES, 2) to hbound (OPERATION_NAMES, 2); 002501 aa 000001 2360 07 ldq 1,dl 002502 aa 6 00131 7561 00 stq pr6|89 i 002503 aa 000000 0110 03 nop 0,du 002504 aa 6 00131 2361 00 ldq pr6|89 i 002505 aa 000002 1160 07 cmpq 2,dl 002506 aa 000021 6054 04 tpnz 17,ic 002527 STATEMENT 1 ON LINE 211 if argument = OPERATION_NAMES (cpmc_info.operation_idx, i) then go to KNOWN_OPERATION; 002507 aa 6 00130 2361 00 ldq pr6|88 cpmc_info.operation_idx 002510 aa 000014 4020 07 mpy 12,dl 002511 aa 6 00353 7561 00 stq pr6|235 002512 aa 6 00131 2361 00 ldq pr6|89 i 002513 aa 000006 4020 07 mpy 6,dl 002514 aa 6 00353 0761 00 adq pr6|235 002515 aa 6 00104 3735 20 epp7 pr6|68,* argument_ptr 002516 ta 000032 3714 06 epp5 26,ql 002517 aa 6 00106 2351 00 lda pr6|70 argument_lth 002520 aa 5 77777 7271 00 lxl7 pr5|-1 OPERATION_NAMES 002521 aa 040 140 106 540 cmpc (pr,rl),(pr,rl),fill(040) 002522 aa 7 00000 00 0005 desc9a pr7|0,al argument 002523 aa 5 00000 00 0017 desc9a pr5|0,x7 OPERATION_NAMES 002524 aa 000044 6000 04 tze 36,ic 002570 STATEMENT 1 ON LINE 213 end; 002525 aa 6 00131 0541 00 aos pr6|89 i 002526 aa 777756 7100 04 tra -18,ic 002504 STATEMENT 1 ON LINE 214 end; 002527 aa 6 00130 0541 00 aos pr6|88 cpmc_info.operation_idx 002530 aa 777746 7100 04 tra -26,ic 002476 STATEMENT 1 ON LINE 216 call ssu_$abort_subsystem (sci_ptr, 0, "Unknown operation. ""^a""", argument); 002531 aa 6 00106 2361 00 ldq pr6|70 argument_lth 002532 aa 526000 2760 03 orq 175104,du 002533 aa 6 00353 7561 00 stq pr6|235 002534 aa 6 00432 4501 00 stz pr6|282 002535 aa 776303 2370 04 ldaq -829,ic 001040 = 125156153156 157167156040 002536 aa 6 00414 7571 00 staq pr6|268 002537 aa 776303 2370 04 ldaq -829,ic 001042 = 157160145162 141164151157 002540 aa 6 00416 7571 00 staq pr6|270 002541 aa 776303 2370 04 ldaq -829,ic 001044 = 156056040040 042136141042 002542 aa 6 00420 7571 00 staq pr6|272 002543 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002544 aa 6 00364 2521 00 spri2 pr6|244 002545 aa 6 00432 3521 00 epp2 pr6|282 002546 aa 6 00366 2521 00 spri2 pr6|246 002547 aa 6 00414 3521 00 epp2 pr6|268 002550 aa 6 00370 2521 00 spri2 pr6|248 002551 aa 6 00104 3521 20 epp2 pr6|68,* argument 002552 aa 6 00372 2521 00 spri2 pr6|250 002553 aa 776060 3520 04 epp2 -976,ic 000633 = 464000000000 002554 aa 6 00374 2521 00 spri2 pr6|252 002555 aa 776047 3520 04 epp2 -985,ic 000624 = 404000000005 002556 aa 6 00376 2521 00 spri2 pr6|254 002557 aa 776044 3520 04 epp2 -988,ic 000623 = 524000000030 002560 aa 6 00400 2521 00 spri2 pr6|256 002561 aa 6 00353 3521 00 epp2 pr6|235 002562 aa 6 00402 2521 00 spri2 pr6|258 002563 aa 6 00362 6211 00 eax1 pr6|242 002564 aa 020000 4310 07 fld 8192,dl 002565 aa 6 00044 3701 20 epp4 pr6|36,* 002566 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 002567 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 219 KNOWN_OPERATION: if is_active_function & OPERATION_IS_COMMAND_ONLY (cpmc_info.operation_idx) then call ssu_$abort_subsystem (sci_ptr, error_table_$active_function, "^/^-The ""^a"" keyword is not valid when used as an active function.", OPERATION_NAMES (cpmc_info.operation_idx, 1)); 002570 aa 6 00103 2351 00 lda pr6|67 is_active_function 002571 aa 400000 3150 03 cana 131072,du 002572 aa 000036 6000 04 tze 30,ic 002630 002573 aa 6 00130 7271 00 lxl7 pr6|88 cpmc_info.operation_idx 002574 ta 000011 2350 17 lda 9,7 002575 aa 000033 6000 04 tze 27,ic 002630 002576 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002577 aa 777243 00 0104 desc9a -349,68 002041 = 136057136055 002600 aa 6 00362 00 0104 desc9a pr6|242,68 002601 aa 6 00130 2361 00 ldq pr6|88 cpmc_info.operation_idx 002602 aa 000014 4020 07 mpy 12,dl 002603 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002604 aa 6 00436 2521 00 spri2 pr6|286 002605 aa 6 00044 3701 20 epp4 pr6|36,* 002606 la 4 00014 3521 20 epp2 pr4|12,* error_table_$active_function 002607 aa 6 00440 2521 00 spri2 pr6|288 002610 aa 6 00362 3521 00 epp2 pr6|242 002611 aa 6 00442 2521 00 spri2 pr6|290 002612 ta 000040 3520 06 epp2 32,ql 002613 aa 6 00444 2521 00 spri2 pr6|292 002614 aa 776017 3520 04 epp2 -1009,ic 000633 = 464000000000 002615 aa 6 00446 2521 00 spri2 pr6|294 002616 aa 776020 3520 04 epp2 -1008,ic 000636 = 404000000043 002617 aa 6 00450 2521 00 spri2 pr6|296 002620 aa 776001 3520 04 epp2 -1023,ic 000621 = 524000000102 002621 aa 6 00452 2521 00 spri2 pr6|298 002622 aa 775776 3520 04 epp2 -1026,ic 000620 = 530000000024 002623 aa 6 00454 2521 00 spri2 pr6|300 002624 aa 6 00434 6211 00 eax1 pr6|284 002625 aa 020000 4310 07 fld 8192,dl 002626 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 002627 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 225 call prepare_for_operation (); 002630 aa 000714 6700 04 tsp4 460,ic 003544 STATEMENT 1 ON LINE 227 call OPERATION_ENTRIES (cpmc_info.operation_idx) (); 002631 aa 6 00130 2361 00 ldq pr6|88 cpmc_info.operation_idx 002632 aa 000002 7360 00 qls 2 002633 aa 000000 6270 06 eax7 0,ql 002634 aa 6 00056 6211 00 eax1 pr6|46 002635 aa 000000 4310 07 fld 0,dl 002636 aa 6 00130 3521 17 epp2 pr6|88,7 OPERATION_ENTRIES 002637 aa 0 00617 7001 00 tsx0 pr0|399 call_ent_var STATEMENT 1 ON LINE 230 RETURN_FROM_CONTROL_POINT_MANAGER_CALL: call ssu_$destroy_invocation (sci_ptr); 002640 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 002641 aa 6 00360 2521 00 spri2 pr6|240 002642 aa 6 00356 6211 00 eax1 pr6|238 002643 aa 004000 4310 07 fld 2048,dl 002644 aa 6 00044 3701 20 epp4 pr6|36,* 002645 la 4 00114 3521 20 epp2 pr4|76,* ssu_$destroy_invocation 002646 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 233 return; 002647 aa 6 00342 2361 00 ldq pr6|226 002650 aa 000005 6010 04 tnz 5,ic 002655 002651 aa 000027 7260 07 lxl6 23,dl 002652 aa 776174 3520 04 epp2 -900,ic 001046 = 162145164165 002653 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 002654 aa 0 00631 7101 00 tra pr0|409 return_mac 002655 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO operation_arg_ptr STATEMENT 1 ON LINE 259 operation_arg_ptr: entry (P_sci_ptr, P_argument_idx, P_argument_ptr, P_argument_lth); 002656 at 000004000633 002657 tt 000631000633 002660 ta 000630000000 002661 ta 002656000000 002662 da 000764300000 002663 aa 000540 6270 00 eax7 352 002664 aa 7 00034 3521 20 epp2 pr7|28,* 002665 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002666 aa 000010000000 002667 aa 000000000000 002670 aa 000001 2360 07 ldq 1,dl 002671 aa 6 00342 7561 00 stq pr6|226 002672 aa 777271 7000 04 tsx0 -327,ic 002163 STATEMENT 1 ON LINE 266 cpmc_info_ptr = ssu_$get_info_ptr (P_sci_ptr); 002673 aa 6 00032 3735 20 epp7 pr6|26,* 002674 aa 7 00002 3521 20 epp2 pr7|2,* P_sci_ptr 002675 aa 6 00416 2521 00 spri2 pr6|270 002676 aa 6 00306 3521 00 epp2 pr6|198 cpmc_info_ptr 002677 aa 6 00420 2521 00 spri2 pr6|272 002700 aa 6 00414 6211 00 eax1 pr6|268 002701 aa 010000 4310 07 fld 4096,dl 002702 aa 6 00044 3701 20 epp4 pr6|36,* 002703 la 4 00116 3521 20 epp2 pr4|78,* ssu_$get_info_ptr 002704 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 268 call based_cpmc_info.ssu_arg_ptr (P_sci_ptr, (P_argument_idx + 1), P_argument_ptr, P_argument_lth); 002705 aa 6 00032 3735 20 epp7 pr6|26,* 002706 aa 7 00004 2361 20 ldq pr7|4,* P_argument_idx 002707 aa 000001 0760 07 adq 1,dl 002710 aa 6 00433 7561 00 stq pr6|283 002711 aa 7 00002 3521 20 epp2 pr7|2,* P_sci_ptr 002712 aa 6 00416 2521 00 spri2 pr6|270 002713 aa 6 00433 3521 00 epp2 pr6|283 002714 aa 6 00420 2521 00 spri2 pr6|272 002715 aa 7 00006 3521 20 epp2 pr7|6,* P_argument_ptr 002716 aa 6 00422 2521 00 spri2 pr6|274 002717 aa 7 00010 3521 20 epp2 pr7|8,* P_argument_lth 002720 aa 6 00424 2521 00 spri2 pr6|276 002721 aa 6 00414 6211 00 eax1 pr6|268 002722 aa 020000 4310 07 fld 8192,dl 002723 aa 6 00306 3521 20 epp2 pr6|198,* based_cpmc_info.ssu_arg_ptr 002724 aa 0 00617 7001 00 tsx0 pr0|399 call_ent_var STATEMENT 1 ON LINE 270 return; 002725 aa 6 00342 2361 00 ldq pr6|226 002726 aa 000005 6010 04 tnz 5,ic 002733 002727 aa 000027 7260 07 lxl6 23,dl 002730 aa 776116 3520 04 epp2 -946,ic 001046 = 162145164165 002731 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 002732 aa 0 00631 7101 00 tra pr0|409 return_mac 002733 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO get_command_and_operation_name STATEMENT 1 ON LINE 276 get_command_and_operation_name: entry (P_sci_ptr) returns (character (72) varying); 002734 at 000002000633 002735 ta 000637000000 002736 ta 002734000000 002737 da 000777320000 002740 aa 000540 6270 00 eax7 352 002741 aa 7 00034 3521 20 epp2 pr7|28,* 002742 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002743 aa 000004000000 002744 aa 000000000000 002745 aa 6 00342 4501 00 stz pr6|226 002746 aa 777215 7000 04 tsx0 -371,ic 002163 STATEMENT 1 ON LINE 282 cpmc_info_ptr = ssu_$get_info_ptr (P_sci_ptr); 002747 aa 6 00032 3735 20 epp7 pr6|26,* 002750 aa 7 00002 3521 20 epp2 pr7|2,* P_sci_ptr 002751 aa 6 00416 2521 00 spri2 pr6|270 002752 aa 6 00306 3521 00 epp2 pr6|198 cpmc_info_ptr 002753 aa 6 00420 2521 00 spri2 pr6|272 002754 aa 6 00414 6211 00 eax1 pr6|268 002755 aa 010000 4310 07 fld 4096,dl 002756 aa 6 00044 3701 20 epp4 pr6|36,* 002757 la 4 00116 3521 20 epp2 pr4|78,* ssu_$get_info_ptr 002760 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 284 command_and_operation_name = rtrim (CONTROL_POINT_MANAGER_CALL); 002761 aa 000 000 165 404 tctr (ic) 002762 aa 775521 00 0040 desc9a -1199,32 000502 002763 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 002764 aa 6 00056 0001 00 arg pr6|46 002765 aa 6 00056 2361 00 ldq pr6|46 002766 aa 0 00242 3761 00 anq pr0|162 = 000777777777 002767 aa 6 00433 7561 00 stq pr6|283 002770 aa 000040 2360 07 ldq 32,dl 002771 aa 6 00433 1761 00 sbq pr6|283 002772 aa 000110 1160 07 cmpq 72,dl 002773 aa 000002 6040 04 tmi 2,ic 002775 002774 aa 000110 2360 07 ldq 72,dl 002775 aa 6 00310 7561 00 stq pr6|200 command_and_operation_name 002776 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 002777 aa 775504 00 0006 desc9a -1212,ql 000502 = 143157156164 003000 aa 6 00311 00 0006 desc9a pr6|201,ql command_and_operation_name STATEMENT 1 ON LINE 286 if based_cpmc_info.operation_idx > 0 then do; 003001 aa 6 00306 3735 20 epp7 pr6|198,* cpmc_info_ptr 003002 aa 7 00004 2361 00 ldq pr7|4 based_cpmc_info.operation_idx 003003 aa 000040 6044 04 tmoz 32,ic 003043 STATEMENT 1 ON LINE 288 command_and_operation_name = command_and_operation_name || " ("; 003004 aa 000110 2360 07 ldq 72,dl 003005 aa 6 00310 1761 00 sbq pr6|200 command_and_operation_name 003006 aa 000002 1160 07 cmpq 2,dl 003007 aa 000002 6040 04 tmi 2,ic 003011 003010 aa 000002 2360 07 ldq 2,dl 003011 aa 6 00310 7271 00 lxl7 pr6|200 command_and_operation_name 003012 aa 6 00310 0561 00 asq pr6|200 command_and_operation_name 003013 aa 040 157 100 444 mlr (rl,ic),(pr,rl,x7),fill(040) 003014 aa 012326 00 0006 desc9a 5334,ql 015341 = 040050000000 003015 aa 6 00311 00 0006 desc9a pr6|201,ql command_and_operation_name STATEMENT 1 ON LINE 289 command_and_operation_name = command_and_operation_name || OPERATION_NAMES (based_cpmc_info.operation_idx, 1); 003016 aa 7 00004 2361 00 ldq pr7|4 based_cpmc_info.operation_idx 003017 aa 000014 4020 07 mpy 12,dl 003020 aa 000000 6270 06 eax7 0,ql 003021 ta 000040 3714 17 epp5 32,7 003022 aa 000110 2360 07 ldq 72,dl 003023 aa 6 00310 1761 00 sbq pr6|200 command_and_operation_name 003024 aa 5 77777 1161 00 cmpq pr5|-1 OPERATION_NAMES 003025 aa 000002 6040 04 tmi 2,ic 003027 003026 aa 5 77777 2361 00 ldq pr5|-1 OPERATION_NAMES 003027 aa 6 00310 7261 00 lxl6 pr6|200 command_and_operation_name 003030 aa 6 00310 0561 00 asq pr6|200 command_and_operation_name 003031 aa 040 156 100 540 mlr (pr,rl),(pr,rl,x6),fill(040) 003032 aa 5 00000 00 0006 desc9a pr5|0,ql OPERATION_NAMES 003033 aa 6 00311 00 0006 desc9a pr6|201,ql command_and_operation_name STATEMENT 1 ON LINE 291 command_and_operation_name = command_and_operation_name || ")"; 003034 aa 6 00310 2361 00 ldq pr6|200 command_and_operation_name 003035 aa 000110 1160 07 cmpq 72,dl 003036 aa 000005 6050 04 tpl 5,ic 003043 003037 aa 6 00310 0541 00 aos pr6|200 command_and_operation_name 003040 aa 040 106 100 404 mlr (ic),(pr,ql),fill(040) 003041 aa 012300 00 0001 desc9a 5312,1 015340 = 051000000000 003042 aa 6 00311 00 0001 desc9a pr6|201,1 command_and_operation_name STATEMENT 1 ON LINE 292 end; STATEMENT 1 ON LINE 294 return (command_and_operation_name); 003043 aa 6 00342 2361 00 ldq pr6|226 003044 aa 000011 6010 04 tnz 9,ic 003055 003045 aa 6 00310 2361 00 ldq pr6|200 command_and_operation_name 003046 aa 6 00032 3715 20 epp5 pr6|26,* 003047 aa 5 00004 3535 20 epp3 pr5|4,* 003050 aa 3 77777 7561 00 stq pr3|-1 003051 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 003052 aa 6 00311 00 0006 desc9a pr6|201,ql command_and_operation_name 003053 aa 3 00000 00 0006 desc9a pr3|0,ql 003054 aa 0 00631 7101 00 tra pr0|409 return_mac 003055 aa 000027 7260 07 lxl6 23,dl 003056 aa 775770 3520 04 epp2 -1032,ic 001046 = 162145164165 003057 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 003060 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO run_users_entry STATEMENT 1 ON LINE 300 run_users_entry: entry (P_users_entry_ptr); 003061 at 000001000633 003062 ta 003061000000 003063 da 001006300000 003064 aa 000540 6270 00 eax7 352 003065 aa 7 00034 3521 20 epp2 pr7|28,* 003066 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003067 aa 000002000000 003070 aa 000000000000 003071 aa 000001 2360 07 ldq 1,dl 003072 aa 6 00342 7561 00 stq pr6|226 003073 aa 777070 7000 04 tsx0 -456,ic 002163 STATEMENT 1 ON LINE 305 users_entry_ptr = P_users_entry_ptr; 003074 aa 6 00032 3735 20 epp7 pr6|26,* 003075 aa 7 00002 3715 20 epp5 pr7|2,* P_users_entry_ptr 003076 aa 5 00000 3715 20 epp5 pr5|0,* P_users_entry_ptr 003077 aa 6 00114 6515 00 spri5 pr6|76 users_entry_ptr STATEMENT 1 ON LINE 307 on cleanup begin; 003100 aa 000007 7260 07 lxl6 7,dl 003101 aa 775573 3520 04 epp2 -1157,ic 000674 = 143154145141 003102 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 003103 aa 000004 7100 04 tra 4,ic 003107 003104 aa 000300000000 003105 aa 000030 7100 04 tra 24,ic 003135 BEGIN CONDITION cleanup.2 ENTRY TO cleanup.2 STATEMENT 1 ON LINE 307 on cleanup begin; 003106 da 001014200000 003107 aa 000120 6270 00 eax7 80 003110 aa 7 00034 3521 20 epp2 pr7|28,* 003111 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 003112 aa 000000000000 003113 aa 000000000000 STATEMENT 1 ON LINE 309 if users_entry.info_ptr ^= null () then do; 003114 aa 6 00040 3735 20 epp7 pr6|32,* 003115 aa 7 00114 3715 20 epp5 pr7|76,* users_entry_ptr 003116 aa 5 00004 2371 00 ldaq pr5|4 users_entry.info_ptr 003117 aa 775553 6770 04 eraq -1173,ic 000672 = 077777000043 000001000000 003120 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 003121 aa 000013 6000 04 tze 11,ic 003134 STATEMENT 1 ON LINE 311 call cv_ptr_$terminate (users_entry.info_ptr); 003122 aa 5 00004 3521 00 epp2 pr5|4 users_entry.info_ptr 003123 aa 6 00102 2521 00 spri2 pr6|66 003124 aa 6 00100 6211 00 eax1 pr6|64 003125 aa 004000 4310 07 fld 2048,dl 003126 la 4 00056 3521 20 epp2 pr4|46,* cv_ptr_$terminate 003127 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 312 users_entry.info_ptr = null (); 003130 aa 775542 2370 04 ldaq -1182,ic 000672 = 077777000043 000001000000 003131 aa 6 00040 3735 20 epp7 pr6|32,* 003132 aa 7 00114 3715 20 epp5 pr7|76,* users_entry_ptr 003133 aa 5 00004 7571 00 staq pr5|4 users_entry.info_ptr STATEMENT 1 ON LINE 313 end; STATEMENT 1 ON LINE 314 end; 003134 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.2 STATEMENT 1 ON LINE 316 call users_entry.entry (users_entry.info_ptr); 003135 aa 6 00114 3735 20 epp7 pr6|76,* users_entry_ptr 003136 aa 7 00004 3521 00 epp2 pr7|4 users_entry.info_ptr 003137 aa 6 00416 2521 00 spri2 pr6|270 003140 aa 6 00414 6211 00 eax1 pr6|268 003141 aa 004000 4310 07 fld 2048,dl 003142 aa 7 00000 3521 00 epp2 pr7|0 users_entry.entry 003143 aa 0 00617 7001 00 tsx0 pr0|399 call_ent_var STATEMENT 1 ON LINE 318 if users_entry.info_ptr ^= null () then do; 003144 aa 6 00114 3735 20 epp7 pr6|76,* users_entry_ptr 003145 aa 7 00004 2371 00 ldaq pr7|4 users_entry.info_ptr 003146 aa 775524 6770 04 eraq -1196,ic 000672 = 077777000043 000001000000 003147 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 003150 aa 000013 6000 04 tze 11,ic 003163 STATEMENT 1 ON LINE 320 call cv_ptr_$terminate (users_entry.info_ptr); 003151 aa 7 00004 3521 00 epp2 pr7|4 users_entry.info_ptr 003152 aa 6 00360 2521 00 spri2 pr6|240 003153 aa 6 00356 6211 00 eax1 pr6|238 003154 aa 004000 4310 07 fld 2048,dl 003155 aa 6 00044 3701 20 epp4 pr6|36,* 003156 la 4 00056 3521 20 epp2 pr4|46,* cv_ptr_$terminate 003157 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 321 users_entry.info_ptr = null (); 003160 aa 775512 2370 04 ldaq -1206,ic 000672 = 077777000043 000001000000 003161 aa 6 00114 3735 20 epp7 pr6|76,* users_entry_ptr 003162 aa 7 00004 7571 00 staq pr7|4 users_entry.info_ptr STATEMENT 1 ON LINE 322 end; STATEMENT 1 ON LINE 324 return; 003163 aa 6 00342 2361 00 ldq pr6|226 003164 aa 000005 6010 04 tnz 5,ic 003171 003165 aa 000027 7260 07 lxl6 23,dl 003166 aa 775660 3520 04 epp2 -1104,ic 001046 = 162145164165 003167 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 003170 aa 0 00631 7101 00 tra pr0|409 return_mac 003171 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO run_command_line STATEMENT 1 ON LINE 331 run_command_line: entry (P_command_line_ptr); 003172 ta 003061000000 003173 da 001024300000 003174 aa 000540 6270 00 eax7 352 003175 aa 7 00034 3521 20 epp2 pr7|28,* 003176 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003177 aa 000002000000 003200 aa 000000000000 003201 aa 000001 2360 07 ldq 1,dl 003202 aa 6 00342 7561 00 stq pr6|226 003203 aa 776760 7000 04 tsx0 -528,ic 002163 STATEMENT 1 ON LINE 336 command_line_ptr = P_command_line_ptr; 003204 aa 6 00032 3735 20 epp7 pr6|26,* 003205 aa 7 00002 3715 20 epp5 pr7|2,* P_command_line_ptr 003206 aa 5 00000 3715 20 epp5 pr5|0,* P_command_line_ptr 003207 aa 6 00116 6515 00 spri5 pr6|78 command_line_ptr STATEMENT 1 ON LINE 338 on cleanup begin; 003210 aa 000007 7260 07 lxl6 7,dl 003211 aa 775463 3520 04 epp2 -1229,ic 000674 = 143154145141 003212 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 003213 aa 000004 7100 04 tra 4,ic 003217 003214 aa 000300000000 003215 aa 000036 7100 04 tra 30,ic 003253 BEGIN CONDITION cleanup.3 ENTRY TO cleanup.3 STATEMENT 1 ON LINE 338 on cleanup begin; 003216 da 001032200000 003217 aa 000120 6270 00 eax7 80 003220 aa 7 00034 3521 20 epp2 pr7|28,* 003221 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 003222 aa 000000000000 003223 aa 000000000000 STATEMENT 1 ON LINE 340 if command_line_ptr ^= null () then call release_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, (0)); 003224 aa 6 00040 3735 20 epp7 pr6|32,* 003225 aa 7 00116 2371 00 ldaq pr7|78 command_line_ptr 003226 aa 775444 6770 04 eraq -1244,ic 000672 = 077777000043 000001000000 003227 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 003230 aa 000022 6000 04 tze 18,ic 003252 003231 aa 6 00100 4501 00 stz pr6|64 003232 aa 775250 3520 04 epp2 -1368,ic 000502 = 143157156164 003233 aa 6 00104 2521 00 spri2 pr6|68 003234 aa 7 00116 3521 00 epp2 pr7|78 command_line_ptr 003235 aa 6 00106 2521 00 spri2 pr6|70 003236 aa 6 00100 3521 00 epp2 pr6|64 003237 aa 6 00110 2521 00 spri2 pr6|72 003240 aa 775367 3520 04 epp2 -1289,ic 000627 = 526000000040 003241 aa 6 00112 2521 00 spri2 pr6|74 003242 aa 775371 3520 04 epp2 -1287,ic 000633 = 464000000000 003243 aa 6 00114 2521 00 spri2 pr6|76 003244 aa 775372 3520 04 epp2 -1286,ic 000636 = 404000000043 003245 aa 6 00116 2521 00 spri2 pr6|78 003246 aa 6 00102 6211 00 eax1 pr6|66 003247 aa 014000 4310 07 fld 6144,dl 003250 la 4 00104 3521 20 epp2 pr4|68,* release_temp_segment_ 003251 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 342 end; 003252 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.3 STATEMENT 1 ON LINE 344 call cu_$cp (addwordno (addr (command_line), 1), length (command_line), (0)); 003253 aa 6 00116 3735 20 epp7 pr6|78,* command_line 003254 aa 7 00000 3521 00 epp2 pr7|0 003255 aa 000001 0520 03 adwp2 1,du 003256 aa 6 00354 2521 00 spri2 pr6|236 003257 aa 6 00116 2361 20 ldq pr6|78,* command_line 003260 aa 6 00433 7561 00 stq pr6|283 003261 aa 6 00353 4501 00 stz pr6|235 003262 aa 6 00354 3521 00 epp2 pr6|236 003263 aa 6 00416 2521 00 spri2 pr6|270 003264 aa 6 00433 3521 00 epp2 pr6|283 003265 aa 6 00420 2521 00 spri2 pr6|272 003266 aa 6 00353 3521 00 epp2 pr6|235 003267 aa 6 00422 2521 00 spri2 pr6|274 003270 aa 6 00414 6211 00 eax1 pr6|268 003271 aa 014000 4310 07 fld 6144,dl 003272 aa 6 00044 3701 20 epp4 pr6|36,* 003273 la 4 00044 3521 20 epp2 pr4|36,* cu_$cp 003274 aa 6 00456 6535 00 spri7 pr6|302 003275 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 346 call release_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, (0)); 003276 aa 6 00353 4501 00 stz pr6|235 003277 aa 775203 3520 04 epp2 -1405,ic 000502 = 143157156164 003300 aa 6 00416 2521 00 spri2 pr6|270 003301 aa 6 00116 3521 00 epp2 pr6|78 command_line_ptr 003302 aa 6 00420 2521 00 spri2 pr6|272 003303 aa 6 00353 3521 00 epp2 pr6|235 003304 aa 6 00422 2521 00 spri2 pr6|274 003305 aa 775322 3520 04 epp2 -1326,ic 000627 = 526000000040 003306 aa 6 00424 2521 00 spri2 pr6|276 003307 aa 775324 3520 04 epp2 -1324,ic 000633 = 464000000000 003310 aa 6 00426 2521 00 spri2 pr6|278 003311 aa 775325 3520 04 epp2 -1323,ic 000636 = 404000000043 003312 aa 6 00430 2521 00 spri2 pr6|280 003313 aa 6 00414 6211 00 eax1 pr6|268 003314 aa 014000 4310 07 fld 6144,dl 003315 aa 6 00044 3701 20 epp4 pr6|36,* 003316 la 4 00104 3521 20 epp2 pr4|68,* release_temp_segment_ 003317 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 348 return; 003320 aa 6 00342 2361 00 ldq pr6|226 003321 aa 000005 6010 04 tnz 5,ic 003326 003322 aa 000027 7260 07 lxl6 23,dl 003323 aa 775523 3520 04 epp2 -1197,ic 001046 = 162145164165 003324 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 003325 aa 0 00631 7101 00 tra pr0|409 return_mac 003326 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO pi_signaller STATEMENT 1 ON LINE 355 pi_signaller: entry (P_pi_preferred_ptr); 003327 ta 003061000000 003330 da 001041300000 003331 aa 000540 6270 00 eax7 352 003332 aa 7 00034 3521 20 epp2 pr7|28,* 003333 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003334 aa 000002000000 003335 aa 000000000000 003336 aa 000001 2360 07 ldq 1,dl 003337 aa 6 00342 7561 00 stq pr6|226 003340 aa 776623 7000 04 tsx0 -621,ic 002163 STATEMENT 1 ON LINE 360 system_area_ptr = get_system_free_area_ (); 003341 aa 6 00112 3521 00 epp2 pr6|74 system_area_ptr 003342 aa 6 00360 2521 00 spri2 pr6|240 003343 aa 6 00356 6211 00 eax1 pr6|238 003344 aa 004000 4310 07 fld 2048,dl 003345 aa 6 00044 3701 20 epp4 pr6|36,* 003346 la 4 00060 3521 20 epp2 pr4|48,* get_system_free_area_ 003347 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 362 pi_preferred_ptr = P_pi_preferred_ptr; 003350 aa 6 00032 3735 20 epp7 pr6|26,* 003351 aa 7 00002 3715 20 epp5 pr7|2,* P_pi_preferred_ptr 003352 aa 5 00000 3715 20 epp5 pr5|0,* P_pi_preferred_ptr 003353 aa 6 00120 6515 00 spri5 pr6|80 pi_preferred_ptr STATEMENT 1 ON LINE 364 on cleanup begin; 003354 aa 000007 7260 07 lxl6 7,dl 003355 aa 775317 3520 04 epp2 -1329,ic 000674 = 143154145141 003356 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 003357 aa 000004 7100 04 tra 4,ic 003363 003360 aa 000300000000 003361 aa 000022 7100 04 tra 18,ic 003403 BEGIN CONDITION cleanup.4 ENTRY TO cleanup.4 STATEMENT 1 ON LINE 364 on cleanup begin; 003362 da 001047200000 003363 aa 000100 6270 00 eax7 64 003364 aa 7 00034 3521 20 epp2 pr7|28,* 003365 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 003366 aa 000000000000 003367 aa 000000000000 STATEMENT 1 ON LINE 366 if pi_preferred_ptr ^= null () then free pi_preferred in (system_area); 003370 aa 6 00040 3735 20 epp7 pr6|32,* 003371 aa 7 00120 2371 00 ldaq pr7|80 pi_preferred_ptr 003372 aa 775300 6770 04 eraq -1344,ic 000672 = 077777000043 000001000000 003373 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 003374 aa 000003 6000 04 tze 3,ic 003377 003375 aa 7 00120 3715 00 epp5 pr7|80 pi_preferred_ptr 003376 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 368 pi_preferred_ptr = null (); 003377 aa 775273 2370 04 ldaq -1349,ic 000672 = 077777000043 000001000000 003400 aa 6 00040 3735 20 epp7 pr6|32,* 003401 aa 7 00120 7571 00 staq pr7|80 pi_preferred_ptr STATEMENT 1 ON LINE 369 end; 003402 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.4 STATEMENT 1 ON LINE 371 if pi_preferred then do; 003403 aa 6 00120 2351 20 lda pr6|80,* pi_preferred 003404 aa 000062 6000 04 tze 50,ic 003466 STATEMENT 1 ON LINE 373 call cpm_$set_preferred_control_point (get_control_point_id_ (), code); 003405 aa 6 00353 3521 00 epp2 pr6|235 003406 aa 6 00360 2521 00 spri2 pr6|240 003407 aa 6 00356 6211 00 eax1 pr6|238 003410 aa 004000 4310 07 fld 2048,dl 003411 aa 6 00044 3701 20 epp4 pr6|36,* 003412 la 4 00134 3521 20 epp2 pr4|92,* get_control_point_id_ 003413 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 003414 aa 6 00353 3521 00 epp2 pr6|235 003415 aa 6 00416 2521 00 spri2 pr6|270 003416 aa 6 00132 3521 00 epp2 pr6|90 code 003417 aa 6 00420 2521 00 spri2 pr6|272 003420 aa 6 00414 6211 00 eax1 pr6|268 003421 aa 010000 4310 07 fld 4096,dl 003422 aa 6 00044 3701 20 epp4 pr6|36,* 003423 la 4 00166 3521 20 epp2 pr4|118,* cpm_$set_preferred_control_point 003424 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 374 if code ^= 0 then call com_err_ (code, CONTROL_POINT_MANAGER_CALL, "Trying to make the control point ^12.3b preferred.", get_control_point_id_ ()); 003425 aa 6 00132 2361 00 ldq pr6|90 code 003426 aa 000040 6000 04 tze 32,ic 003466 003427 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003430 aa 776224 00 0064 desc9a -876,52 001653 = 124162171151 003431 aa 6 00414 00 0064 desc9a pr6|268,52 003432 aa 6 00353 3521 00 epp2 pr6|235 003433 aa 6 00360 2521 00 spri2 pr6|240 003434 aa 6 00356 6211 00 eax1 pr6|238 003435 aa 004000 4310 07 fld 2048,dl 003436 aa 6 00044 3701 20 epp4 pr6|36,* 003437 la 4 00134 3521 20 epp2 pr4|92,* get_control_point_id_ 003440 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 003441 aa 6 00132 3521 00 epp2 pr6|90 code 003442 aa 6 00436 2521 00 spri2 pr6|286 003443 aa 775037 3520 04 epp2 -1505,ic 000502 = 143157156164 003444 aa 6 00440 2521 00 spri2 pr6|288 003445 aa 6 00414 3521 00 epp2 pr6|268 003446 aa 6 00442 2521 00 spri2 pr6|290 003447 aa 6 00353 3521 00 epp2 pr6|235 003450 aa 6 00444 2521 00 spri2 pr6|292 003451 aa 775165 3520 04 epp2 -1419,ic 000636 = 404000000043 003452 aa 6 00446 2521 00 spri2 pr6|294 003453 aa 775154 3520 04 epp2 -1428,ic 000627 = 526000000040 003454 aa 6 00450 2521 00 spri2 pr6|296 003455 aa 775142 3520 04 epp2 -1438,ic 000617 = 524000000062 003456 aa 6 00452 2521 00 spri2 pr6|298 003457 aa 775155 3520 04 epp2 -1427,ic 000634 = 514000000044 003460 aa 6 00454 2521 00 spri2 pr6|300 003461 aa 6 00434 6211 00 eax1 pr6|284 003462 aa 020000 4310 07 fld 8192,dl 003463 aa 6 00044 3701 20 epp4 pr6|36,* 003464 la 4 00036 3521 20 epp2 pr4|30,* com_err_ 003465 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 377 end; STATEMENT 1 ON LINE 379 free pi_preferred in (system_area); 003466 aa 6 00120 3715 00 epp5 pr6|80 pi_preferred_ptr 003467 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 380 pi_preferred_ptr = null (); 003470 aa 775202 2370 04 ldaq -1406,ic 000672 = 077777000043 000001000000 003471 aa 6 00120 7571 00 staq pr6|80 pi_preferred_ptr STATEMENT 1 ON LINE 382 call program_interrupt$program_interrupt (); 003472 aa 6 00056 6211 00 eax1 pr6|46 003473 aa 000000 4310 07 fld 0,dl 003474 aa 6 00044 3701 20 epp4 pr6|36,* 003475 la 4 00102 3521 20 epp2 pr4|66,* program_interrupt$program_interrupt 003476 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 384 return; 003477 aa 6 00342 2361 00 ldq pr6|226 003500 aa 000005 6010 04 tnz 5,ic 003505 003501 aa 000027 7260 07 lxl6 23,dl 003502 aa 775344 3520 04 epp2 -1308,ic 001046 = 162145164165 003503 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 003504 aa 0 00631 7101 00 tra pr0|409 return_mac 003505 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO probe_caller STATEMENT 1 ON LINE 1434 probe_caller: entry (); 003506 da 001056200000 003507 aa 000540 6270 00 eax7 352 003510 aa 7 00034 3521 20 epp2 pr7|28,* 003511 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003512 aa 000000000000 003513 aa 000000000000 003514 aa 000001 2360 07 ldq 1,dl 003515 aa 6 00342 7561 00 stq pr6|226 003516 aa 776445 7000 04 tsx0 -731,ic 002163 STATEMENT 1 ON LINE 1437 call probe$probe (); 003517 aa 6 00056 6211 00 eax1 pr6|46 003520 aa 000000 4310 07 fld 0,dl 003521 aa 6 00044 3701 20 epp4 pr6|36,* 003522 la 4 00100 3521 20 epp2 pr4|64,* probe$probe 003523 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1439 return; 003524 aa 6 00342 2361 00 ldq pr6|226 003525 aa 000005 6010 04 tnz 5,ic 003532 003526 aa 000027 7260 07 lxl6 23,dl 003527 aa 775317 3520 04 epp2 -1329,ic 001046 = 162145164165 003530 aa 0 00716 7001 00 tsx0 pr0|462 signal_op 003531 aa 0 00631 7101 00 tra pr0|409 return_mac 003532 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1741 end control_point_manager_call; BEGIN PROCEDURE abort_control_point_manager_call ENTRY TO abort_control_point_manager_call STATEMENT 1 ON LINE 239 abort_control_point_manager_call: procedure (); 003533 da 001072200000 003534 aa 000100 6270 00 eax7 64 003535 aa 7 00034 3521 20 epp2 pr7|28,* 003536 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 003537 aa 000000000000 003540 aa 000000000000 STATEMENT 1 ON LINE 242 go to RETURN_FROM_CONTROL_POINT_MANAGER_CALL; 003541 aa 777077 3520 04 epp2 -449,ic 002640 = 600122352100 003542 aa 000001 7270 07 lxl7 1,dl 003543 aa 0 00657 7101 00 tra pr0|431 tra_ext_1 STATEMENT 1 ON LINE 244 end abort_control_point_manager_call; END PROCEDURE abort_control_point_manager_call BEGIN PROCEDURE prepare_for_operation ENTRY TO prepare_for_operation STATEMENT 1 ON LINE 388 prepare_for_operation: procedure (); 003544 aa 6 00344 6501 00 spri4 pr6|228 STATEMENT 1 ON LINE 391 n_arguments = n_arguments - 1; 003545 aa 000001 3360 07 lcq 1,dl 003546 aa 6 00107 0561 00 asq pr6|71 n_arguments STATEMENT 1 ON LINE 399 call ssu_$get_procedure (sci_ptr, SSU_ARG_PTR, cpmc_info.ssu_arg_ptr, code); 003547 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 003550 aa 6 00462 2521 00 spri2 pr6|306 003551 aa 774711 3520 04 epp2 -1591,ic 000462 = 141162147137 003552 aa 6 00464 2521 00 spri2 pr6|308 003553 aa 6 00124 3521 00 epp2 pr6|84 cpmc_info.ssu_arg_ptr 003554 aa 6 00466 2521 00 spri2 pr6|310 003555 aa 6 00132 3521 00 epp2 pr6|90 code 003556 aa 6 00470 2521 00 spri2 pr6|312 003557 aa 775054 3520 04 epp2 -1492,ic 000633 = 464000000000 003560 aa 6 00472 2521 00 spri2 pr6|314 003561 aa 775046 3520 04 epp2 -1498,ic 000627 = 526000000040 003562 aa 6 00474 2521 00 spri2 pr6|316 003563 aa 775052 3520 04 epp2 -1494,ic 000635 = 500000000000 003564 aa 6 00476 2521 00 spri2 pr6|318 003565 aa 775051 3520 04 epp2 -1495,ic 000636 = 404000000043 003566 aa 6 00500 2521 00 spri2 pr6|320 003567 aa 6 00460 6211 00 eax1 pr6|304 003570 aa 020000 4310 07 fld 8192,dl 003571 aa 6 00044 3701 20 epp4 pr6|36,* 003572 la 4 00120 3521 20 epp2 pr4|80,* ssu_$get_procedure 003573 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 401 if code = 0 /* we have the reall ssu_$arg_ptr stashed away */ then call ssu_$set_procedure (sci_ptr, SSU_ARG_PTR, operation_arg_ptr, code); 003574 aa 6 00132 2361 00 ldq pr6|90 code 003575 aa 000032 6010 04 tnz 26,ic 003627 003576 aa 777065 3520 04 epp2 -459,ic 002663 = 000540627000 003577 aa 6 00460 2521 00 spri2 pr6|304 cp.708 003600 aa 011534 2370 04 ldaq 4956,ic 015334 = 077777000043 000001000000 003601 aa 6 00462 7571 00 staq pr6|306 cp.708 003602 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 003603 aa 6 00504 2521 00 spri2 pr6|324 003604 aa 774656 3520 04 epp2 -1618,ic 000462 = 141162147137 003605 aa 6 00506 2521 00 spri2 pr6|326 003606 aa 6 00460 3521 00 epp2 pr6|304 cp.708 003607 aa 6 00510 2521 00 spri2 pr6|328 003610 aa 6 00132 3521 00 epp2 pr6|90 code 003611 aa 6 00512 2521 00 spri2 pr6|330 003612 aa 775021 3520 04 epp2 -1519,ic 000633 = 464000000000 003613 aa 6 00514 2521 00 spri2 pr6|332 003614 aa 775013 3520 04 epp2 -1525,ic 000627 = 526000000040 003615 aa 6 00516 2521 00 spri2 pr6|334 003616 aa 775017 3520 04 epp2 -1521,ic 000635 = 500000000000 003617 aa 6 00520 2521 00 spri2 pr6|336 003620 aa 775016 3520 04 epp2 -1522,ic 000636 = 404000000043 003621 aa 6 00522 2521 00 spri2 pr6|338 003622 aa 6 00502 6211 00 eax1 pr6|322 003623 aa 020000 4310 07 fld 8192,dl 003624 aa 6 00044 3701 20 epp4 pr6|36,* 003625 la 4 00130 3521 20 epp2 pr4|88,* ssu_$set_procedure 003626 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 404 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Attempting to replace ssu_$arg_ptr."); 003627 aa 6 00132 2361 00 ldq pr6|90 code 003630 aa 000025 6000 04 tze 21,ic 003655 003631 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003632 aa 775431 00 0044 desc9a -1255,36 001262 = 101164164145 003633 aa 6 00502 00 0044 desc9a pr6|322,36 003634 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 003635 aa 6 00462 2521 00 spri2 pr6|306 003636 aa 6 00132 3521 00 epp2 pr6|90 code 003637 aa 6 00464 2521 00 spri2 pr6|308 003640 aa 6 00502 3521 00 epp2 pr6|322 003641 aa 6 00466 2521 00 spri2 pr6|310 003642 aa 774771 3520 04 epp2 -1543,ic 000633 = 464000000000 003643 aa 6 00470 2521 00 spri2 pr6|312 003644 aa 774772 3520 04 epp2 -1542,ic 000636 = 404000000043 003645 aa 6 00472 2521 00 spri2 pr6|314 003646 aa 774750 3520 04 epp2 -1560,ic 000616 = 524000000043 003647 aa 6 00474 2521 00 spri2 pr6|316 003650 aa 6 00460 6211 00 eax1 pr6|304 003651 aa 014000 4310 07 fld 6144,dl 003652 aa 6 00044 3701 20 epp4 pr6|36,* 003653 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 003654 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 411 call ssu_$set_procedure (sci_ptr, SSU_GET_SUBSYSTEM_AND_REQUEST_NAME, get_command_and_operation_name, code); 003655 aa 777063 3520 04 epp2 -461,ic 002740 = 000540627000 003656 aa 6 00460 2521 00 spri2 pr6|304 cp.708 003657 aa 011455 2370 04 ldaq 4909,ic 015334 = 077777000043 000001000000 003660 aa 6 00462 7571 00 staq pr6|306 cp.708 003661 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 003662 aa 6 00504 2521 00 spri2 pr6|324 003663 aa 774567 3520 04 epp2 -1673,ic 000452 = 147145164137 003664 aa 6 00506 2521 00 spri2 pr6|326 003665 aa 6 00460 3521 00 epp2 pr6|304 cp.708 003666 aa 6 00510 2521 00 spri2 pr6|328 003667 aa 6 00132 3521 00 epp2 pr6|90 code 003670 aa 6 00512 2521 00 spri2 pr6|330 003671 aa 774742 3520 04 epp2 -1566,ic 000633 = 464000000000 003672 aa 6 00514 2521 00 spri2 pr6|332 003673 aa 774734 3520 04 epp2 -1572,ic 000627 = 526000000040 003674 aa 6 00516 2521 00 spri2 pr6|334 003675 aa 774740 3520 04 epp2 -1568,ic 000635 = 500000000000 003676 aa 6 00520 2521 00 spri2 pr6|336 003677 aa 774737 3520 04 epp2 -1569,ic 000636 = 404000000043 003700 aa 6 00522 2521 00 spri2 pr6|338 003701 aa 6 00502 6211 00 eax1 pr6|322 003702 aa 020000 4310 07 fld 8192,dl 003703 aa 6 00044 3701 20 epp4 pr6|36,* 003704 la 4 00130 3521 20 epp2 pr4|88,* ssu_$set_procedure 003705 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 412 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Attempting to replace ssu_$get_subsystem_and_request_name."); 003706 aa 6 00132 2361 00 ldq pr6|90 code 003707 aa 000025 6000 04 tze 21,ic 003734 003710 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003711 aa 776052 00 0074 desc9a -982,60 001762 = 101164164145 003712 aa 6 00502 00 0074 desc9a pr6|322,60 003713 aa 6 00122 3521 00 epp2 pr6|82 sci_ptr 003714 aa 6 00462 2521 00 spri2 pr6|306 003715 aa 6 00132 3521 00 epp2 pr6|90 code 003716 aa 6 00464 2521 00 spri2 pr6|308 003717 aa 6 00502 3521 00 epp2 pr6|322 003720 aa 6 00466 2521 00 spri2 pr6|310 003721 aa 774712 3520 04 epp2 -1590,ic 000633 = 464000000000 003722 aa 6 00470 2521 00 spri2 pr6|312 003723 aa 774713 3520 04 epp2 -1589,ic 000636 = 404000000043 003724 aa 6 00472 2521 00 spri2 pr6|314 003725 aa 774670 3520 04 epp2 -1608,ic 000615 = 524000000072 003726 aa 6 00474 2521 00 spri2 pr6|316 003727 aa 6 00460 6211 00 eax1 pr6|304 003730 aa 014000 4310 07 fld 6144,dl 003731 aa 6 00044 3701 20 epp4 pr6|36,* 003732 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 003733 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 418 OPERATION_ENTRIES (1) = is_cpm_enabled; 003734 aa 000664 3520 04 epp2 436,ic 004620 = 000140627000 003735 aa 6 00134 2521 00 spri2 pr6|92 OPERATION_ENTRIES 003736 aa 6 00136 6521 00 spri6 pr6|94 OPERATION_ENTRIES STATEMENT 1 ON LINE 419 OPERATION_ENTRIES (2) = get_id; 003737 aa 000757 3520 04 epp2 495,ic 004716 = 000160627000 003740 aa 6 00140 2521 00 spri2 pr6|96 OPERATION_ENTRIES 003741 aa 6 00142 6521 00 spri6 pr6|98 OPERATION_ENTRIES STATEMENT 1 ON LINE 420 OPERATION_ENTRIES (3) = create_control_point$create; 003742 aa 001074 3520 04 epp2 572,ic 005036 = 000540627000 003743 aa 6 00144 2521 00 spri2 pr6|100 OPERATION_ENTRIES 003744 aa 6 00146 6521 00 spri6 pr6|102 OPERATION_ENTRIES STATEMENT 1 ON LINE 421 OPERATION_ENTRIES (4) = destroy; 003745 aa 003360 3520 04 epp2 1776,ic 007325 = 000200627000 003746 aa 6 00150 2521 00 spri2 pr6|104 OPERATION_ENTRIES 003747 aa 6 00152 6521 00 spri6 pr6|106 OPERATION_ENTRIES STATEMENT 1 ON LINE 422 OPERATION_ENTRIES (5) = start; 003750 aa 003475 3520 04 epp2 1853,ic 007445 = 000200627000 003751 aa 6 00154 2521 00 spri2 pr6|108 OPERATION_ENTRIES 003752 aa 6 00156 6521 00 spri6 pr6|110 OPERATION_ENTRIES STATEMENT 1 ON LINE 423 OPERATION_ENTRIES (6) = wakeup; 003753 aa 003612 3520 04 epp2 1930,ic 007565 = 000200627000 003754 aa 6 00160 2521 00 spri2 pr6|112 OPERATION_ENTRIES 003755 aa 6 00162 6521 00 spri6 pr6|114 OPERATION_ENTRIES STATEMENT 1 ON LINE 424 OPERATION_ENTRIES (7) = stop; 003756 aa 003727 3520 04 epp2 2007,ic 007705 = 000160627000 003757 aa 6 00164 2521 00 spri2 pr6|116 OPERATION_ENTRIES 003760 aa 6 00166 6521 00 spri6 pr6|118 OPERATION_ENTRIES STATEMENT 1 ON LINE 425 OPERATION_ENTRIES (8) = scheduler; 003761 aa 004233 3520 04 epp2 2203,ic 010214 = 000100627000 003762 aa 6 00170 2521 00 spri2 pr6|120 OPERATION_ENTRIES 003763 aa 6 00172 6521 00 spri6 pr6|122 OPERATION_ENTRIES STATEMENT 1 ON LINE 426 OPERATION_ENTRIES (9) = generate_call; 003764 aa 004256 3520 04 epp2 2222,ic 010242 = 000220627000 003765 aa 6 00174 2521 00 spri2 pr6|124 OPERATION_ENTRIES 003766 aa 6 00176 6521 00 spri6 pr6|126 OPERATION_ENTRIES STATEMENT 1 ON LINE 427 OPERATION_ENTRIES (10) = list; 003767 aa 005247 3520 04 epp2 2727,ic 011236 = 000220627000 003770 aa 6 00200 2521 00 spri2 pr6|128 OPERATION_ENTRIES 003771 aa 6 00202 6521 00 spri6 pr6|130 OPERATION_ENTRIES STATEMENT 1 ON LINE 428 OPERATION_ENTRIES (11) = probe; 003772 aa 006555 3520 04 epp2 3437,ic 012547 = 000200627000 003773 aa 6 00204 2521 00 spri2 pr6|132 OPERATION_ENTRIES 003774 aa 6 00206 6521 00 spri6 pr6|134 OPERATION_ENTRIES STATEMENT 1 ON LINE 429 OPERATION_ENTRIES (12) = program_interrupt; 003775 aa 006704 3520 04 epp2 3524,ic 012701 = 000220627000 003776 aa 6 00210 2521 00 spri2 pr6|136 OPERATION_ENTRIES 003777 aa 6 00212 6521 00 spri6 pr6|138 OPERATION_ENTRIES STATEMENT 1 ON LINE 430 OPERATION_ENTRIES (13) = create_control_point$run; 004000 aa 001067 3520 04 epp2 567,ic 005067 = 000540627000 004001 aa 6 00214 2521 00 spri2 pr6|140 OPERATION_ENTRIES 004002 aa 6 00216 6521 00 spri6 pr6|142 OPERATION_ENTRIES STATEMENT 1 ON LINE 431 OPERATION_ENTRIES (14) = get_cl_intermediary; 004003 aa 007276 3520 04 epp2 3774,ic 013301 = 001120627000 004004 aa 6 00220 2521 00 spri2 pr6|144 OPERATION_ENTRIES 004005 aa 6 00222 6521 00 spri6 pr6|146 OPERATION_ENTRIES STATEMENT 1 ON LINE 432 OPERATION_ENTRIES (15) = set_cl_intermediary; 004006 aa 007673 3520 04 epp2 4027,ic 013701 = 000700627000 004007 aa 6 00224 2521 00 spri2 pr6|148 OPERATION_ENTRIES 004010 aa 6 00226 6521 00 spri6 pr6|150 OPERATION_ENTRIES STATEMENT 1 ON LINE 433 OPERATION_ENTRIES (16) = get_preferred; 004011 aa 010433 3520 04 epp2 4379,ic 014444 = 000160627000 004012 aa 6 00230 2521 00 spri2 pr6|152 OPERATION_ENTRIES 004013 aa 6 00232 6521 00 spri6 pr6|154 OPERATION_ENTRIES STATEMENT 1 ON LINE 434 OPERATION_ENTRIES (17) = set_preferred; 004014 aa 010575 3520 04 epp2 4477,ic 014611 = 000200627000 004015 aa 6 00234 2521 00 spri2 pr6|156 OPERATION_ENTRIES 004016 aa 6 00236 6521 00 spri6 pr6|158 OPERATION_ENTRIES STATEMENT 1 ON LINE 435 OPERATION_ENTRIES (18) = push_preferred; 004017 aa 010712 3520 04 epp2 4554,ic 014731 = 000200627000 004020 aa 6 00240 2521 00 spri2 pr6|160 OPERATION_ENTRIES 004021 aa 6 00242 6521 00 spri6 pr6|162 OPERATION_ENTRIES STATEMENT 1 ON LINE 436 OPERATION_ENTRIES (19) = pop_preferred; 004022 aa 011063 3520 04 epp2 4659,ic 015105 = 000160627000 004023 aa 6 00244 2521 00 spri2 pr6|164 OPERATION_ENTRIES 004024 aa 6 00246 6521 00 spri6 pr6|166 OPERATION_ENTRIES STATEMENT 1 ON LINE 437 OPERATION_ENTRIES (20) = enable_cpm; 004025 aa 000517 3520 04 epp2 335,ic 004544 = 000140627000 004026 aa 6 00250 2521 00 spri2 pr6|168 OPERATION_ENTRIES 004027 aa 6 00252 6521 00 spri6 pr6|170 OPERATION_ENTRIES STATEMENT 1 ON LINE 438 OPERATION_ENTRIES (21) = select; 004030 aa 003775 3520 04 epp2 2045,ic 010025 = 000220627000 004031 aa 6 00254 2521 00 spri2 pr6|172 OPERATION_ENTRIES 004032 aa 6 00256 6521 00 spri6 pr6|174 OPERATION_ENTRIES STATEMENT 1 ON LINE 440 return; 004033 aa 6 00344 6101 00 rtcd pr6|228 STATEMENT 1 ON LINE 442 end prepare_for_operation; END PROCEDURE prepare_for_operation BEGIN PROCEDURE display_usage_message_and_abort ENTRY TO display_usage_message_and_abort STATEMENT 1 ON LINE 446 display_usage_message_and_abort: procedure (p_arguments_description); 004034 da 001105200000 004035 aa 000160 6270 00 eax7 112 004036 aa 7 00034 3521 20 epp2 pr7|28,* 004037 aa 2 01050 2721 00 tsp2 pr2|552 int_entry_desc 004040 aa 000002000000 004041 aa 000000000000 004042 aa 6 00042 3735 20 epp7 pr6|34,* 004043 aa 7 00000 2361 20 ldq pr7|0,* 004044 aa 000002 6040 04 tmi 2,ic 004046 004045 aa 777777 3760 07 anq 262143,dl 004046 aa 0 00250 3761 00 anq pr0|168 = 000077777777 004047 aa 6 00100 7561 00 stq pr6|64 STATEMENT 1 ON LINE 452 if is_active_function then call active_fnc_err_$suppress_name (0, CONTROL_POINT_MANAGER_CALL, "Usage: ^a^[ ^a^;^s^]^[ ^a^]", CONTROL_POINT_MANAGER_CALL, (cpmc_info.operation_idx > 0), OPERATION_NAMES (cpmc_info.operation_idx, 1), (length (p_arguments_description) > 0), p_arguments_description); 004050 aa 6 00040 3715 20 epp5 pr6|32,* 004051 aa 5 00103 2351 00 lda pr5|67 is_active_function 004052 aa 400000 3150 03 cana 131072,du 004053 aa 000061 6000 04 tze 49,ic 004134 004054 aa 6 00101 4501 00 stz pr6|65 004055 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004056 aa 775042 00 0034 desc9a -1502,28 001117 = 125163141147 004057 aa 6 00102 00 0034 desc9a pr6|66,28 004060 aa 5 00130 2361 00 ldq pr5|88 cpmc_info.operation_idx 004061 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 004062 aa 6 00111 7551 00 sta pr6|73 004063 aa 000014 4020 07 mpy 12,dl 004064 aa 000000 6270 06 eax7 0,ql 004065 aa 6 00100 2361 00 ldq pr6|64 004066 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 004067 aa 6 00113 7551 00 sta pr6|75 004070 aa 6 00101 3521 00 epp2 pr6|65 004071 aa 6 00116 2521 00 spri2 pr6|78 004072 aa 774410 3520 04 epp2 -1784,ic 000502 = 143157156164 004073 aa 6 00120 2521 00 spri2 pr6|80 004074 aa 6 00102 3521 00 epp2 pr6|66 004075 aa 6 00122 2521 00 spri2 pr6|82 004076 aa 774404 3520 04 epp2 -1788,ic 000502 = 143157156164 004077 aa 6 00124 2521 00 spri2 pr6|84 004100 aa 6 00111 3521 00 epp2 pr6|73 004101 aa 6 00126 2521 00 spri2 pr6|86 004102 ta 000040 3520 17 epp2 32,7 004103 aa 6 00130 2521 00 spri2 pr6|88 004104 aa 6 00113 3521 00 epp2 pr6|75 004105 aa 6 00132 2521 00 spri2 pr6|90 004106 aa 6 00032 3535 20 epp3 pr6|26,* 004107 aa 3 00002 3521 20 epp2 pr3|2,* p_arguments_description 004110 aa 6 00134 2521 00 spri2 pr6|92 004111 aa 774513 3520 04 epp2 -1717,ic 000624 = 404000000005 004112 aa 6 00136 2521 00 spri2 pr6|94 004113 aa 774514 3520 04 epp2 -1716,ic 000627 = 526000000040 004114 aa 6 00140 2521 00 spri2 pr6|96 004115 aa 6 00144 2521 00 spri2 pr6|100 004116 aa 774475 3520 04 epp2 -1731,ic 000613 = 524000000034 004117 aa 6 00142 2521 00 spri2 pr6|98 004120 aa 774472 3520 04 epp2 -1734,ic 000612 = 514000000001 004121 aa 6 00146 2521 00 spri2 pr6|102 004122 aa 6 00152 2521 00 spri2 pr6|106 004123 aa 774475 3520 04 epp2 -1731,ic 000620 = 530000000024 004124 aa 6 00150 2521 00 spri2 pr6|104 004125 aa 7 00000 3521 20 epp2 pr7|0,* 004126 aa 6 00154 2521 00 spri2 pr6|108 004127 aa 6 00114 6211 00 eax1 pr6|76 004130 aa 040000 4310 07 fld 16384,dl 004131 la 4 00034 3521 20 epp2 pr4|28,* active_fnc_err_$suppress_name 004132 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004133 aa 000060 7100 04 tra 48,ic 004213 STATEMENT 1 ON LINE 457 else call com_err_$suppress_name (0, CONTROL_POINT_MANAGER_CALL, "Usage: ^a^[ ^a^;^s^]^[ ^a^]", CONTROL_POINT_MANAGER_CALL, (cpmc_info.operation_idx > 0), OPERATION_NAMES (cpmc_info.operation_idx, 1), (length (p_arguments_description) > 0), p_arguments_description); 004134 aa 6 00113 4501 00 stz pr6|75 004135 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004136 aa 774762 00 0034 desc9a -1550,28 001117 = 125163141147 004137 aa 6 00102 00 0034 desc9a pr6|66,28 004140 aa 5 00130 2361 00 ldq pr5|88 cpmc_info.operation_idx 004141 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 004142 aa 6 00111 7551 00 sta pr6|73 004143 aa 000014 4020 07 mpy 12,dl 004144 aa 000000 6270 06 eax7 0,ql 004145 aa 6 00100 2361 00 ldq pr6|64 004146 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 004147 aa 6 00112 7551 00 sta pr6|74 004150 aa 6 00113 3521 00 epp2 pr6|75 004151 aa 6 00116 2521 00 spri2 pr6|78 004152 aa 774330 3520 04 epp2 -1832,ic 000502 = 143157156164 004153 aa 6 00120 2521 00 spri2 pr6|80 004154 aa 6 00102 3521 00 epp2 pr6|66 004155 aa 6 00122 2521 00 spri2 pr6|82 004156 aa 774324 3520 04 epp2 -1836,ic 000502 = 143157156164 004157 aa 6 00124 2521 00 spri2 pr6|84 004160 aa 6 00111 3521 00 epp2 pr6|73 004161 aa 6 00126 2521 00 spri2 pr6|86 004162 ta 000040 3520 17 epp2 32,7 004163 aa 6 00130 2521 00 spri2 pr6|88 004164 aa 6 00112 3521 00 epp2 pr6|74 004165 aa 6 00132 2521 00 spri2 pr6|90 004166 aa 6 00032 3535 20 epp3 pr6|26,* 004167 aa 3 00002 3521 20 epp2 pr3|2,* p_arguments_description 004170 aa 6 00134 2521 00 spri2 pr6|92 004171 aa 774433 3520 04 epp2 -1765,ic 000624 = 404000000005 004172 aa 6 00136 2521 00 spri2 pr6|94 004173 aa 774434 3520 04 epp2 -1764,ic 000627 = 526000000040 004174 aa 6 00140 2521 00 spri2 pr6|96 004175 aa 6 00144 2521 00 spri2 pr6|100 004176 aa 774415 3520 04 epp2 -1779,ic 000613 = 524000000034 004177 aa 6 00142 2521 00 spri2 pr6|98 004200 aa 774412 3520 04 epp2 -1782,ic 000612 = 514000000001 004201 aa 6 00146 2521 00 spri2 pr6|102 004202 aa 6 00152 2521 00 spri2 pr6|106 004203 aa 774415 3520 04 epp2 -1779,ic 000620 = 530000000024 004204 aa 6 00150 2521 00 spri2 pr6|104 004205 aa 7 00000 3521 20 epp2 pr7|0,* 004206 aa 6 00154 2521 00 spri2 pr6|108 004207 aa 6 00114 6211 00 eax1 pr6|76 004210 aa 040000 4310 07 fld 16384,dl 004211 la 4 00040 3521 20 epp2 pr4|32,* com_err_$suppress_name 004212 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 462 call abort_control_point_manager_call (); 004213 aa 000001 7270 07 lxl7 1,dl 004214 aa 6 00056 6211 00 eax1 pr6|46 004215 aa 000000 4310 07 fld 0,dl 004216 aa 777316 3520 04 epp2 -306,ic 003534 = 000100627000 004217 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 464 end display_usage_message_and_abort; 004220 aa 0 00631 7101 00 tra pr0|409 return_mac END PROCEDURE display_usage_message_and_abort BEGIN PROCEDURE reject_any_arguments ENTRY TO reject_any_arguments STATEMENT 1 ON LINE 470 reject_any_arguments: procedure (); 004221 da 001116200000 004222 aa 000140 6270 00 eax7 96 004223 aa 7 00034 3521 20 epp2 pr7|28,* 004224 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 004225 aa 000000000000 004226 aa 000000000000 STATEMENT 1 ON LINE 473 if n_arguments ^= 0 then call ssu_$abort_subsystem (sci_ptr, 0, "No arguments may be given for this operation."); 004227 aa 6 00040 3735 20 epp7 pr6|32,* 004230 aa 7 00107 2361 00 ldq pr7|71 n_arguments 004231 aa 000025 6000 04 tze 21,ic 004256 004232 aa 6 00100 4501 00 stz pr6|64 004233 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004234 aa 775367 00 0060 desc9a -1289,48 001622 = 116157040141 004235 aa 6 00102 00 0060 desc9a pr6|66,48 004236 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 004237 aa 6 00120 2521 00 spri2 pr6|80 004240 aa 6 00100 3521 00 epp2 pr6|64 004241 aa 6 00122 2521 00 spri2 pr6|82 004242 aa 6 00102 3521 00 epp2 pr6|66 004243 aa 6 00124 2521 00 spri2 pr6|84 004244 aa 774367 3520 04 epp2 -1801,ic 000633 = 464000000000 004245 aa 6 00126 2521 00 spri2 pr6|86 004246 aa 774356 3520 04 epp2 -1810,ic 000624 = 404000000005 004247 aa 6 00130 2521 00 spri2 pr6|88 004250 aa 774341 3520 04 epp2 -1823,ic 000611 = 524000000055 004251 aa 6 00132 2521 00 spri2 pr6|90 004252 aa 6 00116 6211 00 eax1 pr6|78 004253 aa 014000 4310 07 fld 6144,dl 004254 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 004255 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 476 return; 004256 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 478 end reject_any_arguments; END PROCEDURE reject_any_arguments BEGIN PROCEDURE fetch_next_argument ENTRY TO fetch_next_argument STATEMENT 1 ON LINE 484 fetch_next_argument: procedure (p_noarg_message); 004257 aa 6 00100 6501 00 spri4 pr6|64 004260 aa 6 00102 2521 00 spri2 pr6|66 004261 aa 2 00002 3521 01 epp2 pr2|2,au 004262 aa 6 00104 2521 00 spri2 pr6|68 004263 aa 2 00000 2361 20 ldq pr2|0,* 004264 aa 000002 6040 04 tmi 2,ic 004266 004265 aa 777777 3760 07 anq 262143,dl 004266 aa 0 00250 3761 00 anq pr0|168 = 000077777777 004267 aa 6 00303 7561 00 stq pr6|195 STATEMENT 1 ON LINE 489 if argument_idx = n_arguments then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, p_noarg_message); 004270 aa 6 00040 3735 20 epp7 pr6|32,* 004271 aa 7 00110 2361 00 ldq pr7|72 argument_idx 004272 aa 7 00107 1161 00 cmpq pr7|71 n_arguments 004273 aa 000024 6010 04 tnz 20,ic 004317 004274 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 004275 aa 6 00306 2521 00 spri2 pr6|198 004276 aa 6 00044 3701 20 epp4 pr6|36,* 004277 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 004300 aa 6 00310 2521 00 spri2 pr6|200 004301 aa 6 00102 3715 20 epp5 pr6|66,* 004302 aa 5 00002 3521 20 epp2 pr5|2,* p_noarg_message 004303 aa 6 00312 2521 00 spri2 pr6|202 004304 aa 774327 3520 04 epp2 -1833,ic 000633 = 464000000000 004305 aa 6 00314 2521 00 spri2 pr6|204 004306 aa 774330 3520 04 epp2 -1832,ic 000636 = 404000000043 004307 aa 6 00316 2521 00 spri2 pr6|206 004310 aa 6 00104 3535 20 epp3 pr6|68,* 004311 aa 3 00000 3521 20 epp2 pr3|0,* 004312 aa 6 00320 2521 00 spri2 pr6|208 004313 aa 6 00304 6211 00 eax1 pr6|196 004314 aa 014000 4310 07 fld 6144,dl 004315 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 004316 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 492 argument_idx = argument_idx + 1; 004317 aa 6 00040 3735 20 epp7 pr6|32,* 004320 aa 7 00110 0541 00 aos pr7|72 argument_idx STATEMENT 1 ON LINE 493 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 004321 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 004322 aa 6 00306 2521 00 spri2 pr6|198 004323 aa 7 00110 3521 00 epp2 pr7|72 argument_idx 004324 aa 6 00310 2521 00 spri2 pr6|200 004325 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 004326 aa 6 00312 2521 00 spri2 pr6|202 004327 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 004330 aa 6 00314 2521 00 spri2 pr6|204 004331 aa 6 00304 6211 00 eax1 pr6|196 004332 aa 020000 4310 07 fld 8192,dl 004333 aa 6 00044 3701 20 epp4 pr6|36,* 004334 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 004335 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 495 return; 004336 aa 6 00100 6101 00 rtcd pr6|64 STATEMENT 1 ON LINE 497 end fetch_next_argument; END PROCEDURE fetch_next_argument BEGIN PROCEDURE cv_string_to_control_point_id ENTRY TO cv_string_to_control_point_id STATEMENT 1 ON LINE 504 cv_string_to_control_point_id: procedure (); 004337 da 001131200000 004340 aa 000220 6270 00 eax7 144 004341 aa 7 00034 3521 20 epp2 pr7|28,* 004342 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 004343 aa 000000000000 004344 aa 000000000000 STATEMENT 1 ON LINE 515 control_point_id = cv_oct_check_ (argument, code); 004345 aa 6 00040 3735 20 epp7 pr6|32,* 004346 aa 7 00106 2361 00 ldq pr7|70 argument_lth 004347 aa 526000 2760 03 orq 175104,du 004350 aa 6 00103 7561 00 stq pr6|67 004351 aa 7 00104 3521 20 epp2 pr7|68,* argument 004352 aa 6 00106 2521 00 spri2 pr6|70 004353 aa 7 00132 3521 00 epp2 pr7|90 code 004354 aa 6 00110 2521 00 spri2 pr6|72 004355 aa 6 00101 3521 00 epp2 pr6|65 control_point_id 004356 aa 6 00112 2521 00 spri2 pr6|74 004357 aa 6 00103 3521 00 epp2 pr6|67 004360 aa 6 00114 2521 00 spri2 pr6|76 004361 aa 774255 3520 04 epp2 -1875,ic 000636 = 404000000043 004362 aa 6 00116 2521 00 spri2 pr6|78 004363 aa 774251 3520 04 epp2 -1879,ic 000634 = 514000000044 004364 aa 6 00120 2521 00 spri2 pr6|80 004365 aa 6 00104 6211 00 eax1 pr6|68 004366 aa 014000 4310 07 fld 6144,dl 004367 la 4 00052 3521 20 epp2 pr4|42,* cv_oct_check_ 004370 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 516 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, error_table_$bad_conversion, "Control point IDs must be given as octal strings; not ""^a"".", argument); 004371 aa 6 00040 3735 20 epp7 pr6|32,* 004372 aa 7 00132 2361 00 ldq pr7|90 code 004373 aa 000034 6000 04 tze 28,ic 004427 004374 aa 7 00106 2361 00 ldq pr7|70 argument_lth 004375 aa 526000 2760 03 orq 175104,du 004376 aa 6 00103 7561 00 stq pr6|67 004377 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004400 aa 775344 00 0074 desc9a -1308,60 001743 = 103157156164 004401 aa 6 00122 00 0074 desc9a pr6|82,60 004402 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 004403 aa 6 00144 2521 00 spri2 pr6|100 004404 aa 6 00044 3701 20 epp4 pr6|36,* 004405 la 4 00020 3521 20 epp2 pr4|16,* error_table_$bad_conversion 004406 aa 6 00146 2521 00 spri2 pr6|102 004407 aa 6 00122 3521 00 epp2 pr6|82 004410 aa 6 00150 2521 00 spri2 pr6|104 004411 aa 7 00104 3521 20 epp2 pr7|68,* argument 004412 aa 6 00152 2521 00 spri2 pr6|106 004413 aa 774220 3520 04 epp2 -1904,ic 000633 = 464000000000 004414 aa 6 00154 2521 00 spri2 pr6|108 004415 aa 774221 3520 04 epp2 -1903,ic 000636 = 404000000043 004416 aa 6 00156 2521 00 spri2 pr6|110 004417 aa 774171 3520 04 epp2 -1927,ic 000610 = 524000000073 004420 aa 6 00160 2521 00 spri2 pr6|112 004421 aa 6 00103 3521 00 epp2 pr6|67 004422 aa 6 00162 2521 00 spri2 pr6|114 004423 aa 6 00142 6211 00 eax1 pr6|98 004424 aa 020000 4310 07 fld 8192,dl 004425 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 004426 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 520 if control_point_id > "000000777777"b3 /* full ID given */ then do; 004427 aa 6 00101 2351 00 lda pr6|65 control_point_id 004430 aa 777777 1150 07 cmpa 262143,dl 004431 aa 000006 6020 04 tnc 6,ic 004437 004432 aa 000005 6000 04 tze 5,ic 004437 STATEMENT 1 ON LINE 522 string (decoded_control_point_id) = control_point_id; 004433 aa 6 00100 7551 00 sta pr6|64 STATEMENT 1 ON LINE 523 check_unique_bits = "1"b; 004434 aa 400000 2350 03 lda 131072,du 004435 aa 6 00102 7551 00 sta pr6|66 check_unique_bits STATEMENT 1 ON LINE 524 end; 004436 aa 000010 7100 04 tra 8,ic 004446 STATEMENT 1 ON LINE 525 else do; STATEMENT 1 ON LINE 526 string (decoded_control_point_id) = substr (control_point_id, 19, 18) || "000000"b3; 004437 aa 6 00101 2351 00 lda pr6|65 control_point_id 004440 aa 000022 7350 00 als 18 004441 aa 6 00103 7551 00 sta pr6|67 control_point_id 004442 aa 000000 2350 03 lda 0,du 004443 aa 6 00103 2751 00 ora pr6|67 control_point_id 004444 aa 6 00100 7551 00 sta pr6|64 STATEMENT 1 ON LINE 527 check_unique_bits = "0"b; 004445 aa 6 00102 4501 00 stz pr6|66 check_unique_bits STATEMENT 1 ON LINE 528 end; STATEMENT 1 ON LINE 530 if cpm_data_$valid_control_points.map (binary (decoded_control_point_id.stack_segno, 18, 0)) then do; 004446 aa 6 00100 2351 00 lda pr6|64 decoded_control_point_id.stack_segno 004447 aa 0 00044 3771 00 anaq pr0|36 = 777777000000 000000000000 004450 aa 6 00103 7551 00 sta pr6|67 decoded_control_point_id.stack_segno 004451 aa 000066 7730 00 lrl 54 004452 aa 6 00044 3701 20 epp4 pr6|36,* 004453 la 4 00202 3735 20 epp7 pr4|130,* 004454 aa 000 000 066 506 cmpb (pr,ql),(),fill(0) 004455 aa 7 00000 00 0001 descb pr7|0,1 cpm_data_$valid_control_points.map 004456 aa 000000 00 0000 descb 0,0 004457 aa 000017 6000 04 tze 15,ic 004476 STATEMENT 1 ON LINE 532 cpd_ptr = baseptr (decoded_control_point_id.stack_segno) -> stack_header.cpm_data_ptr; 004460 aa 6 00103 2351 00 lda pr6|67 decoded_control_point_id.stack_segno 004461 aa 6 00000 3525 00 epbp2 pr6|0 004462 aa 000000 3130 01 easp2 0,au 004463 aa 2 00004 3715 20 epp5 pr2|4,* stack_header.cpm_data_ptr 004464 aa 6 00040 3535 20 epp3 pr6|32,* 004465 aa 3 00334 6515 00 spri5 pr3|220 cpd_ptr STATEMENT 1 ON LINE 533 if check_unique_bits then if control_point_data.id = control_point_id then return; 004466 aa 6 00102 2351 00 lda pr6|66 check_unique_bits 004467 aa 400000 3150 03 cana 131072,du 004470 aa 000005 6000 04 tze 5,ic 004475 004471 aa 5 00000 2351 00 lda pr5|0 control_point_data.id 004472 aa 6 00101 1151 00 cmpa pr6|65 control_point_id 004473 aa 0 00631 6001 00 tze pr0|409 return_mac STATEMENT 1 ON LINE 536 else ; 004474 aa 000002 7100 04 tra 2,ic 004476 STATEMENT 1 ON LINE 537 else return; 004475 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 538 end; STATEMENT 1 ON LINE 540 call ssu_$abort_subsystem (sci_ptr, cpm_et_$control_point_not_found, "^6.3b^[^6.3b^;xxxxxx^]", decoded_control_point_id.stack_segno, check_unique_bits, decoded_control_point_id.unique_bits); 004476 aa 774334 2370 04 ldaq -1828,ic 001032 = 136066056063 142136133136 004477 aa 6 00104 7571 00 staq pr6|68 004500 aa 774334 2370 04 ldaq -1828,ic 001034 = 066056063142 136073170170 004501 aa 6 00106 7571 00 staq pr6|70 004502 aa 774334 2370 04 ldaq -1828,ic 001036 = 170170170170 136135000000 004503 aa 6 00110 7571 00 staq pr6|72 004504 aa 6 00040 3715 20 epp5 pr6|32,* 004505 aa 5 00122 3521 00 epp2 pr5|82 sci_ptr 004506 aa 6 00166 2521 00 spri2 pr6|118 004507 la 4 00012 3521 20 epp2 pr4|10,* cpm_et_$control_point_not_found 004510 aa 6 00170 2521 00 spri2 pr6|120 004511 aa 6 00104 3521 00 epp2 pr6|68 004512 aa 6 00172 2521 00 spri2 pr6|122 004513 aa 6 00100 3521 00 epp2 pr6|64 decoded_control_point_id.stack_segno 004514 aa 6 00174 2521 00 spri2 pr6|124 004515 aa 6 00102 3521 00 epp2 pr6|66 check_unique_bits 004516 aa 6 00176 2521 00 spri2 pr6|126 004517 aa 000022 7270 07 lxl7 18,dl 004520 aa 6 00100 3521 00 epp2 pr6|64 decoded_control_point_id.unique_bits 004521 aa 2 00000 5035 17 abd pr2|0,7 004522 aa 6 00200 2521 00 spri2 pr6|128 004523 aa 774110 3520 04 epp2 -1976,ic 000633 = 464000000000 004524 aa 6 00202 2521 00 spri2 pr6|130 004525 aa 774111 3520 04 epp2 -1975,ic 000636 = 404000000043 004526 aa 6 00204 2521 00 spri2 pr6|132 004527 aa 774060 3520 04 epp2 -2000,ic 000607 = 524000000026 004530 aa 6 00206 2521 00 spri2 pr6|134 004531 aa 774055 3520 04 epp2 -2003,ic 000606 = 516000000022 004532 aa 6 00210 2521 00 spri2 pr6|136 004533 aa 6 00214 2521 00 spri2 pr6|140 004534 aa 774056 3520 04 epp2 -2002,ic 000612 = 514000000001 004535 aa 6 00212 2521 00 spri2 pr6|138 004536 aa 6 00164 6211 00 eax1 pr6|116 004537 aa 030000 4310 07 fld 12288,dl 004540 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 004541 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 543 end cv_string_to_control_point_id; 004542 aa 0 00631 7101 00 tra pr0|409 return_mac END PROCEDURE cv_string_to_control_point_id BEGIN PROCEDURE enable_cpm ENTRY TO enable_cpm STATEMENT 1 ON LINE 547 enable_cpm: procedure (); 004543 da 001137200000 004544 aa 000140 6270 00 eax7 96 004545 aa 7 00034 3521 20 epp2 pr7|28,* 004546 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 004547 aa 000000000000 004550 aa 000000000000 STATEMENT 1 ON LINE 550 call reject_any_arguments (); 004551 aa 000001 7270 07 lxl7 1,dl 004552 aa 6 00056 6211 00 eax1 pr6|46 004553 aa 000000 4310 07 fld 0,dl 004554 aa 777446 3520 04 epp2 -218,ic 004222 = 000140627000 004555 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 552 if stackbaseptr () -> stack_header.cpm_enabled then call ssu_$abort_subsystem (sci_ptr, 0, "Control point management is already enabled."); 004556 aa 6 00000 3525 00 epbp2 pr6|0 004557 aa 2 00013 2351 00 lda pr2|11 stack_header.cpm_enabled 004560 aa 777777 3150 07 cana 262143,dl 004561 aa 000030 6000 04 tze 24,ic 004611 004562 aa 6 00100 4501 00 stz pr6|64 004563 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004564 aa 774744 00 0054 desc9a -1564,44 001527 = 103157156164 004565 aa 6 00102 00 0054 desc9a pr6|66,44 004566 aa 6 00040 3735 20 epp7 pr6|32,* 004567 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 004570 aa 6 00120 2521 00 spri2 pr6|80 004571 aa 6 00100 3521 00 epp2 pr6|64 004572 aa 6 00122 2521 00 spri2 pr6|82 004573 aa 6 00102 3521 00 epp2 pr6|66 004574 aa 6 00124 2521 00 spri2 pr6|84 004575 aa 774036 3520 04 epp2 -2018,ic 000633 = 464000000000 004576 aa 6 00126 2521 00 spri2 pr6|86 004577 aa 774025 3520 04 epp2 -2027,ic 000624 = 404000000005 004600 aa 6 00130 2521 00 spri2 pr6|88 004601 aa 774004 3520 04 epp2 -2044,ic 000605 = 524000000054 004602 aa 6 00132 2521 00 spri2 pr6|90 004603 aa 6 00116 6211 00 eax1 pr6|78 004604 aa 014000 4310 07 fld 6144,dl 004605 aa 6 00044 3701 20 epp4 pr6|36,* 004606 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 004607 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004610 aa 000006 7100 04 tra 6,ic 004616 STATEMENT 1 ON LINE 554 else call cpm_initialize_ (); 004611 aa 6 00056 6211 00 eax1 pr6|46 004612 aa 000000 4310 07 fld 0,dl 004613 aa 6 00044 3701 20 epp4 pr6|36,* 004614 la 4 00042 3521 20 epp2 pr4|34,* cpm_initialize_ 004615 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 556 return; 004616 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 558 end enable_cpm; END PROCEDURE enable_cpm BEGIN PROCEDURE is_cpm_enabled ENTRY TO is_cpm_enabled STATEMENT 1 ON LINE 563 is_cpm_enabled: procedure (); 004617 da 001146200000 004620 aa 000140 6270 00 eax7 96 004621 aa 7 00034 3521 20 epp2 pr7|28,* 004622 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 004623 aa 000000000000 004624 aa 000000000000 STATEMENT 1 ON LINE 568 call reject_any_arguments (); 004625 aa 000001 7270 07 lxl7 1,dl 004626 aa 6 00056 6211 00 eax1 pr6|46 004627 aa 000000 4310 07 fld 0,dl 004630 aa 777372 3520 04 epp2 -262,ic 004222 = 000140627000 004631 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 570 cpm_is_enabled = (stackbaseptr () -> stack_header.cpm_enabled ^= ""b); 004632 aa 6 00000 3525 00 epbp2 pr6|0 004633 aa 2 00013 2351 00 lda pr2|11 stack_header.cpm_enabled 004634 aa 777777 3150 07 cana 262143,dl 004635 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 004636 aa 6 00100 7551 00 sta pr6|64 cpm_is_enabled STATEMENT 1 ON LINE 572 if is_active_function /* return it into the command line */ then if cpm_is_enabled then return_value = "true"; 004637 aa 6 00040 3735 20 epp7 pr6|32,* 004640 aa 7 00103 2351 00 lda pr7|67 is_active_function 004641 aa 400000 3150 03 cana 131072,du 004642 aa 000027 6000 04 tze 23,ic 004671 004643 aa 6 00100 2351 00 lda pr6|64 cpm_is_enabled 004644 aa 000013 6000 04 tze 11,ic 004657 004645 aa 000004 2360 07 ldq 4,dl 004646 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 004647 aa 000002 6040 04 tmi 2,ic 004651 004650 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 004651 aa 7 00100 7561 20 stq pr7|64,* return_value 004652 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 004653 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 004654 aa 773731 00 0006 desc9a -2087,ql 000604 = 164162165145 004655 aa 5 00001 00 0006 desc9a pr5|1,ql return_value 004656 aa 000036 7100 04 tra 30,ic 004714 STATEMENT 1 ON LINE 575 else return_value = "false"; 004657 aa 000005 2360 07 ldq 5,dl 004660 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 004661 aa 000002 6040 04 tmi 2,ic 004663 004662 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 004663 aa 7 00100 7561 20 stq pr7|64,* return_value 004664 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 004665 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 004666 aa 773775 00 0006 desc9a -2051,ql 000662 = 146141154163 004667 aa 5 00001 00 0006 desc9a pr5|1,ql return_value 004670 aa 000024 7100 04 tra 20,ic 004714 STATEMENT 1 ON LINE 577 else call ioa_ ("Control point management is^[ not^] enabled.", ^cpm_is_enabled); 004671 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004672 aa 774623 00 0054 desc9a -1645,44 001514 = 103157156164 004673 aa 6 00102 00 0054 desc9a pr6|66,44 004674 aa 6 00100 2351 00 lda pr6|64 cpm_is_enabled 004675 aa 0 00002 6751 00 era pr0|2 = 400000000000 004676 aa 6 00101 7551 00 sta pr6|65 004677 aa 6 00102 3521 00 epp2 pr6|66 004700 aa 6 00120 2521 00 spri2 pr6|80 004701 aa 6 00101 3521 00 epp2 pr6|65 004702 aa 6 00122 2521 00 spri2 pr6|82 004703 aa 773702 3520 04 epp2 -2110,ic 000605 = 524000000054 004704 aa 6 00124 2521 00 spri2 pr6|84 004705 aa 773705 3520 04 epp2 -2107,ic 000612 = 514000000001 004706 aa 6 00126 2521 00 spri2 pr6|86 004707 aa 6 00116 6211 00 eax1 pr6|78 004710 aa 010000 4310 07 fld 4096,dl 004711 aa 6 00044 3701 20 epp4 pr6|36,* 004712 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 004713 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 579 return; 004714 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 581 end is_cpm_enabled; END PROCEDURE is_cpm_enabled BEGIN PROCEDURE get_id ENTRY TO get_id STATEMENT 1 ON LINE 587 get_id: procedure (); 004715 da 001153200000 004716 aa 000160 6270 00 eax7 112 004717 aa 7 00034 3521 20 epp2 pr7|28,* 004720 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 004721 aa 000000000000 004722 aa 000000000000 STATEMENT 1 ON LINE 592 call reject_any_arguments (); 004723 aa 000001 7270 07 lxl7 1,dl 004724 aa 6 00056 6211 00 eax1 pr6|46 004725 aa 000000 4310 07 fld 0,dl 004726 aa 777274 3520 04 epp2 -324,ic 004222 = 000140627000 004727 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 594 call ioa_$rsnnl ("^12.3b", id_string, (0), get_control_point_id_ ()); 004730 aa 773730 2370 04 ldaq -2088,ic 000660 = 136061062056 063142000000 004731 aa 6 00104 7571 00 staq pr6|68 004732 aa 6 00103 4501 00 stz pr6|67 004733 aa 6 00106 3521 00 epp2 pr6|70 004734 aa 6 00112 2521 00 spri2 pr6|74 004735 aa 6 00110 6211 00 eax1 pr6|72 004736 aa 004000 4310 07 fld 2048,dl 004737 aa 6 00044 3701 20 epp4 pr6|36,* 004740 la 4 00134 3521 20 epp2 pr4|92,* get_control_point_id_ 004741 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 004742 aa 6 00104 3521 00 epp2 pr6|68 004743 aa 6 00116 2521 00 spri2 pr6|78 004744 aa 6 00100 3521 00 epp2 pr6|64 id_string 004745 aa 6 00120 2521 00 spri2 pr6|80 004746 aa 6 00103 3521 00 epp2 pr6|67 004747 aa 6 00122 2521 00 spri2 pr6|82 004750 aa 6 00106 3521 00 epp2 pr6|70 004751 aa 6 00124 2521 00 spri2 pr6|84 004752 aa 773631 3520 04 epp2 -2151,ic 000603 = 524000000006 004753 aa 6 00126 2521 00 spri2 pr6|86 004754 aa 773626 3520 04 epp2 -2154,ic 000602 = 526000000014 004755 aa 6 00130 2521 00 spri2 pr6|88 004756 aa 773646 3520 04 epp2 -2138,ic 000624 = 404000000005 004757 aa 6 00132 2521 00 spri2 pr6|90 004760 aa 773654 3520 04 epp2 -2132,ic 000634 = 514000000044 004761 aa 6 00134 2521 00 spri2 pr6|92 004762 aa 6 00114 6211 00 eax1 pr6|76 004763 aa 020000 4310 07 fld 8192,dl 004764 aa 6 00044 3701 20 epp4 pr6|36,* 004765 la 4 00072 3521 20 epp2 pr4|58,* ioa_$rsnnl 004766 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 596 if is_active_function /* return it into the command line */ then return_value = id_string; 004767 aa 6 00040 3735 20 epp7 pr6|32,* 004770 aa 7 00103 2351 00 lda pr7|67 is_active_function 004771 aa 400000 3150 03 cana 131072,du 004772 aa 000013 6000 04 tze 11,ic 005005 004773 aa 000014 2360 07 ldq 12,dl 004774 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 004775 aa 000002 6040 04 tmi 2,ic 004777 004776 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 004777 aa 7 00100 7561 20 stq pr7|64,* return_value 005000 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 005001 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 005002 aa 6 00100 00 0006 desc9a pr6|64,ql id_string 005003 aa 5 00001 00 0006 desc9a pr5|1,ql return_value 005004 aa 000021 7100 04 tra 17,ic 005025 STATEMENT 1 ON LINE 599 else call ioa_ ("Current control point ID is ^a.", id_string); 005005 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005006 aa 774171 00 0040 desc9a -1927,32 001176 = 103165162162 005007 aa 6 00114 00 0040 desc9a pr6|76,32 005010 aa 6 00114 3521 00 epp2 pr6|76 005011 aa 6 00140 2521 00 spri2 pr6|96 005012 aa 6 00100 3521 00 epp2 pr6|64 id_string 005013 aa 6 00142 2521 00 spri2 pr6|98 005014 aa 773611 3520 04 epp2 -2167,ic 000625 = 524000000037 005015 aa 6 00144 2521 00 spri2 pr6|100 005016 aa 773564 3520 04 epp2 -2188,ic 000602 = 526000000014 005017 aa 6 00146 2521 00 spri2 pr6|102 005020 aa 6 00136 6211 00 eax1 pr6|94 005021 aa 010000 4310 07 fld 4096,dl 005022 aa 6 00044 3701 20 epp4 pr6|36,* 005023 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 005024 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 601 return; 005025 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 603 end get_id; END PROCEDURE get_id BEGIN PROCEDURE create_control_point ENTRY TO create_control_point STATEMENT 1 ON LINE 607 create_control_point: procedure (); 005026 da 001164200000 005027 aa 000540 6270 00 eax7 352 005030 aa 7 00034 3521 20 epp2 pr7|28,* 005031 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 005032 aa 000000000000 005033 aa 000000000000 STATEMENT 1 ON LINE 609 return; 005034 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO create_control_point$create STATEMENT 1 ON LINE 633 create_control_point$create: entry (); 005035 da 001176200000 005036 aa 000540 6270 00 eax7 352 005037 aa 7 00034 3521 20 epp2 pr7|28,* 005040 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 005041 aa 000000000000 005042 aa 000000000000 STATEMENT 1 ON LINE 636 if n_arguments = 0 then call display_usage_message_and_abort ("ENTRY {INFO_PTR} {-control_args}"); 005043 aa 6 00040 3735 20 epp7 pr6|32,* 005044 aa 7 00107 2361 00 ldq pr7|71 n_arguments 005045 aa 000015 6010 04 tnz 13,ic 005062 005046 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005047 aa 774120 00 0040 desc9a -1968,32 001166 = 105116124122 005050 aa 6 00322 00 0040 desc9a pr6|210,32 005051 aa 6 00322 3521 00 epp2 pr6|210 005052 aa 6 00334 2521 00 spri2 pr6|220 005053 aa 773526 3520 04 epp2 -2218,ic 000601 = 524000000040 005054 aa 6 00340 2521 00 spri2 pr6|224 005055 aa 000001 7270 07 lxl7 1,dl 005056 aa 6 00332 6211 00 eax1 pr6|218 005057 aa 004000 4310 07 fld 2048,dl 005060 aa 776755 3520 04 epp2 -531,ic 004035 = 000160627000 005061 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 639 create_operation = "1"b; 005062 aa 400000 2350 03 lda 131072,du 005063 aa 6 00262 7551 00 sta pr6|178 create_operation STATEMENT 1 ON LINE 640 run_operation = "0"b; 005064 aa 6 00263 4501 00 stz pr6|179 run_operation STATEMENT 1 ON LINE 642 go to CREATE_CONTROL_POINT; 005065 aa 000032 7100 04 tra 26,ic 005117 ENTRY TO create_control_point$run STATEMENT 1 ON LINE 648 create_control_point$run: entry (); 005066 da 001210200000 005067 aa 000540 6270 00 eax7 352 005070 aa 7 00034 3521 20 epp2 pr7|28,* 005071 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 005072 aa 000000000000 005073 aa 000000000000 STATEMENT 1 ON LINE 651 if n_arguments = 0 then call display_usage_message_and_abort ("{-control_args} COMMAND_LINE"); 005074 aa 6 00040 3735 20 epp7 pr6|32,* 005075 aa 7 00107 2361 00 ldq pr7|71 n_arguments 005076 aa 000015 6010 04 tnz 13,ic 005113 005077 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005100 aa 774011 00 0034 desc9a -2039,28 001110 = 173055143157 005101 aa 6 00332 00 0034 desc9a pr6|218,28 005102 aa 6 00332 3521 00 epp2 pr6|218 005103 aa 6 00324 2521 00 spri2 pr6|212 005104 aa 773507 3520 04 epp2 -2233,ic 000613 = 524000000034 005105 aa 6 00330 2521 00 spri2 pr6|216 005106 aa 000001 7270 07 lxl7 1,dl 005107 aa 6 00322 6211 00 eax1 pr6|210 005110 aa 004000 4310 07 fld 2048,dl 005111 aa 776724 3520 04 epp2 -556,ic 004035 = 000160627000 005112 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 654 create_operation = "0"b; 005113 aa 6 00262 4501 00 stz pr6|178 create_operation STATEMENT 1 ON LINE 655 run_operation = "1"b; 005114 aa 400000 2350 03 lda 131072,du 005115 aa 6 00263 7551 00 sta pr6|179 run_operation STATEMENT 1 ON LINE 657 go to CREATE_CONTROL_POINT; 005116 aa 000001 7100 04 tra 1,ic 005117 STATEMENT 1 ON LINE 663 CREATE_CONTROL_POINT: system_area_ptr = get_system_free_area_ (); 005117 aa 6 00040 3735 20 epp7 pr6|32,* 005120 aa 7 00112 3521 00 epp2 pr7|74 system_area_ptr 005121 aa 6 00324 2521 00 spri2 pr6|212 005122 aa 6 00322 6211 00 eax1 pr6|210 005123 aa 004000 4310 07 fld 2048,dl 005124 aa 6 00044 3701 20 epp4 pr6|36,* 005125 la 4 00060 3521 20 epp2 pr4|48,* get_system_free_area_ 005126 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 666 users_entry_ptr, /* for cleanup handler */ command_line_ptr, ccpi_ptr = null (); 005127 aa 773543 3734 24 epp7 -2205,ic* 005130 aa 6 00040 3715 20 epp5 pr6|32,* 005131 aa 5 00114 6535 00 spri7 pr5|76 users_entry_ptr 005132 aa 5 00116 6535 00 spri7 pr5|78 command_line_ptr 005133 aa 5 00340 6535 00 spri7 pr5|224 ccpi_ptr STATEMENT 1 ON LINE 668 have_users_entry, have_users_info_ptr = "0"b; 005134 aa 6 00265 4501 00 stz pr6|181 have_users_entry 005135 aa 6 00266 4501 00 stz pr6|182 have_users_info_ptr STATEMENT 1 ON LINE 670 on cleanup begin; 005136 aa 000007 7260 07 lxl6 7,dl 005137 aa 773535 3520 04 epp2 -2211,ic 000674 = 143154145141 005140 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 005141 aa 000004 7100 04 tra 4,ic 005145 005142 aa 000274000000 005143 aa 000112 7100 04 tra 74,ic 005255 BEGIN CONDITION cleanup.5 ENTRY TO cleanup.5 STATEMENT 1 ON LINE 670 on cleanup begin; 005144 da 001216200000 005145 aa 000140 6270 00 eax7 96 005146 aa 7 00034 3521 20 epp2 pr7|28,* 005147 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 005150 aa 000000000000 005151 aa 000000000000 STATEMENT 1 ON LINE 672 if create_operation then do; 005152 aa 6 00040 3735 20 epp7 pr6|32,* 005153 aa 7 00262 2351 00 lda pr7|178 create_operation 005154 aa 000031 6000 04 tze 25,ic 005205 STATEMENT 1 ON LINE 674 if users_entry_ptr ^= null () then do; 005155 aa 7 00040 3715 20 epp5 pr7|32,* 005156 aa 5 00114 2371 00 ldaq pr5|76 users_entry_ptr 005157 aa 773513 6770 04 eraq -2229,ic 000672 = 077777000043 000001000000 005160 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 005161 aa 000052 6000 04 tze 42,ic 005233 STATEMENT 1 ON LINE 676 if have_users_info_ptr then do; 005162 aa 7 00266 2351 00 lda pr7|182 have_users_info_ptr 005163 aa 000012 6000 04 tze 10,ic 005175 STATEMENT 1 ON LINE 678 call cv_ptr_$terminate (users_entry.info_ptr); 005164 aa 5 00114 3535 20 epp3 pr5|76,* users_entry_ptr 005165 aa 3 00004 3521 00 epp2 pr3|4 users_entry.info_ptr 005166 aa 6 00102 2521 00 spri2 pr6|66 005167 aa 6 00100 6211 00 eax1 pr6|64 005170 aa 004000 4310 07 fld 2048,dl 005171 la 4 00056 3521 20 epp2 pr4|46,* cv_ptr_$terminate 005172 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 679 have_users_info_ptr = "0"b; 005173 aa 6 00040 3735 20 epp7 pr6|32,* 005174 aa 7 00266 4501 00 stz pr7|182 have_users_info_ptr STATEMENT 1 ON LINE 680 end; STATEMENT 1 ON LINE 681 free users_entry in (system_area); 005175 aa 7 00040 3715 20 epp5 pr7|32,* 005176 aa 5 00114 3715 00 epp5 pr5|76 users_entry_ptr 005177 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 682 users_entry_ptr = null (); 005200 aa 773472 2370 04 ldaq -2246,ic 000672 = 077777000043 000001000000 005201 aa 6 00040 3735 20 epp7 pr6|32,* 005202 aa 7 00040 3735 20 epp7 pr7|32,* 005203 aa 7 00114 7571 00 staq pr7|76 users_entry_ptr STATEMENT 1 ON LINE 683 end; STATEMENT 1 ON LINE 684 end; 005204 aa 000027 7100 04 tra 23,ic 005233 STATEMENT 1 ON LINE 685 else /*** if run_operation then */ do; STATEMENT 1 ON LINE 687 if command_line_ptr ^= null () then call release_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, (0)); 005205 aa 7 00040 3715 20 epp5 pr7|32,* 005206 aa 5 00116 2371 00 ldaq pr5|78 command_line_ptr 005207 aa 773463 6770 04 eraq -2253,ic 000672 = 077777000043 000001000000 005210 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 005211 aa 000022 6000 04 tze 18,ic 005233 005212 aa 6 00104 4501 00 stz pr6|68 005213 aa 773267 3520 04 epp2 -2377,ic 000502 = 143157156164 005214 aa 6 00110 2521 00 spri2 pr6|72 005215 aa 5 00116 3521 00 epp2 pr5|78 command_line_ptr 005216 aa 6 00112 2521 00 spri2 pr6|74 005217 aa 6 00104 3521 00 epp2 pr6|68 005220 aa 6 00114 2521 00 spri2 pr6|76 005221 aa 773406 3520 04 epp2 -2298,ic 000627 = 526000000040 005222 aa 6 00116 2521 00 spri2 pr6|78 005223 aa 773410 3520 04 epp2 -2296,ic 000633 = 464000000000 005224 aa 6 00120 2521 00 spri2 pr6|80 005225 aa 773411 3520 04 epp2 -2295,ic 000636 = 404000000043 005226 aa 6 00122 2521 00 spri2 pr6|82 005227 aa 6 00106 6211 00 eax1 pr6|70 005230 aa 014000 4310 07 fld 6144,dl 005231 la 4 00104 3521 20 epp2 pr4|68,* release_temp_segment_ 005232 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 689 end; STATEMENT 1 ON LINE 690 if ccpi_ptr ^= null () then do; 005233 aa 6 00040 3735 20 epp7 pr6|32,* 005234 aa 7 00040 3735 20 epp7 pr7|32,* 005235 aa 7 00340 2371 00 ldaq pr7|224 ccpi_ptr 005236 aa 773434 6770 04 eraq -2276,ic 000672 = 077777000043 000001000000 005237 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 005240 aa 000014 6000 04 tze 12,ic 005254 STATEMENT 1 ON LINE 692 free create_control_point_info in (system_area); 005241 aa 7 00340 3715 20 epp5 pr7|224,* ccpi_ptr 005242 aa 5 00037 2361 00 ldq pr5|31 create_control_point_info.user_io_attach_desc_length 005243 aa 000200 0760 07 adq 128,dl 005244 aa 000003 0760 07 adq 3,dl 005245 aa 000002 7320 00 qrs 2 005246 aa 7 00340 3715 00 epp5 pr7|224 ccpi_ptr 005247 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 693 ccpi_ptr = null (); 005250 aa 773422 2370 04 ldaq -2286,ic 000672 = 077777000043 000001000000 005251 aa 6 00040 3735 20 epp7 pr6|32,* 005252 aa 7 00040 3735 20 epp7 pr7|32,* 005253 aa 7 00340 7571 00 staq pr7|224 ccpi_ptr STATEMENT 1 ON LINE 694 end; STATEMENT 1 ON LINE 695 end; 005254 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.5 STATEMENT 1 ON LINE 700 display_the_id = "1"b; 005255 aa 400000 2350 03 lda 131072,du 005256 aa 6 00267 7551 00 sta pr6|183 display_the_id STATEMENT 1 ON LINE 702 if create_operation then do; 005257 aa 6 00262 2351 00 lda pr6|178 create_operation 005260 aa 000021 6000 04 tze 17,ic 005301 STATEMENT 1 ON LINE 704 allocate users_entry in (system_area) set (users_entry_ptr); 005261 aa 000006 2360 07 ldq 6,dl 005262 aa 6 00040 3735 20 epp7 pr6|32,* 005263 aa 7 00112 3521 20 epp2 pr7|74,* system_area 005264 aa 0 01402 7001 00 tsx0 pr0|770 op_alloc_ 005265 aa 777774 7100 04 tra -4,ic 005261 005266 aa 6 00040 3735 20 epp7 pr6|32,* 005267 aa 7 00114 2521 00 spri2 pr7|76 users_entry_ptr STATEMENT 1 ON LINE 705 ccpi_header.initproc.entry = run_users_entry; 005270 aa 775574 3520 04 epp2 -1156,ic 003064 = 000540627000 005271 aa 6 00130 2521 00 spri2 pr6|88 ccpi_header.entry 005272 aa 010042 2370 04 ldaq 4130,ic 015334 = 077777000043 000001000000 005273 aa 6 00132 7571 00 staq pr6|90 ccpi_header.entry STATEMENT 1 ON LINE 706 ccpi_header.initproc.info_ptr = users_entry_ptr; 005274 aa 7 00114 3715 20 epp5 pr7|76,* users_entry_ptr 005275 aa 6 00134 6515 00 spri5 pr6|92 ccpi_header.info_ptr STATEMENT 1 ON LINE 707 start_the_control_point = "0"b; 005276 aa 6 00270 4501 00 stz pr6|184 start_the_control_point STATEMENT 1 ON LINE 708 prefer_the_control_point = "0"b; 005277 aa 6 00271 4501 00 stz pr6|185 prefer_the_control_point STATEMENT 1 ON LINE 709 end; 005300 aa 000071 7100 04 tra 57,ic 005371 STATEMENT 1 ON LINE 711 else /*** if run_operation then */ do; STATEMENT 1 ON LINE 713 call get_temp_segment_ (CONTROL_POINT_MANAGER_CALL, command_line_ptr, code); 005301 aa 773201 3520 04 epp2 -2431,ic 000502 = 143157156164 005302 aa 6 00346 2521 00 spri2 pr6|230 005303 aa 6 00040 3735 20 epp7 pr6|32,* 005304 aa 7 00116 3521 00 epp2 pr7|78 command_line_ptr 005305 aa 6 00350 2521 00 spri2 pr6|232 005306 aa 7 00132 3521 00 epp2 pr7|90 code 005307 aa 6 00352 2521 00 spri2 pr6|234 005310 aa 773317 3520 04 epp2 -2353,ic 000627 = 526000000040 005311 aa 6 00354 2521 00 spri2 pr6|236 005312 aa 773321 3520 04 epp2 -2351,ic 000633 = 464000000000 005313 aa 6 00356 2521 00 spri2 pr6|238 005314 aa 773322 3520 04 epp2 -2350,ic 000636 = 404000000043 005315 aa 6 00360 2521 00 spri2 pr6|240 005316 aa 6 00344 6211 00 eax1 pr6|228 005317 aa 014000 4310 07 fld 6144,dl 005320 aa 6 00044 3701 20 epp4 pr6|36,* 005321 la 4 00064 3521 20 epp2 pr4|52,* get_temp_segment_ 005322 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 714 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Unable to obtain space for the command line."); 005323 aa 6 00040 3735 20 epp7 pr6|32,* 005324 aa 7 00132 2361 00 ldq pr7|90 code 005325 aa 000025 6000 04 tze 21,ic 005352 005326 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005327 aa 774153 00 0054 desc9a -1941,44 001501 = 125156141142 005330 aa 6 00344 00 0054 desc9a pr6|228,44 005331 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 005332 aa 6 00364 2521 00 spri2 pr6|244 005333 aa 7 00132 3521 00 epp2 pr7|90 code 005334 aa 6 00366 2521 00 spri2 pr6|246 005335 aa 6 00344 3521 00 epp2 pr6|228 005336 aa 6 00370 2521 00 spri2 pr6|248 005337 aa 773274 3520 04 epp2 -2372,ic 000633 = 464000000000 005340 aa 6 00372 2521 00 spri2 pr6|250 005341 aa 773275 3520 04 epp2 -2371,ic 000636 = 404000000043 005342 aa 6 00374 2521 00 spri2 pr6|252 005343 aa 773242 3520 04 epp2 -2398,ic 000605 = 524000000054 005344 aa 6 00376 2521 00 spri2 pr6|254 005345 aa 6 00362 6211 00 eax1 pr6|242 005346 aa 014000 4310 07 fld 6144,dl 005347 aa 6 00044 3701 20 epp4 pr6|36,* 005350 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 005351 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 716 command_line = ""; 005352 aa 6 00044 3701 20 epp4 pr6|36,* 005353 la 4 00032 2361 20 ldq pr4|26,* sys_info$max_seg_size 005354 aa 000002 7360 00 qls 2 005355 aa 000004 1760 07 sbq 4,dl 005356 aa 6 00040 3735 20 epp7 pr6|32,* 005357 aa 7 00116 4501 20 stz pr7|78,* command_line STATEMENT 1 ON LINE 717 ccpi_header.initproc.entry = run_command_line; 005360 aa 775614 3520 04 epp2 -1140,ic 003174 = 000540627000 005361 aa 6 00130 2521 00 spri2 pr6|88 ccpi_header.entry 005362 aa 007752 2370 04 ldaq 4074,ic 015334 = 077777000043 000001000000 005363 aa 6 00132 7571 00 staq pr6|90 ccpi_header.entry STATEMENT 1 ON LINE 718 ccpi_header.initproc.info_ptr = command_line_ptr; 005364 aa 7 00116 3715 20 epp5 pr7|78,* command_line_ptr 005365 aa 6 00134 6515 00 spri5 pr6|92 ccpi_header.info_ptr STATEMENT 1 ON LINE 719 start_the_control_point = "1"b; 005366 aa 400000 2350 03 lda 131072,du 005367 aa 6 00270 7551 00 sta pr6|184 start_the_control_point STATEMENT 1 ON LINE 720 prefer_the_control_point = "1"b; 005370 aa 6 00271 7551 00 sta pr6|185 prefer_the_control_point STATEMENT 1 ON LINE 721 end; STATEMENT 1 ON LINE 723 ccpi_header.version = CREATE_CONTROL_POINT_INFO_VERSION_1; 005371 aa 772407 2370 04 ldaq -2809,ic 000000 = 143143160151 137060060061 005372 aa 6 00106 7571 00 staq pr6|70 ccpi_header.version STATEMENT 1 ON LINE 724 ccpi_header.comment = ""; 005373 aa 040 100 100 400 mlr (),(pr),fill(040) 005374 aa 000000 00 0000 desc9a 0,0 005375 aa 6 00110 00 0100 desc9a pr6|72,64 ccpi_header.comment STATEMENT 1 ON LINE 725 ccpi_header.priority = 1; 005376 aa 000001 2360 07 ldq 1,dl 005377 aa 6 00142 7561 00 stq pr6|98 ccpi_header.priority STATEMENT 1 ON LINE 726 string (ccpi_header.flags) = ""b; 005400 aa 6 00143 4501 00 stz pr6|99 STATEMENT 1 ON LINE 727 ccpi_header.independent = "1"b; 005401 aa 400000 2350 03 lda 131072,du 005402 aa 6 00143 2551 00 orsa pr6|99 ccpi_header.independent STATEMENT 1 ON LINE 732 in_command_line = "0"b; 005403 aa 6 00264 4501 00 stz pr6|180 in_command_line STATEMENT 1 ON LINE 733 prefer_the_control_point_given = "0"b; 005404 aa 6 00272 4501 00 stz pr6|186 prefer_the_control_point_given STATEMENT 1 ON LINE 735 do argument_idx = 1 to n_arguments; 005405 aa 7 00107 2361 00 ldq pr7|71 n_arguments 005406 aa 6 00302 7561 00 stq pr6|194 005407 aa 000001 2360 07 ldq 1,dl 005410 aa 7 00110 7561 00 stq pr7|72 argument_idx 005411 aa 000000 0110 03 nop 0,du 005412 aa 6 00040 3735 20 epp7 pr6|32,* 005413 aa 7 00110 2361 00 ldq pr7|72 argument_idx 005414 aa 6 00302 1161 00 cmpq pr6|194 005415 aa 001102 6054 04 tpnz 578,ic 006517 STATEMENT 1 ON LINE 737 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 005416 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 005417 aa 6 00364 2521 00 spri2 pr6|244 005420 aa 7 00110 3521 00 epp2 pr7|72 argument_idx 005421 aa 6 00366 2521 00 spri2 pr6|246 005422 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 005423 aa 6 00370 2521 00 spri2 pr6|248 005424 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 005425 aa 6 00372 2521 00 spri2 pr6|250 005426 aa 6 00362 6211 00 eax1 pr6|242 005427 aa 020000 4310 07 fld 8192,dl 005430 aa 6 00044 3701 20 epp4 pr6|36,* 005431 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 005432 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 739 if ^in_command_line & (index (argument, "-") = 1) then /* a control argument */ if (argument = "-long") | (argument = "-lg") then display_the_id = "1"b; 005433 aa 6 00264 2351 00 lda pr6|180 in_command_line 005434 aa 000572 6010 04 tnz 378,ic 006226 005435 aa 6 00040 3735 20 epp7 pr6|32,* 005436 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 005437 aa 7 00106 2361 00 ldq pr7|70 argument_lth 005440 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 005441 aa 5 00000 00 0006 desc9a pr5|0,ql argument 005442 aa 055000 00 0001 desc9a 23040,1 005443 aa 6 00056 0001 00 arg pr6|46 005444 aa 6 00056 2361 00 ldq pr6|46 005445 aa 000002 6070 04 ttf 2,ic 005447 005446 aa 000001 3360 07 lcq 1,dl 005447 aa 000001 0760 07 adq 1,dl 005450 aa 000001 1160 07 cmpq 1,dl 005451 aa 000555 6010 04 tnz 365,ic 006226 005452 aa 7 00106 2351 00 lda pr7|70 argument_lth 005453 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005454 aa 5 00000 00 0005 desc9a pr5|0,al argument 005455 aa 773203 00 0005 desc9a -2429,5 000656 = 055154157156 005456 aa 000005 6000 04 tze 5,ic 005463 005457 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005460 aa 5 00000 00 0005 desc9a pr5|0,al argument 005461 aa 773121 00 0003 desc9a -2479,3 000600 = 055154147000 005462 aa 000004 6010 04 tnz 4,ic 005466 005463 aa 400000 2350 03 lda 131072,du 005464 aa 6 00267 7551 00 sta pr6|183 display_the_id 005465 aa 001027 7100 04 tra 535,ic 006514 STATEMENT 1 ON LINE 743 else if (argument = "-brief") | (argument = "-bf") then display_the_id = "0"b; 005466 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005467 aa 5 00000 00 0005 desc9a pr5|0,al argument 005470 aa 773166 00 0006 desc9a -2442,6 000654 = 055142162151 005471 aa 000005 6000 04 tze 5,ic 005476 005472 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005473 aa 5 00000 00 0005 desc9a pr5|0,al argument 005474 aa 773105 00 0003 desc9a -2491,3 000577 = 055142146000 005475 aa 000003 6010 04 tnz 3,ic 005500 005476 aa 6 00267 4501 00 stz pr6|183 display_the_id 005477 aa 001015 7100 04 tra 525,ic 006514 STATEMENT 1 ON LINE 746 else if (argument = "-start") | (argument = "-sr") then start_the_control_point = "1"b; 005500 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005501 aa 5 00000 00 0005 desc9a pr5|0,al argument 005502 aa 773152 00 0006 desc9a -2454,6 000652 = 055163164141 005503 aa 000005 6000 04 tze 5,ic 005510 005504 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005505 aa 5 00000 00 0005 desc9a pr5|0,al argument 005506 aa 773072 00 0003 desc9a -2502,3 000576 = 055163162000 005507 aa 000004 6010 04 tnz 4,ic 005513 005510 aa 400000 2350 03 lda 131072,du 005511 aa 6 00270 7551 00 sta pr6|184 start_the_control_point 005512 aa 001002 7100 04 tra 514,ic 006514 STATEMENT 1 ON LINE 748 else if (argument = "-no_start") | (argument = "-nsr") then start_the_control_point = "0"b; 005513 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005514 aa 5 00000 00 0005 desc9a pr5|0,al argument 005515 aa 773210 00 0011 desc9a -2424,9 000723 = 055156157137 005516 aa 000005 6000 04 tze 5,ic 005523 005517 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005520 aa 5 00000 00 0005 desc9a pr5|0,al argument 005521 aa 773056 00 0004 desc9a -2514,4 000575 = 055156163162 005522 aa 000003 6010 04 tnz 3,ic 005525 005523 aa 6 00270 4501 00 stz pr6|184 start_the_control_point 005524 aa 000770 7100 04 tra 504,ic 006514 STATEMENT 1 ON LINE 751 else if argument = "-preferred" then prefer_the_control_point, prefer_the_control_point_given = "1"b; 005525 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005526 aa 5 00000 00 0005 desc9a pr5|0,al argument 005527 aa 773173 00 0012 desc9a -2437,10 000720 = 055160162145 005530 aa 000005 6010 04 tnz 5,ic 005535 005531 aa 400000 2350 03 lda 131072,du 005532 aa 6 00271 7551 00 sta pr6|185 prefer_the_control_point 005533 aa 6 00272 7551 00 sta pr6|186 prefer_the_control_point_given 005534 aa 000760 7100 04 tra 496,ic 006514 STATEMENT 1 ON LINE 753 else if argument = "-not_preferred" then do; 005535 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005536 aa 5 00000 00 0005 desc9a pr5|0,al argument 005537 aa 773210 00 0016 desc9a -2424,14 000745 = 055156157164 005540 aa 000005 6010 04 tnz 5,ic 005545 STATEMENT 1 ON LINE 755 prefer_the_control_point = "0"b; 005541 aa 6 00271 4501 00 stz pr6|185 prefer_the_control_point STATEMENT 1 ON LINE 756 prefer_the_control_point_given = "1"b; 005542 aa 400000 2350 03 lda 131072,du 005543 aa 6 00272 7551 00 sta pr6|186 prefer_the_control_point_given STATEMENT 1 ON LINE 757 end; 005544 aa 000750 7100 04 tra 488,ic 006514 STATEMENT 1 ON LINE 759 else if argument = "-priority" then do; 005545 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005546 aa 5 00000 00 0005 desc9a pr5|0,al argument 005547 aa 773150 00 0011 desc9a -2456,9 000715 = 055160162151 005550 aa 000077 6010 04 tnz 63,ic 005647 STATEMENT 1 ON LINE 761 call fetch_next_argument ("A number after ""-priority""."); 005551 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005552 aa 773330 00 0034 desc9a -2344,28 001101 = 101040156165 005553 aa 6 00332 00 0034 desc9a pr6|218,28 005554 aa 007552 3520 04 epp2 3946,ic 015326 = 000002000000 005555 aa 2 00000 2351 00 lda pr2|0 005556 aa 776501 6700 04 tsp4 -703,ic 004257 STATEMENT 1 ON LINE 762 ccpi_header.priority = cv_dec_check_ (argument, code); 005557 aa 6 00040 3735 20 epp7 pr6|32,* 005560 aa 7 00106 2361 00 ldq pr7|70 argument_lth 005561 aa 526000 2760 03 orq 175104,du 005562 aa 6 00400 7561 00 stq pr6|256 005563 aa 7 00104 3521 20 epp2 pr7|68,* argument 005564 aa 6 00346 2521 00 spri2 pr6|230 005565 aa 7 00132 3521 00 epp2 pr7|90 code 005566 aa 6 00350 2521 00 spri2 pr6|232 005567 aa 6 00401 3521 00 epp2 pr6|257 005570 aa 6 00352 2521 00 spri2 pr6|234 005571 aa 6 00400 3521 00 epp2 pr6|256 005572 aa 6 00354 2521 00 spri2 pr6|236 005573 aa 773043 3520 04 epp2 -2525,ic 000636 = 404000000043 005574 aa 6 00356 2521 00 spri2 pr6|238 005575 aa 6 00360 2521 00 spri2 pr6|240 005576 aa 6 00344 6211 00 eax1 pr6|228 005577 aa 014000 4310 07 fld 6144,dl 005600 aa 6 00044 3701 20 epp4 pr6|36,* 005601 la 4 00046 3521 20 epp2 pr4|38,* cv_dec_check_ 005602 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005603 aa 6 00401 2361 00 ldq pr6|257 005604 aa 6 00142 7561 00 stq pr6|98 ccpi_header.priority STATEMENT 1 ON LINE 763 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, error_table_$bad_conversion, "-priority ""^a""", argument); 005605 aa 6 00040 3735 20 epp7 pr6|32,* 005606 aa 7 00132 2361 00 ldq pr7|90 code 005607 aa 000705 6000 04 tze 453,ic 006514 005610 aa 7 00106 2361 00 ldq pr7|70 argument_lth 005611 aa 526000 2760 03 orq 175104,du 005612 aa 6 00400 7561 00 stq pr6|256 005613 aa 773126 2350 04 lda -2474,ic 000741 = 055160162151 005614 aa 773126 2360 04 ldq -2474,ic 000742 = 157162151164 005615 aa 6 00322 7571 00 staq pr6|210 005616 aa 773125 2350 04 lda -2475,ic 000743 = 171040042136 005617 aa 141042 2360 03 ldq 49698,du 005620 aa 6 00324 7571 00 staq pr6|212 005621 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 005622 aa 6 00404 2521 00 spri2 pr6|260 005623 aa 6 00044 3701 20 epp4 pr6|36,* 005624 la 4 00020 3521 20 epp2 pr4|16,* error_table_$bad_conversion 005625 aa 6 00406 2521 00 spri2 pr6|262 005626 aa 6 00322 3521 00 epp2 pr6|210 005627 aa 6 00410 2521 00 spri2 pr6|264 005630 aa 7 00104 3521 20 epp2 pr7|68,* argument 005631 aa 6 00412 2521 00 spri2 pr6|266 005632 aa 773001 3520 04 epp2 -2559,ic 000633 = 464000000000 005633 aa 6 00414 2521 00 spri2 pr6|268 005634 aa 773002 3520 04 epp2 -2558,ic 000636 = 404000000043 005635 aa 6 00416 2521 00 spri2 pr6|270 005636 aa 772735 3520 04 epp2 -2595,ic 000573 = 524000000016 005637 aa 6 00420 2521 00 spri2 pr6|272 005640 aa 6 00400 3521 00 epp2 pr6|256 005641 aa 6 00422 2521 00 spri2 pr6|274 005642 aa 6 00402 6211 00 eax1 pr6|258 005643 aa 020000 4310 07 fld 8192,dl 005644 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 005645 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 766 end; 005646 aa 000646 7100 04 tra 422,ic 006514 STATEMENT 1 ON LINE 768 else if (argument = "-comment") | (argument = "-com") then do; 005647 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005650 aa 5 00000 00 0005 desc9a pr5|0,al argument 005651 aa 773001 00 0010 desc9a -2559,8 000650 = 055143157155 005652 aa 000005 6000 04 tze 5,ic 005657 005653 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005654 aa 5 00000 00 0005 desc9a pr5|0,al argument 005655 aa 772775 00 0004 desc9a -2563,4 000650 = 055143157155 005656 aa 000016 6010 04 tnz 14,ic 005674 STATEMENT 1 ON LINE 770 call fetch_next_argument ("A string after ""-comment""."); 005657 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005660 aa 773213 00 0034 desc9a -2421,28 001072 = 101040163164 005661 aa 6 00332 00 0034 desc9a pr6|218,28 005662 aa 007436 3520 04 epp2 3870,ic 015320 = 000002000000 005663 aa 2 00000 2351 00 lda pr2|0 005664 aa 776373 6700 04 tsp4 -773,ic 004257 STATEMENT 1 ON LINE 771 ccpi_header.comment = argument; 005665 aa 6 00040 3735 20 epp7 pr6|32,* 005666 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 005667 aa 7 00106 2351 00 lda pr7|70 argument_lth 005670 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 005671 aa 5 00000 00 0005 desc9a pr5|0,al argument 005672 aa 6 00110 00 0100 desc9a pr6|72,64 ccpi_header.comment STATEMENT 1 ON LINE 772 end; 005673 aa 000621 7100 04 tra 401,ic 006514 STATEMENT 1 ON LINE 774 else if argument = "-independent" then ccpi_header.independent = "1"b; 005674 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005675 aa 5 00000 00 0005 desc9a pr5|0,al argument 005676 aa 773016 00 0014 desc9a -2546,12 000712 = 055151156144 005677 aa 000004 6010 04 tnz 4,ic 005703 005700 aa 400000 2350 03 lda 131072,du 005701 aa 6 00143 2551 00 orsa pr6|99 ccpi_header.independent 005702 aa 000612 7100 04 tra 394,ic 006514 STATEMENT 1 ON LINE 776 else if argument = "-dependent" then ccpi_header.independent = "0"b; 005703 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005704 aa 5 00000 00 0005 desc9a pr5|0,al argument 005705 aa 773004 00 0012 desc9a -2556,10 000707 = 055144145160 005706 aa 000004 6010 04 tnz 4,ic 005712 005707 aa 007407 2350 04 lda 3847,ic 015316 = 377777777777 005710 aa 6 00143 3551 00 ansa pr6|99 ccpi_header.independent 005711 aa 000603 7100 04 tra 387,ic 006514 STATEMENT 1 ON LINE 779 else if argument = "-cl_intermediary" then do; 005712 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 005713 aa 5 00000 00 0005 desc9a pr5|0,al argument 005714 aa 773023 00 0020 desc9a -2541,16 000735 = 055143154137 005715 aa 000106 6010 04 tnz 70,ic 006023 STATEMENT 1 ON LINE 781 call fetch_next_argument ("An entry after ""-cl_intermediary""."); 005716 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005717 aa 773333 00 0044 desc9a -2341,36 001251 = 101156040145 005720 aa 6 00362 00 0044 desc9a pr6|242,36 005721 aa 007367 3520 04 epp2 3831,ic 015310 = 000002000000 005722 aa 2 00000 2351 00 lda pr2|0 005723 aa 776334 6700 04 tsp4 -804,ic 004257 STATEMENT 1 ON LINE 782 ccpi_header.user_cl_intermediary = cv_entry_ (argument, null (), code); 005724 aa 6 00040 3735 20 epp7 pr6|32,* 005725 aa 7 00106 2361 00 ldq pr7|70 argument_lth 005726 aa 526000 2760 03 orq 175104,du 005727 aa 6 00400 7561 00 stq pr6|256 005730 aa 772742 3714 24 epp5 -2590,ic* 005731 aa 6 00342 6515 00 spri5 pr6|226 005732 aa 7 00104 3521 20 epp2 pr7|68,* argument 005733 aa 6 00404 2521 00 spri2 pr6|260 005734 aa 6 00342 3521 00 epp2 pr6|226 005735 aa 6 00406 2521 00 spri2 pr6|262 005736 aa 7 00132 3521 00 epp2 pr7|90 code 005737 aa 6 00410 2521 00 spri2 pr6|264 005740 aa 6 00136 3521 00 epp2 pr6|94 ccpi_header.user_cl_intermediary 005741 aa 6 00412 2521 00 spri2 pr6|266 005742 aa 6 00400 3521 00 epp2 pr6|256 005743 aa 6 00414 2521 00 spri2 pr6|268 005744 aa 772667 3520 04 epp2 -2633,ic 000633 = 464000000000 005745 aa 6 00416 2521 00 spri2 pr6|270 005746 aa 772670 3520 04 epp2 -2632,ic 000636 = 404000000043 005747 aa 6 00420 2521 00 spri2 pr6|272 005750 aa 772665 3520 04 epp2 -2635,ic 000635 = 500000000000 005751 aa 6 00422 2521 00 spri2 pr6|274 005752 aa 6 00402 6211 00 eax1 pr6|258 005753 aa 020000 4310 07 fld 8192,dl 005754 aa 6 00044 3701 20 epp4 pr6|36,* 005755 la 4 00050 3521 20 epp2 pr4|40,* cv_entry_ 005756 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 783 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "-cl_intermediary ""^a""", argument); 005757 aa 6 00040 3735 20 epp7 pr6|32,* 005760 aa 7 00132 2361 00 ldq pr7|90 code 005761 aa 000037 6000 04 tze 31,ic 006020 005762 aa 7 00106 2361 00 ldq pr7|70 argument_lth 005763 aa 526000 2760 03 orq 175104,du 005764 aa 6 00400 7561 00 stq pr6|256 005765 aa 773037 2370 04 ldaq -2529,ic 001024 = 055143154137 151156164145 005766 aa 6 00322 7571 00 staq pr6|210 005767 aa 773037 2370 04 ldaq -2529,ic 001026 = 162155145144 151141162171 005770 aa 6 00324 7571 00 staq pr6|212 005771 aa 773037 2370 04 ldaq -2529,ic 001030 = 040042136141 042000000000 005772 aa 6 00326 7571 00 staq pr6|214 005773 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 005774 aa 6 00404 2521 00 spri2 pr6|260 005775 aa 7 00132 3521 00 epp2 pr7|90 code 005776 aa 6 00406 2521 00 spri2 pr6|262 005777 aa 6 00322 3521 00 epp2 pr6|210 006000 aa 6 00410 2521 00 spri2 pr6|264 006001 aa 7 00104 3521 20 epp2 pr7|68,* argument 006002 aa 6 00412 2521 00 spri2 pr6|266 006003 aa 772630 3520 04 epp2 -2664,ic 000633 = 464000000000 006004 aa 6 00414 2521 00 spri2 pr6|268 006005 aa 772631 3520 04 epp2 -2663,ic 000636 = 404000000043 006006 aa 6 00416 2521 00 spri2 pr6|270 006007 aa 772561 3520 04 epp2 -2703,ic 000570 = 524000000025 006010 aa 6 00420 2521 00 spri2 pr6|272 006011 aa 6 00400 3521 00 epp2 pr6|256 006012 aa 6 00422 2521 00 spri2 pr6|274 006013 aa 6 00402 6211 00 eax1 pr6|258 006014 aa 020000 4310 07 fld 8192,dl 006015 aa 6 00044 3701 20 epp4 pr6|36,* 006016 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006017 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 785 ccpi_header.user_cl_intermediary_given = "1"b; 006020 aa 040000 2350 03 lda 16384,du 006021 aa 6 00143 2551 00 orsa pr6|99 ccpi_header.user_cl_intermediary_given STATEMENT 1 ON LINE 786 end; 006022 aa 000472 7100 04 tra 314,ic 006514 STATEMENT 1 ON LINE 787 else if argument = "-default_cl_intermediary" then ccpi_header.user_cl_intermediary_given = "0"b; 006023 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006024 aa 5 00000 00 0005 desc9a pr5|0,al argument 006025 aa 772773 00 0030 desc9a -2565,24 001016 = 055144145146 006026 aa 000004 6010 04 tnz 4,ic 006032 006027 aa 007257 2350 04 lda 3759,ic 015306 = 737777777777 006030 aa 6 00143 3551 00 ansa pr6|99 ccpi_header.user_cl_intermediary_given 006031 aa 000463 7100 04 tra 307,ic 006514 STATEMENT 1 ON LINE 790 else if (argument = "-separate_io_switches") | (argument = "-sepios") then do; 006032 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006033 aa 5 00000 00 0005 desc9a pr5|0,al argument 006034 aa 772756 00 0025 desc9a -2578,21 001010 = 055163145160 006035 aa 000005 6000 04 tze 5,ic 006042 006036 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006037 aa 5 00000 00 0005 desc9a pr5|0,al argument 006040 aa 772610 00 0007 desc9a -2680,7 000646 = 055163145160 006041 aa 000050 6010 04 tnz 40,ic 006111 STATEMENT 1 ON LINE 792 ccpi_header.separate_standard_iocbs = "1"b; 006042 aa 200000 2350 03 lda 65536,du 006043 aa 6 00143 2551 00 orsa pr6|99 ccpi_header.separate_standard_iocbs STATEMENT 1 ON LINE 793 ccpi_header.user_io_attach_desc_given = "0"b; 006044 aa 007241 2350 04 lda 3745,ic 015305 = 677777777777 006045 aa 6 00143 3551 00 ansa pr6|99 ccpi_header.user_io_attach_desc_given STATEMENT 1 ON LINE 794 if argument_idx < n_arguments then do; 006046 aa 7 00110 2361 00 ldq pr7|72 argument_idx 006047 aa 7 00107 1161 00 cmpq pr7|71 n_arguments 006050 aa 000444 6050 04 tpl 292,ic 006514 STATEMENT 1 ON LINE 796 call ssu_$arg_ptr (sci_ptr, (argument_idx + 1), atd_argument_ptr, atd_argument_lth); 006051 aa 000001 0760 07 adq 1,dl 006052 aa 6 00400 7561 00 stq pr6|256 006053 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006054 aa 6 00346 2521 00 spri2 pr6|230 006055 aa 6 00400 3521 00 epp2 pr6|256 006056 aa 6 00350 2521 00 spri2 pr6|232 006057 aa 6 00146 3521 00 epp2 pr6|102 atd_argument_ptr 006060 aa 6 00352 2521 00 spri2 pr6|234 006061 aa 6 00150 3521 00 epp2 pr6|104 atd_argument_lth 006062 aa 6 00354 2521 00 spri2 pr6|236 006063 aa 6 00344 6211 00 eax1 pr6|228 006064 aa 020000 4310 07 fld 8192,dl 006065 aa 6 00044 3701 20 epp4 pr6|36,* 006066 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 006067 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 798 if index (atd_argument, "-") ^= 1 then do; 006070 aa 6 00146 3735 20 epp7 pr6|102,* atd_argument_ptr 006071 aa 6 00150 2351 00 lda pr6|104 atd_argument_lth 006072 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 006073 aa 7 00000 00 0005 desc9a pr7|0,al atd_argument 006074 aa 055000 00 0001 desc9a 23040,1 006075 aa 6 00056 0001 00 arg pr6|46 006076 aa 6 00056 2361 00 ldq pr6|46 006077 aa 000002 6070 04 ttf 2,ic 006101 006100 aa 000001 3360 07 lcq 1,dl 006101 aa 000001 0760 07 adq 1,dl 006102 aa 000001 1160 07 cmpq 1,dl 006103 aa 000411 6000 04 tze 265,ic 006514 STATEMENT 1 ON LINE 800 ccpi_header.user_io_attach_desc_given = "1"b; 006104 aa 100000 2350 03 lda 32768,du 006105 aa 6 00143 2551 00 orsa pr6|99 ccpi_header.user_io_attach_desc_given STATEMENT 1 ON LINE 801 argument_idx = argument_idx + 1; 006106 aa 6 00040 3715 20 epp5 pr6|32,* 006107 aa 5 00110 0541 00 aos pr5|72 argument_idx STATEMENT 1 ON LINE 802 end; STATEMENT 1 ON LINE 803 end; STATEMENT 1 ON LINE 804 end; 006110 aa 000404 7100 04 tra 260,ic 006514 STATEMENT 1 ON LINE 805 else if (argument = "-shared_io_switches") | (argument = "-shios") then ccpi_header.separate_standard_iocbs, ccpi_header.user_io_attach_desc_given = "0"b; 006111 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006112 aa 5 00000 00 0005 desc9a pr5|0,al argument 006113 aa 772664 00 0023 desc9a -2636,19 000775 = 055163150141 006114 aa 000005 6000 04 tze 5,ic 006121 006115 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006116 aa 5 00000 00 0005 desc9a pr5|0,al argument 006117 aa 772527 00 0006 desc9a -2729,6 000644 = 055163150151 006120 aa 000006 6010 04 tnz 6,ic 006126 006121 aa 007163 2350 04 lda 3699,ic 015304 = 577777777777 006122 aa 6 00143 3551 00 ansa pr6|99 ccpi_header.separate_standard_iocbs 006123 aa 007162 2350 04 lda 3698,ic 015305 = 677777777777 006124 aa 6 00143 3551 00 ansa pr6|99 ccpi_header.user_io_attach_desc_given 006125 aa 000367 7100 04 tra 247,ic 006514 STATEMENT 1 ON LINE 808 else if run_operation & ((argument = "-string") | (argument = "-str")) then do; 006126 aa 6 00263 2351 00 lda pr6|179 run_operation 006127 aa 000044 6000 04 tze 36,ic 006173 006130 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006131 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006132 aa 5 00000 00 0006 desc9a pr5|0,ql argument 006133 aa 772511 00 0007 desc9a -2743,7 000642 = 055163164162 006134 aa 000005 6000 04 tze 5,ic 006141 006135 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 006136 aa 5 00000 00 0006 desc9a pr5|0,ql argument 006137 aa 772505 00 0004 desc9a -2747,4 000642 = 055163164162 006140 aa 000033 6010 04 tnz 27,ic 006173 STATEMENT 1 ON LINE 810 if argument_idx = n_arguments then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A command line after ""-string""."); 006141 aa 7 00110 2361 00 ldq pr7|72 argument_idx 006142 aa 7 00107 1161 00 cmpq pr7|71 n_arguments 006143 aa 000025 6010 04 tnz 21,ic 006170 006144 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006145 aa 773012 00 0040 desc9a -2550,32 001156 = 101040143157 006146 aa 6 00332 00 0040 desc9a pr6|218,32 006147 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006150 aa 6 00364 2521 00 spri2 pr6|244 006151 aa 6 00044 3701 20 epp4 pr6|36,* 006152 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 006153 aa 6 00366 2521 00 spri2 pr6|246 006154 aa 6 00332 3521 00 epp2 pr6|218 006155 aa 6 00370 2521 00 spri2 pr6|248 006156 aa 772455 3520 04 epp2 -2771,ic 000633 = 464000000000 006157 aa 6 00372 2521 00 spri2 pr6|250 006160 aa 772456 3520 04 epp2 -2770,ic 000636 = 404000000043 006161 aa 6 00374 2521 00 spri2 pr6|252 006162 aa 772443 3520 04 epp2 -2781,ic 000625 = 524000000037 006163 aa 6 00376 2521 00 spri2 pr6|254 006164 aa 6 00362 6211 00 eax1 pr6|242 006165 aa 014000 4310 07 fld 6144,dl 006166 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006167 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 813 in_command_line = "1"b; 006170 aa 400000 2350 03 lda 131072,du 006171 aa 6 00264 7551 00 sta pr6|180 in_command_line STATEMENT 1 ON LINE 814 end; 006172 aa 000322 7100 04 tra 210,ic 006514 STATEMENT 1 ON LINE 816 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 006173 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006174 aa 526000 2760 03 orq 175104,du 006175 aa 6 00400 7561 00 stq pr6|256 006176 aa 772371 2350 04 lda -2823,ic 000567 = 042136141042 006177 aa 6 00401 7551 00 sta pr6|257 006200 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006201 aa 6 00404 2521 00 spri2 pr6|260 006202 aa 6 00044 3701 20 epp4 pr6|36,* 006203 la 4 00022 3521 20 epp2 pr4|18,* error_table_$badopt 006204 aa 6 00406 2521 00 spri2 pr6|262 006205 aa 6 00401 3521 00 epp2 pr6|257 006206 aa 6 00410 2521 00 spri2 pr6|264 006207 aa 5 00000 3521 00 epp2 pr5|0 argument 006210 aa 6 00412 2521 00 spri2 pr6|266 006211 aa 772422 3520 04 epp2 -2798,ic 000633 = 464000000000 006212 aa 6 00414 2521 00 spri2 pr6|268 006213 aa 772423 3520 04 epp2 -2797,ic 000636 = 404000000043 006214 aa 6 00416 2521 00 spri2 pr6|270 006215 aa 772351 3520 04 epp2 -2839,ic 000566 = 524000000004 006216 aa 6 00420 2521 00 spri2 pr6|272 006217 aa 6 00400 3521 00 epp2 pr6|256 006220 aa 6 00422 2521 00 spri2 pr6|274 006221 aa 6 00402 6211 00 eax1 pr6|258 006222 aa 020000 4310 07 fld 8192,dl 006223 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006224 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 006225 aa 000267 7100 04 tra 183,ic 006514 STATEMENT 1 ON LINE 818 else /* not a control argument: depends on the operation */ if create_operation then do; 006226 aa 6 00262 2351 00 lda pr6|178 create_operation 006227 aa 000222 6000 04 tze 146,ic 006451 STATEMENT 1 ON LINE 821 if ^have_users_entry then do; 006230 aa 6 00265 2351 00 lda pr6|181 have_users_entry 006231 aa 000074 6010 04 tnz 60,ic 006325 STATEMENT 1 ON LINE 823 users_entry.entry = cv_entry_ (argument, null (), code); 006232 aa 6 00040 3735 20 epp7 pr6|32,* 006233 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006234 aa 526000 2760 03 orq 175104,du 006235 aa 6 00400 7561 00 stq pr6|256 006236 aa 772434 3714 24 epp5 -2788,ic* 006237 aa 6 00342 6515 00 spri5 pr6|226 006240 aa 7 00104 3521 20 epp2 pr7|68,* argument 006241 aa 6 00404 2521 00 spri2 pr6|260 006242 aa 6 00342 3521 00 epp2 pr6|226 006243 aa 6 00406 2521 00 spri2 pr6|262 006244 aa 7 00132 3521 00 epp2 pr7|90 code 006245 aa 6 00410 2521 00 spri2 pr6|264 006246 aa 7 00114 3521 20 epp2 pr7|76,* users_entry.entry 006247 aa 6 00412 2521 00 spri2 pr6|266 006250 aa 6 00400 3521 00 epp2 pr6|256 006251 aa 6 00414 2521 00 spri2 pr6|268 006252 aa 772361 3520 04 epp2 -2831,ic 000633 = 464000000000 006253 aa 6 00416 2521 00 spri2 pr6|270 006254 aa 772362 3520 04 epp2 -2830,ic 000636 = 404000000043 006255 aa 6 00420 2521 00 spri2 pr6|272 006256 aa 772357 3520 04 epp2 -2833,ic 000635 = 500000000000 006257 aa 6 00422 2521 00 spri2 pr6|274 006260 aa 6 00402 6211 00 eax1 pr6|258 006261 aa 020000 4310 07 fld 8192,dl 006262 aa 6 00044 3701 20 epp4 pr6|36,* 006263 la 4 00050 3521 20 epp2 pr4|40,* cv_entry_ 006264 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 824 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 006265 aa 6 00040 3735 20 epp7 pr6|32,* 006266 aa 7 00132 2361 00 ldq pr7|90 code 006267 aa 000033 6000 04 tze 27,ic 006322 006270 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006271 aa 526000 2760 03 orq 175104,du 006272 aa 6 00400 7561 00 stq pr6|256 006273 aa 772274 2350 04 lda -2884,ic 000567 = 042136141042 006274 aa 6 00401 7551 00 sta pr6|257 006275 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006276 aa 6 00404 2521 00 spri2 pr6|260 006277 aa 7 00132 3521 00 epp2 pr7|90 code 006300 aa 6 00406 2521 00 spri2 pr6|262 006301 aa 6 00401 3521 00 epp2 pr6|257 006302 aa 6 00410 2521 00 spri2 pr6|264 006303 aa 7 00104 3521 20 epp2 pr7|68,* argument 006304 aa 6 00412 2521 00 spri2 pr6|266 006305 aa 772326 3520 04 epp2 -2858,ic 000633 = 464000000000 006306 aa 6 00414 2521 00 spri2 pr6|268 006307 aa 772327 3520 04 epp2 -2857,ic 000636 = 404000000043 006310 aa 6 00416 2521 00 spri2 pr6|270 006311 aa 772255 3520 04 epp2 -2899,ic 000566 = 524000000004 006312 aa 6 00420 2521 00 spri2 pr6|272 006313 aa 6 00400 3521 00 epp2 pr6|256 006314 aa 6 00422 2521 00 spri2 pr6|274 006315 aa 6 00402 6211 00 eax1 pr6|258 006316 aa 020000 4310 07 fld 8192,dl 006317 aa 6 00044 3701 20 epp4 pr6|36,* 006320 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006321 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 826 have_users_entry = "1"b; 006322 aa 400000 2350 03 lda 131072,du 006323 aa 6 00265 7551 00 sta pr6|181 have_users_entry STATEMENT 1 ON LINE 827 end; 006324 aa 000170 7100 04 tra 120,ic 006514 STATEMENT 1 ON LINE 829 else if ^have_users_info_ptr then do; 006325 aa 6 00266 2351 00 lda pr6|182 have_users_info_ptr 006326 aa 000067 6010 04 tnz 55,ic 006415 STATEMENT 1 ON LINE 831 users_entry.info_ptr = cv_ptr_ (argument, code); 006327 aa 6 00040 3735 20 epp7 pr6|32,* 006330 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006331 aa 526000 2760 03 orq 175104,du 006332 aa 6 00400 7561 00 stq pr6|256 006333 aa 7 00104 3521 20 epp2 pr7|68,* argument 006334 aa 6 00346 2521 00 spri2 pr6|230 006335 aa 7 00132 3521 00 epp2 pr7|90 code 006336 aa 6 00350 2521 00 spri2 pr6|232 006337 aa 7 00114 3715 20 epp5 pr7|76,* users_entry_ptr 006340 aa 5 00004 3521 00 epp2 pr5|4 users_entry.info_ptr 006341 aa 6 00352 2521 00 spri2 pr6|234 006342 aa 6 00400 3521 00 epp2 pr6|256 006343 aa 6 00354 2521 00 spri2 pr6|236 006344 aa 772272 3520 04 epp2 -2886,ic 000636 = 404000000043 006345 aa 6 00356 2521 00 spri2 pr6|238 006346 aa 772265 3520 04 epp2 -2891,ic 000633 = 464000000000 006347 aa 6 00360 2521 00 spri2 pr6|240 006350 aa 6 00344 6211 00 eax1 pr6|228 006351 aa 014000 4310 07 fld 6144,dl 006352 aa 6 00044 3701 20 epp4 pr6|36,* 006353 la 4 00054 3521 20 epp2 pr4|44,* cv_ptr_ 006354 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 832 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 006355 aa 6 00040 3735 20 epp7 pr6|32,* 006356 aa 7 00132 2361 00 ldq pr7|90 code 006357 aa 000033 6000 04 tze 27,ic 006412 006360 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006361 aa 526000 2760 03 orq 175104,du 006362 aa 6 00400 7561 00 stq pr6|256 006363 aa 772204 2350 04 lda -2940,ic 000567 = 042136141042 006364 aa 6 00401 7551 00 sta pr6|257 006365 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006366 aa 6 00404 2521 00 spri2 pr6|260 006367 aa 7 00132 3521 00 epp2 pr7|90 code 006370 aa 6 00406 2521 00 spri2 pr6|262 006371 aa 6 00401 3521 00 epp2 pr6|257 006372 aa 6 00410 2521 00 spri2 pr6|264 006373 aa 7 00104 3521 20 epp2 pr7|68,* argument 006374 aa 6 00412 2521 00 spri2 pr6|266 006375 aa 772236 3520 04 epp2 -2914,ic 000633 = 464000000000 006376 aa 6 00414 2521 00 spri2 pr6|268 006377 aa 772237 3520 04 epp2 -2913,ic 000636 = 404000000043 006400 aa 6 00416 2521 00 spri2 pr6|270 006401 aa 772165 3520 04 epp2 -2955,ic 000566 = 524000000004 006402 aa 6 00420 2521 00 spri2 pr6|272 006403 aa 6 00400 3521 00 epp2 pr6|256 006404 aa 6 00422 2521 00 spri2 pr6|274 006405 aa 6 00402 6211 00 eax1 pr6|258 006406 aa 020000 4310 07 fld 8192,dl 006407 aa 6 00044 3701 20 epp4 pr6|36,* 006410 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006411 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 834 have_users_info_ptr = "1"b; 006412 aa 400000 2350 03 lda 131072,du 006413 aa 6 00266 7551 00 sta pr6|182 have_users_info_ptr STATEMENT 1 ON LINE 835 end; 006414 aa 000100 7100 04 tra 64,ic 006514 STATEMENT 1 ON LINE 837 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 006415 aa 6 00040 3735 20 epp7 pr6|32,* 006416 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006417 aa 526000 2760 03 orq 175104,du 006420 aa 6 00400 7561 00 stq pr6|256 006421 aa 772146 2350 04 lda -2970,ic 000567 = 042136141042 006422 aa 6 00401 7551 00 sta pr6|257 006423 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006424 aa 6 00404 2521 00 spri2 pr6|260 006425 aa 6 00044 3701 20 epp4 pr6|36,* 006426 la 4 00030 3521 20 epp2 pr4|24,* error_table_$too_many_args 006427 aa 6 00406 2521 00 spri2 pr6|262 006430 aa 6 00401 3521 00 epp2 pr6|257 006431 aa 6 00410 2521 00 spri2 pr6|264 006432 aa 7 00104 3521 20 epp2 pr7|68,* argument 006433 aa 6 00412 2521 00 spri2 pr6|266 006434 aa 772177 3520 04 epp2 -2945,ic 000633 = 464000000000 006435 aa 6 00414 2521 00 spri2 pr6|268 006436 aa 772200 3520 04 epp2 -2944,ic 000636 = 404000000043 006437 aa 6 00416 2521 00 spri2 pr6|270 006440 aa 772126 3520 04 epp2 -2986,ic 000566 = 524000000004 006441 aa 6 00420 2521 00 spri2 pr6|272 006442 aa 6 00400 3521 00 epp2 pr6|256 006443 aa 6 00422 2521 00 spri2 pr6|274 006444 aa 6 00402 6211 00 eax1 pr6|258 006445 aa 020000 4310 07 fld 8192,dl 006446 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006447 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 838 end; 006450 aa 000044 7100 04 tra 36,ic 006514 STATEMENT 1 ON LINE 840 else /*** if run_operation then */ do; STATEMENT 1 ON LINE 842 if length (command_line) > 0 then command_line = command_line || " "; 006451 aa 6 00040 3735 20 epp7 pr6|32,* 006452 aa 7 00116 2361 20 ldq pr7|78,* command_line 006453 aa 000016 6044 04 tmoz 14,ic 006471 006454 aa 6 00044 3701 20 epp4 pr6|36,* 006455 la 4 00032 2361 20 ldq pr4|26,* sys_info$max_seg_size 006456 aa 000002 7360 00 qls 2 006457 aa 000004 1760 07 sbq 4,dl 006460 aa 7 00116 3715 20 epp5 pr7|78,* command_line_ptr 006461 aa 6 00400 7561 00 stq pr6|256 006462 aa 5 00000 2361 00 ldq pr5|0 command_line 006463 aa 6 00400 1161 00 cmpq pr6|256 006464 aa 000005 6050 04 tpl 5,ic 006471 006465 aa 5 00000 0541 00 aos pr5|0 command_line 006466 aa 040 106 100 404 mlr (ic),(pr,ql),fill(040) 006467 aa 006654 00 0001 desc9a 3500,1 015342 = 040000000000 006470 aa 5 00001 00 0001 desc9a pr5|1,1 command_line STATEMENT 1 ON LINE 844 command_line = command_line || argument; 006471 aa 6 00044 3701 20 epp4 pr6|36,* 006472 la 4 00032 2361 20 ldq pr4|26,* sys_info$max_seg_size 006473 aa 000002 7360 00 qls 2 006474 aa 000004 1760 07 sbq 4,dl 006475 aa 7 00116 3715 20 epp5 pr7|78,* command_line_ptr 006476 aa 6 00400 7561 00 stq pr6|256 006477 aa 7 00104 3535 20 epp3 pr7|68,* argument_ptr 006500 aa 6 00400 2361 00 ldq pr6|256 006501 aa 5 00000 1761 00 sbq pr5|0 command_line 006502 aa 7 00106 1161 00 cmpq pr7|70 argument_lth 006503 aa 000002 6040 04 tmi 2,ic 006505 006504 aa 7 00106 2361 00 ldq pr7|70 argument_lth 006505 aa 5 00000 2351 00 lda pr5|0 command_line 006506 aa 5 00000 0561 00 asq pr5|0 command_line 006507 aa 040 145 100 540 mlr (pr,rl),(pr,rl,al),fill(040) 006510 aa 3 00000 00 0006 desc9a pr3|0,ql argument 006511 aa 5 00001 00 0006 desc9a pr5|1,ql command_line STATEMENT 1 ON LINE 845 in_command_line = "1"b; 006512 aa 400000 2350 03 lda 131072,du 006513 aa 6 00264 7551 00 sta pr6|180 in_command_line STATEMENT 1 ON LINE 846 end; STATEMENT 1 ON LINE 847 end; 006514 aa 6 00040 3735 20 epp7 pr6|32,* 006515 aa 7 00110 0541 00 aos pr7|72 argument_idx 006516 aa 776674 7100 04 tra -580,ic 005412 STATEMENT 1 ON LINE 849 if create_operation then do; 006517 aa 6 00262 2351 00 lda pr6|178 create_operation 006520 aa 000036 6000 04 tze 30,ic 006556 STATEMENT 1 ON LINE 851 if ^have_users_entry /* there must be an initial procedure */ then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "An initial procedure must be specified."); 006521 aa 6 00265 2351 00 lda pr6|181 have_users_entry 006522 aa 000025 6010 04 tnz 21,ic 006547 006523 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006524 aa 772655 00 0050 desc9a -2643,40 001400 = 101156040151 006525 aa 6 00362 00 0050 desc9a pr6|242,40 006526 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006527 aa 6 00346 2521 00 spri2 pr6|230 006530 aa 6 00044 3701 20 epp4 pr6|36,* 006531 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 006532 aa 6 00350 2521 00 spri2 pr6|232 006533 aa 6 00362 3521 00 epp2 pr6|242 006534 aa 6 00352 2521 00 spri2 pr6|234 006535 aa 772076 3520 04 epp2 -3010,ic 000633 = 464000000000 006536 aa 6 00354 2521 00 spri2 pr6|236 006537 aa 772077 3520 04 epp2 -3009,ic 000636 = 404000000043 006540 aa 6 00356 2521 00 spri2 pr6|238 006541 aa 772024 3520 04 epp2 -3052,ic 000565 = 524000000047 006542 aa 6 00360 2521 00 spri2 pr6|240 006543 aa 6 00344 6211 00 eax1 pr6|228 006544 aa 014000 4310 07 fld 6144,dl 006545 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006546 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 854 if ^have_users_info_ptr /* ... but its info_ptr is optional */ then users_entry.info_ptr = null (); 006547 aa 6 00266 2351 00 lda pr6|182 have_users_info_ptr 006550 aa 000034 6010 04 tnz 28,ic 006604 006551 aa 772121 2370 04 ldaq -2991,ic 000672 = 077777000043 000001000000 006552 aa 6 00040 3735 20 epp7 pr6|32,* 006553 aa 7 00114 3715 20 epp5 pr7|76,* users_entry_ptr 006554 aa 5 00004 7571 00 staq pr5|4 users_entry.info_ptr STATEMENT 1 ON LINE 856 end; 006555 aa 000027 7100 04 tra 23,ic 006604 STATEMENT 1 ON LINE 858 else /*** if run_operation then */ do; STATEMENT 1 ON LINE 860 if length (command_line) = 0 then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A command line to be executed."); 006556 aa 7 00116 2361 20 ldq pr7|78,* command_line 006557 aa 000025 6010 04 tnz 21,ic 006604 006560 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006561 aa 772366 00 0040 desc9a -2826,32 001146 = 101040143157 006562 aa 6 00322 00 0040 desc9a pr6|210,32 006563 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006564 aa 6 00346 2521 00 spri2 pr6|230 006565 aa 6 00044 3701 20 epp4 pr6|36,* 006566 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 006567 aa 6 00350 2521 00 spri2 pr6|232 006570 aa 6 00322 3521 00 epp2 pr6|210 006571 aa 6 00352 2521 00 spri2 pr6|234 006572 aa 772041 3520 04 epp2 -3039,ic 000633 = 464000000000 006573 aa 6 00354 2521 00 spri2 pr6|236 006574 aa 772042 3520 04 epp2 -3038,ic 000636 = 404000000043 006575 aa 6 00356 2521 00 spri2 pr6|238 006576 aa 771766 3520 04 epp2 -3082,ic 000564 = 524000000036 006577 aa 6 00360 2521 00 spri2 pr6|240 006600 aa 6 00344 6211 00 eax1 pr6|228 006601 aa 014000 4310 07 fld 6144,dl 006602 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006603 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 862 end; STATEMENT 1 ON LINE 864 if prefer_the_control_point_given & ^start_the_control_point then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, """-no_start"" and ""-^[not_^;^]preferred"".", ^prefer_the_control_point); 006604 aa 6 00272 2351 00 lda pr6|186 prefer_the_control_point_given 006605 aa 000041 6000 04 tze 33,ic 006646 006606 aa 6 00270 2351 00 lda pr6|184 start_the_control_point 006607 aa 400000 3150 03 cana 131072,du 006610 aa 000036 6010 04 tnz 30,ic 006646 006611 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006612 aa 772555 00 0050 desc9a -2707,40 001366 = 042055156157 006613 aa 6 00362 00 0050 desc9a pr6|242,40 006614 aa 6 00271 2351 00 lda pr6|185 prefer_the_control_point 006615 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 006616 aa 0 00002 6751 00 era pr0|2 = 400000000000 006617 aa 6 00400 7551 00 sta pr6|256 006620 aa 6 00040 3735 20 epp7 pr6|32,* 006621 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 006622 aa 6 00404 2521 00 spri2 pr6|260 006623 aa 6 00044 3701 20 epp4 pr6|36,* 006624 la 4 00024 3521 20 epp2 pr4|20,* error_table_$inconsistent 006625 aa 6 00406 2521 00 spri2 pr6|262 006626 aa 6 00362 3521 00 epp2 pr6|242 006627 aa 6 00410 2521 00 spri2 pr6|264 006630 aa 6 00400 3521 00 epp2 pr6|256 006631 aa 6 00412 2521 00 spri2 pr6|266 006632 aa 772001 3520 04 epp2 -3071,ic 000633 = 464000000000 006633 aa 6 00414 2521 00 spri2 pr6|268 006634 aa 772002 3520 04 epp2 -3070,ic 000636 = 404000000043 006635 aa 6 00416 2521 00 spri2 pr6|270 006636 aa 771727 3520 04 epp2 -3113,ic 000565 = 524000000047 006637 aa 6 00420 2521 00 spri2 pr6|272 006640 aa 771752 3520 04 epp2 -3094,ic 000612 = 514000000001 006641 aa 6 00422 2521 00 spri2 pr6|274 006642 aa 6 00402 6211 00 eax1 pr6|258 006643 aa 020000 4310 07 fld 8192,dl 006644 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 006645 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 868 if ccpi_header.comment = "" then do; 006646 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 006647 aa 6 00110 00 0100 desc9a pr6|72,64 ccpi_header.comment 006650 aa 006470 00 0000 desc9a 3384,0 015336 = 055141000000 006651 aa 000163 6010 04 tnz 115,ic 007034 STATEMENT 1 ON LINE 870 if create_operation then do; 006652 aa 6 00262 2351 00 lda pr6|178 create_operation 006653 aa 000146 6000 04 tze 102,ic 007021 STATEMENT 1 ON LINE 872 call hcs_$fs_get_path_name (codeptr (users_entry.entry), ((168)" "), (0), users_entry_ename, (0)); 006654 aa 6 00040 3735 20 epp7 pr6|32,* 006655 aa 7 00114 3521 20 epp2 pr7|76,* users_entry.entry 006656 aa 2 00000 3521 20 epp2 pr2|0,* users_entry.entry 006657 aa 6 00342 2521 00 spri2 pr6|226 006660 aa 040 100 100 400 mlr (),(pr),fill(040) 006661 aa 000000 00 0000 desc9a 0,0 006662 aa 6 00424 00 0250 desc9a pr6|276,168 006663 aa 6 00400 4501 00 stz pr6|256 006664 aa 6 00401 4501 00 stz pr6|257 006665 aa 6 00342 3521 00 epp2 pr6|226 006666 aa 6 00500 2521 00 spri2 pr6|320 006667 aa 6 00424 3521 00 epp2 pr6|276 006670 aa 6 00502 2521 00 spri2 pr6|322 006671 aa 6 00400 3521 00 epp2 pr6|256 006672 aa 6 00504 2521 00 spri2 pr6|324 006673 aa 6 00252 3521 00 epp2 pr6|170 users_entry_ename 006674 aa 6 00506 2521 00 spri2 pr6|326 006675 aa 6 00401 3521 00 epp2 pr6|257 006676 aa 6 00510 2521 00 spri2 pr6|328 006677 aa 771734 3520 04 epp2 -3108,ic 000633 = 464000000000 006700 aa 6 00512 2521 00 spri2 pr6|330 006701 aa 771662 3520 04 epp2 -3150,ic 000563 = 524000000250 006702 aa 6 00514 2521 00 spri2 pr6|332 006703 aa 771726 3520 04 epp2 -3114,ic 000631 = 404000000021 006704 aa 6 00516 2521 00 spri2 pr6|334 006705 aa 771722 3520 04 epp2 -3118,ic 000627 = 526000000040 006706 aa 6 00520 2521 00 spri2 pr6|336 006707 aa 771727 3520 04 epp2 -3113,ic 000636 = 404000000043 006710 aa 6 00522 2521 00 spri2 pr6|338 006711 aa 6 00476 6211 00 eax1 pr6|318 006712 aa 024000 4310 07 fld 10240,dl 006713 aa 6 00044 3701 20 epp4 pr6|36,* 006714 la 4 00066 3521 20 epp2 pr4|54,* hcs_$fs_get_path_name 006715 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 874 call get_entry_name_ (codeptr (users_entry.entry), users_entry_entrypoint_name, (0), ((8)" "), (0)); 006716 aa 6 00040 3735 20 epp7 pr6|32,* 006717 aa 7 00114 3521 20 epp2 pr7|76,* users_entry.entry 006720 aa 2 00000 3521 20 epp2 pr2|0,* users_entry.entry 006721 aa 6 00342 2521 00 spri2 pr6|226 006722 aa 6 00401 4501 00 stz pr6|257 006723 aa 006421 2350 04 lda 3345,ic 015344 = 040040040040 006724 aa 006420 2360 04 ldq 3344,ic 015344 = 040040040040 006725 aa 6 00524 7571 00 staq pr6|340 006726 aa 6 00400 4501 00 stz pr6|256 006727 aa 6 00342 3521 00 epp2 pr6|226 006730 aa 6 00500 2521 00 spri2 pr6|320 006731 aa 6 00152 3521 00 epp2 pr6|106 users_entry_entrypoint_name 006732 aa 6 00502 2521 00 spri2 pr6|322 006733 aa 6 00401 3521 00 epp2 pr6|257 006734 aa 6 00504 2521 00 spri2 pr6|324 006735 aa 6 00524 3521 00 epp2 pr6|340 006736 aa 6 00506 2521 00 spri2 pr6|326 006737 aa 6 00400 3521 00 epp2 pr6|256 006740 aa 6 00510 2521 00 spri2 pr6|328 006741 aa 771672 3520 04 epp2 -3142,ic 000633 = 464000000000 006742 aa 6 00512 2521 00 spri2 pr6|330 006743 aa 771617 3520 04 epp2 -3185,ic 000562 = 526000000400 006744 aa 6 00514 2521 00 spri2 pr6|332 006745 aa 771614 3520 04 epp2 -3188,ic 000561 = 404000000022 006746 aa 6 00516 2521 00 spri2 pr6|334 006747 aa 771611 3520 04 epp2 -3191,ic 000560 = 524000000010 006750 aa 6 00520 2521 00 spri2 pr6|336 006751 aa 771665 3520 04 epp2 -3147,ic 000636 = 404000000043 006752 aa 6 00522 2521 00 spri2 pr6|338 006753 aa 6 00476 6211 00 eax1 pr6|318 006754 aa 024000 4310 07 fld 10240,dl 006755 aa 6 00044 3701 20 epp4 pr6|36,* 006756 la 4 00062 3521 20 epp2 pr4|50,* get_entry_name_ 006757 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 876 ccpi_header.comment = rtrim (users_entry_ename) || "$" || users_entry_entrypoint_name; 006760 aa 000 000 165 500 tctr (pr) 006761 aa 6 00252 00 0040 desc9a pr6|170,32 users_entry_ename 006762 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 006763 aa 6 00056 0001 00 arg pr6|46 006764 aa 6 00056 2361 00 ldq pr6|46 006765 aa 0 00242 3761 00 anq pr0|162 = 000777777777 006766 aa 6 00400 7561 00 stq pr6|256 006767 aa 000040 2360 07 ldq 32,dl 006770 aa 6 00400 1761 00 sbq pr6|256 006771 aa 6 00400 7561 00 stq pr6|256 006772 aa 000001 0760 07 adq 1,dl 006773 aa 0 00551 7001 00 tsx0 pr0|361 alloc_char_temp 006774 aa 6 00400 2351 00 lda pr6|256 006775 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 006776 aa 6 00252 00 0005 desc9a pr6|170,al users_entry_ename 006777 aa 2 00000 00 0005 desc9a pr2|0,al 007000 aa 040 105 100 404 mlr (ic),(pr,al),fill(040) 007001 aa 006337 00 0001 desc9a 3295,1 015337 = 044000000000 007002 aa 2 00000 00 0001 desc9a pr2|0,1 007003 aa 6 00400 7561 00 stq pr6|256 007004 aa 000400 0760 07 adq 256,dl 007005 aa 6 00401 7561 00 stq pr6|257 007006 aa 0 00606 7001 00 tsx0 pr0|390 cat_realloc_chars 007007 aa 6 00400 2351 00 lda pr6|256 007010 aa 040 105 100 500 mlr (pr),(pr,al),fill(040) 007011 aa 6 00152 00 0400 desc9a pr6|106,256 users_entry_entrypoint_name 007012 aa 2 00000 00 0400 desc9a pr2|0,256 007013 aa 6 00401 2361 00 ldq pr6|257 007014 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 007015 aa 2 00000 00 0006 desc9a pr2|0,ql 007016 aa 6 00110 00 0100 desc9a pr6|72,64 ccpi_header.comment STATEMENT 1 ON LINE 877 end; 007017 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 007020 aa 000014 7100 04 tra 12,ic 007034 STATEMENT 1 ON LINE 878 else /*** if run_operation then */ ccpi_header.comment = before (command_line, WHITESPACE); 007021 aa 6 00040 3735 20 epp7 pr6|32,* 007022 aa 7 00116 2361 20 ldq pr7|78,* command_line 007023 aa 7 00116 3715 20 epp5 pr7|78,* command_line_ptr 007024 aa 5 00001 3521 00 epp2 pr5|1 command_line 007025 aa 0 01227 7001 00 tsx0 pr0|663 set_chars_eis 007026 aa 000005 2360 07 ldq 5,dl 007027 aa 771421 3520 04 epp2 -3311,ic 000450 = 012011040013 007030 aa 0 01424 7001 00 tsx0 pr0|788 index_before_cs 007031 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 007032 aa 5 00001 00 0006 desc9a pr5|1,ql command_line 007033 aa 6 00110 00 0100 desc9a pr6|72,64 ccpi_header.comment STATEMENT 1 ON LINE 880 end; STATEMENT 1 ON LINE 885 if ccpi_header.user_io_attach_desc_given then ccpi_user_io_attach_desc_length = atd_argument_lth; 007034 aa 6 00143 2351 00 lda pr6|99 ccpi_header.user_io_attach_desc_given 007035 aa 100000 3150 03 cana 32768,du 007036 aa 000005 6000 04 tze 5,ic 007043 007037 aa 6 00150 2361 00 ldq pr6|104 atd_argument_lth 007040 aa 6 00040 3735 20 epp7 pr6|32,* 007041 aa 7 00336 7561 00 stq pr7|222 ccpi_user_io_attach_desc_length 007042 aa 000004 7100 04 tra 4,ic 007046 STATEMENT 1 ON LINE 887 else ccpi_user_io_attach_desc_length = 1; 007043 aa 000001 2360 07 ldq 1,dl 007044 aa 6 00040 3735 20 epp7 pr6|32,* 007045 aa 7 00336 7561 00 stq pr7|222 ccpi_user_io_attach_desc_length STATEMENT 1 ON LINE 889 allocate create_control_point_info in (system_area) set (ccpi_ptr); 007046 aa 6 00040 3735 20 epp7 pr6|32,* 007047 aa 7 00336 2361 00 ldq pr7|222 ccpi_user_io_attach_desc_length 007050 aa 000200 0760 07 adq 128,dl 007051 aa 000003 0760 07 adq 3,dl 007052 aa 000002 7320 00 qrs 2 007053 aa 7 00112 3521 20 epp2 pr7|74,* system_area 007054 aa 0 01402 7001 00 tsx0 pr0|770 op_alloc_ 007055 aa 777771 7100 04 tra -7,ic 007046 007056 aa 6 00040 3735 20 epp7 pr6|32,* 007057 aa 7 00340 2521 00 spri2 pr7|224 ccpi_ptr 007060 aa 7 00336 2361 00 ldq pr7|222 ccpi_user_io_attach_desc_length 007061 aa 2 00037 7561 00 stq pr2|31 create_control_point_info.user_io_attach_desc_length STATEMENT 1 ON LINE 891 create_control_point_info.header = ccpi_header; 007062 aa 000 100 100 500 mlr (pr),(pr),fill(000) 007063 aa 6 00106 00 0200 desc9a pr6|70,128 ccpi_header 007064 aa 2 00000 00 0200 desc9a pr2|0,128 create_control_point_info.header STATEMENT 1 ON LINE 892 create_control_point_info.user_io_attach_desc_length = ccpi_user_io_attach_desc_length; 007065 aa 7 00340 3715 20 epp5 pr7|224,* ccpi_ptr 007066 aa 5 00037 7561 00 stq pr5|31 create_control_point_info.user_io_attach_desc_length STATEMENT 1 ON LINE 894 if create_control_point_info.user_io_attach_desc_given then create_control_point_info.user_io_attach_desc = atd_argument; 007067 aa 5 00035 2351 00 lda pr5|29 create_control_point_info.user_io_attach_desc_given 007070 aa 100000 3150 03 cana 32768,du 007071 aa 000006 6000 04 tze 6,ic 007077 007072 aa 6 00146 3535 20 epp3 pr6|102,* atd_argument_ptr 007073 aa 6 00150 2351 00 lda pr6|104 atd_argument_lth 007074 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 007075 aa 3 00000 00 0005 desc9a pr3|0,al atd_argument 007076 aa 5 00040 00 0006 desc9a pr5|32,ql create_control_point_info.user_io_attach_desc STATEMENT 1 ON LINE 897 call cpm_$create (ccpi_ptr, control_point_id, code); 007077 aa 7 00340 3521 00 epp2 pr7|224 ccpi_ptr 007100 aa 6 00334 2521 00 spri2 pr6|220 007101 aa 6 00151 3521 00 epp2 pr6|105 control_point_id 007102 aa 6 00336 2521 00 spri2 pr6|222 007103 aa 7 00132 3521 00 epp2 pr7|90 code 007104 aa 6 00340 2521 00 spri2 pr6|224 007105 aa 6 00332 6211 00 eax1 pr6|218 007106 aa 014000 4310 07 fld 6144,dl 007107 aa 6 00044 3701 20 epp4 pr6|36,* 007110 la 4 00136 3521 20 epp2 pr4|94,* cpm_$create 007111 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 898 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Creating the control point."); 007112 aa 6 00040 3735 20 epp7 pr6|32,* 007113 aa 7 00132 2361 00 ldq pr7|90 code 007114 aa 000025 6000 04 tze 21,ic 007141 007115 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007116 aa 771746 00 0034 desc9a -3098,28 001063 = 103162145141 007117 aa 6 00322 00 0034 desc9a pr6|210,28 007120 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007121 aa 6 00346 2521 00 spri2 pr6|230 007122 aa 7 00132 3521 00 epp2 pr7|90 code 007123 aa 6 00350 2521 00 spri2 pr6|232 007124 aa 6 00322 3521 00 epp2 pr6|210 007125 aa 6 00352 2521 00 spri2 pr6|234 007126 aa 771505 3520 04 epp2 -3259,ic 000633 = 464000000000 007127 aa 6 00354 2521 00 spri2 pr6|236 007130 aa 771506 3520 04 epp2 -3258,ic 000636 = 404000000043 007131 aa 6 00356 2521 00 spri2 pr6|238 007132 aa 771442 3520 04 epp2 -3294,ic 000574 = 524000000033 007133 aa 6 00360 2521 00 spri2 pr6|240 007134 aa 6 00344 6211 00 eax1 pr6|228 007135 aa 014000 4310 07 fld 6144,dl 007136 aa 6 00044 3701 20 epp4 pr6|36,* 007137 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 007140 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 901 revert cleanup; 007141 aa 6 00300 4501 00 stz pr6|192 STATEMENT 1 ON LINE 903 free create_control_point_info in (system_area); 007142 aa 6 00040 3735 20 epp7 pr6|32,* 007143 aa 7 00340 3715 20 epp5 pr7|224,* ccpi_ptr 007144 aa 5 00037 2361 00 ldq pr5|31 create_control_point_info.user_io_attach_desc_length 007145 aa 000200 0760 07 adq 128,dl 007146 aa 000003 0760 07 adq 3,dl 007147 aa 000002 7320 00 qrs 2 007150 aa 7 00340 3715 00 epp5 pr7|224 ccpi_ptr 007151 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 905 if start_the_control_point then do; 007152 aa 6 00270 2351 00 lda pr6|184 start_the_control_point 007153 aa 400000 3150 03 cana 131072,du 007154 aa 000116 6000 04 tze 78,ic 007272 STATEMENT 1 ON LINE 907 call cpm_$start (control_point_id, code); 007155 aa 6 00151 3521 00 epp2 pr6|105 control_point_id 007156 aa 6 00334 2521 00 spri2 pr6|220 007157 aa 6 00040 3735 20 epp7 pr6|32,* 007160 aa 7 00132 3521 00 epp2 pr7|90 code 007161 aa 6 00336 2521 00 spri2 pr6|222 007162 aa 6 00332 6211 00 eax1 pr6|218 007163 aa 010000 4310 07 fld 4096,dl 007164 aa 6 00044 3701 20 epp4 pr6|36,* 007165 la 4 00142 3521 20 epp2 pr4|98,* cpm_$start 007166 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 908 if code = 0 then /* it started: mark it preferred if requested */ if prefer_the_control_point then do; 007167 aa 6 00040 3735 20 epp7 pr6|32,* 007170 aa 7 00132 2361 00 ldq pr7|90 code 007171 aa 000051 6010 04 tnz 41,ic 007242 007172 aa 6 00271 2351 00 lda pr6|185 prefer_the_control_point 007173 aa 400000 3150 03 cana 131072,du 007174 aa 000076 6000 04 tze 62,ic 007272 STATEMENT 1 ON LINE 912 call cpm_$set_preferred_control_point (control_point_id, code); 007175 aa 6 00151 3521 00 epp2 pr6|105 control_point_id 007176 aa 6 00324 2521 00 spri2 pr6|212 007177 aa 7 00132 3521 00 epp2 pr7|90 code 007200 aa 6 00326 2521 00 spri2 pr6|214 007201 aa 6 00322 6211 00 eax1 pr6|210 007202 aa 010000 4310 07 fld 4096,dl 007203 aa 6 00044 3701 20 epp4 pr6|36,* 007204 la 4 00166 3521 20 epp2 pr4|118,* cpm_$set_preferred_control_point 007205 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 913 if code ^= 0 then call ssu_$print_message (sci_ptr, code, "Trying to make the control point ^12.3b preferred.", control_point_id); 007206 aa 6 00040 3735 20 epp7 pr6|32,* 007207 aa 7 00132 2361 00 ldq pr7|90 code 007210 aa 000062 6000 04 tze 50,ic 007272 007211 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007212 aa 772442 00 0064 desc9a -2782,52 001653 = 124162171151 007213 aa 6 00362 00 0064 desc9a pr6|242,52 007214 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007215 aa 6 00404 2521 00 spri2 pr6|260 007216 aa 7 00132 3521 00 epp2 pr7|90 code 007217 aa 6 00406 2521 00 spri2 pr6|262 007220 aa 6 00362 3521 00 epp2 pr6|242 007221 aa 6 00410 2521 00 spri2 pr6|264 007222 aa 6 00151 3521 00 epp2 pr6|105 control_point_id 007223 aa 6 00412 2521 00 spri2 pr6|266 007224 aa 771407 3520 04 epp2 -3321,ic 000633 = 464000000000 007225 aa 6 00414 2521 00 spri2 pr6|268 007226 aa 771410 3520 04 epp2 -3320,ic 000636 = 404000000043 007227 aa 6 00416 2521 00 spri2 pr6|270 007230 aa 771367 3520 04 epp2 -3337,ic 000617 = 524000000062 007231 aa 6 00420 2521 00 spri2 pr6|272 007232 aa 771402 3520 04 epp2 -3326,ic 000634 = 514000000044 007233 aa 6 00422 2521 00 spri2 pr6|274 007234 aa 6 00402 6211 00 eax1 pr6|258 007235 aa 020000 4310 07 fld 8192,dl 007236 aa 6 00044 3701 20 epp4 pr6|36,* 007237 la 4 00122 3521 20 epp2 pr4|82,* ssu_$print_message 007240 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 916 end; STATEMENT 1 ON LINE 917 else ; 007241 aa 000031 7100 04 tra 25,ic 007272 STATEMENT 1 ON LINE 918 else call ssu_$print_message (sci_ptr, code, "Trying to start the control point ^12.3b.", control_point_id); 007242 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007243 aa 772224 00 0054 desc9a -2924,44 001466 = 124162171151 007244 aa 6 00344 00 0054 desc9a pr6|228,44 007245 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007246 aa 6 00404 2521 00 spri2 pr6|260 007247 aa 7 00132 3521 00 epp2 pr7|90 code 007250 aa 6 00406 2521 00 spri2 pr6|262 007251 aa 6 00344 3521 00 epp2 pr6|228 007252 aa 6 00410 2521 00 spri2 pr6|264 007253 aa 6 00151 3521 00 epp2 pr6|105 control_point_id 007254 aa 6 00412 2521 00 spri2 pr6|266 007255 aa 771356 3520 04 epp2 -3346,ic 000633 = 464000000000 007256 aa 6 00414 2521 00 spri2 pr6|268 007257 aa 771357 3520 04 epp2 -3345,ic 000636 = 404000000043 007260 aa 6 00416 2521 00 spri2 pr6|270 007261 aa 771276 3520 04 epp2 -3394,ic 000557 = 524000000051 007262 aa 6 00420 2521 00 spri2 pr6|272 007263 aa 771351 3520 04 epp2 -3351,ic 000634 = 514000000044 007264 aa 6 00422 2521 00 spri2 pr6|274 007265 aa 6 00402 6211 00 eax1 pr6|258 007266 aa 020000 4310 07 fld 8192,dl 007267 aa 6 00044 3701 20 epp4 pr6|36,* 007270 la 4 00122 3521 20 epp2 pr4|82,* ssu_$print_message 007271 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 920 end; STATEMENT 1 ON LINE 922 if display_the_id then call ioa_ ("Control point ^12.3b created^[^[, started, and marked preferred^; and started^]^].", control_point_id, start_the_control_point, prefer_the_control_point); 007272 aa 6 00267 2351 00 lda pr6|183 display_the_id 007273 aa 000030 6000 04 tze 24,ic 007323 007274 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007275 aa 772612 00 0124 desc9a -2678,84 002106 = 103157156164 007276 aa 6 00476 00 0124 desc9a pr6|318,84 007277 aa 6 00476 3521 00 epp2 pr6|318 007300 aa 6 00404 2521 00 spri2 pr6|260 007301 aa 6 00151 3521 00 epp2 pr6|105 control_point_id 007302 aa 6 00406 2521 00 spri2 pr6|262 007303 aa 6 00270 3521 00 epp2 pr6|184 start_the_control_point 007304 aa 6 00410 2521 00 spri2 pr6|264 007305 aa 6 00271 3521 00 epp2 pr6|185 prefer_the_control_point 007306 aa 6 00412 2521 00 spri2 pr6|266 007307 aa 771247 3520 04 epp2 -3417,ic 000556 = 524000000122 007310 aa 6 00414 2521 00 spri2 pr6|268 007311 aa 771323 3520 04 epp2 -3373,ic 000634 = 514000000044 007312 aa 6 00416 2521 00 spri2 pr6|270 007313 aa 771277 3520 04 epp2 -3393,ic 000612 = 514000000001 007314 aa 6 00420 2521 00 spri2 pr6|272 007315 aa 6 00422 2521 00 spri2 pr6|274 007316 aa 6 00402 6211 00 eax1 pr6|258 007317 aa 020000 4310 07 fld 8192,dl 007320 aa 6 00044 3701 20 epp4 pr6|36,* 007321 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007322 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 926 return; 007323 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 928 end create_control_point; END PROCEDURE create_control_point BEGIN PROCEDURE destroy ENTRY TO destroy STATEMENT 1 ON LINE 932 destroy: procedure (); 007324 da 001221200000 007325 aa 000200 6270 00 eax7 128 007326 aa 7 00034 3521 20 epp2 pr7|28,* 007327 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 007330 aa 000000000000 007331 aa 000000000000 STATEMENT 1 ON LINE 935 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 007332 aa 6 00040 3735 20 epp7 pr6|32,* 007333 aa 7 00107 2361 00 ldq pr7|71 n_arguments 007334 aa 000001 1160 07 cmpq 1,dl 007335 aa 000014 6000 04 tze 12,ic 007351 007336 aa 111104 2350 03 lda 37444,du 007337 aa 6 00100 7551 00 sta pr6|64 007340 aa 6 00100 3521 00 epp2 pr6|64 007341 aa 6 00104 2521 00 spri2 pr6|68 007342 aa 771213 3520 04 epp2 -3445,ic 000555 = 524000000002 007343 aa 6 00110 2521 00 spri2 pr6|72 007344 aa 000001 7270 07 lxl7 1,dl 007345 aa 6 00102 6211 00 eax1 pr6|66 007346 aa 004000 4310 07 fld 2048,dl 007347 aa 774466 3520 04 epp2 -1738,ic 004035 = 000160627000 007350 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 938 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 007351 aa 000001 2360 07 ldq 1,dl 007352 aa 6 00100 7561 00 stq pr6|64 007353 aa 6 00040 3735 20 epp7 pr6|32,* 007354 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007355 aa 6 00114 2521 00 spri2 pr6|76 007356 aa 6 00100 3521 00 epp2 pr6|64 007357 aa 6 00116 2521 00 spri2 pr6|78 007360 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 007361 aa 6 00120 2521 00 spri2 pr6|80 007362 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 007363 aa 6 00122 2521 00 spri2 pr6|82 007364 aa 6 00112 6211 00 eax1 pr6|74 007365 aa 020000 4310 07 fld 8192,dl 007366 aa 6 00044 3701 20 epp4 pr6|36,* 007367 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 007370 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 940 call cv_string_to_control_point_id (); 007371 aa 000001 7270 07 lxl7 1,dl 007372 aa 6 00056 6211 00 eax1 pr6|46 007373 aa 000000 4310 07 fld 0,dl 007374 aa 774744 3520 04 epp2 -1564,ic 004340 = 000220627000 007375 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 942 call cpm_$destroy (control_point_data.id, code); 007376 aa 6 00040 3735 20 epp7 pr6|32,* 007377 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007400 aa 6 00104 2521 00 spri2 pr6|68 007401 aa 7 00132 3521 00 epp2 pr7|90 code 007402 aa 6 00106 2521 00 spri2 pr6|70 007403 aa 6 00102 6211 00 eax1 pr6|66 007404 aa 010000 4310 07 fld 4096,dl 007405 aa 6 00044 3701 20 epp4 pr6|36,* 007406 la 4 00140 3521 20 epp2 pr4|96,* cpm_$destroy 007407 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 943 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to destroy the control point ^12.3b.", control_point_data.id); 007410 aa 6 00040 3735 20 epp7 pr6|32,* 007411 aa 7 00132 2361 00 ldq pr7|90 code 007412 aa 000031 6000 04 tze 25,ic 007443 007413 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007414 aa 772040 00 0054 desc9a -3040,44 001453 = 124162171151 007415 aa 6 00124 00 0054 desc9a pr6|84,44 007416 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007417 aa 6 00142 2521 00 spri2 pr6|98 007420 aa 7 00132 3521 00 epp2 pr7|90 code 007421 aa 6 00144 2521 00 spri2 pr6|100 007422 aa 6 00124 3521 00 epp2 pr6|84 007423 aa 6 00146 2521 00 spri2 pr6|102 007424 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007425 aa 6 00150 2521 00 spri2 pr6|104 007426 aa 771205 3520 04 epp2 -3451,ic 000633 = 464000000000 007427 aa 6 00152 2521 00 spri2 pr6|106 007430 aa 771206 3520 04 epp2 -3450,ic 000636 = 404000000043 007431 aa 6 00154 2521 00 spri2 pr6|108 007432 aa 771122 3520 04 epp2 -3502,ic 000554 = 524000000053 007433 aa 6 00156 2521 00 spri2 pr6|110 007434 aa 771200 3520 04 epp2 -3456,ic 000634 = 514000000044 007435 aa 6 00160 2521 00 spri2 pr6|112 007436 aa 6 00140 6211 00 eax1 pr6|96 007437 aa 020000 4310 07 fld 8192,dl 007440 aa 6 00044 3701 20 epp4 pr6|36,* 007441 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 007442 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 947 return; 007443 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 949 end destroy; END PROCEDURE destroy BEGIN PROCEDURE start ENTRY TO start STATEMENT 1 ON LINE 955 start: procedure (); 007444 da 001224200000 007445 aa 000200 6270 00 eax7 128 007446 aa 7 00034 3521 20 epp2 pr7|28,* 007447 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 007450 aa 000000000000 007451 aa 000000000000 STATEMENT 1 ON LINE 958 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 007452 aa 6 00040 3735 20 epp7 pr6|32,* 007453 aa 7 00107 2361 00 ldq pr7|71 n_arguments 007454 aa 000001 1160 07 cmpq 1,dl 007455 aa 000014 6000 04 tze 12,ic 007471 007456 aa 111104 2350 03 lda 37444,du 007457 aa 6 00100 7551 00 sta pr6|64 007460 aa 6 00100 3521 00 epp2 pr6|64 007461 aa 6 00104 2521 00 spri2 pr6|68 007462 aa 771073 3520 04 epp2 -3525,ic 000555 = 524000000002 007463 aa 6 00110 2521 00 spri2 pr6|72 007464 aa 000001 7270 07 lxl7 1,dl 007465 aa 6 00102 6211 00 eax1 pr6|66 007466 aa 004000 4310 07 fld 2048,dl 007467 aa 774346 3520 04 epp2 -1818,ic 004035 = 000160627000 007470 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 961 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 007471 aa 000001 2360 07 ldq 1,dl 007472 aa 6 00100 7561 00 stq pr6|64 007473 aa 6 00040 3735 20 epp7 pr6|32,* 007474 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007475 aa 6 00114 2521 00 spri2 pr6|76 007476 aa 6 00100 3521 00 epp2 pr6|64 007477 aa 6 00116 2521 00 spri2 pr6|78 007500 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 007501 aa 6 00120 2521 00 spri2 pr6|80 007502 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 007503 aa 6 00122 2521 00 spri2 pr6|82 007504 aa 6 00112 6211 00 eax1 pr6|74 007505 aa 020000 4310 07 fld 8192,dl 007506 aa 6 00044 3701 20 epp4 pr6|36,* 007507 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 007510 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 963 call cv_string_to_control_point_id (); 007511 aa 000001 7270 07 lxl7 1,dl 007512 aa 6 00056 6211 00 eax1 pr6|46 007513 aa 000000 4310 07 fld 0,dl 007514 aa 774624 3520 04 epp2 -1644,ic 004340 = 000220627000 007515 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 965 call cpm_$start (control_point_data.id, code); 007516 aa 6 00040 3735 20 epp7 pr6|32,* 007517 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007520 aa 6 00104 2521 00 spri2 pr6|68 007521 aa 7 00132 3521 00 epp2 pr7|90 code 007522 aa 6 00106 2521 00 spri2 pr6|70 007523 aa 6 00102 6211 00 eax1 pr6|66 007524 aa 010000 4310 07 fld 4096,dl 007525 aa 6 00044 3701 20 epp4 pr6|36,* 007526 la 4 00142 3521 20 epp2 pr4|98,* cpm_$start 007527 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 966 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to start the control point ^12.3b.", control_point_data.id); 007530 aa 6 00040 3735 20 epp7 pr6|32,* 007531 aa 7 00132 2361 00 ldq pr7|90 code 007532 aa 000031 6000 04 tze 25,ic 007563 007533 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007534 aa 771733 00 0054 desc9a -3109,44 001466 = 124162171151 007535 aa 6 00124 00 0054 desc9a pr6|84,44 007536 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007537 aa 6 00142 2521 00 spri2 pr6|98 007540 aa 7 00132 3521 00 epp2 pr7|90 code 007541 aa 6 00144 2521 00 spri2 pr6|100 007542 aa 6 00124 3521 00 epp2 pr6|84 007543 aa 6 00146 2521 00 spri2 pr6|102 007544 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007545 aa 6 00150 2521 00 spri2 pr6|104 007546 aa 771065 3520 04 epp2 -3531,ic 000633 = 464000000000 007547 aa 6 00152 2521 00 spri2 pr6|106 007550 aa 771066 3520 04 epp2 -3530,ic 000636 = 404000000043 007551 aa 6 00154 2521 00 spri2 pr6|108 007552 aa 771005 3520 04 epp2 -3579,ic 000557 = 524000000051 007553 aa 6 00156 2521 00 spri2 pr6|110 007554 aa 771060 3520 04 epp2 -3536,ic 000634 = 514000000044 007555 aa 6 00160 2521 00 spri2 pr6|112 007556 aa 6 00140 6211 00 eax1 pr6|96 007557 aa 020000 4310 07 fld 8192,dl 007560 aa 6 00044 3701 20 epp4 pr6|36,* 007561 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 007562 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 970 return; 007563 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 972 end start; END PROCEDURE start BEGIN PROCEDURE wakeup ENTRY TO wakeup STATEMENT 1 ON LINE 976 wakeup: procedure (); 007564 da 001227200000 007565 aa 000200 6270 00 eax7 128 007566 aa 7 00034 3521 20 epp2 pr7|28,* 007567 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 007570 aa 000000000000 007571 aa 000000000000 STATEMENT 1 ON LINE 979 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 007572 aa 6 00040 3735 20 epp7 pr6|32,* 007573 aa 7 00107 2361 00 ldq pr7|71 n_arguments 007574 aa 000001 1160 07 cmpq 1,dl 007575 aa 000014 6000 04 tze 12,ic 007611 007576 aa 111104 2350 03 lda 37444,du 007577 aa 6 00100 7551 00 sta pr6|64 007600 aa 6 00100 3521 00 epp2 pr6|64 007601 aa 6 00104 2521 00 spri2 pr6|68 007602 aa 770753 3520 04 epp2 -3605,ic 000555 = 524000000002 007603 aa 6 00110 2521 00 spri2 pr6|72 007604 aa 000001 7270 07 lxl7 1,dl 007605 aa 6 00102 6211 00 eax1 pr6|66 007606 aa 004000 4310 07 fld 2048,dl 007607 aa 774226 3520 04 epp2 -1898,ic 004035 = 000160627000 007610 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 982 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 007611 aa 000001 2360 07 ldq 1,dl 007612 aa 6 00100 7561 00 stq pr6|64 007613 aa 6 00040 3735 20 epp7 pr6|32,* 007614 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007615 aa 6 00114 2521 00 spri2 pr6|76 007616 aa 6 00100 3521 00 epp2 pr6|64 007617 aa 6 00116 2521 00 spri2 pr6|78 007620 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 007621 aa 6 00120 2521 00 spri2 pr6|80 007622 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 007623 aa 6 00122 2521 00 spri2 pr6|82 007624 aa 6 00112 6211 00 eax1 pr6|74 007625 aa 020000 4310 07 fld 8192,dl 007626 aa 6 00044 3701 20 epp4 pr6|36,* 007627 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 007630 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 984 call cv_string_to_control_point_id (); 007631 aa 000001 7270 07 lxl7 1,dl 007632 aa 6 00056 6211 00 eax1 pr6|46 007633 aa 000000 4310 07 fld 0,dl 007634 aa 774504 3520 04 epp2 -1724,ic 004340 = 000220627000 007635 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 986 call cpm_$wakeup (control_point_data.id, code); 007636 aa 6 00040 3735 20 epp7 pr6|32,* 007637 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007640 aa 6 00104 2521 00 spri2 pr6|68 007641 aa 7 00132 3521 00 epp2 pr7|90 code 007642 aa 6 00106 2521 00 spri2 pr6|70 007643 aa 6 00102 6211 00 eax1 pr6|66 007644 aa 010000 4310 07 fld 4096,dl 007645 aa 6 00044 3701 20 epp4 pr6|36,* 007646 la 4 00144 3521 20 epp2 pr4|100,* cpm_$wakeup 007647 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 987 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to wakeup the control point ^12.3b.", control_point_data.id); 007650 aa 6 00040 3735 20 epp7 pr6|32,* 007651 aa 7 00132 2361 00 ldq pr7|90 code 007652 aa 000031 6000 04 tze 25,ic 007703 007653 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007654 aa 771565 00 0054 desc9a -3211,44 001440 = 124162171151 007655 aa 6 00124 00 0054 desc9a pr6|84,44 007656 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007657 aa 6 00142 2521 00 spri2 pr6|98 007660 aa 7 00132 3521 00 epp2 pr7|90 code 007661 aa 6 00144 2521 00 spri2 pr6|100 007662 aa 6 00124 3521 00 epp2 pr6|84 007663 aa 6 00146 2521 00 spri2 pr6|102 007664 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007665 aa 6 00150 2521 00 spri2 pr6|104 007666 aa 770745 3520 04 epp2 -3611,ic 000633 = 464000000000 007667 aa 6 00152 2521 00 spri2 pr6|106 007670 aa 770746 3520 04 epp2 -3610,ic 000636 = 404000000043 007671 aa 6 00154 2521 00 spri2 pr6|108 007672 aa 770661 3520 04 epp2 -3663,ic 000553 = 524000000052 007673 aa 6 00156 2521 00 spri2 pr6|110 007674 aa 770740 3520 04 epp2 -3616,ic 000634 = 514000000044 007675 aa 6 00160 2521 00 spri2 pr6|112 007676 aa 6 00140 6211 00 eax1 pr6|96 007677 aa 020000 4310 07 fld 8192,dl 007700 aa 6 00044 3701 20 epp4 pr6|36,* 007701 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 007702 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 991 return; 007703 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 993 end wakeup; END PROCEDURE wakeup BEGIN PROCEDURE stop ENTRY TO stop STATEMENT 1 ON LINE 999 stop: procedure (); 007704 da 001232200000 007705 aa 000160 6270 00 eax7 112 007706 aa 7 00034 3521 20 epp2 pr7|28,* 007707 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 007710 aa 000000000000 007711 aa 000000000000 STATEMENT 1 ON LINE 1002 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 007712 aa 6 00040 3735 20 epp7 pr6|32,* 007713 aa 7 00107 2361 00 ldq pr7|71 n_arguments 007714 aa 000001 1160 07 cmpq 1,dl 007715 aa 000014 6000 04 tze 12,ic 007731 007716 aa 111104 2350 03 lda 37444,du 007717 aa 6 00100 7551 00 sta pr6|64 007720 aa 6 00100 3521 00 epp2 pr6|64 007721 aa 6 00104 2521 00 spri2 pr6|68 007722 aa 770633 3520 04 epp2 -3685,ic 000555 = 524000000002 007723 aa 6 00110 2521 00 spri2 pr6|72 007724 aa 000001 7270 07 lxl7 1,dl 007725 aa 6 00102 6211 00 eax1 pr6|66 007726 aa 004000 4310 07 fld 2048,dl 007727 aa 774106 3520 04 epp2 -1978,ic 004035 = 000160627000 007730 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1005 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 007731 aa 000001 2360 07 ldq 1,dl 007732 aa 6 00100 7561 00 stq pr6|64 007733 aa 6 00040 3735 20 epp7 pr6|32,* 007734 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007735 aa 6 00114 2521 00 spri2 pr6|76 007736 aa 6 00100 3521 00 epp2 pr6|64 007737 aa 6 00116 2521 00 spri2 pr6|78 007740 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 007741 aa 6 00120 2521 00 spri2 pr6|80 007742 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 007743 aa 6 00122 2521 00 spri2 pr6|82 007744 aa 6 00112 6211 00 eax1 pr6|74 007745 aa 020000 4310 07 fld 8192,dl 007746 aa 6 00044 3701 20 epp4 pr6|36,* 007747 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 007750 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1007 call cv_string_to_control_point_id (); 007751 aa 000001 7270 07 lxl7 1,dl 007752 aa 6 00056 6211 00 eax1 pr6|46 007753 aa 000000 4310 07 fld 0,dl 007754 aa 774364 3520 04 epp2 -1804,ic 004340 = 000220627000 007755 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1009 call cpm_$stop (control_point_data.id, code); 007756 aa 6 00040 3735 20 epp7 pr6|32,* 007757 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 007760 aa 6 00104 2521 00 spri2 pr6|68 007761 aa 7 00132 3521 00 epp2 pr7|90 code 007762 aa 6 00106 2521 00 spri2 pr6|70 007763 aa 6 00102 6211 00 eax1 pr6|66 007764 aa 010000 4310 07 fld 4096,dl 007765 aa 6 00044 3701 20 epp4 pr6|36,* 007766 la 4 00146 3521 20 epp2 pr4|102,* cpm_$stop 007767 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1010 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to stop the control point ^12.3b.", control_point_data.id); 007770 aa 6 00040 3735 20 epp7 pr6|32,* 007771 aa 7 00132 2361 00 ldq pr7|90 code 007772 aa 000031 6000 04 tze 25,ic 010023 007773 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007774 aa 771361 00 0050 desc9a -3343,40 001354 = 124162171151 007775 aa 6 00112 00 0050 desc9a pr6|74,40 007776 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 007777 aa 6 00126 2521 00 spri2 pr6|86 010000 aa 7 00132 3521 00 epp2 pr7|90 code 010001 aa 6 00130 2521 00 spri2 pr6|88 010002 aa 6 00112 3521 00 epp2 pr6|74 010003 aa 6 00132 2521 00 spri2 pr6|90 010004 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 010005 aa 6 00134 2521 00 spri2 pr6|92 010006 aa 770625 3520 04 epp2 -3691,ic 000633 = 464000000000 010007 aa 6 00136 2521 00 spri2 pr6|94 010010 aa 770626 3520 04 epp2 -3690,ic 000636 = 404000000043 010011 aa 6 00140 2521 00 spri2 pr6|96 010012 aa 770540 3520 04 epp2 -3744,ic 000552 = 524000000050 010013 aa 6 00142 2521 00 spri2 pr6|98 010014 aa 770620 3520 04 epp2 -3696,ic 000634 = 514000000044 010015 aa 6 00144 2521 00 spri2 pr6|100 010016 aa 6 00124 6211 00 eax1 pr6|84 010017 aa 020000 4310 07 fld 8192,dl 010020 aa 6 00044 3701 20 epp4 pr6|36,* 010021 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010022 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1014 return; 010023 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1016 end stop; END PROCEDURE stop BEGIN PROCEDURE select ENTRY TO select STATEMENT 1 ON LINE 1021 select: procedure (); 010024 da 001237200000 010025 aa 000220 6270 00 eax7 144 010026 aa 7 00034 3521 20 epp2 pr7|28,* 010027 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 010030 aa 000000000000 010031 aa 000000000000 STATEMENT 1 ON LINE 1024 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 010032 aa 6 00040 3735 20 epp7 pr6|32,* 010033 aa 7 00107 2361 00 ldq pr7|71 n_arguments 010034 aa 000001 1160 07 cmpq 1,dl 010035 aa 000014 6000 04 tze 12,ic 010051 010036 aa 111104 2350 03 lda 37444,du 010037 aa 6 00100 7551 00 sta pr6|64 010040 aa 6 00100 3521 00 epp2 pr6|64 010041 aa 6 00104 2521 00 spri2 pr6|68 010042 aa 770513 3520 04 epp2 -3765,ic 000555 = 524000000002 010043 aa 6 00110 2521 00 spri2 pr6|72 010044 aa 000001 7270 07 lxl7 1,dl 010045 aa 6 00102 6211 00 eax1 pr6|66 010046 aa 004000 4310 07 fld 2048,dl 010047 aa 773766 3520 04 epp2 -2058,ic 004035 = 000160627000 010050 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1027 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 010051 aa 000001 2360 07 ldq 1,dl 010052 aa 6 00100 7561 00 stq pr6|64 010053 aa 6 00040 3735 20 epp7 pr6|32,* 010054 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010055 aa 6 00114 2521 00 spri2 pr6|76 010056 aa 6 00100 3521 00 epp2 pr6|64 010057 aa 6 00116 2521 00 spri2 pr6|78 010060 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 010061 aa 6 00120 2521 00 spri2 pr6|80 010062 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 010063 aa 6 00122 2521 00 spri2 pr6|82 010064 aa 6 00112 6211 00 eax1 pr6|74 010065 aa 020000 4310 07 fld 8192,dl 010066 aa 6 00044 3701 20 epp4 pr6|36,* 010067 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 010070 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1029 call cv_string_to_control_point_id (); 010071 aa 000001 7270 07 lxl7 1,dl 010072 aa 6 00056 6211 00 eax1 pr6|46 010073 aa 000000 4310 07 fld 0,dl 010074 aa 774244 3520 04 epp2 -1884,ic 004340 = 000220627000 010075 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1031 call cpm_$start (control_point_data.id, code); 010076 aa 6 00040 3735 20 epp7 pr6|32,* 010077 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 010100 aa 6 00104 2521 00 spri2 pr6|68 010101 aa 7 00132 3521 00 epp2 pr7|90 code 010102 aa 6 00106 2521 00 spri2 pr6|70 010103 aa 6 00102 6211 00 eax1 pr6|66 010104 aa 010000 4310 07 fld 4096,dl 010105 aa 6 00044 3701 20 epp4 pr6|36,* 010106 la 4 00142 3521 20 epp2 pr4|98,* cpm_$start 010107 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1032 if (code ^= 0) & (code ^= cpm_et_$already_started) then call ssu_$abort_subsystem (sci_ptr, code, "Trying to start the control point ^12.3b.", control_point_data.id); 010110 aa 6 00040 3735 20 epp7 pr6|32,* 010111 aa 7 00132 2361 00 ldq pr7|90 code 010112 aa 000033 6000 04 tze 27,ic 010145 010113 aa 6 00044 3701 20 epp4 pr6|36,* 010114 la 4 00010 1161 20 cmpq pr4|8,* cpm_et_$already_started 010115 aa 000030 6000 04 tze 24,ic 010145 010116 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010117 aa 771350 00 0054 desc9a -3352,44 001466 = 124162171151 010120 aa 6 00124 00 0054 desc9a pr6|84,44 010121 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010122 aa 6 00142 2521 00 spri2 pr6|98 010123 aa 7 00132 3521 00 epp2 pr7|90 code 010124 aa 6 00144 2521 00 spri2 pr6|100 010125 aa 6 00124 3521 00 epp2 pr6|84 010126 aa 6 00146 2521 00 spri2 pr6|102 010127 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 010130 aa 6 00150 2521 00 spri2 pr6|104 010131 aa 770502 3520 04 epp2 -3774,ic 000633 = 464000000000 010132 aa 6 00152 2521 00 spri2 pr6|106 010133 aa 770503 3520 04 epp2 -3773,ic 000636 = 404000000043 010134 aa 6 00154 2521 00 spri2 pr6|108 010135 aa 770422 3520 04 epp2 -3822,ic 000557 = 524000000051 010136 aa 6 00156 2521 00 spri2 pr6|110 010137 aa 770475 3520 04 epp2 -3779,ic 000634 = 514000000044 010140 aa 6 00160 2521 00 spri2 pr6|112 010141 aa 6 00140 6211 00 eax1 pr6|96 010142 aa 020000 4310 07 fld 8192,dl 010143 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010144 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1036 call cpm_$set_preferred_control_point (control_point_data.id, code); 010145 aa 6 00040 3735 20 epp7 pr6|32,* 010146 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 010147 aa 6 00104 2521 00 spri2 pr6|68 010150 aa 7 00132 3521 00 epp2 pr7|90 code 010151 aa 6 00106 2521 00 spri2 pr6|70 010152 aa 6 00102 6211 00 eax1 pr6|66 010153 aa 010000 4310 07 fld 4096,dl 010154 aa 6 00044 3701 20 epp4 pr6|36,* 010155 la 4 00166 3521 20 epp2 pr4|118,* cpm_$set_preferred_control_point 010156 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1037 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to make the control point ^12.3b preferred.", control_point_data.id); 010157 aa 6 00040 3735 20 epp7 pr6|32,* 010160 aa 7 00132 2361 00 ldq pr7|90 code 010161 aa 000031 6000 04 tze 25,ic 010212 010162 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010163 aa 771471 00 0064 desc9a -3271,52 001653 = 124162171151 010164 aa 6 00140 00 0064 desc9a pr6|96,52 010165 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010166 aa 6 00164 2521 00 spri2 pr6|116 010167 aa 7 00132 3521 00 epp2 pr7|90 code 010170 aa 6 00166 2521 00 spri2 pr6|118 010171 aa 6 00140 3521 00 epp2 pr6|96 010172 aa 6 00170 2521 00 spri2 pr6|120 010173 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 010174 aa 6 00172 2521 00 spri2 pr6|122 010175 aa 770436 3520 04 epp2 -3810,ic 000633 = 464000000000 010176 aa 6 00174 2521 00 spri2 pr6|124 010177 aa 770437 3520 04 epp2 -3809,ic 000636 = 404000000043 010200 aa 6 00176 2521 00 spri2 pr6|126 010201 aa 770416 3520 04 epp2 -3826,ic 000617 = 524000000062 010202 aa 6 00200 2521 00 spri2 pr6|128 010203 aa 770431 3520 04 epp2 -3815,ic 000634 = 514000000044 010204 aa 6 00202 2521 00 spri2 pr6|130 010205 aa 6 00162 6211 00 eax1 pr6|114 010206 aa 020000 4310 07 fld 8192,dl 010207 aa 6 00044 3701 20 epp4 pr6|36,* 010210 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010211 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1041 return; 010212 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1043 end select; END PROCEDURE select BEGIN PROCEDURE scheduler ENTRY TO scheduler STATEMENT 1 ON LINE 1049 scheduler: procedure (); 010213 da 001242200000 010214 aa 000100 6270 00 eax7 64 010215 aa 7 00034 3521 20 epp2 pr7|28,* 010216 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 010217 aa 000000000000 010220 aa 000000000000 STATEMENT 1 ON LINE 1052 call reject_any_arguments (); 010221 aa 000001 7270 07 lxl7 1,dl 010222 aa 6 00056 6211 00 eax1 pr6|46 010223 aa 000000 4310 07 fld 0,dl 010224 aa 773776 3520 04 epp2 -2050,ic 004222 = 000140627000 010225 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1054 call cpm_$block (); 010226 aa 6 00056 6211 00 eax1 pr6|46 010227 aa 000000 4310 07 fld 0,dl 010230 aa 6 00044 3701 20 epp4 pr6|36,* 010231 la 4 00150 3521 20 epp2 pr4|104,* cpm_$block 010232 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1055 call cpm_$scheduler (); 010233 aa 6 00056 6211 00 eax1 pr6|46 010234 aa 000000 4310 07 fld 0,dl 010235 aa 6 00044 3701 20 epp4 pr6|36,* 010236 la 4 00152 3521 20 epp2 pr4|106,* cpm_$scheduler 010237 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1057 return; 010240 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1059 end scheduler; END PROCEDURE scheduler BEGIN PROCEDURE generate_call ENTRY TO generate_call STATEMENT 1 ON LINE 1063 generate_call: procedure (); 010241 da 001245200000 010242 aa 000220 6270 00 eax7 144 010243 aa 7 00034 3521 20 epp2 pr7|28,* 010244 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 010245 aa 000000000000 010246 aa 000000000000 STATEMENT 1 ON LINE 1069 if n_arguments = 0 then call display_usage_message_and_abort ("ID ENTRY {INFO_PTR} {-control_args}"); 010247 aa 6 00040 3735 20 epp7 pr6|32,* 010250 aa 7 00107 2361 00 ldq pr7|71 n_arguments 010251 aa 000015 6010 04 tnz 13,ic 010266 010252 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010253 aa 770766 00 0044 desc9a -3594,36 001240 = 111104040105 010254 aa 6 00116 00 0044 desc9a pr6|78,36 010255 aa 6 00116 3521 00 epp2 pr6|78 010256 aa 6 00132 2521 00 spri2 pr6|90 010257 aa 770337 3520 04 epp2 -3873,ic 000616 = 524000000043 010260 aa 6 00136 2521 00 spri2 pr6|94 010261 aa 000001 7270 07 lxl7 1,dl 010262 aa 6 00130 6211 00 eax1 pr6|88 010263 aa 004000 4310 07 fld 2048,dl 010264 aa 773551 3520 04 epp2 -2199,ic 004035 = 000160627000 010265 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1072 system_area_ptr = get_system_free_area_ (); 010266 aa 6 00040 3735 20 epp7 pr6|32,* 010267 aa 7 00112 3521 00 epp2 pr7|74 system_area_ptr 010270 aa 6 00132 2521 00 spri2 pr6|90 010271 aa 6 00130 6211 00 eax1 pr6|88 010272 aa 004000 4310 07 fld 2048,dl 010273 aa 6 00044 3701 20 epp4 pr6|36,* 010274 la 4 00060 3521 20 epp2 pr4|48,* get_system_free_area_ 010275 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1074 users_entry_ptr = null (); 010276 aa 770374 2370 04 ldaq -3844,ic 000672 = 077777000043 000001000000 010277 aa 6 00040 3735 20 epp7 pr6|32,* 010300 aa 7 00114 7571 00 staq pr7|76 users_entry_ptr STATEMENT 1 ON LINE 1075 have_control_point_id, have_users_entry, have_users_info_ptr = "0"b; 010301 aa 6 00100 4501 00 stz pr6|64 have_control_point_id 010302 aa 6 00101 4501 00 stz pr6|65 have_users_entry 010303 aa 6 00102 4501 00 stz pr6|66 have_users_info_ptr STATEMENT 1 ON LINE 1077 on cleanup begin; 010304 aa 000007 7260 07 lxl6 7,dl 010305 aa 770367 3520 04 epp2 -3849,ic 000674 = 143154145141 010306 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 010307 aa 000004 7100 04 tra 4,ic 010313 010310 aa 000106000000 010311 aa 000042 7100 04 tra 34,ic 010353 BEGIN CONDITION cleanup.6 ENTRY TO cleanup.6 STATEMENT 1 ON LINE 1077 on cleanup begin; 010312 da 001253200000 010313 aa 000120 6270 00 eax7 80 010314 aa 7 00034 3521 20 epp2 pr7|28,* 010315 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 010316 aa 000000000000 010317 aa 000000000000 STATEMENT 1 ON LINE 1079 if users_entry_ptr ^= null () then do; 010320 aa 6 00040 3735 20 epp7 pr6|32,* 010321 aa 7 00040 3735 20 epp7 pr7|32,* 010322 aa 7 00114 2371 00 ldaq pr7|76 users_entry_ptr 010323 aa 770347 6770 04 eraq -3865,ic 000672 = 077777000043 000001000000 010324 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 010325 aa 000025 6000 04 tze 21,ic 010352 STATEMENT 1 ON LINE 1081 if have_users_info_ptr then do; 010326 aa 6 00040 3715 20 epp5 pr6|32,* 010327 aa 5 00102 2351 00 lda pr5|66 have_users_info_ptr 010330 aa 000012 6000 04 tze 10,ic 010342 STATEMENT 1 ON LINE 1083 call cv_ptr_$terminate (users_entry.info_ptr); 010331 aa 7 00114 3535 20 epp3 pr7|76,* users_entry_ptr 010332 aa 3 00004 3521 00 epp2 pr3|4 users_entry.info_ptr 010333 aa 6 00102 2521 00 spri2 pr6|66 010334 aa 6 00100 6211 00 eax1 pr6|64 010335 aa 004000 4310 07 fld 2048,dl 010336 la 4 00056 3521 20 epp2 pr4|46,* cv_ptr_$terminate 010337 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1084 have_users_info_ptr = "0"b; 010340 aa 6 00040 3735 20 epp7 pr6|32,* 010341 aa 7 00102 4501 00 stz pr7|66 have_users_info_ptr STATEMENT 1 ON LINE 1085 end; STATEMENT 1 ON LINE 1086 free users_entry in (system_area); 010342 aa 6 00040 3735 20 epp7 pr6|32,* 010343 aa 7 00040 3735 20 epp7 pr7|32,* 010344 aa 7 00114 3715 00 epp5 pr7|76 users_entry_ptr 010345 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 1087 users_entry_ptr = null (); 010346 aa 770324 2370 04 ldaq -3884,ic 000672 = 077777000043 000001000000 010347 aa 6 00040 3735 20 epp7 pr6|32,* 010350 aa 7 00040 3735 20 epp7 pr7|32,* 010351 aa 7 00114 7571 00 staq pr7|76 users_entry_ptr STATEMENT 1 ON LINE 1088 end; STATEMENT 1 ON LINE 1089 end; 010352 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.6 STATEMENT 1 ON LINE 1091 allocate users_entry in (system_area) set (users_entry_ptr); 010353 aa 000006 2360 07 ldq 6,dl 010354 aa 6 00040 3735 20 epp7 pr6|32,* 010355 aa 7 00112 3521 20 epp2 pr7|74,* system_area 010356 aa 0 01402 7001 00 tsx0 pr0|770 op_alloc_ 010357 aa 777774 7100 04 tra -4,ic 010353 010360 aa 6 00040 3735 20 epp7 pr6|32,* 010361 aa 7 00114 2521 00 spri2 pr7|76 users_entry_ptr STATEMENT 1 ON LINE 1096 immediate = "1"b; 010362 aa 400000 2350 03 lda 131072,du 010363 aa 6 00103 7551 00 sta pr6|67 immediate STATEMENT 1 ON LINE 1097 preferred, preferred_given = "0"b; 010364 aa 6 00104 4501 00 stz pr6|68 preferred 010365 aa 6 00105 4501 00 stz pr6|69 preferred_given STATEMENT 1 ON LINE 1099 do argument_idx = 1 to n_arguments; 010366 aa 7 00107 2361 00 ldq pr7|71 n_arguments 010367 aa 6 00114 7561 00 stq pr6|76 010370 aa 000001 2360 07 ldq 1,dl 010371 aa 7 00110 7561 00 stq pr7|72 argument_idx 010372 aa 6 00040 3735 20 epp7 pr6|32,* 010373 aa 7 00110 2361 00 ldq pr7|72 argument_idx 010374 aa 6 00114 1161 00 cmpq pr6|76 010375 aa 000365 6054 04 tpnz 245,ic 010762 STATEMENT 1 ON LINE 1101 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 010376 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010377 aa 6 00142 2521 00 spri2 pr6|98 010400 aa 7 00110 3521 00 epp2 pr7|72 argument_idx 010401 aa 6 00144 2521 00 spri2 pr6|100 010402 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 010403 aa 6 00146 2521 00 spri2 pr6|102 010404 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 010405 aa 6 00150 2521 00 spri2 pr6|104 010406 aa 6 00140 6211 00 eax1 pr6|96 010407 aa 020000 4310 07 fld 8192,dl 010410 aa 6 00044 3701 20 epp4 pr6|36,* 010411 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 010412 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1103 if index (argument, "-") = 1 then /* a control argument */ if (argument = "-immediate") | (argument = "-im") then immediate = "1"b; 010413 aa 6 00040 3735 20 epp7 pr6|32,* 010414 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 010415 aa 7 00106 2351 00 lda pr7|70 argument_lth 010416 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 010417 aa 5 00000 00 0005 desc9a pr5|0,al argument 010420 aa 055000 00 0001 desc9a 23040,1 010421 aa 6 00056 0001 00 arg pr6|46 010422 aa 6 00056 2361 00 ldq pr6|46 010423 aa 000002 6070 04 ttf 2,ic 010425 010424 aa 000001 3360 07 lcq 1,dl 010425 aa 000001 0760 07 adq 1,dl 010426 aa 000001 1160 07 cmpq 1,dl 010427 aa 000101 6010 04 tnz 65,ic 010530 010430 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 010431 aa 5 00000 00 0005 desc9a pr5|0,al argument 010432 aa 770254 00 0012 desc9a -3924,10 000704 = 055151155155 010433 aa 000005 6000 04 tze 5,ic 010440 010434 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 010435 aa 5 00000 00 0005 desc9a pr5|0,al argument 010436 aa 770115 00 0003 desc9a -4019,3 000551 = 055151155000 010437 aa 000004 6010 04 tnz 4,ic 010443 010440 aa 400000 2350 03 lda 131072,du 010441 aa 6 00103 7551 00 sta pr6|67 immediate 010442 aa 000315 7100 04 tra 205,ic 010757 STATEMENT 1 ON LINE 1107 else if (argument = "-defer_until_ready") | (argument = "-dur") then immediate = "0"b; 010443 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 010444 aa 5 00000 00 0005 desc9a pr5|0,al argument 010445 aa 770325 00 0022 desc9a -3883,18 000770 = 055144145146 010446 aa 000005 6000 04 tze 5,ic 010453 010447 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 010450 aa 5 00000 00 0005 desc9a pr5|0,al argument 010451 aa 770101 00 0004 desc9a -4031,4 000550 = 055144165162 010452 aa 000003 6010 04 tnz 3,ic 010455 010453 aa 6 00103 4501 00 stz pr6|67 immediate 010454 aa 000303 7100 04 tra 195,ic 010757 STATEMENT 1 ON LINE 1110 else if argument = "-preferred" then preferred, preferred_given = "1"b; 010455 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 010456 aa 5 00000 00 0005 desc9a pr5|0,al argument 010457 aa 770243 00 0012 desc9a -3933,10 000720 = 055160162145 010460 aa 000005 6010 04 tnz 5,ic 010465 010461 aa 400000 2350 03 lda 131072,du 010462 aa 6 00104 7551 00 sta pr6|68 preferred 010463 aa 6 00105 7551 00 sta pr6|69 preferred_given 010464 aa 000273 7100 04 tra 187,ic 010757 STATEMENT 1 ON LINE 1112 else if argument = "-not_preferred" then do; 010465 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 010466 aa 5 00000 00 0005 desc9a pr5|0,al argument 010467 aa 770260 00 0016 desc9a -3920,14 000745 = 055156157164 010470 aa 000005 6010 04 tnz 5,ic 010475 STATEMENT 1 ON LINE 1114 preferred = "0"b; 010471 aa 6 00104 4501 00 stz pr6|68 preferred STATEMENT 1 ON LINE 1115 preferred_given = "1"b; 010472 aa 400000 2350 03 lda 131072,du 010473 aa 6 00105 7551 00 sta pr6|69 preferred_given STATEMENT 1 ON LINE 1116 end; 010474 aa 000263 7100 04 tra 179,ic 010757 STATEMENT 1 ON LINE 1118 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 010475 aa 7 00106 2361 00 ldq pr7|70 argument_lth 010476 aa 526000 2760 03 orq 175104,du 010477 aa 6 00127 7561 00 stq pr6|87 010500 aa 770067 2350 04 lda -4041,ic 000567 = 042136141042 010501 aa 6 00115 7551 00 sta pr6|77 010502 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010503 aa 6 00154 2521 00 spri2 pr6|108 010504 aa 6 00044 3701 20 epp4 pr6|36,* 010505 la 4 00022 3521 20 epp2 pr4|18,* error_table_$badopt 010506 aa 6 00156 2521 00 spri2 pr6|110 010507 aa 6 00115 3521 00 epp2 pr6|77 010510 aa 6 00160 2521 00 spri2 pr6|112 010511 aa 5 00000 3521 00 epp2 pr5|0 argument 010512 aa 6 00162 2521 00 spri2 pr6|114 010513 aa 770120 3520 04 epp2 -4016,ic 000633 = 464000000000 010514 aa 6 00164 2521 00 spri2 pr6|116 010515 aa 770121 3520 04 epp2 -4015,ic 000636 = 404000000043 010516 aa 6 00166 2521 00 spri2 pr6|118 010517 aa 770047 3520 04 epp2 -4057,ic 000566 = 524000000004 010520 aa 6 00170 2521 00 spri2 pr6|120 010521 aa 6 00127 3521 00 epp2 pr6|87 010522 aa 6 00172 2521 00 spri2 pr6|122 010523 aa 6 00152 6211 00 eax1 pr6|106 010524 aa 020000 4310 07 fld 8192,dl 010525 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010526 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 010527 aa 000230 7100 04 tra 152,ic 010757 STATEMENT 1 ON LINE 1120 else /* a non-control argument */ if ^have_control_point_id then do; 010530 aa 6 00100 2351 00 lda pr6|64 have_control_point_id 010531 aa 000011 6010 04 tnz 9,ic 010542 STATEMENT 1 ON LINE 1123 call cv_string_to_control_point_id (); 010532 aa 000001 7270 07 lxl7 1,dl 010533 aa 6 00056 6211 00 eax1 pr6|46 010534 aa 000000 4310 07 fld 0,dl 010535 aa 773603 3520 04 epp2 -2173,ic 004340 = 000220627000 010536 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1124 have_control_point_id = "1"b; 010537 aa 400000 2350 03 lda 131072,du 010540 aa 6 00100 7551 00 sta pr6|64 have_control_point_id STATEMENT 1 ON LINE 1125 end; 010541 aa 000216 7100 04 tra 142,ic 010757 STATEMENT 1 ON LINE 1127 else if ^have_users_entry then do; 010542 aa 6 00101 2351 00 lda pr6|65 have_users_entry 010543 aa 000073 6010 04 tnz 59,ic 010636 STATEMENT 1 ON LINE 1129 users_entry.entry = cv_entry_ (argument, null (), code); 010544 aa 7 00106 2361 00 ldq pr7|70 argument_lth 010545 aa 526000 2760 03 orq 175104,du 010546 aa 6 00127 7561 00 stq pr6|87 010547 aa 770123 3534 24 epp3 -4013,ic* 010550 aa 6 00174 2535 00 spri3 pr6|124 010551 aa 5 00000 3521 00 epp2 pr5|0 argument 010552 aa 6 00154 2521 00 spri2 pr6|108 010553 aa 6 00174 3521 00 epp2 pr6|124 010554 aa 6 00156 2521 00 spri2 pr6|110 010555 aa 7 00132 3521 00 epp2 pr7|90 code 010556 aa 6 00160 2521 00 spri2 pr6|112 010557 aa 7 00114 3521 20 epp2 pr7|76,* users_entry.entry 010560 aa 6 00162 2521 00 spri2 pr6|114 010561 aa 6 00127 3521 00 epp2 pr6|87 010562 aa 6 00164 2521 00 spri2 pr6|116 010563 aa 770050 3520 04 epp2 -4056,ic 000633 = 464000000000 010564 aa 6 00166 2521 00 spri2 pr6|118 010565 aa 770051 3520 04 epp2 -4055,ic 000636 = 404000000043 010566 aa 6 00170 2521 00 spri2 pr6|120 010567 aa 770046 3520 04 epp2 -4058,ic 000635 = 500000000000 010570 aa 6 00172 2521 00 spri2 pr6|122 010571 aa 6 00152 6211 00 eax1 pr6|106 010572 aa 020000 4310 07 fld 8192,dl 010573 aa 6 00044 3701 20 epp4 pr6|36,* 010574 la 4 00050 3521 20 epp2 pr4|40,* cv_entry_ 010575 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1130 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 010576 aa 6 00040 3735 20 epp7 pr6|32,* 010577 aa 7 00132 2361 00 ldq pr7|90 code 010600 aa 000033 6000 04 tze 27,ic 010633 010601 aa 7 00106 2361 00 ldq pr7|70 argument_lth 010602 aa 526000 2760 03 orq 175104,du 010603 aa 6 00127 7561 00 stq pr6|87 010604 aa 767763 2350 04 lda -4109,ic 000567 = 042136141042 010605 aa 6 00115 7551 00 sta pr6|77 010606 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010607 aa 6 00154 2521 00 spri2 pr6|108 010610 aa 7 00132 3521 00 epp2 pr7|90 code 010611 aa 6 00156 2521 00 spri2 pr6|110 010612 aa 6 00115 3521 00 epp2 pr6|77 010613 aa 6 00160 2521 00 spri2 pr6|112 010614 aa 7 00104 3521 20 epp2 pr7|68,* argument 010615 aa 6 00162 2521 00 spri2 pr6|114 010616 aa 770015 3520 04 epp2 -4083,ic 000633 = 464000000000 010617 aa 6 00164 2521 00 spri2 pr6|116 010620 aa 770016 3520 04 epp2 -4082,ic 000636 = 404000000043 010621 aa 6 00166 2521 00 spri2 pr6|118 010622 aa 767744 3520 04 epp2 -4124,ic 000566 = 524000000004 010623 aa 6 00170 2521 00 spri2 pr6|120 010624 aa 6 00127 3521 00 epp2 pr6|87 010625 aa 6 00172 2521 00 spri2 pr6|122 010626 aa 6 00152 6211 00 eax1 pr6|106 010627 aa 020000 4310 07 fld 8192,dl 010630 aa 6 00044 3701 20 epp4 pr6|36,* 010631 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010632 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1132 have_users_entry = "1"b; 010633 aa 400000 2350 03 lda 131072,du 010634 aa 6 00101 7551 00 sta pr6|65 have_users_entry STATEMENT 1 ON LINE 1133 end; 010635 aa 000122 7100 04 tra 82,ic 010757 STATEMENT 1 ON LINE 1135 else if ^have_users_info_ptr then do; 010636 aa 6 00102 2351 00 lda pr6|66 have_users_info_ptr 010637 aa 000066 6010 04 tnz 54,ic 010725 STATEMENT 1 ON LINE 1137 users_entry.info_ptr = cv_ptr_ (argument, code); 010640 aa 7 00106 2361 00 ldq pr7|70 argument_lth 010641 aa 526000 2760 03 orq 175104,du 010642 aa 6 00127 7561 00 stq pr6|87 010643 aa 5 00000 3521 00 epp2 pr5|0 argument 010644 aa 6 00154 2521 00 spri2 pr6|108 010645 aa 7 00132 3521 00 epp2 pr7|90 code 010646 aa 6 00156 2521 00 spri2 pr6|110 010647 aa 7 00114 3535 20 epp3 pr7|76,* users_entry_ptr 010650 aa 3 00004 3521 00 epp2 pr3|4 users_entry.info_ptr 010651 aa 6 00160 2521 00 spri2 pr6|112 010652 aa 6 00127 3521 00 epp2 pr6|87 010653 aa 6 00162 2521 00 spri2 pr6|114 010654 aa 767762 3520 04 epp2 -4110,ic 000636 = 404000000043 010655 aa 6 00164 2521 00 spri2 pr6|116 010656 aa 767755 3520 04 epp2 -4115,ic 000633 = 464000000000 010657 aa 6 00166 2521 00 spri2 pr6|118 010660 aa 6 00152 6211 00 eax1 pr6|106 010661 aa 014000 4310 07 fld 6144,dl 010662 aa 6 00044 3701 20 epp4 pr6|36,* 010663 la 4 00054 3521 20 epp2 pr4|44,* cv_ptr_ 010664 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1138 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 010665 aa 6 00040 3735 20 epp7 pr6|32,* 010666 aa 7 00132 2361 00 ldq pr7|90 code 010667 aa 000033 6000 04 tze 27,ic 010722 010670 aa 7 00106 2361 00 ldq pr7|70 argument_lth 010671 aa 526000 2760 03 orq 175104,du 010672 aa 6 00127 7561 00 stq pr6|87 010673 aa 767674 2350 04 lda -4164,ic 000567 = 042136141042 010674 aa 6 00115 7551 00 sta pr6|77 010675 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010676 aa 6 00154 2521 00 spri2 pr6|108 010677 aa 7 00132 3521 00 epp2 pr7|90 code 010700 aa 6 00156 2521 00 spri2 pr6|110 010701 aa 6 00115 3521 00 epp2 pr6|77 010702 aa 6 00160 2521 00 spri2 pr6|112 010703 aa 7 00104 3521 20 epp2 pr7|68,* argument 010704 aa 6 00162 2521 00 spri2 pr6|114 010705 aa 767726 3520 04 epp2 -4138,ic 000633 = 464000000000 010706 aa 6 00164 2521 00 spri2 pr6|116 010707 aa 767727 3520 04 epp2 -4137,ic 000636 = 404000000043 010710 aa 6 00166 2521 00 spri2 pr6|118 010711 aa 767655 3520 04 epp2 -4179,ic 000566 = 524000000004 010712 aa 6 00170 2521 00 spri2 pr6|120 010713 aa 6 00127 3521 00 epp2 pr6|87 010714 aa 6 00172 2521 00 spri2 pr6|122 010715 aa 6 00152 6211 00 eax1 pr6|106 010716 aa 020000 4310 07 fld 8192,dl 010717 aa 6 00044 3701 20 epp4 pr6|36,* 010720 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010721 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1140 have_users_info_ptr = "1"b; 010722 aa 400000 2350 03 lda 131072,du 010723 aa 6 00102 7551 00 sta pr6|66 have_users_info_ptr STATEMENT 1 ON LINE 1141 end; 010724 aa 000033 7100 04 tra 27,ic 010757 STATEMENT 1 ON LINE 1143 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 010725 aa 7 00106 2361 00 ldq pr7|70 argument_lth 010726 aa 526000 2760 03 orq 175104,du 010727 aa 6 00127 7561 00 stq pr6|87 010730 aa 767637 2350 04 lda -4193,ic 000567 = 042136141042 010731 aa 6 00115 7551 00 sta pr6|77 010732 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010733 aa 6 00154 2521 00 spri2 pr6|108 010734 aa 6 00044 3701 20 epp4 pr6|36,* 010735 la 4 00030 3521 20 epp2 pr4|24,* error_table_$too_many_args 010736 aa 6 00156 2521 00 spri2 pr6|110 010737 aa 6 00115 3521 00 epp2 pr6|77 010740 aa 6 00160 2521 00 spri2 pr6|112 010741 aa 5 00000 3521 00 epp2 pr5|0 argument 010742 aa 6 00162 2521 00 spri2 pr6|114 010743 aa 767670 3520 04 epp2 -4168,ic 000633 = 464000000000 010744 aa 6 00164 2521 00 spri2 pr6|116 010745 aa 767671 3520 04 epp2 -4167,ic 000636 = 404000000043 010746 aa 6 00166 2521 00 spri2 pr6|118 010747 aa 767617 3520 04 epp2 -4209,ic 000566 = 524000000004 010750 aa 6 00170 2521 00 spri2 pr6|120 010751 aa 6 00127 3521 00 epp2 pr6|87 010752 aa 6 00172 2521 00 spri2 pr6|122 010753 aa 6 00152 6211 00 eax1 pr6|106 010754 aa 020000 4310 07 fld 8192,dl 010755 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 010756 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1144 end; 010757 aa 6 00040 3735 20 epp7 pr6|32,* 010760 aa 7 00110 0541 00 aos pr7|72 argument_idx 010761 aa 777411 7100 04 tra -247,ic 010372 STATEMENT 1 ON LINE 1146 if ^have_control_point_id /* we must have someplace to execute the entrypoint */ then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A control point ID must be specified."); 010762 aa 6 00100 2351 00 lda pr6|64 have_control_point_id 010763 aa 000025 6010 04 tnz 21,ic 011010 010764 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010765 aa 770356 00 0050 desc9a -3858,40 001342 = 101040143157 010766 aa 6 00140 00 0050 desc9a pr6|96,40 010767 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 010770 aa 6 00154 2521 00 spri2 pr6|108 010771 aa 6 00044 3701 20 epp4 pr6|36,* 010772 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 010773 aa 6 00156 2521 00 spri2 pr6|110 010774 aa 6 00140 3521 00 epp2 pr6|96 010775 aa 6 00160 2521 00 spri2 pr6|112 010776 aa 767635 3520 04 epp2 -4195,ic 000633 = 464000000000 010777 aa 6 00162 2521 00 spri2 pr6|114 011000 aa 767636 3520 04 epp2 -4194,ic 000636 = 404000000043 011001 aa 6 00164 2521 00 spri2 pr6|116 011002 aa 767545 3520 04 epp2 -4251,ic 000547 = 524000000045 011003 aa 6 00166 2521 00 spri2 pr6|118 011004 aa 6 00152 6211 00 eax1 pr6|106 011005 aa 014000 4310 07 fld 6144,dl 011006 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011007 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1149 if ^have_users_entry /* ... and there must be an entrypoint */ then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "An entrypoint must be specified."); 011010 aa 6 00101 2351 00 lda pr6|65 have_users_entry 011011 aa 000026 6010 04 tnz 22,ic 011037 011012 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011013 aa 770124 00 0040 desc9a -4012,32 001136 = 101156040145 011014 aa 6 00130 00 0040 desc9a pr6|88,32 011015 aa 6 00040 3735 20 epp7 pr6|32,* 011016 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011017 aa 6 00154 2521 00 spri2 pr6|108 011020 aa 6 00044 3701 20 epp4 pr6|36,* 011021 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 011022 aa 6 00156 2521 00 spri2 pr6|110 011023 aa 6 00130 3521 00 epp2 pr6|88 011024 aa 6 00160 2521 00 spri2 pr6|112 011025 aa 767606 3520 04 epp2 -4218,ic 000633 = 464000000000 011026 aa 6 00162 2521 00 spri2 pr6|114 011027 aa 767607 3520 04 epp2 -4217,ic 000636 = 404000000043 011030 aa 6 00164 2521 00 spri2 pr6|116 011031 aa 767550 3520 04 epp2 -4248,ic 000601 = 524000000040 011032 aa 6 00166 2521 00 spri2 pr6|118 011033 aa 6 00152 6211 00 eax1 pr6|106 011034 aa 014000 4310 07 fld 6144,dl 011035 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011036 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1152 if ^have_users_info_ptr /* ... but its info_ptr is optional */ then users_entry.info_ptr = null (); 011037 aa 6 00102 2351 00 lda pr6|66 have_users_info_ptr 011040 aa 000005 6010 04 tnz 5,ic 011045 011041 aa 767631 2370 04 ldaq -4199,ic 000672 = 077777000043 000001000000 011042 aa 6 00040 3735 20 epp7 pr6|32,* 011043 aa 7 00114 3715 20 epp5 pr7|76,* users_entry_ptr 011044 aa 5 00004 7571 00 staq pr5|4 users_entry.info_ptr STATEMENT 1 ON LINE 1155 if ^immediate & preferred_given then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, """-defer_until_ready"" and ""-^[not_^]preferred"".", ^preferred); 011045 aa 6 00103 2351 00 lda pr6|67 immediate 011046 aa 000037 6010 04 tnz 31,ic 011105 011047 aa 6 00105 2351 00 lda pr6|69 preferred_given 011050 aa 000035 6000 04 tze 29,ic 011105 011051 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011052 aa 770535 00 0060 desc9a -3747,48 001606 = 042055144145 011053 aa 6 00152 00 0060 desc9a pr6|106,48 011054 aa 6 00104 2351 00 lda pr6|68 preferred 011055 aa 0 00002 6751 00 era pr0|2 = 400000000000 011056 aa 6 00127 7551 00 sta pr6|87 011057 aa 6 00040 3735 20 epp7 pr6|32,* 011060 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011061 aa 6 00200 2521 00 spri2 pr6|128 011062 aa 6 00044 3701 20 epp4 pr6|36,* 011063 la 4 00024 3521 20 epp2 pr4|20,* error_table_$inconsistent 011064 aa 6 00202 2521 00 spri2 pr6|130 011065 aa 6 00152 3521 00 epp2 pr6|106 011066 aa 6 00204 2521 00 spri2 pr6|132 011067 aa 6 00127 3521 00 epp2 pr6|87 011070 aa 6 00206 2521 00 spri2 pr6|134 011071 aa 767542 3520 04 epp2 -4254,ic 000633 = 464000000000 011072 aa 6 00210 2521 00 spri2 pr6|136 011073 aa 767543 3520 04 epp2 -4253,ic 000636 = 404000000043 011074 aa 6 00212 2521 00 spri2 pr6|138 011075 aa 767451 3520 04 epp2 -4311,ic 000546 = 524000000056 011076 aa 6 00214 2521 00 spri2 pr6|140 011077 aa 767513 3520 04 epp2 -4277,ic 000612 = 514000000001 011100 aa 6 00216 2521 00 spri2 pr6|142 011101 aa 6 00176 6211 00 eax1 pr6|126 011102 aa 020000 4310 07 fld 8192,dl 011103 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011104 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1162 if immediate then if preferred then call cpm_$generate_call_preferred (control_point_data.id, run_users_entry, users_entry_ptr, code); 011105 aa 6 00103 2351 00 lda pr6|67 immediate 011106 aa 000051 6000 04 tze 41,ic 011157 011107 aa 6 00104 2351 00 lda pr6|68 preferred 011110 aa 000024 6000 04 tze 20,ic 011134 011111 aa 771753 3520 04 epp2 -3093,ic 003064 = 000540627000 011112 aa 6 00130 2521 00 spri2 pr6|88 cp.708 011113 aa 004221 2370 04 ldaq 2193,ic 015334 = 077777000043 000001000000 011114 aa 6 00132 7571 00 staq pr6|90 cp.708 011115 aa 6 00040 3735 20 epp7 pr6|32,* 011116 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 011117 aa 6 00142 2521 00 spri2 pr6|98 011120 aa 6 00130 3521 00 epp2 pr6|88 cp.708 011121 aa 6 00144 2521 00 spri2 pr6|100 011122 aa 7 00114 3521 00 epp2 pr7|76 users_entry_ptr 011123 aa 6 00146 2521 00 spri2 pr6|102 011124 aa 7 00132 3521 00 epp2 pr7|90 code 011125 aa 6 00150 2521 00 spri2 pr6|104 011126 aa 6 00140 6211 00 eax1 pr6|96 011127 aa 020000 4310 07 fld 8192,dl 011130 aa 6 00044 3701 20 epp4 pr6|36,* 011131 la 4 00162 3521 20 epp2 pr4|114,* cpm_$generate_call_preferred 011132 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 011133 aa 000046 7100 04 tra 38,ic 011201 STATEMENT 1 ON LINE 1165 else call cpm_$generate_call (control_point_data.id, run_users_entry, users_entry_ptr, code); 011134 aa 771730 3520 04 epp2 -3112,ic 003064 = 000540627000 011135 aa 6 00130 2521 00 spri2 pr6|88 cp.708 011136 aa 004176 2370 04 ldaq 2174,ic 015334 = 077777000043 000001000000 011137 aa 6 00132 7571 00 staq pr6|90 cp.708 011140 aa 6 00040 3735 20 epp7 pr6|32,* 011141 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 011142 aa 6 00142 2521 00 spri2 pr6|98 011143 aa 6 00130 3521 00 epp2 pr6|88 cp.708 011144 aa 6 00144 2521 00 spri2 pr6|100 011145 aa 7 00114 3521 00 epp2 pr7|76 users_entry_ptr 011146 aa 6 00146 2521 00 spri2 pr6|102 011147 aa 7 00132 3521 00 epp2 pr7|90 code 011150 aa 6 00150 2521 00 spri2 pr6|104 011151 aa 6 00140 6211 00 eax1 pr6|96 011152 aa 020000 4310 07 fld 8192,dl 011153 aa 6 00044 3701 20 epp4 pr6|36,* 011154 la 4 00160 3521 20 epp2 pr4|112,* cpm_$generate_call 011155 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 011156 aa 000023 7100 04 tra 19,ic 011201 STATEMENT 1 ON LINE 1166 else call cpm_$generate_call (control_point_data.id, run_users_entry, users_entry_ptr, code); 011157 aa 771705 3520 04 epp2 -3131,ic 003064 = 000540627000 011160 aa 6 00130 2521 00 spri2 pr6|88 cp.708 011161 aa 004153 2370 04 ldaq 2155,ic 015334 = 077777000043 000001000000 011162 aa 6 00132 7571 00 staq pr6|90 cp.708 011163 aa 6 00040 3735 20 epp7 pr6|32,* 011164 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 011165 aa 6 00142 2521 00 spri2 pr6|98 011166 aa 6 00130 3521 00 epp2 pr6|88 cp.708 011167 aa 6 00144 2521 00 spri2 pr6|100 011170 aa 7 00114 3521 00 epp2 pr7|76 users_entry_ptr 011171 aa 6 00146 2521 00 spri2 pr6|102 011172 aa 7 00132 3521 00 epp2 pr7|90 code 011173 aa 6 00150 2521 00 spri2 pr6|104 011174 aa 6 00140 6211 00 eax1 pr6|96 011175 aa 020000 4310 07 fld 8192,dl 011176 aa 6 00044 3701 20 epp4 pr6|36,* 011177 la 4 00160 3521 20 epp2 pr4|112,* cpm_$generate_call 011200 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1168 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to generate a call into the control point ^12.3b.", control_point_data.id); 011201 aa 6 00040 3735 20 epp7 pr6|32,* 011202 aa 7 00132 2361 00 ldq pr7|90 code 011203 aa 000031 6000 04 tze 25,ic 011234 011204 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011205 aa 770502 00 0070 desc9a -3774,56 001706 = 124162171151 011206 aa 6 00176 00 0070 desc9a pr6|126,56 011207 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011210 aa 6 00154 2521 00 spri2 pr6|108 011211 aa 7 00132 3521 00 epp2 pr7|90 code 011212 aa 6 00156 2521 00 spri2 pr6|110 011213 aa 6 00176 3521 00 epp2 pr6|126 011214 aa 6 00160 2521 00 spri2 pr6|112 011215 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 011216 aa 6 00162 2521 00 spri2 pr6|114 011217 aa 767414 3520 04 epp2 -4340,ic 000633 = 464000000000 011220 aa 6 00164 2521 00 spri2 pr6|116 011221 aa 767415 3520 04 epp2 -4339,ic 000636 = 404000000043 011222 aa 6 00166 2521 00 spri2 pr6|118 011223 aa 767322 3520 04 epp2 -4398,ic 000545 = 524000000070 011224 aa 6 00170 2521 00 spri2 pr6|120 011225 aa 767407 3520 04 epp2 -4345,ic 000634 = 514000000044 011226 aa 6 00172 2521 00 spri2 pr6|122 011227 aa 6 00152 6211 00 eax1 pr6|106 011230 aa 020000 4310 07 fld 8192,dl 011231 aa 6 00044 3701 20 epp4 pr6|36,* 011232 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011233 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1172 return; 011234 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1174 end generate_call; END PROCEDURE generate_call BEGIN PROCEDURE list ENTRY TO list STATEMENT 1 ON LINE 1178 list: procedure (); 011235 da 001260200000 011236 aa 000220 6270 00 eax7 144 011237 aa 7 00034 3521 20 epp2 pr7|28,* 011240 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 011241 aa 000000000000 011242 aa 000000000000 STATEMENT 1 ON LINE 1189 if n_arguments = 0 then call display_usage_message_and_abort ("{IDs} {-control_args}"); 011243 aa 6 00040 3735 20 epp7 pr6|32,* 011244 aa 7 00107 2361 00 ldq pr7|71 n_arguments 011245 aa 000020 6010 04 tnz 16,ic 011265 011246 aa 767534 2370 04 ldaq -4260,ic 001002 = 173111104163 175040173055 011247 aa 6 00120 7571 00 staq pr6|80 011250 aa 767534 2370 04 ldaq -4260,ic 001004 = 143157156164 162157154137 011251 aa 6 00122 7571 00 staq pr6|82 011252 aa 767534 2370 04 ldaq -4260,ic 001006 = 141162147163 175000000000 011253 aa 6 00124 7571 00 staq pr6|84 011254 aa 6 00120 3521 00 epp2 pr6|80 011255 aa 6 00130 2521 00 spri2 pr6|88 011256 aa 767312 3520 04 epp2 -4406,ic 000570 = 524000000025 011257 aa 6 00134 2521 00 spri2 pr6|92 011260 aa 000001 7270 07 lxl7 1,dl 011261 aa 6 00126 6211 00 eax1 pr6|86 011262 aa 004000 4310 07 fld 2048,dl 011263 aa 772552 3520 04 epp2 -2710,ic 004035 = 000160627000 011264 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1192 if stackbaseptr () -> stack_header.cpm_enabled = ""b then call ssu_$abort_subsystem (sci_ptr, 0, "Control point management is not enabled."); 011265 aa 6 00000 3525 00 epbp2 pr6|0 011266 aa 2 00013 2351 00 lda pr2|11 stack_header.cpm_enabled 011267 aa 777777 3150 07 cana 262143,dl 011270 aa 000027 6010 04 tnz 23,ic 011317 011271 aa 6 00117 4501 00 stz pr6|79 011272 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011273 aa 770036 00 0050 desc9a -4066,40 001330 = 103157156164 011274 aa 6 00136 00 0050 desc9a pr6|94,40 011275 aa 6 00040 3735 20 epp7 pr6|32,* 011276 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011277 aa 6 00152 2521 00 spri2 pr6|106 011300 aa 6 00117 3521 00 epp2 pr6|79 011301 aa 6 00154 2521 00 spri2 pr6|108 011302 aa 6 00136 3521 00 epp2 pr6|94 011303 aa 6 00156 2521 00 spri2 pr6|110 011304 aa 767327 3520 04 epp2 -4393,ic 000633 = 464000000000 011305 aa 6 00160 2521 00 spri2 pr6|112 011306 aa 767316 3520 04 epp2 -4402,ic 000624 = 404000000005 011307 aa 6 00162 2521 00 spri2 pr6|114 011310 aa 767242 3520 04 epp2 -4446,ic 000552 = 524000000050 011311 aa 6 00164 2521 00 spri2 pr6|116 011312 aa 6 00150 6211 00 eax1 pr6|104 011313 aa 014000 4310 07 fld 6144,dl 011314 aa 6 00044 3701 20 epp4 pr6|36,* 011315 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011316 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1195 system_area_ptr = get_system_free_area_ (); 011317 aa 6 00040 3735 20 epp7 pr6|32,* 011320 aa 7 00112 3521 00 epp2 pr7|74 system_area_ptr 011321 aa 6 00122 2521 00 spri2 pr6|82 011322 aa 6 00120 6211 00 eax1 pr6|80 011323 aa 004000 4310 07 fld 2048,dl 011324 aa 6 00044 3701 20 epp4 pr6|36,* 011325 la 4 00060 3521 20 epp2 pr4|48,* get_system_free_area_ 011326 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1197 cpd_ptr_list_ptr = null (); 011327 aa 767343 2370 04 ldaq -4381,ic 000672 = 077777000043 000001000000 011330 aa 6 00100 7571 00 staq pr6|64 cpd_ptr_list_ptr STATEMENT 1 ON LINE 1199 on cleanup begin; 011331 aa 000007 7260 07 lxl6 7,dl 011332 aa 767342 3520 04 epp2 -4382,ic 000674 = 143154145141 011333 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 011334 aa 000004 7100 04 tra 4,ic 011340 011335 aa 000106000000 011336 aa 000025 7100 04 tra 21,ic 011363 BEGIN CONDITION cleanup.7 ENTRY TO cleanup.7 STATEMENT 1 ON LINE 1199 on cleanup begin; 011337 da 001266200000 011340 aa 000100 6270 00 eax7 64 011341 aa 7 00034 3521 20 epp2 pr7|28,* 011342 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 011343 aa 000000000000 011344 aa 000000000000 STATEMENT 1 ON LINE 1201 if cpd_ptr_list_ptr ^= null () then do; 011345 aa 6 00040 3735 20 epp7 pr6|32,* 011346 aa 7 00100 2371 00 ldaq pr7|64 cpd_ptr_list_ptr 011347 aa 767323 6770 04 eraq -4397,ic 000672 = 077777000043 000001000000 011350 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 011351 aa 000011 6000 04 tze 9,ic 011362 STATEMENT 1 ON LINE 1203 free cpd_ptr_list in (system_area); 011352 aa 7 00040 3715 20 epp5 pr7|32,* 011353 aa 5 00107 2361 00 ldq pr5|71 n_arguments 011354 aa 000001 7360 00 qls 1 011355 aa 7 00100 3715 00 epp5 pr7|64 cpd_ptr_list_ptr 011356 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 1204 cpd_ptr_list_ptr = null (); 011357 aa 767313 2370 04 ldaq -4405,ic 000672 = 077777000043 000001000000 011360 aa 6 00040 3735 20 epp7 pr6|32,* 011361 aa 7 00100 7571 00 staq pr7|64 cpd_ptr_list_ptr STATEMENT 1 ON LINE 1205 end; STATEMENT 1 ON LINE 1206 end; 011362 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.7 STATEMENT 1 ON LINE 1208 allocate cpd_ptr_list in (system_area) set (cpd_ptr_list_ptr); 011363 aa 6 00040 3735 20 epp7 pr6|32,* 011364 aa 7 00107 2361 00 ldq pr7|71 n_arguments 011365 aa 000001 7360 00 qls 1 011366 aa 7 00112 3521 20 epp2 pr7|74,* system_area 011367 aa 0 01402 7001 00 tsx0 pr0|770 op_alloc_ 011370 aa 777773 7100 04 tra -5,ic 011363 011371 aa 6 00100 2521 00 spri2 pr6|64 cpd_ptr_list_ptr STATEMENT 1 ON LINE 1213 list_all = "0"b; 011372 aa 6 00103 4501 00 stz pr6|67 list_all STATEMENT 1 ON LINE 1214 n_control_points = 0; 011373 aa 6 00102 4501 00 stz pr6|66 n_control_points STATEMENT 1 ON LINE 1216 display_meters = "0"b; 011374 aa 6 00104 4501 00 stz pr6|68 display_meters STATEMENT 1 ON LINE 1218 do argument_idx = 1 to n_arguments; 011375 aa 6 00040 3735 20 epp7 pr6|32,* 011376 aa 7 00107 2361 00 ldq pr7|71 n_arguments 011377 aa 6 00114 7561 00 stq pr6|76 011400 aa 000001 2360 07 ldq 1,dl 011401 aa 7 00110 7561 00 stq pr7|72 argument_idx 011402 aa 6 00040 3735 20 epp7 pr6|32,* 011403 aa 7 00110 2361 00 ldq pr7|72 argument_idx 011404 aa 6 00114 1161 00 cmpq pr6|76 011405 aa 000155 6054 04 tpnz 109,ic 011562 STATEMENT 1 ON LINE 1220 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 011406 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011407 aa 6 00140 2521 00 spri2 pr6|96 011410 aa 7 00110 3521 00 epp2 pr7|72 argument_idx 011411 aa 6 00142 2521 00 spri2 pr6|98 011412 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 011413 aa 6 00144 2521 00 spri2 pr6|100 011414 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 011415 aa 6 00146 2521 00 spri2 pr6|102 011416 aa 6 00136 6211 00 eax1 pr6|94 011417 aa 020000 4310 07 fld 8192,dl 011420 aa 6 00044 3701 20 epp4 pr6|36,* 011421 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 011422 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1222 if index (argument, "-") = 1 then /* a control argument */ if (argument = "-all") | (argument = "-a") then list_all = "1"b; 011423 aa 6 00040 3735 20 epp7 pr6|32,* 011424 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 011425 aa 7 00106 2351 00 lda pr7|70 argument_lth 011426 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 011427 aa 5 00000 00 0005 desc9a pr5|0,al argument 011430 aa 055000 00 0001 desc9a 23040,1 011431 aa 6 00056 0001 00 arg pr6|46 011432 aa 6 00056 2361 00 ldq pr6|46 011433 aa 000002 6070 04 ttf 2,ic 011435 011434 aa 000001 3360 07 lcq 1,dl 011435 aa 000001 0760 07 adq 1,dl 011436 aa 000001 1160 07 cmpq 1,dl 011437 aa 000064 6010 04 tnz 52,ic 011523 011440 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 011441 aa 5 00000 00 0005 desc9a pr5|0,al argument 011442 aa 767103 00 0004 desc9a -4541,4 000543 = 055141154154 011443 aa 000005 6000 04 tze 5,ic 011450 011444 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 011445 aa 5 00000 00 0005 desc9a pr5|0,al argument 011446 aa 003672 00 0002 desc9a 1978,2 015336 = 055141000000 011447 aa 000004 6010 04 tnz 4,ic 011453 011450 aa 400000 2350 03 lda 131072,du 011451 aa 6 00103 7551 00 sta pr6|67 list_all 011452 aa 000105 7100 04 tra 69,ic 011557 STATEMENT 1 ON LINE 1227 else if argument = "-meters" then display_meters = "1"b; 011453 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 011454 aa 5 00000 00 0005 desc9a pr5|0,al argument 011455 aa 767165 00 0007 desc9a -4491,7 000640 = 055155145164 011456 aa 000004 6010 04 tnz 4,ic 011462 011457 aa 400000 2350 03 lda 131072,du 011460 aa 6 00104 7551 00 sta pr6|68 display_meters 011461 aa 000076 7100 04 tra 62,ic 011557 STATEMENT 1 ON LINE 1229 else if argument = "-no_meters" then display_meters = "0"b; 011462 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 011463 aa 5 00000 00 0005 desc9a pr5|0,al argument 011464 aa 767217 00 0012 desc9a -4465,10 000701 = 055156157137 011465 aa 000003 6010 04 tnz 3,ic 011470 011466 aa 6 00104 4501 00 stz pr6|68 display_meters 011467 aa 000070 7100 04 tra 56,ic 011557 STATEMENT 1 ON LINE 1232 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 011470 aa 7 00106 2361 00 ldq pr7|70 argument_lth 011471 aa 526000 2760 03 orq 175104,du 011472 aa 6 00117 7561 00 stq pr6|79 011473 aa 767074 2350 04 lda -4548,ic 000567 = 042136141042 011474 aa 6 00166 7551 00 sta pr6|118 011475 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011476 aa 6 00172 2521 00 spri2 pr6|122 011477 aa 6 00044 3701 20 epp4 pr6|36,* 011500 la 4 00022 3521 20 epp2 pr4|18,* error_table_$badopt 011501 aa 6 00174 2521 00 spri2 pr6|124 011502 aa 6 00166 3521 00 epp2 pr6|118 011503 aa 6 00176 2521 00 spri2 pr6|126 011504 aa 5 00000 3521 00 epp2 pr5|0 argument 011505 aa 6 00200 2521 00 spri2 pr6|128 011506 aa 767125 3520 04 epp2 -4523,ic 000633 = 464000000000 011507 aa 6 00202 2521 00 spri2 pr6|130 011510 aa 767126 3520 04 epp2 -4522,ic 000636 = 404000000043 011511 aa 6 00204 2521 00 spri2 pr6|132 011512 aa 767054 3520 04 epp2 -4564,ic 000566 = 524000000004 011513 aa 6 00206 2521 00 spri2 pr6|134 011514 aa 6 00117 3521 00 epp2 pr6|79 011515 aa 6 00210 2521 00 spri2 pr6|136 011516 aa 6 00170 6211 00 eax1 pr6|120 011517 aa 020000 4310 07 fld 8192,dl 011520 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011521 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 011522 aa 000035 7100 04 tra 29,ic 011557 STATEMENT 1 ON LINE 1234 else /* a non-control argument: must be a control point ID */ do; STATEMENT 1 ON LINE 1236 call cv_string_to_control_point_id (); 011523 aa 000001 7270 07 lxl7 1,dl 011524 aa 6 00056 6211 00 eax1 pr6|46 011525 aa 000000 4310 07 fld 0,dl 011526 aa 772612 3520 04 epp2 -2678,ic 004340 = 000220627000 011527 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1237 do i = 1 to n_control_points; 011530 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011531 aa 6 00115 7561 00 stq pr6|77 011532 aa 000001 2360 07 ldq 1,dl 011533 aa 6 00105 7561 00 stq pr6|69 i 011534 aa 6 00105 2361 00 ldq pr6|69 i 011535 aa 6 00115 1161 00 cmpq pr6|77 011536 aa 000012 6054 04 tpnz 10,ic 011550 STATEMENT 1 ON LINE 1238 if cpd_ptr_list (i) = cpd_ptr then go to PARSE_NEXT_ARGUMENT; 011537 aa 000001 7360 00 qls 1 011540 aa 6 00100 3735 20 epp7 pr6|64,* cpd_ptr_list_ptr 011541 aa 7 77776 2371 06 ldaq pr7|-2,ql cpd_ptr_list 011542 aa 6 00040 3715 20 epp5 pr6|32,* 011543 aa 5 00334 6771 00 eraq pr5|220 cpd_ptr 011544 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 011545 aa 000012 6000 04 tze 10,ic 011557 STATEMENT 1 ON LINE 1240 end; 011546 aa 6 00105 0541 00 aos pr6|69 i 011547 aa 777765 7100 04 tra -11,ic 011534 STATEMENT 1 ON LINE 1241 n_control_points = n_control_points + 1; 011550 aa 6 00102 0541 00 aos pr6|66 n_control_points STATEMENT 1 ON LINE 1242 cpd_ptr_list (n_control_points) = cpd_ptr; 011551 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011552 aa 000001 7360 00 qls 1 011553 aa 6 00040 3735 20 epp7 pr6|32,* 011554 aa 7 00334 3735 20 epp7 pr7|220,* cpd_ptr 011555 aa 6 00100 3715 20 epp5 pr6|64,* cpd_ptr_list_ptr 011556 aa 5 77776 6535 06 spri7 pr5|-2,ql cpd_ptr_list STATEMENT 1 ON LINE 1243 end; STATEMENT 1 ON LINE 1245 PARSE_NEXT_ARGUMENT: end; 011557 aa 6 00040 3735 20 epp7 pr6|32,* 011560 aa 7 00110 0541 00 aos pr7|72 argument_idx 011561 aa 777621 7100 04 tra -111,ic 011402 STATEMENT 1 ON LINE 1248 if list_all & (n_control_points > 0) then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, """-all"" and control point IDs."); 011562 aa 6 00103 2351 00 lda pr6|67 list_all 011563 aa 000030 6000 04 tze 24,ic 011613 011564 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011565 aa 000026 6044 04 tmoz 22,ic 011613 011566 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011567 aa 767340 00 0040 desc9a -4384,32 001126 = 042055141154 011570 aa 6 00126 00 0040 desc9a pr6|86,32 011571 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011572 aa 6 00152 2521 00 spri2 pr6|106 011573 aa 6 00044 3701 20 epp4 pr6|36,* 011574 la 4 00024 3521 20 epp2 pr4|20,* error_table_$inconsistent 011575 aa 6 00154 2521 00 spri2 pr6|108 011576 aa 6 00126 3521 00 epp2 pr6|86 011577 aa 6 00156 2521 00 spri2 pr6|110 011600 aa 767033 3520 04 epp2 -4581,ic 000633 = 464000000000 011601 aa 6 00160 2521 00 spri2 pr6|112 011602 aa 767034 3520 04 epp2 -4580,ic 000636 = 404000000043 011603 aa 6 00162 2521 00 spri2 pr6|114 011604 aa 766736 3520 04 epp2 -4642,ic 000542 = 524000000035 011605 aa 6 00164 2521 00 spri2 pr6|116 011606 aa 6 00150 6211 00 eax1 pr6|104 011607 aa 014000 4310 07 fld 6144,dl 011610 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011611 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 011612 aa 000031 7100 04 tra 25,ic 011643 STATEMENT 1 ON LINE 1251 else if ^list_all & (n_control_points = 0) then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "At least one control point ID or ""-all"" must be specified."); 011613 aa 400000 3150 03 cana 131072,du 011614 aa 000027 6010 04 tnz 23,ic 011643 011615 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011616 aa 000025 6010 04 tnz 21,ic 011643 011617 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011620 aa 770105 00 0074 desc9a -4027,60 001724 = 101164040154 011621 aa 6 00170 00 0074 desc9a pr6|120,60 011622 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 011623 aa 6 00152 2521 00 spri2 pr6|106 011624 aa 6 00044 3701 20 epp4 pr6|36,* 011625 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 011626 aa 6 00154 2521 00 spri2 pr6|108 011627 aa 6 00170 3521 00 epp2 pr6|120 011630 aa 6 00156 2521 00 spri2 pr6|110 011631 aa 767002 3520 04 epp2 -4606,ic 000633 = 464000000000 011632 aa 6 00160 2521 00 spri2 pr6|112 011633 aa 767003 3520 04 epp2 -4605,ic 000636 = 404000000043 011634 aa 6 00162 2521 00 spri2 pr6|114 011635 aa 766760 3520 04 epp2 -4624,ic 000615 = 524000000072 011636 aa 6 00164 2521 00 spri2 pr6|116 011637 aa 6 00150 6211 00 eax1 pr6|104 011640 aa 014000 4310 07 fld 6144,dl 011641 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 011642 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1258 if display_meters & (list_all | (n_control_points > 1)) then do; 011643 aa 6 00104 2351 00 lda pr6|68 display_meters 011644 aa 000033 6000 04 tze 27,ic 011677 011645 aa 6 00103 2351 00 lda pr6|67 list_all 011646 aa 000004 6010 04 tnz 4,ic 011652 011647 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011650 aa 000001 1160 07 cmpq 1,dl 011651 aa 000026 6044 04 tmoz 22,ic 011677 STATEMENT 1 ON LINE 1260 call ioa_ ("Scheduler overhead:"); 011652 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011653 aa 767111 00 0024 desc9a -4535,20 000763 = 123143150145 011654 aa 6 00120 00 0024 desc9a pr6|80,20 011655 aa 6 00120 3521 00 epp2 pr6|80 011656 aa 6 00130 2521 00 spri2 pr6|88 011657 aa 766662 3520 04 epp2 -4686,ic 000541 = 524000000023 011660 aa 6 00132 2521 00 spri2 pr6|90 011661 aa 6 00126 6211 00 eax1 pr6|86 011662 aa 004000 4310 07 fld 2048,dl 011663 aa 6 00044 3701 20 epp4 pr6|36,* 011664 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 011665 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1261 call display_metering_data (addr (cpm_data_$global_meters.overhead)); 011666 aa 6 00044 3701 20 epp4 pr6|36,* 011667 la 4 00204 3735 20 epp7 pr4|132,* cpm_data_$global_meters.overhead 011670 aa 6 00212 6535 00 spri7 pr6|138 011671 aa 6 00212 3521 00 epp2 pr6|138 011672 aa 6 00122 2521 00 spri2 pr6|82 011673 aa 6 00120 6211 00 eax1 pr6|80 011674 aa 004000 4310 07 fld 2048,dl 011675 aa 000343 3520 04 epp2 227,ic 012240 = 000260627000 011676 aa 0 00625 7001 00 tsx0 pr0|405 call_int_this STATEMENT 1 ON LINE 1262 end; STATEMENT 1 ON LINE 1264 if list_all | (n_control_points > 1) then do; 011677 aa 6 00103 2351 00 lda pr6|67 list_all 011700 aa 000004 6010 04 tnz 4,ic 011704 011701 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011702 aa 000001 1160 07 cmpq 1,dl 011703 aa 000026 6044 04 tmoz 22,ic 011731 STATEMENT 1 ON LINE 1266 call ioa_ ("^4tID^12t(Long ID)^25tDepth^33tState^51tComment"); 011704 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011705 aa 767666 00 0060 desc9a -4170,48 001572 = 136064164111 011706 aa 6 00150 00 0060 desc9a pr6|104,48 011707 aa 6 00150 3521 00 epp2 pr6|104 011710 aa 6 00122 2521 00 spri2 pr6|82 011711 aa 766627 3520 04 epp2 -4713,ic 000540 = 524000000057 011712 aa 6 00124 2521 00 spri2 pr6|84 011713 aa 6 00120 6211 00 eax1 pr6|80 011714 aa 004000 4310 07 fld 2048,dl 011715 aa 6 00044 3701 20 epp4 pr6|36,* 011716 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 011717 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1267 call ioa_ (""); 011720 aa 6 00117 3521 00 epp2 pr6|79 011721 aa 6 00122 2521 00 spri2 pr6|82 011722 aa 766615 3520 04 epp2 -4723,ic 000537 = 524000000000 011723 aa 6 00124 2521 00 spri2 pr6|84 011724 aa 6 00120 6211 00 eax1 pr6|80 011725 aa 004000 4310 07 fld 2048,dl 011726 aa 6 00044 3701 20 epp4 pr6|36,* 011727 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 011730 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1268 end; STATEMENT 1 ON LINE 1270 if list_all /* list all control points */ then call list_all_control_points (addr (cpm_data_$root_control_point_data), 0); 011731 aa 6 00103 2351 00 lda pr6|67 list_all 011732 aa 000016 6000 04 tze 14,ic 011750 011733 aa 6 00044 3701 20 epp4 pr6|36,* 011734 la 4 00200 3735 20 epp7 pr4|128,* cpm_data_$root_control_point_data 011735 aa 6 00212 6535 00 spri7 pr6|138 011736 aa 6 00117 4501 00 stz pr6|79 011737 aa 6 00212 3521 00 epp2 pr6|138 011740 aa 6 00130 2521 00 spri2 pr6|88 011741 aa 6 00117 3521 00 epp2 pr6|79 011742 aa 6 00132 2521 00 spri2 pr6|90 011743 aa 6 00126 6211 00 eax1 pr6|86 011744 aa 010000 4310 07 fld 4096,dl 011745 aa 000042 3520 04 epp2 34,ic 012007 = 000120627000 011746 aa 0 00625 7001 00 tsx0 pr0|405 call_int_this 011747 aa 000027 7100 04 tra 23,ic 011776 STATEMENT 1 ON LINE 1273 else /* list only the ones specificly requested */ do i = 1 to n_control_points; 011750 aa 6 00102 2361 00 ldq pr6|66 n_control_points 011751 aa 6 00116 7561 00 stq pr6|78 011752 aa 000001 2360 07 ldq 1,dl 011753 aa 6 00105 7561 00 stq pr6|69 i 011754 aa 6 00105 2361 00 ldq pr6|69 i 011755 aa 6 00116 1161 00 cmpq pr6|78 011756 aa 000020 6054 04 tpnz 16,ic 011776 STATEMENT 1 ON LINE 1275 call list_control_point (cpd_ptr_list (i), -1); 011757 aa 000001 7360 00 qls 1 011760 aa 000000 6270 06 eax7 0,ql 011761 aa 000001 3360 07 lcq 1,dl 011762 aa 6 00117 7561 00 stq pr6|79 011763 aa 6 00100 3735 20 epp7 pr6|64,* cpd_ptr_list_ptr 011764 aa 7 77776 3521 17 epp2 pr7|-2,7 cpd_ptr_list 011765 aa 6 00130 2521 00 spri2 pr6|88 011766 aa 6 00117 3521 00 epp2 pr6|79 011767 aa 6 00132 2521 00 spri2 pr6|90 011770 aa 6 00126 6211 00 eax1 pr6|86 011771 aa 010000 4310 07 fld 4096,dl 011772 aa 000071 3520 04 epp2 57,ic 012063 = 000220627000 011773 aa 0 00625 7001 00 tsx0 pr0|405 call_int_this STATEMENT 1 ON LINE 1276 end; 011774 aa 6 00105 0541 00 aos pr6|69 i 011775 aa 777757 7100 04 tra -17,ic 011754 STATEMENT 1 ON LINE 1278 free cpd_ptr_list in (system_area); 011776 aa 6 00040 3735 20 epp7 pr6|32,* 011777 aa 7 00107 2361 00 ldq pr7|71 n_arguments 012000 aa 000001 7360 00 qls 1 012001 aa 6 00100 3715 00 epp5 pr6|64 cpd_ptr_list_ptr 012002 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 1279 cpd_ptr_list_ptr = null (); 012003 aa 766667 2370 04 ldaq -4681,ic 000672 = 077777000043 000001000000 012004 aa 6 00100 7571 00 staq pr6|64 cpd_ptr_list_ptr STATEMENT 1 ON LINE 1281 return; 012005 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1407 end list; BEGIN PROCEDURE list_all_control_points ENTRY TO list_all_control_points STATEMENT 1 ON LINE 1287 list_all_control_points: procedure (p_cpd_ptr, p_depth) recursive; 012006 da 001277200000 012007 aa 000120 6270 00 eax7 80 012010 aa 7 00034 3521 20 epp2 pr7|28,* 012011 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 012012 aa 000004000000 012013 aa 000000000000 STATEMENT 1 ON LINE 1298 call list_control_point (p_cpd_ptr, p_depth); 012014 aa 6 00032 3735 20 epp7 pr6|26,* 012015 aa 7 00002 3521 20 epp2 pr7|2,* p_cpd_ptr 012016 aa 6 00104 2521 00 spri2 pr6|68 012017 aa 7 00004 3521 20 epp2 pr7|4,* p_depth 012020 aa 6 00106 2521 00 spri2 pr6|70 012021 aa 000001 7270 07 lxl7 1,dl 012022 aa 6 00102 6211 00 eax1 pr6|66 012023 aa 010000 4310 07 fld 4096,dl 012024 aa 000037 3520 04 epp2 31,ic 012063 = 000220627000 012025 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1300 do child_cpd_ptr = p_cpd.first_child repeat (child_cpd.next_peer) while (child_cpd_ptr ^= null ()); 012026 aa 6 00032 3735 20 epp7 pr6|26,* 012027 aa 7 00002 3715 20 epp5 pr7|2,* p_cpd_ptr 012030 aa 5 00000 3715 20 epp5 pr5|0,* p_cpd_ptr 012031 aa 5 00024 3535 20 epp3 pr5|20,* p_cpd.first_child 012032 aa 6 00100 2535 00 spri3 pr6|64 child_cpd_ptr 012033 aa 000000 0110 03 nop 0,du 012034 aa 6 00100 2371 00 ldaq pr6|64 child_cpd_ptr 012035 aa 766635 6770 04 eraq -4707,ic 000672 = 077777000043 000001000000 012036 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 012037 aa 000022 6000 04 tze 18,ic 012061 STATEMENT 1 ON LINE 1301 call list_all_control_points (child_cpd_ptr, (p_depth + 1)); 012040 aa 6 00032 3735 20 epp7 pr6|26,* 012041 aa 7 00004 2361 20 ldq pr7|4,* p_depth 012042 aa 000001 0760 07 adq 1,dl 012043 aa 6 00112 7561 00 stq pr6|74 012044 aa 6 00100 3521 00 epp2 pr6|64 child_cpd_ptr 012045 aa 6 00104 2521 00 spri2 pr6|68 012046 aa 6 00112 3521 00 epp2 pr6|74 012047 aa 6 00106 2521 00 spri2 pr6|70 012050 aa 000001 7270 07 lxl7 1,dl 012051 aa 6 00102 6211 00 eax1 pr6|66 012052 aa 010000 4310 07 fld 4096,dl 012053 aa 777734 3520 04 epp2 -36,ic 012007 = 000120627000 012054 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1302 end; 012055 aa 6 00100 3735 20 epp7 pr6|64,* child_cpd_ptr 012056 aa 7 00022 3735 20 epp7 pr7|18,* child_cpd.next_peer 012057 aa 6 00100 6535 00 spri7 pr6|64 child_cpd_ptr 012060 aa 777754 7100 04 tra -20,ic 012034 STATEMENT 1 ON LINE 1304 return; 012061 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1306 end list_all_control_points; END PROCEDURE list_all_control_points BEGIN PROCEDURE list_control_point ENTRY TO list_control_point STATEMENT 1 ON LINE 1312 list_control_point: procedure (p_cpd_ptr, p_depth); 012062 da 001307200000 012063 aa 000220 6270 00 eax7 144 012064 aa 7 00034 3521 20 epp2 pr7|28,* 012065 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 012066 aa 000004000000 012067 aa 000000000000 STATEMENT 1 ON LINE 1326 if p_depth = -1 then do; 012070 aa 6 00032 3735 20 epp7 pr6|26,* 012071 aa 7 00004 2361 20 ldq pr7|4,* p_depth 012072 aa 003251 1160 04 cmpq 1705,ic 015343 = 777777777777 012073 aa 000021 6010 04 tnz 17,ic 012114 STATEMENT 1 ON LINE 1328 depth = 0; 012074 aa 6 00102 4501 00 stz pr6|66 depth STATEMENT 1 ON LINE 1329 do parent_cpd_ptr = p_cpd.parent repeat (parent_cpd.parent) while (parent_cpd_ptr ^= null ()); 012075 aa 7 00002 3715 20 epp5 pr7|2,* p_cpd_ptr 012076 aa 5 00000 3715 20 epp5 pr5|0,* p_cpd_ptr 012077 aa 5 00016 3535 20 epp3 pr5|14,* p_cpd.parent 012100 aa 6 00100 2535 00 spri3 pr6|64 parent_cpd_ptr 012101 aa 000000 0110 03 nop 0,du 012102 aa 6 00100 2371 00 ldaq pr6|64 parent_cpd_ptr 012103 aa 766567 6770 04 eraq -4745,ic 000672 = 077777000043 000001000000 012104 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 012105 aa 000010 6000 04 tze 8,ic 012115 STATEMENT 1 ON LINE 1330 depth = depth + 1; 012106 aa 6 00102 0541 00 aos pr6|66 depth STATEMENT 1 ON LINE 1331 end; 012107 aa 6 00100 3735 20 epp7 pr6|64,* parent_cpd_ptr 012110 aa 7 00016 3735 20 epp7 pr7|14,* parent_cpd.parent 012111 aa 6 00100 6535 00 spri7 pr6|64 parent_cpd_ptr 012112 aa 777770 7100 04 tra -8,ic 012102 STATEMENT 1 ON LINE 1332 end; 012113 aa 000002 7100 04 tra 2,ic 012115 STATEMENT 1 ON LINE 1334 else depth = p_depth; 012114 aa 6 00102 7561 00 stq pr6|66 depth STATEMENT 1 ON LINE 1336 call ioa_ ("^[*^; ^]^6.3b^9t(^12.3b)^27t^3d^33t^a^46t^a", (p_cpd_ptr = stackbaseptr () -> stack_header.cpm_data_ptr), p_cpd.id, p_cpd.id, depth, STATE_NAMES (p_cpd.state), p_cpd.comment); 012115 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012116 aa 767310 00 0054 desc9a -4408,44 001425 = 136133052136 012117 aa 6 00130 00 0054 desc9a pr6|88,44 012120 aa 6 00000 3525 00 epbp2 pr6|0 012121 aa 6 00032 3735 20 epp7 pr6|26,* 012122 aa 7 00002 2371 20 ldaq pr7|2,* p_cpd_ptr 012123 aa 2 00004 6771 00 eraq pr2|4 stack_header.cpm_data_ptr 012124 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 012125 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 012126 aa 6 00143 7551 00 sta pr6|99 012127 aa 7 00002 3715 20 epp5 pr7|2,* p_cpd_ptr 012130 aa 5 00000 3715 20 epp5 pr5|0,* p_cpd_ptr 012131 aa 5 00002 2361 00 ldq pr5|2 p_cpd.state 012132 aa 000002 7360 00 qls 2 012133 aa 6 00130 3521 00 epp2 pr6|88 012134 aa 6 00146 2521 00 spri2 pr6|102 012135 aa 6 00143 3521 00 epp2 pr6|99 012136 aa 6 00150 2521 00 spri2 pr6|104 012137 aa 5 00000 3521 00 epp2 pr5|0 p_cpd.id 012140 aa 6 00152 2521 00 spri2 pr6|106 012141 aa 5 00000 3521 00 epp2 pr5|0 p_cpd.id 012142 aa 6 00154 2521 00 spri2 pr6|108 012143 aa 6 00102 3521 00 epp2 pr6|66 depth 012144 aa 6 00156 2521 00 spri2 pr6|110 012145 aa 6 00040 3535 20 epp3 pr6|32,* 012146 aa 3 00040 3535 20 epp3 pr3|32,* 012147 aa 3 00261 3521 06 epp2 pr3|177,ql STATE_NAMES 012150 aa 6 00160 2521 00 spri2 pr6|112 012151 aa 5 00040 3521 00 epp2 pr5|32 p_cpd.comment 012152 aa 6 00162 2521 00 spri2 pr6|114 012153 aa 766401 3520 04 epp2 -4863,ic 000554 = 524000000053 012154 aa 6 00164 2521 00 spri2 pr6|116 012155 aa 766435 3520 04 epp2 -4835,ic 000612 = 514000000001 012156 aa 6 00166 2521 00 spri2 pr6|118 012157 aa 766455 3520 04 epp2 -4819,ic 000634 = 514000000044 012160 aa 6 00170 2521 00 spri2 pr6|120 012161 aa 6 00172 2521 00 spri2 pr6|122 012162 aa 766447 3520 04 epp2 -4825,ic 000631 = 404000000021 012163 aa 6 00174 2521 00 spri2 pr6|124 012164 aa 766352 3520 04 epp2 -4886,ic 000536 = 530000000014 012165 aa 6 00176 2521 00 spri2 pr6|126 012166 aa 766347 3520 04 epp2 -4889,ic 000535 = 524000000100 012167 aa 6 00200 2521 00 spri2 pr6|128 012170 aa 6 00144 6211 00 eax1 pr6|100 012171 aa 034000 4310 07 fld 14336,dl 012172 aa 6 00044 3701 20 epp4 pr6|36,* 012173 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 012174 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1339 if display_meters & (p_cpd.state > CPM_DESTROYED) then do; 012175 aa 6 00040 3735 20 epp7 pr6|32,* 012176 aa 7 00104 2351 00 lda pr7|68 display_meters 012177 aa 000037 6000 04 tze 31,ic 012236 012200 aa 6 00032 3715 20 epp5 pr6|26,* 012201 aa 5 00002 3535 20 epp3 pr5|2,* p_cpd_ptr 012202 aa 3 00000 3535 20 epp3 pr3|0,* p_cpd_ptr 012203 aa 3 00002 2361 00 ldq pr3|2 p_cpd.state 012204 aa 000032 6044 04 tmoz 26,ic 012236 STATEMENT 1 ON LINE 1341 cpma.version = CONTROL_POINT_METERS_ARGUMENT_VERSION_1; 012205 aa 765575 2370 04 ldaq -5251,ic 000002 = 143160155141 137060060061 012206 aa 6 00104 7571 00 staq pr6|68 cpma.version STATEMENT 1 ON LINE 1342 call cpm_$get_control_point_meters (p_cpd.id, addr (cpma), (0)); 012207 aa 6 00104 3515 00 epp1 pr6|68 cpma 012210 aa 6 00202 2515 00 spri1 pr6|130 012211 aa 6 00143 4501 00 stz pr6|99 012212 aa 3 00000 3521 00 epp2 pr3|0 p_cpd.id 012213 aa 6 00132 2521 00 spri2 pr6|90 012214 aa 6 00202 3521 00 epp2 pr6|130 012215 aa 6 00134 2521 00 spri2 pr6|92 012216 aa 6 00143 3521 00 epp2 pr6|99 012217 aa 6 00136 2521 00 spri2 pr6|94 012220 aa 6 00130 6211 00 eax1 pr6|88 012221 aa 014000 4310 07 fld 6144,dl 012222 aa 6 00044 3701 20 epp4 pr6|36,* 012223 la 4 00174 3521 20 epp2 pr4|124,* cpm_$get_control_point_meters 012224 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1343 call display_metering_data (addr (cpma.meters)); 012225 aa 6 00106 3735 00 epp7 pr6|70 cpma.meters 012226 aa 6 00202 6535 00 spri7 pr6|130 012227 aa 6 00202 3521 00 epp2 pr6|130 012230 aa 6 00132 2521 00 spri2 pr6|90 012231 aa 000001 7270 07 lxl7 1,dl 012232 aa 6 00130 6211 00 eax1 pr6|88 012233 aa 004000 4310 07 fld 2048,dl 012234 aa 000004 3520 04 epp2 4,ic 012240 = 000260627000 012235 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1344 end; STATEMENT 1 ON LINE 1346 return; 012236 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1348 end list_control_point; END PROCEDURE list_control_point BEGIN PROCEDURE display_metering_data ENTRY TO display_metering_data STATEMENT 1 ON LINE 1354 display_metering_data: procedure (p_meters_ptr); 012237 da 001320200000 012240 aa 000260 6270 00 eax7 176 012241 aa 7 00034 3521 20 epp2 pr7|28,* 012242 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 012243 aa 000002000000 012244 aa 000000000000 STATEMENT 1 ON LINE 1360 call ioa_ ("^11tRuns - ^6d^46tElapsed time - ^a", p_meters.n_schedules, format_time (p_meters.real_time)); 012245 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012246 aa 766762 00 0044 desc9a -4622,36 001227 = 136061061164 012247 aa 6 00120 00 0044 desc9a pr6|80,36 012250 aa 6 00032 3735 20 epp7 pr6|26,* 012251 aa 7 00002 3715 20 epp5 pr7|2,* p_meters_ptr 012252 aa 5 00000 3715 20 epp5 pr5|0,* p_meters_ptr 012253 aa 5 00002 3521 00 epp2 pr5|2 p_meters.real_time 012254 aa 6 00140 2521 00 spri2 pr6|96 012255 aa 6 00132 3521 00 epp2 pr6|90 012256 aa 6 00142 2521 00 spri2 pr6|98 012257 aa 6 00136 3521 00 epp2 pr6|94 012260 aa 010000 4310 07 fld 4096,dl 012261 aa 2 00000 7571 00 staq pr2|0 012262 aa 000154 6700 04 tsp4 108,ic 012436 012263 aa 6 00120 3521 00 epp2 pr6|80 012264 aa 6 00150 2521 00 spri2 pr6|104 012265 aa 6 00032 3735 20 epp7 pr6|26,* 012266 aa 7 00002 3715 20 epp5 pr7|2,* p_meters_ptr 012267 aa 5 00000 3521 20 epp2 pr5|0,* p_meters.n_schedules 012270 aa 6 00152 2521 00 spri2 pr6|106 012271 aa 6 00132 3521 00 epp2 pr6|90 012272 aa 6 00154 2521 00 spri2 pr6|108 012273 aa 766323 3520 04 epp2 -4909,ic 000616 = 524000000043 012274 aa 6 00156 2521 00 spri2 pr6|110 012275 aa 766334 3520 04 epp2 -4900,ic 000631 = 404000000021 012276 aa 6 00160 2521 00 spri2 pr6|112 012277 aa 766235 3520 04 epp2 -4963,ic 000534 = 524000000020 012300 aa 6 00162 2521 00 spri2 pr6|114 012301 aa 6 00146 6211 00 eax1 pr6|102 012302 aa 014000 4310 07 fld 6144,dl 012303 aa 6 00044 3701 20 epp4 pr6|36,* 012304 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 012305 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1362 call ioa_ ("^11tCPU time - ^a^46tPage Faults - ^6d", format_time (p_meters.virtual_cpu_time), p_meters.page_faults); 012306 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012307 aa 767010 00 0050 desc9a -4600,40 001316 = 136061061164 012310 aa 6 00146 00 0050 desc9a pr6|102,40 012311 aa 6 00032 3735 20 epp7 pr6|26,* 012312 aa 7 00002 3715 20 epp5 pr7|2,* p_meters_ptr 012313 aa 5 00000 3715 20 epp5 pr5|0,* p_meters_ptr 012314 aa 5 00014 3521 00 epp2 pr5|12 p_meters.virtual_cpu_time 012315 aa 6 00140 2521 00 spri2 pr6|96 012316 aa 6 00132 3521 00 epp2 pr6|90 012317 aa 6 00142 2521 00 spri2 pr6|98 012320 aa 6 00136 3521 00 epp2 pr6|94 012321 aa 010000 4310 07 fld 4096,dl 012322 aa 2 00000 7571 00 staq pr2|0 012323 aa 000113 6700 04 tsp4 75,ic 012436 012324 aa 6 00146 3521 00 epp2 pr6|102 012325 aa 6 00166 2521 00 spri2 pr6|118 012326 aa 6 00132 3521 00 epp2 pr6|90 012327 aa 6 00170 2521 00 spri2 pr6|120 012330 aa 6 00032 3735 20 epp7 pr6|26,* 012331 aa 7 00002 3715 20 epp5 pr7|2,* p_meters_ptr 012332 aa 5 00000 3715 20 epp5 pr5|0,* p_meters_ptr 012333 aa 5 00012 3521 00 epp2 pr5|10 p_meters.page_faults 012334 aa 6 00172 2521 00 spri2 pr6|122 012335 aa 766176 3520 04 epp2 -4994,ic 000533 = 524000000046 012336 aa 6 00174 2521 00 spri2 pr6|124 012337 aa 766175 3520 04 epp2 -4995,ic 000534 = 524000000020 012340 aa 6 00176 2521 00 spri2 pr6|126 012341 aa 766171 3520 04 epp2 -4999,ic 000532 = 404000000042 012342 aa 6 00200 2521 00 spri2 pr6|128 012343 aa 6 00164 6211 00 eax1 pr6|116 012344 aa 014000 4310 07 fld 6144,dl 012345 aa 6 00044 3701 20 epp4 pr6|36,* 012346 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 012347 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1365 call ioa_ ("^11tSegment Faults - ^6d^46tBounds Faults - ^6d", p_meters.segment_faults, p_meters.bounds_faults); 012350 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012351 aa 767206 00 0060 desc9a -4474,48 001556 = 136061061164 012352 aa 6 00164 00 0060 desc9a pr6|116,48 012353 aa 6 00164 3521 00 epp2 pr6|116 012354 aa 6 00150 2521 00 spri2 pr6|104 012355 aa 6 00032 3735 20 epp7 pr6|26,* 012356 aa 7 00002 3715 20 epp5 pr7|2,* p_meters_ptr 012357 aa 5 00000 3715 20 epp5 pr5|0,* p_meters_ptr 012360 aa 5 00016 3521 00 epp2 pr5|14 p_meters.segment_faults 012361 aa 6 00152 2521 00 spri2 pr6|106 012362 aa 5 00017 3521 00 epp2 pr5|15 p_meters.bounds_faults 012363 aa 6 00154 2521 00 spri2 pr6|108 012364 aa 766154 3520 04 epp2 -5012,ic 000540 = 524000000057 012365 aa 6 00156 2521 00 spri2 pr6|110 012366 aa 766144 3520 04 epp2 -5020,ic 000532 = 404000000042 012367 aa 6 00160 2521 00 spri2 pr6|112 012370 aa 6 00162 2521 00 spri2 pr6|114 012371 aa 6 00146 6211 00 eax1 pr6|102 012372 aa 014000 4310 07 fld 6144,dl 012373 aa 6 00044 3701 20 epp4 pr6|36,* 012374 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 012375 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1367 call ioa_ ("^11tVTOC reads - ^6d^46tVTOC writes - ^6d", p_meters.vtoc_reads, p_meters.vtoc_writes); 012376 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012377 aa 767014 00 0054 desc9a -4596,44 001412 = 136061061164 012400 aa 6 00146 00 0054 desc9a pr6|102,44 012401 aa 6 00146 3521 00 epp2 pr6|102 012402 aa 6 00166 2521 00 spri2 pr6|118 012403 aa 6 00032 3735 20 epp7 pr6|26,* 012404 aa 7 00002 3715 20 epp5 pr7|2,* p_meters_ptr 012405 aa 5 00000 3715 20 epp5 pr5|0,* p_meters_ptr 012406 aa 5 00020 3521 00 epp2 pr5|16 p_meters.vtoc_reads 012407 aa 6 00170 2521 00 spri2 pr6|120 012410 aa 5 00021 3521 00 epp2 pr5|17 p_meters.vtoc_writes 012411 aa 6 00172 2521 00 spri2 pr6|122 012412 aa 766145 3520 04 epp2 -5019,ic 000557 = 524000000051 012413 aa 6 00174 2521 00 spri2 pr6|124 012414 aa 766116 3520 04 epp2 -5042,ic 000532 = 404000000042 012415 aa 6 00176 2521 00 spri2 pr6|126 012416 aa 6 00200 2521 00 spri2 pr6|128 012417 aa 6 00164 6211 00 eax1 pr6|116 012420 aa 014000 4310 07 fld 6144,dl 012421 aa 6 00044 3701 20 epp4 pr6|36,* 012422 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 012423 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1369 call ioa_ (""); 012424 aa 6 00131 3521 00 epp2 pr6|89 012425 aa 6 00140 2521 00 spri2 pr6|96 012426 aa 766111 3520 04 epp2 -5047,ic 000537 = 524000000000 012427 aa 6 00142 2521 00 spri2 pr6|98 012430 aa 6 00136 6211 00 eax1 pr6|94 012431 aa 004000 4310 07 fld 2048,dl 012432 aa 6 00044 3701 20 epp4 pr6|36,* 012433 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 012434 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1371 return; 012435 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1373 end display_metering_data; END PROCEDURE display_metering_data BEGIN PROCEDURE format_time ENTRY TO format_time STATEMENT 1 ON LINE 1379 format_time: procedure (p_time) returns (character (16)); 012436 aa 6 00100 6501 00 spri4 pr6|64 012437 aa 6 00102 2521 00 spri2 pr6|66 STATEMENT 1 ON LINE 1394 seconds_value = mod (p_time, MICROSECONDS_PER_MINUTE); 012440 aa 2 00002 2371 20 ldaq pr2|2,* p_time 012441 aa 765345 3520 04 epp2 -5403,ic 000006 = 000000000000 012442 aa 0 00707 7001 00 tsx0 pr0|455 mdfx4 012443 aa 6 00116 7571 00 staq pr6|78 seconds_value STATEMENT 1 ON LINE 1395 minutes_value = mod ((p_time - seconds_value), MICROSECONDS_PER_HOUR); 012444 aa 6 00102 3735 20 epp7 pr6|66,* 012445 aa 7 00002 2371 20 ldaq pr7|2,* p_time 012446 aa 6 00116 1771 00 sbaq pr6|78 seconds_value 012447 aa 765341 3520 04 epp2 -5407,ic 000010 = 000000000000 012450 aa 0 00707 7001 00 tsx0 pr0|455 mdfx4 012451 aa 6 00114 7571 00 staq pr6|76 minutes_value STATEMENT 1 ON LINE 1396 hours_value = p_time - (minutes_value + seconds_value); 012452 aa 6 00116 0771 00 adaq pr6|78 seconds_value 012453 aa 000000 5330 00 negl 0 012454 aa 7 00002 0771 20 adaq pr7|2,* p_time 012455 aa 6 00112 7571 00 staq pr6|74 hours_value STATEMENT 1 ON LINE 1398 string (formatted_time) = "000:00:00.000000"; 012456 aa 766253 2350 04 lda -4949,ic 000731 = 060060060072 012457 aa 766253 2360 04 ldq -4949,ic 000732 = 060060072060 012460 aa 6 00106 7571 00 staq pr6|70 012461 aa 766252 2350 04 lda -4950,ic 000733 = 060056060060 012462 aa 766252 2360 04 ldq -4950,ic 000734 = 060060060060 012463 aa 6 00110 7571 00 staq pr6|72 STATEMENT 1 ON LINE 1399 formatted_time.hours = divide (hours_value, MICROSECONDS_PER_HOUR, 10, 0); 012464 aa 6 00112 2371 00 ldaq pr6|74 hours_value 012465 aa 0 01265 7001 00 tsx0 pr0|693 divide_fx4 012466 aa 000000000000 012467 aa 6 00203 7561 00 stq pr6|131 012470 aa 000 100 301 500 btd (pr),(pr) 012471 aa 6 00203 00 0004 desc9a pr6|131,4 012472 aa 6 00202 01 0004 desc9ls pr6|130,4,0 012473 aa 100 004 024 500 mvne (pr),(ic),(pr) 012474 aa 6 00202 01 0004 desc9ls pr6|130,4,0 012475 aa 002610 00 0002 desc9a 1416,2 015303 = 070323000000 012476 aa 6 00106 00 0003 desc9a pr6|70,3 formatted_time.hours STATEMENT 1 ON LINE 1400 formatted_time.minutes = divide (minutes_value, MICROSECONDS_PER_MINUTE, 7, 0); 012477 aa 6 00114 2371 00 ldaq pr6|76 minutes_value 012500 aa 765306 3520 04 epp2 -5434,ic 000006 = 000000000000 012501 aa 0 01265 7001 00 tsx0 pr0|693 divide_fx4 012502 aa 000000000000 012503 aa 6 00203 7561 00 stq pr6|131 012504 aa 000 100 301 500 btd (pr),(pr) 012505 aa 6 00203 00 0004 desc9a pr6|131,4 012506 aa 6 00202 01 0003 desc9ls pr6|130,3,0 012507 aa 100 004 024 500 mvne (pr),(ic),(pr) 012510 aa 6 00202 01 0003 desc9ls pr6|130,3,0 012511 aa 002573 00 0002 desc9a 1403,2 015302 = 070322000000 012512 aa 6 00107 00 0002 desc9a pr6|71,2 formatted_time.minutes STATEMENT 1 ON LINE 1401 formatted_time.seconds = float (seconds_value) / float (MICROSECONDS_PER_SECOND); 012513 aa 765271 2370 04 ldaq -5447,ic 000004 = 000000000000 000003641100 012514 aa 216000 4110 03 lde 72704,du 012515 aa 400000 4750 03 fad 131072,du 012516 aa 6 00210 4571 00 dfst pr6|136 012517 aa 6 00116 2371 00 ldaq pr6|78 seconds_value 012520 aa 216000 4110 03 lde 72704,du 012521 aa 400000 4750 03 fad 131072,du 012522 aa 6 00210 5671 00 dfdv pr6|136 012523 aa 6 00210 4571 00 dfst pr6|136 012524 aa 6 00210 3535 00 epp3 pr6|136 012525 aa 000077 2360 07 ldq 63,dl 012526 aa 000010 7270 07 lxl7 8,dl 012527 aa 6 00204 3515 00 epp1 pr6|132 012530 aa 002551 2350 04 lda 1385,ic 015301 = 000006000010 012531 aa 000022 7260 07 lxl6 18,dl 012532 aa 6 00212 3715 00 epp5 pr6|138 012533 aa 0 01255 7001 00 tsx0 pr0|685 real_to_real_truncate_ 012534 aa 100 004 024 500 mvne (pr),(ic),(pr) 012535 aa 6 00204 01 7211 desc9ls pr6|132,9,-6 012536 aa 002544 00 0004 desc9a 1380,4 015300 = 070322207326 012537 aa 6 00107 60 0011 desc9a pr6|71(3),9 formatted_time.seconds STATEMENT 1 ON LINE 1403 return (string (formatted_time)); 012540 aa 6 00102 3735 20 epp7 pr6|66,* 012541 aa 7 00004 3715 20 epp5 pr7|4,* 012542 aa 040 100 100 500 mlr (pr),(pr),fill(040) 012543 aa 6 00106 00 0020 desc9a pr6|70,16 012544 aa 5 00000 00 0020 desc9a pr5|0,16 012545 aa 6 00100 6101 00 rtcd pr6|64 STATEMENT 1 ON LINE 1405 end format_time; END PROCEDURE format_time END PROCEDURE list BEGIN PROCEDURE probe ENTRY TO probe STATEMENT 1 ON LINE 1411 probe: procedure (); 012546 da 001323200000 012547 aa 000200 6270 00 eax7 128 012550 aa 7 00034 3521 20 epp2 pr7|28,* 012551 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 012552 aa 000000000000 012553 aa 000000000000 STATEMENT 1 ON LINE 1414 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 012554 aa 6 00040 3735 20 epp7 pr6|32,* 012555 aa 7 00107 2361 00 ldq pr7|71 n_arguments 012556 aa 000001 1160 07 cmpq 1,dl 012557 aa 000014 6000 04 tze 12,ic 012573 012560 aa 111104 2350 03 lda 37444,du 012561 aa 6 00100 7551 00 sta pr6|64 012562 aa 6 00100 3521 00 epp2 pr6|64 012563 aa 6 00104 2521 00 spri2 pr6|68 012564 aa 765771 3520 04 epp2 -5127,ic 000555 = 524000000002 012565 aa 6 00110 2521 00 spri2 pr6|72 012566 aa 000001 7270 07 lxl7 1,dl 012567 aa 6 00102 6211 00 eax1 pr6|66 012570 aa 004000 4310 07 fld 2048,dl 012571 aa 771244 3520 04 epp2 -3420,ic 004035 = 000160627000 012572 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1417 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 012573 aa 000001 2360 07 ldq 1,dl 012574 aa 6 00100 7561 00 stq pr6|64 012575 aa 6 00040 3735 20 epp7 pr6|32,* 012576 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 012577 aa 6 00114 2521 00 spri2 pr6|76 012600 aa 6 00100 3521 00 epp2 pr6|64 012601 aa 6 00116 2521 00 spri2 pr6|78 012602 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 012603 aa 6 00120 2521 00 spri2 pr6|80 012604 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 012605 aa 6 00122 2521 00 spri2 pr6|82 012606 aa 6 00112 6211 00 eax1 pr6|74 012607 aa 020000 4310 07 fld 8192,dl 012610 aa 6 00044 3701 20 epp4 pr6|36,* 012611 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 012612 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1419 call cv_string_to_control_point_id (); 012613 aa 000001 7270 07 lxl7 1,dl 012614 aa 6 00056 6211 00 eax1 pr6|46 012615 aa 000000 4310 07 fld 0,dl 012616 aa 771522 3520 04 epp2 -3246,ic 004340 = 000220627000 012617 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1421 call cpm_$generate_call_preferred (control_point_data.id, probe_caller, null (), code); 012620 aa 770667 3520 04 epp2 -3657,ic 003507 = 000540627000 012621 aa 6 00102 2521 00 spri2 pr6|66 cp.708 012622 aa 002512 2370 04 ldaq 1354,ic 015334 = 077777000043 000001000000 012623 aa 6 00104 7571 00 staq pr6|68 cp.708 012624 aa 766046 3734 24 epp7 -5082,ic* 012625 aa 6 00124 6535 00 spri7 pr6|84 012626 aa 6 00040 3715 20 epp5 pr6|32,* 012627 aa 5 00334 3521 20 epp2 pr5|220,* control_point_data.id 012630 aa 6 00114 2521 00 spri2 pr6|76 012631 aa 6 00102 3521 00 epp2 pr6|66 cp.708 012632 aa 6 00116 2521 00 spri2 pr6|78 012633 aa 6 00124 3521 00 epp2 pr6|84 012634 aa 6 00120 2521 00 spri2 pr6|80 012635 aa 5 00132 3521 00 epp2 pr5|90 code 012636 aa 6 00122 2521 00 spri2 pr6|82 012637 aa 6 00112 6211 00 eax1 pr6|74 012640 aa 020000 4310 07 fld 8192,dl 012641 aa 6 00044 3701 20 epp4 pr6|36,* 012642 la 4 00162 3521 20 epp2 pr4|114,* cpm_$generate_call_preferred 012643 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1422 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to invoke probe in the control point ^12.3b.", control_point_data.id); 012644 aa 6 00040 3735 20 epp7 pr6|32,* 012645 aa 7 00132 2361 00 ldq pr7|90 code 012646 aa 000031 6000 04 tze 25,ic 012677 012647 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012650 aa 766767 00 0064 desc9a -4617,52 001636 = 124162171151 012651 aa 6 00126 00 0064 desc9a pr6|86,52 012652 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 012653 aa 6 00146 2521 00 spri2 pr6|102 012654 aa 7 00132 3521 00 epp2 pr7|90 code 012655 aa 6 00150 2521 00 spri2 pr6|104 012656 aa 6 00126 3521 00 epp2 pr6|86 012657 aa 6 00152 2521 00 spri2 pr6|106 012660 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 012661 aa 6 00154 2521 00 spri2 pr6|108 012662 aa 765751 3520 04 epp2 -5143,ic 000633 = 464000000000 012663 aa 6 00156 2521 00 spri2 pr6|110 012664 aa 765752 3520 04 epp2 -5142,ic 000636 = 404000000043 012665 aa 6 00160 2521 00 spri2 pr6|112 012666 aa 765642 3520 04 epp2 -5214,ic 000530 = 524000000063 012667 aa 6 00162 2521 00 spri2 pr6|114 012670 aa 765744 3520 04 epp2 -5148,ic 000634 = 514000000044 012671 aa 6 00164 2521 00 spri2 pr6|116 012672 aa 6 00144 6211 00 eax1 pr6|100 012673 aa 020000 4310 07 fld 8192,dl 012674 aa 6 00044 3701 20 epp4 pr6|36,* 012675 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 012676 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1426 return; 012677 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1428 end probe; END PROCEDURE probe BEGIN PROCEDURE program_interrupt ENTRY TO program_interrupt STATEMENT 1 ON LINE 1443 program_interrupt: procedure (); 012700 da 001326200000 012701 aa 000220 6270 00 eax7 144 012702 aa 7 00034 3521 20 epp2 pr7|28,* 012703 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 012704 aa 000000000000 012705 aa 000000000000 STATEMENT 1 ON LINE 1446 if n_arguments = 0 then call display_usage_message_and_abort ("ID {-control_arg}"); 012706 aa 6 00040 3735 20 epp7 pr6|32,* 012707 aa 7 00107 2361 00 ldq pr7|71 n_arguments 012710 aa 000020 6010 04 tnz 16,ic 012730 012711 aa 766045 2370 04 ldaq -5083,ic 000756 = 111104040173 055143157156 012712 aa 6 00110 7571 00 staq pr6|72 012713 aa 766045 2370 04 ldaq -5083,ic 000760 = 164162157154 137141162147 012714 aa 6 00112 7571 00 staq pr6|74 012715 aa 175000 2350 03 lda 64000,du 012716 aa 6 00114 7551 00 sta pr6|76 012717 aa 6 00110 3521 00 epp2 pr6|72 012720 aa 6 00120 2521 00 spri2 pr6|80 012721 aa 765606 3520 04 epp2 -5242,ic 000527 = 524000000021 012722 aa 6 00124 2521 00 spri2 pr6|84 012723 aa 000001 7270 07 lxl7 1,dl 012724 aa 6 00116 6211 00 eax1 pr6|78 012725 aa 004000 4310 07 fld 2048,dl 012726 aa 771107 3520 04 epp2 -3513,ic 004035 = 000160627000 012727 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1449 system_area_ptr = get_system_free_area_ (); 012730 aa 6 00040 3735 20 epp7 pr6|32,* 012731 aa 7 00112 3521 00 epp2 pr7|74 system_area_ptr 012732 aa 6 00112 2521 00 spri2 pr6|74 012733 aa 6 00110 6211 00 eax1 pr6|72 012734 aa 004000 4310 07 fld 2048,dl 012735 aa 6 00044 3701 20 epp4 pr6|36,* 012736 la 4 00060 3521 20 epp2 pr4|48,* get_system_free_area_ 012737 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1451 pi_preferred_ptr = null (); 012740 aa 765732 2370 04 ldaq -5158,ic 000672 = 077777000043 000001000000 012741 aa 6 00040 3735 20 epp7 pr6|32,* 012742 aa 7 00120 7571 00 staq pr7|80 pi_preferred_ptr STATEMENT 1 ON LINE 1453 on cleanup begin; 012743 aa 000007 7260 07 lxl6 7,dl 012744 aa 765730 3520 04 epp2 -5160,ic 000674 = 143154145141 012745 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 012746 aa 000004 7100 04 tra 4,ic 012752 012747 aa 000100000000 012750 aa 000024 7100 04 tra 20,ic 012774 BEGIN CONDITION cleanup.8 ENTRY TO cleanup.8 STATEMENT 1 ON LINE 1453 on cleanup begin; 012751 da 001334200000 012752 aa 000100 6270 00 eax7 64 012753 aa 7 00034 3521 20 epp2 pr7|28,* 012754 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 012755 aa 000000000000 012756 aa 000000000000 STATEMENT 1 ON LINE 1455 if pi_preferred_ptr ^= null () then free pi_preferred in (system_area); 012757 aa 6 00040 3735 20 epp7 pr6|32,* 012760 aa 7 00040 3735 20 epp7 pr7|32,* 012761 aa 7 00120 2371 00 ldaq pr7|80 pi_preferred_ptr 012762 aa 765710 6770 04 eraq -5176,ic 000672 = 077777000043 000001000000 012763 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 012764 aa 000003 6000 04 tze 3,ic 012767 012765 aa 7 00120 3715 00 epp5 pr7|80 pi_preferred_ptr 012766 aa 0 01404 7001 00 tsx0 pr0|772 op_freen_ STATEMENT 1 ON LINE 1457 pi_preferred_ptr = null (); 012767 aa 765703 2370 04 ldaq -5181,ic 000672 = 077777000043 000001000000 012770 aa 6 00040 3735 20 epp7 pr6|32,* 012771 aa 7 00040 3735 20 epp7 pr7|32,* 012772 aa 7 00120 7571 00 staq pr7|80 pi_preferred_ptr STATEMENT 1 ON LINE 1458 end; 012773 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.8 STATEMENT 1 ON LINE 1460 allocate pi_preferred in (system_area) set (pi_preferred_ptr); 012774 aa 000001 2360 07 ldq 1,dl 012775 aa 6 00040 3735 20 epp7 pr6|32,* 012776 aa 7 00112 3521 20 epp2 pr7|74,* system_area 012777 aa 0 01402 7001 00 tsx0 pr0|770 op_alloc_ 013000 aa 777774 7100 04 tra -4,ic 012774 013001 aa 6 00040 3735 20 epp7 pr6|32,* 013002 aa 7 00120 2521 00 spri2 pr7|80 pi_preferred_ptr STATEMENT 1 ON LINE 1465 cpd_ptr = null (); 013003 aa 765667 2370 04 ldaq -5193,ic 000672 = 077777000043 000001000000 013004 aa 7 00334 7571 00 staq pr7|220 cpd_ptr STATEMENT 1 ON LINE 1466 pi_preferred = "1"b; 013005 aa 400000 2350 03 lda 131072,du 013006 aa 2 00000 7551 00 sta pr2|0 pi_preferred STATEMENT 1 ON LINE 1468 do argument_idx = 1 to n_arguments; 013007 aa 7 00107 2361 00 ldq pr7|71 n_arguments 013010 aa 6 00106 7561 00 stq pr6|70 013011 aa 000001 2360 07 ldq 1,dl 013012 aa 7 00110 7561 00 stq pr7|72 argument_idx 013013 aa 000000 0110 03 nop 0,du 013014 aa 6 00040 3735 20 epp7 pr6|32,* 013015 aa 7 00110 2361 00 ldq pr7|72 argument_idx 013016 aa 6 00106 1161 00 cmpq pr6|70 013017 aa 000152 6054 04 tpnz 106,ic 013171 STATEMENT 1 ON LINE 1470 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 013020 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013021 aa 6 00130 2521 00 spri2 pr6|88 013022 aa 7 00110 3521 00 epp2 pr7|72 argument_idx 013023 aa 6 00132 2521 00 spri2 pr6|90 013024 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 013025 aa 6 00134 2521 00 spri2 pr6|92 013026 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 013027 aa 6 00136 2521 00 spri2 pr6|94 013030 aa 6 00126 6211 00 eax1 pr6|86 013031 aa 020000 4310 07 fld 8192,dl 013032 aa 6 00044 3701 20 epp4 pr6|36,* 013033 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 013034 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1472 if index (argument, "-") = 1 then /* a control argument */ if argument = "-preferred" then pi_preferred = "1"b; 013035 aa 6 00040 3735 20 epp7 pr6|32,* 013036 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 013037 aa 7 00106 2351 00 lda pr7|70 argument_lth 013040 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 013041 aa 5 00000 00 0005 desc9a pr5|0,al argument 013042 aa 055000 00 0001 desc9a 23040,1 013043 aa 6 00056 0001 00 arg pr6|46 013044 aa 6 00056 2361 00 ldq pr6|46 013045 aa 000002 6070 04 ttf 2,ic 013047 013046 aa 000001 3360 07 lcq 1,dl 013047 aa 000001 0760 07 adq 1,dl 013050 aa 000001 1160 07 cmpq 1,dl 013051 aa 000051 6010 04 tnz 41,ic 013122 013052 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 013053 aa 5 00000 00 0005 desc9a pr5|0,al argument 013054 aa 765646 00 0012 desc9a -5210,10 000720 = 055160162145 013055 aa 000004 6010 04 tnz 4,ic 013061 013056 aa 400000 2350 03 lda 131072,du 013057 aa 7 00120 7551 20 sta pr7|80,* pi_preferred 013060 aa 000106 7100 04 tra 70,ic 013166 STATEMENT 1 ON LINE 1476 else if argument = "-not_preferred" then pi_preferred = "0"b; 013061 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 013062 aa 5 00000 00 0005 desc9a pr5|0,al argument 013063 aa 765664 00 0016 desc9a -5196,14 000745 = 055156157164 013064 aa 000003 6010 04 tnz 3,ic 013067 013065 aa 7 00120 4501 20 stz pr7|80,* pi_preferred 013066 aa 000100 7100 04 tra 64,ic 013166 STATEMENT 1 ON LINE 1479 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 013067 aa 7 00106 2361 00 ldq pr7|70 argument_lth 013070 aa 526000 2760 03 orq 175104,du 013071 aa 6 00115 7561 00 stq pr6|77 013072 aa 765475 2350 04 lda -5315,ic 000567 = 042136141042 013073 aa 6 00107 7551 00 sta pr6|71 013074 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013075 aa 6 00142 2521 00 spri2 pr6|98 013076 aa 6 00044 3701 20 epp4 pr6|36,* 013077 la 4 00022 3521 20 epp2 pr4|18,* error_table_$badopt 013100 aa 6 00144 2521 00 spri2 pr6|100 013101 aa 6 00107 3521 00 epp2 pr6|71 013102 aa 6 00146 2521 00 spri2 pr6|102 013103 aa 5 00000 3521 00 epp2 pr5|0 argument 013104 aa 6 00150 2521 00 spri2 pr6|104 013105 aa 765526 3520 04 epp2 -5290,ic 000633 = 464000000000 013106 aa 6 00152 2521 00 spri2 pr6|106 013107 aa 765527 3520 04 epp2 -5289,ic 000636 = 404000000043 013110 aa 6 00154 2521 00 spri2 pr6|108 013111 aa 765455 3520 04 epp2 -5331,ic 000566 = 524000000004 013112 aa 6 00156 2521 00 spri2 pr6|110 013113 aa 6 00115 3521 00 epp2 pr6|77 013114 aa 6 00160 2521 00 spri2 pr6|112 013115 aa 6 00140 6211 00 eax1 pr6|96 013116 aa 020000 4310 07 fld 8192,dl 013117 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 013120 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 013121 aa 000045 7100 04 tra 37,ic 013166 STATEMENT 1 ON LINE 1481 else /* a non-control argument: must be a control point ID */ if cpd_ptr = null () then call cv_string_to_control_point_id (); 013122 aa 7 00334 2371 00 ldaq pr7|220 cpd_ptr 013123 aa 765547 6770 04 eraq -5273,ic 000672 = 077777000043 000001000000 013124 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 013125 aa 000007 6010 04 tnz 7,ic 013134 013126 aa 000001 7270 07 lxl7 1,dl 013127 aa 6 00056 6211 00 eax1 pr6|46 013130 aa 000000 4310 07 fld 0,dl 013131 aa 771207 3520 04 epp2 -3449,ic 004340 = 000220627000 013132 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other 013133 aa 000033 7100 04 tra 27,ic 013166 STATEMENT 1 ON LINE 1485 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 013134 aa 7 00106 2361 00 ldq pr7|70 argument_lth 013135 aa 526000 2760 03 orq 175104,du 013136 aa 6 00115 7561 00 stq pr6|77 013137 aa 765430 2350 04 lda -5352,ic 000567 = 042136141042 013140 aa 6 00107 7551 00 sta pr6|71 013141 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013142 aa 6 00142 2521 00 spri2 pr6|98 013143 aa 6 00044 3701 20 epp4 pr6|36,* 013144 la 4 00030 3521 20 epp2 pr4|24,* error_table_$too_many_args 013145 aa 6 00144 2521 00 spri2 pr6|100 013146 aa 6 00107 3521 00 epp2 pr6|71 013147 aa 6 00146 2521 00 spri2 pr6|102 013150 aa 5 00000 3521 00 epp2 pr5|0 argument 013151 aa 6 00150 2521 00 spri2 pr6|104 013152 aa 765461 3520 04 epp2 -5327,ic 000633 = 464000000000 013153 aa 6 00152 2521 00 spri2 pr6|106 013154 aa 765462 3520 04 epp2 -5326,ic 000636 = 404000000043 013155 aa 6 00154 2521 00 spri2 pr6|108 013156 aa 765410 3520 04 epp2 -5368,ic 000566 = 524000000004 013157 aa 6 00156 2521 00 spri2 pr6|110 013160 aa 6 00115 3521 00 epp2 pr6|77 013161 aa 6 00160 2521 00 spri2 pr6|112 013162 aa 6 00140 6211 00 eax1 pr6|96 013163 aa 020000 4310 07 fld 8192,dl 013164 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 013165 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1486 end; 013166 aa 6 00040 3735 20 epp7 pr6|32,* 013167 aa 7 00110 0541 00 aos pr7|72 argument_idx 013170 aa 777624 7100 04 tra -108,ic 013014 STATEMENT 1 ON LINE 1488 if cpd_ptr = null () then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A control point ID must be specified."); 013171 aa 7 00334 2371 00 ldaq pr7|220 cpd_ptr 013172 aa 765500 6770 04 eraq -5312,ic 000672 = 077777000043 000001000000 013173 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 013174 aa 000025 6010 04 tnz 21,ic 013221 013175 aa 000 100 100 404 mlr (ic),(pr),fill(000) 013176 aa 766145 00 0050 desc9a -5019,40 001342 = 101040143157 013177 aa 6 00126 00 0050 desc9a pr6|86,40 013200 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013201 aa 6 00142 2521 00 spri2 pr6|98 013202 aa 6 00044 3701 20 epp4 pr6|36,* 013203 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 013204 aa 6 00144 2521 00 spri2 pr6|100 013205 aa 6 00126 3521 00 epp2 pr6|86 013206 aa 6 00146 2521 00 spri2 pr6|102 013207 aa 765424 3520 04 epp2 -5356,ic 000633 = 464000000000 013210 aa 6 00150 2521 00 spri2 pr6|104 013211 aa 765425 3520 04 epp2 -5355,ic 000636 = 404000000043 013212 aa 6 00152 2521 00 spri2 pr6|106 013213 aa 765334 3520 04 epp2 -5412,ic 000547 = 524000000045 013214 aa 6 00154 2521 00 spri2 pr6|108 013215 aa 6 00140 6211 00 eax1 pr6|96 013216 aa 014000 4310 07 fld 6144,dl 013217 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 013220 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1494 revert cleanup; 013221 aa 6 00104 4501 00 stz pr6|68 STATEMENT 1 ON LINE 1496 call cpm_$generate_call (control_point_data.id, pi_signaller, pi_preferred_ptr, code); 013222 aa 770107 3520 04 epp2 -4025,ic 003331 = 000540627000 013223 aa 6 00110 2521 00 spri2 pr6|72 cp.708 013224 aa 002110 2370 04 ldaq 1096,ic 015334 = 077777000043 000001000000 013225 aa 6 00112 7571 00 staq pr6|74 cp.708 013226 aa 6 00040 3735 20 epp7 pr6|32,* 013227 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 013230 aa 6 00130 2521 00 spri2 pr6|88 013231 aa 6 00110 3521 00 epp2 pr6|72 cp.708 013232 aa 6 00132 2521 00 spri2 pr6|90 013233 aa 7 00120 3521 00 epp2 pr7|80 pi_preferred_ptr 013234 aa 6 00134 2521 00 spri2 pr6|92 013235 aa 7 00132 3521 00 epp2 pr7|90 code 013236 aa 6 00136 2521 00 spri2 pr6|94 013237 aa 6 00126 6211 00 eax1 pr6|86 013240 aa 020000 4310 07 fld 8192,dl 013241 aa 6 00044 3701 20 epp4 pr6|36,* 013242 la 4 00160 3521 20 epp2 pr4|112,* cpm_$generate_call 013243 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1497 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to signal program_interrupt in the control point ^12.3b.", control_point_data.id); 013244 aa 6 00040 3735 20 epp7 pr6|32,* 013245 aa 7 00132 2361 00 ldq pr7|90 code 013246 aa 000031 6000 04 tze 25,ic 013277 013247 aa 000 100 100 404 mlr (ic),(pr),fill(000) 013250 aa 766552 00 0100 desc9a -4758,64 002021 = 124162171151 013251 aa 6 00140 00 0100 desc9a pr6|96,64 013252 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013253 aa 6 00164 2521 00 spri2 pr6|116 013254 aa 7 00132 3521 00 epp2 pr7|90 code 013255 aa 6 00166 2521 00 spri2 pr6|118 013256 aa 6 00140 3521 00 epp2 pr6|96 013257 aa 6 00170 2521 00 spri2 pr6|120 013260 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 013261 aa 6 00172 2521 00 spri2 pr6|122 013262 aa 765351 3520 04 epp2 -5399,ic 000633 = 464000000000 013263 aa 6 00174 2521 00 spri2 pr6|124 013264 aa 765352 3520 04 epp2 -5398,ic 000636 = 404000000043 013265 aa 6 00176 2521 00 spri2 pr6|126 013266 aa 765240 3520 04 epp2 -5472,ic 000526 = 524000000077 013267 aa 6 00200 2521 00 spri2 pr6|128 013270 aa 765344 3520 04 epp2 -5404,ic 000634 = 514000000044 013271 aa 6 00202 2521 00 spri2 pr6|130 013272 aa 6 00162 6211 00 eax1 pr6|114 013273 aa 020000 4310 07 fld 8192,dl 013274 aa 6 00044 3701 20 epp4 pr6|36,* 013275 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 013276 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1501 return; 013277 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1503 end program_interrupt; END PROCEDURE program_interrupt BEGIN PROCEDURE get_cl_intermediary ENTRY TO get_cl_intermediary STATEMENT 1 ON LINE 1507 get_cl_intermediary: procedure (); 013300 da 001344200000 013301 aa 001120 6270 00 eax7 592 013302 aa 7 00034 3521 20 epp2 pr7|28,* 013303 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 013304 aa 000000000000 013305 aa 000000000000 STATEMENT 1 ON LINE 1520 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 013306 aa 6 00040 3735 20 epp7 pr6|32,* 013307 aa 7 00107 2361 00 ldq pr7|71 n_arguments 013310 aa 000001 1160 07 cmpq 1,dl 013311 aa 000014 6000 04 tze 12,ic 013325 013312 aa 111104 2350 03 lda 37444,du 013313 aa 6 00667 7551 00 sta pr6|439 013314 aa 6 00667 3521 00 epp2 pr6|439 013315 aa 6 00672 2521 00 spri2 pr6|442 013316 aa 765237 3520 04 epp2 -5473,ic 000555 = 524000000002 013317 aa 6 00676 2521 00 spri2 pr6|446 013320 aa 000001 7270 07 lxl7 1,dl 013321 aa 6 00670 6211 00 eax1 pr6|440 013322 aa 004000 4310 07 fld 2048,dl 013323 aa 770512 3520 04 epp2 -3766,ic 004035 = 000160627000 013324 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1523 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 013325 aa 000001 2360 07 ldq 1,dl 013326 aa 6 00667 7561 00 stq pr6|439 013327 aa 6 00040 3735 20 epp7 pr6|32,* 013330 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013331 aa 6 00702 2521 00 spri2 pr6|450 013332 aa 6 00667 3521 00 epp2 pr6|439 013333 aa 6 00704 2521 00 spri2 pr6|452 013334 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 013335 aa 6 00706 2521 00 spri2 pr6|454 013336 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 013337 aa 6 00710 2521 00 spri2 pr6|456 013340 aa 6 00700 6211 00 eax1 pr6|448 013341 aa 020000 4310 07 fld 8192,dl 013342 aa 6 00044 3701 20 epp4 pr6|36,* 013343 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 013344 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1525 call cv_string_to_control_point_id (); 013345 aa 000001 7270 07 lxl7 1,dl 013346 aa 6 00056 6211 00 eax1 pr6|46 013347 aa 000000 4310 07 fld 0,dl 013350 aa 770770 3520 04 epp2 -3592,ic 004340 = 000220627000 013351 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1527 call cpm_$get_user_cl_intermediary (control_point_data.id, cl_intermediary, code); 013352 aa 6 00040 3735 20 epp7 pr6|32,* 013353 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 013354 aa 6 00672 2521 00 spri2 pr6|442 013355 aa 6 00100 3521 00 epp2 pr6|64 cl_intermediary 013356 aa 6 00674 2521 00 spri2 pr6|444 013357 aa 7 00132 3521 00 epp2 pr7|90 code 013360 aa 6 00676 2521 00 spri2 pr6|446 013361 aa 6 00670 6211 00 eax1 pr6|440 013362 aa 014000 4310 07 fld 6144,dl 013363 aa 6 00044 3701 20 epp4 pr6|36,* 013364 la 4 00154 3521 20 epp2 pr4|108,* cpm_$get_user_cl_intermediary 013365 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1528 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to get the CL intermediary of the control point ^12.3b", control_point_data.id); 013366 aa 6 00040 3735 20 epp7 pr6|32,* 013367 aa 7 00132 2361 00 ldq pr7|90 code 013370 aa 000031 6000 04 tze 25,ic 013421 013371 aa 000 100 100 404 mlr (ic),(pr),fill(000) 013372 aa 766410 00 0100 desc9a -4856,64 002001 = 124162171151 013373 aa 6 00712 00 0100 desc9a pr6|458,64 013374 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013375 aa 6 00734 2521 00 spri2 pr6|476 013376 aa 7 00132 3521 00 epp2 pr7|90 code 013377 aa 6 00736 2521 00 spri2 pr6|478 013400 aa 6 00712 3521 00 epp2 pr6|458 013401 aa 6 00740 2521 00 spri2 pr6|480 013402 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 013403 aa 6 00742 2521 00 spri2 pr6|482 013404 aa 765227 3520 04 epp2 -5481,ic 000633 = 464000000000 013405 aa 6 00744 2521 00 spri2 pr6|484 013406 aa 765230 3520 04 epp2 -5480,ic 000636 = 404000000043 013407 aa 6 00746 2521 00 spri2 pr6|486 013410 aa 765115 3520 04 epp2 -5555,ic 000525 = 524000000075 013411 aa 6 00750 2521 00 spri2 pr6|488 013412 aa 765222 3520 04 epp2 -5486,ic 000634 = 514000000044 013413 aa 6 00752 2521 00 spri2 pr6|490 013414 aa 6 00732 6211 00 eax1 pr6|474 013415 aa 020000 4310 07 fld 8192,dl 013416 aa 6 00044 3701 20 epp4 pr6|36,* 013417 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 013420 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1532 call hcs_$fs_get_path_name (codeptr (cl_intermediary), cl_intermediary_dirname, (0), cl_intermediary_ename, (0)) ; 013421 aa 6 00100 3521 20 epp2 pr6|64,* cl_intermediary 013422 aa 6 00754 2521 00 spri2 pr6|492 013423 aa 6 00667 4501 00 stz pr6|439 013424 aa 6 00756 4501 00 stz pr6|494 013425 aa 6 00754 3521 00 epp2 pr6|492 013426 aa 6 00762 2521 00 spri2 pr6|498 013427 aa 6 00605 3521 00 epp2 pr6|389 cl_intermediary_dirname 013430 aa 6 00764 2521 00 spri2 pr6|500 013431 aa 6 00667 3521 00 epp2 pr6|439 013432 aa 6 00766 2521 00 spri2 pr6|502 013433 aa 6 00657 3521 00 epp2 pr6|431 cl_intermediary_ename 013434 aa 6 00770 2521 00 spri2 pr6|504 013435 aa 6 00756 3521 00 epp2 pr6|494 013436 aa 6 00772 2521 00 spri2 pr6|506 013437 aa 765174 3520 04 epp2 -5508,ic 000633 = 464000000000 013440 aa 6 00774 2521 00 spri2 pr6|508 013441 aa 765171 3520 04 epp2 -5511,ic 000632 = 526000000250 013442 aa 6 00776 2521 00 spri2 pr6|510 013443 aa 765166 3520 04 epp2 -5514,ic 000631 = 404000000021 013444 aa 6 01000 2521 00 spri2 pr6|512 013445 aa 765162 3520 04 epp2 -5518,ic 000627 = 526000000040 013446 aa 6 01002 2521 00 spri2 pr6|514 013447 aa 765167 3520 04 epp2 -5513,ic 000636 = 404000000043 013450 aa 6 01004 2521 00 spri2 pr6|516 013451 aa 6 00760 6211 00 eax1 pr6|496 013452 aa 024000 4310 07 fld 10240,dl 013453 aa 6 00044 3701 20 epp4 pr6|36,* 013454 la 4 00066 3521 20 epp2 pr4|54,* hcs_$fs_get_path_name 013455 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1534 call get_entry_name_ (codeptr (cl_intermediary), cl_intermediary_entrypoint_name, (0), ((8)" "), (0)); 013456 aa 6 00100 3521 20 epp2 pr6|64,* cl_intermediary 013457 aa 6 00754 2521 00 spri2 pr6|492 013460 aa 6 00756 4501 00 stz pr6|494 013461 aa 001663 2350 04 lda 947,ic 015344 = 040040040040 013462 aa 001662 2360 04 ldq 946,ic 015344 = 040040040040 013463 aa 6 01006 7571 00 staq pr6|518 013464 aa 6 00667 4501 00 stz pr6|439 013465 aa 6 00754 3521 00 epp2 pr6|492 013466 aa 6 00762 2521 00 spri2 pr6|498 013467 aa 6 00505 3521 00 epp2 pr6|325 cl_intermediary_entrypoint_name 013470 aa 6 00764 2521 00 spri2 pr6|500 013471 aa 6 00756 3521 00 epp2 pr6|494 013472 aa 6 00766 2521 00 spri2 pr6|502 013473 aa 6 01006 3521 00 epp2 pr6|518 013474 aa 6 00770 2521 00 spri2 pr6|504 013475 aa 6 00667 3521 00 epp2 pr6|439 013476 aa 6 00772 2521 00 spri2 pr6|506 013477 aa 765134 3520 04 epp2 -5540,ic 000633 = 464000000000 013500 aa 6 00774 2521 00 spri2 pr6|508 013501 aa 765061 3520 04 epp2 -5583,ic 000562 = 526000000400 013502 aa 6 00776 2521 00 spri2 pr6|510 013503 aa 765056 3520 04 epp2 -5586,ic 000561 = 404000000022 013504 aa 6 01000 2521 00 spri2 pr6|512 013505 aa 765053 3520 04 epp2 -5589,ic 000560 = 524000000010 013506 aa 6 01002 2521 00 spri2 pr6|514 013507 aa 765127 3520 04 epp2 -5545,ic 000636 = 404000000043 013510 aa 6 01004 2521 00 spri2 pr6|516 013511 aa 6 00760 6211 00 eax1 pr6|496 013512 aa 024000 4310 07 fld 10240,dl 013513 aa 6 00044 3701 20 epp4 pr6|36,* 013514 la 4 00062 3521 20 epp2 pr4|50,* get_entry_name_ 013515 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1536 call ioa_$rsnpnnl ("(^a$^a, ^p)", cl_intermediary_name, (0), pathname_ (cl_intermediary_dirname, cl_intermediary_ename), cl_intermediary_entrypoint_name, environmentptr (cl_intermediary)); 013516 aa 765160 2370 04 ldaq -5520,ic 000676 = 050136141044 136141054040 013517 aa 6 00670 7571 00 staq pr6|440 013520 aa 765160 2350 04 lda -5520,ic 000700 = 136160051000 013521 aa 6 00672 7551 00 sta pr6|442 013522 aa 6 00667 4501 00 stz pr6|439 013523 aa 6 00605 3521 00 epp2 pr6|389 cl_intermediary_dirname 013524 aa 6 00714 2521 00 spri2 pr6|460 013525 aa 6 00657 3521 00 epp2 pr6|431 cl_intermediary_ename 013526 aa 6 00716 2521 00 spri2 pr6|462 013527 aa 6 01010 3521 00 epp2 pr6|520 013530 aa 6 00720 2521 00 spri2 pr6|464 013531 aa 765101 3520 04 epp2 -5567,ic 000632 = 526000000250 013532 aa 6 00722 2521 00 spri2 pr6|466 013533 aa 6 00726 2521 00 spri2 pr6|470 013534 aa 765073 3520 04 epp2 -5573,ic 000627 = 526000000040 013535 aa 6 00724 2521 00 spri2 pr6|468 013536 aa 6 00712 6211 00 eax1 pr6|458 013537 aa 014000 4310 07 fld 6144,dl 013540 aa 6 00044 3701 20 epp4 pr6|36,* 013541 la 4 00076 3521 20 epp2 pr4|62,* pathname_ 013542 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 013543 aa 6 00102 3521 20 epp2 pr6|66,* cl_intermediary 013544 aa 6 01006 2521 00 spri2 pr6|518 013545 aa 6 00670 3521 00 epp2 pr6|440 013546 aa 6 01064 2521 00 spri2 pr6|564 013547 aa 6 00105 3521 00 epp2 pr6|69 cl_intermediary_name 013550 aa 6 01066 2521 00 spri2 pr6|566 013551 aa 6 00667 3521 00 epp2 pr6|439 013552 aa 6 01070 2521 00 spri2 pr6|568 013553 aa 6 01010 3521 00 epp2 pr6|520 013554 aa 6 01072 2521 00 spri2 pr6|570 013555 aa 6 00505 3521 00 epp2 pr6|325 cl_intermediary_entrypoint_name 013556 aa 6 01074 2521 00 spri2 pr6|572 013557 aa 6 01006 3521 00 epp2 pr6|518 013560 aa 6 01076 2521 00 spri2 pr6|574 013561 aa 764743 3520 04 epp2 -5661,ic 000524 = 524000000013 013562 aa 6 01100 2521 00 spri2 pr6|576 013563 aa 764740 3520 04 epp2 -5664,ic 000523 = 530000002000 013564 aa 6 01102 2521 00 spri2 pr6|578 013565 aa 765037 3520 04 epp2 -5601,ic 000624 = 404000000005 013566 aa 6 01104 2521 00 spri2 pr6|580 013567 aa 764774 3520 04 epp2 -5636,ic 000563 = 524000000250 013570 aa 6 01106 2521 00 spri2 pr6|582 013571 aa 764771 3520 04 epp2 -5639,ic 000562 = 526000000400 013572 aa 6 01110 2521 00 spri2 pr6|584 013573 aa 765040 3520 04 epp2 -5600,ic 000633 = 464000000000 013574 aa 6 01112 2521 00 spri2 pr6|586 013575 aa 6 01062 6211 00 eax1 pr6|562 013576 aa 030000 4310 07 fld 12288,dl 013577 aa 6 00044 3701 20 epp4 pr6|36,* 013600 la 4 00074 3521 20 epp2 pr4|60,* ioa_$rsnpnnl 013601 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1540 if is_active_function /* return it into the command line */ then return_value = requote_string_ ((cl_intermediary_name)); 013602 aa 6 00040 3735 20 epp7 pr6|32,* 013603 aa 7 00103 2351 00 lda pr7|67 is_active_function 013604 aa 400000 3150 03 cana 131072,du 013605 aa 000045 6000 04 tze 37,ic 013652 013606 aa 6 00104 2361 00 ldq pr6|68 cl_intermediary_name 013607 aa 524000 2760 03 orq 174080,du 013610 aa 6 00667 7561 00 stq pr6|439 013611 aa 6 00104 2361 00 ldq pr6|68 cl_intermediary_name 013612 aa 0 00551 7001 00 tsx0 pr0|361 alloc_char_temp 013613 aa 6 00702 2521 00 spri2 pr6|450 013614 aa 6 00104 7271 00 lxl7 pr6|68 cl_intermediary_name 013615 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 013616 aa 6 00105 00 0017 desc9a pr6|69,x7 cl_intermediary_name 013617 aa 2 00000 00 0006 desc9a pr2|0,ql 013620 aa 6 00754 3521 00 epp2 pr6|492 013621 aa 6 00704 2521 00 spri2 pr6|452 013622 aa 6 00667 3521 00 epp2 pr6|439 013623 aa 6 00706 2521 00 spri2 pr6|454 013624 aa 6 00756 3521 00 epp2 pr6|494 013625 aa 6 00710 2521 00 spri2 pr6|456 013626 aa 6 00700 6211 00 eax1 pr6|448 013627 aa 010000 4310 07 fld 4096,dl 013630 aa 6 00044 3701 20 epp4 pr6|36,* 013631 la 4 00106 3521 20 epp2 pr4|70,* requote_string_ 013632 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 013633 aa 6 00756 2361 00 ldq pr6|494 013634 aa 000002 6040 04 tmi 2,ic 013636 013635 aa 777777 3760 07 anq 262143,dl 013636 aa 0 00250 3761 00 anq pr0|168 = 000077777777 013637 aa 6 00040 3735 20 epp7 pr6|32,* 013640 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 013641 aa 000002 6040 04 tmi 2,ic 013643 013642 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 013643 aa 7 00100 7561 20 stq pr7|64,* return_value 013644 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 013645 aa 6 00754 3535 20 epp3 pr6|492,* 013646 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 013647 aa 3 00000 00 0006 desc9a pr3|0,ql 013650 aa 5 00001 00 0006 desc9a pr5|1,ql return_value 013651 aa 000026 7100 04 tra 22,ic 013677 STATEMENT 1 ON LINE 1543 else call ioa_ ("The CL intermediary for the control point ^12.3b is ^a.", control_point_data.id, cl_intermediary_name); 013652 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 013653 aa 000 100 100 404 mlr (ic),(pr),fill(000) 013654 aa 766015 00 0070 desc9a -5107,56 001670 = 124150145040 013655 aa 6 00712 00 0070 desc9a pr6|458,56 013656 aa 6 00712 3521 00 epp2 pr6|458 013657 aa 6 00734 2521 00 spri2 pr6|476 013660 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 013661 aa 6 00736 2521 00 spri2 pr6|478 013662 aa 6 00105 3521 00 epp2 pr6|69 cl_intermediary_name 013663 aa 6 00740 2521 00 spri2 pr6|480 013664 aa 764636 3520 04 epp2 -5730,ic 000522 = 524000000067 013665 aa 6 00742 2521 00 spri2 pr6|482 013666 aa 764746 3520 04 epp2 -5658,ic 000634 = 514000000044 013667 aa 6 00744 2521 00 spri2 pr6|484 013670 aa 764633 3520 04 epp2 -5733,ic 000523 = 530000002000 013671 aa 6 00746 2521 00 spri2 pr6|486 013672 aa 6 00732 6211 00 eax1 pr6|474 013673 aa 014000 4310 07 fld 6144,dl 013674 aa 6 00044 3701 20 epp4 pr6|36,* 013675 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 013676 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1546 return; 013677 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1548 end get_cl_intermediary; END PROCEDURE get_cl_intermediary BEGIN PROCEDURE set_cl_intermediary ENTRY TO set_cl_intermediary STATEMENT 1 ON LINE 1552 set_cl_intermediary: procedure (); 013700 da 001354200000 013701 aa 000700 6270 00 eax7 448 013702 aa 7 00034 3521 20 epp2 pr7|28,* 013703 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 013704 aa 000000000000 013705 aa 000000000000 STATEMENT 1 ON LINE 1561 if n_arguments = 0 then call display_usage_message_and_abort ("ID {ENTRY} {-control_arg}"); 013706 aa 6 00040 3735 20 epp7 pr6|32,* 013707 aa 7 00107 2361 00 ldq pr7|71 n_arguments 013710 aa 000015 6010 04 tnz 13,ic 013725 013711 aa 000 100 100 404 mlr (ic),(pr),fill(000) 013712 aa 765143 00 0034 desc9a -5533,28 001054 = 111104040173 013713 aa 6 00512 00 0034 desc9a pr6|330,28 013714 aa 6 00512 3521 00 epp2 pr6|330 013715 aa 6 00524 2521 00 spri2 pr6|340 013716 aa 764603 3520 04 epp2 -5757,ic 000521 = 524000000031 013717 aa 6 00530 2521 00 spri2 pr6|344 013720 aa 000001 7270 07 lxl7 1,dl 013721 aa 6 00522 6211 00 eax1 pr6|338 013722 aa 004000 4310 07 fld 2048,dl 013723 aa 770112 3520 04 epp2 -4022,ic 004035 = 000160627000 013724 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1564 have_control_point_id, have_cl_intermediary, use_default_cl_intermediary = "0"b; 013725 aa 6 00505 4501 00 stz pr6|325 have_control_point_id 013726 aa 6 00506 4501 00 stz pr6|326 have_cl_intermediary 013727 aa 6 00507 4501 00 stz pr6|327 use_default_cl_intermediary STATEMENT 1 ON LINE 1566 do argument_idx = 1 to n_arguments; 013730 aa 6 00040 3735 20 epp7 pr6|32,* 013731 aa 7 00107 2361 00 ldq pr7|71 n_arguments 013732 aa 6 00510 7561 00 stq pr6|328 013733 aa 000001 2360 07 ldq 1,dl 013734 aa 7 00110 7561 00 stq pr7|72 argument_idx 013735 aa 000000 0110 03 nop 0,du 013736 aa 6 00040 3735 20 epp7 pr6|32,* 013737 aa 7 00110 2361 00 ldq pr7|72 argument_idx 013740 aa 6 00510 1161 00 cmpq pr6|328 013741 aa 000257 6054 04 tpnz 175,ic 014220 STATEMENT 1 ON LINE 1568 call ssu_$arg_ptr (sci_ptr, argument_idx, argument_ptr, argument_lth); 013742 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 013743 aa 6 00534 2521 00 spri2 pr6|348 013744 aa 7 00110 3521 00 epp2 pr7|72 argument_idx 013745 aa 6 00536 2521 00 spri2 pr6|350 013746 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 013747 aa 6 00540 2521 00 spri2 pr6|352 013750 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 013751 aa 6 00542 2521 00 spri2 pr6|354 013752 aa 6 00532 6211 00 eax1 pr6|346 013753 aa 020000 4310 07 fld 8192,dl 013754 aa 6 00044 3701 20 epp4 pr6|36,* 013755 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 013756 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1570 if index (argument, "-") = 1 then /* a control argument */ if (argument = "-default") | (argument = "-dft") then use_default_cl_intermediary = "1"b; 013757 aa 6 00040 3735 20 epp7 pr6|32,* 013760 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 013761 aa 7 00106 2351 00 lda pr7|70 argument_lth 013762 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 013763 aa 5 00000 00 0005 desc9a pr5|0,al argument 013764 aa 055000 00 0001 desc9a 23040,1 013765 aa 6 00056 0001 00 arg pr6|46 013766 aa 6 00056 2361 00 ldq pr6|46 013767 aa 000002 6070 04 ttf 2,ic 013771 013770 aa 000001 3360 07 lcq 1,dl 013771 aa 000001 0760 07 adq 1,dl 013772 aa 000001 1160 07 cmpq 1,dl 013773 aa 000047 6010 04 tnz 39,ic 014042 013774 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 013775 aa 5 00000 00 0005 desc9a pr5|0,al argument 013776 aa 765022 00 0010 desc9a -5614,8 001016 = 055144145146 013777 aa 000005 6000 04 tze 5,ic 014004 014000 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 014001 aa 5 00000 00 0005 desc9a pr5|0,al argument 014002 aa 764520 00 0004 desc9a -5808,4 000520 = 055144146164 014003 aa 000004 6010 04 tnz 4,ic 014007 014004 aa 400000 2350 03 lda 131072,du 014005 aa 6 00507 7551 00 sta pr6|327 use_default_cl_intermediary 014006 aa 000207 7100 04 tra 135,ic 014215 STATEMENT 1 ON LINE 1575 else call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 014007 aa 7 00106 2361 00 ldq pr7|70 argument_lth 014010 aa 526000 2760 03 orq 175104,du 014011 aa 6 00521 7561 00 stq pr6|337 014012 aa 764555 2350 04 lda -5779,ic 000567 = 042136141042 014013 aa 6 00511 7551 00 sta pr6|329 014014 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014015 aa 6 00546 2521 00 spri2 pr6|358 014016 aa 6 00044 3701 20 epp4 pr6|36,* 014017 la 4 00022 3521 20 epp2 pr4|18,* error_table_$badopt 014020 aa 6 00550 2521 00 spri2 pr6|360 014021 aa 6 00511 3521 00 epp2 pr6|329 014022 aa 6 00552 2521 00 spri2 pr6|362 014023 aa 5 00000 3521 00 epp2 pr5|0 argument 014024 aa 6 00554 2521 00 spri2 pr6|364 014025 aa 764606 3520 04 epp2 -5754,ic 000633 = 464000000000 014026 aa 6 00556 2521 00 spri2 pr6|366 014027 aa 764607 3520 04 epp2 -5753,ic 000636 = 404000000043 014030 aa 6 00560 2521 00 spri2 pr6|368 014031 aa 764535 3520 04 epp2 -5795,ic 000566 = 524000000004 014032 aa 6 00562 2521 00 spri2 pr6|370 014033 aa 6 00521 3521 00 epp2 pr6|337 014034 aa 6 00564 2521 00 spri2 pr6|372 014035 aa 6 00544 6211 00 eax1 pr6|356 014036 aa 020000 4310 07 fld 8192,dl 014037 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014040 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 014041 aa 000154 7100 04 tra 108,ic 014215 STATEMENT 1 ON LINE 1577 else /* a non-control argument */ if ^have_control_point_id then do; 014042 aa 6 00505 2351 00 lda pr6|325 have_control_point_id 014043 aa 000011 6010 04 tnz 9,ic 014054 STATEMENT 1 ON LINE 1580 call cv_string_to_control_point_id (); 014044 aa 000001 7270 07 lxl7 1,dl 014045 aa 6 00056 6211 00 eax1 pr6|46 014046 aa 000000 4310 07 fld 0,dl 014047 aa 770271 3520 04 epp2 -3911,ic 004340 = 000220627000 014050 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1581 have_control_point_id = "1"b; 014051 aa 400000 2350 03 lda 131072,du 014052 aa 6 00505 7551 00 sta pr6|325 have_control_point_id STATEMENT 1 ON LINE 1582 end; 014053 aa 000142 7100 04 tra 98,ic 014215 STATEMENT 1 ON LINE 1584 else if ^have_cl_intermediary then do; 014054 aa 6 00506 2351 00 lda pr6|326 have_cl_intermediary 014055 aa 400000 3150 03 cana 131072,du 014056 aa 000105 6010 04 tnz 69,ic 014163 STATEMENT 1 ON LINE 1586 cl_intermediary = cv_entry_ (argument, null (), code); 014057 aa 7 00106 2361 00 ldq pr7|70 argument_lth 014060 aa 526000 2760 03 orq 175104,du 014061 aa 6 00521 7561 00 stq pr6|337 014062 aa 764610 3534 24 epp3 -5752,ic* 014063 aa 6 00566 2535 00 spri3 pr6|374 014064 aa 5 00000 3521 00 epp2 pr5|0 argument 014065 aa 6 00546 2521 00 spri2 pr6|358 014066 aa 6 00566 3521 00 epp2 pr6|374 014067 aa 6 00550 2521 00 spri2 pr6|360 014070 aa 7 00132 3521 00 epp2 pr7|90 code 014071 aa 6 00552 2521 00 spri2 pr6|362 014072 aa 6 00100 3521 00 epp2 pr6|64 cl_intermediary 014073 aa 6 00554 2521 00 spri2 pr6|364 014074 aa 6 00521 3521 00 epp2 pr6|337 014075 aa 6 00556 2521 00 spri2 pr6|366 014076 aa 764535 3520 04 epp2 -5795,ic 000633 = 464000000000 014077 aa 6 00560 2521 00 spri2 pr6|368 014100 aa 764536 3520 04 epp2 -5794,ic 000636 = 404000000043 014101 aa 6 00562 2521 00 spri2 pr6|370 014102 aa 764533 3520 04 epp2 -5797,ic 000635 = 500000000000 014103 aa 6 00564 2521 00 spri2 pr6|372 014104 aa 6 00544 6211 00 eax1 pr6|356 014105 aa 020000 4310 07 fld 8192,dl 014106 aa 6 00044 3701 20 epp4 pr6|36,* 014107 la 4 00050 3521 20 epp2 pr4|40,* cv_entry_ 014110 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1587 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, """^a""", argument); 014111 aa 6 00040 3735 20 epp7 pr6|32,* 014112 aa 7 00132 2361 00 ldq pr7|90 code 014113 aa 000033 6000 04 tze 27,ic 014146 014114 aa 7 00106 2361 00 ldq pr7|70 argument_lth 014115 aa 526000 2760 03 orq 175104,du 014116 aa 6 00521 7561 00 stq pr6|337 014117 aa 764450 2350 04 lda -5848,ic 000567 = 042136141042 014120 aa 6 00511 7551 00 sta pr6|329 014121 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014122 aa 6 00546 2521 00 spri2 pr6|358 014123 aa 7 00132 3521 00 epp2 pr7|90 code 014124 aa 6 00550 2521 00 spri2 pr6|360 014125 aa 6 00511 3521 00 epp2 pr6|329 014126 aa 6 00552 2521 00 spri2 pr6|362 014127 aa 7 00104 3521 20 epp2 pr7|68,* argument 014130 aa 6 00554 2521 00 spri2 pr6|364 014131 aa 764502 3520 04 epp2 -5822,ic 000633 = 464000000000 014132 aa 6 00556 2521 00 spri2 pr6|366 014133 aa 764503 3520 04 epp2 -5821,ic 000636 = 404000000043 014134 aa 6 00560 2521 00 spri2 pr6|368 014135 aa 764431 3520 04 epp2 -5863,ic 000566 = 524000000004 014136 aa 6 00562 2521 00 spri2 pr6|370 014137 aa 6 00521 3521 00 epp2 pr6|337 014140 aa 6 00564 2521 00 spri2 pr6|372 014141 aa 6 00544 6211 00 eax1 pr6|356 014142 aa 020000 4310 07 fld 8192,dl 014143 aa 6 00044 3701 20 epp4 pr6|36,* 014144 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014145 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1589 have_cl_intermediary = "1"b; 014146 aa 400000 2350 03 lda 131072,du 014147 aa 6 00506 7551 00 sta pr6|326 have_cl_intermediary STATEMENT 1 ON LINE 1590 cl_intermediary_name = argument; 014150 aa 6 00040 3735 20 epp7 pr6|32,* 014151 aa 7 00106 2361 00 ldq pr7|70 argument_lth 014152 aa 002000 1160 07 cmpq 1024,dl 014153 aa 000002 6040 04 tmi 2,ic 014155 014154 aa 002000 2360 07 ldq 1024,dl 014155 aa 6 00104 7561 00 stq pr6|68 cl_intermediary_name 014156 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 014157 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 014160 aa 5 00000 00 0006 desc9a pr5|0,ql argument 014161 aa 6 00105 00 0006 desc9a pr6|69,ql cl_intermediary_name STATEMENT 1 ON LINE 1591 end; 014162 aa 000033 7100 04 tra 27,ic 014215 STATEMENT 1 ON LINE 1593 else call ssu_$abort_subsystem (sci_ptr, error_table_$too_many_args, """^a""", argument); 014163 aa 7 00106 2361 00 ldq pr7|70 argument_lth 014164 aa 526000 2760 03 orq 175104,du 014165 aa 6 00521 7561 00 stq pr6|337 014166 aa 764401 2350 04 lda -5887,ic 000567 = 042136141042 014167 aa 6 00511 7551 00 sta pr6|329 014170 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014171 aa 6 00546 2521 00 spri2 pr6|358 014172 aa 6 00044 3701 20 epp4 pr6|36,* 014173 la 4 00030 3521 20 epp2 pr4|24,* error_table_$too_many_args 014174 aa 6 00550 2521 00 spri2 pr6|360 014175 aa 6 00511 3521 00 epp2 pr6|329 014176 aa 6 00552 2521 00 spri2 pr6|362 014177 aa 5 00000 3521 00 epp2 pr5|0 argument 014200 aa 6 00554 2521 00 spri2 pr6|364 014201 aa 764432 3520 04 epp2 -5862,ic 000633 = 464000000000 014202 aa 6 00556 2521 00 spri2 pr6|366 014203 aa 764433 3520 04 epp2 -5861,ic 000636 = 404000000043 014204 aa 6 00560 2521 00 spri2 pr6|368 014205 aa 764361 3520 04 epp2 -5903,ic 000566 = 524000000004 014206 aa 6 00562 2521 00 spri2 pr6|370 014207 aa 6 00521 3521 00 epp2 pr6|337 014210 aa 6 00564 2521 00 spri2 pr6|372 014211 aa 6 00544 6211 00 eax1 pr6|356 014212 aa 020000 4310 07 fld 8192,dl 014213 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014214 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1594 end; 014215 aa 6 00040 3735 20 epp7 pr6|32,* 014216 aa 7 00110 0541 00 aos pr7|72 argument_idx 014217 aa 777517 7100 04 tra -177,ic 013736 STATEMENT 1 ON LINE 1596 if ^have_control_point_id then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "A control point ID must be specified."); 014220 aa 6 00505 2351 00 lda pr6|325 have_control_point_id 014221 aa 000025 6010 04 tnz 21,ic 014246 014222 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014223 aa 765120 00 0050 desc9a -5552,40 001342 = 101040143157 014224 aa 6 00532 00 0050 desc9a pr6|346,40 014225 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014226 aa 6 00546 2521 00 spri2 pr6|358 014227 aa 6 00044 3701 20 epp4 pr6|36,* 014230 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 014231 aa 6 00550 2521 00 spri2 pr6|360 014232 aa 6 00532 3521 00 epp2 pr6|346 014233 aa 6 00552 2521 00 spri2 pr6|362 014234 aa 764377 3520 04 epp2 -5889,ic 000633 = 464000000000 014235 aa 6 00554 2521 00 spri2 pr6|364 014236 aa 764400 3520 04 epp2 -5888,ic 000636 = 404000000043 014237 aa 6 00556 2521 00 spri2 pr6|366 014240 aa 764307 3520 04 epp2 -5945,ic 000547 = 524000000045 014241 aa 6 00560 2521 00 spri2 pr6|368 014242 aa 6 00544 6211 00 eax1 pr6|356 014243 aa 014000 4310 07 fld 6144,dl 014244 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014245 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1599 if have_cl_intermediary & use_default_cl_intermediary then call ssu_$abort_subsystem (sci_ptr, error_table_$inconsistent, """-default"" and ""^a"".", cl_intermediary_name); 014246 aa 6 00506 2351 00 lda pr6|326 have_cl_intermediary 014247 aa 400000 3150 03 cana 131072,du 014250 aa 000035 6000 04 tze 29,ic 014305 014251 aa 6 00507 2351 00 lda pr6|327 use_default_cl_intermediary 014252 aa 000033 6000 04 tze 27,ic 014305 014253 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014254 aa 764476 00 0024 desc9a -5826,20 000751 = 042055144145 014255 aa 6 00512 00 0024 desc9a pr6|330,20 014256 aa 6 00040 3735 20 epp7 pr6|32,* 014257 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014260 aa 6 00546 2521 00 spri2 pr6|358 014261 aa 6 00044 3701 20 epp4 pr6|36,* 014262 la 4 00024 3521 20 epp2 pr4|20,* error_table_$inconsistent 014263 aa 6 00550 2521 00 spri2 pr6|360 014264 aa 6 00512 3521 00 epp2 pr6|330 014265 aa 6 00552 2521 00 spri2 pr6|362 014266 aa 6 00105 3521 00 epp2 pr6|69 cl_intermediary_name 014267 aa 6 00554 2521 00 spri2 pr6|364 014270 aa 764343 3520 04 epp2 -5917,ic 000633 = 464000000000 014271 aa 6 00556 2521 00 spri2 pr6|366 014272 aa 764344 3520 04 epp2 -5916,ic 000636 = 404000000043 014273 aa 6 00560 2521 00 spri2 pr6|368 014274 aa 764223 3520 04 epp2 -5997,ic 000517 = 524000000024 014275 aa 6 00562 2521 00 spri2 pr6|370 014276 aa 764225 3520 04 epp2 -5995,ic 000523 = 530000002000 014277 aa 6 00564 2521 00 spri2 pr6|372 014300 aa 6 00544 6211 00 eax1 pr6|356 014301 aa 020000 4310 07 fld 8192,dl 014302 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014303 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 014304 aa 000033 7100 04 tra 27,ic 014337 STATEMENT 1 ON LINE 1603 else if ^have_cl_intermediary & ^use_default_cl_intermediary then call ssu_$abort_subsystem (sci_ptr, error_table_$noarg, "An entrypoint or ""-default"" must be specified.") ; 014305 aa 6 00506 2351 00 lda pr6|326 have_cl_intermediary 014306 aa 400000 3150 03 cana 131072,du 014307 aa 000030 6010 04 tnz 24,ic 014337 014310 aa 6 00507 2351 00 lda pr6|327 use_default_cl_intermediary 014311 aa 000026 6010 04 tnz 22,ic 014337 014312 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014313 aa 765230 00 0060 desc9a -5480,48 001542 = 101156040145 014314 aa 6 00544 00 0060 desc9a pr6|356,48 014315 aa 6 00040 3735 20 epp7 pr6|32,* 014316 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014317 aa 6 00572 2521 00 spri2 pr6|378 014320 aa 6 00044 3701 20 epp4 pr6|36,* 014321 la 4 00026 3521 20 epp2 pr4|22,* error_table_$noarg 014322 aa 6 00574 2521 00 spri2 pr6|380 014323 aa 6 00544 3521 00 epp2 pr6|356 014324 aa 6 00576 2521 00 spri2 pr6|382 014325 aa 764306 3520 04 epp2 -5946,ic 000633 = 464000000000 014326 aa 6 00600 2521 00 spri2 pr6|384 014327 aa 764307 3520 04 epp2 -5945,ic 000636 = 404000000043 014330 aa 6 00602 2521 00 spri2 pr6|386 014331 aa 764215 3520 04 epp2 -6003,ic 000546 = 524000000056 014332 aa 6 00604 2521 00 spri2 pr6|388 014333 aa 6 00570 6211 00 eax1 pr6|376 014334 aa 014000 4310 07 fld 6144,dl 014335 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014336 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1607 if have_cl_intermediary then call cpm_$set_user_cl_intermediary (control_point_data.id, cl_intermediary, code); 014337 aa 6 00506 2351 00 lda pr6|326 have_cl_intermediary 014340 aa 400000 3150 03 cana 131072,du 014341 aa 000016 6000 04 tze 14,ic 014357 014342 aa 6 00040 3735 20 epp7 pr6|32,* 014343 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 014344 aa 6 00524 2521 00 spri2 pr6|340 014345 aa 6 00100 3521 00 epp2 pr6|64 cl_intermediary 014346 aa 6 00526 2521 00 spri2 pr6|342 014347 aa 7 00132 3521 00 epp2 pr7|90 code 014350 aa 6 00530 2521 00 spri2 pr6|344 014351 aa 6 00522 6211 00 eax1 pr6|338 014352 aa 014000 4310 07 fld 6144,dl 014353 aa 6 00044 3701 20 epp4 pr6|36,* 014354 la 4 00156 3521 20 epp2 pr4|110,* cpm_$set_user_cl_intermediary 014355 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 014356 aa 000021 7100 04 tra 17,ic 014377 STATEMENT 1 ON LINE 1610 else /*** if use_default_cl_intermediary then */ call cpm_$set_user_cl_intermediary (control_point_data.id, cpm_$nulle, code); 014357 aa 6 00044 3701 20 epp4 pr6|36,* 014360 la 4 00176 3521 20 epp2 pr4|126,* cpm_$nulle 014361 aa 6 00512 2521 00 spri2 pr6|330 cp.708 014362 aa 000752 2370 04 ldaq 490,ic 015334 = 077777000043 000001000000 014363 aa 6 00514 7571 00 staq pr6|332 cp.708 014364 aa 6 00040 3735 20 epp7 pr6|32,* 014365 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 014366 aa 6 00524 2521 00 spri2 pr6|340 014367 aa 6 00512 3521 00 epp2 pr6|330 cp.708 014370 aa 6 00526 2521 00 spri2 pr6|342 014371 aa 7 00132 3521 00 epp2 pr7|90 code 014372 aa 6 00530 2521 00 spri2 pr6|344 014373 aa 6 00522 6211 00 eax1 pr6|338 014374 aa 014000 4310 07 fld 6144,dl 014375 la 4 00156 3521 20 epp2 pr4|110,* cpm_$set_user_cl_intermediary 014376 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1613 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to set the CL intermediary of the control point ^12.3b to ^[""^a""^;its default value^].", control_point_data.id, have_cl_intermediary, cl_intermediary_name); 014377 aa 6 00040 3735 20 epp7 pr6|32,* 014400 aa 7 00132 2361 00 ldq pr7|90 code 014401 aa 000041 6000 04 tze 33,ic 014442 014402 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014403 aa 765531 00 0140 desc9a -5287,96 002133 = 124162171151 014404 aa 6 00606 00 0140 desc9a pr6|390,96 014405 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014406 aa 6 00640 2521 00 spri2 pr6|416 014407 aa 7 00132 3521 00 epp2 pr7|90 code 014410 aa 6 00642 2521 00 spri2 pr6|418 014411 aa 6 00606 3521 00 epp2 pr6|390 014412 aa 6 00644 2521 00 spri2 pr6|420 014413 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 014414 aa 6 00646 2521 00 spri2 pr6|422 014415 aa 6 00506 3521 00 epp2 pr6|326 have_cl_intermediary 014416 aa 6 00650 2521 00 spri2 pr6|424 014417 aa 6 00105 3521 00 epp2 pr6|69 cl_intermediary_name 014420 aa 6 00652 2521 00 spri2 pr6|426 014421 aa 764212 3520 04 epp2 -6006,ic 000633 = 464000000000 014422 aa 6 00654 2521 00 spri2 pr6|428 014423 aa 764213 3520 04 epp2 -6005,ic 000636 = 404000000043 014424 aa 6 00656 2521 00 spri2 pr6|430 014425 aa 764071 3520 04 epp2 -6087,ic 000516 = 524000000135 014426 aa 6 00660 2521 00 spri2 pr6|432 014427 aa 764205 3520 04 epp2 -6011,ic 000634 = 514000000044 014430 aa 6 00662 2521 00 spri2 pr6|434 014431 aa 764161 3520 04 epp2 -6031,ic 000612 = 514000000001 014432 aa 6 00664 2521 00 spri2 pr6|436 014433 aa 764070 3520 04 epp2 -6088,ic 000523 = 530000002000 014434 aa 6 00666 2521 00 spri2 pr6|438 014435 aa 6 00636 6211 00 eax1 pr6|414 014436 aa 030000 4310 07 fld 12288,dl 014437 aa 6 00044 3701 20 epp4 pr6|36,* 014440 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014441 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1618 return; 014442 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1620 end set_cl_intermediary; END PROCEDURE set_cl_intermediary BEGIN PROCEDURE get_preferred ENTRY TO get_preferred STATEMENT 1 ON LINE 1624 get_preferred: procedure (); 014443 da 001363200000 014444 aa 000160 6270 00 eax7 112 014445 aa 7 00034 3521 20 epp2 pr7|28,* 014446 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 014447 aa 000000000000 014450 aa 000000000000 STATEMENT 1 ON LINE 1631 call reject_any_arguments (); 014451 aa 000001 7270 07 lxl7 1,dl 014452 aa 6 00056 6211 00 eax1 pr6|46 014453 aa 000000 4310 07 fld 0,dl 014454 aa 767546 3520 04 epp2 -4250,ic 004222 = 000140627000 014455 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1633 preferred_control_point_id = cpm_$get_preferred_control_point (); 014456 aa 6 00100 3521 00 epp2 pr6|64 preferred_control_point_id 014457 aa 6 00106 2521 00 spri2 pr6|70 014460 aa 6 00104 6211 00 eax1 pr6|68 014461 aa 004000 4310 07 fld 2048,dl 014462 aa 6 00044 3701 20 epp4 pr6|36,* 014463 la 4 00164 3521 20 epp2 pr4|116,* cpm_$get_preferred_control_point 014464 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1635 if is_active_function /* return it into the command line */ then if preferred_control_point_id = ""b then return_value = "none"; 014465 aa 6 00040 3735 20 epp7 pr6|32,* 014466 aa 7 00103 2351 00 lda pr7|67 is_active_function 014467 aa 400000 3150 03 cana 131072,du 014470 aa 000060 6000 04 tze 48,ic 014550 014471 aa 6 00100 2351 00 lda pr6|64 preferred_control_point_id 014472 aa 000013 6010 04 tnz 11,ic 014505 014473 aa 000004 2360 07 ldq 4,dl 014474 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 014475 aa 000002 6040 04 tmi 2,ic 014477 014476 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 014477 aa 7 00100 7561 20 stq pr7|64,* return_value 014500 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 014501 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 014502 aa 764014 00 0006 desc9a -6132,ql 000515 = 156157156145 014503 aa 5 00001 00 0006 desc9a pr5|1,ql return_value 014504 aa 000103 7100 04 tra 67,ic 014607 STATEMENT 1 ON LINE 1638 else do; STATEMENT 1 ON LINE 1639 call ioa_$rsnnl ("^12.3b", id_string, (0), preferred_control_point_id); 014505 aa 764153 2370 04 ldaq -6037,ic 000660 = 136061062056 063142000000 014506 aa 6 00110 7571 00 staq pr6|72 014507 aa 6 00112 4501 00 stz pr6|74 014510 aa 6 00110 3521 00 epp2 pr6|72 014511 aa 6 00116 2521 00 spri2 pr6|78 014512 aa 6 00101 3521 00 epp2 pr6|65 id_string 014513 aa 6 00120 2521 00 spri2 pr6|80 014514 aa 6 00112 3521 00 epp2 pr6|74 014515 aa 6 00122 2521 00 spri2 pr6|82 014516 aa 6 00100 3521 00 epp2 pr6|64 preferred_control_point_id 014517 aa 6 00124 2521 00 spri2 pr6|84 014520 aa 764063 3520 04 epp2 -6093,ic 000603 = 524000000006 014521 aa 6 00126 2521 00 spri2 pr6|86 014522 aa 764060 3520 04 epp2 -6096,ic 000602 = 526000000014 014523 aa 6 00130 2521 00 spri2 pr6|88 014524 aa 764100 3520 04 epp2 -6080,ic 000624 = 404000000005 014525 aa 6 00132 2521 00 spri2 pr6|90 014526 aa 764106 3520 04 epp2 -6074,ic 000634 = 514000000044 014527 aa 6 00134 2521 00 spri2 pr6|92 014530 aa 6 00114 6211 00 eax1 pr6|76 014531 aa 020000 4310 07 fld 8192,dl 014532 aa 6 00044 3701 20 epp4 pr6|36,* 014533 la 4 00072 3521 20 epp2 pr4|58,* ioa_$rsnnl 014534 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1640 return_value = id_string; 014535 aa 000014 2360 07 ldq 12,dl 014536 aa 6 00040 3735 20 epp7 pr6|32,* 014537 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 014540 aa 000002 6040 04 tmi 2,ic 014542 014541 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 014542 aa 7 00100 7561 20 stq pr7|64,* return_value 014543 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 014544 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 014545 aa 6 00101 00 0006 desc9a pr6|65,ql id_string 014546 aa 5 00001 00 0006 desc9a pr5|1,ql return_value STATEMENT 1 ON LINE 1641 end; 014547 aa 000040 7100 04 tra 32,ic 014607 STATEMENT 1 ON LINE 1643 else if preferred_control_point_id = ""b then call ioa_ ("There is no preferred control point."); 014550 aa 6 00100 2351 00 lda pr6|64 preferred_control_point_id 014551 aa 000016 6010 04 tnz 14,ic 014567 014552 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014553 aa 764444 00 0044 desc9a -5852,36 001216 = 124150145162 014554 aa 6 00114 00 0044 desc9a pr6|76,36 014555 aa 6 00114 3521 00 epp2 pr6|76 014556 aa 6 00140 2521 00 spri2 pr6|96 014557 aa 763735 3520 04 epp2 -6179,ic 000514 = 524000000044 014560 aa 6 00142 2521 00 spri2 pr6|98 014561 aa 6 00136 6211 00 eax1 pr6|94 014562 aa 004000 4310 07 fld 2048,dl 014563 aa 6 00044 3701 20 epp4 pr6|36,* 014564 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 014565 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 014566 aa 000021 7100 04 tra 17,ic 014607 STATEMENT 1 ON LINE 1645 else call ioa_ ("Preferred control point ID is ^12.3b.", preferred_control_point_id); 014567 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014570 aa 764515 00 0050 desc9a -5811,40 001304 = 120162145146 014571 aa 6 00114 00 0050 desc9a pr6|76,40 014572 aa 6 00114 3521 00 epp2 pr6|76 014573 aa 6 00146 2521 00 spri2 pr6|102 014574 aa 6 00100 3521 00 epp2 pr6|64 preferred_control_point_id 014575 aa 6 00150 2521 00 spri2 pr6|104 014576 aa 763751 3520 04 epp2 -6167,ic 000547 = 524000000045 014577 aa 6 00152 2521 00 spri2 pr6|106 014600 aa 764034 3520 04 epp2 -6116,ic 000634 = 514000000044 014601 aa 6 00154 2521 00 spri2 pr6|108 014602 aa 6 00144 6211 00 eax1 pr6|100 014603 aa 010000 4310 07 fld 4096,dl 014604 aa 6 00044 3701 20 epp4 pr6|36,* 014605 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 014606 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1647 return; 014607 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1649 end get_preferred; END PROCEDURE get_preferred BEGIN PROCEDURE set_preferred ENTRY TO set_preferred STATEMENT 1 ON LINE 1655 set_preferred: procedure (); 014610 da 001372200000 014611 aa 000200 6270 00 eax7 128 014612 aa 7 00034 3521 20 epp2 pr7|28,* 014613 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 014614 aa 000000000000 014615 aa 000000000000 STATEMENT 1 ON LINE 1658 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 014616 aa 6 00040 3735 20 epp7 pr6|32,* 014617 aa 7 00107 2361 00 ldq pr7|71 n_arguments 014620 aa 000001 1160 07 cmpq 1,dl 014621 aa 000014 6000 04 tze 12,ic 014635 014622 aa 111104 2350 03 lda 37444,du 014623 aa 6 00100 7551 00 sta pr6|64 014624 aa 6 00100 3521 00 epp2 pr6|64 014625 aa 6 00104 2521 00 spri2 pr6|68 014626 aa 763727 3520 04 epp2 -6185,ic 000555 = 524000000002 014627 aa 6 00110 2521 00 spri2 pr6|72 014630 aa 000001 7270 07 lxl7 1,dl 014631 aa 6 00102 6211 00 eax1 pr6|66 014632 aa 004000 4310 07 fld 2048,dl 014633 aa 767202 3520 04 epp2 -4478,ic 004035 = 000160627000 014634 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1661 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 014635 aa 000001 2360 07 ldq 1,dl 014636 aa 6 00100 7561 00 stq pr6|64 014637 aa 6 00040 3735 20 epp7 pr6|32,* 014640 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014641 aa 6 00114 2521 00 spri2 pr6|76 014642 aa 6 00100 3521 00 epp2 pr6|64 014643 aa 6 00116 2521 00 spri2 pr6|78 014644 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 014645 aa 6 00120 2521 00 spri2 pr6|80 014646 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 014647 aa 6 00122 2521 00 spri2 pr6|82 014650 aa 6 00112 6211 00 eax1 pr6|74 014651 aa 020000 4310 07 fld 8192,dl 014652 aa 6 00044 3701 20 epp4 pr6|36,* 014653 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 014654 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1663 call cv_string_to_control_point_id (); 014655 aa 000001 7270 07 lxl7 1,dl 014656 aa 6 00056 6211 00 eax1 pr6|46 014657 aa 000000 4310 07 fld 0,dl 014660 aa 767460 3520 04 epp2 -4304,ic 004340 = 000220627000 014661 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1665 call cpm_$set_preferred_control_point (control_point_data.id, code); 014662 aa 6 00040 3735 20 epp7 pr6|32,* 014663 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 014664 aa 6 00104 2521 00 spri2 pr6|68 014665 aa 7 00132 3521 00 epp2 pr7|90 code 014666 aa 6 00106 2521 00 spri2 pr6|70 014667 aa 6 00102 6211 00 eax1 pr6|66 014670 aa 010000 4310 07 fld 4096,dl 014671 aa 6 00044 3701 20 epp4 pr6|36,* 014672 la 4 00166 3521 20 epp2 pr4|118,* cpm_$set_preferred_control_point 014673 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1666 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to make the control point ^12.3b preferred.", control_point_data.id); 014674 aa 6 00040 3735 20 epp7 pr6|32,* 014675 aa 7 00132 2361 00 ldq pr7|90 code 014676 aa 000031 6000 04 tze 25,ic 014727 014677 aa 000 100 100 404 mlr (ic),(pr),fill(000) 014700 aa 764754 00 0064 desc9a -5652,52 001653 = 124162171151 014701 aa 6 00124 00 0064 desc9a pr6|84,52 014702 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014703 aa 6 00144 2521 00 spri2 pr6|100 014704 aa 7 00132 3521 00 epp2 pr7|90 code 014705 aa 6 00146 2521 00 spri2 pr6|102 014706 aa 6 00124 3521 00 epp2 pr6|84 014707 aa 6 00150 2521 00 spri2 pr6|104 014710 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 014711 aa 6 00152 2521 00 spri2 pr6|106 014712 aa 763721 3520 04 epp2 -6191,ic 000633 = 464000000000 014713 aa 6 00154 2521 00 spri2 pr6|108 014714 aa 763722 3520 04 epp2 -6190,ic 000636 = 404000000043 014715 aa 6 00156 2521 00 spri2 pr6|110 014716 aa 763701 3520 04 epp2 -6207,ic 000617 = 524000000062 014717 aa 6 00160 2521 00 spri2 pr6|112 014720 aa 763714 3520 04 epp2 -6196,ic 000634 = 514000000044 014721 aa 6 00162 2521 00 spri2 pr6|114 014722 aa 6 00142 6211 00 eax1 pr6|98 014723 aa 020000 4310 07 fld 8192,dl 014724 aa 6 00044 3701 20 epp4 pr6|36,* 014725 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 014726 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1670 return; 014727 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1672 end set_preferred; END PROCEDURE set_preferred BEGIN PROCEDURE push_preferred ENTRY TO push_preferred STATEMENT 1 ON LINE 1676 push_preferred: procedure (); 014730 da 001401200000 014731 aa 000200 6270 00 eax7 128 014732 aa 7 00034 3521 20 epp2 pr7|28,* 014733 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 014734 aa 000000000000 014735 aa 000000000000 STATEMENT 1 ON LINE 1681 if n_arguments ^= 1 then call display_usage_message_and_abort ("ID"); 014736 aa 6 00040 3735 20 epp7 pr6|32,* 014737 aa 7 00107 2361 00 ldq pr7|71 n_arguments 014740 aa 000001 1160 07 cmpq 1,dl 014741 aa 000014 6000 04 tze 12,ic 014755 014742 aa 111104 2350 03 lda 37444,du 014743 aa 6 00101 7551 00 sta pr6|65 014744 aa 6 00101 3521 00 epp2 pr6|65 014745 aa 6 00104 2521 00 spri2 pr6|68 014746 aa 763607 3520 04 epp2 -6265,ic 000555 = 524000000002 014747 aa 6 00110 2521 00 spri2 pr6|72 014750 aa 000001 7270 07 lxl7 1,dl 014751 aa 6 00102 6211 00 eax1 pr6|66 014752 aa 004000 4310 07 fld 2048,dl 014753 aa 767062 3520 04 epp2 -4558,ic 004035 = 000160627000 014754 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1684 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 014755 aa 000001 2360 07 ldq 1,dl 014756 aa 6 00101 7561 00 stq pr6|65 014757 aa 6 00040 3735 20 epp7 pr6|32,* 014760 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 014761 aa 6 00114 2521 00 spri2 pr6|76 014762 aa 6 00101 3521 00 epp2 pr6|65 014763 aa 6 00116 2521 00 spri2 pr6|78 014764 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 014765 aa 6 00120 2521 00 spri2 pr6|80 014766 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 014767 aa 6 00122 2521 00 spri2 pr6|82 014770 aa 6 00112 6211 00 eax1 pr6|74 014771 aa 020000 4310 07 fld 8192,dl 014772 aa 6 00044 3701 20 epp4 pr6|36,* 014773 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 014774 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1686 call cv_string_to_control_point_id (); 014775 aa 000001 7270 07 lxl7 1,dl 014776 aa 6 00056 6211 00 eax1 pr6|46 014777 aa 000000 4310 07 fld 0,dl 015000 aa 767340 3520 04 epp2 -4384,ic 004340 = 000220627000 015001 aa 0 00627 7001 00 tsx0 pr0|407 call_int_other STATEMENT 1 ON LINE 1688 call cpm_$push_preferred_control_point (control_point_data.id, pushed_ok, code); 015002 aa 6 00040 3735 20 epp7 pr6|32,* 015003 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 015004 aa 6 00104 2521 00 spri2 pr6|68 015005 aa 6 00100 3521 00 epp2 pr6|64 pushed_ok 015006 aa 6 00106 2521 00 spri2 pr6|70 015007 aa 7 00132 3521 00 epp2 pr7|90 code 015010 aa 6 00110 2521 00 spri2 pr6|72 015011 aa 6 00102 6211 00 eax1 pr6|66 015012 aa 014000 4310 07 fld 6144,dl 015013 aa 6 00044 3701 20 epp4 pr6|36,* 015014 la 4 00170 3521 20 epp2 pr4|120,* cpm_$push_preferred_control_point 015015 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1689 if code ^= 0 then call ssu_$abort_subsystem (sci_ptr, code, "Trying to push the preferred stack and make the control point ^12.3b preferred.", control_point_data.id); 015016 aa 6 00040 3735 20 epp7 pr6|32,* 015017 aa 7 00132 2361 00 ldq pr7|90 code 015020 aa 000031 6000 04 tze 25,ic 015051 015021 aa 000 100 100 404 mlr (ic),(pr),fill(000) 015022 aa 765041 00 0120 desc9a -5599,80 002062 = 124162171151 015023 aa 6 00124 00 0120 desc9a pr6|84,80 015024 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 015025 aa 6 00152 2521 00 spri2 pr6|106 015026 aa 7 00132 3521 00 epp2 pr7|90 code 015027 aa 6 00154 2521 00 spri2 pr6|108 015030 aa 6 00124 3521 00 epp2 pr6|84 015031 aa 6 00156 2521 00 spri2 pr6|110 015032 aa 7 00334 3521 20 epp2 pr7|220,* control_point_data.id 015033 aa 6 00160 2521 00 spri2 pr6|112 015034 aa 763577 3520 04 epp2 -6273,ic 000633 = 464000000000 015035 aa 6 00162 2521 00 spri2 pr6|114 015036 aa 763600 3520 04 epp2 -6272,ic 000636 = 404000000043 015037 aa 6 00164 2521 00 spri2 pr6|116 015040 aa 763453 3520 04 epp2 -6357,ic 000513 = 524000000117 015041 aa 6 00166 2521 00 spri2 pr6|118 015042 aa 763572 3520 04 epp2 -6278,ic 000634 = 514000000044 015043 aa 6 00170 2521 00 spri2 pr6|120 015044 aa 6 00150 6211 00 eax1 pr6|104 015045 aa 020000 4310 07 fld 8192,dl 015046 aa 6 00044 3701 20 epp4 pr6|36,* 015047 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 015050 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1694 if is_active_function /* return an indication of success into the command line */ then if pushed_ok then return_value = "true"; 015051 aa 6 00040 3735 20 epp7 pr6|32,* 015052 aa 7 00103 2351 00 lda pr7|67 is_active_function 015053 aa 400000 3150 03 cana 131072,du 015054 aa 000027 6000 04 tze 23,ic 015103 015055 aa 6 00100 2351 00 lda pr6|64 pushed_ok 015056 aa 400000 3150 03 cana 131072,du 015057 aa 000013 6000 04 tze 11,ic 015072 015060 aa 000004 2360 07 ldq 4,dl 015061 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 015062 aa 000002 6040 04 tmi 2,ic 015064 015063 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 015064 aa 7 00100 7561 20 stq pr7|64,* return_value 015065 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 015066 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 015067 aa 763516 00 0006 desc9a -6322,ql 000604 = 164162165145 015070 aa 5 00001 00 0006 desc9a pr5|1,ql return_value 015071 aa 000012 7100 04 tra 10,ic 015103 STATEMENT 1 ON LINE 1697 else return_value = "false"; 015072 aa 000005 2360 07 ldq 5,dl 015073 aa 7 00102 1161 00 cmpq pr7|66 return_value_lth 015074 aa 000002 6040 04 tmi 2,ic 015076 015075 aa 7 00102 2361 00 ldq pr7|66 return_value_lth 015076 aa 7 00100 7561 20 stq pr7|64,* return_value 015077 aa 7 00100 3715 20 epp5 pr7|64,* return_value_ptr 015100 aa 040 140 100 444 mlr (rl,ic),(pr,rl),fill(040) 015101 aa 763562 00 0006 desc9a -6286,ql 000662 = 146141154163 015102 aa 5 00001 00 0006 desc9a pr5|1,ql return_value STATEMENT 1 ON LINE 1699 return; 015103 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1701 end push_preferred; END PROCEDURE push_preferred BEGIN PROCEDURE pop_preferred ENTRY TO pop_preferred STATEMENT 1 ON LINE 1705 pop_preferred: procedure (); 015104 da 001410200000 015105 aa 000160 6270 00 eax7 112 015106 aa 7 00034 3521 20 epp2 pr7|28,* 015107 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 015110 aa 000000000000 015111 aa 000000000000 STATEMENT 1 ON LINE 1710 if n_arguments ^= 1 then call display_usage_message_and_abort ("FLAG"); 015112 aa 6 00040 3735 20 epp7 pr6|32,* 015113 aa 7 00107 2361 00 ldq pr7|71 n_arguments 015114 aa 000001 1160 07 cmpq 1,dl 015115 aa 000014 6000 04 tze 12,ic 015131 015116 aa 763374 2350 04 lda -6404,ic 000512 = 106114101107 015117 aa 6 00101 7551 00 sta pr6|65 015120 aa 6 00101 3521 00 epp2 pr6|65 015121 aa 6 00104 2521 00 spri2 pr6|68 015122 aa 763444 3520 04 epp2 -6364,ic 000566 = 524000000004 015123 aa 6 00110 2521 00 spri2 pr6|72 015124 aa 000001 7270 07 lxl7 1,dl 015125 aa 6 00102 6211 00 eax1 pr6|66 015126 aa 004000 4310 07 fld 2048,dl 015127 aa 766706 3520 04 epp2 -4666,ic 004035 = 000160627000 015130 aa 0 00626 7001 00 tsx0 pr0|406 call_int_other_desc STATEMENT 1 ON LINE 1713 call ssu_$arg_ptr (sci_ptr, 1, argument_ptr, argument_lth); 015131 aa 000001 2360 07 ldq 1,dl 015132 aa 6 00101 7561 00 stq pr6|65 015133 aa 6 00040 3735 20 epp7 pr6|32,* 015134 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 015135 aa 6 00114 2521 00 spri2 pr6|76 015136 aa 6 00101 3521 00 epp2 pr6|65 015137 aa 6 00116 2521 00 spri2 pr6|78 015140 aa 7 00104 3521 00 epp2 pr7|68 argument_ptr 015141 aa 6 00120 2521 00 spri2 pr6|80 015142 aa 7 00106 3521 00 epp2 pr7|70 argument_lth 015143 aa 6 00122 2521 00 spri2 pr6|82 015144 aa 6 00112 6211 00 eax1 pr6|74 015145 aa 020000 4310 07 fld 8192,dl 015146 aa 6 00044 3701 20 epp4 pr6|36,* 015147 la 4 00112 3521 20 epp2 pr4|74,* ssu_$arg_ptr 015150 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1715 if index (argument, "-") = 1 then call ssu_$abort_subsystem (sci_ptr, error_table_$badopt, """^a""", argument); 015151 aa 6 00040 3735 20 epp7 pr6|32,* 015152 aa 7 00104 3715 20 epp5 pr7|68,* argument_ptr 015153 aa 7 00106 2351 00 lda pr7|70 argument_lth 015154 aa 000 003 124 540 scm (pr,rl),(du),mask(000) 015155 aa 5 00000 00 0005 desc9a pr5|0,al argument 015156 aa 055000 00 0001 desc9a 23040,1 015157 aa 6 00056 0001 00 arg pr6|46 015160 aa 6 00056 2361 00 ldq pr6|46 015161 aa 000002 6070 04 ttf 2,ic 015163 015162 aa 000001 3360 07 lcq 1,dl 015163 aa 000001 0760 07 adq 1,dl 015164 aa 000001 1160 07 cmpq 1,dl 015165 aa 000034 6010 04 tnz 28,ic 015221 015166 aa 7 00106 2361 00 ldq pr7|70 argument_lth 015167 aa 526000 2760 03 orq 175104,du 015170 aa 6 00101 7561 00 stq pr6|65 015171 aa 763376 2350 04 lda -6402,ic 000567 = 042136141042 015172 aa 6 00124 7551 00 sta pr6|84 015173 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 015174 aa 6 00130 2521 00 spri2 pr6|88 015175 aa 6 00044 3701 20 epp4 pr6|36,* 015176 la 4 00022 3521 20 epp2 pr4|18,* error_table_$badopt 015177 aa 6 00132 2521 00 spri2 pr6|90 015200 aa 6 00124 3521 00 epp2 pr6|84 015201 aa 6 00134 2521 00 spri2 pr6|92 015202 aa 5 00000 3521 00 epp2 pr5|0 argument 015203 aa 6 00136 2521 00 spri2 pr6|94 015204 aa 763427 3520 04 epp2 -6377,ic 000633 = 464000000000 015205 aa 6 00140 2521 00 spri2 pr6|96 015206 aa 763430 3520 04 epp2 -6376,ic 000636 = 404000000043 015207 aa 6 00142 2521 00 spri2 pr6|98 015210 aa 763356 3520 04 epp2 -6418,ic 000566 = 524000000004 015211 aa 6 00144 2521 00 spri2 pr6|100 015212 aa 6 00101 3521 00 epp2 pr6|65 015213 aa 6 00146 2521 00 spri2 pr6|102 015214 aa 6 00126 6211 00 eax1 pr6|86 015215 aa 020000 4310 07 fld 8192,dl 015216 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 015217 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 015220 aa 000050 7100 04 tra 40,ic 015270 STATEMENT 1 ON LINE 1718 else if argument = "true" then was_pushed = "1"b; 015221 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 015222 aa 5 00000 00 0005 desc9a pr5|0,al argument 015223 aa 763363 00 0004 desc9a -6413,4 000604 = 164162165145 015224 aa 000004 6010 04 tnz 4,ic 015230 015225 aa 400000 2350 03 lda 131072,du 015226 aa 6 00100 7551 00 sta pr6|64 was_pushed 015227 aa 000041 7100 04 tra 33,ic 015270 STATEMENT 1 ON LINE 1720 else if argument = "false" then was_pushed = "0"b; 015230 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 015231 aa 5 00000 00 0005 desc9a pr5|0,al argument 015232 aa 763432 00 0005 desc9a -6374,5 000662 = 146141154163 015233 aa 000003 6010 04 tnz 3,ic 015236 015234 aa 6 00100 4501 00 stz pr6|64 was_pushed 015235 aa 000033 7100 04 tra 27,ic 015270 STATEMENT 1 ON LINE 1723 else call ssu_$abort_subsystem (sci_ptr, error_table_$bad_arg, """^a""", argument); 015236 aa 7 00106 2361 00 ldq pr7|70 argument_lth 015237 aa 526000 2760 03 orq 175104,du 015240 aa 6 00101 7561 00 stq pr6|65 015241 aa 763326 2350 04 lda -6442,ic 000567 = 042136141042 015242 aa 6 00124 7551 00 sta pr6|84 015243 aa 7 00122 3521 00 epp2 pr7|82 sci_ptr 015244 aa 6 00130 2521 00 spri2 pr6|88 015245 aa 6 00044 3701 20 epp4 pr6|36,* 015246 la 4 00016 3521 20 epp2 pr4|14,* error_table_$bad_arg 015247 aa 6 00132 2521 00 spri2 pr6|90 015250 aa 6 00124 3521 00 epp2 pr6|84 015251 aa 6 00134 2521 00 spri2 pr6|92 015252 aa 5 00000 3521 00 epp2 pr5|0 argument 015253 aa 6 00136 2521 00 spri2 pr6|94 015254 aa 763357 3520 04 epp2 -6417,ic 000633 = 464000000000 015255 aa 6 00140 2521 00 spri2 pr6|96 015256 aa 763360 3520 04 epp2 -6416,ic 000636 = 404000000043 015257 aa 6 00142 2521 00 spri2 pr6|98 015260 aa 763306 3520 04 epp2 -6458,ic 000566 = 524000000004 015261 aa 6 00144 2521 00 spri2 pr6|100 015262 aa 6 00101 3521 00 epp2 pr6|65 015263 aa 6 00146 2521 00 spri2 pr6|102 015264 aa 6 00126 6211 00 eax1 pr6|86 015265 aa 020000 4310 07 fld 8192,dl 015266 la 4 00110 3521 20 epp2 pr4|72,* ssu_$abort_subsystem 015267 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 1725 call cpm_$pop_preferred_control_point (was_pushed); 015270 aa 6 00100 3521 00 epp2 pr6|64 was_pushed 015271 aa 6 00104 2521 00 spri2 pr6|68 015272 aa 6 00102 6211 00 eax1 pr6|66 015273 aa 004000 4310 07 fld 2048,dl 015274 aa 6 00044 3701 20 epp4 pr6|36,* 015275 la 4 00172 3521 20 epp2 pr4|122,* cpm_$pop_preferred_control_point 015276 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 1727 return; 015277 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 1729 end pop_preferred; END PROCEDURE pop_preferred END PROCEDURE cpmc ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved