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
30 lines
476 B
NASM
30 lines
476 B
NASM
|
|
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
|