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

14. Задан байтовый массив из N элементов. Написать процедуру, определяющую длину самой длинной последовательности расположенных подряд нулевых элементов.
model small
data_sg segment
dl_n db 0
dl_t db 0
a db 1,0,0,3,0,0,6,0,0
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor si,si
m4:
mov al,a[si]
cmp al,0
jne m1
mov bl,dl_t
inc bl
mov dl_t,bl
m1:
cmp al,0
je m2
mov bl,dl_t
cmp bl,dl_n
jle m3
mov dl_n,bl
m3:
xor bl,bl
mov dl_t,bl
m2:
inc si
cmp si,n
jl m4
mov bl,dl_t
cmp bl,dl_n
jle m5
mov dl_n,bl
m5:
mov al,dl_n
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start