COMPILATION LISTING OF SEGMENT gcos_tss Compiled by: Multics PL/I Compiler, Release 29, of July 28, 1986 Compiled at: Honeywell Bull, Phx. Az., Sys-M Compiled on: 08/04/87 1619.7 mst Tue Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* * Copyright (c) 1972 by Massachusetts Institute of * 6* * Technology and Honeywell Information Systems, Inc. * 7* * * 8* *********************************************************** */ 9 10 11 gcos_tss: gtss: proc; 12 13 /** GCOS TIME-SHARING on Multics 14* 15* Authors: Robert J. Grimes Created 16* - Albert N. Kepner 1978 17* - Robert M. May 18* - David B. Ward 19* Change: Dave Ward 02/24/79 db entry. 20* Change: Dave Ward 03/20/79 get_line init. 21* Change: Mel Wilson 03/26/79 set ust CARD permission and urgency. 22* Change: Dave Ward 03/28/79 db switches by name. 23* Change: Al Kepner 03/30/79 to allow gtss to be called under file outpuut. 24* Change: Al Dupuis 06/01/79 to init bits used for command file processing. 25* Change: Dave Ward 06/28/79 Set gcos terminal type. 26* Change: Dave Ward 07/28/79 Set mcfc structure pointers. 27* Change: Bob Alvarado 08/01/79 added ll190 to output modes. 28* Change: Al Dupuis 08/02/79 added drun entry. 29* Change: Dave Ward 08/12/79 mcfc entry. 30* Change: Al Dupuis 08/20/79 added call to timer_manager and gtss_abs_$cpu_runout, so that 31* when gtss$drun is called, it sets an execution time limit. 32* Change: Paul Benjamin 09/21/79 removed setting gtss_ust.lflg2.b6 from initialize 33* Change: Al Dupuis 09/25/79 moved timer_manager_ stuff to gtss_drun_, 34* added call to gtss_drun_ from init 35* and term, and begin block for finish. 36* Change: Paul Benjamin 10/03/79 inhibit quits when logging out 37* Change: Dave Ward 11/06/79 cleanup freeing of work space repositioned. 38* Change: Al Dupuis 11/10/79 initialize gtss_ext_$drun_jid, set gtss_ext_$process_type. 39* Change: Dave Ward 12/18/79 prevent clean_up from getting in loop. 40* Change: Al Dupuis 01/15/80 site-settable drun_start_time. 41* Change: Scott C. Akers 08/14/81 Reset tty_modes on QUITs. 42* Change: Scott C. Akers 11/24/81 Prevent looping on uninitialiazed AFT. 43* Change: Scott C. Akers 01/05/82 Don't require GSE before GTSS. Use defaults instead. 44* Change: Ron Barstad 3.0 82-08-11 Change 4J to 4JS3 45* Change: Ron Barstad 3.1 83-02-22 Delete call to cu_$cp for GSE, defaults set in gse_ext_ 46* Change: Ron Barstad 3.2 83-03-31 Added function code 8 to drl T.CFIO 47* Change: Ron Barstad 3.3 83-06-29 Brought drls PASUST and T.CMVO to 4js3 48* Fix drm rule init to zero by gse 49* **/ 50 51 if gtss_already_called then do; 52 call com_err_ ( /* gtss called recursively. */ 53 0 54 , "gtss("||gtss_constants$version||")" 55 , "gtss can not be recursively called.^/release or new_proc if not already in gtss."); 56 return; 57 end; 58 59 /** Set default directory mapping. **/ 60 if gse_ext_$drm_rule = 0 then gse_ext_$drm_rule = 2; /* make it wd */ 61 62 /** Obtain list of arguments pointers and lengths. **/ 63 call cu_$arg_count (nargs); 64 if nargs > 0 then do; 65 call com_err_ ( /* gtss called with arguments, none allowed. */ 66 error_table_$arg_ignored 67 , "gtss("||gtss_constants$version||")" 68 , "^/Use gcos_set_environment command to set parameters for gtss."); 69 return; 70 end; 71 start: ; 72 unspec (gtss_ext_$flags) = "0"b; 73 74 gtss_already_called = "1"b; 75 76 /** Set on blocks (except any_other). **/ 77 on cleanup call clean_up; 78 on cond (gtss_fail) begin; 79 call com_err_ ( 80 0 81 , "gtss("||gtss_constants$version||")" 82 , "Cannot continue. Quitting." 83 ); 84 goto termination; 85 end; 86 on cond (command_error) begin; 87 if gtss_ext_$put_chars = gtss_CFP_output_ 88 then call gtss_com_err_; 89 end; 90 on cond (finish) begin; 91 if execute_drun ^= 0 then do; 92 /* Determine if drun termination was complete */ 93 call hcs_$initiate_count (gtss_ext_$homedir, 94 "drun_restart." || gtss_ext_$drun_jid, "", 95 bit_count, 1, gtss_ext_$restart_seg_ptr, code); 96 if gtss_ext_$restart_seg_ptr ^= null () then do; 97 call delete_$ptr (gtss_ext_$restart_seg_ptr, code); 98 call com_err_ ( 99 0 100 , "gtss$drun" 101 , "When simulator termination took place the catalog entry was marked as still executing"); 102 end; 103 end; 104 end; 105 106 if initialize () then do; 107 AFT_INITIALIZED = "1"b; 108 109 if db_drl_kin then 110 if gtss_dump_kin_$init () then goto abort; 111 112 if gse_ext_$modes.gdb then do; 113 call gcos_debug_$initial (code); 114 gse_ext_$modes.gdb = (code = 0); 115 end; 116 on any_other call gtss_fault_processor_; 117 call ioa_ ("GTSS 4JS3 (^a)", gtss_constants$version); 118 119 /** Process GCOS TSS input **/ 120 call gtss_interp_prim_; 121 termination: ; 122 123 if db_drl_kin then call gtss_dump_kin_$fin; 124 end; 125 abort: ; 126 on quit call gtss_fix_tty_modes_; /* Don't let him screw anything up now. 127* Just fix the tty modes and keep going. */ 128 call clean_up; 129 return; 130 131 unset_drl_rtrn: ; 132 call com_err_ ( 133 0 134 , "gtss("||gtss_constants$version||")" 135 , "goto gtss_ext_$drl_rtrn(^i) or gtss_ext_$restart_from_pi or gtss_ext_$popup_from_pi" || 136 "^/or gtss_ext_$dispose_of_drl returned to gtss unset_drl_rtrn.", 137 gtss_ext_$stack_level_); 138 signal cond (gtss_fail); 139 return; 140 141 get_mem: entry (sap, slp)returns (bit (1)); 142 143 /** Entry to provide pointers to slave area pointers and 144* the stack level index (used by gcos_debug). 145* **/ 146 dcl sap ptr parm; 147 dcl slp ptr parm; 148 sap = addr (gtss_ext_$gtss_slave_area_seg); 149 slp = addr (gtss_ext_$stack_level_); 150 return ("0"b); /* Successful. */ 151 152 db: entry; 153 154 /** Regulate and display debug switch bits. **/ 155 dcl args_ptr ptr; 156 dcl cu_$arg_list_ptr entry(ptr); 157 call cu_$arg_list_ptr (args_ptr); 158 call gtss_set_db_$arg_ptr (db_bits, args_ptr); 159 return; 160 dcl gtss_set_db_$arg_ptr entry((72)bit(1),ptr); 161 162 init: entry; 163 if initialize () then ; 164 return; 165 166 mcfc: entry; 167 168 /* Perform various mcfc functions: 169* -wait n Set wait time to n seconds. 170**/ 171 call cu_$arg_count (nargs); 172 if (nargs<1)| (nargs>5) then do; 173 call com_err_ (0, "gtss$mcfc", 174 "Allowable args: -wait n, -print."); 175 return; 176 end; 177 dcl need_n bit(1); 178 need_n = "0"b; 179 do i = 1 to nargs; 180 call cu_$arg_ptr (i, ap, al, code); 181 if code ^= 0 then do; 182 call com_err_ (code, "gtss$mcfc", "Arg ^i.", i); 183 return; 184 end; 185 if need_n then do; 186 need_n = "0"b; 187 if verify (cmd_arg, "0123456789")>0 then 188 call com_err_ (0, "gtss$mcfc", 189 "Arg ^i, ""^a"", not integer number of seconds.", i, cmd_arg); 190 else 191 gtss_ext_$mcfc.wait_time = fixed (cmd_arg, 24); 192 end; 193 else 194 if cmd_arg = "-wait" then need_n = "1"b; 195 else 196 if cmd_arg = "-print" then do; 197 call com_err_ (0, "gtss$mcfc", 198 "mcfc wait seconds ^i", gtss_ext_$mcfc.wait_time); 199 end; 200 else 201 call com_err_ (0, "gtsmcfc", 202 "Arg ^i, ""^a"", not from -wait n or -print.", i, cmd_arg); 203 end; 204 if need_n then 205 call com_err_ (0, "gtss$mcfc", "-wait not followed by n, number of seconds."); 206 return; 207 208 drun: entry; 209 210 /** Check for one valid DRUN ID (nnnnD) **/ 211 212 call cu_$arg_count (nargs); 213 if nargs ^= 1 then do; 214 call com_err_ (0, "gtss$drun", 215 "Correct usage is gtss$drun drun_job_id"); 216 return; 217 end; 218 219 call cu_$arg_ptr (1, arg_ptr, argl, code); 220 if code ^= 0 then do; 221 call com_err_ (code, "gtss$drun"); 222 return; 223 end; 224 225 if (argl ^= 5) 226 | ((d1 < "0") | (d1 > "9")) 227 | ((d2 < "0") | (d2 > "9")) 228 | ((d3 < "0") | (d3 > "9")) 229 | ((d4 < "0") | (d4 > "9")) 230 | ^((d5 = "d") | (d5 = "D")) 231 then do; 232 call com_err_ (0, "gtss$drun", 233 "^a is not a valid drun job id", argument); 234 return; 235 end; 236 237 /** Tell DRUN it's time to execute **/ 238 djid = argument; 239 call gtss_ascii_bcd_ (arg_ptr, 5, addr (drun_job_id)); 240 execute_drun = 17; 241 242 goto start; 243 244 245 clean_up: proc; 246 /** gtss cleanup condition procedure. **/ 247 248 on cleanup goto fin_cleanup; 249 250 if db_drl_kin then call gtss_dump_kin_$clean; 251 if AFT_INITIALIZED 252 then if ((gtss_ust.lcjid ^= "0"b) | (drun_term_req)) 253 then call gtss_drun_ (error); /* DRUN termination */ 254 do i = 1 to hbound (temp_segment_ptr, 1); 255 if temp_segment_ptr (i) ^= null () then do; /* Maximize segment length. */ 256 call hcs_$set_max_length_seg ( 257 temp_segment_ptr (i) 258 , sys_info$max_seg_size 259 , code); 260 if code ^= 0 then 261 call com_err_ (code, "gtss$clean_up", 262 "Could not maximize temp segment ^i (^p)", 263 i, temp_segment_ptr (i)); 264 end; 265 end; 266 267 268 if gtss_ext_$sig_ptr ^= null () then do; /* pointer was diddled */ 269 call sct_manager_$set (derail_sct_index, gtss_ext_$sig_ptr, code); 270 if code ^= 0 then 271 call com_err_ (code, "gtss$clean_up", "Reseting static handler."); 272 gtss_ext_$sig_ptr = null (); /* reinitialize */ 273 end; 274 275 /** Close any files indicated open in AFT. **/ 276 on cleanup goto fin_close; 277 if AFT_INITIALIZED then 278 do i = 1 to hbound (aft_entry, 1); 279 if aft_entry (i).used then do; 280 call gtss_ios_close_ ( 281 (i) 282 , addr (fms_status) 283 , code 284 ); 285 if fms_status.bit12 ^= "4000"b3 then 286 call com_err_ ( 287 code 288 , "gtss$clean_up" 289 , "File (^i) ""^a"" won't close. Status=^w." 290 , i 291 , aft_entry (i).altname 292 , fms_status 293 ); 294 end; 295 fin_close: ; 296 end; 297 revert cleanup; 298 299 /** Clear AFT table (of what can cause problems). **/ 300 gtss_ext_$aft.start_list = 0; 301 gtss_ext_$aft.aft_entry.used = "0"b; 302 gtss_ext_$aft.free_space = 1; 303 gtss_ext_$aft.first_added, gtss_ext_$aft.last_added = 0; 304 305 if reattach then do; 306 call iox_$modes (iox_$user_output, current_modes, old_modes, code); 307 if code ^= 0 then 308 call com_err_ (code, "gtss$cleanup"); 309 end; 310 311 call null_label (gtss_ext_$finished); 312 call null_label (gtss_ext_$bad_drl_rtrn); 313 do i = 1 to hbound (gtss_ext_$drl_rtrn, 1); 314 call null_label (gtss_ext_$drl_rtrn (i)); 315 end; 316 317 call release_temp_segments_ ( 318 "gtss("||gtss_constants$version||")" 319 , temp_segment_ptr 320 , code); 321 if code ^= 0 then call com_err_ (code, "gtss$clean_up", "Releasing temp segments."); 322 gtss_ext_$gtss_slave_area_seg = null (); 323 gtss_ext_$work_area_ptr = null (); 324 325 if gtss_ext_$fast_lib.fast_lib_fcb ^= null () then 326 call msf_manager_$close (fast_lib_fcb); /* Free space allocated for msf control block. */ 327 gtss_already_called = "0"b; 328 329 fin_cleanup: ; 330 return; 331 332 dcl code fixed bin (35)static int; 333 dcl i fixed bin (24)static int; 334 dcl status fixed bin (24)static int; 335 dcl 1 fms_status aligned, 336 2 bit12 bit(12)unal, 337 2 bit60 bit(60)unal; 338 end clean_up ; 339 340 initialize: proc returns (bit (1)); 341 342 /** Return "1"b if successful, else "0"b. 343* **/ 344 call gtss_derail_processor_$set; 345 346 /** Retain following assignments at top of 347* initialization to assure clean_up handler 348* can function. 349* **/ 350 gtss_ext_$gtss_slave_area_seg = null (); 351 gtss_ext_$work_area_ptr = null (); 352 temp_segment_ptr = null (); 353 gtss_ext_$fast_lib.fast_lib_fcb = null (); 354 gtss_ext_$sig_ptr = null (); 355 call gtss_ios_initialize_; 356 aft_entry.used = "0"b; 357 reattach = "1"b; 358 359 /** End of sensitive assignments. **/ 360 361 /** Set debugging switches OFF. */ 362 string (gtss_ext_$db) = string (db_bits); 363 364 gtss_ext_$last_k_was_out = "0"b; /* Last tty i/o not output. */ 365 gtss_ext_$aem = 5; /* Force additional error messages displayed. */ 366 367 /** Set label variables. **/ 368 gtss_ext_$finished = termination; 369 gtss_ext_$bad_drl_rtrn = unset_drl_rtrn; 370 gtss_ext_$drl_rtrn = unset_drl_rtrn; 371 gtss_ext_$popup_from_pi = unset_drl_rtrn; 372 gtss_ext_$restart_from_pi = unset_drl_rtrn; 373 gtss_ext_$dispose_of_drl = unset_drl_rtrn; 374 375 /* Initialize mcfc data base. */ 376 call gtss_mcfc_init_ (rs); 377 dcl rs char(5)var; 378 if rs = "false" then return ("0"b); 379 380 /** Initialize statistics data. **/ 381 gtss_ext_$statistics.total_time = 0; 382 gtss_ext_$statistics.count = 0; 383 gtss_ext_$gdb_name = " "; 384 gtss_ext_$stack_level_ = 1; 385 386 /** Establish library of objects 387* for installed subsystems. 388* **/ 389 gtss_ext_$fast_lib.fast_lib_fcb = null (); 390 gtss_ext_$fast_lib.fast_lib_ncp = 0; /* Number of components. */ 391 gtss_ext_$fast_lib.comp_ptr = null (); 392 gtss_ext_$fast_lib.comp_wds = 0; 393 dummy_label: ; /* Get directory where code is currently executing. */ 394 me_ptr = codeptr (dummy_label); 395 call hcs_$fs_get_path_name (me_ptr, 396 installation_directory, 397 0, 398 "", 399 code); 400 if code ^= 0 then do; 401 call com_err_ (code, "gtss$initialize", 402 "Can not obtain directory containing installed subsystem library."); 403 return ("0"b); 404 end; 405 call msf_manager_$open ( 406 (installation_directory) 407 , (gtss_install_values_$fast_msf) 408 , gtss_ext_$fast_lib.fast_lib_fcb 409 , code); 410 if code ^= 0 then do; 411 call com_err_ (code, "gtss$initialize", 412 "Can not obtain installed subsystem library ^a>^a.", 413 installation_directory, gtss_install_values_$fast_msf); 414 return ("0"b); 415 end; 416 417 /** Obtain component pointers. **/ 418 do i = 0 by 1 while (code = 0); 419 call msf_manager_$get_ptr ( 420 gtss_ext_$fast_lib.fast_lib_fcb 421 , i 422 , use_existing_components 423 , gtss_ext_$fast_lib.comp_ptr (i) 424 , l 425 , code); 426 if code = 0 then /* Set component length. */ 427 gtss_ext_$fast_lib.comp_wds (i) = divide (l, 36, 24, 0); 428 else 429 if code ^= error_table_$noentry then do; 430 call com_err_ (code, "gtss$initialize", 431 "Failed attempting to get component ^i of library ^a>^a.", 432 i, installation_directory, gtss_install_values_$fast_msf); 433 return ("0"b); 434 end; 435 end; 436 if i<1 then do; 437 call com_err_ (0, "gtss$initialize", 438 "No components for library ^a>^a.", 439 installation_directory, gtss_install_values_$fast_msf); 440 return ("0"b); 441 end; 442 gtss_ext_$fast_lib.fast_lib_ncp = i-1; 443 444 /** Initialize bits used in command file processing */ 445 unspec (gtss_ext_$CFP_bits) = "0"b; 446 unspec (gtss_ext_$com_reg) = "0"b; /* init communication region */ 447 /** Set drun cpu limit and preferred start time in 64ths of milsec **/ 448 gtss_ext_$com_reg.tsdpt = drun_cpu_limit; 449 gtss_ext_$com_reg.tsddt = drun_start_time; 450 451 /** Initialize user status table. **/ 452 unspec (gtss_ust_ext_$ust) = "0"b; 453 call decode_clock_value_ (clock (), m, d, y, time, w, z); 454 time = divide (time, 1000, 71, 0) * 64; 455 gtss_ust.ltalc.tod = time53; /* => time / 2**18. */ 456 gtss_ust.lrtll.char_length = 81; 457 gtss_ust.lrtll.word_length = 21; 458 gtss_ust.lflg2.b24 = "0"b; /* Auto blank indicator off. */ 459 gtss_ust.lflg2.b25 = "0"b; /* Auto mode off. */ 460 gtss_ust.linno = 10; /* Default auto[x] initial line number. */ 461 gtss_ust.lincr = 10; /* Default auto[x] line number increment. */ 462 gtss_ust.lacpt.cardin, /* Permission to use CARDIN, BPRINT, BPUNCH */ 463 gtss_ust.lacpt.lods, /* Permission to use LODS */ 464 gtss_ust.lacpt.lodx = "1"b; /* Permission to use LODX */ 465 gtss_ust.lacpt.cardin_urgency = "00000000000101"b; /* default cardin urgency of 05 */ 466 467 /* Initialize remote i/o buffer. */ 468 gtss_ust.current_line_pointer = bit (fixed (fixed (rel (addr (gtss_ust.count_of_characters_transmitted))) 469 - fixed (rel (addr (gtss_ust))), 18), 18); 470 gtss_ust.buffer_threshold_address = bit (fixed ( 471 fixed (rel (addr (gtss_ust.word_after_ust)))- 472 fixed (rel (addr (gtss_ust))), 18), 18); 473 gtss_ust.number_words_transmitted, count_of_characters_transmitted = 1; 474 string (gtss_ust.characters_transmitted) = " "; 475 gtss_ust.characters_transmitted (1), 476 gtss_ust.characters_transmitted (2), 477 gtss_ust.characters_transmitted (3), 478 gtss_ust.characters_transmitted (4) = CR; call gtss_ascii_bcd_ (addr (ascii_channel_id), 2, addr (gtss_ust.lbuf.station_id)); 479 gtss_ust.lbuf.address = bit (fixed (fixed (rel (addr (gtss_ust.remote_io_buffer)))- 480 fixed (rel (addr (gtss_ust))), 18), 18); 481 gtss_ust.lbuf.tally = "1"b; 482 gtss_ust.lcals.b18_35 = bit (fixed ( 483 fixed (rel (addr (gtss_ust.lcals)))-fixed (rel (addr (gtss_ust))) 484 +2*hbound (gtss_ust.subsystems, 1), 18), 18); 485 gtss_ust.lcals.b0_17 = fixed (rel (addr (gtss_ust.lcals))) - 486 fixed (rel (addr (gtss_ust))); 487 gtss_ust.lfile.program_stack, gtss_ust.lxxx.b0_17 = 488 fixed (rel (addr (gtss_ust.lxxx)))- fixed (rel (addr (gtss_ust))); 489 490 call set_terminal_type ( 491 gtss_ust.lbuf.terminal_type 492 , gtss_ust.lbuf.station_id 493 ); 494 495 call user_info_ (person_id, proj, acct); 496 gtss_ext_$user_id = rtrim (proj); 497 call user_info_$homedir (gtss_ext_$homedir); 498 call user_info_$process_type (gtss_ext_$process_type); 499 500 /* No longer used by mcfc. 501* dcl user_info_$process_type entry(fixed bin); 502* dcl pt fixed bin; 503* call user_info_$process_type (pt); 504* dcl amz (3)char(1)static int options(constant)init("a","m","z"); 505* gtss_ext_$multics_access_id = rtrim (person_id)||"." 506* ||rtrim (proj)||"." 507* ||amz (pt); 508**/ 509 510 if gse_ext_$drm_rule = 2 then do; /* wd mapping rule */ 511 /* .LID in the UST will be set to the first 512* 12 characters of the working_dir name. */ 513 call expand_pathname_ (get_wdir_ (), "", wd_name, code); 514 if code ^= 0 then do; 515 call com_err_ (code, "gtss$initialize", 516 "Failed attempting to get entry name portion of working_dir"); 517 return ("0"b); 518 end; 519 call gtss_ascii_bcd_ (addr (wd_name), 12, addr (gtss_ust.lid)); 520 end; 521 else do; /* umc or smc mapping rule */ 522 call gtss_ascii_bcd_ (addr (gse_ext_$umc_name), 12, addr (gtss_ust.lid)); 523 end; 524 /* Put local values in UST (set if gtss$drun called) */ 525 if drun_job_id ^= "0"b then do; 526 gtss_ust.lcjid = drun_job_id; 527 call gtss_bcd_ascii_ (addr (drun_job_id), 5, addr (gtss_ext_$drun_jid)); 528 end; 529 else gtss_ext_$drun_jid = " "; 530 gtss_ust.lcfst.start_term = execute_drun; 531 ascii_channel_id = substr (unique_chars_ ("0"b), 13, 2); /* get a substr(unique_chars_("0"b) set */ 532 533 534 /** Provide process directory work segments. **/ 535 call get_temp_segments_ ( 536 "gtss("||gtss_constants$version||")" 537 , temp_segment_ptr 538 , code); 539 if code ^= 0 then do; 540 call com_err_ (code, "gtss$initialize", "Could not obtain slave area segs. Quitting."); 541 return ("0"b); 542 end; 543 544 /** Assign to external variables. **/ 545 gtss_ext_$gtss_slave_area_seg (1) = temp_segment_ptr (1); 546 gtss_ext_$gtss_slave_area_seg (2) = temp_segment_ptr (2); 547 gtss_ext_$gtss_slave_area_seg (3) = temp_segment_ptr (3); 548 gtss_ext_$gtss_slave_area_seg (4) = temp_segment_ptr (4); 549 550 /** Provide empty based area for allocation. **/ 551 gtss_ext_$work_area_ptr = temp_segment_ptr (5); 552 work_area = empty (); 553 554 /** Provide temp segment for deferred (FMS) catalog records. **/ 555 gtss_ext_$deferred_catalogs_ptr = temp_segment_ptr (6); 556 557 /** Provide segment for multics acl area (hcs_). **/ 558 gtss_ext_$hcs_work_area_ptr = temp_segment_ptr (7); 559 560 /** Obtain of caller's process directory. **/ 561 pd = get_pdir_ (); 562 gtss_ext_$pdir = rtrim (pd); 563 564 call gtss_aft_$initialize (code); 565 if code ^= 0 then do; 566 call com_err_ (0, "gtss$initialize", 567 "Could not initialize aft."); 568 return ("0"b); 569 end; 570 571 /* Set iox_$get_line as initial build mode input routine. */ 572 gtss_ext_$get_line = iox_$get_line; 573 574 /* Set iox_$put_chars as initial terminal output routine. */ 575 gtss_ext_$put_chars = iox_$put_chars; 576 577 /** Open SY** file. **/ 578 dcl arg_space (size (arg))bit (36)aligned; 579 dcl mc_space (size (mc))bit (36)aligned; 580 581 arg_ptr = addr (arg_space); 582 arg.ascii_file_name = "sy**"; 583 arg.arg2.a = "64"b3; /* MSU0400 (disk)? */ 584 arg.arg2.b = "0"b; /* Use standare TSS temp file device. */ 585 arg.arg2.c = "1"b; /* Random. */ 586 arg.arg2.d = "0001"b3; /* 1 link. */ 587 588 call gtss_drl_defil_$subr ( 589 arg_ptr 590 , addr (dfsw) 591 , addr (mc_space) 592 ); 593 594 dcl 1 dfsw aligned, 595 2 sw1 fixed bin (24), 596 2 sw2 fixed bin (24); 597 598 if dfsw.sw1 ^= 0 then do; 599 call com_err_ (0, "gtss$initialize", 600 "Can not open SY**. DRL DEFIL status ^i.", sw1); 601 return ("0"b); 602 end; 603 gtss_ext_$SYstarstar_file_no = arg_ptr -> fixed_bin24; /* Record AFT entry for SY** (it doesn't move). */ 604 605 /** Initialize SY** accumulator data base 606* (used by gtss_build_). 607* **/ 608 unspec (gtss_SYstarstar_$FILE) = "0"b; 609 gtss_SYstarstar_$FILE.OP1.Device_Command = seek_cmd; 610 gtss_SYstarstar_$FILE.OP1.Count = "02"b3; /* 2 => two operations, seek and write. */ 611 gtss_SYstarstar_$FILE.OP2.Device_Command = write_cmd; 612 /* Word offset to gtss_SYstarstar_$FILE.Seek_Word. */ 613 gtss_SYstarstar_$FILE.ID1.DCW_list_loc = rel (addr (gtss_SYstarstar_$FILE.Seek_Word)); 614 gtss_SYstarstar_$FILE.ID2.DCW_list_loc = rel (addr (gtss_SYstarstar_$FILE.DCW)); 615 /* Word offset to Seek_Address. */ 616 gtss_SYstarstar_$FILE.Seek_loc = rel (addr (gtss_SYstarstar_$FILE.Seek_Address)); 617 gtss_SYstarstar_$FILE.Status_loc = rel (addr (gtss_SYstarstar_$FILE.STATUS)); 618 gtss_SYstarstar_$FILE.Seek_count = 1; /* => 1 word of Seek_Address. */ 619 gtss_SYstarstar_$FILE.DCW.word_count = "1200"b3; /* 1200 octal = 640 decimal (words). */ 620 /* Word offset to gtss_SYstarstar_$FILE.RECORD. */ 621 gtss_SYstarstar_$FILE.DCW.memory_loc = rel (addr (gtss_SYstarstar_$FILE.RECORD)); 622 gtss_SYstarstar_$FILE.SYss = "sy**"; 623 gtss_SYstarstar_$FILE.ID1.fcb_loc 624 , gtss_SYstarstar_$FILE.ID2.fcb_loc 625 = rel (addr (gtss_SYstarstar_$FILE.SYss)); 626 627 /** Initialize ios select sequence to provide 628* for reading the command processing file. 629* **/ 630 unspec (gtss_starCF_$FILE) = "0"b; 631 /* "0"b => cf stack is empty. */ 632 gtss_starCF_$FILE.OP1.Device_Command = seek_cmd; 633 gtss_starCF_$FILE.OP1.Count = 2; /* 2 => two operations (seek read) */ 634 /* Word offset to gtss_starCF_$FILE.Seek_Word. */ 635 gtss_starCF_$FILE.ID1.DCW_list_loc = rel (addr (gtss_starCF_$FILE.Seek_Word)); 636 gtss_starCF_$FILE.ID2.DCW_list_loc = rel (addr (gtss_starCF_$FILE.DCW)); 637 /* Word offset to Seek_Address. */ 638 gtss_starCF_$FILE.Seek_loc = rel (addr (gtss_starCF_$FILE.Seek_Address)); 639 gtss_starCF_$FILE.Status_loc = rel (addr (gtss_starCF_$FILE.STATUS)); 640 gtss_starCF_$FILE.Seek_count = 1; /* => 1 word of Seek_Address. */ 641 gtss_starCF_$FILE.DCW.word_count = 64; 642 /* Word offset to gtss_starCF_$FILE.RECORD. */ 643 gtss_starCF_$FILE.DCW.memory_loc = rel (addr (gtss_starCF_$FILE.RECORD)); 644 /** Initialize ios select sequence for reading #D **/ 645 unspec (gtss_def_q_$FILE) = "0"b; 646 gtss_def_q_$FILE.OP1.Device_Command = seek_cmd; 647 gtss_def_q_$FILE.OP1.Count = 2; /* 2 => two operations (seek read) */ 648 /* Word offset to gtss_def_q_$FILE.Seek_Word. */ 649 gtss_def_q_$FILE.ID1.DCW_list_loc = rel (addr (gtss_def_q_$FILE.Seek_Word)); 650 gtss_def_q_$FILE.ID2.DCW_list_loc = rel (addr (gtss_def_q_$FILE.DCW)); 651 /* Word offset to Seek_Address. */ 652 gtss_def_q_$FILE.Seek_loc = rel (addr (gtss_def_q_$FILE.Seek_Address)); 653 gtss_def_q_$FILE.Status_loc = rel (addr (gtss_def_q_$FILE.STATUS)); 654 gtss_def_q_$FILE.Seek_count = 1; /* => 1 word of Seek_Address. */ 655 gtss_def_q_$FILE.DCW.word_count = 64; 656 /* Word offset to gtss_def_q_$FILE.RECORD. */ 657 gtss_def_q_$FILE.DCW.memory_loc = rel (addr (gtss_def_q_$FILE.RECORD)); 658 gtss_def_q_$FILE.ID1.fcb_loc, 659 gtss_def_q_$FILE.ID2.fcb_loc 660 = rel (addr (gtss_def_q_$FILE.DQ)); 661 662 663 /** Initialize data base used for file IO by 664* gtss_drl_drlsav_ and gtss_drl_restor_. **/ 665 666 unspec (gtss_save_restore_data_$IO) = "0"b; 667 gtss_save_restore_data_$IO.OP1.Device_Command = seek_cmd; 668 gtss_save_restore_data_$IO.OP1.Count = "02"b3; /* 2 => two operations. */ 669 gtss_save_restore_data_$IO.OP2.Device_Command = write_cmd; 670 /* Word offset to gtss_save_restore_data_$IO.Seek_Word. */ 671 gtss_save_restore_data_$IO.ID1.DCW_list_loc = rel (addr (gtss_save_restore_data_$IO.Seek_Word)); 672 gtss_save_restore_data_$IO.ID2.DCW_list_loc = rel (addr (gtss_save_restore_data_$IO.DCW)); 673 /* Word offset to Seek_Address. */ 674 gtss_save_restore_data_$IO.Seek_loc = rel (addr (gtss_save_restore_data_$IO.Seek_Address)); 675 gtss_save_restore_data_$IO.Status_loc = rel (addr (gtss_save_restore_data_$IO.STATUS)); 676 gtss_save_restore_data_$IO.Seek_count = 1; /* => 1 word of Seek_Address. */ 677 678 /** Record current static handler for derails (reset at conclusion of gtss). **/ 679 call sct_manager_$get (derail_sct_index, gtss_ext_$sig_ptr, code); 680 if code ^= 0 then do; 681 sct_fail: ; 682 call com_err_ (code, "gtss$initialize", "Can't set static handler for derails"); 683 return ("0"b); 684 end; 685 686 /** Reset static handler for derails to gtss's handler. **/ 687 688 call sct_manager_$set (derail_sct_index, addr (gtss_derail_processor_), code); 689 if code ^= 0 then goto sct_fail; 690 691 call iox_$modes (iox_$user_output, "edited,^can,ll190", current_modes, code); 692 if code ^= 0 then do; 693 reattach = "0"b; 694 if code = error_table_$no_operation 695 then current_modes = ""; 696 else if code ^= error_table_$not_attached then do; 697 call com_err_ (code, "gtss$initialize", 698 "Could not obtain terminal modes"); 699 return ("0"b); 700 end; 701 end; 702 703 /* If gtss$drun has been called, or a DRUN has been done before (the 704* deferred queue file ([hd]>drun_#d_q) exists, do DRUN initialization */ 705 if gtss_ust.lcjid ^= "0"b then 706 call gtss_drun_ (error); 707 else do; 708 call hcs_$status_minf (gtss_ext_$homedir, "drun_#d_q", 709 1, type, bit_count, code); 710 if code ^= error_table_$noentry then do; 711 call gtss_drun_ (error); 712 drun_term_req = "1"b; 713 end; 714 end; 715 if error then do; 716 call com_err_ (0, "gtss$initialize", 717 "Couldn't do DRUN initialization"); 718 return ("0"b); 719 end; 720 721 722 return ("1"b); 723 end initialize ; 724 725 null_label: proc (l); 726 727 /** Set label variable unusable. **/ 728 dcl l label parm; 729 l = null_null; 730 return; 731 732 dcl null_null label based (addr (two_nulls)); 733 dcl two_nulls (2)ptr static int init ((2)null ()); 734 end null_label ; 735 736 set_terminal_type: proc (tt, sid); 737 738 /* Map Multics caller's terminal type and channel 739* to GCOS terminal type and station id. 740**/ 741 dcl sid bit(12)unal parm; 742 dcl tt bit(5)unal parm; 743 call user_info_$terminal_data ( 744 term_id_code 745 , term_type 746 , term_channel 747 , term_line_type 748 , term_charge_type 749 ); 750 751 /* Translate Multics terminal types 752* to gcos types. 753* 754* Note: multics_type type table not in use 755* (see below). 756**/ 757 if substr (term_type, 1, 1) = "V" then do; /* => CRT (see multics type table). */ 758 tt = "01101"b; /* 15octal => CRT. */ 759 gtss_ust.lflg2.b20 = "1"b; /* => VIP. */ 760 end; 761 else tt = "00100"b; /* 4octal => teleprinter | command file. */ 762 763 /* Interpret Multics channel value 764* as 12bits (2 bcd chars) gcos value. 765**/ 766 sid = 767 bit (fixed (search ("abcdefghijklmnopqrstuvwxyz", substr (term_channel, 1, 1)), 6)) 768 || 769 bit (fixed (search ("0123456789", substr (term_channel, 6, 1)), 6)); 770 return; 771 772 dcl i fixed bin; 773 dcl term_channel char(8); 774 dcl term_charge_type char(8); 775 dcl term_id_code char(4); 776 dcl term_line_type fixed bin; 777 dcl term_type char(12); 778 dcl user_info_$terminal_data entry(char(*),char(*),char(*),fixed bin,char(*)); 779 780 dcl 1 multics_term (79)static int options(constant) 781 , 2 type char(18) init( 782 /* 01 */ "1050" 783 , /* 02 */ "2741" 784 , /* 03 */ "AJ630" 785 , /* 04 */ "ARDS" 786 , /* 05 */ "ASCII" 787 , /* 06 */ "ASCII_CAPS" 788 , /* 07 */ "ASCII_CRT" 789 , /* 08 */ "ASCII_CRT_CAPS" 790 , /* 09 */ "BMARK" 791 , /* 10 */ "CDC713" 792 , /* 11 */ "CORR2741" 793 , /* 12 */ "DELTA4000" 794 , /* 13 */ "DIABLO1620" 795 , /* 14 */ "DTC300S" 796 , /* 15 */ "DTC300SE" 797 , /* 16 */ "DTC302" 798 , /* 17 */ "DTC302E" 799 , /* 18 */ "DTC302_12" 800 , /* 19 */ "DTC302_12E" 801 , /* 20 */ "EX300" 802 , /* 21 */ "FOX1100" 803 , /* 22 */ "G115" 804 , /* 23 */ "G115_UPPER" 805 , /* 24 */ "GENCOM" 806 , /* 25 */ "HCCT102" 807 , /* 26 */ "HC_SPOOL" 808 , /* 27 */ "IBM2780" 809 , /* 28 */ "IBM2780_FULL" 810 , /* 29 */ "IBM3780" 811 , /* 30 */ "IBM3780_FULL" 812 , /* 31 */ "L6TCF" 813 , /* 32 */ "LA120" 814 , /* 33 */ "LA120_10C6L_14X11" 815 , /* 34 */ "LA120_16C6L_8X11" 816 , /* 35 */ "LA36" 817 , /* 36 */ "LA36E" 818 , /* 37 */ "LA36_TABS" 819 , /* 38 */ "LED120" 820 , /* 39 */ "LED120E" 821 , /* 40 */ "PHXTST" 822 , /* 41 */ "ROSY" 823 , /* 42 */ "ROSYE" 824 , /* 43 */ "ROSYI" 825 , /* 44 */ "ROSY_TABS" 826 , /* 45 */ "SARA" 827 , /* 46 */ "SYSTEM75" 828 , /* 47 */ "TEK4013" 829 , /* 48 */ "TEK4015" 830 , /* 49 */ "TEK4015E" 831 , /* 50 */ "TEK4023" 832 , /* 51 */ "TELERAY1061" 833 , /* 52 */ "TELERAY1061E" 834 , /* 53 */ "TELERAY1061_ECHO" 835 , /* 54 */ "TELERAY3700" 836 , /* 55 */ "TI725" 837 , /* 56 */ "TI735" 838 , /* 57 */ "TI745" 839 , /* 58 */ "TN300" 840 , /* 59 */ "TN300I" 841 , /* 60 */ "TTY33" 842 , /* 61 */ "TTY37" 843 , /* 62 */ "TTY38" 844 , /* 63 */ "TTY43" 845 , /* 64 */ "VIP7200" 846 , /* 65 */ "VIP7200E" 847 , /* 66 */ "VIP7700R" 848 , /* 67 */ "VIP7700_CLUSTER" 849 , /* 68 */ "VIP7705" 850 , /* 69 */ "VIP7714" 851 , /* 70 */ "VIP7760" 852 , /* 71 */ "VIP7760_CONTROLLER" 853 , /* 72 */ "VIP7801" 854 , /* 73 */ "VIP7801E" 855 , /* 74 */ "VIP7804" 856 , /* 75 */ "VIP7804_CLUSTER" 857 , /* 76 */ "VT100" 858 , /* 77 */ "VT100W" 859 , /* 78 */ "VT100WS" 860 , /* 79 */ "VT52" 861 ) 862 , 2 gcos_type bit(5) 863 ; 864 end set_terminal_type ; 865 866 /* Variables for gcos_tss: */ 867 /* IDENTIFIER ATTRIBUTES */ 868 dcl acct char (32); 869 dcl addr builtin; 870 dcl addrel builtin; 871 dcl AFT_INITIALIZED bit (1) init ("0"b); 872 dcl al fixed bin(24); 873 dcl any_other condition ext; 874 dcl ap ptr; 875 dcl argl fixed bin (24); 876 dcl argument char (argl) based (arg_ptr); 877 dcl arg_ptr ptr init (null ()); 878 dcl ascii_channel_id char (2); 879 dcl bit_count fixed bin (24); 880 dcl cat_entry fixed bin (18) unsigned; 881 dcl cleanup condition ext; 882 dcl clock builtin; 883 dcl cmd_arg char(al)unal based(ap); 884 dcl cmd_line char (132); 885 dcl code fixed bin (35); 886 dcl command_error condition; 887 dcl copy builtin; 888 dcl current_modes char (400)static int init (" "); 889 dcl cu_$arg_count ext entry (fixed bin (24)); 890 dcl cu_$arg_ptr entry(fixed bin(24),ptr,fixed bin(24),fixed bin(35)); 891 dcl cu_$cp entry (ptr, fixed bin(21), fixed bin(35)); 892 dcl d fixed bin (24); 893 dcl db_bits (72)bit (1)static int init ((72) (1)"0"b); 894 dcl dc_ptr ptr init (null()); 895 dcl decode_clock_value_ ext entry (fixed bin (71), fixed bin (24), fixed bin (24), fixed bin (24), fixed bin (71), fixed bin (24), char (3) aligned); 896 dcl delete_$ptr entry (ptr, fixed bin (35)); 897 dcl djid char (5); 898 dcl drun_cpu_limit fixed bin (36) unsigned init (34000 * 64 * 1000); 899 dcl drun_job_id bit (36) init ("0"b); 900 dcl empty builtin; 901 dcl error bit (1) init ("0"b); 902 dcl error_table_$arg_ignored fixed bin (35) ext; 903 dcl error_table_$noentry fixed bin (35)ext; 904 dcl error_table_$not_attached fixed bin (35)ext; 905 dcl error_table_$no_operation fixed bin (35)ext; 906 dcl error_table_$out_of_sequence fixed bin (35) ext; 907 dcl expand_pathname_ entry (char (*), char (*), char (*), fixed bin (35)); 908 dcl finish condition ext; 909 dcl fixed_bin24 fixed bin (24) based; 910 dcl fn fixed bin (24); 911 dcl gcos_debug_$initial entry (fixed bin (35)); 912 dcl get_pdir_ ext entry returns (char (168)aligned); 913 dcl get_temp_segments_ entry (char (*), (*)ptr, fixed bin (35)); 914 dcl get_wdir_ ext entry returns (char (168)); 915 dcl gtss_already_called bit (1)static int init ("0"b); 916 dcl gtss_dump_kin_$clean entry options(variable); 917 dcl gtss_dump_kin_$fin entry options(variable); 918 dcl gtss_dump_kin_$init entry() returns(bit(1)); 919 dcl gtss_fail condition ext; 920 dcl gtss_fix_tty_modes_ ext entry; 921 dcl hbound builtin; 922 dcl hcs_$fs_get_path_name entry (ptr, char (*), fixed bin, char (*), fixed bin (35)); 923 dcl hcs_$initiate_count entry (char (*), char (*), char (*), fixed bin (24), fixed bin (2), ptr, fixed bin (35)); 924 dcl hcs_$set_max_length_seg entry (ptr, fixed bin (35), fixed bin (35)); 925 dcl hcs_$status_minf entry (char (*), char (*), fixed bin (1), fixed bin (2), fixed bin (24), fixed bin (35)); 926 dcl i fixed bin (24); 927 dcl installation_directory char (168); 928 dcl ioa_ ext entry options (variable); 929 dcl iox_$get_line entry (ptr, ptr, fixed bin (21), fixed bin (21), fixed bin (35))ext; 930 dcl iox_$modes entry (ptr, char (*), char (*), fixed bin (35)); 931 dcl iox_$put_chars entry (ptr, ptr, fixed bin (24), fixed bin (35)) ext; 932 dcl iox_$user_output ptr ext; 933 dcl k fixed bin (71); 934 dcl l fixed bin (24); 935 /** To have druns run at 5:00PM when the user does not specify a start time, 936*simply change the commented out portion of the next dcl. Change 17 to 937*?? (hour number) if you want some other time. **/ 938 dcl drun_start_time fixed bin (36) unsigned init (0); /** init (17*60*60*64*1000) **/ 939 dcl drun_term_req bit (1) auto init ("0"b); 940 dcl execute_drun fixed bin (18) unsigned init (0); 941 dcl length builtin; 942 dcl m fixed bin (24); 943 dcl me_ptr ptr init (null ()); 944 dcl msf_manager_$adjust entry (ptr, fixed bin (24), fixed bin (24), bit (3), fixed bin (35)); 945 dcl msf_manager_$close entry (ptr); 946 dcl msf_manager_$get_ptr entry (ptr, fixed bin (24), bit (1), ptr, fixed bin (24), fixed bin (35)); 947 dcl msf_manager_$open entry (char (*), char (*), ptr, fixed bin (35)); 948 dcl nargs fixed bin (24); 949 dcl null builtin; 950 dcl old_modes char (400); 951 dcl one_word bit (36) based; 952 dcl pd char (168); 953 dcl person_id char (22); 954 dcl proj char (9); 955 dcl quit condition; 956 dcl reattach bit (1); 957 dcl rel builtin; 958 dcl release_temp_segments_ entry (char (*), (*)ptr, fixed bin (35)); 959 dcl rtrim builtin; 960 dcl sct_manager_$get entry (fixed bin, ptr, fixed bin (35)); 961 dcl sct_manager_$set entry (fixed bin, ptr, fixed bin (35)); 962 dcl search builtin; 963 dcl size builtin; 964 dcl status fixed bin (24)init (0); 965 dcl substr builtin; 966 dcl subsystem_name char (4); 967 dcl sys_info$max_seg_size fixed bin (35)ext; 968 dcl temp_segment_ptr (7)ptr static int; 969 dcl time fixed bin (71); 970 dcl type fixed bin (2); 971 dcl unique_chars_ entry (bit (*))returns (char (15)); 972 dcl unspec builtin; 973 dcl user_info_ ext entry (char (*), char (*), char (*)); 974 dcl user_info_$homedir entry (char (*)); 975 dcl user_info_$process_type entry (fixed bin (17)); 976 dcl use_existing_components bit (1)static int options (constant)init ("0"b); 977 dcl w fixed bin (24); 978 dcl wd_name char (32); 979 dcl work_area area (sys_info$max_seg_size)aligned based (gtss_ext_$work_area_ptr); 980 dcl y fixed bin (24); 981 dcl z char (3) aligned; 982 983 dcl 1 time2 aligned based(addr(time)) 984 , 2 time53 fixed bin(53)unal 985 , 2 fill bit(18)unal 986 ; 987 988 dcl 989 CR char (1)static int options (constant)init (" "); 990 991 dcl 1 args (100), 992 2 arg_p ptr, 993 2 arg_l fixed bin (24); 994 995 dcl 1 drun_jid defined argument, 996 2 d1 char (1), 997 2 d2 char (1), 998 2 d3 char (1), 999 2 d4 char (1), 1000 2 d5 char (1); 1001 1 1 /* BEGIN INCLUDE FILE gtss_ext_.incl.pl1 */ 1 2 /* 1 3* Created: (Wardd Multics) 05/20/78 1307.6 mst Sat 1 4* Modified: Ward 1981 add suspended_process dcl 1 5* Modified: Ron Barstad 83-07-21 Fixed level number on mcfc to 3 1 6* Modified: Ron Barstad 83-07-25 Fixed derail range in statistics to 4js3 number 1 7**/ 1 8 dcl gtss_ext_$aem fixed bin static ext /* >0 Print "additional" error information. */; 1 9 dcl gtss_ext_$bad_drl_rtrn static ext label /* Default for drl_rtrn. */; 1 10 dcl gtss_ext_$db (72)bit(1)unal static ext; 1 11 dcl gtss_ext_$deferred_catalogs_ptr ptr ext; 1 12 dcl gtss_ext_$dispose_of_drl static ext label /* quit handlers for some derails use this label to abort */; 1 13 dcl gtss_ext_$drl_rtrn (4)static ext label /* where to return at subsystem end */; 1 14 dcl gtss_ext_$drm_path char(168)static ext /* gtss_expand_pathname_stores drm_path */; 1 15 dcl gtss_ext_$drun_jid char (5) static ext /* valid only for DRUN executing under absentee */; 1 16 dcl gtss_ext_$event_channel fixed bin (71) static ext /* used for DABT signals */; 1 17 dcl gtss_ext_$finished static ext label /* Return to gtss for normal conclusion. */; 1 18 dcl gtss_ext_$gdb_name char(8)ext /* Name H* module to debug. */; 1 19 dcl gtss_ext_$get_line entry(ptr,ptr,fixed bin(21),fixed bin(21),fixed bin(35))variable ext /* Build mode input procedure. */; 1 20 dcl gtss_ext_$gtss_slave_area_seg (4) ext static ptr /* pointer to gtss slave area segment */; 1 21 dcl gtss_ext_$hcs_work_area_ptr ptr ext static /* Temp seg for acl lists. */; 1 22 dcl gtss_ext_$homedir char (64) static ext /* user's home dir */; 1 23 dcl gtss_ext_$last_k_was_out bit (1)aligned ext static /* "1"b => last tty output was output. */; 1 24 dcl gtss_ext_$pdir char (168) varying ext static /* pathname of process directory */; 1 25 dcl gtss_ext_$popup_from_pi static ext label /* transfer to this label after pi simulates popup primitive */; 1 26 dcl gtss_ext_$process_type fixed bin (17) static ext; 1 27 dcl gtss_ext_$put_chars entry(ptr,ptr,fixed bin(24),fixed bin(35)) variable ext /* Terminal output procedure. */; 1 28 dcl gtss_ext_$restart_from_pi static ext label /* transfer to this label after pi restores machine conditions */; 1 29 dcl gtss_ext_$restart_seg_ptr ptr static ext /* points to DRUN restart file when exec under absentee */; 1 30 dcl gtss_ext_$sig_ptr ext static ptr /* saved ptr to signal_ */; 1 31 dcl gtss_ext_$stack_level_ fixed bin ext static; 1 32 dcl gtss_ext_$suspended_process bit(1) ext static; 1 33 dcl gtss_ext_$SYstarstar_file_no fixed bin (24) static ext; 1 34 dcl gtss_ext_$user_id char (26)var ext; 1 35 dcl gtss_ext_$work_area_ptr ptr ext; 1 36 1 37 dcl 1 gtss_ext_$CFP_bits aligned static external 1 38 , 3 no_input_yet bit (1) unaligned /* used in gtss_CFP_input_, gtss_read_starCFP_ */ 1 39 , 3 rtn_bits bit (4) unaligned /* used in gtss_CFP_input_, gtss_CFP_output_ */ 1 40 , 3 cpos_called bit (1) unaligned /* used in gtss_CFP_input_, gtss_drl_t_cfio_, gtss_abandon_CFP_ */ 1 41 , 3 cout_called bit (1) unaligned /* used in gtss_read_starCFP_, gtss_abandon_CFP_ */ 1 42 , 3 build_mode bit (1) unaligned /* used in gtss_build_, gtss_dsd_process_ */ 1 43 ; 1 44 1 45 dcl 1 gtss_ext_$com_reg aligned static ext, 1 46 3 tsdmx, 1 47 4 dst fixed bin (18) unsigned unaligned, 1 48 4 dit fixed bin (18) unsigned unaligned, 1 49 3 tsdpt fixed bin (36) unsigned unaligned, 1 50 3 tsddt fixed bin (36) unsigned unaligned, 1 51 3 tsdid bit (72) unaligned, 1 52 3 tsdsd bit (36) unaligned, 1 53 3 tsdst fixed bin (36) unsigned unaligned, 1 54 3 tsdjb fixed bin (35) unaligned, 1 55 3 tsdgt, 1 56 4 ust_loc fixed bin (18) unsigned unaligned, 1 57 4 gating_ctl fixed bin (18) unsigned unaligned, 1 58 3 tcdfr bit (36) unaligned; 1 59 1 60 dcl 1 gtss_ext_$flags aligned static ext 1 61 , 3 dispose_of_drl_on_pi bit (01) unal /* 1 => drl that should be aborted after quit-pi sequence */ 1 62 , 3 drl_in_progress bit (01) unal /* 1 => drl handler executing; 0 => gcos code executing */ 1 63 , 3 popup_from_pi bit (01) unal /* 1 => derail processor will simulate Gcos break instead of returning */ 1 64 , 3 unfinished_drl bit (01) unal /* 1 => subsystem is handling breaks and quit was raised during a drl */ 1 65 , 3 ss_time_limit_set bit (01) unal /* 1 => exec time limit set for subsystem */ 1 66 , 3 timer_ranout bit (01) unal /* 1 => user is executing timer runout code */ 1 67 , 3 gtss_com_err_sw bit (01) unal /* 1 => stop com_err_ string from going to terminal */ 1 68 , 3 available bit (65) unal 1 69 ; 1 70 1 71 1 72 dcl 1 gtss_ext_$statistics aligned static ext, /* Derail usage statistics */ 1 73 3 total_time (-10:71)fixed bin (71), 1 74 3 count (-10:71)fixed bin (17); 1 75 1 76 /* Declaration of Available File Table 1 77* */ 1 78 dcl 1 gtss_ext_$aft aligned ext, /* aft structure */ 1 79 1 80 3 start_list (0:102) fixed bin (24), /* >0 => 1st aft_entry row to start of next entry chain. */ 1 81 1 82 3 aft_entry (20), 1 83 4 altname char (8), /* altname name for attaching this file */ 1 84 4 next_entry fixed bin (24), /* Next aft_entry in hash chain. */ 1 85 4 previous_add fixed bin (24), /* Previously added entry. */ 1 86 4 next_add fixed bin (24), /* Entry added after this one. */ 1 87 4 used bit (1) unal, /* "1"b => aft_entry contains AFT value. */ 1 88 4 forced bit(1) unal, /* "1"b => gtss_verify_access_ forced access on this file. */ 1 89 1 90 3 free_space fixed bin (24), /* Index of start of free space list for aft entries. */ 1 91 3 first_added fixed bin (24), /* >0 => start of chain in add order. */ 1 92 3 last_added fixed bin (24) /* >0 => end of chain in added order. */; 1 93 1 94 dcl gtss_ext_$ppt ptr ext /* switch name for tapein drl */; 1 95 /** Data structure to provide access to installed 1 96* subsystems fast library load. 1 97* **/ 1 98 dcl 1 gtss_ext_$fast_lib aligned ext 1 99 , 3 fast_lib_fcb ptr /* Pointer to msf fcb. */ 1 100 , 3 fast_lib_ncp fixed bin (24) /* Number of components. */ 1 101 , 3 comp_ptr (0:9)ptr /* Pointer to component. */ 1 102 , 3 comp_wds (0:9)fixed bin (24) /* Component length (words). */ 1 103 ; 1 104 1 105 /* Pointers to segments to regulate multipler 1 106* callers to files. Same segments are used to regulate 1 107* all simulator callers. 1 108**/ 1 109 dcl 1 gtss_ext_$mcfc aligned ext, 1 110 3 multics_lock_id bit(36), 1 111 3 wait_time fixed bin, 1 112 3 files_ptr ptr, 1 113 3 names_ptr ptr, 1 114 3 callers_ptr (0:3)ptr 1 115 ; 1 116 1 117 /* END INCLUDE FILE gtss_ext_.incl.pl1 */ 1002 1003 2 1 /* BEGIN INCLUDE FILE gtss_install_values_.incl.pl1 */ 2 2 /* 2 3* NOTE: Changes here must be relected in gtss_install_values_.cds as well. 2 4* 2 5* Created: (Wardd Multics) 01/24/79 1706.9 mst Wed 2 6* Modified: Ron Barstad 83-07-21 Moved inits to cds seg 2 7**/ 2 8 2 9 dcl gtss_install_values_$fast_msf char (32) var ext; /* entry name */ 2 10 dcl gtss_install_values_$Lstar_msf char (32) var ext; /* searched second */ 2 11 dcl gtss_install_values_$starL_msf char (32) var ext; /* searched first */ 2 12 dcl gtss_install_values_$memory_limit fixed bin (24) ext; 2 13 dcl gtss_install_values_$time_limit fixed bin (24) ext; 2 14 2 15 /* END INCLUDE FILE gtss_install_values_.incl.pl1 */ 1004 1005 3 1 /* BEGIN INCLUDE FILE static_handlers.incl.pl1 */ 3 2 3 3 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */ 3 4 3 5 /* HISTORY: 3 6*Written by S. H. Webber, 06/20/75. 3 7*Modified: 3 8*12/15/83 by Benson Margulies: added undefined_pointer_sct_index and 3 9* pgt_sct_index. 3 10*06/11/84 by Lee A. Newcomb: added dm_shutdown_warning_sct_index and 3 11* dm_user_shutdown_sct_index for handling of Data Management 3 12* shutdown. 3 13*08/22/84 by R. Michael Tague: Removed dm_shutdown_warning_sct_index and 3 14* dm_user_shutdown_sct_index. Added 3 15* system_shutdown_scheduled_sct_index and 3 16* dm_shutdown_scheduled_sct_index. 3 17**/ 3 18 3 19 3 20 /****^ HISTORY COMMENTS: 3 21* 1) change(85-11-13,Herbst), approve(87-07-21,MCR7697), 3 22* audit(87-07-21,GDixon), install(87-08-04,MR12.1-1056): 3 23* Add system_message_sct_index. 3 24* END HISTORY COMMENTS */ 3 25 3 26 3 27 dcl ( 3 28 shutdown_sct_index init (0), 3 29 store_sct_index init (1), 3 30 mme1_sct_index init (2), 3 31 fault_tag_1_sct_index init (3), 3 32 timer_runout_sct_index init (4), 3 33 command_sct_index init (5), 3 34 derail_sct_index init (6), 3 35 lockup_sct_index init (7), 3 36 connect_sct_index init (8), 3 37 parity_sct_index init (9), 3 38 illegal_procedure_sct_index init (10), 3 39 op_not_complete_sct_index init (11), 3 40 startup_sct_index init (12), 3 41 ovrflo_sct_index init (13), 3 42 zerodivide_sct_index init (14), 3 43 execute_sct_index init (15), 3 44 seg_fault_error_sct_index init (16), 3 45 page_fault_error_sct_index init (17), 3 46 directed_fault_2_sct_index init (18), 3 47 directed_fault_3_sct_index init (19), 3 48 accessviolation_sct_index init (20), 3 49 mme2_sct_index init (21), 3 50 mme3_sct_index init (22), 3 51 mme4_sct_index init (23), 3 52 linkage_error_sct_index init (24), 3 53 fault_tag_3_sct_index init (25), 3 54 undefined_fault_sct_index init (26), 3 55 trouble_sct_index init (31), 3 56 illegal_opcode_sct_index init (32), 3 57 simfault_000000_sct_index init (33), 3 58 illegal_modifier_sct_index init (34), 3 59 illegal_ring_order_sct_index init (35), 3 60 not_in_execute_bracket_sct_index init (36), 3 61 no_execute_permission_sct_index init (37), 3 62 not_in_read_bracket_sct_index init (38), 3 63 no_read_permission_sct_index init (39), 3 64 not_in_write_bracket_sct_index init (40), 3 65 no_write_permission_sct_index init (41), 3 66 not_a_gate_sct_index init (42), 3 67 not_in_call_bracket_sct_index init (43), 3 68 outward_call_sct_index init (44), 3 69 bad_outward_call_sct_index init (45), 3 70 inward_return_sct_index init (46), 3 71 cross_ring_transfer_sct_index init (47), 3 72 ring_alarm_fault_sct_index init (48), 3 73 am_fault_sct_index init (49), 3 74 out_of_bounds_sct_index init (50), 3 75 fixedoverflow_sct_index init (51), 3 76 overflow_sct_index init (52), 3 77 underflow_sct_index init (53), 3 78 stringsize_sct_index init (54), 3 79 other_illegal_proc_sct_index init (55), 3 80 storage_sct_index init (56), 3 81 packed_pointer_fault_sct_index init (57), 3 82 lot_fault_sct_index init (58), 3 83 isot_fault_sct_index init (59), 3 84 system_packed_pointer_sct_index init (60), 3 85 quit_sct_index init (61), 3 86 alrm_sct_index init (62), 3 87 cput_sct_index init (63), 3 88 record_quota_overflow_sct_index init (64), 3 89 size_sct_index init (65), 3 90 neti_sct_index init (66), 3 91 other_command_sct_index init (67), 3 92 susp_sct_index init (68), 3 93 term_sct_index init (69), 3 94 wkp_sct_index init (70), 3 95 undefined_pointer_sct_index init (71), 3 96 pgt_sct_index init (72), 3 97 system_shutdown_scheduled_sct_index 3 98 init (73), 3 99 dm_shutdown_scheduled_sct_index init (74), 3 100 system_message_sct_index init (75) 3 101 ) fixed bin (17) int static options (constant); 3 102 3 103 /* END INCLUDE FILE static_handlers.incl.pl1 */ 1006 1007 4 1 /* BEGIN INCLUDE FILE gtss_ust_ext_.incl.pl1 */ 4 2 /* UST: User Status Table 4 3* definitions based on 4 4* System Tables, Order number DD14-01E, January 1981 4 5* Section 15, Time Sharing System 4 6* 4 7* Authors: Robert J. Grimes Created 4 8* - Albert N. Kepner 1978 4 9* - Robert M. May 4 10* - David B. Ward 4 11* Change: Dave Ward 02/23/79 Level 4 numbering. 4 12* Change: Ron Barstad 83-07-12 Repaired damaged formating and word offset comments 4 13* Brought up to 4JS3 functionality 4 14**/ 4 15 /* octal word offsets of entries */ 4 16 dcl 1 gtss_ust_ext_$ust aligned ext, 4 17 3 gtss_ust, 4 18 /* 0-1 */ 4 lid bit (72), 4 19 /* 2 */ 4 lstp bit (36), 4 20 /* 3 */ 4 ltin bit (36), 4 21 /* 4 */ 4 lstio, 4 22 5 no_of_chars_by_8 fixed bin (18) uns unal, 4 23 5 no_of_disk_io fixed bin (18) uns unal, 4 24 /* 5 */ 4 lsnub bit (36), 4 25 /* 6-7 */ 4 lchg bit (72), 4 26 /* 10 */ 4 lbuf, 4 27 5 address bit (18)unaligned, 4 28 5 tally bit (1)unaligned, 4 29 5 terminal_type bit (5)unaligned, 4 30 5 station_id bit (12)unaligned, 4 31 /* 11-12 */ 4 liost (0:1) bit (36), 4 32 /* 13 */ 4 lcc bit (36), 4 33 /* 14 */ 4 lback, 4 34 5 fill1 bit (18) unaligned, 4 35 5 gwake fixed bin (17) unaligned, 4 36 /* 15 */ 4 lflag, 4 37 5 mp_list bit (18) unaligned, 4 38 5 flags unaligned, 4 39 6 b18 bit (1) unaligned, 4 40 6 b19 bit (1) unaligned, 4 41 6 b20 bit (1) unaligned, 4 42 6 b21 bit (1) unaligned, 4 43 6 b22 bit (1) unaligned, 4 44 6 b23 bit (1) unaligned, 4 45 6 b24 bit (1) unaligned, 4 46 6 b25 bit (1) unaligned, 4 47 6 b26 bit (1) unaligned, 4 48 6 b27 bit (1) unaligned, 4 49 6 b28 bit (1) unaligned, 4 50 6 b29 bit (1) unaligned, 4 51 6 b30 bit (1) unaligned, 4 52 6 b31 bit (1) unaligned, 4 53 6 b32 bit (1) unaligned, 4 54 6 b33 bit (1) unaligned, 4 55 6 b34 bit (1) unaligned, 4 56 6 b35 bit (1) unaligned, 4 57 /* 16 */ 4 lkdss bit (36), 4 58 /* 17 */ 4 lfile, 4 59 5 program_stack fixed bin (17) unal, 4 60 5 file_list_ptr bit (18) unal, 4 61 /* 20 */ 4 lttys bit (36), 4 62 /* 21 */ 4 lswth, 4 63 5 b0 bit (1) unaligned, 4 64 5 b1 bit (1) unaligned, 4 65 5 b2 bit (1) unaligned, 4 66 5 b3 bit (1) unaligned, 4 67 5 b4 bit (1) unaligned, 4 68 5 b5 bit (1) unaligned, 4 69 5 b6 bit (1) unaligned, 4 70 5 b7 bit (1) unaligned, 4 71 5 b8 bit (1) unaligned, 4 72 5 b9 bit (1) unaligned, 4 73 5 b10 bit (1) unaligned, 4 74 5 b11 bit (1) unaligned, 4 75 5 b12 bit (1) unaligned, 4 76 5 b13 bit (1) unaligned, 4 77 5 b14 bit (1) unaligned, 4 78 5 b15 bit (1) unaligned, 4 79 5 b16 bit (1) unaligned, 4 80 5 b17 bit (1) unaligned, 4 81 5 b18 bit (1) unaligned, 4 82 5 b19 bit (1) unaligned, 4 83 5 b20 bit (1) unaligned, 4 84 5 b21 bit (1) unaligned, 4 85 5 b22 bit (1) unaligned, 4 86 5 b23 bit (1) unaligned, 4 87 5 b24 bit (1) unaligned, 4 88 5 b25 bit (1) unaligned, 4 89 5 b26 bit (1) unaligned, 4 90 5 b27 bit (1) unaligned, 4 91 5 b28 bit (1) unaligned, 4 92 5 b29 bit (1) unaligned, 4 93 5 b30 bit (1) unaligned, 4 94 5 b31 bit (1) unaligned, 4 95 5 b32 bit (1) unaligned, 4 96 5 b33 bit (1) unaligned, 4 97 5 b34 bit (1) unaligned, 4 98 5 b35 bit (1) unaligned, 4 99 /* 22 */ 4 lsize, 4 100 5 bar fixed bin (17) unaligned, 4 101 5 limit bit (18) unaligned, 4 102 /* 23... */ 4 lswap, 4 103 5 fill bit (18) unal, 4 104 5 size bit (18) unal, 4 105 /* ...24 */ 4 transfer_cell bit (36) unal, 4 106 /* 25 */ 4 lerrm bit (36), 4 107 /* 26-37 */ 4 lcfil (0:9) bit (36), 4 108 /* 40 */ 4 lsybc, 4 109 5 b0_17 fixed bin (17) unaligned, 4 110 5 b18_35 fixed bin (17) unaligned, 4 111 /* 41-42 */ 4 lstem (0:1) bit (36), 4 112 /* 43 */ 4 lcals, 4 113 5 b0_17 fixed bin (17) unaligned, 4 114 5 b18_35 bit (18) unaligned, 4 115 /* 44-51 */ 4 subsystems (3), 4 116 5 content_lswap, 4 117 6 fill bit (18) unal, 4 118 6 size bit (18) unal, 4 119 5 tally_address fixed bin (17) unaligned, 4 120 5 ss_flags bit (18) unaligned, 4 121 /* 52 */ 4 ltalc, 4 122 5 tod fixed bin (17) unaligned, 4 123 5 startup fixed bin (17) unaligned, 4 124 /* 53 */ 4 lspts fixed bin (35), 4 125 /* 54 */ 4 lflg2, 4 126 5 b0 bit (1) unaligned, 4 127 5 b1 bit (1) unaligned, 4 128 5 b2 bit (1) unaligned, 4 129 5 b3 bit (1) unaligned, 4 130 5 b4 bit (1) unaligned, 4 131 5 b5 bit (1) unaligned, 4 132 5 b6 bit (1) unaligned, 4 133 5 b7 bit (1) unaligned, 4 134 5 b8 bit (1) unaligned, 4 135 5 b9 bit (1) unaligned, 4 136 5 b10 bit (1) unaligned, 4 137 5 b11 bit (1) unaligned, 4 138 5 b12 bit (1) unaligned, 4 139 5 b13 bit (1) unaligned, 4 140 5 b14 bit (1) unaligned, 4 141 5 b15 bit (1) unaligned, 4 142 5 b16 bit (1) unaligned, 4 143 5 b17 bit (1) unaligned, 4 144 5 b18 bit (1) unaligned, 4 145 5 b19 bit (1) unaligned, 4 146 5 b20 bit (1) unaligned, 4 147 5 b21 bit (1) unaligned, 4 148 5 b22 bit (1) unaligned, 4 149 5 b23 bit (1) unaligned, 4 150 5 b24 bit (1) unaligned, 4 151 5 b25 bit (1) unaligned, 4 152 5 b26 bit (1) unaligned, 4 153 5 b27 bit (1) unaligned, 4 154 5 b28 bit (1) unaligned, 4 155 5 b29 bit (1) unaligned, 4 156 5 b30 bit (1) unaligned, 4 157 5 b31 bit (1) unaligned, 4 158 5 b32 bit (1) unaligned, 4 159 5 b33 bit (1) unaligned, 4 160 5 b34 bit (1) unaligned, 4 161 5 b35 bit (1) unaligned, 4 162 /* 55-60 */ 4 lsftm (0:3) bit (36), 4 163 /* 61 */ 4 lsprt fixed bin (35), 4 164 /* 62 */ 4 ltrm bit (36), 4 165 /* 63 */ 4 linno fixed bin (35), 4 166 /* 64 */ 4 lincr fixed bin (35), 4 167 /* 65 */ 4 ltdes bit (36), 4 168 /* 66 */ 4 lbptr bit (36), 4 169 /* 67 */ 4 lpptr, 4 170 5 last_file_pat_ptr bin (18) uns unal, 4 171 5 lpptr_reserved bin (18) uns unal, 4 172 /* 70 */ 4 lsclp bit (36), 4 173 /* 71 */ 4 limit fixed bin (35), 4 174 /* 72 */ 4 lacpt, 4 175 5 jout_pat_offset bit (18) unal, 4 176 5 permissions unal, 4 177 6 lodx bit (1) unal, 4 178 6 cardin bit (1) unal, 4 179 6 talk bit (1) unal, 4 180 6 lods bit (1) unal, 4 181 5 cardin_urgency bit (14) unal, 4 182 /* 73 */ 4 ldrl, 4 183 5 ilc bit (18) unaligned, 4 184 5 code fixed bin (17) unaligned, 4 185 /* 74 */ 4 ljsnb bit (36), 4 186 /* 75 */ 4 ltm0 bit (36), 4 187 /* 76 */ 4 ltm1 bit (36), 4 188 /* 77 */ 4 ltm2 bit (36), 4 189 /* 100 */ 4 ltm3 bit (36), 4 190 /* 101 */ 4 ltm4 bit (36), 4 191 /* 102 */ 4 ltm5 bit (36), 4 192 /* 103 */ 4 ltmwt bit (36), 4 193 /* 104 */ 4 ltmrs bit (36), 4 194 /* 105 */ 4 ltc0 bit (36), 4 195 /* 106 */ 4 ltc1 bit (36), 4 196 /* 107 */ 4 ltc2 bit (36), 4 197 /* 110 */ 4 lct3 bit (36), 4 198 /* 111 */ 4 ltc4 bit (36), 4 199 /* 112 */ 4 ltc5 bit (36), 4 200 /* 113 */ 4 ltcw bit (36), 4 201 /* 114 */ 4 lkst bit (36), 4 202 /* 115 */ 4 lkst2 bit (36), 4 203 /* 116 */ 4 lkcc bit (36), 4 204 /* 117 */ 4 lkms bit (36), 4 205 /* 120-121 */ 4 lksdc (0:1) bit (36), 4 206 /* 122 */ 4 lkntp bit (36), 4 207 /* 123 */ 4 lkrdc bit (36), 4 208 /* 124 */ 4 lpqf bit (36), 4 209 /* 125 */ 4 lpqb bit (36), 4 210 /* 126 */ 4 lustl bit (36), 4 211 /* 127 */ 4 ltemp bit (36), 4 212 /* 130 */ 4 lrtll, 4 213 5 word_length fixed bin unaligned, 4 214 5 char_length fixed bin unaligned, 4 215 /* 131 */ 4 ltim bit (36), 4 216 /* 132 */ 4 lcfio, 4 217 5 sect_out fixed bin(18)unsigned unal, 4 218 5 sect_in fixed bin(18)unsigned unal, 4 219 /* 133 */ 4 lcfst, 4 220 5 initial_sect_out fixed bin(18)unsigned unal, 4 221 5 start_term fixed bin(18)unsigned unal, 4 222 /* 134 */ 4 lcmpt bit (36), 4 223 /* 135 */ 4 lcjid bit (36), 4 224 /* 136-137 */ 4 lrcal (0:1) bit (36), 4 225 /* 140 */ 4 lrdta bit (36), 4 226 /* 141 */ 4 lrrsk bit (36), 4 227 /* 142 */ 4 lrskd bit (36), 4 228 /* 143 */ 4 lrcc bit (36), 4 229 /* 144-145 */ 4 lrsts (0:1) bit (36), 4 230 /* 146 */ 4 lrtm bit (36), 4 231 /* 147 */ 4 lswt2, 4 232 5 b0 bit (1) unaligned, 4 233 5 b1 bit (1) unaligned, 4 234 5 b2 bit (1) unaligned, 4 235 5 b3 bit (1) unaligned, 4 236 5 b4 bit (1) unaligned, 4 237 5 b5 bit (1) unaligned, 4 238 5 b6 bit (1) unaligned, 4 239 5 b7 bit (1) unaligned, 4 240 5 b8 bit (1) unaligned, 4 241 5 b9 bit (1) unaligned, 4 242 5 b10 bit (1) unaligned, 4 243 5 b11 bit (1) unaligned, 4 244 5 b12 bit (1) unaligned, 4 245 5 b13 bit (1) unaligned, 4 246 5 b14 bit (1) unaligned, 4 247 5 b15 bit (1) unaligned, 4 248 5 b16 bit (1) unaligned, 4 249 5 b17 bit (1) unaligned, 4 250 5 b18 bit (1) unaligned, 4 251 5 b19 bit (1) unaligned, 4 252 5 b20 bit (1) unaligned, 4 253 5 b21 bit (1) unaligned, 4 254 5 b22 bit (1) unaligned, 4 255 5 b23 bit (1) unaligned, 4 256 5 b24 bit (1) unaligned, 4 257 5 b25 bit (1) unaligned, 4 258 5 b26 bit (1) unaligned, 4 259 5 b27 bit (1) unaligned, 4 260 5 b28 bit (1) unaligned, 4 261 5 b29 bit (1) unaligned, 4 262 5 b30 bit (1) unaligned, 4 263 5 b31 bit (1) unaligned, 4 264 5 b32 bit (1) unaligned, 4 265 5 b33 bit (1) unaligned, 4 266 5 b34 bit (1) unaligned, 4 267 5 b35 bit (1) unaligned, 4 268 /* 150 */ 4 llsnb bit (36), 4 269 /* 151 */ 4 lesq bit (36), 4 270 /* 152-153 */ 4 lumc (0:1) bit (36), 4 271 /* 154-155 */ 4 lfnam (0:1) bit (36), 4 272 /* 156 */ 4 lopts bit (36), 4 273 /* 157 */ 4 licec, 4 274 5 b0_17 bit (18) unaligned, 4 275 5 b18_35 fixed bin (17) unaligned, 4 276 /* 160 */ 4 lflg3, 4 277 5 b0 bit (1) unaligned, 4 278 5 b1 bit (1) unaligned, 4 279 5 b2 bit (1) unaligned, 4 280 5 b3 bit (1) unaligned, 4 281 5 b4 bit (1) unaligned, 4 282 5 b5 bit (1) unaligned, 4 283 5 b6 bit (1) unaligned, 4 284 5 b7 bit (1) unaligned, 4 285 5 b8 bit (1) unaligned, 4 286 5 b9 bit (1) unaligned, 4 287 5 b10 bit (1) unaligned, 4 288 5 b11 bit (1) unaligned, 4 289 5 b12 bit (1) unaligned, 4 290 5 b13 bit (1) unaligned, 4 291 5 b14 bit (1) unaligned, 4 292 5 b15 bit (1) unaligned, 4 293 5 b16 bit (1) unaligned, 4 294 5 b17 bit (1) unaligned, 4 295 5 b18 bit (1) unaligned, 4 296 5 b19 bit (1) unaligned, 4 297 5 b20 bit (1) unaligned, 4 298 5 b21 bit (1) unaligned, 4 299 5 b22 bit (1) unaligned, 4 300 5 b23 bit (1) unaligned, 4 301 5 b24 bit (1) unaligned, 4 302 5 b25 bit (1) unaligned, 4 303 5 b26 bit (1) unaligned, 4 304 5 b27 bit (1) unaligned, 4 305 5 b28 bit (1) unaligned, 4 306 5 b29 bit (1) unaligned, 4 307 5 b30 bit (1) unaligned, 4 308 5 b31 bit (1) unaligned, 4 309 5 b32 bit (1) unaligned, 4 310 5 b33 bit (1) unaligned, 4 311 5 b34 bit (1) unaligned, 4 312 5 b35 bit (1) unaligned, 4 313 /* 161-163 */ 4 lpage (0:2) bit (36), 4 314 /* 164 */ 4 lsit1 bit (36), 4 315 /* 165 */ 4 lsit2 bit (36), 4 316 /* 166 */ 4 lsit3 bit (36), 4 317 /* 167 */ 4 lsit4 bit (36), 4 318 /* The following entries are maintained by gtss and are not found in TSS UST */ 4 319 /* 170 */ 4 lxxx, /* program stack index, offset from gtss_ust */ 4 320 5 b0_17 fixed bin (17) unaligned, 4 321 5 b18_35 bit (18) unaligned, /* not used */ 4 322 /* 171-175 */ 4 lprgs (5), 4 323 5 b0_17 fixed bin (17) unaligned, 4 324 5 b18_35 fixed bin (17) unaligned, 4 325 /* 176 */ 4 fill bit (36), 4 326 /* 177 */ 4 remote_io_buffer aligned, 4 327 5 buffer_control_word, 4 328 6 current_line_pointer bit (18)unal, 4 329 6 buffer_threshold_address bit (18)unal, 4 330 5 number_words_transmitted fixed bin (17)unal, 4 331 5 FILL1 fixed bin (17)unal, 4 332 5 count_of_characters_transmitted fixed bin (17)unal, 4 333 5 FILL2 fixed bin (17)unal, 4 334 5 characters_transmitted (244) char (1) unal, 4 335 /* 277 */ 4 word_after_ust bit (36) aligned; 4 336 4 337 /* END INCLUDE FILE gtss_ust_ext_.incl.pl1 */ 1008 1009 5 1 /* BEGIN INCLUDE FILE gtss_SYstarstar_.incl.pl1 */ 5 2 /* 5 3* Created: (Wardd Multics) 06/13/78 1612.8 mst Tue 5 4**/ 5 5 5 6 /** gtss_build_ data structure to accumulate 5 7* terminal input to be output to the SY** 5 8* file. 5 9* **/ 5 10 dcl 1 gtss_SYstarstar_$FILE aligned static ext 5 11 , 3 select_sequence 5 12 , 4 OP1 /* Seek operation. */ 5 13 , 5 Device_Command bit(06)unal 5 14 , 5 zeroes_1 bit(12)unal 5 15 , 5 IOC_Command bit(05)unal 5 16 , 5 zeroes_2 bit(01)unal 5 17 , 5 Control bit(06)unal 5 18 , 5 Count bit(06)unal 5 19 5 20 , 4 ID1 5 21 , 5 fcb_loc bit(18)unal 5 22 , 5 DCW_list_loc bit(18)unal 5 23 5 24 , 4 OP2 /* Write opteration. */ 5 25 , 5 Device_Command bit(06)unal 5 26 , 5 zeroes_1 bit(12)unal 5 27 , 5 IOC_Command bit(05)unal 5 28 , 5 zeroes_2 bit(01)unal 5 29 , 5 Control bit(06)unal 5 30 , 5 Count bit(06)unal 5 31 5 32 , 4 ID2 5 33 , 5 fcb_loc bit(18)unal 5 34 , 5 DCW_list_loc bit(18)unal 5 35 5 36 , 4 RETURN_WORD 5 37 , 5 Status_loc bit(18)unal 5 38 , 5 Courtesy_Call_loc bit(18)unal 5 39 5 40 , 3 Seek_Word 5 41 , 4 Seek_loc bit(18)unal 5 42 , 4 Seek_count fixed bin(17)unal 5 43 , 3 Seek_Address fixed bin(35) 5 44 , 3 STATUS bit(72) 5 45 5 46 , 3 DCW 5 47 , 4 memory_loc bit(18)unal 5 48 , 4 zeroes_3 bit(03)unal 5 49 , 4 action_code bit(03)unal 5 50 , 4 word_count bit(12)unal 5 51 5 52 , 3 Current_Rec fixed bin(35) 5 53 5 54 , 3 RECORD (10) 5 55 , 4 record_control_word 5 56 , 5 number_words fixed bin(17)unal 5 57 , 5 relative_block_count fixed bin(17)unal 5 58 , 4 tty_data (63)bit(36)aligned 5 59 5 60 , 3 SYss char(8) 5 61 ; 5 62 /* END INCLUDE FILE gtss_SYstarstar_.incl.pl1 */ 1010 1011 6 1 /* BEGIN INCLUDE FILE gtss_save_restore_data_.incl.pl1 */ 6 2 /* 6 3* Created: (Kepner Multics) 10/07/78 1634.3 mst Sat 6 4**/ 6 5 6 6 6 7 /** data structure used for file I/O by 6 8* gtss_drl_drlsav_ and gtss_drl_restor_. **/ 6 9 6 10 dcl 1 gtss_save_restore_data_$IO aligned static ext 6 11 , 3 select_sequence 6 12 , 4 OP1 /* Seek operation. */ 6 13 , 5 Device_Command bit(06)unal 6 14 , 5 zeroes_1 bit(12)unal 6 15 , 5 IOC_Command bit(05)unal 6 16 , 5 zeroes_2 bit(01)unal 6 17 , 5 Control bit(06)unal 6 18 , 5 Count bit(06)unal 6 19 6 20 , 4 ID1 6 21 , 5 fcb_loc bit(18)unal 6 22 , 5 DCW_list_loc bit(18)unal 6 23 6 24 , 4 OP2 /* Read or Write opteration. */ 6 25 , 5 Device_Command bit(06)unal 6 26 , 5 zeroes_1 bit(12)unal 6 27 , 5 IOC_Command bit(05)unal 6 28 , 5 zeroes_2 bit(01)unal 6 29 , 5 Control bit(06)unal 6 30 , 5 Count bit(06)unal 6 31 6 32 , 4 ID2 6 33 , 5 fcb_loc bit(18)unal 6 34 , 5 DCW_list_loc bit(18)unal 6 35 6 36 , 4 RETURN_WORD 6 37 , 5 Status_loc bit(18)unal 6 38 , 5 Courtesy_Call_loc bit(18)unal 6 39 6 40 , 3 Seek_Word 6 41 , 4 Seek_loc bit(18)unal 6 42 , 4 Seek_count fixed bin(17)unal 6 43 , 3 Seek_Address fixed bin(35) 6 44 , 3 STATUS bit(72) 6 45 6 46 , 3 DCW (64) 6 47 , 4 memory_loc bit(18)unal 6 48 , 4 zeroes_3 bit(03)unal 6 49 , 4 action_code bit(03)unal 6 50 , 4 word_count bit(12)unal 6 51 ; 6 52 /* END INCLUDE FILE gtss_save_restore_data_.incl.pl1 */ 1012 1013 7 1 /* BEGIN INCLUDE FILE gtss_dfd_ext_.incl.pl1 */ 7 2 /* 7 3* Created: (Wardd Multics) 06/09/78 1650.6 mst Fri 7 4**/ 7 5 7 6 dcl 1 gtss_dfd_ext_$disk_file_data (41) aligned ext, /* disk_file_data structure */ 7 7 7 8 3 gtss_disk, 7 9 4 dir_name char (168) unal, /* containing directory for file */ 7 10 4 entry_name char (32) unal, /* entry name for file */ 7 11 4 fcb_ptr ptr aligned, /* ptr to file control block */ 7 12 4 msf_array_ptr ptr, /* Pointer to an array of pointers for a msf. Each 7 13* component which has been accessed has a corresponding 7 14* initialized pointer. Currently 500 components 7 15* are supported. */ 7 16 4 single_segment_ptr ptr, /* Pointer to segment for single segment file */ 7 17 4 indicators aligned, /* one word of flags */ 7 18 7 19 5 msf bit (1) unaligned, /* 1=msf segment | 0= single segment */ 7 20 5 protected_file bit (1) unaligned, /* 1=file uses protections | 0= unprotected */ 7 21 5 fill bit (34) unal, 7 22 7 23 4 permissions aligned, 7 24 5 read bit (1) unaligned, /* 1=read permission */ 7 25 5 execute bit (1) unaligned, /* 1=execute permission */ 7 26 5 write bit (1) unaligned, /* 1=write permission */ 7 27 5 fill2 bit (33) unaligned, /* unused at this time */ 7 28 7 29 4 access_mode bit (6) aligned, /* contains the mode by which the file was accessed */ 7 30 4 component fixed bin, /* current component value (first component = 0) */ 7 31 4 offset fixed bin (24), /* current word offset in the component */ 7 32 4 file_position fixed bin (30), /* current file position in words */ 7 33 4 file_size fixed bin (30), /* size of file in words */ 7 34 4 no_components fixed bin (24), /* number of components for a msf */ 7 35 4 attributes_ptr ptr, /* Pointer to the attributes structure 7 36* for this file. (See gtss_file_attributes.incl.pl1) */ 7 37 7 38 4 pat_body, 7 39 7 40 5 word_0, 7 41 6 defective bit (1) unal, /* 1 = file has defective space */ 7 42 6 io_errors bit (1) unal, /* 1 = I/O errors encountered on file */ 7 43 6 reserved bit (2) unal, /* Reserved for GCOS */ 7 44 6 sct bit (12) unal, /* address of SCT for device on which 7 45* file begins or if cataloged, 7 46* for device with file catalog entry */ 7 47 6 reserved2 bit (2) unal, /* Reserved for GCOS */ 7 48 7 49 5 word_1, 7 50 6 io_time fixed bin (35), /* I/O time for this file */ 7 51 7 52 5 word_2, 7 53 6 protected bit (1) unal, /* 1 = file has protected allocation */ 7 54 6 hash_code bit (5) unal, /* hash code of user name under which 7 55* file is cataloged */ 7 56 6 not_cat bit (1) unal, /* 1 = file is not cataloged */ 7 57 6 last_desc bit (1) unal, /* 1 = last descriptor for file is not in memory */ 7 58 6 random bit (1) unal, /* 1 = access to file is random */ 7 59 6 perm bit (1) unal, /* 1 = file space is permanently assigned */ 7 60 6 first_desc bit (1) unal, /* 1 = first descriptor for file is not in memory */ 7 61 6 creator bit (1) unal, /* 1 = user is not creator of file */ 7 62 6 disposition bit (2) unal, /* Abort disposition code 7 63* 00 = Release 7 64* 01 = Dismount 7 65* 10 = Save 7 66* 11 = Continue */ 7 67 6 ids1 bit (1) unal, /* 1 = file is an I-D-S/I file */ 7 68 6 write_performed bit (1) unal, /* 1 = write was performed on file */ 7 69 6 unpermitted_access bit (1) unal, /* 1 = unpermitted access to file attempted or seek 7 70* attempted to part of file marked defective (only 7 71* for procted allocation) */ 7 72 6 purge bit (1) unal, /* 1 = file space to be purgedbefore deallocating file. */ 7 73 6 sector_number bit (18) unal, /* If cataloged file, sector number of file catalog 7 74* (on device with SCT referenced in word 0). If 7 75* cataloged file that is proctected (bit 0 ON in this 7 76* word), memory location of table in File Management 7 77* Supervisor Executive. If user temporary file, 7 78* largest size file has ever attained, in llinks. 7 79* If system value equals 777777 octal, it is system 7 80* file created by System Input. */ 7 81 7 82 5 word_3, 7 83 6 llink_size bit (14) unal, /* 0-13 ^= 0, Current total file size in llinks 7 84* 0-13 = 0, File size is greater than 16,383 llinks, 7 85* and if the file is cataloged, call to .MFS19,5 with 7 86* offset to PAT pointer in index 5 will cause bits 7 87* 14-35 of Q-register to be set to file size. (Unless 7 88* there is a Seek error on file catalog in which case 7 89* zero is returned. ) 7 90* */ 7 91 6 llink_position bit (22) unal, /* Relative llink position within the space descriptors 7 92* in memory. */ 7 93 7 94 5 word_4, 7 95 6 not_last_desc bit (1) unal, /* 1 = not last descriptor in memory */ 7 96 6 space_desc bit (1) unal, /* 0 = this is space descriptor */ 7 97 6 space_defective bit (1) unal, /* 1 = Space is defective */ 7 98 6 extent bit (15) unal, /* Number of llinks in this extent (area defined by this 7 99* descriptor) */ 7 100 6 origin bit (18) unal; /* device llinks number of origin of this extent */ 7 101 /* END INCLUDE FILE gtss_dfd_ext_.incl.pl1 */ 1014 1015 8 1 /* BEGIN INCLUDE FILE gtss_entry_dcls.incl.pl1 */ 8 2 /* 8 3* Created: (Wardd Multics) 06/30/78 1624.8 mst Fri 8 4* Modified: Ron Barstad 84-02-24 Fixed wrong and obsolete entries 8 5**/ 8 6 8 7 /** gtss external entry variables. **/ 8 8 dcl com_err_ entry() options(variable); 8 9 dcl gtss_CFP_abort_ entry options(variable); 8 10 dcl gtss_CFP_break_ entry options(variable); 8 11 dcl gtss_CFP_input_ entry (ptr, ptr, fixed bin(21), fixed bin(21), fixed bin(35)); 8 12 dcl gtss_CFP_output_ entry (ptr, ptr, fixed bin(21), fixed bin(35)); 8 13 dcl gtss_abandon_CFP_ entry options(variable); 8 14 dcl gtss_abort_dump_ entry (fixed bin(18)); 8 15 dcl gtss_abort_subsystem_ entry options (variable); 8 16 dcl gtss_abort_subsystem_$not_imp entry (ptr, fixed bin(24)); 8 17 dcl gtss_abs_login_banner_ entry() returns(char(*)); 8 18 dcl gtss_abs_logout_banner_ entry() returns(char(*)); 8 19 dcl gtss_abs_$abs_equiv entry options(variable); 8 20 dcl gtss_abs_$cpu_runout entry (ptr, char(4)); 8 21 dcl gtss_abs_$create_absin entry() returns(char(*)); 8 22 dcl gtss_abs_$dabt_check entry (ptr, char(4)); 8 23 dcl gtss_abs_$get_id entry (char(5)) returns(char(19)); 8 24 dcl gtss_abs_$get_drm entry() returns(char(*)); 8 25 dcl gtss_adjust_size_ entry (ptr); 8 26 dcl gtss_aft_$add entry (char(8), fixed bin(24), fixed bin(35)); 8 27 dcl gtss_aft_$delete entry (char(8), fixed bin(24), fixed bin(35)); 8 28 dcl gtss_aft_$find entry (char(8), fixed bin(24), fixed bin(35)); 8 29 dcl gtss_aft_$initialize entry (fixed bin(35)); 8 30 dcl gtss_ascii_bcd_ entry (ptr, fixed bin, ptr); 8 31 dcl gtss_attributes_mgr_$get entry (ptr, fixed bin(35)); 8 32 dcl gtss_attributes_mgr_$set entry (ptr, fixed bin(35)); 8 33 dcl gtss_bcd_ascii_ entry (ptr, fixed bin(24), ptr); 8 34 dcl gtss_bcd_ascii_$lc entry (ptr, fixed bin(24), ptr); 8 35 dcl gtss_break_vector_ entry (); 8 36 dcl gtss_break_vector_$drl_in_progress entry() returns(bit(1)); 8 37 dcl gtss_break_vector_$status entry() returns(bit(1)); 8 38 dcl gtss_build_ entry options(variable); 8 39 dcl gtss_com_err_ entry options(variable); 8 40 dcl gtss_derail_processor_ entry (ptr, char(*), ptr, ptr, bit(1) aligned) /* called at fault time instead of signal_ */; 8 41 dcl gtss_derail_processor_$set entry options(variable); 8 42 dcl gtss_dq_$catp entry (char (5), ptr, fixed bin (18) unsigned); 8 43 dcl gtss_dq_$create entry (bit(1)); 8 44 dcl gtss_dq_$dibp entry (char(5), ptr); 8 45 dcl gtss_dq_$entries_info entry (ptr, fixed bin (18) unsigned, fixed bin (18) unsigned); 8 46 dcl gtss_dq_$hdrp entry (ptr); 8 47 dcl gtss_dq_$mod_js entry (char(5), fixed bin (6) unsigned, bit (1)); 8 48 dcl gtss_dq_$open_exc entry (bit(1)); 8 49 dcl gtss_dq_$open_gen entry (bit(1)); 8 50 dcl gtss_drl_abort_ entry (ptr, fixed bin); 8 51 dcl gtss_drl_addmem_ entry (ptr, fixed bin); 8 52 dcl gtss_drl_callss_ entry (ptr, fixed bin); 8 53 dcl gtss_drl_corfil_ entry (ptr, fixed bin); 8 54 dcl gtss_drl_defil_ entry (ptr, fixed bin); 8 55 dcl gtss_drl_defil_$subr entry (ptr, ptr, ptr); 8 56 dcl gtss_drl_dio_ entry (ptr, fixed bin); 8 57 dcl gtss_drl_drlimt_ entry (ptr, fixed bin); 8 58 dcl gtss_drl_drlsav_ entry (ptr, fixed bin); 8 59 dcl gtss_drl_filact_ entry (ptr, fixed bin); 8 60 dcl gtss_drl_filsp_ entry (ptr, fixed bin); 8 61 dcl gtss_drl_grow_ entry (ptr, fixed bin); 8 62 dcl gtss_drl_gwake_ entry (ptr, fixed bin); 8 63 dcl gtss_drl_jsts_ entry (ptr, fixed bin); 8 64 dcl gtss_drl_kin_ entry (ptr, fixed bin); 8 65 dcl gtss_drl_kotnow_ entry (ptr, fixed bin); 8 66 dcl gtss_drl_kotnow_$gtss_drl_kout_ entry (ptr, fixed bin); 8 67 dcl gtss_drl_koutn_ entry (ptr, fixed bin); 8 68 dcl gtss_drl_morlnk_ entry (ptr, fixed bin); 8 69 dcl gtss_drl_msub_ entry (ptr, fixed bin); 8 70 dcl gtss_drl_objtim_ entry (ptr, fixed bin); 8 71 dcl gtss_drl_part_ entry (ptr, fixed bin); 8 72 dcl gtss_drl_pasaft_ entry (ptr, fixed bin); 8 73 dcl gtss_drl_pasdes_ entry (ptr, fixed bin); 8 74 dcl gtss_drl_pasust_ entry (ptr, fixed bin); 8 75 dcl gtss_drl_pdio_ entry (ptr, fixed bin); 8 76 dcl gtss_drl_prgdes_ entry (ptr, fixed bin); 8 77 dcl gtss_drl_pseudo_ entry (ptr, fixed bin); 8 78 dcl gtss_drl_relmem_ entry (ptr, fixed bin); 8 79 dcl gtss_drl_restor_ entry (ptr, fixed bin); 8 80 dcl gtss_drl_retfil_ entry (ptr, fixed bin); 8 81 dcl gtss_drl_return_ entry (ptr, fixed bin); 8 82 dcl gtss_drl_rew_ entry (ptr, fixed bin); 8 83 dcl gtss_drl_rstswh_ entry (ptr, fixed bin); 8 84 dcl gtss_drl_setlno_ entry (ptr, fixed bin); 8 85 dcl gtss_drl_setswh_ entry (ptr, fixed bin); 8 86 dcl gtss_drl_snumb_ entry (ptr, fixed bin); 8 87 dcl gtss_drl_spawn_ entry (ptr, fixed bin); 8 88 dcl gtss_drl_spawn_$gtss_drl_pasflr_ entry (ptr, fixed bin); 8 89 dcl gtss_drl_stoppt_ entry (ptr, fixed bin); 8 90 dcl gtss_drl_switch_ entry (ptr, fixed bin); 8 91 dcl gtss_drl_sysret_ entry (ptr, fixed bin); 8 92 dcl gtss_drl_t_cfio_ entry (ptr, fixed bin); 8 93 dcl gtss_drl_t_cmov_ entry (ptr, fixed bin); 8 94 dcl gtss_drl_t_err_ entry (ptr, fixed bin); 8 95 dcl gtss_drl_t_goto_ entry (ptr, fixed bin); 8 96 dcl gtss_drl_t_linl_ entry (ptr, fixed bin); 8 97 dcl gtss_drl_t_rscc_ entry (ptr, fixed bin); 8 98 dcl gtss_drl_tapein_ entry (ptr, fixed bin); 8 99 dcl gtss_drl_task_ entry (ptr, fixed bin); 8 100 dcl gtss_drl_termtp_ entry (ptr, fixed bin); 8 101 dcl gtss_drl_time_ entry (ptr, fixed bin); 8 102 dcl gtss_drun_ entry (bit(1)); 8 103 dcl gtss_dsd_lookup_ entry (char(8) var) returns(fixed bin(24)); 8 104 dcl gtss_dsd_process_ entry (ptr, ptr, fixed bin(21), fixed bin(21), fixed bin(35)); 8 105 dcl gtss_edit_dsd_ entry (ptr, fixed bin(21)) returns(fixed bin(24)); 8 106 dcl gtss_mcfc_empty entry (char(*) var); 8 107 dcl gtss_expand_pathname_ entry (ptr, char(*), char(*), fixed bin(35)); 8 108 dcl gtss_expand_pathname_$verify_umc entry (ptr, char(*), char(*), bit(18), fixed bin(35)); 8 109 dcl gtss_fault_processor_ entry options(variable); 8 110 dcl gtss_find_cond_frame_ entry (char(32) var) returns(ptr); 8 111 dcl gtss_fault_processor_$timer_runout entry (ptr, char(*)); 8 112 dcl gtss_filact_error_status_ entry (fixed bin(35))returns(bit(12)); 8 113 dcl gtss_filact_funct02_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 114 dcl gtss_filact_funct03_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 115 dcl gtss_filact_funct04_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 116 dcl gtss_filact_funct05_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 117 dcl gtss_filact_funct08_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 118 dcl gtss_filact_funct10_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 119 dcl gtss_filact_funct11_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 120 dcl gtss_filact_funct14_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 121 dcl gtss_filact_funct18_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 122 dcl gtss_filact_funct19_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 123 dcl gtss_filact_funct21_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 124 dcl gtss_filact_funct22_ entry (ptr, bit(18), ptr, ptr, ptr, fixed bin(35)); 8 125 dcl gtss_mcfc_init_ entry (char(*) var); 8 126 dcl gtss_interp_prim_ entry options(variable); 8 127 dcl gtss_interp_prim_$callss entry (char(4), ptr); 8 128 dcl gtss_interp_prim_$sysret entry options(variable); 8 129 dcl gtss_interp_prim_$t_goto entry (char(4)); 8 130 dcl gtss_ios_change_size_ entry (fixed bin(24), fixed bin(24), bit(1), fixed bin(24), fixed bin(35)); 8 131 dcl gtss_ios_close_ entry (fixed bin(24), ptr, fixed bin(35)); 8 132 dcl gtss_ios_exchange_names_ entry (fixed bin(24), fixed bin(24), fixed bin(24), fixed bin(35)); 8 133 dcl gtss_ios_initialize_ entry options(variable); 8 134 dcl gtss_ios_io_ entry (fixed bin(24), ptr, ptr, fixed bin(24), fixed bin(24), fixed bin(35)); 8 135 dcl gtss_ios_open_ entry (fixed bin(24), char(168), char(32), bit(6), bit(1), ptr, ptr, fixed bin(35)); 8 136 dcl gtss_ios_position_ entry (fixed bin(24), fixed bin(24), fixed bin(24), bit(6), ptr); 8 137 dcl gtss_mcfc_$delete entry (fixed bin(24), char(*), char(*), bit(36) aligned, ptr, fixed bin(35)); 8 138 dcl gtss_mcfc_$open entry (char(*), char(*), bit(6), bit(36) aligned, ptr, fixed bin(35)); 8 139 dcl gtss_mcfc_$close entry (char(*), char(*), bit(36) aligned, ptr, fixed bin(35)); 8 140 dcl gtss_read_starCFP_ entry (ptr, ptr, fixed bin(21), fixed bin(21), fixed bin(35)); 8 141 dcl gtss_read_starCFP_$last_os entry (ptr, ptr, fixed bin(21), fixed bin(21), fixed bin(35)); 8 142 dcl gtss_run_subsystem_ entry (fixed bin(24)); 8 143 dcl gtss_run_subsystem_$finish entry options(variable); 8 144 dcl gtss_run_subsystem_$restor entry (fixed bin(24), ptr); 8 145 dcl gtss_run_subsystem_$restor_perm entry (fixed bin(24), ptr, fixed bin(18)); 8 146 dcl gtss_set_slave_ entry (fixed bin (24), ptr); 8 147 dcl gtss_set_slave_$load_bar entry (fixed bin (17)); 8 148 dcl gtss_update_safe_store_ entry (ptr); 8 149 dcl gtss_verify_access_ entry (char(*), char(*), fixed bin(24), bit(6), bit(12) aligned); 8 150 dcl gtss_verify_access_$check_forced_access entry (char(*), char(*), fixed bin(24)); 8 151 dcl gtss_write_starCFP_ entry (ptr, ptr, fixed bin(21), fixed bin(35)); 8 152 /* END INCLUDE FILE gtss_entry_dcls.incl.pl1 */ 1016 1017 9 1 /* BEGIN INCLUDE FILE gtss_device_cmds.incl.pl1 */ 9 2 /* 9 3* Created: (Wardd Multics) 07/08/78 1503.0 mst Sat 9 4**/ 9 5 dcl read_cmd bit(6)static int options(constant)init("25"b3); 9 6 dcl seek_cmd bit(6)static int options(constant)init("34"b3); 9 7 dcl write_cmd bit(6)static int options(constant)init("31"b3); 9 8 /* END INCLUDE FILE gtss_device_cmds.incl.pl1 */ 1018 1019 10 1 /* BEGIN INCLUDE FILE gtss_defil_arg.incl.pl1 */ 10 2 /* 10 3* Created: (Wardd Multics) 07/26/78 1714.5 mst Wed 10 4**/ 10 5 10 6 dcl 1 arg aligned based (arg_ptr) 10 7 , 3 ascii_file_name char (8) 10 8 , 3 arg2 10 9 , 4 a bit (06)unal 10 10 , 4 zeroes1 bit (11)unal 10 11 , 4 b bit (01)unal 10 12 , 4 c bit (01)unal 10 13 , 4 zeroes2 bit (05)unal 10 14 , 4 d bit (12)unal 10 15 ; 10 16 10 17 /* END INCLUDE FILE gtss_defil_arg.incl.pl1 */ 1020 1021 11 1 /* */ 11 2 /* BEGIN INCLUDE FILE mc.incl.pl1 Created Dec 72 for 6180 - WSS. */ 11 3 /* Modified 06/07/76 by Greenberg for mc.resignal */ 11 4 /* Modified 07/07/76 by Morris for fault register data */ 11 5 /* Modified 08/28/80 by J. A. Bush for the DPS8/70M CVPU */ 11 6 /* Modified '82 to make values constant */ 11 7 11 8 /* words 0-15 pointer registers */ 11 9 11 10 dcl mcp ptr; 11 11 11 12 dcl 1 mc based (mcp) aligned, 11 13 2 prs (0:7) ptr, /* POINTER REGISTERS */ 11 14 (2 regs, /* registers */ 11 15 3 x (0:7) bit (18), /* index registers */ 11 16 3 a bit (36), /* accumulator */ 11 17 3 q bit (36), /* q-register */ 11 18 3 e bit (8), /* exponent */ 11 19 3 pad1 bit (28), 11 20 3 t bit (27), /* timer register */ 11 21 3 pad2 bit (6), 11 22 3 ralr bit (3), /* ring alarm register */ 11 23 11 24 2 scu (0:7) bit (36), 11 25 11 26 2 mask bit (72), /* mem controller mask at time of fault */ 11 27 2 ips_temp bit (36), /* Temporary storage for IPS info */ 11 28 2 errcode fixed bin (35), /* fault handler's error code */ 11 29 2 fim_temp, 11 30 3 unique_index bit (18) unal, /* unique index for restarting faults */ 11 31 3 resignal bit (1) unal, /* recompute signal name with fcode below */ 11 32 3 fcode bit (17) unal, /* fault code used as index to FIM table and SCT */ 11 33 2 fault_reg bit (36), /* fault register */ 11 34 2 pad2 bit (1), 11 35 2 cpu_type fixed bin (2) unsigned, /* L68 = 0, DPS8/70M = 1 */ 11 36 2 ext_fault_reg bit (15), /* extended fault reg for DPS8/70M CPU */ 11 37 2 fault_time bit (54), /* time of fault */ 11 38 11 39 2 eis_info (0:7) bit (36)) unaligned; 11 40 11 41 11 42 dcl (apx fixed bin init (0), 11 43 abx fixed bin init (1), 11 44 bpx fixed bin init (2), 11 45 bbx fixed bin init (3), 11 46 lpx fixed bin init (4), 11 47 lbx fixed bin init (5), 11 48 spx fixed bin init (6), 11 49 sbx fixed bin init (7)) internal static options (constant); 11 50 11 51 11 52 11 53 11 54 dcl scup ptr; 11 55 11 56 dcl 1 scu based (scup) aligned, /* SCU DATA */ 11 57 11 58 11 59 /* WORD (0) */ 11 60 11 61 (2 ppr, /* PROCEDURE POINTER REGISTER */ 11 62 3 prr bit (3), /* procedure ring register */ 11 63 3 psr bit (15), /* procedure segment register */ 11 64 3 p bit (1), /* procedure privileged bit */ 11 65 11 66 2 apu, /* APPENDING UNIT STATUS */ 11 67 3 xsf bit (1), /* ext seg flag - IT modification */ 11 68 3 sdwm bit (1), /* match in SDW Ass. Mem. */ 11 69 3 sd_on bit (1), /* SDW Ass. Mem. ON */ 11 70 3 ptwm bit (1), /* match in PTW Ass. Mem. */ 11 71 3 pt_on bit (1), /* PTW Ass. Mem. ON */ 11 72 3 pi_ap bit (1), /* Instr Fetch or Append cycle */ 11 73 3 dsptw bit (1), /* Fetch of DSPTW */ 11 74 3 sdwnp bit (1), /* Fetch of SDW non paged */ 11 75 3 sdwp bit (1), /* Fetch of SDW paged */ 11 76 3 ptw bit (1), /* Fetch of PTW */ 11 77 3 ptw2 bit (1), /* Fetch of pre-paged PTW */ 11 78 3 fap bit (1), /* Fetch of final address paged */ 11 79 3 fanp bit (1), /* Fetch of final address non-paged */ 11 80 3 fabs bit (1), /* Fetch of final address absolute */ 11 81 11 82 2 fault_cntr bit (3), /* number of retrys of EIS instructions */ 11 83 11 84 11 85 /* WORD (1) */ 11 86 11 87 2 fd, /* FAULT DATA */ 11 88 3 iro bit (1), /* illegal ring order */ 11 89 3 oeb bit (1), /* out of execute bracket */ 11 90 3 e_off bit (1), /* no execute */ 11 91 3 orb bit (1), /* out of read bracket */ 11 92 3 r_off bit (1), /* no read */ 11 93 3 owb bit (1), /* out of write bracket */ 11 94 3 w_off bit (1), /* no write */ 11 95 3 no_ga bit (1), /* not a gate */ 11 96 3 ocb bit (1), /* out of call bracket */ 11 97 3 ocall bit (1), /* outward call */ 11 98 3 boc bit (1), /* bad outward call */ 11 99 3 inret bit (1), /* inward return */ 11 100 3 crt bit (1), /* cross ring transfer */ 11 101 3 ralr bit (1), /* ring alarm register */ 11 102 3 am_er bit (1), /* associative memory fault */ 11 103 3 oosb bit (1), /* out of segment bounds */ 11 104 3 paru bit (1), /* processor parity upper */ 11 105 3 parl bit (1), /* processor parity lower */ 11 106 3 onc_1 bit (1), /* op not complete type 1 */ 11 107 3 onc_2 bit (1), /* op not complete type 2 */ 11 108 11 109 2 port_stat, /* PORT STATUS */ 11 110 3 ial bit (4), /* illegal action lines */ 11 111 3 iac bit (3), /* illegal action channel */ 11 112 3 con_chan bit (3), /* connect channel */ 11 113 11 114 2 fi_num bit (5), /* (fault/interrupt) number */ 11 115 2 fi_flag bit (1), /* 1 => fault, 0 => interrupt */ 11 116 11 117 11 118 /* WORD (2) */ 11 119 11 120 2 tpr, /* TEMPORARY POINTER REGISTER */ 11 121 3 trr bit (3), /* temporary ring register */ 11 122 3 tsr bit (15), /* temporary segment register */ 11 123 11 124 2 pad2 bit (9), 11 125 11 126 2 cpu_no bit (3), /* CPU number */ 11 127 11 128 2 delta bit (6), /* tally modification DELTA */ 11 129 11 130 11 131 /* WORD (3) */ 11 132 11 133 2 word3 bit (18), 11 134 11 135 2 tsr_stat, /* TSR STATUS for 1,2,&3 word instructions */ 11 136 3 tsna, /* Word 1 status */ 11 137 4 prn bit (3), /* Word 1 PR number */ 11 138 4 prv bit (1), /* Word 1 PR valid bit */ 11 139 3 tsnb, /* Word 2 status */ 11 140 4 prn bit (3), /* Word 2 PR number */ 11 141 4 prv bit (1), /* Word 2 PR valid bit */ 11 142 3 tsnc, /* Word 3 status */ 11 143 4 prn bit (3), /* Word 3 PR number */ 11 144 4 prv bit (1), /* Word 3 PR valid bit */ 11 145 11 146 2 tpr_tbr bit (6), /* TPR.TBR field */ 11 147 11 148 11 149 /* WORD (4) */ 11 150 11 151 2 ilc bit (18), /* INSTRUCTION COUNTER */ 11 152 11 153 2 ir, /* INDICATOR REGISTERS */ 11 154 3 zero bit (1), /* zero indicator */ 11 155 3 neg bit (1), /* negative indicator */ 11 156 3 carry bit (1), /* carryry indicator */ 11 157 3 ovfl bit (1), /* overflow indicator */ 11 158 3 eovf bit (1), /* eponent overflow */ 11 159 3 eufl bit (1), /* exponent underflow */ 11 160 3 oflm bit (1), /* overflow mask */ 11 161 3 tro bit (1), /* tally runout */ 11 162 3 par bit (1), /* parity error */ 11 163 3 parm bit (1), /* parity mask */ 11 164 3 bm bit (1), /* ^bar mode */ 11 165 3 tru bit (1), /* truncation mode */ 11 166 3 mif bit (1), /* multi-word instruction mode */ 11 167 3 abs bit (1), /* absolute mode */ 11 168 3 hex bit (1), /* hexadecimal exponent mode */ 11 169 3 pad bit (3), 11 170 11 171 11 172 /* WORD (5) */ 11 173 11 174 2 ca bit (18), /* COMPUTED ADDRESS */ 11 175 11 176 2 cu, /* CONTROL UNIT STATUS */ 11 177 3 rf bit (1), /* on first cycle of repeat instr */ 11 178 3 rpt bit (1), /* repeat instruction */ 11 179 3 rd bit (1), /* repeat double instruction */ 11 180 3 rl bit (1), /* repeat link instruciton */ 11 181 3 pot bit (1), /* IT modification */ 11 182 3 pon bit (1), /* return type instruction */ 11 183 3 xde bit (1), /* XDE from Even location */ 11 184 3 xdo bit (1), /* XDE from Odd location */ 11 185 3 poa bit (1), /* operation preparation */ 11 186 3 rfi bit (1), /* tells CPU to refetch instruction */ 11 187 3 its bit (1), /* ITS modification */ 11 188 3 if bit (1), /* fault occured during instruction fetch */ 11 189 11 190 2 cpu_tag bit (6)) unaligned, /* computed tag field */ 11 191 11 192 11 193 /* WORDS (6,7) */ 11 194 11 195 2 even_inst bit (36), /* even instruction of faulting pair */ 11 196 11 197 2 odd_inst bit (36); /* odd instruction of faulting pair */ 11 198 11 199 11 200 11 201 11 202 11 203 11 204 /* ALTERNATE SCU DECLARATION */ 11 205 11 206 11 207 dcl 1 scux based (scup) aligned, 11 208 11 209 (2 pad0 bit (36), 11 210 11 211 2 fd, /* GROUP II FAULT DATA */ 11 212 3 isn bit (1), /* illegal segment number */ 11 213 3 ioc bit (1), /* illegal op code */ 11 214 3 ia_am bit (1), /* illegal address - modifier */ 11 215 3 isp bit (1), /* illegal slave procedure */ 11 216 3 ipr bit (1), /* illegal procedure */ 11 217 3 nea bit (1), /* non existent address */ 11 218 3 oobb bit (1), /* out of bounds */ 11 219 3 pad bit (29), 11 220 11 221 2 pad2 bit (36), 11 222 11 223 2 pad3a bit (18), 11 224 11 225 2 tsr_stat (0:2), /* TSR STATUS as an ARRAY */ 11 226 3 prn bit (3), /* PR number */ 11 227 3 prv bit (1), /* PR valid bit */ 11 228 11 229 2 pad3b bit (6)) unaligned, 11 230 11 231 2 pad45 (0:1) bit (36), 11 232 11 233 2 instr (0:1) bit (36); /* Instruction ARRAY */ 11 234 11 235 11 236 11 237 /* END INCLUDE FILE mc.incl.pl1 */ 1022 1023 12 1 /* BEGIN INCLUDE FILE gse_ext_.incl.pl1 */ 12 2 /* 12 3* Created: Kepner 78-12-01 12 4**/ 12 5 12 6 dcl gse_ext_$drm_rule fixed bin(24) ext; 12 7 12 8 /* $drm_rule: 12 9* 0 => rule not set 12 10* 1 => umc_dir_mode 12 11* 2 => working_dir_mode 12 12* 3 => smc_dir_mode 12 13**/ 12 14 12 15 dcl gse_ext_$gcos_debug_pathname char(168) /* pathname for the gcos debugger control file */ ext; 12 16 dcl gse_ext_$smc_pathname char(168) /* root directory used with smc_dir mapping rule */ ext; 12 17 dcl gse_ext_$umc_name char(12) /* User Master Catalog name specified by user with gse command */ ext; 12 18 dcl 1 gse_ext_$modes aligned ext, 12 19 3 ast bit(01) unal, /* 1 => use asterisk as prompt character */ 12 20 3 drl bit(01) unal, /* 1 => cause trace info on each derail to be printed */ 12 21 3 gdb bit(01) unal, /* 1 => use gcos debugger (gdb) */ 12 22 3 mcmd bit(01) unal, /* 1 => allow use of e request at GTSS command level */ 12 23 3 mquit bit(01) unal, /* 1 => quit causes entry to new Multics command level */ 12 24 3 ss bit(01) unal, /* 1 => cause trace info on each subsystem to be printed */ 12 25 3 fill bit(30) unal; 12 26 12 27 /* END INCLUDE FILE gse_ext_.incl.pl1 */ 1024 1025 13 1 /* BEGIN INCLUDE FILE gtss_starCF_.incl.pl1 */ 13 2 /* 13 3* Created: (Wardd Multics) 03/20/79 1816.6 mst Tue 13 4**/ 13 5 13 6 /* 13 7* gtss_CFP_input_ data structure to provide 13 8* for accessing the current command file. 13 9* 13 10* Changed: Al Dupuis 05/17/79 to get rid of nested get_line, put_chars concept. 13 11**/ 13 12 dcl 1 gtss_starCF_$FILE aligned static ext 13 13 , 3 select_sequence 13 14 , 4 OP1 /* Seek operation. */ 13 15 , 5 Device_Command bit(06)unal 13 16 , 5 zeroes_1 fixed bin(12)unsigned unal 13 17 , 5 IOC_Command bit(05)unal 13 18 , 5 zeroes_2 fixed bin(01)unsigned unal 13 19 , 5 Control fixed bin(06)unsigned unal 13 20 , 5 Count fixed bin(06)unsigned unal 13 21 13 22 , 4 ID1 13 23 , 5 fcb_loc bit(18)unal 13 24 , 5 DCW_list_loc bit(18)unal 13 25 13 26 , 4 OP2 /* Write opteration. */ 13 27 , 5 Device_Command bit(06)unal 13 28 , 5 zeroes_1 fixed bin(12)unsigned unal 13 29 , 5 IOC_Command bit(05)unal 13 30 , 5 zeroes_2 fixed bin(01)unsigned unal 13 31 , 5 Control fixed bin(06)unsigned unal 13 32 , 5 Count fixed bin(06)unsigned unal 13 33 13 34 , 4 ID2 13 35 , 5 fcb_loc bit(18)unal 13 36 , 5 DCW_list_loc bit(18)unal 13 37 13 38 , 4 RETURN_WORD 13 39 , 5 Status_loc bit(18)unal 13 40 , 5 Courtesy_Call_loc bit(18)unal 13 41 13 42 , 3 Seek_Word 13 43 , 4 Seek_loc bit(18)unal 13 44 , 4 Seek_count fixed bin(18)unsigned unal 13 45 , 3 Seek_Address fixed bin(35) 13 46 , 3 STATUS bit(72) unal 13 47 13 48 , 3 DCW 13 49 , 4 memory_loc bit(18)unal 13 50 , 4 zeroes_3 fixed bin(03)unsigned unal 13 51 , 4 action_code fixed bin(03)unsigned unal 13 52 , 4 word_count fixed bin(12)unsigned unal 13 53 13 54 , 3 RECORD 13 55 , 4 no_characters fixed bin(18)unsigned unal 13 56 , 4 zeroes_4 bit(18)unal 13 57 , 4 chars char(252) 13 58 13 59 /* Stack to accomodate nested command file processing. */ 13 60 , 3 cf 13 61 , 4 top fixed bin(24) 13 62 , 4 aft_indx fixed bin(24) 13 63 , 4 first_time bit (1) unaligned 13 64 , 4 exclude_on bit (1) unaligned 13 65 ; 13 66 13 67 /* END INCLUDE FILE gtss_starCF_.incl.pl1 */ 1026 1027 14 1 /* BEGIN INCLUDE FILE gtss_def_q_.incl.pl1 */ 14 2 /* 14 3* Created: (Dupuis Multics) 08/02/79 0559.5 mst Thu 14 4**/ 14 5 dcl 1 gtss_def_q_$FILE aligned static ext 14 6 , 3 select_sequence 14 7 , 4 OP1 /* Seek operation. */ 14 8 , 5 Device_Command bit(06)unal 14 9 , 5 zeroes_1 fixed bin(12)unsigned unal 14 10 , 5 IOC_Command bit(05)unal 14 11 , 5 zeroes_2 fixed bin(01)unsigned unal 14 12 , 5 Control fixed bin(06)unsigned unal 14 13 , 5 Count fixed bin(06)unsigned unal 14 14 14 15 , 4 ID1 14 16 , 5 fcb_loc bit(18)unal 14 17 , 5 DCW_list_loc bit(18)unal 14 18 14 19 , 4 OP2 /* Write opteration. */ 14 20 , 5 Device_Command bit(06)unal 14 21 , 5 zeroes_1 fixed bin(12)unsigned unal 14 22 , 5 IOC_Command bit(05)unal 14 23 , 5 zeroes_2 fixed bin(01)unsigned unal 14 24 , 5 Control fixed bin(06)unsigned unal 14 25 , 5 Count fixed bin(06)unsigned unal 14 26 14 27 , 4 ID2 14 28 , 5 fcb_loc bit(18)unal 14 29 , 5 DCW_list_loc bit(18)unal 14 30 14 31 , 4 RETURN_WORD 14 32 , 5 Status_loc bit(18)unal 14 33 , 5 Courtesy_Call_loc bit(18)unal 14 34 14 35 , 3 Seek_Word 14 36 , 4 Seek_loc bit(18)unal 14 37 , 4 Seek_count fixed bin(18)unsigned unal 14 38 , 3 Seek_Address fixed bin(35) 14 39 , 3 STATUS bit(72) unal 14 40 14 41 , 3 DCW 14 42 , 4 memory_loc bit(18)unal 14 43 , 4 zeroes_3 fixed bin(03)unsigned unal 14 44 , 4 action_code fixed bin(03)unsigned unal 14 45 , 4 word_count fixed bin(12)unsigned unal 14 46 14 47 , 3 RECORD 14 48 , 4 no_characters fixed bin(18)unsigned unal 14 49 , 4 zeroes_4 bit(18)unal 14 50 , 4 chars char(252) 14 51 , 3 DQ char (8) 14 52 ; 14 53 /* END INCLUDE FILE gtss_def_q_.incl.pl1 */ 1028 1029 15 1 /* BEGIN INCLUDE FILE gtss_deferred_queue.incl.pl1 */ 15 2 /* 15 3* Created: (Dupuis Multics) 06/26/79 0848.7 mst Tue 15 4* Changed: Ron Barstad 84-11-29 dq_catalog.dcelp changed to fixed bin 35 (was 36 unsigned) 15 5**/ 15 6 dcl 1 dq_header based, 15 7 2 dhcks fixed bin (36) unsigned unaligned, 15 8 2 dhnam fixed bin (36) unsigned unaligned, 15 9 2 dhdat bit (36) unaligned, 15 10 2 dhtim fixed bin (36) unsigned unaligned, 15 11 2 dhbsn, 15 12 3 no_of_cea fixed bin (18) unsigned unaligned, 15 13 3 tss_ssn fixed bin (18) unsigned unaligned, 15 14 2 dhseq, 15 15 3 no_of_ceiu fixed bin (18) unsigned unaligned, 15 16 3 no_of_dss fixed bin (18) unsigned unaligned, 15 17 2 dhtns, 15 18 3 no_of_srts fixed bin (18) unsigned unaligned, 15 19 3 no_of_dsi fixed bin (18) unsigned unaligned, 15 20 2 dhrns fixed bin (36) unsigned unaligned; 15 21 15 22 15 23 dcl 1 dq_catalog based, 15 24 2 dcjid, 15 25 3 bcd_job_id bit (30) unaligned, 15 26 3 job_status fixed bin (6) unsigned unaligned, 15 27 2 dcseq, 15 28 3 jsn fixed bin (18) unsigned unaligned, 15 29 3 reserved bit (1) unaligned, 15 30 3 init_seq fixed bin (17) unsigned unaligned, 15 31 2 dcuid bit (72) unaligned, 15 32 2 dcdsd bit (36) unaligned, 15 33 2 dcdst fixed bin (35) unaligned, 15 34 2 dcelp fixed bin (35) unaligned, 15 35 2 dcusr, 15 36 3 not_used bit (18) unaligned, 15 37 3 b18_35_lswth bit (18) unaligned; 15 38 15 39 dcl 1 dq_dib based, 15 40 2 dbdat bit (36) unaligned, 15 41 2 dbtim bit (36) unaligned, 15 42 2 dblin fixed bin (36) unaligned unsigned, 15 43 2 dberr, 15 44 3 dbalt_cc fixed bin (18) unaligned unsigned, 15 45 3 dbdsc_cc fixed bin (18) unaligned unsigned, 15 46 2 dbptr, 15 47 3 dbdsc_ro fixed bin (18) unaligned unsigned, 15 48 3 ofn_ro fixed bin (17) unaligned, 15 49 2 dbflg, 15 50 3 alloc_perm bit (9) unaligned, 15 51 3 del_char char (1) unaligned, 15 52 3 f_res bit (1) unaligned, 15 53 3 f_sub bit (1) unaligned, 15 54 3 f_arg bit (1) unaligned, 15 55 3 f_del bit (1) unaligned, 15 56 3 f_exc bit (1) unaligned, 15 57 3 f_inc bit (1) unaligned, 15 58 3 f_lni bit (1) unaligned, 15 59 3 f_alt bit (1) unaligned, 15 60 3 f_fnq bit (1) unaligned, 15 61 3 f_ucs bit (1) unaligned, 15 62 3 f_lcs bit (1) unaligned, 15 63 3 arg_char char (1) unaligned, 15 64 2 rest (58) bit (36) unaligned; 15 65 15 66 dcl 1 cout_sector based, 15 67 2 filler_1 (6) bit (36), 15 68 2 c_lcfio, 15 69 3 sector_out fixed bin (18) unaligned unsigned, 15 70 3 sector_in fixed bin (18) unaligned unsigned, 15 71 2 c_lcfst, 15 72 3 init_sect_out fixed bin (18) unaligned unsigned, 15 73 3 start_term fixed bin (18) unaligned unsigned, 15 74 2 filler_2 (40) bit (36), 15 75 2 label_table (8), 15 76 3 label_name bit (54), 15 77 3 label_pos fixed bin (18) unaligned unsigned; 15 78 15 79 /* END INCLUDE FILE gtss_deferred_queue.incl.pl1 */ 1030 1031 16 1 /* BEGIN INCLUDE FILE gtss_constants.incl.pl1 */ 16 2 16 3 dcl gtss_constants$version char (4) var ext; 16 4 16 5 /* END INCLUDE FILE gtss_constants.incl.pl1 */ 1032 1033 17 1 /* BEGIN INCLUDE FILE gtss_db_names.incl.pl1 */ 17 2 /* 17 3* Created: (Wardd Multics) 03/29/79 1909.1 mst Thu 17 4**/ 17 5 17 6 /* To provide a new debugging switch: 17 7* 17 8* 1) Locate the comment "Insert next entry above this comment". 17 9* 17 10* 2) Place a new declaration for a db_ variable just 17 11* above this comment, in the same manner as the 17 12* current declaration just above the comment, using 17 13* the next integer gtss_ext_$db index. 17 14* 17 15* 3) Execute the gtss|db_names ted macro (this updates 17 16* the sorted name table). 17 17* 17 18* 4) Example use: 17 19* 17 20* if db_drl_grow then do; 17 21* . 17 22* . 17 23* . 17 24* debug i/o statements using com_err_ or ioa_ 17 25* . 17 26* . 17 27* . 17 28* end; 17 29* 17 30**/ 17 31 17 32 dcl ( 17 33 db_ bit(1) defined(gtss_ext_$db(01)) 17 34 ,db_CFP_input bit(1) defined(gtss_ext_$db(02)) 17 35 ,db_drl_addmem bit(1) defined(gtss_ext_$db(03)) 17 36 ,db_drl_defil bit(1) defined(gtss_ext_$db(04)) 17 37 ,db_drl_filact bit(1) defined(gtss_ext_$db(05)) 17 38 ,db_drl_filsp bit(1) defined(gtss_ext_$db(06)) 17 39 ,db_drl_grow bit(1) defined(gtss_ext_$db(07)) 17 40 ,db_drl_rew bit(1) defined(gtss_ext_$db(08)) 17 41 ,db_filact_funct02 bit(1) defined(gtss_ext_$db(09)) 17 42 ,db_filact_funct03 bit(1) defined(gtss_ext_$db(10)) 17 43 ,db_filact_funct04 bit(1) defined(gtss_ext_$db(11)) 17 44 ,db_filact_funct05 bit(1) defined(gtss_ext_$db(12)) 17 45 ,db_filact_funct10 bit(1) defined(gtss_ext_$db(13)) 17 46 ,db_filact_funct11 bit(1) defined(gtss_ext_$db(14)) 17 47 ,db_filact_funct14 bit(1) defined(gtss_ext_$db(15)) 17 48 ,db_filact_funct18 bit(1) defined(gtss_ext_$db(16)) 17 49 ,db_filact_funct19 bit(1) defined(gtss_ext_$db(17)) 17 50 ,db_filact_funct21 bit(1) defined(gtss_ext_$db(18)) 17 51 ,db_filact_funct22 bit(1) defined(gtss_ext_$db(19)) 17 52 ,db_interp_prim bit(1) defined(gtss_ext_$db(20)) 17 53 ,db_ios bit(1) defined(gtss_ext_$db(21)) 17 54 ,db_run_subsystem bit(1) defined(gtss_ext_$db(22)) 17 55 ,db_drl_t_cfio bit(1) defined(gtss_ext_$db(23)) 17 56 ,db_drl_switch bit(1) defined(gtss_ext_$db(24)) 17 57 ,db_drl_dio bit(1) defined(gtss_ext_$db(25)) 17 58 ,db_drl_retfil bit(1) defined(gtss_ext_$db(26)) 17 59 ,db_drl_msub bit(1) defined(gtss_ext_$db(27)) 17 60 ,db_drl_callss bit(1) defined(gtss_ext_$db(28)) 17 61 ,db_drl_rstswh bit(1) defined(gtss_ext_$db(29)) 17 62 ,db_drl_setswh bit(1) defined(gtss_ext_$db(30)) 17 63 ,db_mcfc bit(1) defined(gtss_ext_$db(31)) 17 64 ,db_dq bit(1) defined(gtss_ext_$db(32)) 17 65 ,db_abs bit(1) defined(gtss_ext_$db(33)) 17 66 ,db_attributes_mgr bit(1) defined(gtss_ext_$db(34)) 17 67 ,db_expand_pathname bit(1) defined(gtss_ext_$db(35)) 17 68 ,db_drl_part bit(1) defined(gtss_ext_$db(36)) 17 69 ,db_drl_morlnk bit(1) defined(gtss_ext_$db(37)) 17 70 ,db_drl_kin bit(1) defined(gtss_ext_$db(38)) 17 71 /* Insert next entry above this comment. */ 17 72 ); 17 73 17 74 /* Table of sorted names. */ 17 75 dcl 1 debug_bit_names (38) static int options(constant) 17 76 , 2 name char(18)var init( 17 77 "" ,"CFP_input" ,"abs" ,"attributes_mgr" ,"dq" ,"drl_addmem" 17 78 ,"drl_callss" ,"drl_defil" ,"drl_dio" ,"drl_filact" ,"drl_filsp" 17 79 ,"drl_grow" ,"drl_kin" ,"drl_morlnk" ,"drl_msub" ,"drl_part" 17 80 ,"drl_retfil" ,"drl_rew" ,"drl_rstswh" ,"drl_setswh" ,"drl_switch" 17 81 ,"drl_t_cfio" ,"expand_pathname" ,"filact_funct02" ,"filact_funct03" 17 82 ,"filact_funct04" ,"filact_funct05" ,"filact_funct10" ,"filact_funct11" 17 83 ,"filact_funct14" ,"filact_funct18" ,"filact_funct19" ,"filact_funct21" 17 84 ,"filact_funct22" ,"interp_prim" ,"ios" ,"mcfc" ,"run_subsystem" 17 85 ) 17 86 , 2 value fixed bin init( 17 87 01 ,02 ,33 ,34 ,32 ,03 ,28 ,04 ,25 ,05 ,06 ,07 ,38 ,37 ,27 ,36 ,26 ,08 17 88 ,29 ,30 ,24 ,23 ,35 ,09 ,10 ,11 ,12 ,13 ,14 ,15 ,16 ,17 ,18 ,19 ,20 ,21 17 89 ,31 ,22 17 90 ); 17 91 /* End of table. */ 17 92 /* END INCLUDE FILE gtss_db_names.incl.pl1 */ 1034 1035 end gtss ; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 08/04/87 1541.5 gcos_tss.pl1 >special_ldd>install>MR12.1-1054>gcos_tss.pl1 1002 1 09/09/83 1713.8 gtss_ext_.incl.pl1 >ldd>include>gtss_ext_.incl.pl1 1004 2 09/09/83 1713.3 gtss_install_values_.incl.pl1 >ldd>include>gtss_install_values_.incl.pl1 1006 3 08/04/87 1139.0 static_handlers.incl.pl1 >spec>install>1056>static_handlers.incl.pl1 1008 4 09/09/83 1714.3 gtss_ust_ext_.incl.pl1 >ldd>include>gtss_ust_ext_.incl.pl1 1010 5 09/09/83 1713.5 gtss_SYstarstar_.incl.pl1 >ldd>include>gtss_SYstarstar_.incl.pl1 1012 6 09/09/83 1714.2 gtss_save_restore_data_.incl.pl1 >ldd>include>gtss_save_restore_data_.incl.pl1 1014 7 09/09/83 1713.2 gtss_dfd_ext_.incl.pl1 >ldd>include>gtss_dfd_ext_.incl.pl1 1016 8 12/11/84 1420.0 gtss_entry_dcls.incl.pl1 >ldd>include>gtss_entry_dcls.incl.pl1 1018 9 09/09/83 1713.7 gtss_device_cmds.incl.pl1 >ldd>include>gtss_device_cmds.incl.pl1 1020 10 09/09/83 1713.7 gtss_defil_arg.incl.pl1 >ldd>include>gtss_defil_arg.incl.pl1 1022 11 12/15/83 1100.4 mc.incl.pl1 >ldd>include>mc.incl.pl1 1024 12 09/09/83 1713.4 gse_ext_.incl.pl1 >ldd>include>gse_ext_.incl.pl1 1026 13 09/09/83 1714.2 gtss_starCF_.incl.pl1 >ldd>include>gtss_starCF_.incl.pl1 1028 14 09/09/83 1713.6 gtss_def_q_.incl.pl1 >ldd>include>gtss_def_q_.incl.pl1 1030 15 12/11/84 1419.9 gtss_deferred_queue.incl.pl1 >ldd>include>gtss_deferred_queue.incl.pl1 1032 16 09/09/83 1713.6 gtss_constants.incl.pl1 >ldd>include>gtss_constants.incl.pl1 1034 17 09/09/83 1713.6 gtss_db_names.incl.pl1 >ldd>include>gtss_db_names.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. AFT_INITIALIZED 000113 automatic bit(1) initial unaligned dcl 871 set ref 107* 251 277 871* CR constant char(1) initial unaligned dcl 988 ref 475 Count 0(30) 000500 external static fixed bin(6,0) level 4 in structure "gtss_def_q_$FILE" packed unsigned unaligned dcl 14-5 in procedure "gtss" set ref 647* Count 0(30) 000426 external static bit(6) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 610* Count 0(30) 000476 external static fixed bin(6,0) level 4 in structure "gtss_starCF_$FILE" packed unsigned unaligned dcl 13-12 in procedure "gtss" set ref 633* Count 0(30) 000430 external static bit(6) level 4 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 668* DCW 11 000500 external static structure level 2 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" set ref 650 DCW 11 000430 external static structure array level 2 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" set ref 672 DCW 11 000426 external static structure level 2 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" set ref 614 DCW 11 000476 external static structure level 2 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" set ref 636 DCW_list_loc 3(18) 000426 external static bit(18) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 614* DCW_list_loc 3(18) 000430 external static bit(18) level 4 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 672* DCW_list_loc 3(18) 000476 external static bit(18) level 4 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 636* DCW_list_loc 1(18) 000476 external static bit(18) level 4 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 635* DCW_list_loc 1(18) 000430 external static bit(18) level 4 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 671* DCW_list_loc 1(18) 000500 external static bit(18) level 4 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 649* DCW_list_loc 3(18) 000500 external static bit(18) level 4 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 650* DCW_list_loc 1(18) 000426 external static bit(18) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 613* DQ 112 000500 external static char(8) level 2 dcl 14-5 set ref 658 Device_Command 000500 external static bit(6) level 4 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 646* Device_Command 2 000430 external static bit(6) level 4 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 669* Device_Command 000430 external static bit(6) level 4 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 667* Device_Command 2 000426 external static bit(6) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 611* Device_Command 000476 external static bit(6) level 4 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 632* Device_Command 000426 external static bit(6) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 609* ID1 1 000430 external static structure level 3 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" ID1 1 000426 external static structure level 3 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" ID1 1 000500 external static structure level 3 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" ID1 1 000476 external static structure level 3 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" ID2 3 000476 external static structure level 3 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" ID2 3 000426 external static structure level 3 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" ID2 3 000430 external static structure level 3 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" ID2 3 000500 external static structure level 3 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" OP1 000500 external static structure level 3 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" OP1 000426 external static structure level 3 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" OP1 000430 external static structure level 3 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" OP1 000476 external static structure level 3 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" OP2 2 000426 external static structure level 3 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" OP2 2 000430 external static structure level 3 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" RECORD 12 000476 external static structure level 2 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" set ref 643 RECORD 12 000500 external static structure level 2 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" set ref 657 RECORD 13 000426 external static structure array level 2 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" set ref 621 RETURN_WORD 4 000426 external static structure level 3 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" RETURN_WORD 4 000430 external static structure level 3 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" RETURN_WORD 4 000500 external static structure level 3 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" RETURN_WORD 4 000476 external static structure level 3 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" STATUS 7 000500 external static bit(72) level 2 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 653 STATUS 7 000430 external static bit(72) level 2 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" set ref 675 STATUS 7 000476 external static bit(72) level 2 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 639 STATUS 7 000426 external static bit(72) level 2 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" set ref 617 SYss 1213 000426 external static char(8) level 2 dcl 5-10 set ref 622* 623 Seek_Address 6 000430 external static fixed bin(35,0) level 2 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" set ref 674 Seek_Address 6 000476 external static fixed bin(35,0) level 2 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" set ref 638 Seek_Address 6 000426 external static fixed bin(35,0) level 2 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" set ref 616 Seek_Address 6 000500 external static fixed bin(35,0) level 2 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" set ref 652 Seek_Word 5 000476 external static structure level 2 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" set ref 635 Seek_Word 5 000500 external static structure level 2 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" set ref 649 Seek_Word 5 000426 external static structure level 2 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" set ref 613 Seek_Word 5 000430 external static structure level 2 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" set ref 671 Seek_count 5(18) 000426 external static fixed bin(17,0) level 3 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 618* Seek_count 5(18) 000476 external static fixed bin(18,0) level 3 in structure "gtss_starCF_$FILE" packed unsigned unaligned dcl 13-12 in procedure "gtss" set ref 640* Seek_count 5(18) 000500 external static fixed bin(18,0) level 3 in structure "gtss_def_q_$FILE" packed unsigned unaligned dcl 14-5 in procedure "gtss" set ref 654* Seek_count 5(18) 000430 external static fixed bin(17,0) level 3 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 676* Seek_loc 5 000476 external static bit(18) level 3 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 638* Seek_loc 5 000430 external static bit(18) level 3 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 674* Seek_loc 5 000426 external static bit(18) level 3 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 616* Seek_loc 5 000500 external static bit(18) level 3 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 652* Status_loc 4 000426 external static bit(18) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 617* Status_loc 4 000430 external static bit(18) level 4 in structure "gtss_save_restore_data_$IO" packed unaligned dcl 6-10 in procedure "gtss" set ref 675* Status_loc 4 000476 external static bit(18) level 4 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 639* Status_loc 4 000500 external static bit(18) level 4 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 653* a 2 based bit(6) level 3 packed unaligned dcl 10-6 set ref 583* acct 000103 automatic char(32) unaligned dcl 868 set ref 495* addr builtin function dcl 869 ref 148 149 239 239 280 280 455 468 468 470 470 478 478 478 478 479 479 482 482 485 485 487 487 519 519 519 519 522 522 522 522 527 527 527 527 581 588 588 588 588 613 614 616 617 621 623 635 636 638 639 643 649 650 652 653 657 658 671 672 674 675 688 688 729 address 10 000424 external static bit(18) level 4 packed unaligned dcl 4-16 set ref 479* aft_entry 147 000414 external static structure array level 2 dcl 1-78 set ref 277 al 000114 automatic fixed bin(24,0) dcl 872 set ref 180* 187 187 187 190 193 195 200 200 altname 147 000414 external static char(8) array level 3 dcl 1-78 set ref 285* any_other 000116 stack reference condition dcl 873 ref 116 ap 000124 automatic pointer dcl 874 set ref 180* 187 187 190 193 195 200 arg based structure level 1 dcl 10-6 set ref 578 arg2 2 based structure level 2 dcl 10-6 arg_ptr 000130 automatic pointer initial dcl 877 set ref 219* 225 225 225 225 225 225 225 225 225 225 232 238 239* 578 581* 582 583 584 585 586 588* 603 877* arg_space 000103 automatic bit(36) array dcl 578 set ref 581 argl 000126 automatic fixed bin(24,0) dcl 875 set ref 219* 225 225 225 225 225 225 225 225 225 225 225 232 232 238 args_ptr 000100 automatic pointer dcl 155 set ref 157* 158* argument based char unaligned dcl 876 set ref 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 225 232* 238 ascii_channel_id 000132 automatic char(2) unaligned dcl 878 set ref 478 478 531* ascii_file_name based char(8) level 2 dcl 10-6 set ref 582* b 2(17) based bit(1) level 3 packed unaligned dcl 10-6 set ref 584* b0_17 43 000424 external static fixed bin(17,0) level 4 in structure "gtss_ust_ext_$ust" packed unaligned dcl 4-16 in procedure "gtss" set ref 485* b0_17 170 000424 external static fixed bin(17,0) level 4 in structure "gtss_ust_ext_$ust" packed unaligned dcl 4-16 in procedure "gtss" set ref 487* b18_35 43(18) 000424 external static bit(18) level 4 packed unaligned dcl 4-16 set ref 482* b20 54(20) 000424 external static bit(1) level 4 packed unaligned dcl 4-16 set ref 759* b24 54(24) 000424 external static bit(1) level 4 packed unaligned dcl 4-16 set ref 458* b25 54(25) 000424 external static bit(1) level 4 packed unaligned dcl 4-16 set ref 459* bit12 000100 automatic bit(12) level 2 packed unaligned dcl 335 set ref 285 bit_count 000133 automatic fixed bin(24,0) dcl 879 set ref 93* 708* buffer_control_word 177 000424 external static structure level 4 dcl 4-16 buffer_threshold_address 177(18) 000424 external static bit(18) level 5 packed unaligned dcl 4-16 set ref 470* c 2(18) based bit(1) level 3 packed unaligned dcl 10-6 set ref 585* cardin 72(19) 000424 external static bit(1) level 5 packed unaligned dcl 4-16 set ref 462* cardin_urgency 72(22) 000424 external static bit(14) level 4 packed unaligned dcl 4-16 set ref 465* char_length 130(18) 000424 external static fixed bin(17,0) level 4 packed unaligned dcl 4-16 set ref 456* characters_transmitted 202 000424 external static char(1) array level 4 packed unaligned dcl 4-16 set ref 474* 475* 475* 475* 475* cleanup 000134 stack reference condition dcl 881 ref 77 248 276 297 clock builtin function dcl 882 ref 453 453 cmd_arg based char unaligned dcl 883 set ref 187 187* 190 193 195 200* code 000142 automatic fixed bin(35,0) dcl 885 in procedure "gtss" set ref 93* 97* 113* 114 180* 181 182* 219* 220 221* 395* 400 401* 405* 410 411* 418 419* 426 428 430* 513* 514 515* 535* 539 540* 564* 565 679* 680 682* 688* 689 691* 692 694 696 697* 708* 710 code 000176 internal static fixed bin(35,0) dcl 332 in procedure "clean_up" set ref 256* 260 260* 269* 270 270* 280* 285* 306* 307 307* 317* 321 321* com_err_ 000432 constant entry external dcl 8-8 ref 52 65 79 98 132 173 182 187 197 200 204 214 221 232 260 270 285 307 321 401 411 430 437 515 540 566 599 682 697 716 command_error 000144 stack reference condition dcl 886 ref 86 comp_ptr 4 000416 external static pointer array level 2 dcl 1-98 set ref 391* 419* comp_wds 30 000416 external static fixed bin(24,0) array level 2 dcl 1-98 set ref 392* 426* count 244 000412 external static fixed bin(17,0) array level 2 dcl 1-72 set ref 382* count_of_characters_transmitted 201 000424 external static fixed bin(17,0) level 4 packed unaligned dcl 4-16 set ref 468 473* cu_$arg_count 000210 constant entry external dcl 889 ref 63 171 212 cu_$arg_list_ptr 000204 constant entry external dcl 156 ref 157 cu_$arg_ptr 000212 constant entry external dcl 890 ref 180 219 current_line_pointer 177 000424 external static bit(18) level 5 packed unaligned dcl 4-16 set ref 468* current_modes 000010 internal static char(400) initial unaligned dcl 888 set ref 306* 691* 694* d 000152 automatic fixed bin(24,0) dcl 892 in procedure "gtss" set ref 453* d 2(24) based bit(12) level 3 in structure "arg" packed unaligned dcl 10-6 in procedure "gtss" set ref 586* d1 defined char(1) level 2 packed unaligned dcl 995 ref 225 225 d2 0(09) defined char(1) level 2 packed unaligned dcl 995 ref 225 225 d3 0(18) defined char(1) level 2 packed unaligned dcl 995 ref 225 225 d4 0(27) defined char(1) level 2 packed unaligned dcl 995 ref 225 225 d5 1 defined char(1) level 2 packed unaligned dcl 995 ref 225 225 db_bits 000154 internal static bit(1) initial array unaligned dcl 893 set ref 158* 362 db_drl_kin defined bit(1) unaligned dcl 17-32 ref 109 123 250 dc_ptr 000154 automatic pointer initial dcl 894 set ref 894* decode_clock_value_ 000214 constant entry external dcl 895 ref 453 delete_$ptr 000216 constant entry external dcl 896 ref 97 derail_sct_index 000067 constant fixed bin(17,0) initial dcl 3-27 set ref 269* 679* 688* dfsw 000104 automatic structure level 1 dcl 594 set ref 588 588 djid 000156 automatic char(5) unaligned dcl 897 set ref 238* drun_cpu_limit 000160 automatic fixed bin(36,0) initial unsigned dcl 898 set ref 448 898* drun_jid defined structure level 1 packed unaligned dcl 995 drun_job_id 000162 automatic bit(36) initial unaligned dcl 899 set ref 239 239 525 526 527 527 899* drun_start_time 000254 automatic fixed bin(36,0) initial unsigned dcl 938 set ref 449 938* drun_term_req 000256 automatic bit(1) initial unaligned dcl 939 set ref 251 712* 939* empty builtin function dcl 900 ref 552 error 000163 automatic bit(1) initial unaligned dcl 901 set ref 251* 705* 711* 715 901* error_table_$arg_ignored 000220 external static fixed bin(35,0) dcl 902 set ref 65* error_table_$no_operation 000226 external static fixed bin(35,0) dcl 905 ref 694 error_table_$noentry 000222 external static fixed bin(35,0) dcl 903 ref 428 710 error_table_$not_attached 000224 external static fixed bin(35,0) dcl 904 ref 696 execute_drun 000257 automatic fixed bin(18,0) initial unsigned dcl 940 set ref 91 240* 530 940* expand_pathname_ 000230 constant entry external dcl 907 ref 513 fast_lib_fcb 000416 external static pointer level 2 dcl 1-98 set ref 325 325* 353* 389* 405* 419* fast_lib_ncp 2 000416 external static fixed bin(24,0) level 2 dcl 1-98 set ref 390* 442* fcb_loc 1 000426 external static bit(18) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 623* fcb_loc 1 000500 external static bit(18) level 4 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 658* fcb_loc 3 000426 external static bit(18) level 4 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 623* fcb_loc 3 000500 external static bit(18) level 4 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 658* finish 000164 stack reference condition dcl 908 ref 90 first_added 340 000414 external static fixed bin(24,0) level 2 dcl 1-78 set ref 303* fixed_bin24 based fixed bin(24,0) dcl 909 ref 603 fms_status 000100 automatic structure level 1 dcl 335 set ref 280 280 285* free_space 337 000414 external static fixed bin(24,0) level 2 dcl 1-78 set ref 302* gcos_debug_$initial 000232 constant entry external dcl 911 ref 113 gdb 0(02) 000474 external static bit(1) level 2 packed unaligned dcl 12-18 set ref 112 114* get_pdir_ 000234 constant entry external dcl 912 ref 561 get_temp_segments_ 000236 constant entry external dcl 913 ref 535 get_wdir_ 000240 constant entry external dcl 914 ref 513 513 gse_ext_$drm_rule 000470 external static fixed bin(24,0) dcl 12-6 set ref 60 60* 510 gse_ext_$modes 000474 external static structure level 1 dcl 12-18 gse_ext_$umc_name 000472 external static char(12) unaligned dcl 12-17 set ref 522 522 gtss_CFP_output_ 000434 constant entry external dcl 8-12 ref 87 gtss_SYstarstar_$FILE 000426 external static structure level 1 dcl 5-10 set ref 608* gtss_aft_$initialize 000436 constant entry external dcl 8-29 ref 564 gtss_already_called 000156 internal static bit(1) initial unaligned dcl 915 set ref 51 74* 327* gtss_ascii_bcd_ 000440 constant entry external dcl 8-30 ref 239 478 519 522 gtss_bcd_ascii_ 000442 constant entry external dcl 8-33 ref 527 gtss_com_err_ 000444 constant entry external dcl 8-39 ref 87 gtss_constants$version 000502 external static varying char(4) dcl 16-3 set ref 52 65 79 117* 132 317 535 gtss_def_q_$FILE 000500 external static structure level 1 dcl 14-5 set ref 645* gtss_derail_processor_ 000446 constant entry external dcl 8-40 set ref 688 688 gtss_derail_processor_$set 000450 constant entry external dcl 8-41 ref 344 gtss_drl_defil_$subr 000452 constant entry external dcl 8-55 ref 588 gtss_drun_ 000454 constant entry external dcl 8-102 ref 251 705 711 gtss_dump_kin_$clean 000242 constant entry external dcl 916 ref 250 gtss_dump_kin_$fin 000244 constant entry external dcl 917 ref 123 gtss_dump_kin_$init 000246 constant entry external dcl 918 ref 109 gtss_ext_$CFP_bits 000404 external static structure level 1 dcl 1-37 set ref 445* gtss_ext_$SYstarstar_file_no 000376 external static fixed bin(24,0) dcl 1-33 set ref 603* gtss_ext_$aem 000322 external static fixed bin(17,0) dcl 1-8 set ref 365* gtss_ext_$aft 000414 external static structure level 1 dcl 1-78 gtss_ext_$bad_drl_rtrn 000324 external static label variable dcl 1-9 set ref 312* 369* gtss_ext_$com_reg 000406 external static structure level 1 dcl 1-45 set ref 446* gtss_ext_$db 000326 external static bit(1) array unaligned dcl 1-10 set ref 109 109 123 123 250 250 362* gtss_ext_$deferred_catalogs_ptr 000330 external static pointer dcl 1-11 set ref 555* gtss_ext_$dispose_of_drl 000332 external static label variable dcl 1-12 set ref 373* gtss_ext_$drl_rtrn 000334 external static label variable array dcl 1-13 set ref 313 314* 370* gtss_ext_$drun_jid 000336 external static char(5) unaligned dcl 1-15 set ref 93 527 527 529* gtss_ext_$fast_lib 000416 external static structure level 1 dcl 1-98 gtss_ext_$finished 000340 external static label variable dcl 1-17 set ref 311* 368* gtss_ext_$flags 000410 external static structure level 1 dcl 1-60 set ref 72* gtss_ext_$gdb_name 000342 external static char(8) unaligned dcl 1-18 set ref 383* gtss_ext_$get_line 000344 external static entry variable dcl 1-19 set ref 572* gtss_ext_$gtss_slave_area_seg 000346 external static pointer array dcl 1-20 set ref 148 322* 350* 545* 546* 547* 548* gtss_ext_$hcs_work_area_ptr 000350 external static pointer dcl 1-21 set ref 558* gtss_ext_$homedir 000352 external static char(64) unaligned dcl 1-22 set ref 93* 497* 708* gtss_ext_$last_k_was_out 000354 external static bit(1) dcl 1-23 set ref 364* gtss_ext_$mcfc 000420 external static structure level 1 dcl 1-109 gtss_ext_$pdir 000356 external static varying char(168) dcl 1-24 set ref 562* gtss_ext_$popup_from_pi 000360 external static label variable dcl 1-25 set ref 371* gtss_ext_$process_type 000362 external static fixed bin(17,0) dcl 1-26 set ref 498* gtss_ext_$put_chars 000364 external static entry variable dcl 1-27 set ref 87 575* gtss_ext_$restart_from_pi 000366 external static label variable dcl 1-28 set ref 372* gtss_ext_$restart_seg_ptr 000370 external static pointer dcl 1-29 set ref 93* 96 97* gtss_ext_$sig_ptr 000372 external static pointer dcl 1-30 set ref 268 269* 272* 354* 679* gtss_ext_$stack_level_ 000374 external static fixed bin(17,0) dcl 1-31 set ref 132* 149 384* gtss_ext_$statistics 000412 external static structure level 1 dcl 1-72 gtss_ext_$user_id 000400 external static varying char(26) dcl 1-34 set ref 496* gtss_ext_$work_area_ptr 000402 external static pointer dcl 1-35 set ref 323* 351* 551* 552 gtss_fail 000172 stack reference condition dcl 919 ref 78 138 gtss_fault_processor_ 000456 constant entry external dcl 8-109 ref 116 gtss_fix_tty_modes_ 000250 constant entry external dcl 920 ref 126 gtss_install_values_$fast_msf 000422 external static varying char(32) dcl 2-9 set ref 405 411* 430* 437* gtss_interp_prim_ 000462 constant entry external dcl 8-126 ref 120 gtss_ios_close_ 000464 constant entry external dcl 8-131 ref 280 gtss_ios_initialize_ 000466 constant entry external dcl 8-133 ref 355 gtss_mcfc_init_ 000460 constant entry external dcl 8-125 ref 376 gtss_save_restore_data_$IO 000430 external static structure level 1 dcl 6-10 set ref 666* gtss_set_db_$arg_ptr 000206 constant entry external dcl 160 ref 158 gtss_starCF_$FILE 000476 external static structure level 1 dcl 13-12 set ref 630* gtss_ust 000424 external static structure level 2 dcl 4-16 set ref 468 470 479 482 485 487 gtss_ust_ext_$ust 000424 external static structure level 1 dcl 4-16 set ref 452* hbound builtin function dcl 921 ref 254 277 313 482 hcs_$fs_get_path_name 000252 constant entry external dcl 922 ref 395 hcs_$initiate_count 000254 constant entry external dcl 923 ref 93 hcs_$set_max_length_seg 000256 constant entry external dcl 924 ref 256 hcs_$status_minf 000260 constant entry external dcl 925 ref 708 i 000200 automatic fixed bin(24,0) dcl 926 in procedure "gtss" set ref 179* 180* 182* 187* 200* 418* 419* 419 426 430* 436 442 i 000177 internal static fixed bin(24,0) dcl 333 in procedure "clean_up" set ref 254* 255 256 260* 260* 277* 279 280 285* 285* 313* 314* installation_directory 000201 automatic char(168) unaligned dcl 927 set ref 395* 405 411* 430* 437* ioa_ 000262 constant entry external dcl 928 ref 117 iox_$get_line 000264 constant entry external dcl 929 ref 572 iox_$modes 000266 constant entry external dcl 930 ref 306 691 iox_$put_chars 000270 constant entry external dcl 931 ref 575 iox_$user_output 000272 external static pointer dcl 932 set ref 306* 691* l 000253 automatic fixed bin(24,0) dcl 934 in procedure "gtss" set ref 419* 426 l parameter label variable dcl 728 in procedure "null_label" set ref 725 729* lacpt 72 000424 external static structure level 3 dcl 4-16 last_added 341 000414 external static fixed bin(24,0) level 2 dcl 1-78 set ref 303* lbuf 10 000424 external static structure level 3 dcl 4-16 lcals 43 000424 external static structure level 3 dcl 4-16 set ref 482 485 lcfst 133 000424 external static structure level 3 dcl 4-16 lcjid 135 000424 external static bit(36) level 3 dcl 4-16 set ref 251 526* 705 lfile 17 000424 external static structure level 3 dcl 4-16 lflg2 54 000424 external static structure level 3 dcl 4-16 lid 000424 external static bit(72) level 3 dcl 4-16 set ref 519 519 522 522 lincr 64 000424 external static fixed bin(35,0) level 3 dcl 4-16 set ref 461* linno 63 000424 external static fixed bin(35,0) level 3 dcl 4-16 set ref 460* lods 72(21) 000424 external static bit(1) level 5 packed unaligned dcl 4-16 set ref 462* lodx 72(18) 000424 external static bit(1) level 5 packed unaligned dcl 4-16 set ref 462* lrtll 130 000424 external static structure level 3 dcl 4-16 ltalc 52 000424 external static structure level 3 dcl 4-16 lxxx 170 000424 external static structure level 3 dcl 4-16 set ref 487 m 000260 automatic fixed bin(24,0) dcl 942 set ref 453* mc based structure level 1 dcl 11-12 ref 579 mc_space 000103 automatic bit(36) array dcl 579 set ref 588 588 mcp automatic pointer dcl 11-10 ref 579 me_ptr 000262 automatic pointer initial dcl 943 set ref 394* 395* 943* memory_loc 11 000500 external static bit(18) level 3 in structure "gtss_def_q_$FILE" packed unaligned dcl 14-5 in procedure "gtss" set ref 657* memory_loc 11 000426 external static bit(18) level 3 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 621* memory_loc 11 000476 external static bit(18) level 3 in structure "gtss_starCF_$FILE" packed unaligned dcl 13-12 in procedure "gtss" set ref 643* msf_manager_$close 000274 constant entry external dcl 945 ref 325 msf_manager_$get_ptr 000276 constant entry external dcl 946 ref 419 msf_manager_$open 000300 constant entry external dcl 947 ref 405 nargs 000264 automatic fixed bin(24,0) dcl 948 set ref 63* 64 171* 172 172 179 212* 213 need_n 000102 automatic bit(1) unaligned dcl 177 set ref 178* 185 186* 193* 204 null builtin function dcl 949 ref 96 255 268 272 322 323 325 350 351 352 353 354 389 391 877 894 943 null_null based label variable dcl 732 ref 729 number_words_transmitted 200 000424 external static fixed bin(17,0) level 4 packed unaligned dcl 4-16 set ref 473* old_modes 000265 automatic char(400) unaligned dcl 950 set ref 306* pd 000431 automatic char(168) unaligned dcl 952 set ref 561* 562 permissions 72(18) 000424 external static structure level 4 packed unaligned dcl 4-16 person_id 000503 automatic char(22) unaligned dcl 953 set ref 495* program_stack 17 000424 external static fixed bin(17,0) level 4 packed unaligned dcl 4-16 set ref 487* proj 000511 automatic char(9) unaligned dcl 954 set ref 495* 496 quit 000514 stack reference condition dcl 955 ref 126 reattach 000522 automatic bit(1) unaligned dcl 956 set ref 305 357* 693* rel builtin function dcl 957 ref 468 468 470 470 479 479 482 482 485 485 487 487 613 614 616 617 621 623 635 636 638 639 643 649 650 652 653 657 658 671 672 674 675 release_temp_segments_ 000302 constant entry external dcl 958 ref 317 remote_io_buffer 177 000424 external static structure level 3 dcl 4-16 set ref 479 rs 000100 automatic varying char(5) dcl 377 set ref 376* 378 rtrim builtin function dcl 959 ref 496 562 sap parameter pointer dcl 146 set ref 141 148* sct_manager_$get 000304 constant entry external dcl 960 ref 679 sct_manager_$set 000306 constant entry external dcl 961 ref 269 688 search builtin function dcl 962 ref 766 766 seek_cmd constant bit(6) initial unaligned dcl 9-6 ref 609 632 646 667 select_sequence 000426 external static structure level 2 in structure "gtss_SYstarstar_$FILE" dcl 5-10 in procedure "gtss" select_sequence 000430 external static structure level 2 in structure "gtss_save_restore_data_$IO" dcl 6-10 in procedure "gtss" select_sequence 000500 external static structure level 2 in structure "gtss_def_q_$FILE" dcl 14-5 in procedure "gtss" select_sequence 000476 external static structure level 2 in structure "gtss_starCF_$FILE" dcl 13-12 in procedure "gtss" sid parameter bit(12) unaligned dcl 741 set ref 736 766* size builtin function dcl 963 ref 578 579 slp parameter pointer dcl 147 set ref 141 149* start_list 000414 external static fixed bin(24,0) array level 2 dcl 1-78 set ref 300* start_term 133(18) 000424 external static fixed bin(18,0) level 4 packed unsigned unaligned dcl 4-16 set ref 530* station_id 10(24) 000424 external static bit(12) level 4 packed unaligned dcl 4-16 set ref 478 478 490* status 000523 automatic fixed bin(24,0) initial dcl 964 set ref 964* substr builtin function dcl 965 ref 531 757 766 766 subsystems 44 000424 external static structure array level 3 dcl 4-16 set ref 482 sw1 000104 automatic fixed bin(24,0) level 2 dcl 594 set ref 598 599* sys_info$max_seg_size 000310 external static fixed bin(35,0) dcl 967 set ref 256* 552 tally 10(18) 000424 external static bit(1) level 4 packed unaligned dcl 4-16 set ref 481* temp_segment_ptr 000160 internal static pointer array dcl 968 set ref 254 255 256* 260* 317* 352* 535* 545 546 547 548 551 555 558 term_channel 000126 automatic char(8) unaligned dcl 773 set ref 743* 766 766 term_charge_type 000130 automatic char(8) unaligned dcl 774 set ref 743* term_id_code 000132 automatic char(4) unaligned dcl 775 set ref 743* term_line_type 000133 automatic fixed bin(17,0) dcl 776 set ref 743* term_type 000134 automatic char(12) unaligned dcl 777 set ref 743* 757 terminal_type 10(19) 000424 external static bit(5) level 4 packed unaligned dcl 4-16 set ref 490* time 000524 automatic fixed bin(71,0) dcl 969 set ref 453* 454* 454 455 time2 based structure level 1 dcl 983 time53 based fixed bin(53,0) level 2 packed unaligned dcl 983 ref 455 tod 52 000424 external static fixed bin(17,0) level 4 packed unaligned dcl 4-16 set ref 455* total_time 000412 external static fixed bin(71,0) array level 2 dcl 1-72 set ref 381* tsddt 2 000406 external static fixed bin(36,0) level 2 packed unsigned unaligned dcl 1-45 set ref 449* tsdpt 1 000406 external static fixed bin(36,0) level 2 packed unsigned unaligned dcl 1-45 set ref 448* tt parameter bit(5) unaligned dcl 742 set ref 736 758* 761* two_nulls 000200 internal static pointer initial array dcl 733 set ref 729 type 000526 automatic fixed bin(2,0) dcl 970 set ref 708* unique_chars_ 000312 constant entry external dcl 971 ref 531 unspec builtin function dcl 972 set ref 72* 445* 446* 452* 608* 630* 645* 666* use_existing_components 000063 constant bit(1) initial unaligned dcl 976 set ref 419* used 154 000414 external static bit(1) array level 3 packed unaligned dcl 1-78 set ref 279 301* 356* user_info_ 000314 constant entry external dcl 973 ref 495 user_info_$homedir 000316 constant entry external dcl 974 ref 497 user_info_$process_type 000320 constant entry external dcl 975 ref 498 user_info_$terminal_data 000504 constant entry external dcl 778 ref 743 w 000527 automatic fixed bin(24,0) dcl 977 set ref 453* wait_time 1 000420 external static fixed bin(17,0) level 2 dcl 1-109 set ref 190* 197* wd_name 000530 automatic char(32) unaligned dcl 978 set ref 513* 519 519 word_after_ust 277 000424 external static bit(36) level 3 dcl 4-16 set ref 470 word_count 11(24) 000476 external static fixed bin(12,0) level 3 in structure "gtss_starCF_$FILE" packed unsigned unaligned dcl 13-12 in procedure "gtss" set ref 641* word_count 11(24) 000500 external static fixed bin(12,0) level 3 in structure "gtss_def_q_$FILE" packed unsigned unaligned dcl 14-5 in procedure "gtss" set ref 655* word_count 11(24) 000426 external static bit(12) level 3 in structure "gtss_SYstarstar_$FILE" packed unaligned dcl 5-10 in procedure "gtss" set ref 619* word_length 130 000424 external static fixed bin(17,0) level 4 packed unaligned dcl 4-16 set ref 457* work_area based area dcl 979 set ref 552* write_cmd constant bit(6) initial unaligned dcl 9-7 ref 611 669 y 000540 automatic fixed bin(24,0) dcl 980 set ref 453* z 000541 automatic char(3) dcl 981 set ref 453* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. abx internal static fixed bin(17,0) initial dcl 11-42 accessviolation_sct_index internal static fixed bin(17,0) initial dcl 3-27 addrel builtin function dcl 870 alrm_sct_index internal static fixed bin(17,0) initial dcl 3-27 am_fault_sct_index internal static fixed bin(17,0) initial dcl 3-27 apx internal static fixed bin(17,0) initial dcl 11-42 args automatic structure array level 1 unaligned dcl 991 bad_outward_call_sct_index internal static fixed bin(17,0) initial dcl 3-27 bbx internal static fixed bin(17,0) initial dcl 11-42 bpx internal static fixed bin(17,0) initial dcl 11-42 cat_entry automatic fixed bin(18,0) unsigned dcl 880 cmd_line automatic char(132) unaligned dcl 884 command_sct_index internal static fixed bin(17,0) initial dcl 3-27 connect_sct_index internal static fixed bin(17,0) initial dcl 3-27 copy builtin function dcl 887 cout_sector based structure level 1 packed unaligned dcl 15-66 cput_sct_index internal static fixed bin(17,0) initial dcl 3-27 cross_ring_transfer_sct_index internal static fixed bin(17,0) initial dcl 3-27 cu_$cp 000000 constant entry external dcl 891 db_ defined bit(1) unaligned dcl 17-32 db_CFP_input defined bit(1) unaligned dcl 17-32 db_abs defined bit(1) unaligned dcl 17-32 db_attributes_mgr defined bit(1) unaligned dcl 17-32 db_dq defined bit(1) unaligned dcl 17-32 db_drl_addmem defined bit(1) unaligned dcl 17-32 db_drl_callss defined bit(1) unaligned dcl 17-32 db_drl_defil defined bit(1) unaligned dcl 17-32 db_drl_dio defined bit(1) unaligned dcl 17-32 db_drl_filact defined bit(1) unaligned dcl 17-32 db_drl_filsp defined bit(1) unaligned dcl 17-32 db_drl_grow defined bit(1) unaligned dcl 17-32 db_drl_morlnk defined bit(1) unaligned dcl 17-32 db_drl_msub defined bit(1) unaligned dcl 17-32 db_drl_part defined bit(1) unaligned dcl 17-32 db_drl_retfil defined bit(1) unaligned dcl 17-32 db_drl_rew defined bit(1) unaligned dcl 17-32 db_drl_rstswh defined bit(1) unaligned dcl 17-32 db_drl_setswh defined bit(1) unaligned dcl 17-32 db_drl_switch defined bit(1) unaligned dcl 17-32 db_drl_t_cfio defined bit(1) unaligned dcl 17-32 db_expand_pathname defined bit(1) unaligned dcl 17-32 db_filact_funct02 defined bit(1) unaligned dcl 17-32 db_filact_funct03 defined bit(1) unaligned dcl 17-32 db_filact_funct04 defined bit(1) unaligned dcl 17-32 db_filact_funct05 defined bit(1) unaligned dcl 17-32 db_filact_funct10 defined bit(1) unaligned dcl 17-32 db_filact_funct11 defined bit(1) unaligned dcl 17-32 db_filact_funct14 defined bit(1) unaligned dcl 17-32 db_filact_funct18 defined bit(1) unaligned dcl 17-32 db_filact_funct19 defined bit(1) unaligned dcl 17-32 db_filact_funct21 defined bit(1) unaligned dcl 17-32 db_filact_funct22 defined bit(1) unaligned dcl 17-32 db_interp_prim defined bit(1) unaligned dcl 17-32 db_ios defined bit(1) unaligned dcl 17-32 db_mcfc defined bit(1) unaligned dcl 17-32 db_run_subsystem defined bit(1) unaligned dcl 17-32 debug_bit_names internal static structure array level 1 unaligned dcl 17-75 directed_fault_2_sct_index internal static fixed bin(17,0) initial dcl 3-27 directed_fault_3_sct_index internal static fixed bin(17,0) initial dcl 3-27 dm_shutdown_scheduled_sct_index internal static fixed bin(17,0) initial dcl 3-27 dq_catalog based structure level 1 packed unaligned dcl 15-23 dq_dib based structure level 1 packed unaligned dcl 15-39 dq_header based structure level 1 packed unaligned dcl 15-6 error_table_$out_of_sequence external static fixed bin(35,0) dcl 906 execute_sct_index internal static fixed bin(17,0) initial dcl 3-27 fault_tag_1_sct_index internal static fixed bin(17,0) initial dcl 3-27 fault_tag_3_sct_index internal static fixed bin(17,0) initial dcl 3-27 fixedoverflow_sct_index internal static fixed bin(17,0) initial dcl 3-27 fn automatic fixed bin(24,0) dcl 910 gse_ext_$gcos_debug_pathname external static char(168) unaligned dcl 12-15 gse_ext_$smc_pathname external static char(168) unaligned dcl 12-16 gtss_CFP_abort_ 000000 constant entry external dcl 8-9 gtss_CFP_break_ 000000 constant entry external dcl 8-10 gtss_CFP_input_ 000000 constant entry external dcl 8-11 gtss_abandon_CFP_ 000000 constant entry external dcl 8-13 gtss_abort_dump_ 000000 constant entry external dcl 8-14 gtss_abort_subsystem_ 000000 constant entry external dcl 8-15 gtss_abort_subsystem_$not_imp 000000 constant entry external dcl 8-16 gtss_abs_$abs_equiv 000000 constant entry external dcl 8-19 gtss_abs_$cpu_runout 000000 constant entry external dcl 8-20 gtss_abs_$create_absin 000000 constant entry external dcl 8-21 gtss_abs_$dabt_check 000000 constant entry external dcl 8-22 gtss_abs_$get_drm 000000 constant entry external dcl 8-24 gtss_abs_$get_id 000000 constant entry external dcl 8-23 gtss_abs_login_banner_ 000000 constant entry external dcl 8-17 gtss_abs_logout_banner_ 000000 constant entry external dcl 8-18 gtss_adjust_size_ 000000 constant entry external dcl 8-25 gtss_aft_$add 000000 constant entry external dcl 8-26 gtss_aft_$delete 000000 constant entry external dcl 8-27 gtss_aft_$find 000000 constant entry external dcl 8-28 gtss_attributes_mgr_$get 000000 constant entry external dcl 8-31 gtss_attributes_mgr_$set 000000 constant entry external dcl 8-32 gtss_bcd_ascii_$lc 000000 constant entry external dcl 8-34 gtss_break_vector_ 000000 constant entry external dcl 8-35 gtss_break_vector_$drl_in_progress 000000 constant entry external dcl 8-36 gtss_break_vector_$status 000000 constant entry external dcl 8-37 gtss_build_ 000000 constant entry external dcl 8-38 gtss_dfd_ext_$disk_file_data external static structure array level 1 dcl 7-6 gtss_dq_$catp 000000 constant entry external dcl 8-42 gtss_dq_$create 000000 constant entry external dcl 8-43 gtss_dq_$dibp 000000 constant entry external dcl 8-44 gtss_dq_$entries_info 000000 constant entry external dcl 8-45 gtss_dq_$hdrp 000000 constant entry external dcl 8-46 gtss_dq_$mod_js 000000 constant entry external dcl 8-47 gtss_dq_$open_exc 000000 constant entry external dcl 8-48 gtss_dq_$open_gen 000000 constant entry external dcl 8-49 gtss_drl_abort_ 000000 constant entry external dcl 8-50 gtss_drl_addmem_ 000000 constant entry external dcl 8-51 gtss_drl_callss_ 000000 constant entry external dcl 8-52 gtss_drl_corfil_ 000000 constant entry external dcl 8-53 gtss_drl_defil_ 000000 constant entry external dcl 8-54 gtss_drl_dio_ 000000 constant entry external dcl 8-56 gtss_drl_drlimt_ 000000 constant entry external dcl 8-57 gtss_drl_drlsav_ 000000 constant entry external dcl 8-58 gtss_drl_filact_ 000000 constant entry external dcl 8-59 gtss_drl_filsp_ 000000 constant entry external dcl 8-60 gtss_drl_grow_ 000000 constant entry external dcl 8-61 gtss_drl_gwake_ 000000 constant entry external dcl 8-62 gtss_drl_jsts_ 000000 constant entry external dcl 8-63 gtss_drl_kin_ 000000 constant entry external dcl 8-64 gtss_drl_kotnow_ 000000 constant entry external dcl 8-65 gtss_drl_kotnow_$gtss_drl_kout_ 000000 constant entry external dcl 8-66 gtss_drl_koutn_ 000000 constant entry external dcl 8-67 gtss_drl_morlnk_ 000000 constant entry external dcl 8-68 gtss_drl_msub_ 000000 constant entry external dcl 8-69 gtss_drl_objtim_ 000000 constant entry external dcl 8-70 gtss_drl_part_ 000000 constant entry external dcl 8-71 gtss_drl_pasaft_ 000000 constant entry external dcl 8-72 gtss_drl_pasdes_ 000000 constant entry external dcl 8-73 gtss_drl_pasust_ 000000 constant entry external dcl 8-74 gtss_drl_pdio_ 000000 constant entry external dcl 8-75 gtss_drl_prgdes_ 000000 constant entry external dcl 8-76 gtss_drl_pseudo_ 000000 constant entry external dcl 8-77 gtss_drl_relmem_ 000000 constant entry external dcl 8-78 gtss_drl_restor_ 000000 constant entry external dcl 8-79 gtss_drl_retfil_ 000000 constant entry external dcl 8-80 gtss_drl_return_ 000000 constant entry external dcl 8-81 gtss_drl_rew_ 000000 constant entry external dcl 8-82 gtss_drl_rstswh_ 000000 constant entry external dcl 8-83 gtss_drl_setlno_ 000000 constant entry external dcl 8-84 gtss_drl_setswh_ 000000 constant entry external dcl 8-85 gtss_drl_snumb_ 000000 constant entry external dcl 8-86 gtss_drl_spawn_ 000000 constant entry external dcl 8-87 gtss_drl_spawn_$gtss_drl_pasflr_ 000000 constant entry external dcl 8-88 gtss_drl_stoppt_ 000000 constant entry external dcl 8-89 gtss_drl_switch_ 000000 constant entry external dcl 8-90 gtss_drl_sysret_ 000000 constant entry external dcl 8-91 gtss_drl_t_cfio_ 000000 constant entry external dcl 8-92 gtss_drl_t_cmov_ 000000 constant entry external dcl 8-93 gtss_drl_t_err_ 000000 constant entry external dcl 8-94 gtss_drl_t_goto_ 000000 constant entry external dcl 8-95 gtss_drl_t_linl_ 000000 constant entry external dcl 8-96 gtss_drl_t_rscc_ 000000 constant entry external dcl 8-97 gtss_drl_tapein_ 000000 constant entry external dcl 8-98 gtss_drl_task_ 000000 constant entry external dcl 8-99 gtss_drl_termtp_ 000000 constant entry external dcl 8-100 gtss_drl_time_ 000000 constant entry external dcl 8-101 gtss_dsd_lookup_ 000000 constant entry external dcl 8-103 gtss_dsd_process_ 000000 constant entry external dcl 8-104 gtss_edit_dsd_ 000000 constant entry external dcl 8-105 gtss_expand_pathname_ 000000 constant entry external dcl 8-107 gtss_expand_pathname_$verify_umc 000000 constant entry external dcl 8-108 gtss_ext_$drm_path external static char(168) unaligned dcl 1-14 gtss_ext_$event_channel external static fixed bin(71,0) dcl 1-16 gtss_ext_$ppt external static pointer dcl 1-94 gtss_ext_$suspended_process external static bit(1) unaligned dcl 1-32 gtss_fault_processor_$timer_runout 000000 constant entry external dcl 8-111 gtss_filact_error_status_ 000000 constant entry external dcl 8-112 gtss_filact_funct02_ 000000 constant entry external dcl 8-113 gtss_filact_funct03_ 000000 constant entry external dcl 8-114 gtss_filact_funct04_ 000000 constant entry external dcl 8-115 gtss_filact_funct05_ 000000 constant entry external dcl 8-116 gtss_filact_funct08_ 000000 constant entry external dcl 8-117 gtss_filact_funct10_ 000000 constant entry external dcl 8-118 gtss_filact_funct11_ 000000 constant entry external dcl 8-119 gtss_filact_funct14_ 000000 constant entry external dcl 8-120 gtss_filact_funct18_ 000000 constant entry external dcl 8-121 gtss_filact_funct19_ 000000 constant entry external dcl 8-122 gtss_filact_funct21_ 000000 constant entry external dcl 8-123 gtss_filact_funct22_ 000000 constant entry external dcl 8-124 gtss_find_cond_frame_ 000000 constant entry external dcl 8-110 gtss_install_values_$Lstar_msf external static varying char(32) dcl 2-10 gtss_install_values_$memory_limit external static fixed bin(24,0) dcl 2-12 gtss_install_values_$starL_msf external static varying char(32) dcl 2-11 gtss_install_values_$time_limit external static fixed bin(24,0) dcl 2-13 gtss_interp_prim_$callss 000000 constant entry external dcl 8-127 gtss_interp_prim_$sysret 000000 constant entry external dcl 8-128 gtss_interp_prim_$t_goto 000000 constant entry external dcl 8-129 gtss_ios_change_size_ 000000 constant entry external dcl 8-130 gtss_ios_exchange_names_ 000000 constant entry external dcl 8-132 gtss_ios_io_ 000000 constant entry external dcl 8-134 gtss_ios_open_ 000000 constant entry external dcl 8-135 gtss_ios_position_ 000000 constant entry external dcl 8-136 gtss_mcfc_$close 000000 constant entry external dcl 8-139 gtss_mcfc_$delete 000000 constant entry external dcl 8-137 gtss_mcfc_$open 000000 constant entry external dcl 8-138 gtss_mcfc_empty 000000 constant entry external dcl 8-106 gtss_read_starCFP_ 000000 constant entry external dcl 8-140 gtss_read_starCFP_$last_os 000000 constant entry external dcl 8-141 gtss_run_subsystem_ 000000 constant entry external dcl 8-142 gtss_run_subsystem_$finish 000000 constant entry external dcl 8-143 gtss_run_subsystem_$restor 000000 constant entry external dcl 8-144 gtss_run_subsystem_$restor_perm 000000 constant entry external dcl 8-145 gtss_set_slave_ 000000 constant entry external dcl 8-146 gtss_set_slave_$load_bar 000000 constant entry external dcl 8-147 gtss_update_safe_store_ 000000 constant entry external dcl 8-148 gtss_verify_access_ 000000 constant entry external dcl 8-149 gtss_verify_access_$check_forced_access 000000 constant entry external dcl 8-150 gtss_write_starCFP_ 000000 constant entry external dcl 8-151 i automatic fixed bin(17,0) dcl 772 illegal_modifier_sct_index internal static fixed bin(17,0) initial dcl 3-27 illegal_opcode_sct_index internal static fixed bin(17,0) initial dcl 3-27 illegal_procedure_sct_index internal static fixed bin(17,0) initial dcl 3-27 illegal_ring_order_sct_index internal static fixed bin(17,0) initial dcl 3-27 inward_return_sct_index internal static fixed bin(17,0) initial dcl 3-27 isot_fault_sct_index internal static fixed bin(17,0) initial dcl 3-27 k automatic fixed bin(71,0) dcl 933 lbx internal static fixed bin(17,0) initial dcl 11-42 length builtin function dcl 941 linkage_error_sct_index internal static fixed bin(17,0) initial dcl 3-27 lockup_sct_index internal static fixed bin(17,0) initial dcl 3-27 lot_fault_sct_index internal static fixed bin(17,0) initial dcl 3-27 lpx internal static fixed bin(17,0) initial dcl 11-42 mme1_sct_index internal static fixed bin(17,0) initial dcl 3-27 mme2_sct_index internal static fixed bin(17,0) initial dcl 3-27 mme3_sct_index internal static fixed bin(17,0) initial dcl 3-27 mme4_sct_index internal static fixed bin(17,0) initial dcl 3-27 msf_manager_$adjust 000000 constant entry external dcl 944 multics_term internal static structure array level 1 packed unaligned dcl 780 neti_sct_index internal static fixed bin(17,0) initial dcl 3-27 no_execute_permission_sct_index internal static fixed bin(17,0) initial dcl 3-27 no_read_permission_sct_index internal static fixed bin(17,0) initial dcl 3-27 no_write_permission_sct_index internal static fixed bin(17,0) initial dcl 3-27 not_a_gate_sct_index internal static fixed bin(17,0) initial dcl 3-27 not_in_call_bracket_sct_index internal static fixed bin(17,0) initial dcl 3-27 not_in_execute_bracket_sct_index internal static fixed bin(17,0) initial dcl 3-27 not_in_read_bracket_sct_index internal static fixed bin(17,0) initial dcl 3-27 not_in_write_bracket_sct_index internal static fixed bin(17,0) initial dcl 3-27 one_word based bit(36) unaligned dcl 951 op_not_complete_sct_index internal static fixed bin(17,0) initial dcl 3-27 other_command_sct_index internal static fixed bin(17,0) initial dcl 3-27 other_illegal_proc_sct_index internal static fixed bin(17,0) initial dcl 3-27 out_of_bounds_sct_index internal static fixed bin(17,0) initial dcl 3-27 outward_call_sct_index internal static fixed bin(17,0) initial dcl 3-27 overflow_sct_index internal static fixed bin(17,0) initial dcl 3-27 ovrflo_sct_index internal static fixed bin(17,0) initial dcl 3-27 packed_pointer_fault_sct_index internal static fixed bin(17,0) initial dcl 3-27 page_fault_error_sct_index internal static fixed bin(17,0) initial dcl 3-27 parity_sct_index internal static fixed bin(17,0) initial dcl 3-27 pgt_sct_index internal static fixed bin(17,0) initial dcl 3-27 quit_sct_index internal static fixed bin(17,0) initial dcl 3-27 read_cmd internal static bit(6) initial unaligned dcl 9-5 record_quota_overflow_sct_index internal static fixed bin(17,0) initial dcl 3-27 ring_alarm_fault_sct_index internal static fixed bin(17,0) initial dcl 3-27 sbx internal static fixed bin(17,0) initial dcl 11-42 scu based structure level 1 dcl 11-56 scup automatic pointer dcl 11-54 scux based structure level 1 dcl 11-207 seg_fault_error_sct_index internal static fixed bin(17,0) initial dcl 3-27 shutdown_sct_index internal static fixed bin(17,0) initial dcl 3-27 simfault_000000_sct_index internal static fixed bin(17,0) initial dcl 3-27 size_sct_index internal static fixed bin(17,0) initial dcl 3-27 spx internal static fixed bin(17,0) initial dcl 11-42 startup_sct_index internal static fixed bin(17,0) initial dcl 3-27 status internal static fixed bin(24,0) dcl 334 storage_sct_index internal static fixed bin(17,0) initial dcl 3-27 store_sct_index internal static fixed bin(17,0) initial dcl 3-27 stringsize_sct_index internal static fixed bin(17,0) initial dcl 3-27 subsystem_name automatic char(4) unaligned dcl 966 susp_sct_index internal static fixed bin(17,0) initial dcl 3-27 system_message_sct_index internal static fixed bin(17,0) initial dcl 3-27 system_packed_pointer_sct_index internal static fixed bin(17,0) initial dcl 3-27 system_shutdown_scheduled_sct_index internal static fixed bin(17,0) initial dcl 3-27 term_sct_index internal static fixed bin(17,0) initial dcl 3-27 timer_runout_sct_index internal static fixed bin(17,0) initial dcl 3-27 trouble_sct_index internal static fixed bin(17,0) initial dcl 3-27 undefined_fault_sct_index internal static fixed bin(17,0) initial dcl 3-27 undefined_pointer_sct_index internal static fixed bin(17,0) initial dcl 3-27 underflow_sct_index internal static fixed bin(17,0) initial dcl 3-27 wkp_sct_index internal static fixed bin(17,0) initial dcl 3-27 zerodivide_sct_index internal static fixed bin(17,0) initial dcl 3-27 NAMES DECLARED BY EXPLICIT CONTEXT. abort 001647 constant label dcl 125 ref 109 clean_up 003105 constant entry internal dcl 245 ref 77 128 db 002034 constant entry external dcl 152 drun 002572 constant entry external dcl 208 dummy_label 004304 constant label dcl 393 set ref 394 fin_cleanup 004000 constant label dcl 329 set ref 248 fin_close 003466 constant label dcl 295 ref 276 gcos_tss 000775 constant entry external dcl 11 get_mem 002003 constant entry external dcl 141 gtss 000763 constant entry external dcl 11 init 002074 constant entry external dcl 162 initialize 004003 constant entry internal dcl 340 ref 106 163 mcfc 002125 constant entry external dcl 166 null_label 006747 constant entry internal dcl 725 ref 311 312 314 sct_fail 006416 constant label dcl 681 ref 689 set_terminal_type 006761 constant entry internal dcl 736 ref 490 start 001170 constant label dcl 71 ref 242 termination 001635 constant label dcl 121 ref 84 368 unset_drl_rtrn 001704 constant label dcl 131 set ref 369 370 371 372 373 NAMES DECLARED BY CONTEXT OR IMPLICATION. bit builtin function ref 468 470 479 482 766 766 codeptr builtin function ref 394 divide builtin function ref 426 454 fixed builtin function ref 190 468 468 468 470 470 470 479 479 479 482 482 482 485 485 487 487 766 766 string builtin function set ref 362 362 474* verify builtin function ref 187 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 10666 11374 7304 10676 Length 12500 7304 506 1070 1362 174 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME gtss 598 external procedure is an external procedure. on unit on line 77 64 on unit on unit on line 78 92 on unit on unit on line 86 64 on unit on unit on line 90 116 on unit on unit on line 116 64 on unit on unit on line 126 64 on unit clean_up 155 internal procedure enables or reverts conditions. on unit on line 248 64 on unit on unit on line 276 64 on unit initialize 263 internal procedure uses auto adjustable storage. null_label internal procedure shares stack frame of internal procedure clean_up. set_terminal_type internal procedure shares stack frame of internal procedure initialize. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 current_modes gtss 000154 db_bits gtss 000156 gtss_already_called gtss 000160 temp_segment_ptr gtss 000176 code clean_up 000177 i clean_up 000200 two_nulls null_label STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME clean_up 000100 fms_status clean_up gtss 000100 args_ptr gtss 000102 need_n gtss 000103 acct gtss 000113 AFT_INITIALIZED gtss 000114 al gtss 000124 ap gtss 000126 argl gtss 000130 arg_ptr gtss 000132 ascii_channel_id gtss 000133 bit_count gtss 000142 code gtss 000152 d gtss 000154 dc_ptr gtss 000156 djid gtss 000160 drun_cpu_limit gtss 000162 drun_job_id gtss 000163 error gtss 000200 i gtss 000201 installation_directory gtss 000253 l gtss 000254 drun_start_time gtss 000256 drun_term_req gtss 000257 execute_drun gtss 000260 m gtss 000262 me_ptr gtss 000264 nargs gtss 000265 old_modes gtss 000431 pd gtss 000503 person_id gtss 000511 proj gtss 000522 reattach gtss 000523 status gtss 000524 time gtss 000526 type gtss 000527 w gtss 000530 wd_name gtss 000540 y gtss 000541 z gtss initialize 000100 rs initialize 000103 mc_space initialize 000103 arg_space initialize 000104 dfsw initialize 000126 term_channel set_terminal_type 000130 term_charge_type set_terminal_type 000132 term_id_code set_terminal_type 000133 term_line_type set_terminal_type 000134 term_type set_terminal_type THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_e_as alloc_char_temp cat_realloc_chars call_ext_out_desc call_ext_out call_int_this call_int_other return_mac move_label_var make_label_var tra_ext_1 alloc_auto_adj mpfx2 signal_op enable_op shorten_stack ext_entry int_entry search_eis any_to_any_truncate_divide_fx3 op_empty_ clock_mac THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ cu_$arg_count cu_$arg_list_ptr cu_$arg_ptr decode_clock_value_ delete_$ptr expand_pathname_ gcos_debug_$initial get_pdir_ get_temp_segments_ get_wdir_ gtss_CFP_output_ gtss_aft_$initialize gtss_ascii_bcd_ gtss_bcd_ascii_ gtss_com_err_ gtss_derail_processor_ gtss_derail_processor_$set gtss_drl_defil_$subr gtss_drun_ gtss_dump_kin_$clean gtss_dump_kin_$fin gtss_dump_kin_$init gtss_fault_processor_ gtss_fix_tty_modes_ gtss_interp_prim_ gtss_ios_close_ gtss_ios_initialize_ gtss_mcfc_init_ gtss_set_db_$arg_ptr hcs_$fs_get_path_name hcs_$initiate_count hcs_$set_max_length_seg hcs_$status_minf ioa_ iox_$get_line iox_$modes iox_$put_chars msf_manager_$close msf_manager_$get_ptr msf_manager_$open release_temp_segments_ sct_manager_$get sct_manager_$set unique_chars_ user_info_ user_info_$homedir user_info_$process_type user_info_$terminal_data THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$arg_ignored error_table_$no_operation error_table_$noentry error_table_$not_attached gse_ext_$drm_rule gse_ext_$modes gse_ext_$umc_name gtss_SYstarstar_$FILE gtss_constants$version gtss_def_q_$FILE gtss_ext_$CFP_bits gtss_ext_$SYstarstar_file_no gtss_ext_$aem gtss_ext_$aft gtss_ext_$bad_drl_rtrn gtss_ext_$com_reg gtss_ext_$db gtss_ext_$deferred_catalogs_ptr gtss_ext_$dispose_of_drl gtss_ext_$drl_rtrn gtss_ext_$drun_jid gtss_ext_$fast_lib gtss_ext_$finished gtss_ext_$flags gtss_ext_$gdb_name gtss_ext_$get_line gtss_ext_$gtss_slave_area_seg gtss_ext_$hcs_work_area_ptr gtss_ext_$homedir gtss_ext_$last_k_was_out gtss_ext_$mcfc gtss_ext_$pdir gtss_ext_$popup_from_pi gtss_ext_$process_type gtss_ext_$put_chars gtss_ext_$restart_from_pi gtss_ext_$restart_seg_ptr gtss_ext_$sig_ptr gtss_ext_$stack_level_ gtss_ext_$statistics gtss_ext_$user_id gtss_ext_$work_area_ptr gtss_install_values_$fast_msf gtss_save_restore_data_$IO gtss_starCF_$FILE gtss_ust_ext_$ust iox_$user_output sys_info$max_seg_size LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 871 000734 877 000735 894 000737 898 000740 899 000747 901 000750 938 000751 939 000753 940 000754 943 000755 964 000757 11 000762 51 001005 52 001010 56 001062 60 001072 63 001076 64 001104 65 001106 69 001160 71 001170 72 001171 74 001176 77 001200 78 001222 79 001236 84 001310 86 001314 87 001330 89 001351 90 001352 91 001366 93 001371 96 001442 97 001447 98 001460 104 001512 106 001513 107 001524 109 001526 112 001544 113 001550 114 001556 116 001565 117 001606 120 001630 121 001635 123 001636 125 001647 126 001650 128 001671 129 001675 131 001704 132 001705 138 001764 139 001770 141 001777 148 002012 149 002016 150 002020 152 002033 157 002044 158 002053 159 002064 162 002073 163 002104 164 002115 166 002124 171 002135 172 002144 173 002151 175 002203 178 002212 179 002213 180 002221 181 002236 182 002240 183 002274 185 002303 186 002305 187 002306 190 002370 192 002405 193 002406 195 002417 197 002423 199 002462 200 002463 203 002524 204 002526 206 002562 208 002571 212 002602 213 002611 214 002614 216 002646 219 002655 220 002674 221 002676 222 002720 225 002727 232 003007 234 003047 238 003056 239 003062 240 003101 242 003103 245 003104 248 003112 250 003131 251 003142 254 003161 255 003170 256 003176 260 003211 265 003255 268 003260 269 003264 270 003276 272 003333 276 003336 277 003355 279 003370 280 003375 285 003413 295 003466 296 003467 297 003472 300 003473 301 003506 302 003522 303 003524 305 003526 306 003531 307 003554 311 003600 312 003607 313 003616 314 003626 315 003636 317 003641 321 003707 322 003745 323 003763 325 003765 327 003776 329 004000 330 004001 340 004002 578 004010 579 004014 344 004020 350 004024 351 004041 352 004043 353 004060 354 004062 355 004063 356 004067 357 004104 362 004107 364 004113 365 004114 368 004116 369 004123 370 004130 371 004150 372 004155 373 004162 376 004167 378 004177 381 004212 382 004227 383 004242 384 004246 389 004250 390 004252 391 004254 392 004271 393 004304 394 004305 395 004310 400 004342 401 004345 403 004375 405 004403 410 004444 411 004450 414 004511 418 004517 419 004523 426 004547 428 004561 430 004564 433 004630 435 004636 436 004640 437 004643 440 004705 442 004713 445 004717 446 004720 448 004724 449 004730 452 004733 453 004737 454 004765 455 004777 456 005005 457 005007 458 005011 459 005013 460 005015 461 005017 462 005020 465 005026 468 005032 470 005047 473 005062 474 005065 475 005070 478 005100 479 005127 481 005147 482 005151 485 005167 487 005172 490 005206 495 005225 496 005247 497 005272 498 005302 510 005311 513 005315 514 005351 515 005354 517 005404 519 005412 520 005433 522 005434 525 005454 526 005457 527 005462 528 005502 529 005503 530 005510 531 005515 535 005537 539 005606 540 005612 541 005642 545 005650 546 005653 547 005656 548 005660 551 005662 552 005664 555 005667 558 005672 561 005674 562 005706 564 005730 565 005736 566 005741 568 005772 572 006000 575 006006 581 006012 582 006014 583 006017 584 006021 585 006023 586 006025 588 006027 598 006045 599 006047 601 006104 603 006112 608 006116 609 006122 610 006125 611 006130 613 006133 614 006137 616 006143 617 006147 618 006154 619 006156 621 006160 622 006165 623 006170 630 006176 632 006202 633 006205 635 006210 636 006217 638 006225 639 006232 640 006237 641 006241 643 006243 645 006250 646 006254 647 006257 649 006262 650 006271 652 006277 653 006304 654 006311 655 006313 657 006315 658 006322 666 006330 667 006334 668 006337 669 006342 671 006345 672 006353 674 006361 675 006366 676 006373 679 006375 680 006413 681 006416 682 006417 683 006450 688 006456 689 006473 691 006476 692 006531 693 006534 694 006535 696 006544 697 006546 699 006575 705 006603 708 006616 710 006660 711 006665 712 006673 715 006676 716 006702 718 006733 722 006741 725 006747 729 006751 730 006760 736 006761 743 006763 757 007013 758 007017 759 007024 760 007030 761 007031 766 007036 770 007071 ----------------------------------------------------------- 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