1 
 2 "BEGIN INCLUDE FILE fgbx.incl.alm
 3 
 4 "         Reconstructed by BSG 8/30/78 from a listing of Noel's;
 5 "         Apparently, the version of 10/07/76 got lost.
 6 "         Modified 8/79 by R.J.C. Kissel to add 32 words for FNP blast message.
 7 "         Modified 7/82 BIM -- 8 words for sentinel, and sentinel
 8 "         macro.
 9 
10 " NOTE: THIS INCLUDE FILE DESCRIBES THE FLAGBOX WITHIN THE BOS TOEHOLD, WHICH
11 " HAS NO VALUE WHATSOEVER.  THE REAL MULTICS/BCE TOEHOLD FLAGBOX IS DESCRIBED
12 " BY THE FLAGBOX INCLUDE FILE.
13 
14 "
15 "         Structure fgbx
16 "
17           equ       fgbx_size,64
18 
19           equ       fgbx.flags_word,0
20           bool      fgbx.flags,400000             "DU
21 
22           equ       fgbx.slt_segno,1              "UPPER
23 
24           equ       fgbx.cpus,2                   "LEVEL 2
25 
26           equ       fgbx.ports_shift,28
27           equ       fgbx.ports_mask,000377
28           equ       fgbx.tags_shift,21
29           equ       fgbx.tags_mask,000007
30 
31           equ       fgbx.rtb,3                    "LEVEL 2
32 
33           bool      fgbx.ssenb,400000             "DU
34           bool      fgbx.call_bos,200000          "DU
35           bool      fgbx.shut,100000              "DU
36           bool      fgbx.mess,040000              "DU
37           bool      fgbx.alert,020000             "DU
38           equ       fgbx.bos_entry_shift,0
39           bool      fgbx.bos_entry_mask,000077
40 
41           equ       fgbx.sentinel,4               "DOUBLE
42           equ       fgbx.sst_sdw,12               "DOUBLE
43           equ       fgbx.hc_dbr,14                "DOUBLE
44           equ       fgbx.message,16               "DOUBLE
45           equ       fgbx.fnp_blast,32             "DOUBLE
46 
47           macro     flagbox_sentinel
48           aci       "Flagbox && Toehold Valid",32
49 &end
50 
51      "END INCLUDE FILE fgbx.incl.alm