home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / libsrc / m / src / fmod.s < prev    next >
Encoding:
Text File  |  1991-04-05  |  906 b   |  44 lines
  1. /* This is file FMOD.S */
  2. /*
  3. ** Copyright (C) 1991 O. ROBERT, 24, Avenue de Verdun, 92170 VANVES, FRANCE
  4. **
  5. ** Internet:    roberto@germinal.ibp.fr
  6. **
  7. ** This file is distributed under the terms listed in the document
  8. ** "copying.dj", available from DJ Delorie at the address above.
  9. ** A copy of "copying.dj" should accompany this file; if not, a copy
  10. ** should be available from where this file was obtained.  This file
  11. ** may not be distributed without a verbatim copy of "copying.dj".
  12. **
  13. ** This file is distributed WITHOUT ANY WARRANTY; without even the implied
  14. ** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  15. */
  16.     .data
  17. LCW1:
  18.     .word    0
  19.     .align    4
  20.  
  21.     .text
  22.  
  23.     .globl    _fmod
  24. _fmod:
  25.     fldl    4(%esp)
  26.     fldl    12(%esp)
  27.     ftst
  28.     fnstsw    %ax
  29.     fxch    %st(1)
  30.     sahf
  31.     jnz    next
  32.     fstpl    %st(0)
  33.     jmp    out
  34. next:
  35.     fpreml
  36.     fnstsw    %ax
  37.     sahf
  38.     jpe    next
  39.     fstpl    %st(1)
  40. out:
  41.     ret
  42.  
  43.  
  44.