\documentclass{article}
\usepackage{listings}
\lstset{basicstyle=\setLTR\ttfamily,
	language=[LaTeX]TeX,
	frame=single,
 	escapechar=*}
\usepackage{xepersian}
\makeatletter
\def\lst@DeInit{%
    \lst@XPrintToken \lst@EOLUpdate
    \global\advance\lst@newlines\m@ne
    \lst@ifshowlines
        \lst@DoNewLines
    \else
        \setbox\@tempboxa\vbox{\lst@DoNewLines}%
    \fi
    \lst@ifdisplaystyle \par\removelastskip \fi
    \lsthk@ExitVars\everypar{}\lsthk@DeInit\normalbaselines%\normalcolor
    \lst@MakeCaption b%
    \lst@ifbox
        \egroup $\hss \egroup
        \vrule\@width\lst@maxwidth\@height\z@\@depth\z@
    \else
        \lst@ifdisplaystyle
            \par\penalty-50\vspace\lst@belowskip
        \fi
    \fi
    \ifx\lst@multicols\@empty\else
        \def\lst@next{\global\let\@checkend\@gobble
                      \endmulticols
                      \global\let\@checkend\lst@@checkend}
        \expandafter\lst@next
    \fi
    \ifx\lst@float\relax\else
        \expandafter\lst@endfloat
    \fi
    \endgroup}
\makeatother
\begin{document}
کمی متن فارسی\نقاط
\begin{lstlisting}
\documentclass{article}
\begin{document}
some text*\ldots*
\end{document}
\end{lstlisting}

کمی متن فارسی\نقاط
%
\begin{lstlisting}[basicstyle=\setRTL]
\*\rl{شروع}*{*\rl{فقرات}*}
\*\rl{فقره}*
\*\rl{پایان}*{*\rl{فقرات}*}
\end{lstlisting}
باز هم متن فارسی

باز هممتن ی فارسی
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
v
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
باز هم متن فارسی
v
v
v
\end{document}