.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