Comprobación de cadenas

org 100h
mov si, 0

comienzo:
    mov al,msg2[0] ;movemos a al,la cadena que vamos a buscar
    cmp msg[si],"$" ;compara si el primer caracter de la variable msg,es segguida por "$"(si termina)
    jz final        ;si la comparacion anterior es correcta salta al procedimiento final       
    cmp msg[si], al ;
    jne seguir
   
   
    mov di, 0
    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$"                 ;cadena que buscaremos dentro de la palabra
    msg3 db "si se encuentran$"    ;si la cadena de caracteres se encuentra en la palabra se muestra este mensaje