AMSText problems with xepersian

[fact0real]

There are some issues when I use amstex with xepersian. This is the minimal example:

\documentclass[multixcb]{amstext-l}

\usepackage{url}
\usepackage{mathrsfs}
\usepackage{hyperref}

\usepackage[localise=on]{xepersian}
\setlatintextfont{Latin Modern Roman}
\settextfont{IRXLotus}[Script=Persian]
\setdigitfont[Scale=0.85]{Yas}

\baselineskip=8mm

\begin{document}
\begin{persian}
\chapter{مبحث جدید}
\section{بخش}
این یک بخش است.
\section{بخش}
این یک بخش است.
\section{بخش دیگر}
این یک بخش دیگر است.
\subsection{زیربخش}
این یک زیربخش است.
\end{persian}
\end{document}

You can see the PDF and log file here.

allinone.pdf
allinone.log

[vafa-khalighi]

You only need to make few changes; You also may want to compare left to right output and use it as a basis of how things should look like in right to left.

\documentclass{amstext-l}
\makeatletter
\let\save@makechapterhead\@makechapterhead
\makeatother
\usepackage{xepersian}
\settextfont{IRXLotus}[Script=Persian]
\makeatletter
\bidi@patchcmd{\chapter@number}{\sffamily}{\bfseries}{}{}
\bidi@patchcmd{\chapter@number}{\hbox}{\hboxR}{}{}
\bidi@patchcmd{\chapter@number}{\hbox}{\hboxR}{}{}
\let\@makechapterhead\save@makechapterhead
\bidi@patchcmd{\@makechapterhead}{\sffamily}{}{}{}
\bidi@patchcmd{\@makechapterhead}{\raggedright}{\raggedleft}{}{}
\bidi@patchcmd{\@makechapterhead}{\hsize24pc}{}{}{}
\bidi@patchcmd{\@makechapterhead}{\noindent}{%
  \parshape \@ne \dimexpr\hsize-24pc\relax 24pc
  \noindent
}{}{}
\bidi@patchcmd{\section}{\sffamily}{}{}{}
\bidi@patchcmd{\section}{\raggedright}{\raggedleft}{}{}
\bidi@patchcmd{\subsection}{\sffamily}{}{}{}
\def\@dropfolio{%
  \ifnum\count\copyins<\@m
    \global\count\copyins=\@m % reset to 999 in output routine
    \insert\copyins{\@parboxrestore
      \hsize\textwidth \raggedleft \normalfont\normalsize \everypar{}%
      \vss\nointerlineskip
      \vbox{\vskip-\skip\copyins
        \baselineskip=11\p@\relax % instead of 13.5
        \ialign{##\hfil\cr
          \vrule width\z@ height\skip\copyins\relax
          \rule{18\p@}{3\p@}\cr\thepage\cr}\hss}%
    }%
  \fi
}
\makeatother
\begin{document}
\chapter{این یک فصل بسیار طولانی است که ممکن است در چند سطر قرار بگیرد}
\section{یک بخش}
این یک بخش است.
\section{بخشی دیگر}
این یک بخش است.
\section{و باز هم بخشی دیگر}
این یک بخش است.
\subsection{زیربخش ما}
این یک زیربخش است.
\end{document}