
          IDENT  RHAPFP
          TITLE  RHA$ENTRY POINT PFP
          ENTRY  RHPPFP
          ENTRY  SSJ=
* RHPPFP
*
*      THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO DEFINE THE
* RHMPFP ENTRY POINT IN A NON-CYBIL MANNER.  THIS IS DONE TO
* FACILITATE NOS/A170 PROCEDURE EXECUTION OF THE REMOTE HOST
* PERMANENT FILE FUNCTION PROCESSOR.
*


 SSJ=     EQU    0
 RHPPFP   BSS    0
*
* TRANSFER TO CYBIL MAIN PROGRAM, I.E. RHMPFP
*
          JP     =XSW=MAIN
          END
