.model small

    string db "Test String","$"

    char db "s"

    f db "Found","$"

    nf db "Not found","$"

main proc far

    mov ax, @data

    mov ds, ax

    mov es, ax

    mov di, offset string

    mov al, char

    mov cx, 0Bh

    cld

repne scasb

    jnz notfound

    mov dx, offset f

    mov ah,09h

    int 21h

    jmp finish

notfound: mov dx, offset nf

    mov ah,09h

    int 21h

finish:

    mov ax, 4c00h

    int 21h

main endp

end main