COMPILATION LISTING OF SEGMENT tc_mask Compiled by: Multics PL/I Compiler, Release 29, of July 28, 1986 Compiled at: Honeywell Bull, Phx. Az., Sys-M Compiled on: 08/13/87 1329.7 mst Thu Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Bull Inc., 1987 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1981 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 /* IPS mask utility for Terminal Control */ 14 /* format: style2,linecom,^indnoniterdo,indcomtxt,^inditerdo,dclind5,idind25 */ 15 tc_mask: 16 procedure; 17 return; 18 19 /* June 1981, Benson I. Margulies */ 20 21 declare video_data_$shut_mask bit (36) aligned external static; 22 declare video_data_$open_mask bit (36) aligned external static; 23 declare video_data_$only_quit_mask 24 bit (36) aligned external static; 25 declare video_data_$alrm_only_mask 26 bit (36) aligned external static; 27 28 declare Old_mask bit (36) aligned parameter; 29 declare old_mask bit (36) aligned; 30 31 declare hcs_$set_ips_mask entry (bit (36) aligned, bit (36) aligned); 32 declare hcs_$reset_ips_mask entry (bit (36) aligned, bit (36) aligned); 33 34 35 all: 36 entry returns (bit (36) aligned); 37 38 call set_mask (video_data_$shut_mask, old_mask); 39 return (old_mask); 40 41 restore: 42 entry (Old_mask); 43 44 call reset_mask (Old_mask, ""b); 45 return; 46 47 close: 48 entry; 49 50 call swap_to (video_data_$shut_mask); 51 return; 52 53 open_all: 54 entry; 55 56 call swap_to (video_data_$open_mask); 57 return; 58 59 open_alrm: 60 entry; 61 call swap_to (video_data_$alrm_only_mask); 62 return; 63 64 65 open_quit: 66 entry; 67 68 call swap_to (video_data_$only_quit_mask); 69 return; 70 71 set_mask: 72 procedure (new, old); 73 74 declare (new, old) bit (36) aligned; 75 76 call hcs_$set_ips_mask (new, old); 77 78 end set_mask; 79 80 reset_mask: 81 procedure (old, older); 82 83 declare (old, older) bit (36) aligned; 84 85 86 call hcs_$reset_ips_mask (old, older); 87 88 end reset_mask; 89 90 swap_to: 91 procedure (new); 92 declare new bit (36) aligned; 93 94 call hcs_$set_ips_mask (new, ""b); 95 end swap_to; 96 end tc_mask; 97 SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 08/13/87 1323.7 tc_mask.pl1 >special_ldd>install>MR12.1-1086>tc_mask.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. Old_mask parameter bit(36) dcl 28 set ref 41 44* hcs_$reset_ips_mask 000022 constant entry external dcl 32 ref 86 hcs_$set_ips_mask 000020 constant entry external dcl 31 ref 76 94 new parameter bit(36) dcl 92 in procedure "swap_to" set ref 90 94* new parameter bit(36) dcl 74 in procedure "set_mask" set ref 71 76* old parameter bit(36) dcl 74 in procedure "set_mask" set ref 71 76* old parameter bit(36) dcl 83 in procedure "reset_mask" set ref 80 86* old_mask 000100 automatic bit(36) dcl 29 set ref 38* 39 older parameter bit(36) dcl 83 set ref 80 86* video_data_$alrm_only_mask 000016 external static bit(36) dcl 25 set ref 61* video_data_$only_quit_mask 000014 external static bit(36) dcl 23 set ref 68* video_data_$open_mask 000012 external static bit(36) dcl 22 set ref 56* video_data_$shut_mask 000010 external static bit(36) dcl 21 set ref 38* 50* NAMES DECLARED BY EXPLICIT CONTEXT. all 000030 constant entry external dcl 35 close 000115 constant entry external dcl 47 open_all 000143 constant entry external dcl 53 open_alrm 000171 constant entry external dcl 59 open_quit 000217 constant entry external dcl 65 reset_mask 000261 constant entry internal dcl 80 ref 44 restore 000063 constant entry external dcl 41 set_mask 000244 constant entry internal dcl 71 ref 38 swap_to 000276 constant entry internal dcl 90 ref 50 56 61 68 tc_mask 000010 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 454 500 314 464 Length 664 314 24 147 140 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME tc_mask 114 external procedure is an external procedure. set_mask internal procedure shares stack frame of external procedure tc_mask. reset_mask internal procedure shares stack frame of external procedure tc_mask. swap_to internal procedure shares stack frame of external procedure tc_mask. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME tc_mask 000100 old_mask tc_mask THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out return_mac signal_op ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. hcs_$reset_ips_mask hcs_$set_ips_mask THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. video_data_$alrm_only_mask video_data_$only_quit_mask video_data_$open_mask video_data_$shut_mask LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 15 000007 17 000017 35 000025 38 000036 39 000047 41 000061 44 000072 45 000105 47 000114 50 000124 51 000133 53 000142 56 000152 57 000161 59 000170 61 000200 62 000207 65 000216 68 000226 69 000235 71 000244 76 000246 78 000260 80 000261 86 000263 88 000275 90 000276 94 000300 95 000313 ----------------------------------------------------------- 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