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;