Rev 6424 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 6424 | siemargl | 1 | |
| 2 | include '../proc32.inc' |
||
| 7855 | Boppan | 3 | section '.text' executable |
| 6424 | siemargl | 4 | |
| 5 | |||
| 6 | |||
| 7 | |||
| 8 | |||
| 9 | |||
| 10 | |||
| 11 | |||
| 12 | fld st0 ;Duplicate X on tos. |
||
| 13 | fmul st0, st1 ;Compute X**2. |
||
| 14 | fld st0 ;Duplicate X**2 on tos. |
||
| 15 | fld1 ;Compute 1-X**2. |
||
| 16 | fsub st0, st1 |
||
| 17 | fdiv st0, st1 ;Compute (1-x**2)/X**2. |
||
| 18 | fsqrt ;Compute sqrt((1-X**2)/X**2). |
||
| 19 | fld1 ;To compute full arctangent. |
||
| 20 | fpatan ;Compute atan of the above. |
||
| 21 | ret |
||
| 22 |