Найти суму элементов главной и побочной диагоналей - Assembler

include 'emu8086.inc'
data segment
 
; Сегмент данних    
    m equ 4             ;Розмірність матриці        
    n equ 3
        min dw 255 
    max dw 0
    s1 dw 0 
    s2 dw 0
    s dw 0
    l db 12
   msg1    db  "Vvedenna matruci  4*3."
            db    0dh, 0ah, '$'
    msg2    db  "Vvedit chislo nomer"
            db  '$'
    msg3    db  "Vvedenna matrica: "
            db  '$'
                                     
    msg4    db  "Maksumalnuy element matricu: "
            db  '$'                          
   
    msg6    db  "Seredne arufmetuchne elementiv matricu: "
            db  '$'                          
   
    mas dw m dup(n dup(?)) ;Двовимірний масив
   
ends
 
stack segment
    dw   128  dup(0)
ends
 
code segment
start:
                       ;Встановлення сегментних регістрів:
    mov ax, data
    mov ds, ax
    mov es, ax
    
       lea dx,msg1      ;Відображення повідомлення msg1 через підпрограму puts
       call puts                                  
       xor bx,bx        ;Обнуління BX, AX
       xor ax,ax
       mov cx,m         ;Завантаження лічильника зовнішнього циклу                    
;Зовнішній цикл заповнення масиву
C_ext: push cx          ;Збереження лічильника зовнішнього циклу                          
       mov cx,n         ;Завантаження лічильника внутрішнього циклу
       xor si,si        ;Обнуління SI
;Внутрішній цикл зповнення масиву
C_int:  inc ax  
        GOTOXY 0,al             ;Виведення повідомлень для заповнення масиву
        lea dx,msg2
        call puts
        CALL print_num_uns
        print ': '    
        push cx
        CALL SCAN_NUM           ;Введення числа через СХ
        mov mas[bx][si],cx      ;Заповнення масиву 
        pop cx
        add si,2         ;Збільшення внутрішнього індексу
        loop C_int       ;n разів
        add bx,2*n       ;Збільшення зовнішнього індексу
        pop cx           ;Відновлення лічильника зовнішнього циклу
        loop c_ext       ;m разів

GOTOXY 35,9
lea dx, msg3            
call puts               ;Виведення повідомлення msg3
      
       xor bx,bx        ;Обнуління BX,AX
       xor ax,ax
       mov cx,m
       xor si,si        ;Обнуління SI
       mov dl, 10 
 
;Зовнішній цикл відображення масиву
C_ext_v: push cx        ;Збереження лічильника зовнішнього циклу                          
       mov cx,n         ;Завантаження лічильника внутрішнього циклу
       xor si,si        ;Обнуління SI
       inc dx       
       GOTOXY 35,dl
 
;Внутрішній цикл відображення масиву       
C_int_v:
       push cx
       mov ax,mas[bx][si]
       
CALL print_num
print ' '        
       pop cx
       add si,2         ;Збільшення внутрішнього індексу
       loop C_int_v     ;n разів
       add bx,2*n       ;Збільшення зовнішнього індексу
       pop cx           ;Відновлення лічильника зовнішнього циклу
       loop c_ext_v     ;m разів
       
printn
printn     
 
            xor bx,bx                              
             xor ax,ax
             mov cx,m
             xor si,si                                
            
C1_ext_v: push cx                              
             mov cx,n                              
             xor si,si                              
            
C1_int_v:   push cx
             mov ax,mas[bx][si]
             add s,ax
             call chk
             cmp bx,0
             je ms
             add s2,ax
             jmp ms1
          ms:add s1,ax
          ms1:pop cx
             add si,2                                   
             loop C1_int_v                           
             add bx,2*n                              
             pop cx                                      
             loop c1_ext_v                           
    
 GOTOXY 0,17
lea dx, msg4            
call puts               ;Виведення повідомлення msg4
GOTOXY 29,17
 mov ax,max
CALL print_num    

 GOTOXY 0,19
lea dx, msg6            
call puts               ;Виведення повідомлення msg6     
GOTOXY 39,19
mov ax,s
div l
mov ah,0
CALL print_num                

       hlt              
  
    mov ax, 4c00h       ;вихід до операційної систем.
    int 21h    
ends 
 
; Відображення повідомлення через DX-регістр,
; Використання функції DOS для друку.
puts    proc    near
        push    ax
        mov     ah, 09h
        int     21h
        pop     ax
        ret
endp
 
chk     proc    near    
        
        mov ax, mas[bx][si]
        cmp min,ax
        jle m5
        mov min, ax
        m5:cmp max,ax
        jge m6
        mov max, ax
        m6:

              ret
endp
 
DEFINE_SCAN_NUM 
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS
end start           ;встановлення точки входу і зупинка асемблера