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