.radix 16
.model small
.data

src DB 3 dup(1,2,3,4,5)
l equ $-src   ; lungimea src

.code
start:
	mov ax, @data
	mov es, ax
	mov ds, ax
	mov di, offset src
	
	mov al, 4
	mov bh, 0
	mov cx, l

lop:
	mov ah, ES:[DI]
	scasb
	jne next
	inc bh
next:
loopne	lop

t: jmp t
end start