*COMDECK COMCCPM
          CTEXT  COMCCPM - CONTROL POINT MANAGER PROCESSOR. 
 CPM      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCCPM
          BASE   D
*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
 CPM      SPACE  4
***       CPM - CONTROL POINT MANAGER PROCESSOR.
* 
*         G. R. MANSFIELD.  70/10/09. 
* 
*         ******************************************************* 
*         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS * 
*         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  * 
*         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     * 
*         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  * 
*         * THROUGH THE PROPER PROCEDURE.                       * 
*         ******************************************************* 
* 
* 
*         CPM CALLS THE PP PROGRAM *CPM*. 
 CPM      SPACE  4
***       CPM CALLS THE PP PROGRAM *CPM* TO PERFORM TASKS 
*         INVOLVING CONTROL POINT ACTIVITY. 
* 
*         ENTRY  (X1) = PARAMETER.
*                (X2) = REQUEST.
* 
*         EXIT   NONE.
* 
*         USES   X - 1, 2, 6. 
*                B - NONE.
*                A - NONE.
* 
*         CALLS  SYS=.
  
  
 CPM1     RJ     =XSYS=      ISSUE REQUEST
  
 CPM=     PS                 ENTRY/EXIT 
          MX6    -24         FORM REQUEST 
          BX1    -X6*X1 
          LX2    24 
          SX6    4RCPMP/16
          BX1    X2+X1
          LX6    40 
          BX6    X6+X1
          EQ     CPM1 
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CPM=     EQU    /COMCCPM/CPM=
 QUAL$    ENDIF 
          ENDX
