Common COMCCPM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccpm +++|          CTEXT  COMCCPM - CONTROL POINT MANAGER PROCESSOR.
00002  M00S00002.comccpm +++| CPM      SPACE  4
00003  M00S00003.comccpm +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comccpm +++|          QUAL   COMCCPM
00005  M00S00005.comccpm +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comccpm +++| CPM      SPACE  4
00009  M00S00008.comccpm +++|***       CPM - CONTROL POINT MANAGER PROCESSOR.
00010  M00S00009.comccpm +++|*         G. R. MANSFIELD.  70/10/09.
00011  M00S00010.comccpm +++| CPM      SPACE  4
00012  M00S00011.comccpm +++|***              CPM CALLS THE PP PROGRAM *CPM* TO PERFORM TASKS
00013  M00S00012.comccpm +++|*         INVOLVING CONTROL POINT ACTIVITY.
00014  M00S00013.comccpm +++|*
00015  M00S00014.comccpm +++|*         ENTRY  (X1) = PARAMETER.
00016  M00S00015.comccpm +++|*                (X2) = REQUEST.
00017  M00S00016.comccpm +++|*
00018  M00S00017.comccpm +++|*         EXIT   NONE.
00019  M00S00018.comccpm +++|*
00020  M00S00019.comccpm +++|*         USES   X - 1, 2, 6.
00021  M00S00020.comccpm +++|*                B - NONE.
00022  M00S00021.comccpm +++|*                A - NONE.
00023  M00S00022.comccpm +++|*
00024  M00S00023.comccpm +++|*         CALLS  SYS=.
00025  M00S00024.comccpm +++|
00026  M00S00025.comccpm +++|
00027  M00S00026.comccpm +++| CPM1     RJ     =XSYS=
00028  M00S00027.comccpm +++|
00029  M00S00028.comccpm +++| CPM=     PS                 ENTRY/EXIT
00030  M00S00029.comccpm +++|          MX6    -24
00031  M00S00030.comccpm +++|          BX1    -X6*X1
00032  M00S00031.comccpm +++|          LX2    24
00033  M00S00032.comccpm +++|          SX6    4RCPMP/16
00034  M00S00033.comccpm +++|          BX1    X2+X1
00035  M00S00034.comccpm +++|          LX6    40
00036  M00S00035.comccpm +++|          BX6    X6+X1
00037  M00S00036.comccpm +++|          EQ     CPM1
00038  M00S00037.comccpm +++|          SPACE  4
00039  M00S00038.comccpm +++|****      SPECIAL FUNCTION CODES.
00040  M00S00039.comccpm +++|
00041  M00S00040.comccpm +++|
00042  M00S00041.comccpm +++| SQPF     EQU    0           SET QUEUE PRIORITY
00043  M00S00042.comccpm +++|****
00044  M00S00043.comccpm +++|          SPACE  4
00045  M00S00044.comccpm +++|          BASE   *
00046  M00S00045.comccpm +++| QUAL$    IF     -DEF,QUAL$
00047  M00S00046.comccpm +++|          QUAL   *
00048  M00S00047.comccpm +++| CPM=     EQU    /COMCCPM/CPM=
00049  M00S00048.comccpm +++| QUAL$    ENDIF
00050  M00S00049.comccpm +++|          ENDX