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