Verificación de texto en una cadena

Código:


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$"