kolibrios-gitea/programs/develop/open watcom/trunk/clib/math/tanf.asm
Sergey Semyonov (Serge) 54786d007d Clib create_file, read_file, write_file: watcom-specific implementation
git-svn-id: svn://kolibrios.org@711 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-02-05 06:08:42 +00:00

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