structure_library_1_.cds 07/20/88 1305.6r w 07/19/88 1536.0 34389 /* *********************************************************** * * * Copyright, (C) Honeywell Bull Inc., 1987 * * * * Copyright, (C) Honeywell Information Systems Inc., 1983 * * * *********************************************************** */ /* HISTORY COMMENTS: 1) change(87-04-26,GDixon), approve(87-05-01,MCR7741), audit(87-05-07,Parisek), install(87-08-04,MR12.1-1055): Upgraded for change to answer_table.incl.pl1. END HISTORY COMMENTS */ /* format: off */ structure_library_1_: procedure (); /* First come all the structures */ %include aim_template; call add ("aim_template", addr (p -> aim_template)); begin; %include answer_table; %include user_table_header; dcl 1 answer_table aligned like anstbl based; call add ("answer_table", addr (p -> answer_table)); end; %include apte; call add ("apte", addr (p -> apte)); %include area_structures; call add ("area_header", addr (p -> area_header)); call add ("extend_block", addr (p -> extend_block)); dcl 1 area_block aligned like block based; /* better name */ call add ("area_block", addr (p -> area_block)); %include ast_lock_meters; call add ("ast_lock_meters", addr (p -> ast_lock_meters)); %include aste; call add ("aste", addr (p -> aste)); %include bos_dump; dcl 1 bos_dump aligned like dump based; /* better name */ call add ("bos_dump", addr (p -> bos_dump)); %include cdt; call add ("cdt", addr (p -> cdt)); %include author_dcl; /* Needed for cdt */ %include condition_info; call add ("condition_info", addr (p -> condition_info)); %include config_deck; config_n_cards, config_max_cards = 0; call add ("config_deck", addr (p -> config_deck)); call add ("config_card", addr (p -> config_card)); %include cmp; call add ("cme", addr (p -> cme)); call add ("mcme", addr (p -> mcme)); call add ("cma", addr (p -> cma)); %include dbm; call add ("dbm", addr (p -> dbm)); %include "dbr.adp"; call add ("adp_dbr", addr (p -> adp_dbr)); %include "dbr.l68"; call add ("l68_dbr", addr (p -> l68_dbr)); %include definition; call add ("definition", addr (p -> definition)); begin; /* to avoid name conflicts with the poorly named directory stuff */ %include dir_allocation_area; dcl 1 dir_allocation_area aligned like area based; call add ("dir_allocation_area", addr (p -> dir_allocation_area)); %include dir_acl; dcl 1 dir_acl_entry aligned like acl_entry based; dcl 1 dir_access_name aligned like access_name based; call add ("dir_acl_entry", addr (p -> dir_acl_entry)); call add ("dir_access_name", addr (p -> dir_access_name)); %include dir_entry; dcl 1 dir_entry aligned like entry based; call add ("dir_entry", addr (p -> dir_entry)); %include dir_header; dcl 1 dir_header aligned like dir based; call add ("dir_header", addr (p -> dir_header)); %include dir_ht; dcl 1 dir_hash_table aligned like hash_table based; call add ("dir_hash_table", addr (p -> dir_hash_table)); %include dir_link; /* Can't "like" to this one because of refers */ begin; dcl 1 dir_link aligned like link based; call add ("dir_link", addr (p -> dir_link)); end; %include dir_name; dcl 1 dir_name aligned like names based; call add ("dir_name", addr (p -> dir_name)); end; /* Followed by the include file containing the code to do the work */ dcl WHOAMI char (32) internal static options (constant) init ("structure_library_1_"); %include structure_library_code; end structure_library_1_;  structure_library_2_.cds 10/25/89 1303.3r w 10/25/89 1000.0 53802 /* *********************************************************** * * * Copyright, (C) Honeywell Information Systems Inc., 1983 * * * *********************************************************** */ /* format: off */ /* Modified December 1984 by Bonnie Braun to add io_page_tables. */ /* Modified December 1984 by Eric Swenson for event_channel_name. */ /* Modified December 1984 by Robert Coren to add hc_fast_lock and these notices. */ /* Modified Jan 21 1985 by B. Braun to delete reference to fgbx.incl.pl1 and add reference to flagbox.incl.pl1 */ /* HISTORY COMMENTS: 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), audit(86-10-20,Fawcett), install(86-11-03,MR12.0-1206): Modified ect_structures to support control point management. These changes were really made in February 1985 by G. Palter. 2) change(86-08-12,Kissel), approve(86-08-12,MCR7479), audit(86-10-20,Fawcett), install(86-11-03,MR12.0-1206): Recompiled due to ect_structure changes to support async event channels. END HISTORY COMMENTS */ structure_library_2_: procedure (); /* First come all the structures */ dcl sp pointer; /* something seems to need this */ begin; /* There is a conflict with "lock" */ %include dir_lock_seg_; %include hc_lock; call add ("dir_lock_seg", addr (p -> dir_lock_seg)); call add ("dir_lock_seg_header", addr (p -> dir_lock_seg_header)); call add ("dir_lock", addr (p -> dir_lock)); dcl 1 fast_lock aligned like lock based; call add ("fast_lock", addr (p -> fast_lock)); end; %include disk_table; dcl 1 disk_table aligned like dt based; call add ("disk_table", addr (p -> disk_table)); dcl 1 disk_table_entry aligned like dte based; call add ("disk_table_entry", addr (p -> disk_table_entry)); dcl 1 disk_table_lv_entry aligned like lve based; call add ("disk_table_lv_entry", addr (p -> disk_table_lv_entry)); %include dn355_data; call add ("datanet_info", addr (p -> datanet_info)); call add ("fnp_info", addr (p -> fnp_info)); %include dn355_mailbox; call add ("datanet_mbx", addr (p -> datanet_mbx)); dcl 1 short_fnp_sub_mbx aligned like sub_mbx based; call add ("short_fnp_sub_mbx", addr (p -> short_fnp_sub_mbx)); call add ("fnp_sub_mbx", addr (p -> fnp_sub_mbx)); call add ("input_sub_mbx", addr (p -> input_sub_mbx)); %include dskdcl; call add ("disk_data", addr (p -> disk_data)); call add ("disktab", addr (p -> disktab)); call add ("disk_channel_table", addr (p -> disk_channel_table)); call add ("quentry", addr (p -> quentry)); call add ("chantab", addr (p -> chantab)); call add ("devtab", addr (p -> devtab)); %include ect_structures; call add ("ect_header", addr (p -> ect_header)); ecit_lth = 0; /* avoids WARNING 307 */ call add ("ecit", addr (p -> ecit)); call add ("wait_channel", addr (p -> wait_channel)); call add ("call_channel", addr (p -> call_channel)); call add ("event_message", addr (p -> event_message)); call add ("itt_message", addr (p -> itt_message)); call add ("event_message_data", addr (p -> event_message_data)); call add ("waiting_control_point", addr (p -> waiting_control_point)); %include event_channel_name; call add ("event_channel_name", addr (p -> event_channel_name)); %include event_call_info; call add ("event_call_info", addr (p -> event_call_info)); %include event_wait_info; call add ("event_wait_info", addr (p -> event_wait_info)); %include fault_vector; dcl 1 fault_vector aligned like fv based; call add ("fault_vector", addr (p -> fault_vector)); %include flagbox; call add ("fgbx", addr (p -> fgbx)); %include fs_vol_label; dcl 1 disk_label aligned like label based; call add ("disk_label", addr (p -> disk_label)); %include hc_fast_lock; call add ("hc_fast_lock", addr (p -> hc_fast_lock)); begin; /* to avoid conflict with lock_ptr in hc_fast_lock */ %include io_page_tables; declare 1 io_page_table_256 (0:255) aligned like io_ptw based; declare 1 io_page_table_64 (0:63) aligned like io_ptw based; call add ("io_page_tables", addr (p -> io_page_tables)); call add ("io_page_table_256", addr (p -> io_page_table_256)); call add ("io_page_table_64", addr (p -> io_page_table_64)); call add ("io_ptw", addr (p -> io_ptw)); end; %include io_special_status; call add ("io_special_status", addr (p -> io_special_status)); %include io_status; dcl 1 io_status aligned like status based; call add ("io_status", addr (p -> io_status)); %include io_status_entry; call add ("io_status_entry", addr (p -> io_status_entry)); call add ("io_status_word", addr (p -> io_status_word)); %include io_syserr_msg; call add ("io_msg", addr (p -> io_msg)); %include iocbx; call add ("iocb", addr (p -> iocb)); begin; /* There is a conflict with "dte" */ %include ioi_data; call addx ("ioi_data", addr (p -> ioi_data)); call addx ("gte", addr (p -> gte)); /* addx because of conflict with */ call addx ("cte", addr (p -> cte)); /* add in ioi_data! */ call addx ("dte", addr (p -> dte)); end; %include iom_data; call add ("iom_data", addr (p -> iom_data)); dcl 1 iom_per_device aligned like per_device based; call add ("iom_per_device", addr (p -> iom_per_device)); dcl 1 iom_per_iom aligned like per_iom based; call add ("iom_per_iom", addr (p -> iom_per_iom)); call add ("iom_mailbox_seg", addr (p -> iom_mailbox_seg)); call add ("iom_mailbox", addr (p -> iom_mailbox)); call add ("channel_mailbox", addr (p -> channel_mailbox)); /* Followed by the include file containing the code to do the work */ dcl WHOAMI char (32) internal static options (constant) init ("structure_library_2_"); %include structure_library_code; end structure_library_2_;  structure_library_3_.cds 01/26/85 1315.5r w 01/22/85 1315.1 24453 /* *********************************************************** * * * Copyright, (C) Honeywell Information Systems Inc., 1983 * * * *********************************************************** */ /* format: off */ structure_library_3_: procedure (); /* First come all the structures */ %include iom_dcw; dcl 1 iom_ddcw aligned like dcw based; call add ("iom_ddcw", addr (p -> iom_ddcw)); dcl 1 iom_tdcw aligned like tdcw based; call add ("iom_tdcw", addr (p -> iom_tdcw)); %include iom_lpw; dcl 1 iom_lpw aligned like lpw based; call add ("iom_lpw", addr (p -> iom_lpw)); dcl 1 iom_lpw_ext aligned like lpw_ext based; call add ("iom_lpw_ext", addr (p -> iom_lpw_ext)); %include iom_pcw; dcl 1 iom_pcw aligned like pcw based; call add ("iom_pcw", addr (p -> iom_pcw)); dcl 1 iom_idcw aligned like idcw based; call add ("iom_idcw", addr (p -> iom_idcw)); %include iom_scw; dcl 1 iom_scw aligned like scw based; call add ("iom_scw", addr (p -> iom_scw)); %include its; call add ("its", addr (p -> its)); call add ("its_unsigned", addr (p -> its_unsigned)); call add ("itp", addr (p -> itp)); call add ("itp_unsigned", addr (p -> itp_unsigned)); %include itt_entry; call add ("itt_entry", addr (p -> itt_entry)); %include kst; call add ("kst", addr (p -> kst)); call add ("kste", addr (p -> kste)); %include lct; call add ("lct", addr (p -> lct)); call add ("lcte", addr (p -> lcte)); begin; %include linkdcl; dcl 1 link_pair aligned like link based; call add ("link_pair", addr (p -> link_pair)); dcl 1 link_exp_word aligned like exp_word based; call add ("link_exp_word", addr (p -> link_exp_word)); dcl 1 link_type_pair aligned like type_pair based; call add ("link_type_pair", addr (p -> link_type_pair)); dcl 1 linkage_header aligned like header based; call add ("linkage_header", addr (p -> linkage_header)); call add ("virgin_linkage_header", addr (p -> virgin_linkage_header)); dcl 1 link_trap_word aligned like trap_word based; call add ("link_trap_word", addr (p -> link_trap_word)); end; %include lot; call add ("lot", addr (p -> lot)); call add ("isot", addr (p -> isot)); call add ("isot1", addr (p -> isot1)); %include lvt; call add ("lvt", addr (p -> lvt)); call add ("lvte", addr (p -> lvte)); /* Followed by the include file containing the code to do the work */ dcl WHOAMI char (32) internal static options (constant) init ("structure_library_3_"); %include structure_library_code; end structure_library_3_;  structure_library_4_.cds 10/11/89 1510.6r w 10/11/89 1236.9 36603 /* *********************************************************** * * * Copyright, (C) Honeywell Bull Inc., 1988 * * * * Copyright, (C) Honeywell Information Systems Inc., 1983 * * * *********************************************************** */ /* HISTORY COMMENTS: 1) change(88-06-03,Parisek), approve(88-06-10,MCR7920), audit(88-06-23,Hunter), install(87-07-05,MR12.2-1053): - Change reference of pitmsg.incl.pl1 to pit.incl.pl1 as the pitmsg.incl.pl1 name was removed from pit.incl.pl1 in MR12.1. - Declare builtins. END HISTORY COMMENTS */ /* format: off */ structure_library_4_: procedure (); /* First come all the structures */ %include mc; call add ("mc", addr (p -> mc)); call add ("scu", addr (p -> scu)); call add ("scux", addr (p -> scux)); %include mc_trace_buf; call add ("mc_trace_buf", addr (p -> mc_trace_buf)); %include mcs_modes_change_list; dcl 1 modes_change_list aligned like mcl based; call add ("modes_change_list", addr (p -> modes_change_list)); dcl 1 modes_change_list_entry aligned like mcle based; call add ("modes_change_list_entry", addr (p -> modes_change_list_entry)); %include mcs_trace_data; dcl 1 mcs_trace_array aligned like trace_array based; call add ("mcs_trace_array", addr (p -> mcs_trace_array)); dcl 1 mcs_trace_entry aligned like trace_entry based; call add ("mcs_trace_entry", addr (p -> mcs_trace_entry)); %include mdcs; call add ("mdcs", addr (p -> mdcs)); dcl 1 mdcs_mdir aligned like mdirent based; call add ("mdcs_mdir", addr (p -> mdcs_mdir)); dcl 1 mdcs_account aligned like acctent based; call add ("mdcs_account", addr (p -> mdcs_account)); dcl 1 mdcs_path aligned like pathent based; call add ("mdcs_path", addr (p -> mdcs_path)); %include mstr; call add ("mst_label", addr (p -> mst_label)); call add ("mstr_header", addr (p -> mstr_header)); call add ("mstr_trailer", addr (p -> mstr_trailer)); dcl 1 mst_volume_id aligned like volume_identifier based; call add ("mst_volume_id", addr (p -> mst_volume_id)); %include oc_data; call add ("oc_data", addr (p -> oc_data)); %include oc_log_meters; dcl 1 oc_log_meters aligned like olm based; call add ("oc_log_meters", addr (p -> oc_log_meters)); %include pathname_am; dcl 1 pathname_am aligned like pam based; call add ("pathname_am", addr (p -> pathname_am)); %include pcb; call add ("pcb", addr (p -> pcb)); begin; %include pit; %include user_attributes; call add ("pit", addr (p -> pit)); end; dcl ptp pointer; %include "ptw.adp"; call add ("adp_core_ptw", addr (p -> adp_core_ptw)); call add ("adp_ptw", addr (p -> adp_ptw)); %include "ptw.l68"; call add ("l68_core_ptw", addr (p -> l68_core_ptw)); call add ("l68_ptw", addr (p -> l68_ptw)); %include pv_holdt; call add ("pv_holdt", addr (p -> pv_holdt)); %include pvt; call add ("pvt", addr (p -> pvt)); %include pvte; call add ("pvte", addr (p -> pvte)); call add ("pvt_array", addr (p -> pvt_array)); %include rcp_com_seg; call add ("rcs", addr (p -> rcs)); call add ("rcse", addr (p -> rcse)); %include rcp_data; call add ("rcpd", addr (p -> rcpd)); dcl 1 rcp_dtype aligned like dtype based; call add ("rcp_dtype", addr (p -> rcp_dtype)); dcl 1 rcp_device aligned like device based; call add ("rcp_device", addr (p -> rcp_device)); dcl 1 rcp_volume aligned like volume based; call add ("rcp_volume", addr (p -> rcp_volume)); %include rnt; call add ("rnt", addr (p -> rnt)); call add ("rnte", addr (p -> rnte)); /* Followed by the include file containing the code to do the work */ dcl WHOAMI char (32) internal static options (constant) init ("structure_library_4_"); dcl (divide, hbound, pointer) builtin; %include structure_library_code; end structure_library_4_;  structure_library_5_.cds 07/20/88 1305.6r w 07/19/88 1534.7 39654 /* *********************************************************** * * * Copyright, (C) Honeywell Information Systems Inc., 1983 * * * *********************************************************** */ /* format: off */ /* Modified December 1984 by Bonnie Braun to add unpaged_page_tables. */ /* Modified December 1984 by Robert Coren to put tty_buf in a begin block, and to add these notices. */ structure_library_5_: procedure (); /* First come all the structures */ dcl sdwp pointer; %include "sdw.adp"; call add ("adp_sdw", addr (p -> adp_sdw)); %include "sdw.l68"; call add ("l68_sdw", addr (p -> l68_sdw)); %include sdw_info; call add ("sdw_info", addr (p -> sdw_info)); %include segdamage_msg; call add ("segdamage", addr (segdamage)); /* NOT BASED */ %include signaller_stack; call add ("signaller_stack", addr (p -> signaller_stack)); begin; %include slt; call add ("slt", addr (p -> slt)); dcl 1 slt_name_seg aligned like name_seg based; call add ("slt_name_seg", addr (p -> slt_name_seg)); dcl 1 slt_segname aligned like segnam based; call add ("slt_segname", addr (p -> slt_segname)); dcl 1 slt_path aligned like path based; call add ("slt_path", addr (p -> slt_path)); dcl 1 slt_acls aligned like acls based; call add ("slt_acls", addr (p -> slt_acls)); end; %include slte; call add ("slte", addr (p -> slte)); %include sst; call add ("sst", addr (p -> sst)); %include sstnt; call add ("sstnt", addr (p -> sstnt)); %include stack_0_data; dcl 1 stack_0_data aligned like sdt based; call add ("stack_0_data", addr (p -> stack_0_data)); call add ("sdte", addr (p -> sdte)); %include stack_frame; call add ("stack_frame", addr (p -> stack_frame)); %include stack_header; call add ("stack_header", addr (p -> stack_header)); %include str; dcl 1 segment_trailer aligned like str based; call add ("segment_trailer", addr (p -> segment_trailer)); %include syserr_data; dcl 1 syserr_data aligned like sd based; call add ("syserr_data", addr (p -> syserr_data)); dcl 1 wired_syserr_log aligned like wlog based; call add ("wired_syserr_log", addr (p -> wired_syserr_log)); dcl 1 wired_syserr_message aligned like wmess based; call add ("wired_syserr_message", addr (p -> wired_syserr_message)); %include syserr_log_dcls; call add ("syserr_log_data", addr (p -> syserr_log_data)); %include tcb; call add ("tcb", addr (p -> tcb)); begin; %include tcm; %include hc_lock; dcl 1 tc_data aligned like tcm based; call add ("tc_data", addr (p -> tc_data)); call add ("tcm", addr (p -> tcm)); call add ("wct_entry", addr (p -> wct_entry)); end; begin; /* because tty_buf includes hc_fast_lock */ %include tty_buf; call add ("tty_buf", addr (p -> tty_buf)); end; begin; /* because blockp is declared already somewhere else */ %include tty_buffer_block; dcl 1 tty_buffer aligned like buffer based; call add ("tty_buffer", addr (p -> tty_buffer)); dcl 1 free_tty_buffer aligned like free_block based; call add ("free_tty_buffer", addr (p -> free_tty_buffer)); end; %include tty_tables; call add ("tty_tables_hdr", addr (p -> tty_tables_hdr)); %include unpaged_page_tables; dcl 1 iupt aligned like upt based; dcl 1 iupte aligned like upt_entry based; call add ("upt", addr (p -> upt)); call add ("upt_entry", addr (p -> upt_entry)); call add ("iupte", addr (p -> iupte)); call add ("iupt", addr (p -> iupt)); %include vol_map; call add ("vol_map", addr (p -> vol_map)); %include volume_registration; call add ("volume_registration", addr (p -> volume_registration)); %include vtoc_buffer; call add ("vtoc_buffer", addr (p -> vtoc_buffer)); %include vtoc_header; call add ("vtoc_header", addr (p -> vtoc_header)); %include vtoce; call add ("vtoce", addr (p -> vtoce)); %include wire_proc_data; dcl 1 wire_proc_data aligned like wpd based; call add ("wire_proc_data", addr (p -> wire_proc_data)); %include wtcb; call add ("wtcb", addr (p -> wtcb)); /* Followed by the include file containing the code to do the work */ dcl WHOAMI char (32) internal static options (constant) init ("structure_library_5_"); %include structure_library_code; end structure_library_5_;  structure_library_6_.cds 08/04/87 1505.2rew 08/04/87 1222.0 24138 /* *********************************************************** * * * Copyright, (C) Honeywell Bull Inc., 1987 * * * * Copyright, (C) Honeywell Information Systems Inc., 1983 * * * *********************************************************** */ /* HISTORY COMMENTS: 1) change(87-06-10,GDixon), approve(87-07-10,MCR7681), audit(87-07-10,Parisek), install(87-08-04,MR12.1-1055): Added cpm_ data. END HISTORY COMMENTS */ /* format: off */ /* Created: March 1985 by G. Palter to hold new structure that would not fit into the other structure_library_N_ modules */ structure_library_6_: procedure (); /* First come all the structures */ begin; /* to avoid possible conflicts */ %include cpm_control_point_data; %include cpm_ctrl_pt_meters; %include process_usage; call add ("control_point_data", addr (p -> control_point_data)); end; %include mail_format; text_length = 0; /* avoid WARNING 307 */ call add ("mail_format", addr (p -> mail_format)); %include mseg_message; call add ("message_block_header", addr (p -> message_block_header)); call add ("message_descriptor", addr (p -> message_descriptor)); call add ("first_message_block", addr (p -> first_message_block)); call add ("other_message_block", addr (p -> other_message_block)); %include mseg_message_info; call add ("mseg_message_info", addr (p -> mseg_message_info)); %include mseg_return_args; call add ("mseg_return_args", addr (p -> mseg_return_args)); %include mseg_segment; %include mseg_wakeup_state; call add ("mseg_segment", addr (p -> mseg_segment)); %include "_ssu_sci"; call add ("sci", addr (p -> sci)); begin; /* both tty_ and tc_io_ use the same name for the attach data */ %include tc_io_attach_data_; dcl 1 tc_io_attach_data aligned like attach_data based; call add ("tc_io_attach_data", addr (p -> tc_io_attach_data)); end; begin; /* both tty_ and tc_io_ use the same name for the attach data */ %include tty_attach_data_; dcl 1 tty_attach_data aligned like attach_data based; call add ("tty_attach_data", addr (p -> tty_attach_data)); end; /* Followed by the include file containing the code to do the work */ dcl WHOAMI char (32) internal static options (constant) init ("structure_library_6_"); /* Builtins */ dcl (currentsize, divide, hbound, pointer) builtin; %include structure_library_code; end structure_library_6_; bull_copyright_notice.txt 08/30/05 1008.4r 08/30/05 1007.3 00020025 ----------------------------------------------------------- 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