Subversion Repositories Kolibri OS

Rev

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

  1. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  2.  
  3. .text
  4.  
  5. .global fmod;
  6.  
  7. fmod:
  8.         fldl    4(%esp)
  9.         fldl    12(%esp)
  10.         ftst
  11.         fnstsw  %ax
  12.         fxch    %st(1)
  13.         sahf
  14.         jnz     next
  15.         fstpl   %st(0)
  16.         jmp     out
  17. next:
  18.         fprem
  19.         fnstsw  %ax
  20.         sahf
  21.         jpe     next
  22.         fstpl   %st(1)
  23. out:
  24.         ret
  25.  
  26.  
  27.