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;