Advertisement
Guest User

Untitled

a guest
Dec 17th, 2018
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .686
  2. .model flat
  3. public _srednia
  4. .data
  5. jeden dd 1.0
  6. suma dd 0.0
  7. dzielnik dd 0
  8. .code
  9. _srednia PROC
  10. push ebp
  11. mov ebp, esp ;prolog
  12. push ebx
  13. push edi
  14. push esi
  15.  
  16. mov ecx, 0;indeks1
  17. mov ebx, [ebp+12] ;n
  18. mov esi, [ebp+8] ;adres tablicy
  19. mov suma, dword ptr 0 ;sum=0
  20. finit ;zaƂadowanie koprocesora
  21.  
  22. ptl:
  23.     fld dword ptr [esi+ecx*4]
  24.     fst st(1)
  25.     fmulp
  26.     fld suma ;zalacz sume
  27.     faddp ;dodaj to nowego iloczynu
  28.     fstp dword ptr suma
  29.     inc ecx
  30.     cmp ecx, ebx ;sprawdz czy nie koniec
  31.     jnz ptl
  32.  
  33. fld suma
  34. fild dword ptr [ebp+12]
  35. fdivp
  36. fsqrt  
  37.  
  38. mov eax, 0
  39.  
  40. pop esi
  41. pop edi
  42. pop ebx
  43. pop ebp
  44. ret
  45.  
  46. _srednia ENDP
  47. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement