Как реализовать,чтобы вместо просто суммы выдавало сумму квадратов

[DarianaMonf]

Используется программа SASM c ассемблером NASM

%include "io64.inc"

section .text
global CMAIN
CMAIN:
 mov rbp, rsp; for correct debugging 
global PrintValue
section .data
Array dd 1,2,3,4,5
Sum dd 0
PrintValue:
 mov rax,0
 mov rcx,5
 mov rsi,0
begin: add rax,[Array + rsi]
 add rsi,4
 loop begin
 mov [Sum],rax
 ret 
    xor rax, rax
    ret

[Mikl___]

lea rsi,[Array]
mov ecx,5
begin: lodsd
mul eax
add [Sum],eax
adc [Sum+4],edx
loop begin