mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-24 07:36:48 +03:00
54786d007d
git-svn-id: svn://kolibrios.org@711 a494cfbc-eb01-0410-851d-a64ba20cac60
32 lines
531 B
NASM
32 lines
531 B
NASM
|
|
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
|