forked from KolibriOS/kolibrios
30 lines
476 B
NASM
30 lines
476 B
NASM
|
|
||
|
|
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
|