1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6         *                                                         *
 7         *********************************************************** */
 8 /* CALL_BCE - Program to call the bootload command environment (bce).
 9    recoded 9/30/76 by Noel I. Morris
10    converted from call_bos 8/83 by Keith Loepere */
11 
12 
13 call_bce: proc;
14 
15 dcl  privileged_mode_ut$bce_and_return entry,
16      syserr entry options (variable);
17 
18 dcl  addr builtin;
19 
20 % include flagbox;
21 
22 ^L
23 
24           fgbxp = addr (flagbox$);                          /* Get pointer to flagbox segment. */
25           fgbx.call_bce = "1"b;                             /* Turn on the bce call flag. */
26 
27           call syserr (0, "call_bce: bce called from Multics.");
28 
29           call privileged_mode_ut$bce_and_return;           /* Transfer control to bce.  It will return after
30                                                                continue is typed at the operator's console. */
31 
32           fgbx.call_bce = "0"b;                             /* Turn off flag now. */
33 
34           return;                                           /* Return to caller */
35 
36 
37 /* BEGIN MESSAGE DOCUMENTATION
38 
39    Message:
40    call_bce: bce called from Multics.
41 
42    S:     $info
43 
44    T:     $run
45 
46    M:     An outer ring program has called hphcs_$call_bce.
47    This is usually done after printing an explanatory message.
48    The system will resume operation if continue is typed.
49 
50    A:     $recover
51 
52 
53    END MESSAGE DOCUMENTATION */
54 
55      end;