Search Character in String

    .model small

    .data

        string db "Test String","$"

        char db "s"

        f db "Found","$"

        nf db "Not found","$"

    .code

    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