; Principio del programa
    ORG 50000

    ld hl, texto     ; Inicio de la busqueda
    ld a, 'X'        ; Caracter (byte) a buscar
    ld bc, 100       ; Numero de bytes donde buscar
    cpir             ; Realizamos la busqueda
   
    jp nz, No_Hay    ; Si no encontramos el caracter buscado
                     ; el flag de Z estará a cero.

                     ; Si estamos aqui es que se encontro
                  
    dec hl           ; Decrementamos HL para apuntar al byte
                     ; encontrado en memoria.

    scf
    ccf              ; Ponemos el carry flag a 0 (scf+ccf)
    ld bc, texto
    sbc hl, bc       ; HL = HL - BC 
                     ;    = (posicion encontrada) - (inicio cadena)
                     ;    = posicion de 'X' dentro de la cadena.

    ld b, h
    ld c, l          ; BC = HL
                     
    ret              ; Volvemos a basic con el resultado en BC

No_Hay:
    ld bc, $ffff
    ret

texto DB "Esto es una X cadena de texto."

    ; Fin del programa
    END