cdc:nos2.source:opl.opl871:deck:0ct
Deck 0CT
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.0ct +++| IDENT 0CT,/REL/LCCX 00002 M01S00002.0ct +++| PERIPH J 00003 M01S00003.0ct +++| BASE MIXED 00004 M01S00004.0ct +++| SST 00005 M01S00005.0ct +++|*COMMENT 0CT - LOAD CTS/CCC CONTROLWARE.
Line S00006 Modification History | |
---|---|
M01 (Added by) | 0ct |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1992. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.0ct +++| TITLE 0CT - LOAD CTS/CCC CONTROLWARE 00009 M01S00008.0ct +++| SPACE 4,10 00010 M01S00009.0ct +++|*** 0CT - LOAD CTS/CCC CONTROLWARE. 00011 M01S00010.0ct +++|* 00012 M01S00011.0ct +++|* P. C. SMITH. 92/04/21. 00013 M01S00012.0ct +++| SPACE 4,10 00014 M01S00013.0ct +++|*** *0CT* IS A LOCATION FREE ROUTINE CALLED BY *1MT* 00015 M01S00014.0ct +++|* TO LOAD CTS/CCC CONTROLWARE ON *MAGNET* INTITIATION, AND 00016 M01S00015.0ct +++|* DURING TAPE ERROR RECOVERY. 00017 M01S00016.0ct +++| SPACE 4,10 00018 M01S00017.0ct +++|*** ENTRY CONDITIONS. 00019 M01S00018.0ct +++|* 00020 M01S00019.0ct +++|* (CN) = CHANNEL NUMBER. 00021 M01S00020.0ct +++|* (CN+1) = ADDRESS OF 100B CM WORD BUFFER. 00022 M01S00021.0ct +++|* 00023 M01S00022.0ct +++|* 00024 M01S00023.0ct +++|* USES CM - CM+4, CN - CN+4, T1 - T1+4. 00025 M01S00024.0ct +++| SPACE 4,10 00026 M01S00025.0ct +++|*** EXIT CONDITIONS. 00027 M01S00026.0ct +++|* 00028 M01S00027.0ct +++|* (CN) = 0 IF NO ERROR. 00029 M01S00028.0ct +++|* (CN) = ERROR CODE IF ERROR. 00030 M01S00029.0ct +++|* (CN) = 7777 IF MICROCODE NOT FOUND. 00031 M01S00030.0ct +++|* (CN+1) = LAST FUNCTION ISSUED TO CCC. 00032 M01S00031.0ct +++|* (CN+2) = MICROCODE REVISION. 00033 M01S00032.0ct +++| SPACE 4,10 00034 M01S00033.0ct +++|**** DIRECT LOCATION ASSIGNMENTS. 00035 M01S00034.0ct +++| 00036 M01S00035.0ct +++| 00037 M01S00036.0ct +++| DS EQU 24 DEVICE STATUS 00038 M01S00037.0ct +++| CN EQU 62 - 66 CM BUFFER 00039 M01S00038.0ct +++| SPACE 4,10 00040 M01S00039.0ct +++|* ASSEMBLY CONSTANTS. 00041 M01S00040.0ct +++| 00042 M01S00041.0ct +++| 00043 M01S00042.0ct +++| CH EQU 13 CHANNEL NUMBER 00044 M01S00043.0ct +++| F0012 EQU 0012 GENERAL STATUS FUNCTION 00045 M01S00044.0ct +++| F0414 EQU 0414 AUTOLOAD FUNCTION 00046 M01S00045.0ct +++| 00047 M01S00046.0ct +++|**** 00048 M01S00047.0ct +++| SPACE 4,10 00049 M01S00048.0ct +++|** COMMON DECKS. 00050 M01S00049.0ct +++| 00051 M01S00050.0ct +++| 00052 M01S00051.0ct +++|*CALL COMPMAC 00053 M01S00052.0ct +++| QUAL MTX 00054 M01S00053.0ct +++|*CALL COMSMTX 00055 M01S00054.0ct +++| QUAL * 00056 M01S00055.0ct +++|*CALL COMSZOL 00057 M01S00056.0ct +++| REL$ SET 1 DEFINE FULL RELOCATION 00058 M01S00057.0ct +++|*CALL COMPRLI 00059 M01S00058.0ct +++|*CALL COMPCHM 00060 M01S00059.0ct +++| TITLE MAIN PROGRAM. 00061 M01S00060.0ct +++| LCC SPACE 4,10 00062 M01S00061.0ct +++|** LCC - MAIN ROUTINE. 00063 M01S00062.0ct +++| 00064 M01S00063.0ct +++| 00065 M01S00064.0ct +++| LCC SUBR ENTRY/EXIT 00066 M01S00065.0ct +++| REL$ EQU 1 SET FULL RELOCATION 00067 M01S00066.0ct +++| RJM. REL,LA RELOCATE ADDRESSES 00068 M01S00067.0ct +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 00069 M01S00068.0ct +++| LDD CN+1 SET CONTROLWARE BUFFER ADDRESS 00070 M01S00069.0ct +++| STM LCCA 00071 M01S00070.0ct +++| STM LCCB 00072 M01S00071.0ct +++| LCC1 DELAY 00073 M01S00072.0ct +++| LDK PLDP CHECK PERIPHERAL DIRECTORY POINTER 00074 M01S00073.0ct +++| CRD CM 00075 M01S00074.0ct +++| LDD CM 00076 M01S00075.0ct +++| ADD CM+1 00077 M01S00076.0ct +++| ZJN LCC1 IF SYSEDIT IN PROGRESS 00078 M01S00077.0ct +++| 00079 M01S00078.0ct +++|* FIND CCC MICROCODE. 00080 M01S00079.0ct +++| 00081 M01S00080.0ct +++| LDN ZERL 00082 M01S00081.0ct +++| CRD CM 00083 M01S00082.0ct +++| LDD MA PUT CONTROLWARE ID IN MESSAGE BUFFER 00084 M01S00083.0ct +++| CWM LCCE,ON 00085 M01S00084.0ct +++| MONITOR SCDM SEARCH CENTRAL DIRECTORY 00086 M01S00085.0ct +++| LDD CM+3 00087 M01S00086.0ct +++| SHN 14 00088 M01S00087.0ct +++| LMD CM+4 00089 M01S00088.0ct +++| CRD CM READ *PST* ENTRY 00090 M01S00089.0ct +++| LDD CM+1 00091 M01S00090.0ct +++| SHN 21-12 00092 M01S00091.0ct +++| PJP LCC5 IF NOT CM RESIDENT 00093 M01S00092.0ct +++| LDD CM+3 GET ADDRESS OF *RCL* ENTRY 00094 M01S00093.0ct +++| SHN 14 00095 M01S00094.0ct +++| LMD CM+4 00096 M01S00095.0ct +++| ADN 1 00097 M01S00096.0ct +++| CRD CN READ 5200 RECORD HEADER 00098 M01S00097.0ct +++| ADN 6 00099 M01S00098.0ct +++| CRD T1 00100 M01S00099.0ct +++| SBN 5 SET FWA OF 5200 RECORD DATA 00101 M01S00100.0ct +++| STD CM+4 00102 M01S00101.0ct +++| SHN -14 00103 M01S00102.0ct +++| STD CM+3 00104 M01S00103.0ct +++| LCN 1 ADJUST WORD COUNT FOR HEADER 00105 M01S00104.0ct +++| RAD CN+4 00106 M01S00105.0ct +++| LDD T3 00107 M01S00106.0ct +++| STD CN+2 SAVE MICROCODE REVISION 00108 M01S00107.0ct +++| 00109 M01S00108.0ct +++|* LOAD CCC MICROCODE. 00110 M01S00109.0ct +++| 00111 M01S00110.0ct +++| LDC F0414 AUTOLOAD FUNCTION 00112 M01S00111.0ct +++| RJM ICF ISSUE CTS FUNCTION 00113 M01S00112.0ct +++| NJP LCC6 IF FUNCTION TIMEOUT 00114 M01S00113.0ct +++| ACN CH 00115 M01S00114.0ct +++| LDD CN+4 00116 M01S00115.0ct +++| LCC2 SBD HN 00117 M01S00116.0ct +++| MJN LCC3 IF LESS THAN 100B WORDS LEFT 00118 M01S00117.0ct +++| LDN 0 00119 M01S00118.0ct +++| LCC3 ADD HN 00120 M01S00119.0ct +++| STD T1 00121 M01S00120.0ct +++| LDD CM+3 00122 M01S00121.0ct +++| SHN 14 00123 M01S00122.0ct +++| LMD CM+4 00124 M01S00123.0ct +++| CRM. **,T1 READ FROM CM 00125 M01S00124.0ct +++| LCCA EQU *-1 (ADDRESS OF CONTROLWARE BUFFER) 00126 M01S00125.0ct +++| STD CM+4 UPDATE CM ADDRESS 00127 M01S00126.0ct +++| SHN -14 00128 M01S00127.0ct +++| STD CM+3 00129 M01S00128.0ct +++| LDD T1 SET BYTES TO TRANSFER 00130 M01S00129.0ct +++| SHN 2 00131 M01S00130.0ct +++| ADD T1 00132 M01S00131.0ct +++| OAM **,CH LOAD BLOCK OF CONTROLWARE TO CCC 00133 M01S00132.0ct +++| LCCB EQU *-1 (ADDRESS OF CONTROLWARE BUFFER) 00134 M01S00133.0ct +++| FJM *,CH IF TRANSFER NOT COMPLETE 00135 M01S00134.0ct +++| LCCC EQU *-1 (ADDRESS TO BE RELOCATED) 00136 M01S00135.0ct +++| NJN LCC4 IF INCOMPLETE TRANSFER 00137 M01S00136.0ct +++| LDD CN+4 00138 M01S00137.0ct +++| SBD T1 00139 M01S00138.0ct +++| STD CN+4 00140 M01S00139.0ct +++| NJN LCC2 IF MORE WORDS TO TRANSFER 00141 M01S00140.0ct +++| LDN F0012 GENERAL STATUS FUNCTION 00142 M01S00141.0ct +++| RJM ICF ISSUE FUNCTION 00143 M01S00142.0ct +++| NJN LCC6 IF FUNCTION TIMEOUT 00144 M01S00143.0ct +++| ACN CH 00145 M01S00144.0ct +++| LDN 1 00146 M01S00145.0ct +++| IAM DS,CH INPUT GENERAL STATUS 00147 M01S00146.0ct +++| NJN LCC4 IF WORD NOT RECEIVED 00148 M01S00147.0ct +++| SFM LCC4,CH IF ERROR FLAG SET 00149 M01S00148.0ct +++| LCCD EQU *-1 (ADDRESS TO BE RELOCATED) 00150 M01S00149.0ct +++| LDD DS 00151 M01S00150.0ct +++| SHN 0-13 00152 M01S00151.0ct +++| ZJN LCC6 IF NO ERROR 00153 M01S00152.0ct +++| LCC4 LDN /MTX/CMF CHANNEL MALFUNCTION 00154 M01S00153.0ct +++| UJN LCC6 SAVE ERROR CODE 00155 M01S00154.0ct +++| 00156 M01S00155.0ct +++| LCC5 LCN 0 INDICATE MICROCODE NOT FOUND 00157 M01S00156.0ct +++| LCC6 STD CN 00158 M01S00157.0ct +++| LJM LCCX RETURN 00159 M01S00158.0ct +++| 00160 M01S00159.0ct +++| 00161 M01S00160.0ct +++| LCCE VFD 30/0LMB468,30/0 00162 M01S00161.0ct +++| ICF SPACE 4,10 00163 M01S00162.0ct +++|** ICF - ISSUE CCC/CTS FUNCTION. 00164 M01S00163.0ct +++|* 00165 M01S00164.0ct +++|* ENTRY (A) = FUNCTION. 00166 M01S00165.0ct +++|* 00167 M01S00166.0ct +++|* EXIT (A) = 0 IF NO ERROR. 00168 M01S00167.0ct +++|* (A) = ERROR CODE IF ERROR. 00169 M01S00168.0ct +++|* (CN+1) = FUNCTION THAT WAS ISSUED. 00170 M01S00169.0ct +++| 00171 M01S00170.0ct +++| 00172 M01S00171.0ct +++| ICF2 LDN 0 00173 M01S00172.0ct +++| 00174 M01S00173.0ct +++| ICF SUBR ENTRY/EXIT 00175 M01S00174.0ct +++| DCN CH ENSURE CHANNEL IS INACTIVE 00176 M01S00175.0ct +++| STD CN+1 SAVE FUNCTION 00177 M01S00176.0ct +++| FAN CH ISSUE THE FUNCTION 00178 M01S00177.0ct +++| LCN 0 00179 M01S00178.0ct +++| ICF1 IJM ICF2,CH IF FUNCTION REPLY RECEIVED 00180 M01S00179.0ct +++| ICFA EQU *-1 (ADDRESS TO BE RELOCATED) 00181 M01S00180.0ct +++| SBN 1 00182 M01S00181.0ct +++| NJN ICF1 IF TIMEOUT NOT EXPIRED 00183 M01S00182.0ct +++| LDN /MTX/FRJ FUNCTION REJECT 00184 M01S00183.0ct +++| UJN ICFX RETURN 00185 M01S00184.0ct +++| MCI SPACE 4,10 00186 M01S00185.0ct +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 00187 M01S00186.0ct +++|* 00188 M01S00187.0ct +++|* ENTRY (CN) = CHANNEL NUMBER. 00189 M01S00188.0ct +++|* (LA) = LOAD ADDRESS. 00190 M01S00189.0ct +++|* 00191 M01S00190.0ct +++|* USES T3. 00192 M01S00191.0ct +++| 00193 M01S00192.0ct +++| 00194 M01S00193.0ct +++| MCI SUBR ENTRY/EXIT 00195 M01S00194.0ct +++| LDC. MCIA 00196 M01S00195.0ct +++| STD T3 ADDRESS OF CHANNEL TABLE 00197 M01S00196.0ct +++| MCI1 LDI T3 GET ADDRESS OF CHANNEL INSTRUCTION 00198 M01S00197.0ct +++| ZJN MCIX IF END OF CHANNEL TABLE 00199 M01S00198.0ct +++| ADD LA RELOCATE ADDRESS 00200 M01S00199.0ct +++| STD T0 00201 M01S00200.0ct +++| LDI T0 00202 M01S00201.0ct +++| SCN 37 00203 M01S00202.0ct +++| LMD CN SET CHANNEL NUMBER 00204 M01S00203.0ct +++| STI T0 00205 M01S00204.0ct +++| AOD T3 00206 M01S00205.0ct +++| UJN MCI1 CONTINUE MODIFYING CHANNEL INSTRUCTIONS 00207 M01S00206.0ct +++| 00208 M01S00207.0ct +++| LIST G 00209 M01S00208.0ct +++| 00210 M01S00209.0ct +++| MCIA CHTB CH CHANNEL TABLE 00211 M01S00210.0ct +++| SPACE 4,10 00212 M01S00211.0ct +++|* ASSEMBLE RELOCATION CODE. 00213 M01S00212.0ct +++|* 00214 M01S00213.0ct +++|* NOTE - DUE TO THE INTERACTION OF COMMON DECKS *COMPRLI* AND 00215 M01S00214.0ct +++|* *COMPCHM*, THE ADDRESS OF ANY INSTRUCTION WHICH 00216 M01S00215.0ct +++|* SPECIFIES BOTH A CHANNEL NUMBER AND A RELOCATABLE 00217 M01S00216.0ct +++|* ADDRESS MUST BE MANUALLY ADDED TO THE FOLLOWING TABLE. 00218 M01S00217.0ct +++| 00219 M01S00218.0ct +++| 00220 M01S00219.0ct +++| HERE 00221 M01S00220.0ct +++| CON LCCC 00222 M01S00221.0ct +++| CON LCCD 00223 M01S00222.0ct +++| CON ICFA 00224 M01S00223.0ct +++| CON 0 00225 M01S00224.0ct +++| SPACE 4,10 00226 M01S00225.0ct +++|* CHECK FOR OVERFLOW. 00227 M01S00226.0ct +++| 00228 M01S00227.0ct +++| 00229 M01S00228.0ct +++| ERRPL *-ZCTL *0CT* OVERFLOWS CALLING PROGRAM 00230 M01S00229.0ct +++| 00231 M01S00230.0ct +++| END
cdc/nos2.source/opl.opl871/deck/0ct.txt ยท Last modified: by 127.0.0.1