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;