cdc:nos2.source:opl.opl871:common:comccvl
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
cdc/nos2.source/opl.opl871/common/comccvl.txt ยท Last modified: by 127.0.0.1