mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-04 22:32:05 +03:00
31 lines
279 B
NASM
31 lines
279 B
NASM
|
|
||
|
format ELF
|
||
|
include 'proc32.inc'
|
||
|
section '.text' executable
|
||
|
|
||
|
public ceil
|
||
|
|
||
|
ceil:
|
||
|
|
||
|
push ebp
|
||
|
mov ebp,esp
|
||
|
sub esp,8
|
||
|
|
||
|
fstcw [ebp-12]
|
||
|
mov dx,[ebp-12]
|
||
|
or dx,0x0800
|
||
|
and dx,0xfbff
|
||
|
mov word[ebp-16],dx
|
||
|
fldcw [ebp-16]
|
||
|
|
||
|
fld qword[ebp+8]
|
||
|
frndint
|
||
|
|
||
|
fldcw [ebp-12]
|
||
|
|
||
|
leave
|
||
|
|
||
|
ret
|
||
|
|
||
|
|