COMPILATION LISTING OF SEGMENT labl1 Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 09/18/84 1217.5 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 labl1: proc; 12 13 /* Write labels from "projfile" */ 14 15 dcl (hp, pp) ptr, /* pointers */ 16 (path, dn) char (168) aligned, /* file system names */ 17 en char (32) aligned, /* .. */ 18 wkp ptr, /* pointer to readin buffer (dn) */ 19 nc fixed bin, /* number of chars read in */ 20 (i, np, ec) fixed; /* counters */ 21 22 dcl com_err_ entry options (variable), 23 expand_path_ entry (ptr, fixed bin, ptr, ptr, fixed bin), 24 hcs_$initiate entry (char (*) aligned, char (*) aligned, char (*) aligned, 25 fixed bin (1), fixed bin (2), ptr, fixed bin), 26 hcs_$terminate_noname entry (ptr, fixed bin), 27 ioa_ entry options (variable), 28 ios_$read_ptr entry (ptr, fixed bin, fixed bin); 29 30 dcl (addr, null, substr) builtin; 31 32 33 dcl x1 char (50) int static aligned init /* format statements */ 34 (" xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"), 35 x2 char (20) int static aligned init 36 (" x ^32ax"); 37 38 /* - - - - */ 39 40 wkp = addr (dn); /* get ptr to buffer */ 41 path = "projfile"; /* Hunt up project file */ 42 call expand_path_ (addr (path), 8, addr (dn), addr (en), ec); 43 if ec ^= 0 then do; 44 err: call com_err_ (ec, "labl1", path); 45 return; 46 end; 47 call hcs_$initiate (dn, en, "", 0, 1, pp, ec); /* Get project file. */ 48 if pp = null then go to err; 49 50 test: call ioa_ (x1); /* Write out test box. */ 51 call ioa_ (x2, ""); 52 call ioa_ (x2, "Multics billing labels."); 53 call ioa_ (x2, ""); 54 call ioa_ (x2, "This box should be centered."); 55 call ioa_ (x2, "Type cr to go, x to repeat"); 56 call ioa_ (x1); 57 call ioa_ (""); 58 call ios_$read_ptr (wkp, 12, nc); /* Read his answer. */ 59 if nc > 1 then go to test; /* If he typed anything, repeat */ 60 61 np = pp -> projfile.nproj; /* Ready to go. */ 62 63 do i = 1 to np; /* Loop for all projects */ 64 call ioa_ (""); /* Drop down one line */ 65 call ioa_ ("^-^a", projfile.projfiletab.sup (i)); /* Supervisor. */ 66 call ioa_ (""); 67 call ioa_ ("^-^a", projfile.projfiletab.sup_addr (i)); /* Address. */ 68 call ioa_ ("^/"); 69 call ioa_ ("^-Supervisor, ^a", projfile.projfiletab.id (i)); /* Group. */ 70 call ioa_ ("^/"); 71 end; 72 call hcs_$terminate_noname (pp, ec); 73 1 1 /* BEGIN INCLUDE FILE .. projfile.incl.pl1 */ 1 2 /* Modified by T. Casey April 1976 to change disk_infs (obsolete) to dir_disk_use */ 1 3 /* Modified 1984-07-09 BIM for dir_disk_quota, version */ 1 4 /* Modified 1984-09-14 BIM for reasonable array size */ 1 5 1 6 dcl 1 projfile based (pp) aligned, /* Project history file */ 1 7 2 nproj fixed bin (35), /* number of entries */ 1 8 2 version fixed bin, 1 9 2 projfilexx0 (6) bit (36) aligned, 1 10 2 projfiletab (3000), /* in seg limit */ 1 11 3 id char (12) unal, /* project ID */ 1 12 3 title char (52) unal, /* project title */ 1 13 3 inv char (32) unal, /* name of principal investigator */ 1 14 3 inv_addr char (32) unal, /* address */ 1 15 3 sup char (32) unal, /* name of supervisor */ 1 16 3 sup_addr char (32) unal, /* address */ 1 17 3 sup_phone char (16) unal, /* telephone */ 1 18 3 on fixed bin (71), /* date on */ 1 19 3 off fixed bin (71), /* date off */ 1 20 3 disk_psec fixed bin (71), /* project disk page-seconds */ 1 21 3 disk_quota fixed bin (35), /* project disk quota */ 1 22 3 dir_disk_quota fixed bin (35), /* project dir disk quota */ 1 23 3 disk_use fixed bin (35), /* total segment pages used */ 1 24 3 dir_disk_use fixed bin (35), /* total directory pages used */ 1 25 3 misc_charges float bin, /* manuals, etc */ 1 26 3 n_misc fixed bin, /* number of entries */ 1 27 3 processed fixed bin, /* temp for usage-report */ 1 28 3 pad bit (36) aligned; /* out to even number of words */ 1 29 1 30 dcl loph int static fixed bin (17) options (constant) init (8), /* lth of projfile header */ 1 31 lope int static fixed bin (17) options (constant) init (66); /* lth of projflile entry */ 1 32 1 33 dcl PROJFILE_VERSION fixed bin init (3) int static options (constant); 1 34 1 35 /* END INCLUDE FILE ... projfile.incl.pl1 */ 74 75 76 77 end; 78 SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 09/18/84 0757.0 labl1.pl1 >special_ldd>online>09/18/84>labl1.pl1 74 1 09/18/84 1000.6 projfile.incl.pl1 >special_ldd>online>09/18/84>projfile.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. addr builtin function dcl 30 ref 40 42 42 42 42 42 42 com_err_ 000032 constant entry external dcl 22 ref 44 dn 000154 automatic char(168) dcl 15 set ref 40 42 42 47* ec 000243 automatic fixed bin(17,0) dcl 15 set ref 42* 43 44* 47* 72* en 000226 automatic char(32) dcl 15 set ref 42 42 47* expand_path_ 000034 constant entry external dcl 22 ref 42 hcs_$initiate 000036 constant entry external dcl 22 ref 47 hcs_$terminate_noname 000040 constant entry external dcl 22 ref 72 i 000241 automatic fixed bin(17,0) dcl 15 set ref 63* 65 67 69* id 10 based char(12) array level 3 packed unaligned dcl 1-6 set ref 69* ioa_ 000042 constant entry external dcl 22 ref 50 51 52 53 54 55 56 57 64 65 66 67 68 69 70 ios_$read_ptr 000044 constant entry external dcl 22 ref 58 nc 000240 automatic fixed bin(17,0) dcl 15 set ref 58* 59 np 000242 automatic fixed bin(17,0) dcl 15 set ref 61* 63 nproj based fixed bin(35,0) level 2 dcl 1-6 ref 61 null builtin function dcl 30 ref 48 path 000102 automatic char(168) dcl 15 set ref 41* 42 42 44* pp 000100 automatic pointer dcl 15 set ref 47* 48 61 65 67 69 72* projfile based structure level 1 dcl 1-6 projfiletab 10 based structure array level 2 dcl 1-6 sup 50 based char(32) array level 3 packed unaligned dcl 1-6 set ref 65* sup_addr 60 based char(32) array level 3 packed unaligned dcl 1-6 set ref 67* wkp 000236 automatic pointer dcl 15 set ref 40* 58* x1 000010 internal static char(50) initial dcl 33 set ref 50* 56* x2 000025 internal static char(20) initial dcl 33 set ref 51* 52* 53* 54* 55* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. PROJFILE_VERSION internal static fixed bin(17,0) initial dcl 1-33 hp automatic pointer dcl 15 lope internal static fixed bin(17,0) initial dcl 1-30 loph internal static fixed bin(17,0) initial dcl 1-30 substr builtin function dcl 30 NAMES DECLARED BY EXPLICIT CONTEXT. err 000125 constant label dcl 44 ref 48 labl1 000063 constant entry external dcl 11 test 000221 constant label dcl 50 set ref 59 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 672 740 574 702 Length 1144 574 46 167 75 22 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME labl1 230 external procedure is an external procedure. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 x1 labl1 000025 x2 labl1 STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME labl1 000100 pp labl1 000102 path labl1 000154 dn labl1 000226 en labl1 000236 wkp labl1 000240 nc labl1 000241 i labl1 000242 np labl1 000243 ec labl1 THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ expand_path_ hcs_$initiate hcs_$terminate_noname ioa_ ios_$read_ptr NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 11 000062 40 000070 41 000072 42 000075 43 000123 44 000125 45 000150 47 000151 48 000215 50 000221 51 000232 52 000247 53 000272 54 000307 55 000327 56 000347 57 000360 58 000371 59 000406 61 000411 63 000413 64 000421 65 000432 66 000455 67 000466 68 000507 69 000522 70 000545 71 000560 72 000562 77 000573 ----------------------------------------------------------- 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