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 expmac_test: proc(test,node_pt,ref,atom) returns(bit(1));
14 
15 dcl       test      fixed bin,
16           node_pt   ptr,
17           ref(3)    ptr,
18           atom(3)   bit(1) aligned;
19 
20           return("0"b);
21           end;