*         CTEXT  CTP$DFT_PREPARE_FOR_CIP_CALL
 PFC      SPACE  4,10
**        PFC - PREPARE FOR *2AP* CALL.
*
*         USES   *JOBS - JOBS+3*.
*
*         CALLS  ECM, RPW.


          ROUTINE PFC        ENTRY/EXIT

*         AT THIS POINT SAVE DIRECT CELLS *JT - JT+3* ACROSS
*         CALL TO *2AP* OVERLAY.

          LDDL   JT
          STML   JOBS
          LDDL   JT+1
          STML   JOBS+1
          LDDL   JT+2
          STML   JOBS+2
          LDDL   JT+3
          STML   JOBS+3
          RJM    ECM         EXECUTE CIP MODULE
          LDML   JOBS
          STDL   JT
          LDML   JOBS+1
          STDL   JT+1
          LDML   JOBS+2
          STDL   JT+2
          LDML   JOBS+3
          STDL   JT+3
          RJM    RPW
          LJM    PFCX        RETURN

*COPY     CTP$DFT_RESTORE_POINTER_WORD

*         END    CTP$DFT_PREPARE_FOR_CIP_CALL
