home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / libsrc / m / src / ceil.s < prev    next >
Encoding:
Text File  |  1993-06-28  |  914 b   |  38 lines
  1. /* This is file CEIL.S */
  2. /*
  3. ** Copyright (C) 1993 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
  4. **
  5. ** This file is distributed under the terms listed in the document
  6. ** "copying.dj", available from DJ Delorie at the address above.
  7. ** A copy of "copying.dj" should accompany this file; if not, a copy
  8. ** should be available from where this file was obtained.  This file
  9. ** may not be distributed without a verbatim copy of "copying.dj".
  10. **
  11. ** This file is distributed WITHOUT ANY WARRANTY; without even the implied
  12. ** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. */
  14.  
  15.     .globl    _ceil
  16. _ceil:
  17.     pushl    %ebp
  18.     movl    %esp,%ebp
  19.     sub    $8,%esp        /* -4 = old CW, -2 = new CW */
  20.  
  21.     fstcw    -4(%ebp)
  22.     fwait
  23.     movw    -4(%ebp),%ax
  24.     andw    $0xf3ff,%ax
  25.     orw    $0x0800,%ax
  26.     movw    %ax,-2(%ebp)
  27.     fldcww    -2(%ebp)
  28.  
  29.     fldl    8(%ebp)
  30.     frndint
  31.  
  32.     fldcww    -4(%ebp)
  33.  
  34.     movl    %ebp,%esp
  35.     popl    %ebp
  36.     ret
  37.  
  38.