|
|
1.1 ! root 1: /* fabs.s 4.1 83/06/27 */ ! 2: /* fabs - floating absolute value */ ! 3: ! 4: #include "DEFS.h" ! 5: ! 6: ENTRY(fabs) ! 7: movd 4(ap),r0 ! 8: bgeq 1f ! 9: mnegd r0,r0 ! 10: 1: ! 11: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.