Subversion Repositories Kolibri OS

Rev

Rev 696 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1.  
  2. format ELF
  3. include '../proc32.inc'
  4. section '.text' executable
  5.  
  6. public floor
  7.  
  8. floor:
  9.  
  10.         push    ebp
  11.         mov     ebp,esp
  12.         sub     esp,8
  13.  
  14.         fstcw   [ebp-12]
  15.         mov     dx,word[ebp-12]
  16.         or      dx,0x0400      
  17.         and     dx,0xf7ff
  18.         mov     word[ebp-16],dx
  19.         fldcw   [ebp-16]       
  20.  
  21.         fld     qword[ebp+8]
  22.         frndint
  23.  
  24.         fldcw   [ebp-12]       
  25.  
  26.         leave
  27.  
  28.         ret
  29.  
  30.