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 ^L
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