Verificacion de texto en una cadena

org 100h
mov si, 0

comienzo:
mov al,msg2[0]
cmp msg[si],"$"
jz final
cmp msg[si], al
jne seguir
mov di, 1

comprobar:
mov al, msg2[di]
mov bx, di
cmp msg[si+bx], al
jne seguir

inc di
cmp msg2[di],"$"
jz resultado

loop comprobar

seguir:
inc si
loop comienzo 

resultado:
mov dx, offset msg3
mov ah, 9
int 21h       

final:
ret
msg db "tecnologico$"
msg2 db "tec$"
msg3 db "si se encuentran$"