Ввести двумерный массив 4х4, найти сумму диагональных элементов

;--------------------------------- Поле стека --------------------------------------
sseg     segment  stack 'stack'                            ; Задачи сегмента стека
           db 128 dup(?)                                   ; Поле для стека размером 128 байт
sseg     ends                                              ; Конец сегмента стека
;-------------------- Поля данных ---------------------------------------
dseg     segment 'data'                                ; Задачи сегмента данных
   text1   db    'Ishodnuy massiv',13,10,'$'           ; 23 байта с кодами символов text1
   text2   db    'Summa diagonalnix elementov = $'             ; Поле размером в 21 байт
   mas     dw    23,4,5,67                             ; Массив размером 4x4 элементов
           dw    5,6,7,99
           dw    67,8,9,23
           dw    87,9,0,8
   N       dw    10                                    ; N:=10    Поле в 1 байт
   Num     dw    ?                                     ; Num:=?   Поле в 1 байт
   endl    db    13,10,'$'                             ; Перевод строки
   StrNum  db    8 dup (?), '$'                        ; Хранение результата перевода
   Negate  db    ?                                     ; Флаг отрицательности (исп. только в процедуре перевода)
dseg     ends                                          ; Конец сегмента данных
 
;------------------------------------ Текст   программы -----------------------------------
cseg     segment 'code'                       ; Задание сегмента команд
            assume  cs:cseg, ds:dseg, ss:sseg ;Установка соответствия между сегментными 
                                          ; регистрами (cs,ds,ss) і программными сегментами (cseg,dseg,sseg)
  start proc far                              ;Начало процедуры start (Точка входа - start)
          mov   ax, dseg                      ;Инициализация сегментного регистра ds на
          mov   ds, ax                        ; программный сегмент данных dseg
;----------------------------------------------------------------------------------------------------------------------------------------------------------------------
     m1:  lea   dx, text1           ; Закачивание  в регистр    dx из сегмента данных адреса 
                                    ; первого  байта  текста  text1
          call  WrStr               ; Возврат к процедуре WrStr выведение на экран текста text1
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
         ?
         ?
         ?
         ?
         ?
         ?
         ?
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     m2:  
          mov   ax, mas[0][0]            ; ax:= mas[0]
          mov   si, 0                    ; si:= 0
          sub   N,  1                    ; N := N-1
          mov   cx, N                    ; cx:= N
     m3:  
          add   si, 2                    ; si:= si+2
          cmp   ax, mas[si][0]          ; сравнить ax и mas[si]
          jg    mNE                      ; если ax>mas[si] то переходим на mNE
          jmp   mRet                     ; переходим на mRet
     mNE: 
          mov   ax, mas[si][0]          ; заносим mas[si] в ax
     mRet:
          loop  m3                       ; переходим на m3 
 
          mov   Num, ax                  ; Num:=ax
;------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------
          mov   dx, offset text2    ; Закачивание  в регистр    dx из сегмента данных адреса
                                    ; первого  байта  текста  text2
          call  WrStr               ; Возврат к процедуре WrStr выведение на экран текста text2
          call StrCon
      lea  dx, StrNum
      call WrStr
;---------------------------------------------------------------------------------------------------------- --------------------------------------------------------------
     m4:  mov   ah, 4Ch             ;Функция завершения программы
          int   21h                 ;Прерывание MS-DOS
  start  endp                       ;Конец   процедуры   start
;-----------------------------------------------------------------------------------------
StrCon proc
     push ax 
     push cx 
     push dx
     mov cx, 10 ; Фактор деления равен 10
     lea si, StrNum + 7; Последний символ строки вывода
     mov ax, Num        ; Заносим в ax число
     mov Negate, 0 ; Флаг отрицательности пока не 
                              ; установлен
     cmp ax, 8000h      ; Если старший бит установлен
     jb d10         ; то число отрицательно
     neg ax ; Возвращаем к положительной форме
     mov Negate, 1  ; Устанавливаем флаг отрицательности
 
d10:  cmp ax, 10        ; Если частное меньше 10 то 
                                   ;               прекратить цикл
         jb d20                ;            и начать рассмотрение знака
         cwd                   ; Иначе расширить знак (для деления)
         div cx                ; И разделить на фактор деления
         or dl, 30h           ; Перевести остаток в ASCII
         mov [si], dl       ; И записать в строку
         dec si                 ; Уменьшенный индекс
         jmp d10             ; И вернуться на начало цикла
 
d20:  or al, 30h          ; Перевести частное в ASCII
         mov [si], al       ; И занести в строку
 
         cmp Negate, 0   ; Если не был установлен флаг 
                                            ;отрицательности
         jz d30                ; То выйти из процедуры
        dec si                  ; Иначе еще раз уменьшить индекс
        mov byte ptr [si], '-'     ; И записать в него значок 
                                             ;минуса
d30:     pop dx 
         pop cx 
     pop ax
         ret                                ; Возврат из процедуры
StrCon endp
 
; ********************************************************************************************************************************************************************
  WrStr  proc near                             ; Начало процедуры (подпрограммы) WrStr
          mov   ah,09h                    ;вывод на экран ряд символов, ограниченных
          int   21h                       ; символом $ или кодом 24h
          ret                                  ; Возврат из процедуры
  WrStr  endp                                  ; Конец  процедуры (подпрограммы)  WrStr
; *********************************************************************************************************************************************************************
cseg     ends                                  ; Kонець сегмента команд
         end   start                           ; Конець программы - end, точка входу - start