Common COMCCVL

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccvl +++|          CTEXT  COMCCVL - COMMON VALIDATION INTERFACE PROCESSOR.
00002  M01S00002.comccvl +++| COMCCVL  SPACE  4,10
00003  M01S00003.comccvl +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccvl +++|          QUAL   COMCCVL
00005  M01S00005.comccvl +++|          BASE   D

Line S00006 Modification History
`M01` (Added by)	`comccvl`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comccvl +++|          SPACE  4
00009  M01S00008.comccvl +++|***       CVL - COMMON VALIDATION INTERFACE PROCESSOR.
00010  M01S00009.comccvl +++|*         R. E. DENNIS.      77/02/07.
00011  M01S00010.comccvl +++|          SPACE  4
00012  M01S00011.comccvl +++|***              CVL CALLS THE PP PROGRAM *CVL* TO PERFORM VALIDATON
00013  M01S00012.comccvl +++|*         OF ON-LINE DIAGNOSTIC USERS AND EQUIPMENT TO BE TESTED.
00014  M01S00013.comccvl +++|*
00015  M01S00014.comccvl +++|*         ENTRY  (X1) = ADDRESS OF PARAMETER BLOCK.
00016  M01S00015.comccvl +++|*                (X2) = REQUEST.
00017  M01S00016.comccvl +++|*
00018  M01S00017.comccvl +++|*         USES   X - 1, 2, 6.
00019  M01S00018.comccvl +++|*
00020  M01S00019.comccvl +++|*         CALLS  SYS=.
00021  M01S00020.comccvl +++|
00022  M01S00021.comccvl +++|
00023  M01S00022.comccvl +++| CVL1     RJ     =XSYS=      MAKE RA+1 CALL
00024  M01S00023.comccvl +++|
00025  M01S00024.comccvl +++| CVL=     PS                 ENTRY/EXIT
00026  M01S00025.comccvl +++|          MX6    -18         POSITION PARAMETER BLOCK ADDRESS
00027  M01S00026.comccvl +++|          BX1    -X6*X1
00028  M01S00027.comccvl +++|          LX2    18
00029  M01S00028.comccvl +++|          SX6    4RCVLP/16   SET *CVL* CALL
00030  M01S00029.comccvl +++|          BX1    X2+X1       MERGE REQUEST
00031  M01S00030.comccvl +++|          LX6    40
00032  M01S00031.comccvl +++|          BX6    X6+X1
00033  M01S00032.comccvl +++|          EQ     CVL1        MAKE CALL
00034  M01S00033.comccvl +++|          SPACE  4,10
00035  M01S00034.comccvl +++|          BASE   *
00036  M01S00035.comccvl +++| QUAL$    IF     -DEF,QUAL$
00037  M01S00036.comccvl +++|          QUAL   *
00038  M01S00037.comccvl +++| CVL=     EQU    /COMCCVL/CVL=
00039  M01S00038.comccvl +++| QUAL$    ENDIF
00040  M01S00039.comccvl +++|          ENDX