cdc:nos2.source:opl.opl871:deck:0ct
Deck 0CT
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0ct ---| IDENT 0CT,/REL/LCCX 00002 M00S00002.0ct ---| PERIPH J 00003 M00S00003.0ct ---| BASE MIXED 00004 M00S00004.0ct ---| SST 00005 M00S00005.0ct ---|*COMMENT 0CT - LOAD CTS/CCC CONTROLWARE.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1992.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.0ct +++| TITLE 0CT - LOAD CTS/CCC CONTROLWARE 00009 M00S00008.0ct +++| SPACE 4,10 00010 M00S00009.0ct +++|*** 0CT - LOAD CTS/CCC CONTROLWARE. 00011 M00S00010.0ct +++|* 00012 M00S00011.0ct +++|* P. C. SMITH. 92/04/21. 00013 M00S00012.0ct +++| SPACE 4,10 00014 M00S00013.0ct +++|*** *0CT* IS A LOCATION FREE ROUTINE CALLED BY *1MT* 00015 M00S00014.0ct +++|* TO LOAD CTS/CCC CONTROLWARE ON *MAGNET* INTITIATION, AND 00016 M00S00015.0ct +++|* DURING TAPE ERROR RECOVERY. 00017 M00S00016.0ct +++| SPACE 4,10 00018 M00S00017.0ct +++|*** ENTRY CONDITIONS. 00019 M00S00018.0ct +++|* 00020 M00S00019.0ct +++|* (CN) = CHANNEL NUMBER. 00021 M00S00020.0ct +++|* (CN+1) = ADDRESS OF 100B CM WORD BUFFER. 00022 M00S00021.0ct +++|* 00023 M00S00022.0ct +++|* 00024 M00S00023.0ct +++|* USES CM - CM+4, CN - CN+4, T1 - T1+4. 00025 M00S00024.0ct +++| SPACE 4,10 00026 M00S00025.0ct +++|*** EXIT CONDITIONS. 00027 M00S00026.0ct +++|* 00028 M00S00027.0ct +++|* (CN) = 0 IF NO ERROR. 00029 M00S00028.0ct +++|* (CN) = ERROR CODE IF ERROR. 00030 M00S00029.0ct +++|* (CN) = 7777 IF MICROCODE NOT FOUND. 00031 M00S00030.0ct +++|* (CN+1) = LAST FUNCTION ISSUED TO CCC. 00032 M00S00031.0ct +++|* (CN+2) = MICROCODE REVISION. 00033 M00S00032.0ct +++| SPACE 4,10 00034 M00S00033.0ct +++|**** DIRECT LOCATION ASSIGNMENTS. 00035 M00S00034.0ct +++| 00036 M00S00035.0ct +++| 00037 M00S00036.0ct +++| DS EQU 24 DEVICE STATUS 00038 M00S00037.0ct +++| CN EQU 62 - 66 CM BUFFER 00039 M00S00038.0ct +++| SPACE 4,10 00040 M00S00039.0ct +++|* ASSEMBLY CONSTANTS. 00041 M00S00040.0ct +++| 00042 M00S00041.0ct +++| 00043 M00S00042.0ct +++| CH EQU 13 CHANNEL NUMBER 00044 M00S00043.0ct +++| F0012 EQU 0012 GENERAL STATUS FUNCTION 00045 M00S00044.0ct +++| F0414 EQU 0414 AUTOLOAD FUNCTION 00046 M00S00045.0ct +++| 00047 M00S00046.0ct +++|**** 00048 M00S00047.0ct +++| SPACE 4,10 00049 M00S00048.0ct +++|** COMMON DECKS. 00050 M00S00049.0ct +++| 00051 M00S00050.0ct +++| 00052 M00S00051.0ct +++|*CALL COMPMAC 00053 M00S00052.0ct +++| QUAL MTX 00054 M00S00053.0ct +++|*CALL COMSMTX 00055 M00S00054.0ct +++| QUAL * 00056 M00S00055.0ct +++|*CALL COMSZOL 00057 M00S00056.0ct +++| REL$ SET 1 DEFINE FULL RELOCATION 00058 M00S00057.0ct +++|*CALL COMPRLI 00059 M00S00058.0ct +++|*CALL COMPCHM 00060 M00S00059.0ct +++| TITLE MAIN PROGRAM. 00061 M00S00060.0ct +++| LCC SPACE 4,10 00062 M00S00061.0ct +++|** LCC - MAIN ROUTINE. 00063 M00S00062.0ct +++| 00064 M00S00063.0ct +++| 00065 M00S00064.0ct +++| LCC SUBR ENTRY/EXIT 00066 M00S00065.0ct +++| REL$ EQU 1 SET FULL RELOCATION 00067 M00S00066.0ct +++| RJM. REL,LA RELOCATE ADDRESSES 00068 M00S00067.0ct +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 00069 M00S00068.0ct +++| LDD CN+1 SET CONTROLWARE BUFFER ADDRESS 00070 M00S00069.0ct +++| STM LCCA 00071 M00S00070.0ct +++| STM LCCB 00072 M00S00071.0ct +++| LCC1 DELAY 00073 M00S00072.0ct +++| LDK PLDP CHECK PERIPHERAL DIRECTORY POINTER 00074 M00S00073.0ct +++| CRD CM 00075 M00S00074.0ct +++| LDD CM 00076 M00S00075.0ct +++| ADD CM+1 00077 M00S00076.0ct +++| ZJN LCC1 IF SYSEDIT IN PROGRESS 00078 M00S00077.0ct +++| 00079 M00S00078.0ct +++|* FIND CCC MICROCODE. 00080 M00S00079.0ct +++| 00081 M00S00080.0ct +++| LDN ZERL 00082 M00S00081.0ct +++| CRD CM 00083 M00S00082.0ct +++| LDD MA PUT CONTROLWARE ID IN MESSAGE BUFFER 00084 M00S00083.0ct +++| CWM LCCE,ON 00085 M00S00084.0ct +++| MONITOR SCDM SEARCH CENTRAL DIRECTORY 00086 M00S00085.0ct +++| LDD CM+3 00087 M00S00086.0ct +++| SHN 14 00088 M00S00087.0ct +++| LMD CM+4 00089 M00S00088.0ct +++| CRD CM READ *PST* ENTRY 00090 M00S00089.0ct +++| LDD CM+1 00091 M00S00090.0ct +++| SHN 21-12 00092 M00S00091.0ct +++| PJP LCC5 IF NOT CM RESIDENT 00093 M00S00092.0ct +++| LDD CM+3 GET ADDRESS OF *RCL* ENTRY 00094 M00S00093.0ct +++| SHN 14 00095 M00S00094.0ct +++| LMD CM+4 00096 M00S00095.0ct +++| ADN 1 00097 M00S00096.0ct +++| CRD CN READ 5200 RECORD HEADER 00098 M00S00097.0ct +++| ADN 6 00099 M00S00098.0ct +++| CRD T1 00100 M00S00099.0ct +++| SBN 5 SET FWA OF 5200 RECORD DATA 00101 M00S00100.0ct +++| STD CM+4 00102 M00S00101.0ct +++| SHN -14 00103 M00S00102.0ct +++| STD CM+3 00104 M00S00103.0ct +++| LCN 1 ADJUST WORD COUNT FOR HEADER 00105 M00S00104.0ct +++| RAD CN+4 00106 M00S00105.0ct +++| LDD T3 00107 M00S00106.0ct +++| STD CN+2 SAVE MICROCODE REVISION 00108 M00S00107.0ct +++| 00109 M00S00108.0ct +++|* LOAD CCC MICROCODE. 00110 M00S00109.0ct +++| 00111 M00S00110.0ct +++| LDC F0414 AUTOLOAD FUNCTION 00112 M00S00111.0ct +++| RJM ICF ISSUE CTS FUNCTION 00113 M00S00112.0ct +++| NJP LCC6 IF FUNCTION TIMEOUT 00114 M00S00113.0ct +++| ACN CH 00115 M00S00114.0ct +++| LDD CN+4 00116 M00S00115.0ct +++| LCC2 SBD HN 00117 M00S00116.0ct +++| MJN LCC3 IF LESS THAN 100B WORDS LEFT 00118 M00S00117.0ct +++| LDN 0 00119 M00S00118.0ct +++| LCC3 ADD HN 00120 M00S00119.0ct +++| STD T1 00121 M00S00120.0ct +++| LDD CM+3 00122 M00S00121.0ct +++| SHN 14 00123 M00S00122.0ct +++| LMD CM+4 00124 M00S00123.0ct +++| CRM. **,T1 READ FROM CM 00125 M00S00124.0ct +++| LCCA EQU *-1 (ADDRESS OF CONTROLWARE BUFFER) 00126 M00S00125.0ct +++| STD CM+4 UPDATE CM ADDRESS 00127 M00S00126.0ct +++| SHN -14 00128 M00S00127.0ct +++| STD CM+3 00129 M00S00128.0ct +++| LDD T1 SET BYTES TO TRANSFER 00130 M00S00129.0ct +++| SHN 2 00131 M00S00130.0ct +++| ADD T1 00132 M00S00131.0ct +++| OAM **,CH LOAD BLOCK OF CONTROLWARE TO CCC 00133 M00S00132.0ct +++| LCCB EQU *-1 (ADDRESS OF CONTROLWARE BUFFER) 00134 M00S00133.0ct +++| FJM *,CH IF TRANSFER NOT COMPLETE 00135 M00S00134.0ct +++| LCCC EQU *-1 (ADDRESS TO BE RELOCATED) 00136 M00S00135.0ct +++| NJN LCC4 IF INCOMPLETE TRANSFER 00137 M00S00136.0ct +++| LDD CN+4 00138 M00S00137.0ct +++| SBD T1 00139 M00S00138.0ct +++| STD CN+4 00140 M00S00139.0ct +++| NJN LCC2 IF MORE WORDS TO TRANSFER 00141 M00S00140.0ct +++| LDN F0012 GENERAL STATUS FUNCTION 00142 M00S00141.0ct +++| RJM ICF ISSUE FUNCTION 00143 M00S00142.0ct +++| NJN LCC6 IF FUNCTION TIMEOUT 00144 M00S00143.0ct +++| ACN CH 00145 M00S00144.0ct +++| LDN 1 00146 M00S00145.0ct +++| IAM DS,CH INPUT GENERAL STATUS 00147 M00S00146.0ct +++| NJN LCC4 IF WORD NOT RECEIVED 00148 M00S00147.0ct +++| SFM LCC4,CH IF ERROR FLAG SET 00149 M00S00148.0ct +++| LCCD EQU *-1 (ADDRESS TO BE RELOCATED) 00150 M00S00149.0ct +++| LDD DS 00151 M00S00150.0ct +++| SHN 0-13 00152 M00S00151.0ct +++| ZJN LCC6 IF NO ERROR 00153 M00S00152.0ct +++| LCC4 LDN /MTX/CMF CHANNEL MALFUNCTION 00154 M00S00153.0ct +++| UJN LCC6 SAVE ERROR CODE 00155 M00S00154.0ct +++| 00156 M00S00155.0ct +++| LCC5 LCN 0 INDICATE MICROCODE NOT FOUND 00157 M00S00156.0ct +++| LCC6 STD CN 00158 M00S00157.0ct +++| LJM LCCX RETURN 00159 M00S00158.0ct +++| 00160 M00S00159.0ct +++| 00161 M00S00160.0ct +++| LCCE VFD 30/0LMB468,30/0 00162 M00S00161.0ct +++| ICF SPACE 4,10 00163 M00S00162.0ct +++|** ICF - ISSUE CCC/CTS FUNCTION. 00164 M00S00163.0ct +++|* 00165 M00S00164.0ct +++|* ENTRY (A) = FUNCTION. 00166 M00S00165.0ct +++|* 00167 M00S00166.0ct +++|* EXIT (A) = 0 IF NO ERROR. 00168 M00S00167.0ct +++|* (A) = ERROR CODE IF ERROR. 00169 M00S00168.0ct +++|* (CN+1) = FUNCTION THAT WAS ISSUED. 00170 M00S00169.0ct +++| 00171 M00S00170.0ct +++| 00172 M00S00171.0ct +++| ICF2 LDN 0 00173 M00S00172.0ct +++| 00174 M00S00173.0ct +++| ICF SUBR ENTRY/EXIT 00175 M00S00174.0ct +++| DCN CH ENSURE CHANNEL IS INACTIVE 00176 M00S00175.0ct +++| STD CN+1 SAVE FUNCTION 00177 M00S00176.0ct +++| FAN CH ISSUE THE FUNCTION 00178 M00S00177.0ct +++| LCN 0 00179 M00S00178.0ct +++| ICF1 IJM ICF2,CH IF FUNCTION REPLY RECEIVED 00180 M00S00179.0ct +++| ICFA EQU *-1 (ADDRESS TO BE RELOCATED) 00181 M00S00180.0ct +++| SBN 1 00182 M00S00181.0ct +++| NJN ICF1 IF TIMEOUT NOT EXPIRED 00183 M00S00182.0ct +++| LDN /MTX/FRJ FUNCTION REJECT 00184 M00S00183.0ct +++| UJN ICFX RETURN 00185 M00S00184.0ct +++| MCI SPACE 4,10 00186 M00S00185.0ct +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 00187 M00S00186.0ct +++|* 00188 M00S00187.0ct +++|* ENTRY (CN) = CHANNEL NUMBER. 00189 M00S00188.0ct +++|* (LA) = LOAD ADDRESS. 00190 M00S00189.0ct +++|* 00191 M00S00190.0ct +++|* USES T3. 00192 M00S00191.0ct +++| 00193 M00S00192.0ct +++| 00194 M00S00193.0ct +++| MCI SUBR ENTRY/EXIT 00195 M00S00194.0ct +++| LDC. MCIA 00196 M00S00195.0ct +++| STD T3 ADDRESS OF CHANNEL TABLE 00197 M00S00196.0ct +++| MCI1 LDI T3 GET ADDRESS OF CHANNEL INSTRUCTION 00198 M00S00197.0ct +++| ZJN MCIX IF END OF CHANNEL TABLE 00199 M00S00198.0ct +++| ADD LA RELOCATE ADDRESS 00200 M00S00199.0ct +++| STD T0 00201 M00S00200.0ct +++| LDI T0 00202 M00S00201.0ct +++| SCN 37 00203 M00S00202.0ct +++| LMD CN SET CHANNEL NUMBER 00204 M00S00203.0ct +++| STI T0 00205 M00S00204.0ct +++| AOD T3 00206 M00S00205.0ct +++| UJN MCI1 CONTINUE MODIFYING CHANNEL INSTRUCTIONS 00207 M00S00206.0ct +++| 00208 M00S00207.0ct +++| LIST G 00209 M00S00208.0ct +++| 00210 M00S00209.0ct +++| MCIA CHTB CH CHANNEL TABLE 00211 M00S00210.0ct +++| SPACE 4,10 00212 M00S00211.0ct +++|* ASSEMBLE RELOCATION CODE. 00213 M00S00212.0ct +++|* 00214 M00S00213.0ct +++|* NOTE - DUE TO THE INTERACTION OF COMMON DECKS *COMPRLI* AND 00215 M00S00214.0ct +++|* *COMPCHM*, THE ADDRESS OF ANY INSTRUCTION WHICH 00216 M00S00215.0ct +++|* SPECIFIES BOTH A CHANNEL NUMBER AND A RELOCATABLE 00217 M00S00216.0ct +++|* ADDRESS MUST BE MANUALLY ADDED TO THE FOLLOWING TABLE. 00218 M00S00217.0ct +++| 00219 M00S00218.0ct +++| 00220 M00S00219.0ct +++| HERE 00221 M00S00220.0ct +++| CON LCCC 00222 M00S00221.0ct +++| CON LCCD 00223 M00S00222.0ct +++| CON ICFA 00224 M00S00223.0ct +++| CON 0 00225 M00S00224.0ct +++| SPACE 4,10 00226 M00S00225.0ct +++|* CHECK FOR OVERFLOW. 00227 M00S00226.0ct +++| 00228 M00S00227.0ct +++| 00229 M00S00228.0ct +++| ERRPL *-ZCTL *0CT* OVERFLOWS CALLING PROGRAM 00230 M00S00229.0ct +++| 00231 M00S00230.0ct +++| END
cdc/nos2.source/opl.opl871/deck/0ct.txt · Last modified: (external edit)