mingwrt/mingwex/math/remainder.s

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  */
   5
   6         .file   "remainder.s"
   7         .text
   8         .align 4
   9 .globl _remainder
  10         .def    _remainder;     .scl    2;      .type   32;     .endef
  11 _remainder:
  12         fldl    12(%esp)
  13         fldl    4(%esp)
  14 1:      fprem1
  15         fstsw   %ax
  16         sahf
  17         jp      1b
  18         fstp    %st(1)
  19         ret