Массив Assembler

[Leon4eg]

я в асм полный 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

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

[Goodwin98]

пишите в асю(в профиле) будет быстро.

[Ground]

Готов взяться за работу.
ICQ: 287442464

[Grag]

Готов решить Вашу задачу.

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[semenovmixan]

Готов взяться за проект
номер ICQ: 565460353 или 480964456
mikefreelance@rambler.ru

[Leon4eggg]

а тут никто не хочет ответить? задача ведь эл-ая