
          IDENT  RHAPSO
          ENTRY  RHPPSO
* RHPPSO
*
*      THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO DEFINE THE
* RHMPSO ENTRY POINT IN A NON-CYBIL MANNER.  THIS IS DONE TO
* FACILITATE NOS/A170 PROCEDURE EXECUTION OF THE REMOTE HOST.
*



*
 RHPPSO   BSS    0
*
* TRANSFER TO CYBIL MAIN PROGRAM, I.E. RHMPSO
*
          JP     =XSW=MAIN
          END
