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

Dseg segment para public 'data'
mas db -1,3,5,2,-7
n dw 5
min db ?
imin dw ?
Dseg ends
Sseg segment para stack 'stack'
 dw 30 dup(0)
Sseg ends
Cseg segment para public 'code'
osn proc near
 assume cs:cseg,ds:dseg,ss:sseg
 mov ax,dseg
mov ds,ax
 mov cx,n ;cx=n
 mov al, mas ;al=mas[0]
mov si,0
 mov di,0 ;di=0
start: cmp al, mas[di]
 jle met
 mov al, mas[di]
mov si,di
met: inc di
 loop start
 mov min, al
mov imin,si
 mov di, 0
mov bl, mas[di]
mov mas[di],al
mov mas[si],bl
 mov ax, 4c00h
 int 21h
osn endp
cseg ends
end osn

Dseg segment para public 'data'
mas db -1,3,5,2,-7
n dw 5
CountNeg dw ?
CountPos dw ?
CountNull dw ?
imin dw ?
Dseg ends
Sseg segment para stack 'stack'
dw 30 dup(0)
Sseg ends
Cseg segment para public 'code'
osn proc near
assume cs:cseg,ds:dseg,ss:sseg
        mov     ax, dseg
        mov     ds, ax
 
        mov     [CountNeg],0
        mov     [CountNull],0
        mov     [CountPos],0
        mov     cx, [n] ;cx=n
 
        mov     si,0
start:
 
        cmp     mas[si],0
        js      IsNeg
        jnz     IsPos
inc[CountNull]
        jmp     next
IsNeg:
inc[CountNeg]
        jmp     next
IsPos:
inc[CountPos]
next:
        inc     si
        loop    start
 
        mov     ax, 4c00h
        int     21h
osn endp
cseg ends
end osn