forked from KolibriOS/kolibrios
Magomed Kostoev (mkostoevr)
71b99beec5
git-svn-id: svn://kolibrios.org@7855 a494cfbc-eb01-0410-851d-a64ba20cac60
30 lines
295 B
NASM
30 lines
295 B
NASM
|
|
format ELF
|
|
include '../proc32.inc'
|
|
section '.text' executable
|
|
|
|
public floor
|
|
|
|
floor:
|
|
|
|
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 qword[ebp+8]
|
|
frndint
|
|
|
|
fldcw [ebp-12]
|
|
|
|
leave
|
|
|
|
ret
|
|
|