; Sa se compare sirurile 
; rez -> bh

.radix 16
.model small
.data
s1 db "anaghinoscomena"
l1 equ $-s1
s2 db "antilopa"
l2 equ $-s2

.code
start:
	mov ax, @data
	mov ds, ax
	mov es, ax
	mov di, offset s1
	mov si, offset s2

	mov bh, 0
	mov cx, l1
	cmp cx, l2
	jl  n1
	mov cx, l1
	jmp n2
n1:	mov cx, l1
n2:

loop:	cmpsb
	jne n3
	inc bh
n3:	loopne loop

t:jmp t
end start