Найти сумму положительных элементов строк матрицы - Assembler

Формулировка задачи:

Помогите исправить код!!! Пожалуйста! Найти сумму положительных элементов строк матрицы А(I,J). Подсчет суммы положительных элементов одной строки матрицы оформить в виде подпрограммы. I,J = 1,2,...5. Сумму каждой строки матрицы вывести в виде массива.

model small  ;модель памяти 
.stack 100h  ; сегмент стека (внутренняя память процессора, 100)
.data        ; сегмент данных
sum db 0
i db 0
s   db    6 dup(?)
len equ 25  ;количество элементов в mas
x db 1,3,-5,-1,6,1,-9,-4,3,-4,8,-5,1,-8,6,4,-3,3,7,-2,2,1,-9,4,-7
.code
start:
mov ax,@data ;физический адрес сегмента данных в регистр ax 
mov ds,ax 
 mov cx,len ; длину поля len в сх
          xor si,si ;обнуление индекса массива
cycl:
call podchet
add sum,al
inc si; перейти к следующему элементу
loop cycl ;пока сх>0 переход на cycl
mov ax,4c00h
int 21h
proc podchet
xor ax,ax
    cmp x[si],0 ;сравнить очередной элемент x с 0
    jl  m1  ;если  <0, то на m1 
        jg m2   ;если >0, то на m2
m1:
inc si
m2:
mov x[si],al
inc si 
ret
endp
 end start

Решение задачи: «Найти сумму положительных элементов строк матрицы»

Листинг программы

Result dw 5    ; Массив результата
......
cld            ; Сканирование вперёд
lea bx,x       ; Указатели на матрицу и результат
lea di,Result
mov cx,5       ; 5 строк
M:push di      ; Цикл расчётов, передача параметров
  push bx
  call GetSum  ; Подсчёт суммы строки
  stosw        ; Сохранение результата для строки
  loop M
......
; Подпрограмма суммирования
; [bp+6] - указатель на матрицу
; [bp+4] - индекс строки
; ax - возвращаемая сумма
Calc proc
push bp       ; Пролог
mov bp,sp
push cx       ; Сохранение состояния
push dx
push si
mov si,[bp+4] ; si=[bp+6]+[bp+4]*5
shl si,2
add si,[bp+4]
add si,[bp+6]
xor dx,dx     ; Инициализация результата
mov cx,5
SS:lodsb      ; Суммирование 5 элементов
   cbw        ; со знакорасширением
   add dx,ax
   loop SS
mov ax,dx     ; Сохранение результата
pop si        ; Восстановление состояния
pop dx
pop cx
pop bp        ; Эпилог
ret 4         ; Очистка стека от параметров
Calc endp

Объяснение кода листинга программы

Результат (5) сохраняется в переменной Result.
Далее, в цикле, происходит сканирование вперёд.
Указатели на матрицу и результат сохраняются в регистрах bx и di.
Переменная cx содержит количество строк (5).
Далее, в цикле, происходит вызов подпрограммы GetSum, которая суммирует элементы строки.
Результат подсчёта строки сохраняется в стеке (stosw).
После окончания цикла, результат выводится на экран.
Подпрограмма GetSum вычисляет сумму элементов строки.
В прологе подпрограммы сохраняется указатель на стек (bp).
Далее, в цикле, происходит загрузка очередного элемента строки в si.
Элементы строки суммируются, при этом каждый элемент умножается на 5 (соответствует количеству строк).
Результат суммирования сохраняется в dx.
После окончания цикла, результат выводится на экран (mov ax,dx).
Состояние регистров восстанавливается (pop si, dx, cx, bp).
Возврат из подпрограммы (ret 4).
Очистка стека от параметров (5 байт).