1 /* ***********************************************************
 2    *                                                         *
 3    *                                                         *
 4    * Copyright, (C) Honeywell Information Systems Inc., 1981 *
 5    * Copyright, (C) Honeywell Information Systems Inc., 1980 *
 6    *                                                         *
 7    *                                                         *
 8    *********************************************************** */
 9 
10 /*   static data for compose */
11 
12 /* format: style2,ind3,ll79,dclind4,idind15,comcol41,linecom */
13 
14 compstat:
15    proc;
16 
17       dcl 1 compstat     aligned static,
18             2 compconst  like const;    /* constant data structure */
19 
20 %include compstat;
21 
22       dcl com_err_       entry options (variable),
23           create_data_segment_
24                          entry (ptr, fixed (35)),
25           ercode         fixed (35);    /* system error code */
26 
27       dcl 1 cdsargs      aligned like cds_args;
28 
29 %include cds_args;
30 
31 /* assign true constants */
32       compstat.version = const_version;
33       compstat.art_symbols = "[]{}()|=o/X*mct^v<>\-HhSs~""'";
34 
35 /*      compstat.comp_version = "9.15c";/* FirstPass, PageCount BIFs */
36 /*      compstat.comp_version = "9.16d";/* .fnt -reset */
37 /*      compstat.comp_version = "9.17l";/* marg adjs */
38 /*      compstat.comp_version = "9.18g";/* full page window */
39 /*      compstat.comp_version = "9.19e";/* compstat V6 */
40 /*      compstat.comp_version = "9.20a";/* MR11 performance */
41 /*      compstat.comp_version = "9.21"; /* translator_temp */
42       compstat.comp_version = "10.0e";  /* extensible blocks */
43       compstat.max_seg_chars = 4 * sys_info$max_seg_size;
44 
45 /* set up cds arg structure */
46       cdsargs.p (*) = addr (compstat);
47       cdsargs.len (1) = 0;
48       cdsargs.len (2) = size (compstat);
49       cdsargs.struct_name (1) = "";
50       cdsargs.struct_name (2) = "compstat";
51       cdsargs.seg_name = "compstat";
52       cdsargs.num_exclude_names = 0;
53       cdsargs.exclude_array_ptr = null ();
54       cdsargs.defs_in_link = "0"b;
55       cdsargs.separate_static = "0"b;
56       cdsargs.have_text = "0"b;
57       cdsargs.have_static = "1"b;
58 
59       call create_data_segment_ (addr (cdsargs), ercode);
60       if ercode ^= 0
61       then call com_err_ (ercode, "create_stat");
62 
63    end;
64