|
|
1.1 root 1: .pa 1
2: .he 'HYPOT (III)'6/12/72'HYPOT (III)'
3: .ti 0
4: NAME hypot -- calculate hypotenuse
5: .sp
6: .ti 0
7: SYNOPSIS movf a,fr0
8: .br
9: movf b,fr1
10: .br
11: jsr r5,hypot
12: .br
13: movf fr0,...
14: .sp
15: .ti 0
16: DESCRIPTION The
17: square root of fr0*fr0 + fr1*fr1
18: is returned in fr0.
19: The calculation is done in such a way
20: that overflow will not occur unless
21: the answer is not representable in floating point.
22: .sp
23: .ti 0
24: FILES kept in /lib/liba.a
25: .sp
26: .ti 0
27: SEE ALSO sqrt(III)
28: .sp
29: .ti 0
30: DIAGNOSTICS The
31: c-bit is set if the result cannot
32: be represented.
33: .sp
34: .ti 0
35: BUGS --
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.