Subversion Repositories Kolibri OS

Rev

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

  1. #include<libc/asm.h>
  2. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  3.         .data
  4. LCW1:
  5.         .word   0
  6.         .align  4
  7.  
  8.         .text
  9.  
  10. MK_C_SYM(fmod)
  11.         fldl    4(%esp)
  12.         fldl    12(%esp)
  13.         ftst
  14.         fnstsw  %ax
  15.         fxch    %st(1)
  16.         sahf
  17.         jnz     next
  18.         fstpl   %st(0)
  19.         jmp     out
  20. next:
  21.         fprem
  22.         fnstsw  %ax
  23.         sahf
  24.         jpe     next
  25.         fstpl   %st(1)
  26. out:
  27.         ret
  28.  
  29.  
  30.