COMPILATION LISTING OF SEGMENT net_info_table_ Compiled by: Multics PL/I Compiler, Release 27d, of October 11, 1982 Compiled at: Honeywell LISD Phoenix, System M Compiled on: 11/12/82 1156.0 mst Fri Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* *********************************************************** */ 6 /*****************************************************************************/ 7 /* */ 8 /* This is currently just an internal interface used by the L6 tran */ 9 /* software. It will be the real thing in the future. */ 10 /* */ 11 /*****************************************************************************/ 12 13 /* format: style3,linecom,ifthenstmt,indthenelse,^indnoniterdo,indnoniterend,initcol3,dclind5,idind32 */ 14 15 net_info_table_: 16 proc (); 17 return; 18 19 /* Parameters */ 20 21 dcl P_code fixed bin (35) parameter; 22 dcl P_function_name char (*) parameter; 23 dcl P_host_address char (*) parameter; 24 dcl P_host_name char (*) parameter; 25 dcl P_nasp_name char (*) parameter; 26 dcl P_net_name char (*) parameter; 27 28 /* Automatic */ 29 30 dcl host_name char (32); 31 dcl function_name char (32); 32 dcl net_name char (32); 33 34 /* External Constants */ 35 36 dcl error_table_$resource_type_unknown 37 fixed bin (35) ext static; 38 39 get_host_address: 40 entry (P_host_name, P_net_name, P_host_address, P_code); 41 42 host_name = P_host_name; 43 net_name = P_net_name; 44 45 P_host_address = host_name; /* The name is the address for now. */ 46 P_code = 0; 47 48 return; 49 50 get_nasp_name: 51 entry (P_function_name, P_nasp_name, P_code); 52 53 function_name = P_function_name; 54 55 if function_name ^= "l6_ftf" 56 then do; 57 P_nasp_name = ""; 58 P_code = error_table_$resource_type_unknown; 59 end; 60 61 else do; 62 P_nasp_name = "l6_tran_"; 63 P_code = 0; 64 end; 65 66 return; 67 68 end net_info_table_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/12/82 0953.9 net_info_table_.pl1 >spec>on>11/12/82>net_info_table_.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. P_code parameter fixed bin(35,0) dcl 21 set ref 39 46* 50 58* 63* P_function_name parameter char unaligned dcl 22 ref 50 53 P_host_address parameter char unaligned dcl 23 set ref 39 45* P_host_name parameter char unaligned dcl 24 ref 39 42 P_nasp_name parameter char unaligned dcl 25 set ref 50 57* 62* P_net_name parameter char unaligned dcl 26 ref 39 43 error_table_$resource_type_unknown 000010 external static fixed bin(35,0) dcl 36 ref 58 function_name 000110 automatic char(32) unaligned dcl 31 set ref 53* 55 host_name 000100 automatic char(32) unaligned dcl 30 set ref 42* 45 net_name 000120 automatic char(32) unaligned dcl 32 set ref 43* NAMES DECLARED BY EXPLICIT CONTEXT. get_host_address 000022 constant entry external dcl 39 get_nasp_name 000100 constant entry external dcl 50 net_info_table_ 000007 constant entry external dcl 15 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 236 250 155 246 Length 416 155 12 132 61 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME net_info_table_ 93 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME net_info_table_ 000100 host_name net_info_table_ 000110 function_name net_info_table_ 000120 net_name net_info_table_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. return ext_entry ext_entry_desc NO EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$resource_type_unknown LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 15 000006 17 000014 39 000015 42 000052 43 000060 45 000065 46 000072 48 000073 50 000074 53 000123 55 000131 57 000135 58 000142 59 000145 62 000146 63 000153 66 000154 ----------------------------------------------------------- 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