Developing.ru

Люди выручайте! я в асм полный 0!( нужно решить такую задачу. Дан одномерный массив из n чисел, нужно найти сумму всех полож элементов массива. Задача элементарная, но сделать не могу. Сдать надо завтра!
Вот то программный код что я сам смог написать :
include io.asm
stac segment
db 256 dup(?)
stac ends
data segment
a dw ?
n dw ?
sum dw ?
data ends
code segment
main proc
assume ds:data, cs:code, ss:stac
push ds
mov ax,0
push ax
mov ax,data
mov ds,ax
inint n
mov cx,n
mov bx,0
l: inint ax
mov a[bx],ax
add bx,2
loop l
mov cx,n
mov bx,0
mov dx,0
l1: mov ax,a[bx]
cmp ax,0
jnl cont
add dx,ax
mov sum, dx
cont: add bx,2
loop l1
l2: outint sum
pop ax
pop ds
mov ah, 4ch
int 21h
main endp
code ends
end main

где ошибки я не пойму?