Не выполняется вычисление суммы ряда

; =======================================
.Model Small    ; Малая модель памяти
.Stack 100h     ; Для стека выделяется 100h байт
.Data           ; начало сегмента данных
N dw 5      ; Определение перменной N, начальное значение 5
a dw 25     ; Определение перменной a, начальное значение 25
b dw 24     ; Определение перменной b, начальное значение 24
o dw 26     ; Определение перменной o(c), начальное значение 26
d dw 25     ; Определение перменной d, начальное значение 25
e dw 29     ; Определение перменной e, начальное значение 29
S dw 0      ; Определение перменной S, начальное значение 0
f dw 0      ; Определение перменной f, начальное значение 0
 
.Code           ; начало сегмента кода
begin:
mov ax,@Data    ; загрузка в регистр ax адреса сегмента данных
mov ds,ax   ; загрузка в регистр ds адреса сегмента данных
mov cx,N    ;cx: = N - начальный параметр цикла (=5)
 
lab1:
call Proced1    ;вычислить Proced1 для cx = i
mov bx,f
add S,bx    ;S: = S + f - прибавление к сумме текущего значения слагаемого
loop lab1   ;cx: = cx - 1(текущий параметр цикла i=i-1)
        ; пока cx>0, то на lab1:
 
nop     ; команда «нет операции»: удобно использовать 
        ;в качестве конца программы при запуске в DEBUG 
 
Proced1 proc    ;подпрограмма Proced1 - вычисления f(i)=i+(c*b-e)*a*d
        ;параметр i передается через регистр cx
 
mov ax,o    ;ax: = c
imul b      ;ax: = c*b
sub ax,e    ;ax: = (c*b-e)
imul a      ;ax: = (c*b-e)*a
imul d      ;ax: = (c*b-e)*a*d
add cx,ax   ;ax: = f(i)
mov f,ax    ;результат передается в основную программу через f
ret     ;возврат в основную программу
Proced1 endp
 
end begin   ; конец сегмента кода

    mov    ax, 4c00h
    int 21h

    add cx,ax   ;ax: = f(i)

    add ax,cx   ;ax: = f(i)