          SPACE  4,10
*         CTEXT  CTP$SCI VPB LOAD CIP PROGRAM.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO SET UP A DFT
*         REQUEST TO LOAD A CIP PROGRAM.
 LCP      SPACE  4,15
**        LCP - LOAD CIP PROGRAM.
*
*         ENTRY  (A) = NAME OF PROGRAM TO LOAD.
*                (R-REGISTER) = ADDRESS TO LOAD TO.
*
*         EXIT   PROGRAM LOADED.
*                (A) = DFT RESPONSE CODE.
*
*         USES   CM - CM+3.
*
*         CALLS  IDR.


 LCP      SUBR               ENTRY/EXIT
          SHN    22-6
          STM    IDRA
          SHN    -6
          SCN    77
          STM    IDRA+1
          SRD    CM+2
          LDN    0
          STD    CM+1
          LDN    FCD         FETCH CIP DATA
          RJM    IDR         ISSUE DFT REQUEST
          UJN    LCPX        RETURN

*         ENDX   CTP$SCI VPB LOAD CIP PROGRAM.
