kolibrios/programs/develop/ktcc/trunk/libc/math/floorf.asm
Magomed Kostoev (mkostoevr) 71b99beec5 Make libck project self-containing.
git-svn-id: svn://kolibrios.org@7855 a494cfbc-eb01-0410-851d-a64ba20cac60
2020-05-03 08:09:36 +00:00

30 lines
297 B
NASM

format ELF
include '../proc32.inc'
section '.text' executable
public floorf
floorf:
push ebp
mov ebp,esp
sub esp,8
fstcw [ebp-12]
mov dx,word[ebp-12]
or dx,0x0400
and dx,0xf7ff
mov word[ebp-16],dx
fldcw [ebp-16]
fld dword[ebp+8]
frndint
fldcw [ebp-12]
leave
ret