1 &  ***********************************************************
 2 &  *                                                         *
 3 &  * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 4 &  *                                                         *
 5 &  ***********************************************************
 6 &command_line off
 7 &- automatic reboot ec for bce
 8 &- Keith Loepere, January 1984.
 9 &- Fixed by same to handle a failure to boot.
10 &-
11 &if [equal [bce_state] "early"] &then &goto cant_boot_early
12 &if [equal [bce_state] "crash"] &then &goto cant_boot_crash
13 &print Begin auto boot.
14 set_flagbox bce_command ""
15 set_flagbox auto_reboot true
16 set_flagbox booting true
17 &input_line off
18 &attach
19 config_edit
20 gp/^cpu/
21 gp/^iom/
22 gp/^mem/
23 q
24 &detach
25 set_flagbox bce_command "exec_com rtb"
26 boot &rf1
27 &quit
28 &label cant_boot_early
29 &print The system cannot be booted from the "early" state.
30 &print First use "bce" to get to the "boot" state.
31 &quit
32 &label cant_boot_crash
33 &print The system cannot be booted from the "crash" state.
34 &print First use "reinitialize" to get to the "boot" state.
35 &quit