1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 6         *                                                         *
 7         *********************************************************** */
 8 bce_ready: proc (prompt);
 9 
10 /* print ready message for bootload Multics.
11 Written June 1983 by Keith Loepere. */
12 
13 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
14 
15 dcl  addr                             builtin;
16 dcl  bce_data$error_put_chars         entry (ptr, ptr, fixed bin, fixed bin (35)) ext variable;
17 dcl  buffer                           char (40);
18 dcl  buffer_len                       fixed bin;
19 dcl  clock                            builtin;
20 dcl  code                             fixed bin (35);
21 dcl  date_time_                       entry (fixed bin (71), char (*));
22 dcl  ioa_$rsnnl                       entry() options(variable);
23 dcl  length                           builtin;
24 dcl  new_line                         bit (1) aligned;
25 dcl  output_buffer                    char (buffer_len) based (addr (buffer));
26 dcl  prompt                           char (*) parameter;
27 dcl  substr                           builtin;
28 dcl  time_string                      char (24);
29 
30           new_line = "1"b;
31           go to join;
32 
33 nnl: entry (prompt);
34 
35           new_line = "0"b;
36 
37 join:
38           call date_time_ (clock (), time_string);
39           call ioa_$rsnnl ("^a (^a) ^a: ", buffer, buffer_len, prompt,
40                COLLECTION_1_PHASE_NAMES (sys_info$collection_1_phase),
41                substr (time_string, 11, 6));
42           if new_line then do;
43                buffer_len = buffer_len + 1;
44                substr (output_buffer, buffer_len, 1) = "
45 ";
46           end;
47           call bce_data$error_put_chars (addr (bce_data$error_put_chars), addr (output_buffer), length (output_buffer), code);
48           return;
49 %page; %include collection_1_phases;
50      end;