Subversion Repositories Kolibri OS

Rev

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

  1.  
  2.         .data
  3. exp.LCW1:
  4.         .word   0
  5. exp.LCW2:
  6.         .word   0
  7. exp.LC0:
  8.         .double 0d1.0e+00
  9.  
  10.         .text
  11.  
  12. .global exp;
  13.  
  14. exp:
  15.         fldl    4(%esp)
  16.         fldl2e
  17.         fmulp
  18.         fstcw   exp.LCW1
  19.         fstcw   exp.LCW2
  20.         fwait
  21.         andw    $0xf3ff, exp.LCW2
  22.         orw     $0x0400, exp.LCW2
  23.         fldcw   exp.LCW2
  24.         fldl    %st(0)
  25.         frndint
  26.         fldcw   exp.LCW1
  27.         fxch    %st(1)
  28.         fsub    %st(1),%st
  29.         f2xm1
  30.         faddl   exp.LC0
  31.         fscale
  32.         fstp    %st(1)
  33.         ret
  34.