1 /* BEGIN INCLUDE FILE ... flagbox.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-02-26,Farley), approve(87-04-15,MCR7661),
 6      audit(87-04-21,Fawcett), install(87-04-28,MR12.1-1028):
 7      Added io_reconfig flag to inhibit BCE from attempting an emergency
 8      shutdown when the data in memory could be corrupted.
 9                                                    END HISTORY COMMENTS */
10 
11 
12 /* last modified 5/3/77 by Noel I. Morris         */
13 /* Modified 8/79 by R.J.C. Kissel to add FNP blast message. */
14 /* Modified 7/82 BIM for recognizable sentinel field */
15 /* Modified for bootload Multics flagbox starting in 8/83 by Keith Loepere. */
16 
17 /* The contents of this segment are data shared by Multics and bce.
18    This entity occupies the locations within the toehold starting at 40o
19    (not counting the toehold_used spacer at the beginning). */
20 
21 dcl  flagbox$ ext;
22 dcl  fgbxp ptr;
23 
24 dcl 1 fgbx based (fgbxp) aligned,
25     2 toehold_used (32) bit (36) aligned,                   /* flagbox seg now mapped onto all of first page of toehold -
26                                                             This is what was unused before. */
27     2 flags (36) bit (1) unal,                              /* communications switches */
28     2 slt_segno bit (18),                                   /* segment # of the SLT */
29     2 pad1 fixed bin,
30     2 rtb,                                                  /* return to bce info */
31      (3 ssenb bit (1),                                      /* "1"b if storage system enabled */
32       3 call_bce bit (1),                                   /* "1"b if bce called by operator */
33       3 shut bit (1),                                       /* "1"b if bce called after shutdown */
34       3 mess bit (1),                                       /* "1"b if message has been provided */
35       3 alert bit (1),                                      /* "1"b if audible alarm to be sounded */
36       3 breakpoint bit (1),                                 /* "1"b is breakpoint caused call to bce */
37       3 manual_crash bit (1),                               /* either manual entry or execute fault */
38       3 io_reconfig bit (1),                                /* "1"b if I/O reconfiguration */
39                                                             /* could cause memory corruption */
40       3 pad bit (21),
41       3 bce_entry fixed bin (6) uns) unal,                  /* type of entry into bce
42                                                                00o => Multics entry
43                                                                20o => manual entry
44                                                                40o => esd entry */
45     2 sentinel char (32) aligned,                           /* set by bce (for now) */
46     2 sst_sdw bit (72),                                     /* set by init_sst */
47     2 hc_dbr bit (72),                                      /* set by start_cpu, idle DBR */
48     2 message char (64),                                    /* message for return to bce */
49     2 return_to_bce_command char (128) unal;                /* command to run upon crash/shutdown */
50 
51 declare FLAGBOX_SENTINEL char (32) init ("Flagbox & Toehold Valid") int static options (constant);
52 
53 /* END INCLUDE FILE ... flagbox.incl.pl1 */