1 /* ****************************************************** 2 * * 3 * * 4 * Copyright (c) 1972 by Massachusetts Institute of * 5 * Technology and Honeywell Information Systems, Inc. * 6 * * 7 * * 8 ****************************************************** */ 9 10 iexp_: procedure (base, exponent) returns (fixed binary (35)); 11 12 /* compute integer base ** integer exponent */ 13 declare (base, exponent) fixed binary (35); 14 15 return(base**exponent); 16 end;