1 /* ***********************************************************
2 * *
3 * Copyright, C Honeywell Bull Inc., 1987 *
4 * *
5 * Copyright, C Honeywell Information Systems Inc., 1982 *
6 * *
7 *********************************************************** */
8 /* format: style1 */
9 pvt: proc ;
10
11 /* This creates the PVT data base. No initialization is done here,
12 as it is done during system initialization.
13
14 Written February 1982 by J. Bongiovanni */
15
16 dcl code fixed bin 35;
17 dcl 1 cdsa like cds_args aligned;
18 dcl 1 pvt_auto aligned like pvt automatic;
19
20 dcl create_data_segment_ entry ptr fixed bin 35;
21 dcl com_err_ entry options variable;
22
23
24 dcl MYNAME char 3 int static options constant init "pvt";
25 dcl EXCLUDE_ARRAY 1 char 32 int static options constant init "pad*";
26
27 dcl addr builtin;
28 dcl dimension builtin;
29 dcl size builtin;
30 dcl unspec builtin;
31
32
33 %page;
34 pvtp = addr pvt_auto;
35 unspec pvt = ""b;
36
37 unspec cdsa = ""b;
38 cdsa.have_text = "1"b;
39 cdsa.p 1 = pvtp;
40 cdsa.len 1 = size pvt;
41 cdsa.struct_name 1 = "pvt";
42
43
44 cdsa.seg_name = MYNAME;
45 cdsa.num_exclude_names = dimension EXCLUDE_ARRAY 1;
46 cdsa.exclude_array_ptr = addr EXCLUDE_ARRAY;
47
48 call create_data_segment_ addr cdsa code;
49
50 if code ^= 0 then
51 call com_err_ code MYNAME;
52
53 return;
54
55 %page;
56 %include cds_args;
57 %page;
58 %include pvt;
59
60 end pvt;