.pa 1 .he 'HYPOT (III)'6/12/72'HYPOT (III)' .ti 0 NAME hypot -- calculate hypotenuse .sp .ti 0 SYNOPSIS movf a,fr0 .br movf b,fr1 .br jsr r5,hypot .br movf fr0,... .sp .ti 0 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. .sp .ti 0 FILES kept in /lib/liba.a .sp .ti 0 SEE ALSO sqrt(III) .sp .ti 0 DIAGNOSTICS The c-bit is set if the result cannot be represented. .sp .ti 0 BUGS --