Вычислить сумму элементов массива

.model small
.stack 100h
.data
    arr db 1,2,3,4,5,0,7,8,9,10,11,12,13
    len dw $-arr   
    res_hlp1 db "No null elements! Result: $"
    res_hlp2 db "Exist null elements! Result: $"
.code 
begin:
    mov ax, @data
    mov ds, ax
    mov es, ax
    
    lea si, arr 
    mov cx, len
    xor bl, bl   
    xor dx, dx
c1:
    add bl, arr[si] ; bl = bl + arr[si]
    cmp arr[si], 0   ; 
    jne skip ; arr[si] != 0 -> skip
    jmp stop ; arr[si] == 0 -> stop
skip: 
    inc si ; si = si + 1
    loop c1 ; цикл
    
stop:  
    cmp cx, 0 ; 
    jne msg2 ; 
    lea dx, res_hlp1 
    jmp ex
msg2:
    lea dx, res_hlp2
ex: 
    mov ah, 9 ; 
    int 21h
    mov al, bl ;
    aam
    or ax, 3030h
    mov dl, ah
    mov dh, al
    mov ah, 2
    int 21h
    mov dl, dh
    int 21h
 
    mov ax, 4c00h
    int 21h    
ends
 
end begin

.data
Arr dd 1.0, 3.1415, 2.17, 9.99
Count = ($-Arr)/4
 
.code
fldz  ; исходное число (сумма)
lea bx,Arr
mov cx,Count
@@next:
fld dword ptr [bx]
faddp  ; st(1)=st(1)+st(0), затем st(0) удаляется, результат в st(0)
add bx,4
loop @@next
; результат в st(0)

mov ecx,L
fldz
 m:fadd qword ptr [ecx*8+A-8]
 loop m
fstp S