В массиве найти сумму всех положительных чисел - Assembler

data segment 'data'
   a db 10 dup(?)
   n equ 10
   p db ?
   enter_mas db 'Vvedite massiv,$'
   output db ' massiv,$'
data ends
;**********************************
stacks segment stack 'stack'
   dw 100 dup(?)
stacks ends
;**********************************
code segment 'code'
   assume cs:code, ds:data, ss:stacks
   start proc far
   mov ax,data
   mov ds,ax
   
   mov ah,9
   mov dx,offset enter_mas
   int 21h
 
   mov ax,ax
   
   mov cx,10
   mov si,0
   jmp enter_text
   enter_text:
 
m1:   cmp a[si],0
        jnl m2
          inc si
        cmp si,n
        je m4
        loop m1
m2:   add al,a[si]
          inc si
        cmp si,n
        je m3
        loop m1
;---------------------------------------
m3:   mov cx,10
        lea si,p+3
m4:   cmp ax,10
        jb m5
        xor dx,dx
        div cx
        or dl,30h
        mov [si],al
        dec,si
        jmp m4
m5:   or al,30h
        mov [si],al
        lea dx,p
        mov ah,9
        int 21h
ret
    start endp
    code ends
end start