Common COMPLDA

Library Member Format: MODIFY

Source

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)

Line S00003 Modification History
`M01` (Added by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
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

Line S00006 Modification History
`M01` (Added by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
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)

Line S00045 Modification History
`M01` (Added by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
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