|
|
1.1 ! root 1: ////////// ! 2: / /usr/src/libm/i387/tan87.s ! 3: / i387 mathematics library ! 4: / tan(d) ! 5: ////////// ! 6: ! 7: RASIZE = 4 ! 8: ! 9: .globl tan ! 10: ! 11: ////////// ! 12: / double ! 13: / tan(angle) ! 14: / double angle; ! 15: ////////// ! 16: ! 17: d = RASIZE / arg offset ! 18: ! 19: tan: ! 20: fldl d(%esp) / Load argument d. ! 21: fptan / tan(d) in %st1, 1.0 in %st ! 22: fstp %st / tan(d) ! 23: ret ! 24: ! 25: / end of tan87.s
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.