.intel_syntax noprefix

.global duljina_vektora_asm

duljina_vektora_asm:

push ebp /* cdecl prolog */
mov ebp, esp
push ebx

mov eax, [ebp+8] /* adresa prvog clana ulaznog polja */
mov ebx, [ebp+12] /* duljina niza */
mov ecx, [ebp+16] /* adresa gdje spremamo rezultat */
mov edx, 0 /* brojač */

petlja:
cmp edx, ebx
je kraj
fld DWORD PTR [eax+4*edx]
fld DWORD PTR [eax+4*edx]
fmulp
fadd DWORD PTR [ecx]
fstp DWORD PTR [ecx]
inc edx /* uvećaj brojač */
jmp petlja

kraj:
fld DWORD PTR [ecx]
fsqrt
fstp DWORD PTR [ecx]

pop ebx
mov esp, ebp
pop ebp

ret