\documentclass{article}
\usepackage{xepersian}
\usepackage{bidi}


\settextfont[Scale=1]{Yas}
\setlatintextfont[Scale=1]{Yas}
\PersianMathsDigits
\setdigitfont[Scale=1]{Yas}
\newcommand{\mysubscript}[2]{#1_\textrm{\lr{#2}}}
\begin{document}
زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین زی‌پرشین 

$H_\textrm{\lr{1}}$
یا

\[
\mysubscript{H}{1},H_1
\]
\[
\textrm{\lr{1}},1
\]
با
$1$
\end{document}