| /programs/develop/open watcom/trunk/clib/math/cosf.asm |
|---|
| 0,0 → 1,29 |
| include mdef.inc |
| modstart cosf |
| xdefp _cosf |
| _cosf proc |
| fcos |
| fnstsw ax |
| test eax, 0x400 |
| jnz L1 |
| ret |
| L1: fldpi |
| fadd st,st |
| fxch st(1) |
| L2: |
| fprem1 |
| fnstsw ax |
| test eax,0x400 |
| jnz L2 |
| fstp st(1) |
| fcos |
| ret |
| _cosf endp |
| endmod |
| end |
| /programs/develop/open watcom/trunk/clib/math/sinf.asm |
|---|
| 0,0 → 1,29 |
| include mdef.inc |
| modstart sinf |
| xdefp _sinf |
| _sinf proc |
| fsin |
| fnstsw ax |
| test eax, 0x400 |
| jnz L1 |
| ret |
| L1: fldpi |
| fadd st,st |
| fxch st(1) |
| L2: |
| fprem1 |
| fnstsw ax |
| test eax,0x400 |
| jnz L2 |
| fstp st(1) |
| fsin |
| ret |
| _sinf endp |
| endmod |
| end |
| /programs/develop/open watcom/trunk/clib/math/tanf.asm |
|---|
| 0,0 → 1,31 |
| include mdef.inc |
| modstart tanf |
| xdefp _tanf |
| _tanf proc |
| fptan |
| fnstsw ax |
| test eax, 0x400 |
| jnz L1 |
| fstp st(0) |
| ret |
| L1: fldpi |
| fadd st,st |
| fxch st(1) |
| L2: |
| fprem1 |
| fnstsw ax |
| test eax,0x400 |
| jnz L2 |
| fstp st(1) |
| fptan |
| fstp st(0) |
| ret |
| _tanf endp |
| endmod |
| end |