Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .686
- .model flat
- public _srednia
- .data
- jeden dd 1.0
- suma dd 0.0
- dzielnik dd 0
- .code
- _srednia PROC
- push ebp
- mov ebp, esp ;prolog
- push ebx
- push edi
- push esi
- mov ecx, 0;indeks1
- mov ebx, [ebp+12] ;n
- mov esi, [ebp+8] ;adres tablicy
- mov suma, dword ptr 0 ;sum=0
- finit ;zaĆadowanie koprocesora
- ptl:
- fld dword ptr [esi+ecx*4]
- fst st(1)
- fmulp
- fld suma ;zalacz sume
- faddp ;dodaj to nowego iloczynu
- fstp dword ptr suma
- inc ecx
- cmp ecx, ebx ;sprawdz czy nie koniec
- jnz ptl
- fld suma
- fild dword ptr [ebp+12]
- fdivp
- fsqrt
- mov eax, 0
- pop esi
- pop edi
- pop ebx
- pop ebp
- ret
- _srednia ENDP
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement