projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 18e5fa7e BJ |
1 | # abs - int absolute value. |
| 2 | # fabs - floating abs | |
| 3 | ||
| 4 | .globl _abs | |
| 5 | .align 1 | |
| 6 | _abs: | |
| 7 | .word 0x0000 | |
| 8 | movl 4(ap),r0 | |
| 9 | bgeq absl | |
| 10 | mnegl r0,r0 | |
| 11 | absl: | |
| 12 | ret | |
| 13 | ||
| 14 | .globl _fabs | |
| 15 | .align 1 | |
| 16 | _fabs: | |
| 17 | .word 0x0000 | |
| 18 | movd 4(ap),r0 | |
| 19 | bgeq fabsl | |
| 20 | mnegd r0,r0 | |
| 21 | fabsl: | |
| 22 | ret |