kolibrios/programs/develop/ktcc/trunk/libc/math/ceilf.asm

31 lines
281 B
NASM
Raw Normal View History

format ELF
include 'proc32.inc'
section '.text' executable
public ceilf
ceilf:
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 dword[ebp+8]
frndint
fldcw [ebp-12]
leave
ret