Subversion Repositories Kolibri OS

Rev

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

  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
  20.