Subversion Repositories Kolibri OS

Rev

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

  1. #include<libc/asm.h>
  2.         .text
  3.  
  4. MK_C_SYM(control87)
  5.         pushl %ebp
  6.         movl %esp,%ebp
  7.  
  8.         pushl   %eax             
  9.         fstcw   (%esp)
  10.         fwait
  11.         popl    %eax
  12.         andl    $0xffff, %eax    
  13.  
  14.         movl    12(%ebp) , %ecx
  15.         notl    %ecx
  16.         andl    %eax, %ecx       
  17.  
  18.         movl    12(%ebp) , %edx
  19.         andl    8(%ebp) , %edx   
  20.  
  21.         orl     %ecx, %edx       
  22.         pushl   %edx
  23.         fldcw   (%esp)
  24.         popl    %edx
  25.  
  26.        
  27.         movl %ebp,%esp
  28.         popl %ebp
  29.         ret
  30.