data segment
        array db 2,-2,3,-1,65,4; элементы массива
        ni db 0
        sum db ?
data ends

code segment
        assume cs:code,ds:data

start:
        mov ax,data
        mov ds,ax
        lea bx,array
        mov cx,6

beg:
        mov al,[bx]
        cmp al,ni
        jns sm
        neg al
sm:
        add sum,al

        inc bx
        loop beg


quit:
        mov ax,4c00h
        int 21h

code ends
end start