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;