forked from KolibriOS/kolibrios
Clib create_file, read_file, write_file: watcom-specific implementation
git-svn-id: svn://kolibrios.org@711 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
31
programs/develop/open watcom/trunk/clib/math/tanf.asm
Normal file
31
programs/develop/open watcom/trunk/clib/math/tanf.asm
Normal file
@@ -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
|
Reference in New Issue
Block a user