Guest User

Untitled

a guest
Jan 12th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ciclo:
  2.  
  3. fld [esi] ;st0 = v[ecx] , st1 = sqrt...
  4. fld [esi]
  5. fmulp ; st0 = v[ecx]^2, st1=sqrt
  6. fld [ebp+12]
  7. fchs ;st0 =-a st1= v^2 st1=sqrt...
  8. fmulp ;st0 =-av^2 st1= sqrt...
  9.  
  10. fldl2e ; st0 = log2(e), st1=k st2 = sqrt...
  11. fmulp ; st0 = k log2(e), st1=sqrt
  12. fld st0 ;st0= k log2(e) st1 = k log2(e), st2 = sqrt
  13. push eax
  14. fisttp [esp]
  15. fild [esp] ;st0 = floor(k log2 e) st1=klog2(e), st2=sqrt
  16. pop eax
  17. fsub st1, st0 ;st0 = floor(klog2e) st1=float(klog2 e), st2=sqrt
  18. fld1
  19. fscale ;st0 = 2^floor(klog2e) st1 = floor(klog2e), st2 = klog2e, st3=sqrt
  20. fxch st2 ; st0 = klog2e, st1=floor(klog2e) st2=2^floor ; st3=sqrt
  21. fsubp  ; st0 = mantisa(klog2e) st1=2^floor; st2=sqrt
  22. f2xm1 ; st0 = 2^mantissa(klog2e) -1 st1=2^floor; st2=sqrt
  23. fmulp ; st0 = e^k  st1=sqrt
  24. fmul ;st0 = g(x), st1=sqrt
  25. fstp [esi] ; [esi]=g(x),  st0 = sqrt...
  26.  
  27. add esi, 4 ;avanzo al sig float
  28. loop ciclo
  29.  
  30. fdecstp ; popeo la sqrt porque ya no la necesito
Add Comment
Please, Sign In to add comment