Решить задачу assembler №2

[Leon9313]

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

include macro.lib
stek segment 'stack'
dw 256 dup (?)
stek ends
data segment 'data'
n dw ?
n1 db 'Vvedite N $'
x dw ?
x1 db 'Vvedite X $'
sum1 dw 0
sum2 dw 0
o1 db 'Summa poljit.= $'
o2 db 'Summa otric.= $'
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
crlf
mov cx,n
m:
message x1
key_$2BIN
mov x,ax
crlf
cmp ax,0
JG m1
JL m2
m1:
add sum1,ax
jmp con
m2:
add sum2,ax
jmp con
con:
m11:
loop m4
jmp m5
m4:
JMP m
m5:
message o1
mov ax,sum1
print_number
crlf
message o2
mov ax,sum2
print_number
crlf
mov ax, 4c00h
int 21h
ret
begin endp
code ends
end begin

Здесь тоже пожалуйста помогите внести изменения! Заранее спасибо.



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