cdc:nos2.source:opl.opl871:deck:cvlcp
Deck CVLCP
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.cvlcp +++| IDENT CVLCP,RBLK 00002 M00S00002.cvlcp +++| ABS 00003 M00S00003.cvlcp +++| SST 00004 M00S00004.cvlcp +++| ENTRY CVL 00005 M00S00005.cvlcp +++| ENTRY DMP= 00006 M00S00006.cvlcp +++| ENTRY RFL= 00007 M00S00007.cvlcp +++| ENTRY SSJ= 00008 M00S00008.cvlcp +++| SYSCOM B1 00009 M00S00009.cvlcp +++| TITLE CVLCP - CVL SCP COMMUNICATIONS. 00010 M00S00010.cvlcp +++|*COMMENT CVLCP - *CVL* SCP COMMUNICATIONS.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00013 M00S00012.cvlcp +++| SPACE 4,10 00014 M00S00013.cvlcp +++|*** CVLCP - CVL SCP COMMUNICATIONS. 00015 M00S00014.cvlcp +++|* G. S. YODER. 78/08/11. 00016 M00S00015.cvlcp +++| SPACE 4,10 00017 M00S00016.cvlcp +++|*** *CVLCP* PERFORMS VALIDATION FUNCTIONS FOR 00018 M00S00017.cvlcp +++|* MSS HARDWARE DIAGNOSTICS WHICH CANNOT BE PERFORMED 00019 M00S00018.cvlcp +++|* BY THE PPU PROGRAM *CVL*. THESE INCLUDE - 00020 M00S00019.cvlcp +++|* 00021 M00S00020.cvlcp +++|* - VALIDATE MSIDS 00022 M00S00021.cvlcp +++|* - TEST HARDWARE STATUS 00023 M00S00022.cvlcp +++|* - MOUNT CE CARTRIDGE FOR DIAGNOSTIC USE 00024 M00S00023.cvlcp +++|* 00025 M00S00024.cvlcp +++|* *CVLCP* COMMUNICATES WITH THE MSS EXECUTIVE 00026 M00S00025.cvlcp +++|* VIA *SCP* CALLS TO PERFORM THESE FUNCTIONS. 00027 M00S00026.cvlcp +++| SPACE 4,10 00028 M00S00027.cvlcp +++|** SPECIAL ENTRY POINTS. 00029 M00S00028.cvlcp +++| 00030 M00S00029.cvlcp +++| 00031 M00S00030.cvlcp +++| DMP= EQU 100000B SELECT NO DUMP IF CONTROL CARD CALL 00032 M00S00031.cvlcp +++| SSJ= EQU 0 00033 M00S00032.cvlcp +++| 00034 M00S00033.cvlcp +++| 00035 M00S00034.cvlcp +++| ORG 110B 00036 M00S00035.cvlcp +++| SPACE 4,10 00037 M00S00036.cvlcp +++|*CALL COMCMAC 00038 M00S00037.cvlcp +++|*CALL COMSSSD 00039 M00S00038.cvlcp +++| 00040 M00S00039.cvlcp +++| 00041 M00S00040.cvlcp +++| RBLK VFD 36/0,6/RBLKL-1,4/0,2/2,12/0 SCP CALL BLOCK 00042 M00S00041.cvlcp +++| BSSZ 2 00043 M00S00042.cvlcp +++| RBLKL EQU *-RBLK 00044 M00S00043.cvlcp +++| 00045 M00S00044.cvlcp +++| TPMB EQU SPPR+1 CVL CALL PARAMETER BLOCK 00046 M00S00045.cvlcp +++| TITLE MAIN PROGRAM. 00047 M00S00046.cvlcp +++|** CVLCP - MAIN PROGRAM. 00048 M00S00047.cvlcp +++| 00049 M00S00048.cvlcp +++| 00050 M00S00049.cvlcp +++| CVL SB1 1 00051 M00S00050.cvlcp +++| SA1 ACTR CHECK CALL TYPE 00052 M00S00051.cvlcp +++| ZR X1,CVL1 IF *CVL* CALL 00053 M00S00052.cvlcp +++| MESSAGE (=C* ILLEGAL CONTROL CARD.*),0,R 00054 M00S00053.cvlcp +++| ABORT 00055 M00S00054.cvlcp +++| 00056 M00S00055.cvlcp +++|* ESTABLISH CONECTION WITH MSS EXECUTIVE. 00057 M00S00056.cvlcp +++| 00058 M00S00057.cvlcp +++| CVL1 MX0 -12 00059 M00S00058.cvlcp +++| SX5 B0 CLEAR ERROR CODE 00060 M00S00059.cvlcp +++| BX2 X2-X2 00061 M00S00060.cvlcp +++| SX6 101B SET ESTABLISH CONECTION 00062 M00S00061.cvlcp +++| RJ CSS CALL EXECUTIVE 00063 M00S00062.cvlcp +++| NZ X5,CVL6 IF EXECUTIVE NOT RUNNING 00064 M00S00063.cvlcp +++| 00065 M00S00064.cvlcp +++|* VALIDATE DEVICE ACCESS. 00066 M00S00065.cvlcp +++| 00067 M00S00066.cvlcp +++| SA3 TPMB+1 SET EST ORDINAL 00068 M00S00067.cvlcp +++| SA1 TPMB+6 CHECK FUNCTIONAL ATTRIBUTES 00069 M00S00068.cvlcp +++| BX2 -X0*X3 00070 M00S00069.cvlcp +++| LX2 30 00071 M00S00070.cvlcp +++| BX6 X2 00072 M00S00071.cvlcp +++| SA6 CEST 00073 M00S00072.cvlcp +++| LX1 59-3 00074 M00S00073.cvlcp +++| NG X1,CVL2 IF RETURN MST REQUEST 00075 M00S00074.cvlcp +++| RJ PID PROCESS MSIDS 00076 M00S00075.cvlcp +++| NZ X5,CVL6 IF ERROR 00077 M00S00076.cvlcp +++| SA1 TPMB+5 CHECK DEVICE CODE 00078 M00S00077.cvlcp +++| BX1 -X0*X1 00079 M00S00078.cvlcp +++| SX1 X1-100B 00080 M00S00079.cvlcp +++| ZR X1,CVL3 IF MST REQUEST 00081 M00S00080.cvlcp +++| 00082 M00S00081.cvlcp +++|* PROCESS CSU REQUEST. 00083 M00S00082.cvlcp +++| 00084 M00S00083.cvlcp +++| SX6 502B SET CSU REQUEST CODE 00085 M00S00084.cvlcp +++| BX2 X2-X2 00086 M00S00085.cvlcp +++| EQ CVL5 PROCESS REQUEST 00087 M00S00086.cvlcp +++| 00088 M00S00087.cvlcp +++|* PROCESS MST RETURN. 00089 M00S00088.cvlcp +++| 00090 M00S00089.cvlcp +++| CVL2 SA4 TPMB+7 READ COORDINATES 00091 M00S00090.cvlcp +++| SX6 506B SET MST RETURN CODE 00092 M00S00091.cvlcp +++| EQ CVL4 SET COORDINATES 00093 M00S00092.cvlcp +++| 00094 M00S00093.cvlcp +++|* PROCESS MST REQUEST. 00095 M00S00094.cvlcp +++| 00096 M00S00095.cvlcp +++| CVL3 SA4 TPMB+7 CHECK X/Y COORDINATES 00097 M00S00096.cvlcp +++| BX2 X2-X2 00098 M00S00097.cvlcp +++| SX6 503B REQUEST = MST ONLY 00099 M00S00098.cvlcp +++| BX1 X4 00100 M00S00099.cvlcp +++| LX1 59-48 00101 M00S00100.cvlcp +++| PL X1,CVL5 IF COORDINATES NOT SUPPLIED 00102 M00S00101.cvlcp +++| SX6 504B SET CARTRIDGE MOUNT REQUEST 00103 M00S00102.cvlcp +++| CVL4 BX2 -X0*X4 SET COORDINATES IN REQUEST 00104 M00S00103.cvlcp +++| LX2 18 00105 M00S00104.cvlcp +++| 00106 M00S00105.cvlcp +++|* CALL EXECUTIVE. 00107 M00S00106.cvlcp +++| 00108 M00S00107.cvlcp +++| CVL5 SA3 CEST 00109 M00S00108.cvlcp +++| BX2 X2+X3 SET EST ORDINAL IN REQUEST 00110 M00S00109.cvlcp +++| RJ CSS CALL EXECUTIVE 00111 M00S00110.cvlcp +++| NZ X5,CVL6 IF ERROR 00112 M00S00111.cvlcp +++| SX5 X6+ SET POSSIBLE ERROR CODE 00113 M00S00112.cvlcp +++| SX6 X6-30B 00114 M00S00113.cvlcp +++| NZ X6,CVL6 IF NOT ILLEGAL COORDINATES ERROR 00115 M00S00114.cvlcp +++| SX5 X5+4400B SET VALIDATION ERROR BITS 00116 M00S00115.cvlcp +++| 00117 M00S00116.cvlcp +++|* SET VALIDATION BITS AND COMPLETION STATUS. 00118 M00S00117.cvlcp +++|* (X5) BITS 0-5 = ERROR CODE. 00119 M00S00118.cvlcp +++|* (X5) BITS 8-11 = VALIDATION BITS. 00120 M00S00119.cvlcp +++|* (X4) = WORD FOR VALIDATION BYTE. 00121 M00S00120.cvlcp +++|* (A4) = WORD ADDRESS FOR VALIDATION BYTE. 00122 M00S00121.cvlcp +++| 00123 M00S00122.cvlcp +++| CVL6 MX6 4 00124 M00S00123.cvlcp +++| LX5 48 00125 M00S00124.cvlcp +++| BX6 X5*X6 00126 M00S00125.cvlcp +++| MX2 -6 00127 M00S00126.cvlcp +++| ZR X6,CVL7 IF NO VALIDATION BYTE TO SET 00128 M00S00127.cvlcp +++| BX6 X4+X6 SET VALIDATION BYTE 00129 M00S00128.cvlcp +++| SA6 A4 00130 M00S00129.cvlcp +++| CVL7 SA1 TPMB SET COMPLETION STATUS 00131 M00S00130.cvlcp +++| LX2 6 00132 M00S00131.cvlcp +++| AX5 42 00133 M00S00132.cvlcp +++| BX7 -X2*X5 00134 M00S00133.cvlcp +++| SX7 X7+B1 SET POSSIBLE ERROR AND COMPLETE BIT 00135 M00S00134.cvlcp +++| SA7 A1 00136 M00S00135.cvlcp +++| 00137 M00S00136.cvlcp +++|* TERMINATE CONNECTION WITH EXECUTIVE. 00138 M00S00137.cvlcp +++| 00139 M00S00138.cvlcp +++| SX2 B0 00140 M00S00139.cvlcp +++| SX6 102B SET TERMINATE CONNECTION 00141 M00S00140.cvlcp +++| RJ CSS CALL EXECUTIVE 00142 M00S00141.cvlcp +++| ENDRUN 00143 M00S00142.cvlcp +++| 00144 M00S00143.cvlcp +++| CEST BSSZ 1 EST ORDINAL (SHIFTED 30 BITS) 00145 M00S00144.cvlcp +++| TITLE SUBROUTINES. 00146 M00S00145.cvlcp +++|** CSS - CALL MSS EXECUTIVE SUBSYSTEM. 00147 M00S00146.cvlcp +++|* 00148 M00S00147.cvlcp +++|* ENTRY (X2) = BITS 0-41 OF CALL BLOCK REQUEST WORD. 00149 M00S00148.cvlcp +++|* (X6) = MSS EXECUTIVE REQUEST TYPE AND CODE. 00150 M00S00149.cvlcp +++|* 00151 M00S00150.cvlcp +++|* EXIT (X2) = RESPONSE WORD FROM EXECUTIVE. 00152 M00S00151.cvlcp +++|* (X5) = ERROR CODE IF EXECUTIVE NOT RUNNING. 00153 M00S00152.cvlcp +++|* (X6) = RESPONSE CODE FROM EXECUTIVE. 00154 M00S00153.cvlcp +++|* 00155 M00S00154.cvlcp +++|* USES A - 1, 2, 6. 00156 M00S00155.cvlcp +++|* X - 1, 2, 5, 6. 00157 M00S00156.cvlcp +++|* 00158 M00S00157.cvlcp +++|* MACROS CALLSS, MESSAGE. 00159 M00S00158.cvlcp +++| 00160 M00S00159.cvlcp +++| 00161 M00S00160.cvlcp +++| CSS1 SX5 31B SET ERROR 00162 M00S00161.cvlcp +++| 00163 M00S00162.cvlcp +++| CSS SUBR ENTRY/EXIT 00164 M00S00163.cvlcp +++| LX6 5 SET CEVAL REQUEST IDENTIFIER 00165 M00S00164.cvlcp +++| SX6 X6+5 00166 M00S00165.cvlcp +++| LX6 43 MERGE CODE AND REQUEST WORD 00167 M00S00166.cvlcp +++| BX6 X2+X6 00168 M00S00167.cvlcp +++| SA6 RBLK+1 00169 M00S00168.cvlcp +++| SA1 RBLK CLEAR COMPLETE BIT 00170 M00S00169.cvlcp +++| MX6 59 00171 M00S00170.cvlcp +++| BX6 X6*X1 00172 M00S00171.cvlcp +++| SA6 A1 00173 M00S00172.cvlcp +++| MESSAGE (=C*WAIT MSS EXEC.*),1,R ISSUE WAIT MESSAGE 00174 M00S00173.cvlcp +++| CALLSS MFSI,RBLK,R CALL MSS EXECUTIVE 00175 M00S00174.cvlcp +++| MESSAGE =0,1,R CLEAR WAIT MESSAGE 00176 M00S00175.cvlcp +++| SA1 RBLK CHECK REPLY STATUS 00177 M00S00176.cvlcp +++| LX1 59-1 00178 M00S00177.cvlcp +++| NG X1,CSS1 IF EXECUTIVE NOT RUNNING 00179 M00S00178.cvlcp +++| SA2 RBLK+2 GET RESPONSE WORD 00180 M00S00179.cvlcp +++| MX6 6 00181 M00S00180.cvlcp +++| BX6 X2*X6 00182 M00S00181.cvlcp +++| LX6 6 00183 M00S00182.cvlcp +++| EQ CSSX EXIT 00184 M00S00183.cvlcp +++| PID SPACE 4,20 00185 M00S00184.cvlcp +++|** PID - PROCESS MSIDS. 00186 M00S00185.cvlcp +++|* 00187 M00S00186.cvlcp +++|* ENTRY (X0) = -7777B. 00188 M00S00187.cvlcp +++|* (X2) = EST ORDINAL (SHIFTED 30 BITS). 00189 M00S00188.cvlcp +++|* (X5) = 0. 00190 M00S00189.cvlcp +++|* 00191 M00S00190.cvlcp +++|* EXIT (A4) = MSID WORD ADDRESS. 00192 M00S00191.cvlcp +++|* (X4) = MSID WORD FROM CALL BLOCK. 00193 M00S00192.cvlcp +++|* (X5) = 0 IF NO ERROR. 00194 M00S00193.cvlcp +++|* (X5) = ERROR CODE IF ERROR. 00195 M00S00194.cvlcp +++|* 00196 M00S00195.cvlcp +++|* USES A - 4, 6. 00197 M00S00196.cvlcp +++|* X - 1, 2, 4, 5, 6. 00198 M00S00197.cvlcp +++|* 00199 M00S00198.cvlcp +++|* CALLS CSS. 00200 M00S00199.cvlcp +++| 00201 M00S00200.cvlcp +++| 00202 M00S00201.cvlcp +++| PID2 SX5 32B SET EQUIPMENT ACCESS ERROR 00203 M00S00202.cvlcp +++| 00204 M00S00203.cvlcp +++| PID SUBR ENTRY/EXIT 00205 M00S00204.cvlcp +++| SX6 501B SET RETURN MSIDS REQUEST 00206 M00S00205.cvlcp +++| RJ CSS CALL EXECUTIVE 00207 M00S00206.cvlcp +++| NZ X5,PIDX IF EXECUTIVE NOT RUNNING 00208 M00S00207.cvlcp +++| SA4 TPMB+10B READ MSID WORD FROM CALL BLOCK 00209 M00S00208.cvlcp +++| NZ X6,PID2 IF MSID READ ERROR 00210 M00S00209.cvlcp +++| BX2 -X0*X2 ISOLATE RETURNED MSIDS 00211 M00S00210.cvlcp +++| LX4 59-48 00212 M00S00211.cvlcp +++| PL X4,PID1 IF MSIDS NOT SUPPLIED BY CALLER 00213 M00S00212.cvlcp +++| LX4 11-35+60-59+48 00214 M00S00213.cvlcp +++| BX1 -X0*X4 ISOLATE SUPPLIED MSIDS 00215 M00S00214.cvlcp +++| BX1 X1-X2 00216 M00S00215.cvlcp +++| ZR X1,PIDX IF MATCH ON MSIDS 00217 M00S00216.cvlcp +++| SX5 4404B SET MSID MATCH ERROR 00218 M00S00217.cvlcp +++| EQ PIDX EXIT WITH ERROR 00219 M00S00218.cvlcp +++| 00220 M00S00219.cvlcp +++| PID1 LX4 11-35+60-59+48 SET MSIDS IN CALL BLOCK 00221 M00S00220.cvlcp +++| BX6 X0*X4 00222 M00S00221.cvlcp +++| BX6 X2+X6 00223 M00S00222.cvlcp +++| LX6 35-11 00224 M00S00223.cvlcp +++| SA6 A4 00225 M00S00224.cvlcp +++| EQ PIDX EXIT 00226 M00S00225.cvlcp +++| SPACE 4 00227 M00S00226.cvlcp +++|*CALL COMCSYS 00228 M00S00227.cvlcp +++| 00229 M00S00228.cvlcp +++| 00230 M00S00229.cvlcp +++| USE // 00231 M00S00230.cvlcp +++| RFL= BSS 0 00232 M00S00231.cvlcp +++| 00233 M00S00232.cvlcp +++| 00234 M00S00233.cvlcp +++| END
cdc/nos2.source/opl.opl871/deck/cvlcp.txt · Last modified: by 127.0.0.1