Найти сумму положительных элементов массива

.model small
.stack 100h
.data
     a db 1,2,3,4,5,6,-85,10,-9,11
     n equ 10
     p db '    ','$'
.code
     ;Начальные присвоения
     ;*********
     mov ax,@data
     mov ds,ax
     mov ax,0
     mov si,0
     mov cx,n
     ;*********
     ;Решение
     ;*********
label1:
      cmp a[si],0
      jnl label2
      inc si
      cmp si,n
      je c20
      loop label1
label2:
       add al,a[si]
       inc si
       cmp si,n
       je c21
       loop label1 
;*********
;Вывод данных(работает как с 8 так и 16 и 32 битными операциями)
;*********
c21:
     mov cx,10
     lea si,p+3
c20: 
     cmp ax,10
     jb c30
     xor dx,dx
     div cx
     or dl,30h
     mov [si],dl
     dec si
     jmp c20
c30:
     or al,30h
     mov [si],al
     lea dx,p
     mov ah,9
     int 21h
;The end =)
;*********

.model small
.stack 100h
.data
     a db 1,2,3,4,5,6,-85,10,-9,11
     b db -1,2,3,4,5,-6,-85,-10,-9,11,1,2,3,4,5,6,7,8
     s db 'summa poloshitelnih elementov v 1 massive ','$'
     s1 db 13,10,'$'
     s2 db 'summa poloshitelnih elementov v 2 massive ','$'
     n equ 10
     p db '    ','$'               
.code
     ;Íà÷àëüíûå ïðèñâîåíèÿ
     ;*********
     mov ax,@data
     mov ds,ax
     mov ax,0
     mov si,0
     mov cx,n
     mov bl,0
     mov ah,9
     mov dx,offset s
     int 21h
     mov ax,0
     ;*********
     ;Ðåøåíèå
     ;*********
label1:
      cmp a[si],0
      jnl label2
      inc si
      cmp si,n
      je c20
      loop label1
label2:
       add al,a[si]
       inc si
       cmp si,n
       je c21
       loop label1
     
label3:
      cmp b[si],0
      jnl label4
      inc si
      cmp si,18
      je c20
      loop label3
label4:
       add al,b[si]
       inc si
       cmp si,18
       je c21
       loop label3
 
;*********
;Âûâîä äàííûõ(ðàáîòàåò êàê ñ 8 òàê è 16 è 32 áèòíûìè îïåðàöèÿìè)
;*********
c22:
     mov ax,0
     mov ah,9
     mov dx,offset s2
     int 21h
     mov ax,0
     jmp label3
c21:
     mov cx,10
     lea si,p+3
c20: 
     cmp ax,10
     jb c30
     xor dx,dx
     div cx
     or dl,30h
     mov [si],dl
     dec si
     jmp c20
c30:
     inc bl
     or al,30h
     mov [si],al     
     lea dx,p
     mov ah,9
     int 21h
     mov ah,9
     mov dx,offset s1
     int 21h
     mov ax,0
     mov si,0
     mov cx,18
     cmp bl,1
     je c22
c25:
     mov ax,4c00h
     int 21h

 .model small
.stack 100h
.data
     a db 5,-2,3,4,5,6,-85,-10,-9,11
     n equ 10
     msg db 'kol-vo otricatelnih elementov: ','$'
     p db '    ','$'
.code
     mov ax,@data
     mov ds,ax
     mov ax,0
     mov si,0
     xor bx,bx
     xor ax,ax
     lea dx,msg
     mov ah,9
     int 21h
     xor ax,ax
     mov cx,n
label1:
      cmp a[si],0
      jl label2
      inc si
      cmp si,n
      je c21
      loop label1
label2:
       inc bl
       inc si
       cmp si,n
       je c21
       loop label1   
c21:
     mov al,bl
     mov cx,10
     lea si,p+3
c20: 
     cmp ax,10
     jb c30
     xor dx,dx
     div cx
     or dl,30h
     mov [si],dl
     dec si
     jmp c20
c30:
     or al,30h
     mov [si],al
     lea dx,p
     mov ah,9
     int 21h

.model small
.stack 100h
.data
     a db 1,2,3,4,5,6,-85,10,-9,11
     n equ 10
     p db '    ','$'
.code
     ;Начальные присвоения
     ;*********
     mov ax,@data
     mov ds,ax
     mov ax,0
     mov si,0
     mov cx,n
     ;*********
     ;Решение
     ;*********
label1:
      cmp a[si],0
      jnl label2
      inc si
      cmp si,n
      je c20
      loop label1
label2:
       add al,a[si]
       inc si
       cmp si,n
       je c21
       loop label1 
;*********
;Вывод данных(работает как с 8 так и 16 и 32 битными операциями)
;*********
c21:
     mov cx,10
     lea si,p+3
c20: 
     cmp ax,10
     jb c30
     xor dx,dx
     div cx
     or dl,30h
     mov [si],dl
     dec si
     jmp c20
c30:
     or al,30h
     mov [si],al
     lea dx,p
     mov ah,9
     int 21h
;The end =)
;*********