Common COMCCVL

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccvl +++|          CTEXT  COMCCVL - COMMON VALIDATION INTERFACE PROCESSOR.
00002  M00S00002.comccvl +++| COMCCVL  SPACE  4,10
00003  M00S00003.comccvl +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comccvl +++|          QUAL   COMCCVL
00005  M00S00005.comccvl +++|          BASE   D

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comccvl +++|          SPACE  4
00009  M00S00008.comccvl +++|***       CVL - COMMON VALIDATION INTERFACE PROCESSOR.
00010  M00S00009.comccvl +++|*         R. E. DENNIS.      77/02/07.
00011  M00S00010.comccvl +++|          SPACE  4
00012  M00S00011.comccvl +++|***              CVL CALLS THE PP PROGRAM *CVL* TO PERFORM VALIDATON
00013  M00S00012.comccvl +++|*         OF ON-LINE DIAGNOSTIC USERS AND EQUIPMENT TO BE TESTED.
00014  M00S00013.comccvl +++|*
00015  M00S00014.comccvl +++|*         ENTRY  (X1) = ADDRESS OF PARAMETER BLOCK.
00016  M00S00015.comccvl +++|*                (X2) = REQUEST.
00017  M00S00016.comccvl +++|*
00018  M00S00017.comccvl +++|*         USES   X - 1, 2, 6.
00019  M00S00018.comccvl +++|*
00020  M00S00019.comccvl +++|*         CALLS  SYS=.
00021  M00S00020.comccvl +++|
00022  M00S00021.comccvl +++|
00023  M00S00022.comccvl +++| CVL1     RJ     =XSYS=      MAKE RA+1 CALL
00024  M00S00023.comccvl +++|
00025  M00S00024.comccvl +++| CVL=     PS                 ENTRY/EXIT
00026  M00S00025.comccvl +++|          MX6    -18         POSITION PARAMETER BLOCK ADDRESS
00027  M00S00026.comccvl +++|          BX1    -X6*X1
00028  M00S00027.comccvl +++|          LX2    18
00029  M00S00028.comccvl +++|          SX6    4RCVLP/16   SET *CVL* CALL
00030  M00S00029.comccvl +++|          BX1    X2+X1       MERGE REQUEST
00031  M00S00030.comccvl +++|          LX6    40
00032  M00S00031.comccvl +++|          BX6    X6+X1
00033  M00S00032.comccvl +++|          EQ     CVL1        MAKE CALL
00034  M00S00033.comccvl +++|          SPACE  4,10
00035  M00S00034.comccvl +++|          BASE   *
00036  M00S00035.comccvl +++| QUAL$    IF     -DEF,QUAL$
00037  M00S00036.comccvl +++|          QUAL   *
00038  M00S00037.comccvl +++| CVL=     EQU    /COMCCVL/CVL=
00039  M00S00038.comccvl +++| QUAL$    ENDIF
00040  M00S00039.comccvl +++|          ENDX