Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.complda +++| CTEXT COMPLDA - CONVERT DISK ADDRESS.
00002 M00S00002.complda +++| SPACE 4,10
00003 M00S00003.complda +++| IF -DEF,QUAL$,1
00004 M00S00004.complda +++| QUAL COMPLDA
00005 M00S00005.complda +++| BASE M
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.complda +++| LDA SPACE 4,10
00009 M00S00008.complda +++|***** LDA - CONVERT DISK ADDRESS.
00010 M00S00009.complda +++|*
00011 M00S00010.complda +++|* P. D. HAAS. 78/07/25.
00012 M00S00011.complda +++| LDA SPACE 4,10
00013 M00S00012.complda +++|*** *LDA* SIMULATES THE *LDAM* MONITOR FUNCTION IN THE
00014 M00S00013.complda +++|* CONVERSION OF LOGICAL DISK ADDRESSES TO THE CORRESPONDING
00015 M00S00014.complda +++|* PHYSICAL ADDRESSES FOR A PARTICULAR EQUIPMENT TYPE. THIS
00016 M00S00015.complda +++|* CONVERSION IS VALID ONLY FOR SINGLE UNIT DEVICES.
00017 M00S00016.complda +++|*
00018 M00S00017.complda +++|* SUBROUTINE *PDA* MUST BE CALLED PRIOR TO THE FIRST *LDA*
00019 M00S00018.complda +++|* CALL TO PRESET THE PROPER ADDRESS CONVERSION PROCESSOR.
00020 M00S00019.complda +++| LDA SPACE 4,10
00021 M00S00020.complda +++| IF -DEF,UN,1
00022 M00S00021.complda +++| UN EQU CM PHYSICAL DISK ADDRESS
00023 M00S00022.complda +++| LDA SPACE 4,10
00024 M00S00023.complda +++|** LDA - CONVERT DISK ADDRESS.
00025 M00S00024.complda +++|*
00026 M00S00025.complda +++|* ENTRY (T6) = LOGICAL TRACK.
00027 M00S00026.complda +++|* (T7) = LOGICAL SECTOR.
00028 M00S00027.complda +++|* (UN) = PHYSICAL UNIT.
00029 M00S00028.complda +++|*
00030 M00S00029.complda +++|* EXIT (UN) = PHYSICAL UNIT.
00031 M00S00030.complda +++|* (UN+1) = PHYSICAL CYLINDER.
00032 M00S00031.complda +++|* (UN+2) = PHYSICAL TRACK.
00033 M00S00032.complda +++|* (UN+3) = PHYSICAL SECTOR.
00034 M00S00033.complda +++|*
| Line S00034 Modification History |
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00035 M01S00034.ns2776 ---|* CALLS CDI, CDJ, CDK, CDL, CDM, CDQ, CDX, CDY, CDZ, CDA, CDC,
00036 M01S00035.ns2776 ---|* CDD.
| Line S00001 Modification History |
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00037 M01S00001.ns2776 +++|* CALLS CDA, CDC, CDD, CDI, CDJ, CDK, CDL, CDM, CDQ, CDR,
00038 M01S00002.ns2776 +++|* CDX, CDY, CDZ.
00039 M00S00036.complda +++|
00040 M00S00037.complda +++|
00041 M00S00038.complda +++| LDA SUBR ENTRY/EXIT
00042 M00S00039.complda +++| LCN 0 INITIALIZE TRACK CALCULATION
00043 M00S00040.complda +++| STD UN+2
00044 M00S00041.complda +++| LDD T6 (A) = LOGICAL TRACK (LT)
00045 M00S00042.complda +++| LPC 3777
00046 M00S00043.complda +++| LJM CDI EXIT TO PREPROCESSOR
00047 M00S00044.complda +++| LDAA EQU *-1
00048 M00S00045.complda +++|* LJM CDJ (DJ EQUIPMENT)
00049 M00S00046.complda +++|* LJM CDK (DK EQUIPMENT)
00050 M00S00047.complda +++|* LJM CDL (DL EQUIPMENT)
00051 M00S00048.complda +++|* LJM CDM (DM EQUIPMENT)
00052 M00S00049.complda +++|* LJM CDQ (DQ EQUIPMENT)
00053 M01S00003.ns2776 +++|* LJM CDR (DR EQUIPMENT)
00054 M00S00050.complda +++|* LJM CDX (DX EQUIPMENT)
00055 M00S00051.complda +++|* LJM CDY (DY EQUIPMENT)
00056 M00S00052.complda +++|* LJM CDZ (DZ EQUIPMENT)
00057 M00S00053.complda +++|* LJM CDA (DA EQUIPMENT)
00058 M00S00054.complda +++|* LJM CDC (DC EQUIPMENT)
00059 M00S00055.complda +++|* LJM CDD (DD EQUIPMENT)
00060 M00S00056.complda +++|
00061 M00S00057.complda +++|* RETURN HERE FROM CONVERSION PROCESSORS.
00062 M00S00058.complda +++|
00063 M00S00059.complda +++| LDA1 SHN 21-0
00064 M00S00060.complda +++| STD UN+1
00065 M00S00061.complda +++| SHN 0-21
00066 M00S00062.complda +++| ZJN LDA2 IF TRACK 0 WITHIN CYLINDER
00067 M00S00063.complda +++| LDC 0
00068 M00S00064.complda +++| LDAB EQU *-1 (SECTORS PER LOGICAL TRACK)
00069 M00S00065.complda +++| LDA2 ADD T7 LOGICAL SECTOR (LS)
00070 M00S00066.complda +++| LDA3 STD UN+3 CALCULATE PHYSICAL SECTOR
| Line S00067 Modification History |
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00071 M01S00067.ns2776 ---| AOD UN+2 CALCULATE PHYSICAL TRACK
| Line S00004 Modification History |
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00072 M01S00004.ns2776 +++| LDA4 AOD UN+2 CALCULATE PHYSICAL TRACK
00073 M00S00068.complda +++| LDD UN+3
00074 M00S00069.complda +++| ADC -30
00075 M00S00070.complda +++| LDAC EQU *-1
| Line S00071 Modification History |
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00076 M01S00071.ns2776 ---|* ADC -40 (885 AND 834 EQUIPMENTS)
| Line S00005 Modification History |
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00077 M01S00005.ns2776 +++|* ADC -40 (885, 834 AND CDSS EQUIPMENTS)
00078 M00S00072.complda +++|* ADC -57 (836 EQUIPMENTS)
00079 M00S00073.complda +++|* ADC -25 (3330 EQUIPMENTS)
00080 M00S00074.complda +++|* ADC -34 (3350/33502 EQUIPMENTS)
00081 M00S00075.complda +++|* ADC -140 (895 EQUIPMENTS)
00082 M00S00076.complda +++| PJN LDA3 IF ADDRESS NOT COMPLETE
00083 M00S00077.complda +++| UJN LDAX RETURN
00084 M00S00078.complda +++| CDI SPACE 4,10
00085 M00S00079.complda +++|** CDI - 7X54/844-21 ADDRESS CONVERSION PROCESSOR.
00086 M00S00080.complda +++|*
00087 M00S00081.complda +++|* ALGORITHM -
00088 M00S00082.complda +++|* HC = BIT 0 OF LT HALF CYLINDER BIT
00089 M00S00083.complda +++|* HT = BIT 1 OF LT HALF TRACK BIT
00090 M00S00084.complda +++|*
00091 M00S00085.complda +++|* PC = BITS 2 - 12 OF LT PHYSICAL CYLINDER
00092 M00S00086.complda +++|* PT = (HT+2*LS)/30+HC*11 PHYSICAL TRACK
00093 M00S00087.complda +++|* PS = R((HT+2*LS)/30) PHYSICAL SECTOR
00094 M00S00088.complda +++|
00095 M00S00089.complda +++|
00096 M00S00090.complda +++| CDI BSS 0
00097 M00S00091.complda +++| STD T0
00098 M00S00092.complda +++| LPN 1
00099 M00S00093.complda +++| ZJN CDI1 IF NOT HALF CYLINDER
00100 M00S00094.complda +++| LDN 11
00101 M00S00095.complda +++| RAD UN+2
00102 M00S00096.complda +++| CDI1 LDD T0
00103 M00S00097.complda +++| SHN 21-1
00104 M00S00098.complda +++| CDI2 STD UN+1 SET CYLINDER
00105 M00S00099.complda +++| SHN 0-21
00106 M00S00100.complda +++| ADD T7
00107 M00S00101.complda +++| CDI3 UJN LDA2 COMPLETE ADDRESS CONVERSION
00108 M00S00102.complda +++| CDJ SPACE 4,10
00109 M00S00103.complda +++|** CDJ - 7X54/844-4X ADDRESS CONVERSION PROCESSOR.
00110 M00S00104.complda +++|*
00111 M00S00105.complda +++|* ALGORITHM -
00112 M00S00106.complda +++|* HT = BIT 0 OF LT HALF TRACK BIT
00113 M00S00107.complda +++|*
00114 M00S00108.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00115 M00S00109.complda +++|* PT = (HT+2*LS)/30 PHYSICAL TRACK
00116 M00S00110.complda +++|* PS = R((HT+2*LS)/30) PHYSICAL SECTOR
00117 M00S00111.complda +++|
00118 M00S00112.complda +++|
00119 M00S00113.complda +++| CDJ BSS 0
00120 M00S00114.complda +++| SHN 21-0
00121 M00S00115.complda +++| UJN CDI2 COMPLETE ADDRESS CONVERSION
00122 M00S00116.complda +++| CDK SPACE 4,10
00123 M00S00117.complda +++|** CDK - 7154/844-21 ADDRESS CONVERSION PROCESSOR.
00124 M00S00118.complda +++|*
00125 M00S00119.complda +++|* ALGORITHM -
00126 M00S00120.complda +++|* XX = BITS 0 - 1 OF LT TRACK NUMBER WITHIN CYLINDER
00127 M00S00121.complda +++|*
00128 M00S00122.complda +++|* PC = BITS 2 - 12 OF LT PHYSICAL CYLINDER
00129 M00S00123.complda +++|* PT = (XX*162+LS)/30 PHYSICAL TRACK
00130 M00S00124.complda +++|* PS = R((XX*162+LS)/30) PHYSICAL SECTOR
00131 M00S00125.complda +++|
00132 M00S00126.complda +++|
00133 M00S00127.complda +++| CDK BSS 0
00134 M00S00128.complda +++| SHN 21-1
00135 M00S00129.complda +++| STD UN+1
00136 M00S00130.complda +++| SHN 1-21
00137 M00S00131.complda +++| ZJN LDA2 IF TRACK 0 WITHIN CYLINDER
00138 M00S00132.complda +++| STD T0
00139 M00S00133.complda +++| LDN 0
00140 M00S00134.complda +++| STD UN+3
00141 M00S00135.complda +++| CDK1 LDC 162
00142 M00S00136.complda +++| CDKA EQU *-1
00143 M00S00137.complda +++|* LDC 144 (3330-1)
00144 M00S00138.complda +++| RAD UN+3
00145 M00S00139.complda +++| SOD T0
00146 M00S00140.complda +++| NJN CDK1 LOOP TO COMPLETE (XX*162)
00147 M00S00141.complda +++| LDC 162 RESET CONSTANT
00148 M00S00142.complda +++| STM CDKA
00149 M00S00143.complda +++| LDD UN+3
00150 M00S00144.complda +++| CDK2 UJN CDI3 COMPLETE ADDRESS CONVERSION
00151 M00S00145.complda +++| CDL SPACE 4,10
00152 M00S00146.complda +++|** CDL - 7154/844-4X ADDRESS CONVERSION PROCESSOR.
00153 M00S00147.complda +++|*
00154 M00S00148.complda +++|* ALGORITHM -
00155 M00S00149.complda +++|* X = BIT 0 OF LT TRACK NUMBER WITHIN CYLINDER
00156 M00S00150.complda +++|*
00157 M00S00151.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00158 M00S00152.complda +++|* PT = (X*345+LS)/30 PHYSICAL TRACK
00159 M00S00153.complda +++|* PS = R((X*345+LS)/30) PHYSICAL SECTOR
00160 M00S00154.complda +++|
00161 M00S00155.complda +++|
00162 M00S00156.complda +++| CDL EQU LDA1
00163 M00S00157.complda +++| CDM SPACE 4,10
00164 M00S00158.complda +++|** CDM - 7155/885 HALF TRACK ADDRESS CONVERSION PROCESSOR.
00165 M00S00159.complda +++|*
00166 M00S00160.complda +++|* ALGORITHM -
00167 M00S00161.complda +++|* HT = BIT 0 OF LT HALF TRACK BIT
00168 M00S00162.complda +++|*
00169 M00S00163.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00170 M00S00164.complda +++|* PT = (HT+2*LS)/40 PHYSICAL TRACK
00171 M00S00165.complda +++|* PS = R((HT+2*LS)/40) PHYSICAL SECTOR
00172 M00S00166.complda +++|
00173 M00S00167.complda +++|
00174 M00S00168.complda +++| CDM EQU CDJ
00175 M00S00169.complda +++| CDQ SPACE 4,10
00176 M00S00170.complda +++|** CDQ - 7155/885 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00177 M00S00171.complda +++|*
00178 M00S00172.complda +++|* ALGORITHM -
00179 M00S00173.complda +++|* X = BIT 0 OF LT TRACK NUMBER WITHIN CYLINDER
00180 M00S00174.complda +++|* SL = 1200 SECTOR LIMIT
00181 M00S00175.complda +++|*
00182 M00S00176.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00183 M00S00177.complda +++|* PT = (X*SL+LS)/40 PHYSICAL TRACK
00184 M00S00178.complda +++|* PS = R((X*SL+LS)/40) PHYSICAL SECTOR
00185 M00S00179.complda +++|
00186 M00S00180.complda +++|
00187 M00S00181.complda +++| CDQ EQU LDA1
00188 M00S00182.complda +++| CDX SPACE 4,10
00189 M00S00183.complda +++|** CDX - 3330-1 ADDRESS CONVERSION PROCESSOR.
00190 M00S00184.complda +++|*
00191 M00S00185.complda +++|* ALGORITHM -
00192 M00S00186.complda +++|* XX = BITS 0 - 1 OF LT TRACK NUMBER WITHIN CYLINDER
00193 M00S00187.complda +++|* PC = BITS 2 - 12 OF LT PHYSICAL CYLINDER
00194 M00S00188.complda +++|* PT = (XX*144+LS)/25 PHYSICAL TRACK
00195 M00S00189.complda +++|* PS = R((XX*144+LS)/25) PHYSICAL SECTOR
00196 M00S00190.complda +++|
00197 M00S00191.complda +++|
00198 M00S00192.complda +++| CDX BSS 0
00199 M00S00193.complda +++| STD T0
00200 M00S00194.complda +++| LDC 144 SECTORS PER LOGICAL TRACK
00201 M00S00195.complda +++| STM CDKA
00202 M00S00196.complda +++| LDD T0
00203 M00S00197.complda +++| UJN CDK PROCESS AS *DK*
00204 M00S00198.complda +++| CDY SPACE 4,10
00205 M00S00199.complda +++|** CDY - 3330-11 ADDRESS CONVERSION PROCESSOR.
00206 M00S00200.complda +++|*
00207 M00S00201.complda +++|* ALGORITHM -
00208 M00S00202.complda +++|* X = BIT 0 OF LT LOGICAL TRACK WITHIN CYLINDER
00209 M00S00203.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00210 M00S00204.complda +++|* PT = (X*310+LS)/25 PHYSICAL TRACK
00211 M00S00205.complda +++|* PS = R((X*310+LS)/25) PHYSICAL SECTOR
00212 M00S00206.complda +++|
00213 M00S00207.complda +++|
00214 M00S00208.complda +++| CDY EQU LDA1
00215 M00S00209.complda +++| CDZ SPACE 4,10
00216 M00S00210.complda +++|** CDZ - 3350 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00217 M00S00211.complda +++|*
00218 M00S00212.complda +++|* ALGORITHM -
00219 M00S00213.complda +++|* X = BIT 0 OF LT LOGICAL TRACK WITHIN CYLINDER
00220 M00S00214.complda +++|* SL = 644 SECTOR LIMIT
00221 M00S00215.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00222 M00S00216.complda +++|* PT = (X*SL+LS)/34 PHYSICAL TRACK
00223 M00S00217.complda +++|* PS = R((X*SL+LS)/34) PHYSICAL SECTOR
00224 M00S00218.complda +++|
00225 M00S00219.complda +++|
00226 M00S00220.complda +++| CDZ EQU LDA1
00227 M00S00221.complda +++| CDA SPACE 4,10
00228 M00S00222.complda +++|** CDA - 33502 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00229 M00S00223.complda +++|*
00230 M00S00224.complda +++|* ALGORITHM -
00231 M00S00225.complda +++|* X = 0 LOGICAL TRACK WITHIN CYLINDER
00232 M00S00226.complda +++|* SL = 1510 SECTOR LIMIT
00233 M00S00227.complda +++|* TL = 2140 TRACK LIMIT
00234 M00S00228.complda +++|* VL = TL/2 VOLUME TRACK LIMIT
00235 M00S00229.complda +++|* PC = LT-1060*(LT/VL) PHYSICAL CYLINDER
00236 M00S00230.complda +++|* PT = (LS)/34B PHYSICAL TRACK
00237 M00S00231.complda +++|* PS = R(LS)/34B PHYSICAL SECTOR
00238 M00S00232.complda +++|* PU = (LT/VL)*40B+UNIT PHYSICAL UNIT
00239 M00S00233.complda +++|
00240 M00S00234.complda +++|
00241 M00S00235.complda +++| CDA STD UN+1 SET PHYSICAL CYLINDER
00242 M00S00236.complda +++| LDD UN LOAD PHYSICAL UNIT
00243 M00S00237.complda +++| LPN 37
00244 M00S00238.complda +++| STD UN SET TO VOLUME 0
00245 M00S00239.complda +++| LDD UN+1 LOAD LOGICAL TRACK
00246 M00S00240.complda +++| ADC -1060 MINUS VOLUME TRACK LIMIT
00247 M00S00241.complda +++| MJN CDA1 IF VOLUME 0
00248 M00S00242.complda +++| STD UN+1 RESET PHYSICAL CYLINDER
00249 M00S00243.complda +++| LDD UN
00250 M00S00244.complda +++| LMN 40B SET VOLUME 1
00251 M00S00245.complda +++| STD UN
00252 M00S00246.complda +++| CDA1 LDN 0
00253 M00S00247.complda +++| UJN CDK2 COMPLETE CONVERSION
00254 M00S00248.complda +++| CDC SPACE 4,10
00255 M00S00249.complda +++|** CDC - 7165/895 FULL TRACK CONVERSION PROCESSOR.
00256 M00S00250.complda +++|*
00257 M00S00251.complda +++|* ALGORITHM -
00258 M00S00252.complda +++|* X = BIT 0 OF LT TRACK NUMBER WITHIN CYLINDER
00259 M00S00253.complda +++|* SL = 1300 SECTOR LIMIT
00260 M00S00254.complda +++|*
00261 M00S00255.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00262 M00S00256.complda +++|* PT = (X*SL+LS)/140 PHYSICAL TRACK
00263 M00S00257.complda +++|* PS = R((X*SL+LS)/140) PHYSICAL SECTOR
00264 M00S00258.complda +++|
00265 M00S00259.complda +++|
00266 M00S00260.complda +++| CDC EQU LDA1
00267 M00S00261.complda +++| CDD SPACE 4,10
00268 M00S00262.complda +++|** CDD - 7255/834 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00269 M00S00263.complda +++|*
00270 M00S00264.complda +++|* ALGORITHM -
00271 M00S00265.complda +++|* X = BIT 0 OF LT TRACK NUMBER WITHIN CYLINDER
00272 M00S00266.complda +++|* SL = 240 SECTOR LIMIT
00273 M00S00267.complda +++|*
00274 M00S00268.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00275 M00S00269.complda +++|* PT = (X*SL+LS)/40 PHYSICAL TRACK
00276 M00S00270.complda +++|* PS = R((X*SL+LS)/40) PHYSICAL SECTOR
00277 M00S00271.complda +++|
00278 M00S00272.complda +++|
00279 M00S00273.complda +++| CDD EQU LDA1
00280 M00S00274.complda +++| CDG SPACE 4,10
00281 M00S00275.complda +++|** CDG - 7255/836 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00282 M00S00276.complda +++|*
00283 M00S00277.complda +++|* ALGORITHM -
00284 M00S00278.complda +++|* X = BIT 0 OF LT TRACK NUMBER WITHIN CYLINDER
00285 M00S00279.complda +++|* SL = 1064 SECTOR LIMIT
00286 M00S00280.complda +++|*
00287 M00S00281.complda +++|* PC = BITS 1 - 12 OF LT PHYSICAL CYLINDER
00288 M00S00282.complda +++|* PT = (X*SL+LS)/57 PHYSICAL TRACK
00289 M00S00283.complda +++|* PS = R((X*SL+LS)/57) PHYSICAL SECTOR
00290 M00S00284.complda +++|
00291 M00S00285.complda +++|
00292 M00S00286.complda +++| CDG EQU LDA1
00293 M01S00006.ns2776 +++| CDR SPACE 4,10
00294 M01S00007.ns2776 +++|** CDR - CDSS II ADDRESS CONVERSION PROCESSOR.
00295 M01S00008.ns2776 +++|*
00296 M01S00009.ns2776 +++|* ALGORITHM -
00297 M01S00010.ns2776 +++|* SL = 3600 SECTOR LIMIT
00298 M01S00011.ns2776 +++|* X = BIT 0 OF LT LOGICAL TRACK IN CYLINDER GROUP
00299 M01S00012.ns2776 +++|* SO = (1200)*X STARTING SECTOR OFFSET
00300 M01S00013.ns2776 +++|* PC = LT+(LT/2)+(LS+SO)/2400 PHYSICAL CYLINDER
00301 M01S00014.ns2776 +++|* SC = R((LS+SO)/2400) SECTOR WITHIN CYLINDER
00302 M01S00015.ns2776 +++|* PT = SC/40 PHYSICAL TRACK
00303 M01S00016.ns2776 +++|* PS = SC-PT*40 PHYSICAL SECTOR
00304 M01S00017.ns2776 +++|
00305 M01S00018.ns2776 +++|
00306 M01S00019.ns2776 +++| CDR BSS 0 ENTRY
00307 M01S00020.ns2776 +++| STD UN+1
00308 M01S00021.ns2776 +++| SHN 21-0
00309 M01S00022.ns2776 +++| RAD UN+1
00310 M01S00023.ns2776 +++| SHN 0-21
00311 M01S00024.ns2776 +++| LMN 1
00312 M01S00025.ns2776 +++| ADC SHNI
00313 M01S00026.ns2776 +++| STM CDRA
00314 M01S00027.ns2776 +++| LDC -1200
00315 M01S00028.ns2776 +++| CDRA SHN 0 SHIFT IF FIRST TRACK OF CYLINDER GROUP
00316 M01S00029.ns2776 +++| ADC 2400 (A) = 0 IF FIRST TRACK, 1200 IF SECOND
00317 M01S00030.ns2776 +++| ADD T7 CONVERT LS TO RELATIVE SECTOR
00318 M01S00031.ns2776 +++| STD UN+3
00319 M01S00032.ns2776 +++| ADC -2400
00320 M01S00033.ns2776 +++| MJN CDR1 IF ON STARTING CYLINDER OF TRACK
00321 M01S00034.ns2776 +++| STD UN+3 RELATIVE SECTOR ON SECOND CYLINDER
00322 M01S00035.ns2776 +++| AOD UN+1 INCREMENT CYLINDER
00323 M01S00036.ns2776 +++| CDR1 LJM LDA4 COMPLETE CONVERSION
00324 M01S00037.ns2776 +++| LDA SPACE 4,10
00325 M01S00038.ns2776 +++| QUAL$ IF -DEF,QUAL$
00326 M01S00039.ns2776 +++| QUAL *
00327 M01S00040.ns2776 +++| LDA EQU /COMPLDA/LDA
00328 M01S00041.ns2776 +++| QUAL$ ENDIF
00329 M01S00042.ns2776 +++| PDA RMT
00330 M01S00043.ns2776 +++| IF -DEF,QUAL$,1
00331 M01S00044.ns2776 +++| QUAL COMPLDA
00332 M00S00287.complda +++| PDA SPACE 4,10
00333 M00S00288.complda +++|** PDA - PRESET DISK ADDRESS CONVERSION ROUTINE.
00334 M00S00289.complda +++|*
00335 M00S00290.complda +++|* ENTRY (A) = ALGORITHM INDEX.
00336 M00S00291.complda +++|*
00337 M00S00292.complda +++|* EXIT *LDA* PRESET FOR SPECIFIED DEVICE TYPE.
00338 M00S00293.complda +++|*
00339 M00S00294.complda +++|* USES T1.
00340 M00S00295.complda +++|
00341 M00S00296.complda +++|
00342 M00S00297.complda +++| PDA SUBR ENTRY/EXIT
00343 M00S00298.complda +++| STD T1 SET TABLE INDEX
00344 M00S00299.complda +++| SHN 1
00345 M00S00300.complda +++| RAD T1
00346 M00S00301.complda +++| LDM PDAA-1,T1 SET SECTOR LIMIT
00347 M00S00302.complda +++| STM LDAB
00348 M00S00303.complda +++| LDM PDAA-2,T1 SET TRACK / SECTOR CALCULATION
00349 M00S00304.complda +++| STM LDAC
00350 M00S00305.complda +++| LDM PDAA-3,T1 SET PREPROCESSOR ADDRESS
00351 M00S00306.complda +++| STM LDAA
00352 M00S00307.complda +++| UJN PDAX RETURN
00353 M00S00308.complda +++|
00354 M00S00309.complda +++| PDAA INDEX LIST OF DEVICE PARAMETERS
00355 M00S00310.complda +++| INDEX 3*AIDI-3,(CDI,-30,0)
00356 M00S00311.complda +++| INDEX 3*AIDJ-3,(CDJ,-30,0)
00357 M00S00312.complda +++| INDEX 3*AIDK-3,(CDK,-30,0)
00358 M00S00313.complda +++| INDEX 3*AIDL-3,(CDL,-30,345)
00359 M00S00314.complda +++| INDEX 3*AIDM-3,(CDM,-40,0)
00360 M00S00315.complda +++| INDEX 3*AIDQ-3,(CDQ,-40,1200)
00361 M01S00045.ns2776 +++| INDEX 3*AIDR-3,(CDR,-40,3600)
00362 M00S00316.complda +++| INDEX 3*AIDX-3,(CDX,-25,0)
00363 M00S00317.complda +++| INDEX 3*AIDY-3,(CDY,-25,310)
00364 M00S00318.complda +++| INDEX 3*AIDZ-3,(CDZ,-34,644)
00365 M00S00319.complda +++| INDEX 3*AIDA-3,(CDA,-34,0)
00366 M00S00320.complda +++| INDEX 3*AIDC-3,(CDC,-140,1300)
00367 M00S00321.complda +++| INDEX 3*AIDD-3,(CDD,-40,240)
00368 M00S00322.complda +++| INDEX 3*AIDG-3,(CDG,-57,1064)
| Line S00323 Modification History |
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
00369 M01S00323.284l847 ---| INDEX 3*AIMX-3
| Line S00001 Modification History |
M01 (Added by) | 284l847 |
M02 (Removed by) | plda1 |
Seq # *Modification Id* Act
----------------------------+
00370 M02S00001.plda1 ---| INDEX
| Line S00001 Modification History |
M01 (Added by) | plda1 |
Seq # *Modification Id* Act
----------------------------+
00371 M01S00001.plda1 +++| INDEX 3*AIDS-3
00372 M00S00324.complda +++| LDA SPACE 4,10
00373 M00S00325.complda +++| QUAL$ IF -DEF,QUAL$
00374 M00S00326.complda +++| QUAL *
| Line S00327 Modification History |
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00375 M01S00327.ns2776 ---| LDA EQU /COMPLDA/LDA
00376 M00S00328.complda ---| PDA EQU /COMPLDA/PDA
00377 M00S00329.complda ---| QUAL$ ENDIF
| Line S00046 Modification History |
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00378 M01S00046.ns2776 +++| PDA RMT
00379 M00S00330.complda +++| ENDX