Common COMPLDA

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.complda +++|          CTEXT  COMPLDA - CONVERT DISK ADDRESS.
00002  M01S00002.complda +++|          SPACE  4,10
00003  M01S00003.complda +++|          IF     -DEF,QUAL$,1
00004  M01S00004.complda +++|          QUAL   COMPLDA
00005  M01S00005.complda +++|          BASE   M

Line S00006 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.complda +++| LDA      SPACE  4,10
00009  M01S00008.complda +++|*****     LDA - CONVERT DISK ADDRESS.
00010  M01S00009.complda +++|*
00011  M01S00010.complda +++|*         P. D. HAAS.        78/07/25.
00012  M01S00011.complda +++| LDA      SPACE  4,10
00013  M01S00012.complda +++|***              *LDA* SIMULATES THE *LDAM* MONITOR FUNCTION IN THE
00014  M01S00013.complda +++|*         CONVERSION OF LOGICAL DISK ADDRESSES TO THE CORRESPONDING
00015  M01S00014.complda +++|*         PHYSICAL ADDRESSES FOR A PARTICULAR EQUIPMENT TYPE.  THIS
00016  M01S00015.complda +++|*         CONVERSION IS VALID ONLY FOR SINGLE UNIT DEVICES.
00017  M01S00016.complda +++|*
00018  M01S00017.complda +++|*         SUBROUTINE *PDA* MUST BE CALLED PRIOR TO THE FIRST *LDA*
00019  M01S00018.complda +++|*         CALL TO PRESET THE PROPER ADDRESS CONVERSION PROCESSOR.
00020  M01S00019.complda +++| LDA      SPACE  4,10
00021  M01S00020.complda +++|          IF     -DEF,UN,1
00022  M01S00021.complda +++| UN       EQU    CM          PHYSICAL DISK ADDRESS
00023  M01S00022.complda +++| LDA      SPACE  4,10
00024  M01S00023.complda +++|**        LDA - CONVERT DISK ADDRESS.
00025  M01S00024.complda +++|*
00026  M01S00025.complda +++|*         ENTRY  (T6) = LOGICAL TRACK.
00027  M01S00026.complda +++|*                (T7) = LOGICAL SECTOR.
00028  M01S00027.complda +++|*                (UN) = PHYSICAL UNIT.
00029  M01S00028.complda +++|*
00030  M01S00029.complda +++|*         EXIT   (UN) = PHYSICAL UNIT.
00031  M01S00030.complda +++|*                (UN+1) = PHYSICAL CYLINDER.
00032  M01S00031.complda +++|*                (UN+2) = PHYSICAL TRACK.
00033  M01S00032.complda +++|*                (UN+3) = PHYSICAL SECTOR.
00034  M01S00033.complda +++|*

Line S00034 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00034.ns2776  ---|*         CALLS  CDI, CDJ, CDK, CDL, CDM, CDQ, CDX, CDY, CDZ, CDA, CDC,

Line S00035 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00035.ns2776  ---|*                CDD.
00037  M01S00001.ns2776  +++|*         CALLS  CDA, CDC, CDD, CDI, CDJ, CDK, CDL, CDM, CDQ, CDR,
00038  M01S00002.ns2776  +++|*                CDX, CDY, CDZ.
00039  M01S00036.complda +++|
00040  M01S00037.complda +++|
00041  M01S00038.complda +++| LDA      SUBR               ENTRY/EXIT
00042  M01S00039.complda +++|          LCN    0           INITIALIZE TRACK CALCULATION
00043  M01S00040.complda +++|          STD    UN+2
00044  M01S00041.complda +++|          LDD    T6          (A) = LOGICAL TRACK (LT)
00045  M01S00042.complda +++|          LPC    3777
00046  M01S00043.complda +++|          LJM    CDI         EXIT TO PREPROCESSOR
00047  M01S00044.complda +++| LDAA     EQU    *-1
00048  M01S00045.complda +++|*         LJM    CDJ         (DJ EQUIPMENT)
00049  M01S00046.complda +++|*         LJM    CDK         (DK EQUIPMENT)
00050  M01S00047.complda +++|*         LJM    CDL         (DL EQUIPMENT)
00051  M01S00048.complda +++|*         LJM    CDM         (DM EQUIPMENT)
00052  M01S00049.complda +++|*         LJM    CDQ         (DQ EQUIPMENT)
00053  M01S00003.ns2776  +++|*         LJM    CDR         (DR EQUIPMENT)
00054  M01S00050.complda +++|*         LJM    CDX         (DX EQUIPMENT)
00055  M01S00051.complda +++|*         LJM    CDY         (DY EQUIPMENT)
00056  M01S00052.complda +++|*         LJM    CDZ         (DZ EQUIPMENT)
00057  M01S00053.complda +++|*         LJM    CDA         (DA EQUIPMENT)
00058  M01S00054.complda +++|*         LJM    CDC         (DC EQUIPMENT)
00059  M01S00055.complda +++|*         LJM    CDD         (DD EQUIPMENT)
00060  M01S00056.complda +++|
00061  M01S00057.complda +++|*         RETURN HERE FROM CONVERSION PROCESSORS.
00062  M01S00058.complda +++|
00063  M01S00059.complda +++| LDA1     SHN    21-0
00064  M01S00060.complda +++|          STD    UN+1
00065  M01S00061.complda +++|          SHN    0-21
00066  M01S00062.complda +++|          ZJN    LDA2        IF TRACK 0 WITHIN CYLINDER
00067  M01S00063.complda +++|          LDC    0
00068  M01S00064.complda +++| LDAB     EQU    *-1         (SECTORS PER LOGICAL TRACK)
00069  M01S00065.complda +++| LDA2     ADD    T7          LOGICAL SECTOR (LS)
00070  M01S00066.complda +++| LDA3     STD    UN+3        CALCULATE PHYSICAL SECTOR

Line S00067 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00067.ns2776  ---|          AOD    UN+2        CALCULATE PHYSICAL TRACK
00072  M01S00004.ns2776  +++| LDA4     AOD    UN+2        CALCULATE PHYSICAL TRACK
00073  M01S00068.complda +++|          LDD    UN+3
00074  M01S00069.complda +++|          ADC    -30
00075  M01S00070.complda +++| LDAC     EQU    *-1

Line S00071 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00071.ns2776  ---|*         ADC    -40         (885 AND 834 EQUIPMENTS)
00077  M01S00005.ns2776  +++|*         ADC    -40         (885, 834 AND CDSS EQUIPMENTS)
00078  M01S00072.complda +++|*         ADC    -57         (836 EQUIPMENTS)
00079  M01S00073.complda +++|*         ADC    -25         (3330 EQUIPMENTS)
00080  M01S00074.complda +++|*         ADC    -34         (3350/33502 EQUIPMENTS)
00081  M01S00075.complda +++|*         ADC    -140        (895 EQUIPMENTS)
00082  M01S00076.complda +++|          PJN    LDA3        IF ADDRESS NOT COMPLETE
00083  M01S00077.complda +++|          UJN    LDAX        RETURN
00084  M01S00078.complda +++| CDI      SPACE  4,10
00085  M01S00079.complda +++|**        CDI - 7X54/844-21 ADDRESS CONVERSION PROCESSOR.
00086  M01S00080.complda +++|*
00087  M01S00081.complda +++|*         ALGORITHM -
00088  M01S00082.complda +++|*         HC = BIT 0 OF LT         HALF CYLINDER BIT
00089  M01S00083.complda +++|*         HT = BIT 1 OF LT         HALF TRACK BIT
00090  M01S00084.complda +++|*
00091  M01S00085.complda +++|*         PC = BITS 2 - 12 OF LT   PHYSICAL CYLINDER
00092  M01S00086.complda +++|*         PT = (HT+2*LS)/30+HC*11  PHYSICAL TRACK
00093  M01S00087.complda +++|*         PS = R((HT+2*LS)/30)     PHYSICAL SECTOR
00094  M01S00088.complda +++|
00095  M01S00089.complda +++|
00096  M01S00090.complda +++| CDI      BSS    0
00097  M01S00091.complda +++|          STD    T0
00098  M01S00092.complda +++|          LPN    1
00099  M01S00093.complda +++|          ZJN    CDI1        IF NOT HALF CYLINDER
00100  M01S00094.complda +++|          LDN    11
00101  M01S00095.complda +++|          RAD    UN+2
00102  M01S00096.complda +++| CDI1     LDD    T0
00103  M01S00097.complda +++|          SHN    21-1
00104  M01S00098.complda +++| CDI2     STD    UN+1        SET CYLINDER
00105  M01S00099.complda +++|          SHN    0-21
00106  M01S00100.complda +++|          ADD    T7
00107  M01S00101.complda +++| CDI3     UJN    LDA2        COMPLETE ADDRESS CONVERSION
00108  M01S00102.complda +++| CDJ      SPACE  4,10
00109  M01S00103.complda +++|**        CDJ - 7X54/844-4X ADDRESS CONVERSION PROCESSOR.
00110  M01S00104.complda +++|*
00111  M01S00105.complda +++|*         ALGORITHM -
00112  M01S00106.complda +++|*         HT = BIT 0 OF LT         HALF TRACK BIT
00113  M01S00107.complda +++|*
00114  M01S00108.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00115  M01S00109.complda +++|*         PT = (HT+2*LS)/30        PHYSICAL TRACK
00116  M01S00110.complda +++|*         PS = R((HT+2*LS)/30)     PHYSICAL SECTOR
00117  M01S00111.complda +++|
00118  M01S00112.complda +++|
00119  M01S00113.complda +++| CDJ      BSS    0
00120  M01S00114.complda +++|          SHN    21-0
00121  M01S00115.complda +++|          UJN    CDI2        COMPLETE ADDRESS CONVERSION
00122  M01S00116.complda +++| CDK      SPACE  4,10
00123  M01S00117.complda +++|**        CDK - 7154/844-21 ADDRESS CONVERSION PROCESSOR.
00124  M01S00118.complda +++|*
00125  M01S00119.complda +++|*         ALGORITHM -
00126  M01S00120.complda +++|*         XX = BITS 0 - 1 OF LT    TRACK NUMBER WITHIN CYLINDER
00127  M01S00121.complda +++|*
00128  M01S00122.complda +++|*         PC = BITS 2 - 12 OF LT   PHYSICAL CYLINDER
00129  M01S00123.complda +++|*         PT = (XX*162+LS)/30      PHYSICAL TRACK
00130  M01S00124.complda +++|*         PS = R((XX*162+LS)/30)   PHYSICAL SECTOR
00131  M01S00125.complda +++|
00132  M01S00126.complda +++|
00133  M01S00127.complda +++| CDK      BSS    0
00134  M01S00128.complda +++|          SHN    21-1
00135  M01S00129.complda +++|          STD    UN+1
00136  M01S00130.complda +++|          SHN    1-21
00137  M01S00131.complda +++|          ZJN    LDA2        IF TRACK 0 WITHIN CYLINDER
00138  M01S00132.complda +++|          STD    T0
00139  M01S00133.complda +++|          LDN    0
00140  M01S00134.complda +++|          STD    UN+3
00141  M01S00135.complda +++| CDK1     LDC    162
00142  M01S00136.complda +++| CDKA     EQU    *-1
00143  M01S00137.complda +++|*         LDC    144         (3330-1)
00144  M01S00138.complda +++|          RAD    UN+3
00145  M01S00139.complda +++|          SOD    T0
00146  M01S00140.complda +++|          NJN    CDK1        LOOP TO COMPLETE (XX*162)
00147  M01S00141.complda +++|          LDC    162         RESET CONSTANT
00148  M01S00142.complda +++|          STM    CDKA
00149  M01S00143.complda +++|          LDD    UN+3
00150  M01S00144.complda +++| CDK2     UJN    CDI3        COMPLETE ADDRESS CONVERSION
00151  M01S00145.complda +++| CDL      SPACE  4,10
00152  M01S00146.complda +++|**        CDL - 7154/844-4X ADDRESS CONVERSION PROCESSOR.
00153  M01S00147.complda +++|*
00154  M01S00148.complda +++|*         ALGORITHM -
00155  M01S00149.complda +++|*         X = BIT 0 OF LT          TRACK NUMBER WITHIN CYLINDER
00156  M01S00150.complda +++|*
00157  M01S00151.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00158  M01S00152.complda +++|*         PT = (X*345+LS)/30       PHYSICAL TRACK
00159  M01S00153.complda +++|*         PS = R((X*345+LS)/30)    PHYSICAL SECTOR
00160  M01S00154.complda +++|
00161  M01S00155.complda +++|
00162  M01S00156.complda +++| CDL      EQU    LDA1
00163  M01S00157.complda +++| CDM      SPACE  4,10
00164  M01S00158.complda +++|**        CDM - 7155/885 HALF TRACK ADDRESS CONVERSION PROCESSOR.
00165  M01S00159.complda +++|*
00166  M01S00160.complda +++|*         ALGORITHM -
00167  M01S00161.complda +++|*         HT = BIT 0 OF LT         HALF TRACK BIT
00168  M01S00162.complda +++|*
00169  M01S00163.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00170  M01S00164.complda +++|*         PT = (HT+2*LS)/40        PHYSICAL TRACK
00171  M01S00165.complda +++|*         PS = R((HT+2*LS)/40)     PHYSICAL SECTOR
00172  M01S00166.complda +++|
00173  M01S00167.complda +++|
00174  M01S00168.complda +++| CDM      EQU    CDJ
00175  M01S00169.complda +++| CDQ      SPACE  4,10
00176  M01S00170.complda +++|**        CDQ - 7155/885 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00177  M01S00171.complda +++|*
00178  M01S00172.complda +++|*         ALGORITHM -
00179  M01S00173.complda +++|*         X = BIT 0 OF LT          TRACK NUMBER WITHIN CYLINDER
00180  M01S00174.complda +++|*         SL = 1200                SECTOR LIMIT
00181  M01S00175.complda +++|*
00182  M01S00176.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00183  M01S00177.complda +++|*         PT = (X*SL+LS)/40        PHYSICAL TRACK
00184  M01S00178.complda +++|*         PS = R((X*SL+LS)/40)     PHYSICAL SECTOR
00185  M01S00179.complda +++|
00186  M01S00180.complda +++|
00187  M01S00181.complda +++| CDQ      EQU    LDA1
00188  M01S00182.complda +++| CDX      SPACE  4,10
00189  M01S00183.complda +++|**        CDX - 3330-1 ADDRESS CONVERSION PROCESSOR.
00190  M01S00184.complda +++|*
00191  M01S00185.complda +++|*         ALGORITHM -
00192  M01S00186.complda +++|*         XX = BITS 0 - 1 OF LT        TRACK NUMBER WITHIN CYLINDER
00193  M01S00187.complda +++|*         PC = BITS 2 - 12 OF LT       PHYSICAL CYLINDER
00194  M01S00188.complda +++|*         PT = (XX*144+LS)/25          PHYSICAL TRACK
00195  M01S00189.complda +++|*         PS = R((XX*144+LS)/25)       PHYSICAL SECTOR
00196  M01S00190.complda +++|
00197  M01S00191.complda +++|
00198  M01S00192.complda +++| CDX      BSS    0
00199  M01S00193.complda +++|          STD    T0
00200  M01S00194.complda +++|          LDC    144         SECTORS PER LOGICAL TRACK
00201  M01S00195.complda +++|          STM    CDKA
00202  M01S00196.complda +++|          LDD    T0
00203  M01S00197.complda +++|          UJN    CDK         PROCESS AS *DK*
00204  M01S00198.complda +++| CDY      SPACE  4,10
00205  M01S00199.complda +++|**        CDY - 3330-11 ADDRESS CONVERSION PROCESSOR.
00206  M01S00200.complda +++|*
00207  M01S00201.complda +++|*         ALGORITHM -
00208  M01S00202.complda +++|*         X = BIT 0 OF LT              LOGICAL TRACK WITHIN CYLINDER
00209  M01S00203.complda +++|*         PC = BITS 1 - 12 OF LT       PHYSICAL CYLINDER
00210  M01S00204.complda +++|*         PT = (X*310+LS)/25           PHYSICAL TRACK
00211  M01S00205.complda +++|*         PS = R((X*310+LS)/25)        PHYSICAL SECTOR
00212  M01S00206.complda +++|
00213  M01S00207.complda +++|
00214  M01S00208.complda +++| CDY      EQU    LDA1
00215  M01S00209.complda +++| CDZ      SPACE  4,10
00216  M01S00210.complda +++|**        CDZ - 3350 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00217  M01S00211.complda +++|*
00218  M01S00212.complda +++|*         ALGORITHM -
00219  M01S00213.complda +++|*         X = BIT 0 OF LT              LOGICAL TRACK WITHIN CYLINDER
00220  M01S00214.complda +++|*         SL = 644                     SECTOR LIMIT
00221  M01S00215.complda +++|*         PC = BITS 1 - 12 OF LT       PHYSICAL CYLINDER
00222  M01S00216.complda +++|*         PT = (X*SL+LS)/34            PHYSICAL TRACK
00223  M01S00217.complda +++|*         PS = R((X*SL+LS)/34)         PHYSICAL SECTOR
00224  M01S00218.complda +++|
00225  M01S00219.complda +++|
00226  M01S00220.complda +++| CDZ      EQU    LDA1
00227  M01S00221.complda +++| CDA      SPACE  4,10
00228  M01S00222.complda +++|**        CDA - 33502 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00229  M01S00223.complda +++|*
00230  M01S00224.complda +++|*         ALGORITHM -
00231  M01S00225.complda +++|*         X = 0                        LOGICAL TRACK WITHIN CYLINDER
00232  M01S00226.complda +++|*         SL = 1510                    SECTOR LIMIT
00233  M01S00227.complda +++|*         TL = 2140                    TRACK LIMIT
00234  M01S00228.complda +++|*         VL = TL/2                    VOLUME TRACK LIMIT
00235  M01S00229.complda +++|*         PC = LT-1060*(LT/VL)         PHYSICAL CYLINDER
00236  M01S00230.complda +++|*         PT = (LS)/34B                PHYSICAL TRACK
00237  M01S00231.complda +++|*         PS = R(LS)/34B               PHYSICAL SECTOR
00238  M01S00232.complda +++|*         PU = (LT/VL)*40B+UNIT        PHYSICAL UNIT
00239  M01S00233.complda +++|
00240  M01S00234.complda +++|
00241  M01S00235.complda +++| CDA      STD    UN+1        SET PHYSICAL CYLINDER
00242  M01S00236.complda +++|          LDD    UN          LOAD PHYSICAL UNIT
00243  M01S00237.complda +++|          LPN    37
00244  M01S00238.complda +++|          STD    UN          SET TO VOLUME 0
00245  M01S00239.complda +++|          LDD    UN+1        LOAD LOGICAL TRACK
00246  M01S00240.complda +++|          ADC    -1060       MINUS VOLUME TRACK LIMIT
00247  M01S00241.complda +++|          MJN    CDA1        IF VOLUME 0
00248  M01S00242.complda +++|          STD    UN+1        RESET PHYSICAL CYLINDER
00249  M01S00243.complda +++|          LDD    UN
00250  M01S00244.complda +++|          LMN    40B         SET VOLUME 1
00251  M01S00245.complda +++|          STD    UN
00252  M01S00246.complda +++| CDA1     LDN    0
00253  M01S00247.complda +++|          UJN    CDK2        COMPLETE CONVERSION
00254  M01S00248.complda +++| CDC      SPACE  4,10
00255  M01S00249.complda +++|**        CDC - 7165/895 FULL TRACK CONVERSION PROCESSOR.
00256  M01S00250.complda +++|*
00257  M01S00251.complda +++|*         ALGORITHM -
00258  M01S00252.complda +++|*         X = BIT 0 OF LT          TRACK NUMBER WITHIN CYLINDER
00259  M01S00253.complda +++|*         SL = 1300                SECTOR LIMIT
00260  M01S00254.complda +++|*
00261  M01S00255.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00262  M01S00256.complda +++|*         PT = (X*SL+LS)/140       PHYSICAL TRACK
00263  M01S00257.complda +++|*         PS = R((X*SL+LS)/140)    PHYSICAL SECTOR
00264  M01S00258.complda +++|
00265  M01S00259.complda +++|
00266  M01S00260.complda +++| CDC      EQU    LDA1
00267  M01S00261.complda +++| CDD      SPACE  4,10
00268  M01S00262.complda +++|**        CDD - 7255/834 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00269  M01S00263.complda +++|*
00270  M01S00264.complda +++|*         ALGORITHM -
00271  M01S00265.complda +++|*         X = BIT 0 OF LT          TRACK NUMBER WITHIN CYLINDER
00272  M01S00266.complda +++|*         SL = 240                 SECTOR LIMIT
00273  M01S00267.complda +++|*
00274  M01S00268.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00275  M01S00269.complda +++|*         PT = (X*SL+LS)/40        PHYSICAL TRACK
00276  M01S00270.complda +++|*         PS = R((X*SL+LS)/40)     PHYSICAL SECTOR
00277  M01S00271.complda +++|
00278  M01S00272.complda +++|
00279  M01S00273.complda +++| CDD      EQU    LDA1
00280  M01S00274.complda +++| CDG      SPACE  4,10
00281  M01S00275.complda +++|**        CDG - 7255/836 FULL TRACK ADDRESS CONVERSION PROCESSOR.
00282  M01S00276.complda +++|*
00283  M01S00277.complda +++|*         ALGORITHM -
00284  M01S00278.complda +++|*         X = BIT 0 OF LT          TRACK NUMBER WITHIN CYLINDER
00285  M01S00279.complda +++|*         SL = 1064                SECTOR LIMIT
00286  M01S00280.complda +++|*
00287  M01S00281.complda +++|*         PC = BITS 1 - 12 OF LT   PHYSICAL CYLINDER
00288  M01S00282.complda +++|*         PT = (X*SL+LS)/57        PHYSICAL TRACK
00289  M01S00283.complda +++|*         PS = R((X*SL+LS)/57)     PHYSICAL SECTOR
00290  M01S00284.complda +++|
00291  M01S00285.complda +++|
00292  M01S00286.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  M01S00287.complda +++| PDA      SPACE  4,10
00333  M01S00288.complda +++|**        PDA - PRESET DISK ADDRESS CONVERSION ROUTINE.
00334  M01S00289.complda +++|*
00335  M01S00290.complda +++|*         ENTRY  (A) = ALGORITHM INDEX.
00336  M01S00291.complda +++|*
00337  M01S00292.complda +++|*         EXIT   *LDA* PRESET FOR SPECIFIED DEVICE TYPE.
00338  M01S00293.complda +++|*
00339  M01S00294.complda +++|*         USES   T1.
00340  M01S00295.complda +++|
00341  M01S00296.complda +++|
00342  M01S00297.complda +++| PDA      SUBR               ENTRY/EXIT
00343  M01S00298.complda +++|          STD    T1          SET TABLE INDEX
00344  M01S00299.complda +++|          SHN    1
00345  M01S00300.complda +++|          RAD    T1
00346  M01S00301.complda +++|          LDM    PDAA-1,T1   SET SECTOR LIMIT
00347  M01S00302.complda +++|          STM    LDAB
00348  M01S00303.complda +++|          LDM    PDAA-2,T1   SET TRACK / SECTOR CALCULATION
00349  M01S00304.complda +++|          STM    LDAC
00350  M01S00305.complda +++|          LDM    PDAA-3,T1   SET PREPROCESSOR ADDRESS
00351  M01S00306.complda +++|          STM    LDAA
00352  M01S00307.complda +++|          UJN    PDAX        RETURN
00353  M01S00308.complda +++|
00354  M01S00309.complda +++| PDAA     INDEX              LIST OF DEVICE PARAMETERS
00355  M01S00310.complda +++|          INDEX  3*AIDI-3,(CDI,-30,0)
00356  M01S00311.complda +++|          INDEX  3*AIDJ-3,(CDJ,-30,0)
00357  M01S00312.complda +++|          INDEX  3*AIDK-3,(CDK,-30,0)
00358  M01S00313.complda +++|          INDEX  3*AIDL-3,(CDL,-30,345)
00359  M01S00314.complda +++|          INDEX  3*AIDM-3,(CDM,-40,0)
00360  M01S00315.complda +++|          INDEX  3*AIDQ-3,(CDQ,-40,1200)
00361  M01S00045.ns2776  +++|          INDEX  3*AIDR-3,(CDR,-40,3600)
00362  M01S00316.complda +++|          INDEX  3*AIDX-3,(CDX,-25,0)
00363  M01S00317.complda +++|          INDEX  3*AIDY-3,(CDY,-25,310)
00364  M01S00318.complda +++|          INDEX  3*AIDZ-3,(CDZ,-34,644)
00365  M01S00319.complda +++|          INDEX  3*AIDA-3,(CDA,-34,0)
00366  M01S00320.complda +++|          INDEX  3*AIDC-3,(CDC,-140,1300)
00367  M01S00321.complda +++|          INDEX  3*AIDD-3,(CDD,-40,240)
00368  M01S00322.complda +++|          INDEX  3*AIDG-3,(CDG,-57,1064)

Line S00323 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00323.284l847 ---|          INDEX  3*AIMX-3

Line S00001 Modification History
`M01` (Added by)	`284l847`
`M02` (Updated by)	`plda1`

Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00001.plda1   ---|          INDEX
00371  M01S00001.plda1   +++|          INDEX  3*AIDS-3
00372  M01S00324.complda +++| LDA      SPACE  4,10
00373  M01S00325.complda +++| QUAL$    IF     -DEF,QUAL$
00374  M01S00326.complda +++|          QUAL   *

Line S00327 Modification History
`M01` (Added by)	`complda`
`M02` (Updated by)	`ns2776`

Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00327.ns2776  ---| LDA      EQU    /COMPLDA/LDA
00376  M01S00328.complda +++| PDA      EQU    /COMPLDA/PDA
00377  M01S00329.complda +++| QUAL$    ENDIF
00378  M01S00046.ns2776  +++| PDA      RMT
00379  M01S00330.complda +++|          ENDX