Решить задачу Assembler

[Leon9313]

Помогите пожалуйста решить задачу, точне даже не решить,а просто внести имзенения.

С клавиатуры вводится последовательность чисел “0” конец этой последовательности. С клавиатуры вводится число. Прибавить это число ко всем отрицательным элементам последовательности.

include macro.lib
stek segment 'stack'
dw 256 dup(?)
stek ends
data segment 'data'     
n dw ?
n1 db 'Vvedite n $'
x db ?
x1 db 'Vvedite chislo posled $'
k db ?
k1 db 'Vvedite vashe chislo $'
data ends
code segment 'code'
begin proc far
assume ss:stek,ds: data,cs:code
mov ax,data
mov ds,ax
cls
move_cursor 0,0
message n1                 
key_$2BIN
mov n,ax
mov cx,n
crlf
message k1 
key_$2bin
mov k,al
crlf
m:
message x1
key_$2bin
mov x, al
crlf
cmp al,0
JL m1
jmp m5
m1:
add al,k
cbw 
print_number
crlf
m5:
loop m2
jmp m3
m2:
jmp m
m3:
key_$2BIN
mov ax, 4c00h
int 21h
begin endp
code ends
end begin

Сама задача сделана,только незнаю как сделать 0 конец последовательности, если кто сделает,буду очень признателен!



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.