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           /* interim version */
12 
13 constant_zero: proc(pt) returns(bit(1));
14 
15 dcl       pt ptr;
16 
17           return("0"b);
18           end;