home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / LIBSRC.ZOO / libsrc / local / ldexp.s < prev    next >
Text File  |  1992-03-15  |  263b  |  20 lines
  1.  
  2. .text
  3.     .align 2
  4. .globl _ldexp
  5. _ldexp:
  6.     pushl %ebp
  7.     movl %esp,%ebp
  8.     subl $16,%esp
  9.     fildl 16(%ebp)
  10.     fstpl -16(%ebp)
  11.     fldl -16(%ebp)
  12.     fldl 8(%ebp)
  13. /APP
  14.     fscale ; fxch %st(1) ; fstpl -8(%ebp) 
  15. /NO_APP
  16.     fstpl -16(%ebp)
  17.     fldl -16(%ebp)
  18.     leave
  19.     ret
  20.