1
2
3
4
5
6
7
8
9
10
11
12
13
14 flagbox_mgr: proc;
15
16
17
18 dcl addr builtin;
19 dcl string builtin;
20
21 set: entry (turnon, turnoff);
22
23 dcl turnon bit (36);
24 dcl turnoff bit (36);
25
26 fgbxp = addr (flagbox$);
27
28 string (fgbx.flags) = string (fgbx.flags) & ^turnoff;
29 string (fgbx.flags) = string (fgbx.flags) | turnon;
30 return;
31
32 get: entry (sws);
33
34 dcl sws bit (36);
35
36 fgbxp = addr (flagbox$);
37 sws = string (fgbx.flags);
38 return;
39
40 set_bce_command:
41 entry (bce_command);
42
43 dcl bce_command char (128);
44
45 fgbxp = addr (flagbox$);
46 fgbx.return_to_bce_command = bce_command;
47 return;
48
49 get_bce_command:
50 entry (bce_command);
51
52 fgbxp = addr (flagbox$);
53 bce_command = fgbx.return_to_bce_command;
54 return;
55 %page; %include flagbox;
56 end flagbox_mgr;