|
|
1.1 ! root 1: .tr | ! 2: .th POW III 4/30/73 ! 3: .sh NAME ! 4: pow \*- floating exponentiation ! 5: .sh SYNOPSIS ! 6: .ft B ! 7: movf x,fr0 ! 8: .br ! 9: movf y,fr1 ! 10: .br ! 11: jsr pc,pow ! 12: .s3 ! 13: .nf ! 14: double pow(x,y) ! 15: double x, y; ! 16: .fi ! 17: .s3 ! 18: .ft R ! 19: .sh DESCRIPTION ! 20: .it Pow ! 21: returns ! 22: the value of ! 23: \fIx\u\s8y\s10\d\fR ! 24: (in fr0). ! 25: .it "Pow(0,|y)" ! 26: is 0 for any ! 27: .it y. ! 28: .it "Pow(\*-x,|y)" ! 29: returns a result only if ! 30: .it y ! 31: is an integer. ! 32: .sh "SEE ALSO" ! 33: exp(III), log(III) ! 34: .sh DIAGNOSTICS ! 35: The ! 36: carry bit is set on return in case of overflow, ! 37: .it pow(0,|0), ! 38: or ! 39: .it pow(\*-x,|y) ! 40: for non-integral ! 41: .it y. ! 42: From C there is no diagnostic. ! 43: .sh BUGS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.