/programs/develop/ktcc/trunk/libc/math/floor.asm |
---|
0,0 → 1,29 |
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 |