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

cseg segment
    assume cs:cseg,ds:cseg,es:cseg
    org 0
start:    jmp beg
mas1 DB 7,-2,4,5,-8
     db 2,4,-1,-9,2
     db 7,8,9,-4,-2
     db 4,5,6, 2,-1
     lenx dw 5               
     leny dw 4
         
sum     dw 0
            
max    dw 0 
sign    db  '+'                    
mess1 db "Sum of negative is $"
mess2 db "Max of positive is $"
 
beg: mov ax,cs
             
     mov ds,ax
     mov es,ax
     cld       
     mov ax,lenx
     mov cx,leny
     mul cx                     
 
     mov cx,ax                
     mov max,0
     mov sum,0
 
     mov si,offset mas1; начало данных
m1:  mov ah,0
     lodsb                      
     cbw                       
     cmp ax,0
     jl  m2
     call findmax                 
     jmp cont
m2:  call findsum               
cont:loop m1            
     mov dx,offset mess1             
     mov ah,9
     int 21h
     mov ax,sum
     call printval 
     mov dx,offset mess2                
     mov ah,9
     int 21h
     mov ax,max
     call printval
     mov ax,4C00h                    
     int 21h        
findsum:add sum,ax 
        ret
findmax:
     cmp ax,max
     jle neon
     mov max,ax
neon:
     ret      
 
printval: mov sign,'+' 
    cmp ax,0
    jge  p1  
    mov sign,'-'     
    neg ax          
    mov cx,0    
p1:     mov dx,0
    mov bx,10
    inc cx            
    div bx          
    push dx          
    cmp ax,0         
    jnz p1
 
    mov dl,sign     
    mov ah,2
    int 21h 
p2:    pop dx               
add dl,'0'     
    mov ah,2
    int 21h
    loop p2    
 
    mov dl,13
    int 21h
        mov dl,10
        int 21h          ret
        cseg ends
    end start

cseg segment
    assume cs:cseg,ds:cseg,es:cseg
    org 0
start:    jmp beg
mas1 dw 7,-2,4,5,-8
     dw 2,4,-1,-9,2
     dw 7,8,9,-4,-2
     dw 4,5,6, 2,-1
     lenx dw 5
     leny dw 4
 
sum     dw 0
 
max    dw 0
sign    db  '+'
mess1 db "Sum of negative is $"
mess2 db "Max of positive is $"
 
beg: mov ax,cs
 
     mov ds,ax
     mov es,ax
     cld
     mov ax,lenx
     mov cx,leny
     mul cx
     mov cx,ax
     mov max,0
     mov sum,0
 
     mov si,offset mas1; начало данных
m1:
     lodsw
     or ax, ax
     jns m2
     add [sum], ax
     jmp next
m2:
     cmp ax, [max]
     jle next
     mov [max], ax
next:
     loop m1
 
     mov dx,offset mess1
     mov ah,9
     int 21h
     mov ax,sum
     call printval
     mov dx,offset mess2
     mov ah,9
     int 21h
     mov ax,max
     call printval
     mov ax,4C00h
     int 21h
 
printval:
        push    bx
        mov     bx,     10
        xor     cx,     cx      ;символов в модуле числа
        or      ax,     ax
        jns     @@div
                neg     ax
                push    ax
                mov     ah,     02h
                mov     dl,     '-'
                int     21h
                pop     ax
        @@div:
                xor     dx,     dx
                div     bx
                push    dx
                inc     cx      ;количество цифр в числе
                or      ax,     ax
        jnz     @@div
        mov     ah,     02h
        @@store:
                pop     dx
                add     dl,     '0'
                int     21h
        loop    @@store
        pop     bx
    ret
 
        cseg ends
    end start