Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Имеется задача. Даны 3 квадратные матрицы различных размерностей. Для каждой из них заменить нулями все ее четные элементы, расположенные на главной диагонали или выше нее. Подсчитать количество таких замен.
Имеется код TASM(очень корявый, возможно неработающий), но программа нужна на NASM


Приложение:
code segment para public 'code'; заголовок сегмента
assume cs:code,ds:code,es:code,ss:code
;сообщим транслятору о намерении установить сегментные
; регистры cs, ds, es на наш сегмент
org 100h ; место под PSP beg:
prd: jmp start ; переход на start
messel db 0ah,0dh,'Введите элемент массива : $' ; приглашение для
; ввода размерности.
;Коды 0ah и 0dh означают переход
;на начало следующей строки

messmas db 0ah,0dh,'Введите элементы $' ;приглашение для
; ввода элементов матрицы
messmas2 db '-го массива:$
mess3 db 0ah,0dh,'Массив: $' ;заголовок для вывода элементов массива

answer_buf db 7 dup(?), ' ','$' ; буфер под ответ (вывод)
input_buf db 06,00,5 dup(?) ;Память под буфер ввода
bufer db 0ah,0,11 dup(?) ; буфер для ввода
; размерность матрицы
mas1 dw 25 dup(?) ; память под матрицу
mas2 dw 25 dup(?) ; память под матрицу
mas3 dw 25 dup(?) ; память под матрицу

newline db 0ah,0dh,'$' ; для перевода строки
include bin2str.asm
; подключение процедуры bin2str, находящейся в файле
; bin2str.asm и осуществляющей преобразование числа в строку
; вход bin2str - ax - число;
; выход - строка по адресу ds:bx
include str2bin.asm
; подключение процедуры str2bin, находящейся в файле
; str2bin.asm и осуществляющей преобразование из строки в число
; вход str2bin - ds:bx - адрес строки
; выход - ax - число со знаком

; input – подпрограмма для ввода одного числа
; Вход: в dx - адрес буфера,
; Выход: в ax возвращается введенное число

; Макроопределение для вывода строки на экран.
OutPutMess MACRO message
lea dx,message ; Адрес строки -> в dx
mov ah,09h ; Номер функции вывода
int 21h
ENDM
input proc
push bx ;сохраним используемые регистры
push dx
push dx ;сохраним адрес буфера, т.к. он
; будет запорчен при организации вывода строки newline
lea dx,newline
mov ah,09h
int 21h ;вывод строки
pop dx ; восстановим адрес буфера ввода
mov ah,0ah ;помещаем в ah номер прерывания
int 21h ;для ввода строки
mov bx,dx ;строка по адресу ds:dx
inc bx ;увеличиваем на 1 ee адрес
; и передаем его в процедуру str2bin
call str2bin ;преобразуем строку в число
pop dx ;число будет в ax
pop bx
ret
input endp
; Макроопределение для организации ввода элементов массива
; с клавиатуры. Параметры – имя массива и количество элементов
Input_mas MACRO mas,amnt
LOCAL v1, v2
lea bx,mas ; в bx запишем адрес начала матрицы A
push bx
mov si,0 ; смещение от начала матрицы равно нулю
mov cx,amnt ; в cx запишем счетчик цикла по строкам
v1: push cx ; перед организацией цикла сохраним его
mov cx,amnt ; в cx запишем счетчик цикла по столбцам
v2: push cx ; сохраним счетчик внутреннего цикла
lea dx,messel
mov ah,09h
int 21h ; вывод строки
lea dx,input_buf ; Организация непосредственного ввода элементов
mov ah,0ah ; помещаем в ah номер прерывания
int 21h ; для ввода строки
mov bx,dx ; строка по адресу ds:dx
inc bx ; увеличиваем на 1 ee адрес
; и передаем его в процедуру str2bin
call str2bin ; преобразуем строку в число
pop bx
mov [bx][si],ax ; и запишем его в матрицу A по
; адресу (bx)+(si) с помощью базово-индексной адресации
add si,2 ; переход к следующему элементу
pop cx ; восстановим счетчик цикла
loop v2 ; продолжим цикл ввода элементов одной строки
pop cx ; восстановим счетчик внешнего цикла
loop v1 ; перейдем к следующей строке
ENDM

; Макроопределение для проверки массива на наличие
; 2-х идущих подряд нулевых элементов. Параметры – имя
; массива и количество элементов.
MasView MACRO mas,amnt
LOCAL cycl,m1,m2,m3
lea bx, mas ; запоминаем адрес массива
mov si, 0 ; индекс колонки в строке
mov cl, amnt ; число строк
lRow: mov cl, amnt ; цикл по строкам, число колонок в строке
lCol: cmp cl, ch ; элементы на главной диагонали и ниже
jg next ; пропускаем
mov ax, mas[bx][si] ; берем элемент bx строки si столбца
test ax, 1 ; четное число?
jz Changed ; четное, переход на метку Changed
inc si ; на следующий элемент в строке
dec cl ; уменьшаем счетчик колонок
jnz lCol ; на следующую колонку строки
add si, amnt ; строка закончилась, смещаем базу строки на длину строки
dec ch ; уменьшаем счетчик строк
jnz lRow ; на следующую строку
Changed:mov ax,0
next: inc si ; на следующий элемент в строке
dec cl ; уменьшаем счетчик колонок
jnz lCol ; на следующую колонку строки
add si, amnt ; строка закончилась, смещаем базу строки на длину строки
dec ch ; уменьшаем счетчик строк
jnz lRow ; на следующую строку
ENDM


; Основная программа
start:
IRPC num,<123>
OutPutMess messmas
mov ax,&num
lea bx,messNUM
call bin2str
Input_mas mas&num,5
masview mas&num,5
ENDM
int 20h ;завершение работы программы
code ends ;конец сегмента кода
end prg