1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Bull Inc., 1987                *
 4    *                                                         *
 5    * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 6    *                                                         *
 7    *********************************************************** */
 8 /* BCE_DATA.CDS data for the Bootload Command Environment */
 9 /* BIM 8/82 */
10 /* Modified by Keith Loepere various times in 83 for bce switches */
11 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
12 
13 bce_data:
14      procedure;
15 
16 
17 declare  create_data_segment_             entry (ptr, fixed bin (35));
18 declare  com_err_                         entry () options (variable);
19 declare  code                             fixed bin (35);
20 declare  PADSTAR                          (1) char (32) init ("pad*") int static options (constant);
21 
22 declare  1 bce_data_static                aligned,
23 
24 /* bce switches--- these must be in entry-ptr order */
25 
26            2 console_put_chars            entry,
27            2 console_put_chars_data_ptr   ptr init (null),
28 
29            2 console_get_line             entry,
30            2 console_get_line_data_ptr    ptr init (null),
31 
32            2 console_alert_put_chars      entry,
33            2 console_alert_put_chars_data_ptr ptr init (null),
34 
35            2 get_line                     entry,
36            2 get_line_data_ptr            ptr init (null),
37 
38            2 put_chars                    entry,
39            2 put_chars_data_ptr           ptr init (null),
40 
41            2 error_put_chars              entry,
42            2 error_put_chars_data_ptr     ptr init (null),
43 
44            2 exec_com_get_line            entry,
45            2 command_abs_data_ptr         pointer init (null),
46 
47 /* miscelaneous */
48 
49            2 free_area_ptr                pointer init (null),
50            2 subsys_info_ptr              pointer init (null),
51            2 number_of_temp_segs          fixed bin;
52 
53 %include cds_args;
54 declare  1 CDSA                           aligned like cds_args;
55 declare  (null, size)                     builtin;
56 ^L
57 
58           CDSA.sections (1).p = null ();
59           CDSA.sections (1).len = 0;
60           CDSA.sections (2).p = addr (bce_data_static);
61           CDSA.sections (2).len = size (bce_data_static);
62           CDSA.sections (2).struct_name = "bce_data_static";
63           CDSA.seg_name = "bce_data";
64           CDSA.num_exclude_names = 1;
65           CDSA.exclude_array_ptr = addr (PADSTAR);
66           CDSA.have_static = "1"b;
67           CDSA.switches.have_text = "0"b;
68           call create_data_segment_ (addr (CDSA), code);
69           if code ^= 0
70           then call com_err_ (code, "bce_data");
71           return;
72      end bce_data;