1 /* ****************************************************** 2 * * 3 * * 4 * Copyright (c) 1972 by Massachusetts Institute of * 5 * Technology and Honeywell Information Systems, Inc. * 6 * * 7 * * 8 ****************************************************** */ 9 10 /* modified 07/16/73 by A. Downing to use round builtin function */ 11 12 sin_: procedure (number) returns (float binary (27)); 13 14 /* compute the sine or cosine of a single-precision floating-point number */ 15 declare number float binary (27), 16 (cos, cosd, sin, sind) builtin; 17 18 return(sin(number)); 19 20 cos_: entry (number) returns (float binary (27)); 21 return(cos(number)); 22 23 sind_: entry (number) returns (float binary (27)); 24 return(sind(number)); 25 26 cosd_: entry (number) returns (float binary (27)); 27 return(cosd(number)); 28 end;