|
|
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.