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 display_constant: proc(pt,tree_level);
12 
13 /*        Modified: 29 November 1979 by PCK to print tree level indented output */
14 
15 dcl       pt ptr,
16           tree_level fixed bin,
17           fixed_bin fixed bin based,
18           ioa_ entry options(variable);
19 
20 %include symbol;
21 
22           call ioa_("^/^vxCONSTANT ^p",tree_level,pt -> symbol.initial);
23           call ioa_("^vxvalue = ^w^/",tree_level,pt -> symbol.initial -> fixed_bin);
24 
25           end;