.th HYPOT III 6/12/72 .sh NAME hypot \*- calculate hypotenuse .sh SYNOPSIS .ft B jsr r5,hypot .br .ft R .sh DESCRIPTION The square root of fr0*fr0 + fr1*fr1 is returned in fr0. The calculation is done in such a way that overflow will not occur unless the answer is not representable in floating point. .sh DIAGNOSTICS The c-bit is set if the result cannot be represented. .sh BUGS