|
|
1.1 ! root 1: .th HYPOT III 6/12/72 ! 2: .sh NAME ! 3: hypot \*- calculate hypotenuse ! 4: .sh SYNOPSIS ! 5: .ft B ! 6: jsr r5,hypot ! 7: .br ! 8: .ft R ! 9: .sh DESCRIPTION ! 10: The ! 11: square root of fr0*fr0 + fr1*fr1 ! 12: is returned in fr0. ! 13: The calculation is done in such a way ! 14: that overflow will not occur unless ! 15: the answer is not representable in floating point. ! 16: .sh DIAGNOSTICS ! 17: The ! 18: c-bit is set if the result cannot ! 19: be represented. ! 20: .sh BUGS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.