1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    *********************************************************** */
 6 %;
 7 /* ******************************************************
 8    *                                                    *
 9    *                                                    *
10    * Copyright (c) 1972 by Massachusetts Institute of   *
11    * Technology and Honeywell Information Systems, Inc. *
12    *                                                    *
13    *                                                    *
14    ****************************************************** */
15 
16 create_array: proc returns(ptr) ;
17 
18 /*        Modified on:        April 1977 by RHS for new allocation methods */
19 
20 dcl       1 pl1_nodes_template_$array_template external like array aligned;
21 
22 dcl       p ptr;
23 dcl       null builtin;
24 dcl       pl1_stat_$node_uses(32) fixed bin ext;
25 
26 %include pl1_tree_areas;
27 %include nodes;
28 %include array;
29 
30 
31                               /*   ^L   */
32 
33           pl1_stat_$node_uses(8) = pl1_stat_$node_uses(8) + 1;
34 
35           allocate array in(tree_area) set(p);
36 
37           p->array = pl1_nodes_template_$array_template;
38 
39           return(p);
40 
41           end create_array;