COMCCVL 
COMMON
          CTEXT  COMCCVL - COMMON VALIDATION INTERFACE PROCESSOR. 
 COMCCVL  SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   COMCCVL
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       CVL - COMMON VALIDATION INTERFACE PROCESSOR.
*         R. E. DENNIS.      77/02/07.
          SPACE  4
***              CVL CALLS THE PP PROGRAM *CVL* TO PERFORM VALIDATON
*         OF ON-LINE DIAGNOSTIC USERS AND EQUIPMENT TO BE TESTED. 
* 
*         ENTRY  (X1) = ADDRESS OF PARAMETER BLOCK. 
*                (X2) = REQUEST.
* 
*         USES   X - 1, 2, 6. 
* 
*         CALLS  SYS=.
  
  
 CVL1     RJ     =XSYS=      MAKE RA+1 CALL 
  
 CVL=     PS                 ENTRY/EXIT 
          MX6    -18         POSITION PARAMETER BLOCK ADDRESS 
          BX1    -X6*X1 
          LX2    18 
          SX6    4RCVLP/16   SET *CVL* CALL 
          BX1    X2+X1       MERGE REQUEST
          LX6    40 
          BX6    X6+X1
          EQ     CVL1        MAKE CALL
          SPACE  4,10 
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CVL=     EQU    /COMCCVL/CVL=
 QUAL$    ENDIF 
          ENDX
