\documentclass{ppex}
\nonstopmode
\usepackage [all,arc,dvips]{xy}
\pagestyle{empty}
\setlength\textwidth{183.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage [all,arc,dvips]{xy}
\[\begin{xy} /r12mm/:
   (0,0)*@{*}="c",*++++!R{c}
  ,(1.2,.8)*+[F]@{+}="p"
  ,*++!LD{p},"p";"c"**@{--}
  ,{\ellipse<>{}}
  ,{\ellipse(0.8){}}
  ,0;(-1,1)::
  ,{\ar@{.>} 0;(1,0)}
  ,{\ar@{.>} 0;(0,1)}
  ,"p";"c",{\ellipse(.8){--}}
  ,{\ellipse<3mm>{=}}
\end{xy}\]
\end{document}
