home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / EMXLIB8F.ZIP / EMX / LIB / MATH / TRUNC.S < prev   
Encoding:
Text File  |  1993-01-02  |  630 b   |  29 lines
  1. / trunc.s (emx+gcc) -- Copyright (c) 1992-1993 by Eberhard Mattes
  2.  
  3.         .globl  _trunc
  4.  
  5.         .text
  6.  
  7.         .align  2, 0x90
  8.  
  9. / double trunc (double x)
  10.  
  11. #define cw1       0(%esp)
  12. #define cw2       2(%esp)
  13. /define ret_addr  4(%esp)
  14. #define x         8(%esp)
  15.  
  16. _trunc:
  17.         subl    $4, %esp
  18.         fstcww  cw1
  19.         movw    cw1, %ax
  20.         andw    $0xf3ff, %ax
  21.         orw     $0x0c00, %ax            / chop by truncating toward 0
  22.         movw    %ax, cw2
  23.         fldcww  cw2
  24.         fldl    x                       / x
  25.         frndint
  26.         fldcww  cw1
  27.         addl    $4, %esp
  28.         ret
  29.