assem / задачи на экзамен / 17

17. Задан байтовый массив из N элементов. Написать процедуру, определяющую количество перемен знака у его элементов (нули при этом не учитываются).
model small
data_sg segment
a db 1,2,2,-3,6,-4
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor cx,cx
xor si,si
mov di,n
dec di
m3:
mov al,a[si]
cmp al,0
jle m1
mov al,a[si+1]
cmp al,0
jge m1
inc cx
jmp m2
m1:
mov al,a[si]
cmp al,0
jge m2
mov al,a[si+1]
cmp al,0
jle m2
inc cx
m2:
inc si
cmp si,di
jl m3
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start