projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 74bfa9a8 DR |
1 | / double ldexp(number, exp) |
| 2 | / double number | |
| 3 | / -- returns number * 2^exp | |
| 4 | ||
| 5 | .globl _ldexp | |
| 6 | .globl csv, cret | |
| 7 | ||
| 8 | ERANGE = 34. | |
| 9 | ||
| 10 | _ldexp: | |
| 11 | jsr r5,csv | |
| 12 | movf 4(r5),fr0 | |
| 13 | movei fr0,r0 | |
| 14 | add 12.(r5),r0 | |
| 15 | movie r0,fr0 | |
| 16 | cfcc | |
| 17 | bvc 1f | |
| 18 | bmi 2f | |
| 19 | movf huge,fr0 | |
| 20 | br 3f | |
| 21 | 2: | |
| 22 | movf huge,fr0 | |
| 23 | negf fr0 | |
| 24 | 3: | |
| 25 | mov $ERANGE,_errno | |
| 26 | 1: | |
| 27 | jmp cret | |
| 28 | ||
| 29 | .comm _errno,2 | |
| 30 | .data | |
| 31 | huge: 077777; 0177776; 0177777; 0177777 |