THIS FILE IS DAMAGED @ ~2rr0@=LSwX 9@&H &z&Hezzar,Attendees RySGLNa*@\Hinatsu 6*@>Elliott Multics r&GMaTransactions H4sGQBa*@L6>*@& GMa.Proceedings.1 H4pGw ..a*@ *@0DRobinson bT*@rPANakaska xLj*@Waters b*@Zwick x*@jWestcott *@Gatha *@TOle *@Oke *@Wright *@jrSiler (*@Fudge >0*@>ANeal T(F*@\Hoover j>\*@FHindbo Tr*@TRWaters j*@FMQuintin *@ions (variable); 94 dcl cu_$arg_count entry (fixed bin, fixed bin (35)); 95 dcl cu_$arg_ptr entry (fixed bin, ptr, fixed bin (21), fixed bin (35)); 96 dcl cv_dec_check_ entry (char (*), fixed bin (35)) returns (fixed bin (35)); 97 dcl enter_abs_request entry options (variable); 98 dcl expand_pathname_$add_suffix 99 entry (char (*), char (*), char (*), char (*), fixed bin (35)); 100 dcl get_system_free_area_ 101 entry returns (ptr); 102 dcl get_wdir_ entry returns (char (168) aligned); 103 dcl hcs_$fs_get_path_name 104 entry (ptr, char (*), fixed bin, char (*), fixed bin (35)); 105 dcl hcs_$status_minf entry (char (*), char (*), fixed bin (1), fixed bin (2), fixed bin (24), fixed bin (35)); 106 dcl ioa_ entry options (variable); 107 dcl iod_info_$generic_type 108 entry (char (*), char (32), fixed bin (35)); 109 dcl iod_info_$queue_data 110 entry (char (*), fixed bin, fixed bin, fixed bin (35)); 111 dcl requote_string_ entry (char (*)) returns (char (*)); 112 dcl suffixed_name_$new_suffix 113 entry (char (*), char (*), char (*), char (32), fixed bin (35)); 114 dcl system_info_$default_absentee_queue 115 entry (fixed bin); 116 117 /* format: inddcls */ 118 119 /* program */ 120 121 areap = get_system_free_area_ (); 122 123 abs_args_list_space = ""; 124 abs_args_list_ptr = addr (abs_args_list_space); 125 abs_args_list_len = maxlength (abs_args_list_space); 126 127 default_absentee_queue = "1"b; 128 129 dp_args_list_space = ""; 130 dp_args_list_ptr = addr (dp_args_list_space); 131 dp_args_list_len = maxlength (dp_args_list_space); 132 133 error_sw = "0"b; 134 hold = "dprint"; /* dprint runout(s) when done */ 135 limit_sw = "0"b; /* no absentee timer limit */ 136 no_of_copies_str = "1"; 137 outsw = "0"b; /* -output_file not used */ 138 request_type = "printer"; 139 140 segname_list_space = ""; 141 segname_list_ptr = addr (segname_list_space); 142 segname_list_len = maxlength (segname_list_space); 143 144 call system_info_$default_absentee_queue (absentee_queue_n); 145 if absentee_queue_n = 0 146 then absentee_queue_n = 3; /* default default absentee queue */ 147 absentee_queue = convert (digit_pic, absentee_queue_n); 148 dprint_queue = absentee_queue; 149 150 call cu_$arg_count (argcount, code); 151 if code ^= 0 152 then do; 153 call com_err_ (code, function_abs); 154 return; 155 end; 156 157 if argcount = 0 158 then do; 159 call com_err_$suppress_name (0, function_abs, "Usage: ^a paths {^a_args} {dp_args} {-control_args}", 160 function_abs, function); 161 return; 162 end; 163 164 on cleanup call cleaner_up (); 165 166 /* Start looking at arguments */ 167 168 do argno = 1 to argcount; /* Loop ends at ENDLOOP */ 169 call cu_$arg_ptr (argno, argp, arglen, code); 170 if code ^= 0 171 then do; 172 call com_err_ (code, function_abs, "Argument ^d.", argno); 173 goto REQUEST_NOT_SUBMITTED; 174 end; 175 176 curarg = argu; 177 178 if index (argu, "-") ^= 1 179 then begin; 180 dcl bitcnt fixed bin (24); 181 dcl type fixed bin (2); 182 183 call expand_pathname_$add_suffix (argu, function, checkdir, checkent, code); 184 if code ^= 0 185 then do; 186 call com_err_ (code, function_abs, "^a", argu); 187 goto REQUEST_NOT_SUBMITTED; 188 end; 189 190 call hcs_$status_minf (checkdir, checkent, 1, type, bitcnt, code); 191 TJKAVOtape_mult_ \=AREAV0062 TkQTl$AV>tape_mult_ R48R AV0112 TpTLAVptape_mult_ hDeR AV0175 T 6TAVtape_mult_ n*R AV0040 TzTAV(tape_mult_ y RAV0172 Tlx =TlaAVtape_mult_ N`RAV0187 T;fETkAVtape_mult_ ^A@RAV0240 TTJAVtape_mult_ HHR'AV0151 T T 1AVtape_mult_ NDaR-AV0060 T 1=T AVT>앎AV tape_mult_ 3(RPdAV0012 TY>mTYqAV tape_mult_ 5'`RPπAV0012 TsTt5ߒAV tape_mult_ 3(eRQ; AV0012 TTߠAV tape_mult_ .&]RQAV0133 T2PTQAVtape_mult_ Y{.lRQQAV0133 TVTAVtape_mult_ 3&tRQrAV0133 Tq$)TܝAVtape_mult_ ,'zRQyAV0146 TTh_AVtape_mult_ 'm)yRR8AV0146 T4T4ׁnAVtape_mult_ 3+RSAV0146 T~+TAVtape_mult_ *t%iRSVAV0146 TkTՃAVtape_mult_ =3RTrAV0146 T&_T&MAVtape_mult_ ^/FRT=AV0146 TvUhTvAVtape_mult_ Q!bRUAV0044 T TXAV,tape GRRvUAV0022 T WT EAVtape_mult_ )s$XRv AV0022 TpD1Tp[AVtape_mult_ =RwAV0022 T40TVzAVtape_mult_ X'WRxFAV0022 T#,TCAVtape_mult_ IRxAV0095 T!%T!AV_tape_mult_ ERxAV0084 T"W_T#gHAVTtape_mult_ N'eRxTAV0035 T'VT'ˢAV#tape_mult_ FDRx AV0035 TBdTB?o$AV#tape_mult_ *)eRxuAV0035 T]`T]AV#tape_mult_ 5+Rx6AV0035 TxQPTxoAV#tape_mult_ 2)RyKAV0035 TT8KAV#tape_mult_ 4'>RypAV0035 TIT2AV#tape_mult_ 1&3Ry"AV0140 TBtTȆp1AVtape_mult_ 0&}RyAV0140 TGT)AVtape_mult_ -%@Ry_AV0100 TZET"AVdtape_mult_ -$<Rz\AV0115 TjT|ThaAVstape_mult_ 6)oRzhAV0115 Tg\9TgmAVstape_mult_ 5&nR{ AV0115 TIjTiAVstape_mult_ ) R|"AV0235 T7-vTMrAVtape_mult_ =R|dAV0235 TY)TYY@?AVtape_mult_ X+R}AV0235 T"*TT@VAVtape_mult_ LR}AV0067 TlT/AVCtape_mult_ KFR}_AV0101 ThTAVetape_mult_ C>R} AV0101 TÇATGAVetape_mult_ 5'R}xAV0101 T-Tޓ)AVetape_mult_ 0'R}~AV0066 T!T:AVBtape_mult_ 3'[R(AV0066 TCkTfpAVBtape_mult_ >+a number */ 388 call add (argu, abs_args_list_ptr, abs_args_list_len, addr (abs_args_list_space)); 389 argno = argno + 1; 390 call cu_$arg_ptr (argno, argp, arglen, code); 391 if code ^= 0 392 then goto TOO_FEW_ARGS; 393 394 temp = cv_dec_check_ (argu, code); 395 if code ^= 0 396 then do; 397 call com_err_ (0, function_abs, "A number must follow ""^a""; not ""^a"".", curarg, 398 argu); 399 goto REQUEST_NOT_SUBMITTED; 400 end; 401 402 call add (argu, abs_args_list_ptr, abs_args_list_len, addr (abs_args_list_space)); 403 goto ENDLOOP; 404 end; 405 406 else if argu = "-parameter" | argu = "-pm" 407 then do; /* must be followed by a string */ 408 call add (argu, abs_args_list_ptr, abs_args_list_len, addr (abs_args_list_space)); 409 argno = argno + 1; 410 call cu_$arg_ptr (argno, argp, arglen, code); 411 if code ^= 0 412 then goto TOO_FEW_ARGS; 413 414 call add_requoted (argu, abs_args_list_ptr, abs_args_list_len, addr (abs_args_list_space)); 415 goto ENDLOOP; 416 end; 417 418 ENDLOOP: 419 end; 420 421 if error_sw 422 then goto REQUEST_NOT_SUBMITTED; 423 424 if segname_list = "" 425 then do; 426 call com_err_ (0, function_abs, "No segments specified."); 427 goto REQUEST_NOT_SUBMITTED; 428 end; 429 430 if ^outsw 431 then do; 432 call suffixed_name_$new_suffix (first_entryname, function, "absout", checkent, code); 433 if code ^= 0 434 then do; 435 call com_err_ (code, function_abs, "^a with absout suffix.", first_entryname); 436 goto REQUEST_NOT_SUBMITTED; 437 end; 438 439 out_file = checkent; 440 end; 441 442 begin; 443 dcl default_queue fixed bin; 444 dcl max_queue fixed bin; 445 446 call iod_info_$queue_data (request_type, default_queue, max_queue, code); 447 if code ^= 0 448 then do; 449 call com_err_ (code, function_abs, "Request type ^a.", request_type); 450 goto REQUEST_NOT_SUBMITTED; 451 end; 452 453 if default_absentee_queue /* user didn't specify queue: use default without warnings */ 454 then dprint_queue = convert (digit_pic, default_queue); 455 456 if binary (dprint_queue, 17) < 1 | max_queue < binary (dprint_queue, 17) 457 then do; 458 call com_err_ (0, function_abs, 459 "Request type ^a does not have queue ^a. Dprint queue ^d assumed.", request_type, 460 dprint_queue, max_queue); 461 dprint_queue = convert (digit_pic, max_queue); 462 end; 463 end; 464 465 call hcs_$fs_get_path_name (codeptr (runoff_abs), checkdir, i, checkent, code); 466 467 if limit_sw 468 then call enter_abs_request (rtrim (checkdir) || ">runoff_abs_absin", "-queue", absentee_queue, "-restart", 469 "-output_file", rtrim (out_file), "-limit", ltrim (limit_no), "-arguments", rtrim (get_wdir_ ()), 470 dprint_queue, (hold), no_of_copies_str, ltrim (segname_list), ltrim (abs_args_list), 471 ltrim (dp_args_list)); 472 473 else call enter_abs_request (rtrim (checkdir) || ">runoff_abs_absin", "-queue", absentee_queue, "-restart", 474 "-output_file", rtrim (out_file), "-arguments", rtrim (get_wdir_ ()), dprint_queue, (hold), 475 no_of_copies_str, ltrim (segname_list), ltrim (abs_args_list), ltrim (dp_args_list)); 476 477 call cleaner_up; 478 479 return; 480 481 482 TOO_FEW_ARGS: 483 call com_err_ (code, function_abs, "After ^a.", curarg); 484 goto REQUEST_NOT_SUBMITTED; 485 486 UNREC_OPT: 487 call com_err_ (error_table_$badopt, function_abs, "^a", argu); 488 goto REQUEST_NOT_SUBMITTED; 489 490 REQUEST_NOT_SUBMITTED: 491 call com_err_ (0, function_abs, "Absentee request not submitted."); 492 call cleaner_up; 493 494 return; 495 496 /* format: ^inddcls */ 497 498 /* Add the argument to one of the arbitrarily lengthed output strings */ 499 500 add: 501 procedure (argument, output_ptr, output_len, output_space); 502 503 dcl argument character (*) parameter; 504 dcl output_ptr pointer parameter; 505 dcl output_len fixed binary (21) parameter; 506 dcl output_space pointer parameter; 507 dcl requote_argument bit (1) aligned; 508 dcl new_min_maxlength fixed binary (21); 509 dcl old_output_len fixed binary (21); 510 dcl old_output_ptr pointer; 511 dcl output_string character (output_len) varying based (output_ptr); 512 dcl old_output_string character (old_output_len) varying based (old_output_ptr); 513 514 requote_argument = "0"b; 515 goto START_ADDITION; 516 517 add_requoted: 518 entry (argument, output_ptr, output_len, output_space); 519 520 requote_argument = "1"b; 521 522 START_ADDITION: 523 new_min_maxlength = length (output_string) + length (SP) + length (argument); 524 if requote_argument /* room for possible requoting */ 525 then new_min_maxlength = new_min_maxlength + length (argument) + 2; 526 527 if new_min_maxlength > output_len 528 then do; /* need to make more space */ 529 old_output_ptr = output_ptr; 530 old_output_len = output_len; 531 output_len = max (2 * output_len, new_min_maxlength); 532 allocate output_string in (system_area) set (output_ptr); 533 output_string = old_output_string; 534 if old_output_ptr ^= output_space 535 then free old_output_string in (system_area); 536 end; 537 538 output_string = output_string || SP; 539 540 if requote_argument 541 then output_string = output_string || requote_string_ (argument); 542 else output_string = output_string || argument; 543 544 return; 545 546 end add; 547 548 549 550 cleaner_up: 551 procedure; 552 553 if abs_args_list_ptr ^= addr (abs_args_list_space) 554 then free abs_args_list in (system_area); 555 if dp_args_list_ptr ^= addr (dp_args_list_space) 556 then free dp_args_list in (system_area); 557 if segname_list_ptr ^= addr (segname_list_space) 558 then free segname_list in (system_area); 559 560 return; 561 562 end cleaner_up; 563 564 end runoff_abs; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/04/82 1624.8 runoff_abs.pl1 >dumps>old>recomp>runoff_abs.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. SP 005464 constant char(1) initial unaligned dcl 80 ref 522 538 abs_args_list based varying char dcl 62 ref 467 467 473 473 553 abs_args_list_len 000100 automatic fixed bin(21,0) dcl 25 set ref 125* 381* 388* 402* 408* 414* 553 abs_args_list_ptr 000102 automatic pointer dcl 26 set ref 124* 381* 388* 402* 408* 414* 467 467 473 473 553 553 abs_args_list_space 000104 automatic varying char(256) dcl 27 set ref 123* 124 125 381 381 388 388 402 402 408 408 414 414 553 absentee_queue 000205 automatic char(1) unaligned dcl 28 set ref 147* 148 239* 247 467* 473* absentee_queue_n 000206 automatic fixed bin(17,0) dcl 29 set ref 144* 145 145* 147 absolute_pathname_ 000012 constant entry external dcl 90 ref 258 areap 000210 automatic pointer dcl 30 set ref 121* 532 534 553 555 557 argcount 000212 automatic fixed bin(17,0) dcl 31 set ref 150* 157 168 arglen 000213 automatic fixed bin(21,0) dcl 32 set ref 169* 176 178 183 183 186 186 200 200 206 206 212 212 216* 220 220 223 223 231 231 234* 238 238 242 242 251 251 254* 258 258 261 261 271 271 271 271 271 271 271 271 271 271 271 271 271 271 275 275 279 279 279 279 279 279 279 279 279 279 282 282 284* 288 288 292 292 296 296 298* 302 302 305 305 311 311 315 316 316 320 320 322 322 324* 328 328 331 331 335 335 339 339 341 341 343* 347 347 350 350 354 354 358 358 361* 365 365 369 369 378 378 378 378 378 378 378 378 378 381 381 385 385 385 385 385 385 385 385 385 385 385 385 388 388 390* 394 394 397 397 402 402 406 406 408 408 410* 414 414 486 486 argno 000214 automatic fixed bin(17,0) dcl 33 set ref 168* 169* 172* 215* 215 216* 233* 233 234* 253* 253 254* 283* 283 284* 297* 297 298* 323* 323 324* 342* 342 343* 360* 360 361* 389* 389 390* 409* 409 410* argp 000216 automatic pointer dcl 34 set ref 169* 176 178 183 186 200 206 206 212 212 216* 220 223 231 231 234* 238 242 251 251 254* 258 261 271 271 271 271 271 271 271 271 271 271 271 271 271 271 275 279 279 279 279 279 279 279 279 279 279 282 284* 288 292 292 296 298* 302 305 311 315 316 320 320 322 324* 328 331 335 339 339 341 343* 347 350 354 358 358 361* 365 369 378 378 378 378 378 378 378 378 378 381 385 385 385 385 385 385 385 385 385 385 385 385 388 390* 394 397 402 406 406 408 410* 414 486 argu based char unaligned dcl 63 set ref 176 178 183* 186* 200* 206 206 212 212 220* 223* 231 231 238* 242* 251 251 258* 261* 271 271 271 271 271 271 271 271 271 271 271 271 271 271 275* 279 279 279 279 279 279 279 279 279 279 282* 288* 292 292 296* 302* 305* 311* 315 316* 320 320 322* 328* 331* 335* 339 339 341* 347* 350* 354* 358 358 365* 369* 378 378 378 378 378 378 378 378 378 381* 385 385 385 385 385 385 385 385 385 385 385 385 388* 394* 397* 402* 406 406 408* 414* 486* argument parameter char unaligned dcl 503 set ref 500 517 522 524 540* 542 binary builtin function dcl 71 ref 456 456 bitcnt 000643 automatic fixed bin(24,0) dcl 180 set ref 190* checkdir 000220 automatic char(168) unaligned dcl 35 set ref 183* 190* 193* 193 465* 467 473 checkent 000272 automatic char(32) unaligned dcl 36 set ref 183* 190* 193* 197 432* 439 465* cleanup 000634 stack reference condition dcl 76 ref 164 code 000302 automatic fixed bin(35,0) dcl 37 set ref 150* 151 153* 169* 170 172* 183* 184 186* 190* 191 193* 216* 217 220* 221 234* 235 238* 239 254* 255 258* 259 261* 284* 285 298* 299 302* 303 305* 324* 325 328* 329 343* 344 347* 348 361* 362 365* 366 390* 391 394* 395 410* 411 432* 433 435* 446* 447 449* 465* 482* codeptr builtin function dcl 71 ref 465 465 com_err_ 000014 constant entry external dcl 91 ref 153 172 186 193 223 242 261 305 311 331 350 369 397 426 435 449 458 482 486 490 com_err_$suppress_name 000016 constant entry external dcl 92 ref 159 convert builtin function dcl 71 ref 147 239 366 453 461 cu_$arg_count 000020 constant entry external dcl 94 ref 150 cu_$arg_ptr 000022 constant entry external dcl 95 ref 169 216 234 254 284 298 324 343 361 390 410 curarg 000303 automatic char(32) unaligned dcl 38 set ref 176* 397* 482* cv_dec_check_ 000024 constant entry external dcl 96 ref 220 238 328 347 365 394 default_absentee_queue 000313 automatic bit(1) dcl 39 set ref 127* 246* 453 default_queue 000655 automatic fixed bin(17,0) dcl 443 set ref 446* 453 digit_pic based picture(1) unaligned dcl 64 ref 147 239 366 453 461 dp_args_list based varying char dcl 65 ref 467 467 473 473 555 dp_args_list_len 000314 automatic fixed bin(21,0) dcl 41 set ref 131* 275* 282* 288* 296* 316* 322* 335* 341* 354* 555 dp_args_list_ptr 000316 automatic pointer dcl 42 set ref 130* 275* 282* 288* 296* 316* 322* 335* 341* 354* 467 467 473 473 555 555 dp_args_list_space 000320 automatic varying char(256) dcl 43 set ref 129* 130 131 275 275 282 282 288 288 296 296 316 316 322 322 335 335 341 341 354 354 555 dprint_queue 000421 automatic char(1) unaligned dcl 44 set ref 148* 247* 453* 456 456 458* 461* 467* 473* enter_abs_request 000026 constant entry external dcl 97 ref 467 473 error_sw 000422 automatic bit(1) dcl 45 set ref 133* 194* 421 error_table_$badopt 000010 external static fixed bin(35,0) dcl 86 set ref 486* expand_pathname_$add_suffix 000030 constant entry external dcl 98 ref 183 first_entryname 000423 automatic char(32) unaligned dcl 46 set ref 197* 432* 435* function 000004 constant char(6) initial unaligned dcl 81 set ref 159* 183* 432* function_abs 000000 constant char(10) initial unaligned dcl 82 set ref 153* 159* 159* 172* 186* 193* 223* 242* 261* 305* 311* 331* 350* 369* 397* 426* 435* 449* 458* 482* 486* 490* gen_type 000645 automatic char(32) unaligned dcl 294 set ref 302* 309 get_system_free_area_ 000032 constant entry external dcl 100 ref 121 get_wdir_ 000034 constant entry external dcl 102 ref 467 467 473 473 hcs_$fs_get_path_name 000036 constant entry external dcl 103 ref 465 hcs_$status_minf 000040 constant entry external dcl 105 ref 190 hold 000433 automatic varying char(6) dcl 47 set ref 134* 208* 467 473 i 000436 automatic fixed bin(17,0) dcl 48 set ref 465* index builtin function dcl 71 ref 178 iod_info_$generic_type 000042 constant entry external dcl 107 ref 302 iod_info_$queue_data 000044 constant entry external dcl 109 ref 446 limit_no 000437 automatic picture(10) unaligned dcl 49 set ref 227* 467 467 limit_sw 000442 automatic bit(1) dcl 50 set ref 135* 214* 467 ltrim builtin function dcl 71 ref 467 467 467 467 467 467 467 467 473 473 473 473 473 473 max builtin function dcl 71 ref 531 max_queue 000656 automatic fixed bin(17,0) dcl 444 set ref 446* 456 458* 461 maxlength builtin function dcl 71 ref 125 131 142 new_min_maxlength 000667 automatic fixed bin(21,0) dcl 508 set ref 522* 524* 524 527 531 no_of_copies_str 000443 automatic char(1) unaligned dcl 51 set ref 136* 366* 467* 473* old_output_len 000670 automatic fixed bin(21,0) dcl 509 set ref 530* 534 old_output_ptr 000672 automatic pointer dcl 510 set ref 529* 533 534 534 old_output_string based varying char dcl 512 ref 533 534 out_file 000444 automatic char(168) unaligned dcl 52 set ref 258* 439* 467 467 473 473 output_len parameter fixed bin(21,0) dcl 505 set ref 500 517 527 530 531* 531 532 533 538 540 542 output_ptr parameter pointer dcl 504 set ref 500 517 522 529 532* 533 538 538 540 540 542 542 output_space parameter pointer dcl 506 ref 500 517 534 output_string based varying char dcl 511 set ref 522 532 533* 538* 538 540* 540 542* 542 outsw 000516 automatic bit(1) dcl 53 set ref 137* 265* 430 request_type 000517 automatic char(32) unaligned dcl 54 set ref 138* 315* 446* 449* 458* requote_argument 000666 automatic bit(1) dcl 507 set ref 514* 520* 524 540 requote_string_ 000046 constant entry external dcl 111 ref 540 rtrim builtin function dcl 71 ref 467 467 467 467 467 473 473 473 473 473 segname_list based varying char dcl 66 ref 197 424 467 467 473 473 557 segname_list_len 000527 automatic fixed bin(21,0) dcl 55 set ref 142* 200* 557 segname_list_ptr 000530 automatic pointer dcl 56 set ref 141* 197 200* 424 467 467 473 473 557 557 segname_list_space 000532 automatic varying char(256) dcl 57 set ref 140* 141 142 200 200 557 suffixed_name_$new_suffix 000050 constant entry external dcl 112 ref 432 system_area based area(1024) dcl 67 ref 532 534 553 555 557 system_info_$default_absentee_queue 000052 constant entry external dcl 114 ref 144 temp 000633 automatic fixed bin(35,0) dcl 58 set ref 220* 221 227 238* 239 239 239 328* 329 329 347* 348 348 365* 366 366 366 394* type 000644 automatic fixed bin(2,0) dcl 181 set ref 190* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. hbound builtin function dcl 71 ioa_ 000000 constant entry external dcl 106 lbound builtin function dcl 71 null builtin function dcl 71 string builtin function dcl 71 NAMES DECLARED BY EXPLICIT CONTEXT. ENDLOOP 003623 constant label dcl 418 ref 201 209 228 248 266 276 289 317 336 355 373 382 403 415 REQUEST_NOT_SUBMITTED 005146 constant label dcl 490 ref 173 187 224 243 262 306 312 332 351 370 399 421 427 436 450 484 488 START_ADDITION 005226 constant label dcl 522 ref 515 TOO_FEW_ARGS 005060 constant label dcl 482 ref 217 235 255 285 299 325 344 362 391 411 UNREC_OPT 005113 constant label dcl 486 add 005200 constant entry internal dcl 500 ref 275 282 296 316 322 335 341 354 381 388 402 408 add_requoted 005213 constant entry internal dcl 517 ref 200 288 414 cleaner_up 005405 constant entry internal dcl 550 ref 164 477 492 rfa 000444 constant entry external dcl 19 runoff_abs 000453 constant entry external dcl 19 ref 465 465 NAMES DECLARED BY CONTEXT OR IMPLICATION. addr builtin function ref 124 130 141 200 200 275 275 282 282 288 288 296 296 316 316 322 322 335 335 341 341 354 354 381 381 388 388 402 402 408 408 414 414 553 555 557 length builtin function ref 522 522 522 524 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 5754 6030 5467 5764 Length 6254 5467 54 207 265 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME rfa 959 external procedure is an external procedure. on unit on line 164 64 on unit begin block on line 178 begin block shares stack frame of external procedure rfa. begin block on line 292 begin block shares stack frame of external procedure rfa. begin block on line 442 begin block shares stack frame of external procedure rfa. add internal procedure shares stack frame of external procedure rfa. cleaner_up 66 internal procedure is called by several nonquick procedures. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME rfa 000100 abs_args_list_len rfa 000102 abs_args_list_ptr rfa 000104 abs_args_list_space rfa 000205 absentee_queue rfa 000206 absentee_queue_n rfa 000210 areap rfa 000212 argcount rfa 000213 arglen rfa 000214 argno rfa 000216 argp rfa 000220 checkdir rfa 000272 checkent rfa 000302 code rfa 000303 curarg rfa 000313 default_absentee_queue rfa 000314 dp_args_list_len rfa 000316 dp_args_list_ptr rfa 000320 dp_args_list_space rfa 000421 dprint_queue rfa 000422 error_sw rfa 000423 first_entryname rfa 000433 hold rfa 000436 i rfa 000437 limit_no rfa 000442 limit_sw rfa 000443 no_of_copies_str rfa 000444 out_file rfa 000516 outsw rfa 000517 request_type rfa 000527 segname_list_len rfa 000530 segname_list_ptr rfa 000532 segname_list_space rfa 000633 temp rfa 000643 bitcnt begin block on line 178 000644 type begin block on line 178 000645 gen_type begin block on line 292 000655 default_queue begin block on line 442 000656 max_queue begin block on line 442 000666 requote_argument add 000667 new_min_maxlength add 000670 old_output_len add 000672 old_output_ptr add THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_ne_as alloc_cs call_ext_out_desc call_ext_out call_int_this call_int_other return enable shorten_stack ext_entry int_entry any_to_any_tr alloc_based free_based THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. absolute_pathname_ com_err_ com_err_$suppress_name cu_$arg_count cu_$arg_ptr cv_dec_check_ enter_abs_request expand_pathname_$add_suffix get_system_free_area_ get_wdir_ hcs_$fs_get_path_name hcs_$status_minf iod_info_$generic_type iod_info_$queue_data requote_string_ suffixed_name_$new_suffix system_info_$default_absentee_queue THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$badopt LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 19 000443 121 000460 123 000466 124 000467 125 000471 127 000473 129 000475 130 000476 131 000500 133 000501 134 000502 135 000506 136 000507 137 000511 138 000512 140 000515 141 000516 142 000520 144 000522 145 000531 147 000535 148 000547 150 000550 151 000561 153 000563 154 000600 157 000601 159 000603 161 000637 164 000640 168 000662 169 000671 170 000706 172 000710 173 000742 176 000743 178 000750 183 000762 184 001016 186 001020 187 001052 190 001053 191 001112 193 001114 194 001162 197 001164 200 001175 201 001225 178 001226 206 001227 208 001237 209 001243 212 001244 214 001254 215 001256 216 001257 217 001274 220 001276 221 001321 223 001325 224 001361 227 001362 228 001371 231 001372 233 001402 234 001403 235 001420 238 001422 239 001445 242 001470 243 001527 246 001530 247 001531 248 001532 251 001533 253 001543 254 001544 255 001561 258 001563 259 001607 261 001611 262 001643 265 001644 266 001646 271 001647 275 001737 276 001767 279 001770 282 002040 283 002070 284 002071 285 002106 288 002110 289 002140 292 002141 296 002151 297 002201 298 002202 299 002217 302 002221 303 002245 305 002247 306 002303 309 002304 311 002310 312 002344 315 002345 316 002352 317 002402 292 002403 320 002404 322 002414 323 002444 324 002445 325 002462 328 002464 329 002507 331 002516 332 002555 335 002556 336 002606 339 002607 341 002617 342 002647 343 002650 344 002665 347 002667 348 002712 350 002721 351 002760 354 002761 355 003011 358 003012 360 003022 361 003023 362 003040 365 003042 366 003065 369 003110 370 003144 373 003145 378 003146 381 003212 382 003242 385 003243 388 003323 389 003353 390 003354 391 003371 394 003373 395 003416 397 003420 399 003460 402 003461 403 003511 406 003512 408 003522 409 003552 410 003553 411 003570 414 003572 415 003622 418 003623 421 003625 424 003627 426 003635 427 003665 430 003666 432 003670 433 003722 435 003724 436 003757 439 003760 446 003763 447 004007 449 004011 450 004042 453 004043 456 004057 458 004074 461 004135 465 004147 467 004202 473 004544 477 005052 479 005057 482 005060 484 005112 486 005113 488 005145 490 005146 492 005173 494 005177 500 005200 514 005211 515 005212 517 005213 520 005224 522 005226 524 005234 527 005241 529 005243 530 005245 531 005247 532 005254 533 005266 534 005277 538 005311 540 005323 542 005367 544 005403 550 005404 553 005412 555 005427 557 005444 560 005461 ----------------------------------------------------------- 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