User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1da.009

Deck 1DA Part 009

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
08272  M01S01743.ns2783  +++|          STM    LMRB+6
08273  M01S01744.ns2783  +++|          LDC    LMRB+4      LOCATION FOR REVISION LEVEL
08274  M01S01745.ns2783  +++|          STDL   T3
08275  M01S01746.ns2783  +++|          SBN    LMRB+4-LMRA SET MESSAGE ADDRESS
08276  M01S01747.ns2783  +++|          STML   MAD1
08277  M01S01748.ns2783  +++|          LDM    ATTB+16     CONVERT REVISION LEVEL
08278  M01S01749.ns2783  +++|          RJM    CHD
08279  M01S01750.ns2783  +++|          RJM    IDM         ISSUE MESSAGE TO ERRLOG
08280  M01S01751.ns2783  +++|
08281  M01S01752.ns2783  +++|*         GENERATE MICROCODE REVISION BML MESSAGE.
08282  M01S01753.ns2783  +++|
08283  M01S01754.ns2783  +++|          LDD    MA          MOVE MICROCODE REVISION LEVEL
08284  M01S01755.ns2783  +++|          CWM    LMRB,ON
08285  M01S01756.ns2783  +++|          SBN    1           COPY TO BML MESSAGE
08286  M01S01757.ns2783  +++|          CRD    WB
08287  M01S01758.ns2783  +++|          LDD    IR+4        SET CHANNEL NUMBER
08288  M01S01759.ns2783  +++|          STD    NR+2
08289  M01S01760.ns2783  +++|          LDN    HI0104-HI0100
08290  M01S01761.ns2783  +++|          RJM    IBM         ISSUE BML MESSAGE
08291  M01S01762.ns2783  +++|*         LDN    0
08292  M01S01763.ns2783  +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
08293  M01S01764.ns2783  +++|          LJM    CSR         CLEAR SPECIAL REQUEST FLAG
08294  M01S01765.ns2783  +++|
08295  M01S01766.ns2783  +++|
08296  M01S01767.ns2783  +++| LMRA     CON    0,0,0,4,ELDY  MICROCODE REVISION ERRLOG MESSAGE
08297  M01S01768.ns2783  +++|          DATA   4HCH**
08298  M01S01769.ns2783  +++| LMRB     DATA   10H MH427-D**
08299  M01S01770.ns2783  +++|          DATA   C+,CM0.+
08300  M01S04540.1da     +++| LND      SPACE  4,15
08301  M01S04541.1da     +++|**        LND - LOCATE NEXT DRIVE (ON SPECIFIED CONTROLLER).
08302  M01S04542.1da     +++|*
08303  M01S04543.1da     +++|*         ENTRY  (A) = 0 TO LOCATE FIRST DRIVE OF STRING.
08304  M01S00436.1da8    +++|*                (CI) = CONTROLLER STATE TABLE ADDRESS.
Line S04544 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08305  M02S04544.ns2750  ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S04545 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08306  M02S04545.ns2750  ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX.
08307  M01S00190.ns2750  +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
Line S00191 Modification History
M01 (Added by) ns2750
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08308  M02S00191.1da8    ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX, IF (A) = 0.
Line S04546 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08309  M02S04546.ns2783  ---|*                (T7) = CURRENT DEVICE STATE TABLE ADDRESS.
08310  M01S01771.ns2783  +++|*                (T7) = CURRENT *DST* ADDRESS, IF (A) .NE. 0.
08311  M01S04547.1da     +++|*
Line S04548 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08312  M02S04548.ns2783  ---|*         EXIT   (A) = (T7) = STATE TABLE ADDRESS OF NEXT DRIVE.
08313  M01S01772.ns2783  +++|*         EXIT   (A) = (T7) = DEVICE STATE TABLE ADDRESS OF NEXT DRIVE.
Line S04549 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08314  M02S04549.ns2750  ---|*                    = 0 IF NO MORE DRIVES (ON CONTROLLER).
08315  M01S00192.ns2750  +++|*                (A) = 0 IF NO MORE DRIVES (ON CONTROLLER).
Line S00193 Modification History
M01 (Added by) ns2750
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08316  M02S00193.1da8    ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX.
08317  M01S04550.1da     +++|*
Line S04551 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08318  M02S04551.1da8    ---|*         USES   T5, T7.
08319  M01S00437.1da8    +++|*         USES   T7.
08320  M01S04552.1da     +++|
08321  M01S04553.1da     +++|
Line S04554 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08322  M02S04554.1da8    ---| LND2     LDM    PNUN,DI     EXTRACT CONTROLLER BLOCK INDEX
Line S00438 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08323  M02S00438.ns2783  ---| LND2     LDM    CSTB,CI     ADDRESS OF FIRST DRIVE IN STRING
08324  M01S01773.ns2783  +++| LND2     LDM    CTST,CI     ADDRESS OF FIRST DRIVE IN STRING
08325  M01S00439.1da8    +++|          STD    T7
08326  M01S00440.1da8    +++| LND3     LDM    PNUN,T7     VERIFY CONTROLLER
08327  M01S01774.ns2783  +++|          LMM    PNUN,DI
08328  M01S04555.1da     +++|          SHN    -6
Line S04556 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08329  M02S04556.1da8    ---|          STD    T5
Line S04557 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08330  M02S04557.1da8    ---|          LDM    CSTB,T5     ADDRESS OF FIRST DRIVE IN STRING
Line S04558 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08331  M02S04558.1da8    ---|          STD    T7
Line S04559 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08332  M02S04559.1da8    ---| LND3     LDM    PNUN,T7     FORM *CSTB* INDEX
Line S04560 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08333  M02S04560.1da8    ---|          SHN    -6
Line S04561 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08334  M02S04561.1da8    ---|          LMD    T5
Line S00441 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08335  M02S00441.ns2783  ---|          LMD    CI
08336  M01S04562.1da     +++|          NJN    LND1        IF NOT SPECIFIED CONTROLLER
08337  M01S04563.1da     +++|          LDD    T7
08338  M01S04564.1da     +++|
08339  M01S04565.1da     +++| LND      SUBR               ENTRY/EXIT
08340  M01S04566.1da     +++|          ZJN    LND2        IF INITIAL CALL
08341  M01S04567.1da     +++| LND1     LDN    DSTBE
Line S04568 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08342  M02S04568.ns2750  ---|          RAD    T7          ADVANCE DEVICE STATUS BLOCK ADDRESS
08343  M01S00194.ns2750  +++|          RAD    T7          ADVANCE DEVICE STATE TABLE ADDRESS
Line S04569 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08344  M02S04569.ns2783  ---|          LMM    DASA
08345  M01S01775.ns2783  +++|          LMM    DASB
08346  M01S04570.1da     +++|          NJN    LND3        IF NOT END OF BLOCK
08347  M01S04571.1da     +++|*         LDN    0
08348  M01S04572.1da     +++|          UJN    LNDX        RETURN
Line S00092 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08349  M02S00092.ns2783  ---| LNE      SPACE  4,15
Line S00093 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08350  M02S00093.ns2783  ---|**        LNE - LOCATE NEXT EQUIPMENT LINKED TO *PUT*.
08351  M01S01776.ns2783  +++| LNE      SPACE  4,25
08352  M01S01777.ns2783  +++|**        LNE - LOCATE NEXT EST/PARTITION FOR THIS DEVICE.
08353  M01S00094.1da7    +++|*
Line S00095 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08354  M02S00095.ns2783  ---|*         LOCATE NEXT EST ASSOCIATED WITH THE *PUT* ADDRESS
Line S00096 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08355  M02S00096.ns2783  ---|*                STORED IN CELL *LNEB*.
08356  M01S01778.ns2783  +++|*         LOCATE NEXT EST ASSOCIATED WITH THE CURRENT DEVICE.
08357  M01S00097.1da7    +++|*
08358  M01S00098.1da7    +++|*         ENTRY  (A) .EQ. 0, START SEARCH WITH EST ORDINAL IN *PUT*.
08359  M01S00099.1da7    +++|*                (A) .NE. 0, (A) = LAST EST ORDINAL PROCESSED.
Line S00100 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08360  M02S00100.ns2783  ---|*                (LNEB) = *PUT* ADDRESS FOR EQUIPMENT TO BE LOCATED.
08361  M01S01779.ns2783  +++|*                (DI) = DEVICE STATUS TABLE ADDRESS.
08362  M01S01780.ns2783  +++|*                (EO) = CURRENT EST ORDINAL.
08363  M01S00101.1da7    +++|*
Line S00102 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08364  M02S00102.ns2783  ---|*         EXIT   (A) = 0 IF NO MORE EQUIPMENT LINKED TO *PUT*.
Line S00103 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08365  M02S00103.ns2783  ---|*                (A) .NE. 0, EST ORDINAL LOCATED.
Line S00104 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08366  M02S00104.ns2783  ---|*                (T5) = CURRENT EST ORDINAL.
Line S00105 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08367  M02S00105.ns2783  ---|*                (T6) = MST ADDRESS/10 FROM CURRENT EST.
08368  M01S01781.ns2783  +++|*         EXIT   (A) = (EO) = EST ORDINAL OF NEXT PARTITION.
08369  M01S01782.ns2783  +++|*                (A) = 0, IF NO MORE PARTITIONS FOR THIS *PUT*.
08370  M01S01783.ns2783  +++|*                      (EO) = ORIGINAL EST ORDINAL (FROM *CBT*/*PUT*).
08371  M01S00106.1da7    +++|*
Line S00107 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08372  M02S00107.ns2783  ---|*         USES   T5, T6, CM - CM+4.
08373  M01S01784.ns2783  +++|*         USES   EO, CM - CM+4.
08374  M01S00108.1da7    +++|*
Line S00109 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08375  M02S00109.ns2783  ---|*         MACROS PUTE, SFA.
08376  M01S01785.ns2783  +++|*         CALLS  REE, SEO.
08377  M01S01786.ns2783  +++|*
08378  M01S01787.ns2783  +++|*         MACROS PUTE.
08379  M01S00110.1da7    +++|
08380  M01S00111.1da7    +++|
08381  M01S01788.ns2783  +++| LNE3     RJM    SEO         SET EST ORDINAL FROM *CBT* OR *PUT*
08382  M01S01789.ns2783  +++| LNE4     LDN    0           INDICATE NO MORE PARTITIONS
08383  M01S01790.ns2783  +++|
08384  M01S00112.1da7    +++| LNE      SUBR               ENTRY/EXIT
Line S00113 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08385  M02S00113.ns2783  ---|          NJN    LNE1        IF NOT INITIAL ENTRY OF SEARCH
Line S00114 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08386  M02S00114.ns2783  ---|          LDM    LNEB        *PUT* ORDINAL PREVIOUSLY STORED
08387  M01S01791.ns2783  +++|          ZJN    LNE1        IF INITIAL ENTRY OF SEARCH
08388  M01S01792.ns2783  +++|          STD    EO          SET EST ORDINAL
08389  M01S01793.ns2783  +++|          LDML   DVTP,DI
08390  M01S01794.ns2783  +++|          SHN    21-17
08391  M01S01795.ns2783  +++|          PJN    LNE4        IF NOT PARTITIONED DEVICE
08392  M01S01796.ns2783  +++|          UJN    LNE2        LOCATE NEXT EST ORDINAL
08393  M01S01797.ns2783  +++|
08394  M01S01798.ns2783  +++| LNE1     LDI    DI          *PUT* ORDINAL FROM DEVICE STATE TABLE
08395  M01S01799.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
08396  M01S00115.1da7    +++|          SHN    PUTLS
08397  M01S00116.1da7    +++|          PUTE   *
08398  M01S00117.1da7    +++|          ADC    UNCT        GET FIRST EST FOR THIS *PUT*
08399  M01S00118.1da7    +++|          CRD    CM
08400  M01S00119.1da7    +++|          SOD    CM+1        SET STARTING EST ORDINAL FOR SEARCH
Line S00120 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08401  M02S00120.ns2783  ---| LNE1     STD    T5
Line S00121 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08402  M02S00121.ns2783  ---| LNE2     AOD    T5
Line S00122 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08403  M02S00122.ns2783  ---|          LMC    **          HIGHEST MASS STORAGE EST ORDINAL + 1
08404  M01S01800.ns2783  +++|          STD    EO
08405  M01S01801.ns2783  +++| LNE2     AOD    EO
08406  M01S01802.ns2783  +++|          LMC    **          HIGHEST EST ORDINAL FOR THIS DRIVER (+1)
08407  M01S00123.1da7    +++| LNEA     EQU    *-1
Line S00124 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08408  M02S00124.ns2783  ---|          ZJN    LNEX        IF NO MORE *EST* ENTRIES TO CHECK
Line S00125 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08409  M02S00125.ns2783  ---|          SFA    EST,T5
Line S00126 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08410  M02S00126.ns2783  ---|          ADK    EQDE
Line S00127 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08411  M02S00127.ns2783  ---|          CRD    CM
08412  M01S01803.ns2783  +++|          ZJN    LNE3        IF NO MORE *EST* ENTRIES TO CHECK
08413  M01S01804.ns2783  +++|          RJM    REE         READ EST ENTRY
08414  M01S00128.1da7    +++|          LDD    CM
08415  M01S00129.1da7    +++|          SHN    21-13
08416  M01S00130.1da7    +++|          PJN    LNE2        IF NOT MASS STORAGE
08417  M01S00131.1da7    +++|          SHN    21-5-21+13
08418  M01S00132.1da7    +++|          PJN    LNE2        IF NOT A BUFFERED DEVICE
Line S00133 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08419  M02S00133.ns2783  ---|          LDD    CM+4        GET *MST* ADDRESS
Line S00134 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08420  M02S00134.ns2783  ---|          STD    T6
08421  M01S01805.ns2783  +++|          LDD    CM+4
08422  M01S00135.1da7    +++|          SHN    3
08423  M01S00136.1da7    +++|          ADK    DILL
08424  M01S00137.1da7    +++|          CRD    CM
08425  M01S00138.1da7    +++|          LDD    CM+2        GET *PUT* ORDINAL FROM *MST*
Line S00139 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08426  M02S00139.ns2783  ---|          LMC    **          DESIRED *PUT* ORDINAL
Line S00140 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08427  M02S00140.ns2783  ---| LNEB     EQU    *-1
08428  M01S01806.ns2783  +++|          LMI    DI          *PUT* ORDINAL FROM DEVICE STATE TABLE
08429  M01S01807.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
08430  M01S00141.1da7    +++|          NJN    LNE2        IF NOT FOR THE DESIRED *PUT*
Line S00142 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08431  M02S00142.ns2783  ---|          LDD    T5
Line S00143 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08432  M02S00143.ns2783  ---|          UJP    LNEX        RETURN CURRENT EST ORDINAL
Line S00144 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08433  M02S00144.ns2783  ---| LNU      SPACE  4,15
Line S00145 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08434  M02S00145.ns2783  ---|**        LNU - LOCATE NEXT UNIT LINKED TO *PUT*.
08435  M01S01808.ns2783  +++|          LDD    EO
08436  M01S01809.ns2783  +++|          UJP    LNEX        RETURN NEXT EST ORDINAL
08437  M01S01810.ns2783  +++| LPS      SPACE  4,15
08438  M01S01811.ns2783  +++|**        LPS - LOG PACK SERIAL NUMBER(S).
08439  M01S00146.1da7    +++|*
Line S00147 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08440  M02S00147.ns2783  ---|*         ENTRY  (A) = 0 IF INITIAL ENTRY, OTHERWISE NONZERO.
Line S00148 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08441  M02S00148.ns2783  ---|*                (DI) = DEVICE STATUS TABLE ADDRESS.
Line S00149 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08442  M02S00149.ns2783  ---|*                (EO) = EST ORDINAL.
08443  M01S01812.ns2783  +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
08444  M01S01813.ns2783  +++|*                (DN) = DRIVE NUMBER.
08445  M01S01814.ns2783  +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
08446  M01S01815.ns2783  +++|*                (DT) = DRIVE TYPE.
08447  M01S00150.1da7    +++|*
Line S00151 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08448  M02S00151.ns2783  ---|*         EXIT   (A) .EQ. 0, NO MORE PARTITIONS TO PROCESS, IN WHICH
Line S00152 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08449  M02S00152.ns2783  ---|*                           CASE ORIGINAL VALUE RESTORED TO (EO).
Line S00153 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08450  M02S00153.ns2783  ---|*                (A) .NE. 0, EST ORDINAL OF A PARTITION TO PROCESS, IN
Line S00154 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08451  M02S00154.ns2783  ---|*                           WHICH CASE (EO) = (A).
08452  M01S01816.ns2783  +++|*         EXIT   TO *CSR* WHEN THE REQUEST IS COMPLETE.
08453  M01S00155.1da7    +++|*
Line S00156 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08454  M02S00156.ns2783  ---|*         USES   EO.
08455  M01S01817.ns2783  +++|*         USES   NR+2, NR+3, T3, T4, WB - WB+4.
08456  M01S00157.1da7    +++|*
Line S00158 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08457  M02S00158.ns2783  ---|*         CALLS  LNE.
08458  M01S01818.ns2783  +++|*         CALLS  ATT, CAN, C2D, IBM, IDM, IDT, SOU, UPD.
08459  M01S00159.1da7    +++|
08460  M01S00160.1da7    +++|
Line S00161 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08461  M02S00161.ns2783  ---| LNU2     STD    EO          SET EST ORDINAL
08462  M01S01819.ns2783  +++| LPS      BSS    0           ENTRY
08463  M01S01820.ns2783  +++|          LDD    DN
08464  M01S01821.ns2783  +++|          STM    PHYD,DI     PHYSICAL DRIVE NUMBER
08465  M01S01822.ns2783  +++|          LDC    C0200       REPORT ATTRIBUTES OPERATION CODE
08466  M01S01823.ns2783  +++|          RJM    SOU         SET OPERATION CODE AND UNIT
08467  M01S01824.ns2783  +++|          LDC    P036C       REQUEST ATTRIBUTE PARAMETER
08468  M01S01825.ns2783  +++|          STM    CPBF+FCP
08469  M01S01826.ns2783  +++|          LDC    0#8050      RETURN ATTRIBUTE ID 50 AS DATA
08470  M01S01827.ns2783  +++|          STML   CPBF+FCP+1
08471  M01S01828.ns2783  +++|          LDN    12          COMMAND PACKET LENGTH
08472  M01S01829.ns2783  +++|          RJM    IDT         INPUT DATA TO PP
08473  M01S01830.ns2783  +++|          LDC    ATTB+0#1E   SET ADDRESS OF FIRST PACK SERIAL NUMBER
08474  M01S01831.ns2783  +++|          STDL   T4
08475  M01S00162.1da7    +++|
Line S00163 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08476  M02S00163.ns2783  ---| LNU      SUBR               ENTRY/EXIT
Line S00164 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08477  M02S00164.ns2783  ---|          NJN    LNU1        IF NOT INITIAL ENTRY
Line S00165 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08478  M02S00165.ns2783  ---|          LDD    EO          SAVE ORIGINAL EST ORDINAL
Line S00166 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08479  M02S00166.ns2783  ---|          STM    LNUA
Line S00167 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08480  M02S00167.ns2783  ---|          LDI    DI          SET *PUT* ORDINAL
Line S00168 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08481  M02S00168.ns2783  ---|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
Line S00169 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08482  M02S00169.ns2783  ---|          STM    LNEB
Line S00170 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08483  M02S00170.ns2783  ---|          LDN    0
Line S00171 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08484  M02S00171.ns2783  ---| LNU1     RJM    LNE         SEARCH FOR PARTITIONS LINKED TO *PUT*
Line S00172 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08485  M02S00172.ns2783  ---|          NJN    LNU2        IF PARTITION FOUND LINKED TO *PUT*
Line S00173 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08486  M02S00173.ns2783  ---|          LDC    **          ORIGINAL EST ORDINAL
Line S00174 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08487  M02S00174.ns2783  ---| LNUA     EQU    *-1
Line S00175 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08488  M02S00175.ns2783  ---|          STD    EO
Line S00176 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08489  M02S00176.ns2783  ---|          LDN    0
Line S00177 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08490  M02S00177.ns2783  ---|          UJN    LNUX        FINAL RETURN
08491  M01S01832.ns2783  +++|*         GENERATE PACK SERIAL NUMBER ERRLOG MESSAGE.
08492  M01S01833.ns2783  +++|
08493  M01S01834.ns2783  +++| LPS1     LDC    LPSB+2      SET ADDRESS FOR CONVERSION
08494  M01S01835.ns2783  +++|          STDL   T3
08495  M01S01836.ns2783  +++|          SBN    LPSB+2-LPSA DEFINE MESSAGE ADDRESS
08496  M01S01837.ns2783  +++|          STML   MAD1
08497  M01S01838.ns2783  +++|          RJM    CAN         CONVERT ASCII NUMBER TO DISPLAY CODE
08498  M01S01839.ns2783  +++|          LDN    11
08499  M01S01840.ns2783  +++|          RADL   T4          UPDATE POINTER TO NEXT SERIAL NUMBER
08500  M01S01841.ns2783  +++|          LDM    PHYD,DI
08501  M01S01842.ns2783  +++|          STD    NR+3        PUT UNIT NUMBER IN BML MESSAGE
08502  M01S01843.ns2783  +++|          RJM    C2D         CONVERT UNIT NUMBER FOR ERRLOG MESSAGE
08503  M01S01844.ns2783  +++|          STM    LPSA+11
08504  M01S01845.ns2783  +++|          LDD    EO          CONVERT EST ORDINAL
08505  M01S01846.ns2783  +++|          SHN    -3
08506  M01S01847.ns2783  +++|          RJM    C2D
08507  M01S01848.ns2783  +++|          STM    LPSA+6      INSERT IN ERRLOG MESSAGE
08508  M01S01849.ns2783  +++|          LDM    DM,DT
08509  M01S01850.ns2783  +++|          STM    LPSA+5      SAVE DEVICE MNEMONIC
08510  M01S01851.ns2783  +++|          STD    NR+2
08511  M01S01852.ns2783  +++|          LDD    EO
08512  M01S01853.ns2783  +++|          LPN    7           CONVERT LOWER DIGIT
08513  M01S01854.ns2783  +++|          SHN    6
08514  M01S01855.ns2783  +++|          ADC    2R0,        ADD TO ERRLOG MESSAGE
08515  M01S01856.ns2783  +++|          STM    LPSA+7
08516  M01S01857.ns2783  +++|          RJM    IDM         ISSUE MESSAGE TO ERRLOG
08517  M01S01858.ns2783  +++|
08518  M01S01859.ns2783  +++|*         GENERATE PACK SERIAL NUMBER BML MESSAGE.
08519  M01S01860.ns2783  +++|
08520  M01S01861.ns2783  +++|          LDD    MA          MOVE DRIVE SERIAL NUMBER
08521  M01S01862.ns2783  +++|          CWM    LPSB,ON
08522  M01S01863.ns2783  +++|          SBN    1           COPY TO BML MESSAGE
08523  M01S01864.ns2783  +++|          CRD    WB
08524  M01S01865.ns2783  +++|          LDD    EO          INSERT EST ORDINAL
08525  M01S01866.ns2783  +++|          STD    WB
08526  M01S01867.ns2783  +++|          LDN    0           CLEAR UNUSED FIELD
08527  M01S01868.ns2783  +++|          STD    WB+1
08528  M01S01869.ns2783  +++|          RJM    IBM         ISSUE BML MESSAGE
08529  M01S01870.ns2783  +++|          RJM    UPD         UPDATE PHYSICAL DRIVE
08530  M01S01871.ns2783  +++|          NJP    LPS1        IF MORE PHYSICAL DRIVES
08531  M01S01872.ns2783  +++|*         LDN    0
08532  M01S01873.ns2783  +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
08533  M01S01874.ns2783  +++|          LJM    CSR         CLEAR SPECIAL REQUEST FLAG
08534  M01S01875.ns2783  +++|
08535  M01S01876.ns2783  +++|
08536  M01S01877.ns2783  +++| LPSA     CON    0,0,0,4,ELDY PACK SERIAL NUMBER ERRLOG MESSAGE
08537  M01S01878.ns2783  +++|          DATA   10H*****, U**
08538  M01S01879.ns2783  +++| LPSB     DATA   C+,PS=******.+
08539  M01S04573.1da     +++| LSD      SPACE  4,15
08540  M01S04574.1da     +++|**        LSD - LOCATE SELECTED DRIVE IN *DSTB*.
08541  M01S04575.1da     +++|*
08542  M01S04576.1da     +++|*         ENTRY  (T4) = DRIVE NUMBER.
08543  M01S04577.1da     +++|*
08544  M01S04578.1da     +++|*         EXIT   (A) = 0 IF NO RESPONSE EXPECTED.
08545  M01S04579.1da     +++|*                    = DEVICE STATE TABLE ADDRESS FOR DRIVE.
08546  M01S04580.1da     +++|*
08547  M01S04581.1da     +++|*         CALLS  LND.
08548  M01S04582.1da     +++|
08549  M01S04583.1da     +++|
08550  M01S04584.1da     +++| LSD      SUBR               ENTRY/EXIT
08551  M01S04585.1da     +++|          LDN    0
08552  M01S04586.1da     +++|          UJN    LSD2        LOCATE FIRST DRIVE
08553  M01S04587.1da     +++|
08554  M01S04588.1da     +++| LSD1     LDN    1
08555  M01S04589.1da     +++| LSD2     RJM    LND
08556  M01S04590.1da     +++|          ZJN    LSDX        IF END OF DRIVE STRING
08557  M01S04591.1da     +++|          LDD    FC
08558  M01S04592.1da     +++|          NJN    LSD3        IF FORMAT COMPLETE
08559  M01S04593.1da     +++|          LDML   ATTN,T7
08560  M01S04594.1da     +++|          ZJN    LSD1        IF RESPONSE NOT EXPECTED
08561  M01S04595.1da     +++|          UJN    LSD4
08562  M01S04596.1da     +++|
08563  M01S04597.1da     +++| LSD3     LDM    PNUN,T7
08564  M01S04598.1da     +++|          LPN    77          CHECK DRIVE NUMBER
08565  M01S04599.1da     +++|          LMD    T4
08566  M01S04600.1da     +++|          NJN    LSD1        IF SPECIFIED DRIVE NOT FOUND
08567  M01S04601.1da     +++| LSD4     LDD    T7
08568  M01S04602.1da     +++|          UJN    LSDX        RETURN
08569  M01S04603.1da     +++| PEF      SPACE  4,15
08570  M01S04604.1da     +++|**        PEF - PROCESS ERROR FLAGS.
08571  M01S04605.1da     +++|*
08572  M01S04606.1da     +++|*         ENTRY  (RW) = ERROR INDEX.
08573  M01S04607.1da     +++|*                (CB) = *CBT* ORDINAL.
Line S04608 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08574  M02S04608.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
08575  M01S00442.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
08576  M01S04609.1da     +++|*                (DN) = DRIVE NUMBER.
08577  M01S04610.1da     +++|*                (T1) = BYTE 0 OF *PAD4* WORD OF CBT ENTRY.
08578  M01S04611.1da     +++|*                (T2) = BYTE 0 OF *HSLK* WORD OF CBT ENTRY.
08579  M01S04612.1da     +++|*                (NR - NR+4) = *PAD1* WORD OF *CBT* ENTRY.
08580  M01S04613.1da     +++|*
08581  M01S04614.1da     +++|*         EXIT   (A) = 0 IF OK TO INITIATE I/O.
08582  M01S04615.1da     +++|*                TO (0,PA) TO PROCESS A CHANNEL SPECIFIC READ OR
08583  M01S04616.1da     +++|*                  WRITE REQUEST.  AFTER SUSPECT STATE IS SET, THE
08584  M01S04617.1da     +++|*                  REQUEST BECOMES CHANNEL SPECIFIC.
Line S00172 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08585  M02S00172.1da8    ---|*                TO *CMP* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
Line S00443 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08586  M02S00443.ns2783  ---|*                TO *CMP9* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
08587  M01S01880.ns2783  +++|*                TO *CMP10* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
08588  M01S04618.1da     +++|*
Line S04619 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08589  M02S04619.273l780 ---|*         CALLS  IDU, IIO.
Line S00269 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08590  M02S00269.283l840 ---|*         CALLS  IDU, IIO, LDP.
Line S00173 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08591  M02S00173.1da8    ---|*         CALLS  IDU, IIO, LDP, RCR, SEP.
08592  M01S00444.1da8    +++|*         CALLS  IDU, IIO, LDP, SEP.
08593  M01S04620.1da     +++|
08594  M01S04621.1da     +++|
08595  M01S04622.1da     +++| PEF1     LDN    0           INDICATE I/O IN ORDER
08596  M01S04623.1da     +++|
08597  M01S04624.1da     +++| PEF      SUBR               ENTRY/EXIT
08598  M01S04625.1da     +++|          LDD    T1
08599  M01S04626.1da     +++|          SHN    -6          CHECK CHANNEL NUMBER
08600  M01S04627.1da     +++|          LMD    IR+4
08601  M01S04628.1da     +++|          NJN    PEFX        IF I/O DISABLED ON THIS ACCESS
08602  M01S04629.1da     +++|          LDD    RW
08603  M01S04630.1da     +++|          ZJN    PEFX        IF *1MV* DEVICE VERIFICATION
08604  M01S04631.1da     +++|          LDM    ERFL
08605  M01S04632.1da     +++|          LMD    DI
Line S04633 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08606  M02S04633.283l840 ---|          ZJN    PEFX
08607  M01S00174.283l840 +++|          ZJN    PEFX        IF ERROR IN PROGRESS ON THIS DEVICE
Line S04634 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08608  M02S04634.1da8    ---|          LDML   CSRF,DI
Line S04635 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08609  M02S04635.1da8    ---|          SHN    -17
Line S04636 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08610  M02S04636.1da8    ---|          NJN    PEF1        IF CONTROLLER DEAD
Line S00445 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08611  M02S00445.ns2783  ---|          LDML   CSTB,CI
08612  M01S01881.ns2783  +++|          LDML   CTST,CI
08613  M01S00446.1da8    +++|          SHN    21-15
08614  M01S00447.1da8    +++|          MJN    PEF1        IF CONTROLLER DEAD
08615  M01S04637.1da     +++|          LDML   ERCT,DI
08616  M01S04638.1da     +++|          NJN    PEF1        IF I/O INITIATED
Line S04639 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08617  M02S04639.ns2750  ---|          RJM    IDU
Line S04640 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08618  M02S04640.ns2750  ---|          NJN    PEFX        IF UNIT INTERLOCK UNAVAILABLE
08619  M01S00195.ns2750  +++|          RJM    IDU         INTERLOCK DEVICE
08620  M01S00196.ns2750  +++|          NJN    PEFX        IF INTERLOCK NOT AVAILABLE
Line S00004 Modification History
M01 (Added by) 1da4
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
08621  M02S00004.ns2767  ---|          LDML   DVTP,DI
Line S00005 Modification History
M01 (Added by) 1da4
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
08622  M02S00005.ns2767  ---|          LPC    0#BFFF      CLEAR CHECK FOR OFF-LINE DRIVE FLAG
Line S00006 Modification History
M01 (Added by) 1da4
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
08623  M02S00006.ns2767  ---|          STML   DVTP,DI
08624  M01S04641.1da     +++|          LDN    CSRC
08625  M01S04642.1da     +++|          STM    ERCT,DI     SET INITIAL ERROR COUNT
Line S04643 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08626  M02S04643.273l780 ---|          LDD    DN          DRIVE NUMBER
08627  M01S00270.273l780 +++|          RJM    LDP         LOAD DEVICE PARAMETERS
08628  M01S00271.273l780 +++|          LDD    CM+1
08629  M01S00272.273l780 +++|          SHN    -6          FAILING DRIVE NUMBER
08630  M01S04644.1da     +++|          STM    PHYD,DI     FOR RECOVERED ERROR REPORTING
Line S04645 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08631  M02S04645.283l840 ---|          LDD    DI
Line S04646 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08632  M02S04646.283l840 ---|          STM    ERFL        ONLY ALLOW ONE UNIT IN ERROR RECOVERY
08633  M01S00175.283l840 +++|          RJM    SEP         SET ERROR PROCESSING INTERLOCK
Line S00176 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08634  M02S00176.1da8    ---|          NJP    CMP         IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
Line S00448 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08635  M02S00448.ns2783  ---|          NJP    CMP9        IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
08636  M01S01882.ns2783  +++|          NJP    CMP10       IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
08637  M01S04647.1da     +++|          LDD    CB          INITIATE I/O
08638  M01S04648.1da     +++|          RJM    IIO
08639  M01S04649.1da     +++|          LJM    0,PA        EXIT TO PROCESSOR
Line S00177 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08640  M02S00177.1da8    ---|
Line S00178 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08641  M02S00178.1da8    ---| PEF0     RJM    RCR         RESET CHANNEL REGISTERS
Line S00179 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08642  M02S00179.1da8    ---|          LDC    4000        CLEAR BUFFER COUNT
Line S00180 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08643  M02S00180.1da8    ---|          STM    RQLN,DI
Line S00181 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08644  M02S00181.1da8    ---|          LJM    CMP         COMPLETE REQUEST
Line S04650 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08645  M02S04650.ns2783  ---| RCS      SPACE  4,10
Line S04651 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08646  M02S04651.ns2783  ---|**        RCS - REMOVE CHANNEL FROM SYSTEM USE.
08647  M01S01883.ns2783  +++| PLP      SPACE  4,20
08648  M01S01884.ns2783  +++|**        PLP - PROCESS LOST PARITY.
08649  M01S04652.1da     +++|*
Line S04653 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08650  M02S04653.ns2783  ---|*         ENTRY  (A) = EST ORDINAL IF CHANNEL TO BE DOWNED ON DEVICE.
Line S04654 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08651  M02S04654.ns2783  ---|*                    = 0 IF CHANNEL TO BE GLOBALLY DOWNED.
08652  M01S01885.ns2783  +++|*         PLP HANDLES *PROCESS LOST PARITY* CONDITIONS, PROVIDED THAT
08653  M01S01886.ns2783  +++|*         THE DEVICE HAS BEEN RECOVERED.  IF IT HAS, PLP SETS THE UNIT
08654  M01S01887.ns2783  +++|*         NUMBER AND THE *PARITY PROTECTION LOST* FLAG IN MST WORD
08655  M01S01888.ns2783  +++|*         *ACGL*, SO THAT THE THE E,E DISPLAY ON EACH MAINFRAME WILL
08656  M01S01889.ns2783  +++|*         SHOW WHICH DRIVE IS OFF-LINE.
08657  M01S04655.1da     +++|*
Line S04656 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08658  M02S04656.ns2783  ---|*         USES   CM+1.
08659  M01S01890.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08660  M01S01891.ns2783  +++|*                (EO) = EST ORDINAL.
08661  M01S04657.1da     +++|*
Line S04658 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08662  M02S04658.ns2783  ---|*         MACROS DELAY, EXECUTE, MONITOR.
08663  M01S01892.ns2783  +++|*         USES   CM - CM+4.
08664  M01S01893.ns2783  +++|*
08665  M01S01894.ns2783  +++|*         CALLS  CDS, IEE, LNE.
08666  M01S01895.ns2783  +++|*
08667  M01S01896.ns2783  +++|*         MACROS MONITOR, SMSTF.
08668  M01S04659.1da     +++|
08669  M01S04660.1da     +++|
Line S04661 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08670  M02S04661.ns2783  ---| RCS      SUBR               ENTRY/EXIT
Line S04662 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08671  M02S04662.ns2783  ---|          LMC    4000
Line S04663 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08672  M02S04663.ns2783  ---|          STM    RCSA+4      SET DRIVER CALL FLAG, EST ORDINAL
Line S04664 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08673  M02S04664.ns2783  ---|          LDD    MA
Line S04665 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08674  M02S04665.ns2783  ---|          CWM    RCSA,ON     STORE *1DS* CALL IN MESSAGE BUFFER
Line S04666 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08675  M02S04666.ns2783  ---| RCS1     LDN    0
Line S04667 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08676  M02S04667.ns2783  ---|          STD    CM+1        SET NON-PRIORITY REQUEST
Line S04668 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08677  M02S04668.ns2783  ---|          EXECUTE  1DS,=
Line S04669 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08678  M02S04669.ns2783  ---|          MONITOR  RPPM      REQUEST PP
Line S04670 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08679  M02S04670.ns2783  ---|          LDD    CM+1
Line S04671 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08680  M02S04671.ns2783  ---|          NJN    RCSX        IF *1DS* STARTED
Line S04672 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08681  M02S04672.ns2783  ---|          DELAY
Line S04673 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08682  M02S04673.ns2783  ---|          UJN    RCS1        RETRY CALL
08683  M01S01897.ns2783  +++| PLP4     LDC    **          (COUNT OF NEW PARTITIONS PROCESSED)
08684  M01S01898.ns2783  +++| PLPA     EQU    *-1
08685  M01S01899.ns2783  +++|          ZJN    PLP5        IF NO NEW PARTITIONS PROCESSED
08686  M01S01900.ns2783  +++|          RJM    IEE         ISSUE E,E EVENT
08687  M01S01901.ns2783  +++| PLP5     LDC    **          (COUNT OF UNPROCESSED PARTITIONS LEFT)
08688  M01S01902.ns2783  +++| PLPB     EQU    *-1
08689  M01S01903.ns2783  +++|          NJN    PLPX        IF NOT ALL PARTITIONS PROCESSED
08690  M01S01904.ns2783  +++|          LDML   DVTP,DI     CLEAR *PROCESS LOST PARITY* FLAG
08691  M01S01905.ns2783  +++|          LPC    137777
08692  M01S01906.ns2783  +++|          STML   DVTP,DI
08693  M01S04674.1da     +++|
08694  M01S01907.ns2783  +++| PLP      SUBR               ENTRY/EXIT
08695  M01S01908.ns2783  +++|          LDML   DVTP,DI
08696  M01S01909.ns2783  +++|          SHN    21-16
08697  M01S01910.ns2783  +++|          PJN    PLPX        IF *PROCESS LOST PARITY* NOT SET
08698  M01S01911.ns2783  +++|          LDN    0           CLEAR PARTITION COUNTS
08699  M01S01912.ns2783  +++|          STM    PLPA
08700  M01S01913.ns2783  +++|          STM    PLPB
08701  M01S01914.ns2783  +++|*         LDN    0           INITIALIZE PARTITION SEARCH
08702  M01S01915.ns2783  +++| PLP1     RJM    LNE         LOCATE NEXT EST FOR THIS DEVICE
08703  M01S01916.ns2783  +++|          ZJN    PLP4        IF NO MORE PARTITIONS
08704  M01S01917.ns2783  +++|          RJM    CDS         CHECK DEVICE STATUS
08705  M01S01918.ns2783  +++|          MJN    PLP2        IF DEVICE NOT RECOVERED
08706  M01S01919.ns2783  +++|          LDD    CM+4        CHECK IF *PARITY LOST* FLAG ALREADY SET
08707  M01S01920.ns2783  +++|          SHN    3
08708  M01S01921.ns2783  +++|          ADN    ACGL
08709  M01S01922.ns2783  +++|          CRD    CM
08710  M01S01923.ns2783  +++|          LDD    CM+4
08711  M01S01924.ns2783  +++|          SHN    21-2
08712  M01S01925.ns2783  +++|          MJN    PLP3        IF PARTITION ALREADY PROCESSED
08713  M01S01926.ns2783  +++|          LDD    EO          SET EST ORDINAL
08714  M01S01927.ns2783  +++|          STD    CM+1
08715  M01S01928.ns2783  +++|          LDM    OUPD,DI     OFFLINE UNIT OF PARITY DEVICE
08716  M01S01929.ns2783  +++|          STD    CM+2
08717  M01S01930.ns2783  +++|          LDN    SOUS        SET OFFLINE UNIT IN *ACGL*
08718  M01S01931.ns2783  +++|          STD    CM+3
08719  M01S01932.ns2783  +++|          MONITOR  STBM
08720  M01S01933.ns2783  +++|          SMSTF  GDPL        SET *PARITY PROTECTION LOST* IN *ACGL*
08721  M01S01934.ns2783  +++|          AOM    PLPA        INDICATE NEW PARTITION PROCESSED
08722  M01S01935.ns2783  +++|          UJN    PLP3        PROCESS NEXT PARTITION
08723  M01S00273.273l780 +++|
Line S04675 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08724  M02S04675.ns2783  ---| RCSA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000
08725  M01S01936.ns2783  +++| PLP2     AOM    PLPB        INCREMENT UNPROCESSED PARTITION COUNT
08726  M01S01937.ns2783  +++| PLP3     LDD    EO
08727  M01S01938.ns2783  +++|          UJP    PLP1        PROCESS NEXT PARTITION
08728  M01S01939.ns2783  +++| PPE      SPACE  4,10
08729  M01S01940.ns2783  +++|**        PPE - PROCESS PARITY ENABLE.
08730  M01S01941.ns2783  +++|*
08731  M01S01942.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08732  M01S01943.ns2783  +++|*                (EO) = EST ORDINAL.
08733  M01S01944.ns2783  +++|*
08734  M01S01945.ns2783  +++|*         EXIT   (DVTP,DI) BIT 10 CLEAR, IF PROCESSING COMPLETE.
08735  M01S01946.ns2783  +++|*                (DVTP,DI) BIT 7 SET, IF PROCESSING COMPLETE.
08736  M01S01947.ns2783  +++|*
08737  M01S01948.ns2783  +++|*         CALLS  EMP.
08738  M01S01949.ns2783  +++|
08739  M01S01950.ns2783  +++|
08740  M01S01951.ns2783  +++| PPE      SUBR               ENTRY/EXIT
08741  M01S01952.ns2783  +++|          LDML   DVTP,DI
08742  M01S01953.ns2783  +++|          SHN    21-12
08743  M01S01954.ns2783  +++|          PJN    PPEX        IF *ENABLE MMF PARITY ACCESS* NOT SET
08744  M01S01955.ns2783  +++|          RJM    EMP         ENABLE MMF PARITY DEVICE ACCESS
08745  M01S01956.ns2783  +++|          NJN    PPEX        IF NOT ALL PARTITIONS PROCESSED
08746  M01S01957.ns2783  +++|          LDML   DVTP,DI     CLEAR *ENABLE MMF PARITY ACCESS* FLAG
08747  M01S01958.ns2783  +++|          LPC    175577
08748  M01S01959.ns2783  +++|          LMC    200         SET *CHECK MMF PARITY ACCESS* FLAG
08749  M01S01960.ns2783  +++|          STML   DVTP,DI
08750  M01S01961.ns2783  +++|          UJN    PPEX        RETURN
08751  M01S01962.ns2783  +++| RBD      SPACE  4,10
08752  M01S01963.ns2783  +++|**        RBD - READ *BDLL*.
08753  M01S01964.ns2783  +++|*
08754  M01S01965.ns2783  +++|*         ENTRY  (EO) = EST ORDINAL.
08755  M01S01966.ns2783  +++|*
08756  M01S01967.ns2783  +++|*         EXIT   (CM - CM+4) = *BDLL* WORD OF MST.
08757  M01S01968.ns2783  +++|*
08758  M01S01969.ns2783  +++|*         USES   CM - CM+4.
08759  M01S01970.ns2783  +++|*
08760  M01S01971.ns2783  +++|*         CALLS  REE.
08761  M01S01972.ns2783  +++|
08762  M01S01973.ns2783  +++|
08763  M01S01974.ns2783  +++| RBD      SUBR               ENTRY/EXIT
08764  M01S01975.ns2783  +++|          RJM    REE         READ EST ENTRY
08765  M01S01976.ns2783  +++|          LDD    CM+4
08766  M01S01977.ns2783  +++|          SHN    3
08767  M01S01978.ns2783  +++|          ADN    BDLL
08768  M01S01979.ns2783  +++|          CRD    CM
08769  M01S01980.ns2783  +++|          UJN    RBDX        RETURN
08770  M01S01981.ns2783  +++| RCA      SPACE  4,10
08771  M01S01982.ns2783  +++|**        RCA - REPORT CONTROLLER ATTRIBUTES.
08772  M01S01983.ns2783  +++|*
08773  M01S01984.ns2783  +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
08774  M01S01985.ns2783  +++|*
08775  M01S01986.ns2783  +++|*         EXIT   PARAMETERS SET UP FOR *IDT* CALL.
08776  M01S01987.ns2783  +++|*
08777  M01S01988.ns2783  +++|*         CALLS  SOC.
08778  M01S01989.ns2783  +++|
08779  M01S01990.ns2783  +++|
08780  M01S01991.ns2783  +++| RCA      SUBR               ENTRY/EXIT
08781  M01S01992.ns2783  +++|          LDC    C0200       REPORT ATTRIBUTES OPERATION CODE
08782  M01S01993.ns2783  +++|          RJM    SOC         SET OPERATION CODE AND CONTROLLER
08783  M01S01994.ns2783  +++|          LDC    P036C       REQUEST ATTRIBUTE PARAMETER
08784  M01S01995.ns2783  +++|          STM    CPBF+FCP
08785  M01S01996.ns2783  +++|          LDC    0#8050      RETURN ATTRIBUTE ID 50 AS DATA
08786  M01S01997.ns2783  +++|          STML   CPBF+FCP+1
08787  M01S01998.ns2783  +++|          LDN    12          COMMAND PACKET LENGTH
08788  M01S01999.ns2783  +++|          UJN    RCAX        RETURN
08789  M01S04676.1da     +++| RCT      SPACE  4,10
08790  M01S04677.1da     +++|**        RCT - READ CHANNEL TABLE.
08791  M01S04678.1da     +++|*
08792  M01S04679.1da     +++|*         EXIT   (A) = CHANNEL TABLE STATUS BYTE.
08793  M01S04680.1da     +++|*
08794  M01S04681.1da     +++|*         USES   NR - NR+4.
08795  M01S04682.1da     +++|*
08796  M01S04683.1da     +++|*         MACROS CHTE.
08797  M01S04684.1da     +++|
08798  M01S04685.1da     +++|
08799  M01S04686.1da     +++| RCT      SUBR               ENTRY/EXIT
08800  M01S04687.1da     +++|          CHTE   *
08801  M01S04688.1da     +++|          LDC    0           READ CHANNEL TABLE ENTRY
08802  M01S04689.1da     +++|          CRD    NR
08803  M01S04690.1da     +++| RCTA     LDD    NR
08804  M01S04691.1da     +++|          UJN    RCTX        RETURN
08805  M01S00274.273l780 +++| RDO      SPACE  4,15
08806  M01S00275.273l780 +++|**        RDO - REPORT DRIVE OFF-LINE.
08807  M01S00276.273l780 +++|*
Line S00277 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08808  M02S00277.ns2783  ---|*         THIS ROUTINE UPDATES BITS IN WORD *BDLL* OF THE MST SO THE
Line S00278 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08809  M03S00278.ns2783  ---|*         E,E DISPLAY SHOWS WHICH DRIVE IS OFF-LINE.  IT ALSO ISSUES
Line S00279 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08810  M03S00279.ns2783  ---|*         A MONITOR REQUEST WHICH CAUSES AN OPERATOR ACTION TO VIEW
Line S00280 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08811  M03S00280.ns2783  ---|*         THE E,E DISPLAY.
Line S00178 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08812  M02S00178.ns2783  ---|*         E,E DISPLAY SHOWS WHICH DRIVE IS OFF-LINE.
08813  M01S02000.ns2783  +++|*         RDO SETS THE *PROCESS LOST PARITY* FLAG SO THAT MST WORD
08814  M01S02001.ns2783  +++|*         *ACGL* WILL BE UPDATED WHEN THE DEVICE HAS BEEN RECOVERED.
08815  M01S00281.273l780 +++|*
Line S00282 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08816  M02S00282.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
08817  M01S00449.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08818  M01S00283.273l780 +++|*
Line S00284 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08819  M02S00284.1da7    ---|*         USES   T7, CM+1 - CM+4.
Line S00179 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08820  M02S00179.ns2783  ---|*         USES   CM+2, T7.
Line S00285 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08821  M02S00285.ns2783  ---|*
Line S00286 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08822  M03S00286.ns2783  ---|*         CALLS  UBP.
Line S00182 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08823  M02S00182.ns2783  ---|*         CALLS  CRP, UBP.
08824  M01S02002.ns2783  +++|*         CALLS  PLP.
Line S00287 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08825  M02S00287.1da7    ---|*
Line S00288 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08826  M02S00288.1da7    ---|*         MACROS MONITOR.
08827  M01S00289.273l780 +++|
08828  M01S00290.273l780 +++|
08829  M01S00291.273l780 +++| RDO      SUBR               ENTRY/EXIT
Line S00292 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08830  M02S00292.283l840 ---|          LDM    PHYD,DI
Line S00293 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08831  M02S00293.283l840 ---|          SHN    2
Line S00294 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08832  M02S00294.283l840 ---|          LMN    2
Line S00183 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08833  M02S00183.ns2783  ---|          RJM    CRP         CLEAR *RESTORE IN PROGRESS*, IF SET
Line S00184 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08834  M02S00184.ns2783  ---|          LDM    PHYD,DI     SET OFF-LINE UNIT INFORMATION
Line S00185 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08835  M02S00185.ns2783  ---|          SHN    1
Line S00186 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08836  M02S00186.ns2783  ---|          LMN    1
Line S00295 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08837  M02S00295.ns2783  ---|          STD    CM+2        FAILING DRIVE/PARITY PROTECTION DISABLED
Line S00296 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08838  M03S00296.ns2783  ---|          LDC    64*100      LOW ORDER BIT TO CHANGE TIMES 100
Line S00187 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08839  M02S00187.ns2783  ---|          LDC    65*100      LOW ORDER BIT TO CHANGE TIMES 100
Line S00297 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08840  M02S00297.ns2783  ---|          STD    T7
Line S00298 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08841  M03S00298.ns2783  ---|          LDC    BDLL*100+10 6/WORD, 6/BITS TO CHANGE
Line S00188 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08842  M02S00188.ns2783  ---|          LDC    BDLL*100+7  6/WORD, 6/BITS TO CHANGE
Line S00299 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08843  M02S00299.ns2783  ---|          RJM    UBP         UPDATE *BDLL* PARAMETER
08844  M01S02003.ns2783  +++|          LDML   DVTP,DI     SET *PROCESS LOST PARITY* FLAG
08845  M01S02004.ns2783  +++|          LPC    137777
08846  M01S02005.ns2783  +++|          LMC    40000
08847  M01S02006.ns2783  +++|          STML   DVTP,DI
08848  M01S02007.ns2783  +++|          RJM    PLP         PROCESS LOST PARITY
Line S00300 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08849  M02S00300.1da7    ---|          LDN    EEVS
Line S00301 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08850  M02S00301.1da7    ---|          STD    CM+1        ENTER EVENT
Line S00302 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08851  M02S00302.1da7    ---|          LDN    0
Line S00303 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08852  M02S00303.1da7    ---|          STD    CM+3
Line S00304 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08853  M02S00304.1da7    ---|          LDN    CEDE        *CHECK E,E DISPLAY* EVENT
Line S00305 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08854  M02S00305.1da7    ---|          STD    CM+4
Line S00306 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08855  M02S00306.1da7    ---|          MONITOR  EATM
08856  M01S00307.273l780 +++|          UJN    RDOX        RETURN
08857  M01S02008.ns2783  +++| REE      SPACE  4,10
08858  M01S02009.ns2783  +++|**        REE - READ EST ENTRY.
08859  M01S02010.ns2783  +++|*
08860  M01S02011.ns2783  +++|*         ENTRY  (EO) = EST ORDINAL.
08861  M01S02012.ns2783  +++|*
08862  M01S02013.ns2783  +++|*         EXIT   (A) = ADDRESS  OF *EQDE* WORD OF EST ENTRY.
08863  M01S02014.ns2783  +++|*                (CM - CM+4) = *EQDE* WORD OF EST ENTRY.
08864  M01S02015.ns2783  +++|*
08865  M01S02016.ns2783  +++|*         USES   CM - CM+4.
08866  M01S02017.ns2783  +++|*
08867  M01S02018.ns2783  +++|*         MACROS SFA.
08868  M01S02019.ns2783  +++|
08869  M01S02020.ns2783  +++|
08870  M01S02021.ns2783  +++| REE      SUBR               ENTRY/EXIT
08871  M01S02022.ns2783  +++|          SFA    EST,EO
08872  M01S02023.ns2783  +++|          ADK    EQDE
08873  M01S02024.ns2783  +++|          CRD    CM
08874  M01S02025.ns2783  +++|          UJN    REEX        RETURN
08875  M01S04692.1da     +++| RLB      SPACE  4,15
08876  M01S04693.1da     +++|**        RLB - READ LINKAGE BITS.
08877  M01S04694.1da     +++|*
08878  M01S04695.1da     +++|*         ENTRY  (T6) = ADDRESS FOR LINKAGE.
08879  M01S04696.1da     +++|*                (PB) = CONTROL BUFFER ORDINAL.
08880  M01S04697.1da     +++|*                (T1) = DATA BUFFER ADDRESS.
08881  M01S04698.1da     +++|*                (T2) = CONTROL BUFFER WORD NUMBER.
08882  M01S04699.1da     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
08883  M01S04700.1da     +++|*
08884  M01S04701.1da     +++|*         EXIT   SECTOR LINKAGE SET IN *CBT* ENTRY.
08885  M01S04702.1da     +++|*
08886  M01S04703.1da     +++|*         USES   T1, T6.
08887  M01S04704.1da     +++|*
08888  M01S04705.1da     +++|*         MACROS CBTE.
08889  M01S04706.1da     +++|
08890  M01S04707.1da     +++|
08891  M01S04708.1da     +++| RLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
08892  M01S04709.1da     +++|          RADL   T1
08893  M01S04710.1da     +++|          LDIL   T1          EXTRACT LINKAGE FROM BUFFER
08894  M01S04711.1da     +++| RLB2     SHN    -14
08895  M01S04712.1da     +++|          SHN    10          POSITION FOR *CBT* ENTRY
08896  M01S04713.1da     +++|          STI    T6
08897  M01S04714.1da     +++|          LDML   4,T1        EXTRACT LINKAGE FROM BUFFER
08898  M01S04715.1da     +++|          SHN    -14
08899  M01S04716.1da     +++|          SHN    4           POSITION FOR *CBT* ENTRY
08900  M01S04717.1da     +++|          RAI    T6
08901  M01S04718.1da     +++|          LDML   10,T1       EXTRACT LINKAGE FROM BUFFER
08902  M01S04719.1da     +++|          SHN    -14
08903  M01S04720.1da     +++|*         SHN    0           POSITION FOR *CBT* ENTRY
08904  M01S04721.1da     +++|          RAI    T6
08905  M01S04722.1da     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
08906  M01S04723.1da     +++|          LMN    CM+5
08907  M01S04724.1da     +++|          NJN    RLB1        IF MORE LINKAGE
08908  M01S04725.1da     +++|          LDD    PB
08909  M01S04726.1da     +++|          SHN    CBTLS
08910  M01S04727.1da     +++|          CBTE   *
08911  M01S04728.1da     +++|          ADC    0           FWA OF *CBT*
08912  M01S04729.1da     +++|          ADD    T2
08913  M01S04730.1da     +++|          CWD    CM          UPDATE CONTROL BUFFER ENTRY
08914  M01S04731.1da     +++|
08915  M01S04732.1da     +++| RLB      SUBR               ENTRY/EXIT
08916  M01S04733.1da     +++|          UJN    RLB2        MOVE SECTOR LINKAGE
08917  M01S04734.1da     +++| RMR      SPACE  4,10
08918  M01S04735.1da     +++|**        RMR - READ CHANNEL STATUS REGISTER.
08919  M01S04736.1da     +++|*
08920  M01S04737.1da     +++|*         EXIT   (A) = 0 IF NO CHANNEL ERROR.
08921  M01S04738.1da     +++|*                (RBUF) = REGISTER CONTENTS.
08922  M01S04739.1da     +++|*
08923  M01S04740.1da     +++|*         CALLS  WMC.
08924  M01S04741.1da     +++|
08925  M01S04742.1da     +++|
08926  M01S04743.1da     +++| RMR      SUBR               ENTRY/EXIT
08927  M01S04744.1da     +++|          FNC.   IOUC,MR
08928  M01S04745.1da     +++|          ACN.   MR          ACTIVATE MAINTENANCE CHANNEL
08929  M01S04746.1da     +++|          LDN    0
08930  M01S04747.1da     +++|          OAN.   MR          OUTPUT NULL PARAMETER
08931  M01S04748.1da     +++|          CON    LDCI
08932  M01S04749.1da     +++|          IAN    CH          (FORCE CHANNEL TABLE ENTRY)
08933  M01S04750.1da     +++|          ORG    *-1
08934  M01S04751.1da     +++|          CON    RCSR+CH     TRANSMIT REGISTER NUMBER
08935  M01S04752.1da     +++|          OAN.   MR
08936  M01S04753.1da     +++|          RJM    WMC         WAIT CHANNEL EMPTY
08937  M01S04754.1da     +++|          DCN.   MR+40
08938  M01S04755.1da     +++|          NJN    RMRX        IF CHANNEL HUNG FULL
08939  M01S04756.1da     +++|          ACN.   MR
08940  M01S04757.1da     +++|          LDN    RBUFL       READ CHANNEL STATUS REGISTER
08941  M01S04758.1da     +++|          IAM.   RBUF,MR
08942  M01S04759.1da     +++|          UJN    RMRX        RETURN
08943  M01S04760.1da     +++| RND      SPACE  4,15
08944  M01S04761.1da     +++|**        RND - RUN DIAGNOSTICS.
08945  M01S04762.1da     +++|*
08946  M01S04763.1da     +++|*         NOTE - THE DRIVE MUST BE CLUSTERED TO RUN DIAGNOSTICS.
08947  M01S04764.1da     +++|*                THE CODE WILL NOT RUN DIAGNOSTICS IF A FORMAT
08948  M01S04765.1da     +++|*                REQUEST IS PRESENT TO ENSURE THIS ROUTINE IS ONLY
08949  M01S04766.1da     +++|*                RUN WHEN THE DRIVE IS CLUSTERED.
08950  M01S04767.1da     +++|*
08951  M01S04768.1da     +++|*         ENTRY  (PHYD,DI) = DRIVE TO RUN DIAGNOSTICS.
08952  M01S04769.1da     +++|*                (FC) = 0 IF FORMAT NOT COMPLETE.
Line S04770 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08953  M02S04770.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
08954  M01S00450.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
08955  M01S04771.1da     +++|*
08956  M01S04772.1da     +++|*         EXIT   TO *ERR* IF ERROR.
08957  M01S04773.1da     +++|*
08958  M01S04774.1da     +++|*         CALLS  ATT, SOU, WCB.
08959  M01S04775.1da     +++|
08960  M01S04776.1da     +++|
08961  M01S04777.1da     +++| RND      SUBR               ENTRY/EXIT
08962  M01S04778.1da     +++|          LDD    FC
08963  M01S04779.1da     +++|          ZJN    RNDX        IF FORMAT NOT COMPLETE
08964  M01S04780.1da     +++|          LDML   EDBF+FALT
08965  M01S04781.1da     +++|          SBN    EDPE
Line S04782 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08966  M02S04782.1da8    ---|          ZJN    RND10       IF MEDIA ERROR
08967  M01S00451.1da8    +++|          ZJN    RND1        IF MEDIA ERROR
08968  M01S04783.1da     +++|          SBN    EIVR-EDPE
Line S04784 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08969  M02S04784.1da8    ---|          ZJN    RND10       IF ID24
08970  M01S00452.1da8    +++|          ZJN    RND1        IF ID24
08971  M01S04785.1da     +++|          SBN    EMEX-EIVR
08972  M01S04786.1da     +++|          NJN    RNDX        IF NOT ID26
Line S04787 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08973  M02S04787.1da8    ---|*RND10    LDN    0
Line S04788 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08974  M02S04788.1da8    ---| RND10    STM    ESAD,DI     SO ERROR RESPONSE WILL BE LOGGED
08975  M01S00453.1da8    +++| RND1     STM    ERRA        ENABLE LOGGING OF ERROR RESPONSE
08976  M01S04789.1da     +++|          LDC    C8100       DRIVE DIAGNOSTIC COMMAND
08977  M01S04790.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
08978  M01S04791.1da     +++|          LDC    P02D5
08979  M01S04792.1da     +++|          STML   CPBF+FCP    PARAMETER TO SELECT DRIVE
08980  M01S04793.1da     +++|          LDM    PHYD,DI
08981  M01S04794.1da     +++|          SHN    10
08982  M01S04795.1da     +++|          STML   CPBF+FCP+1  PHYSICAL DRIVE NUMBER
08983  M01S04796.1da     +++|          LDN    12          WRITE COMMAND PACKET
08984  M01S04797.1da     +++|          RJM    WCB
08985  M01S04798.1da     +++|          LDN    CMSS        PROCESS ATTENTION
08986  M01S04799.1da     +++|          RJM    ATT
08987  M01S04800.1da     +++|          ZJP    RNDX        IF DIAGNOSTICS COMPLETED SUCCESSFULLY
Line S04801 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08988  M02S04801.283l840 ---|          LCN    EDTF
08989  M01S00189.283l840 +++|          LCN    EDTF        DIAGNOSTIC FAULT
08990  M01S04802.1da     +++|          RJM    ERR         PROCESS ERROR
Line S04803 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08991  M02S04803.ns2783  ---| ROD      SPACE  4,10
08992  M01S02026.ns2783  +++| ROD      SPACE  4,20
08993  M01S04804.1da     +++|**        ROD - RESTORE OFF-LINE DRIVE.
08994  M01S04805.1da     +++|*
Line S04806 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08995  M02S04806.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
08996  M01S00454.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08997  M01S00149.ns2768  +++|*                (DT) = DRIVE TYPE.
08998  M01S04807.1da     +++|*
Line S04808 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08999  M02S04808.ns2783  ---|*         EXIT   TO *CMP* IF RESTORE CYLINDER COMMAND COMPLETE.
09000  M01S02027.ns2783  +++|*         EXIT   TO CALLER IF NO RESTORE OR NOT TIME TO RESTORE.
09001  M01S02028.ns2783  +++|*                TO *CMP* IF RESTORE CYLINDER COMMAND COMPLETE.
Line S04809 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09002  M02S04809.273l780 ---|*                TO *CMP1* IF ENTIRE DRIVE RESTORED.
09003  M01S04810.1da     +++|*                TO *ERR* IF ERROR.
09004  M01S04811.1da     +++|*
Line S04812 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09005  M02S04812.273l780 ---|*         CALLS  ATT, CSC, SOU, WCB.
Line S00308 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09006  M02S00308.ns2783  ---|*         USES   CM+2, T7.
09007  M01S02029.ns2783  +++|*         USES   T1.
09008  M01S00309.273l780 +++|*
Line S00310 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
09009  M02S00310.1da8    ---|*         CALLS  ATT, CSC, IDM, IEM, SOU, UBP, WCB.
Line S00455 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09010  M02S00455.ns2783  ---|*         CALLS  ATT, CEP, CRP, CSC, IDM, IEM, LNU, SOU, UBP, WCB.
09011  M01S02030.ns2783  +++|*         CALLS  ATT, CLP, CRP, CSC, IDM, IEM, LNE, SOU, WCB.
09012  M01S02031.ns2783  +++|*
09013  M01S02032.ns2783  +++|*         MACROS MONITOR.
09014  M01S04813.1da     +++|
09015  M01S04814.1da     +++|
Line S00509 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09016  M02S00509.ns2783  ---| ROD5     LDDL   MS
09017  M01S02033.ns2783  +++| ROD10    LDDL   MS
09018  M01S00510.284l847 +++|          LMC    0#42
Line S00511 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09019  M02S00511.ns2783  ---|          NJN    ROD6        IF NOT CONDITIONAL SUCCESS
Line S00512 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09020  M02S00512.ns2783  ---|          LDDL   PA
09021  M01S02034.ns2783  +++|          NJN    ROD11       IF NOT CONDITIONAL SUCCESS
09022  M01S02035.ns2783  +++|          LDDL   PA          SET INTERRUPT REENTRY ADDRESS
09023  M01S00513.284l847 +++|          STML   ATTN,DI     EXPECT A COMMAND COMPLETE RESPONSE
Line S00514 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09024  M02S00514.ns2783  ---| ROD6     LCN    EROD        RESTORE OFF-LINE DRIVE ERROR
Line S00515 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09025  M02S00515.ns2783  ---|          UJN    ROD8        PROCESS ERROR
09026  M01S02036.ns2783  +++| ROD11    LCN    EROD        RESTORE OFF-LINE DRIVE ERROR
09027  M01S02037.ns2783  +++|          UJN    ROD13       PROCESS ERROR
09028  M01S00516.284l847 +++|
Line S00517 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09029  M02S00517.ns2783  ---| ROD7     LDN    ECMD        CONTROLLER DEAD
Line S00518 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09030  M02S00518.ns2783  ---| ROD8     RJM    ERR         PROCESS ERROR
09031  M01S02038.ns2783  +++| ROD12    LDN    ECMD        CONTROLLER DEAD
09032  M01S02039.ns2783  +++| ROD13    RJM    ERR         PROCESS ERROR
09033  M01S00519.284l847 +++|
Line S04815 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09034  M02S04815.ns2783  ---| ROD      BSS    0           ENTRY
Line S04816 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09035  M03S04816.ns2783  ---|          LDML   CSRF,DI
Line S04817 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09036  M03S04817.ns2783  ---|          SHN    -17
Line S04818 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) 1da8
M04 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09037  M04S04818.ns2783  ---|          NJP    ROD7        IF CONTROLLER NOT FUNCTIONAL
Line S00520 Modification History
M01 (Added by) 284l847
M02 (Updated by) 1da8
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09038  M03S00520.ns2783  ---|          NJN    ROD7        IF CONTROLLER NOT FUNCTIONAL
Line S00456 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09039  M02S00456.ns2783  ---|          LDML   CSTB,CI
09040  M01S02040.ns2783  +++| ROD      SUBR               ENTRY/EXIT
09041  M01S02041.ns2783  +++|          LDM    RSDI        CHECK IF RESTORE IN PROGRESS
09042  M01S02042.ns2783  +++|          LMD    DI
09043  M01S02043.ns2783  +++|          NJN    RODX        IF NO RESTORE IN PROGRESS ON THIS DEVICE
09044  M01S02044.ns2783  +++|          LDM    RMUX
09045  M01S02045.ns2783  +++|          NJN    RODX        IF NOT TIME TO RESTORE A CYLINDER
09046  M01S02046.ns2783  +++|          LDML   CTST,CI
09047  M01S00457.1da8    +++|          SHN    21-15
Line S00458 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09048  M02S00458.ns2783  ---|          MJN    ROD7        IF CONTROLLER DEAD
Line S04819 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09049  M02S04819.ns2783  ---|          LDML   RMUX,DI
Line S04820 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09050  M03S04820.ns2783  ---|          LPC    0#8000
Line S00459 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09051  M02S00459.ns2783  ---|          LPC    100000
Line S04821 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09052  M02S04821.ns2783  ---|          STML   RMUX,DI     INDICATE RESTORE IS CURRENT COMMAND
09053  M01S02047.ns2783  +++|          MJN    ROD12       IF CONTROLLER DEAD
09054  M01S02048.ns2783  +++|
09055  M01S02049.ns2783  +++|*         RESTORE NEXT CYLINDER.
09056  M01S02050.ns2783  +++|
09057  M01S04822.1da     +++|          LDC    CE005       RESTORE OPERATION CODE
09058  M01S04823.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
09059  M01S04824.1da     +++|          RJM    CSC         COMPUTE SECTOR COUNT
09060  M01S04825.1da     +++|          LDC    P0931
09061  M01S04826.1da     +++|          STML   CPBF+FCP    COMMAND EXTENT PARAMETER
09062  M01S04827.1da     +++|          LDC    P02D5
09063  M01S04828.1da     +++|          STML   CPBF+FCP+5  PHYSICAL DRIVE PARAMETER
Line S04829 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09064  M02S04829.ns2783  ---|          LDM    RDRV,DI
09065  M01S02051.ns2783  +++|          LDM    OUPD,DI
09066  M01S02052.ns2783  +++|          STM    PHYD,DI
09067  M01S04830.1da     +++|          SHN    10
09068  M01S04831.1da     +++|          STML   CPBF+FCP+6  PHYSICAL DRIVE PARAMETER
09069  M01S04832.1da     +++|          LDC    0#2E3
09070  M01S04833.1da     +++|          STML   CPBF+FCP+7  RESTORE OPTION PARAMETER
Line S04834 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09071  M02S04834.ns2783  ---|          LDML   RCYL,DI
Line S04835 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09072  M02S04835.ns2783  ---|          STML   CPBF+FCP+3  CYLINDER TO RESTORE
09073  M01S02053.ns2783  +++|          LDM    RCYL
09074  M01S02054.ns2783  +++|          STM    CPBF+FCP+3  CYLINDER TO RESTORE
09075  M01S04836.1da     +++|          STM    CYLN,DI     FOR ERROR LOGGING
Line S04837 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2775
Seq #  *Modification Id* Act 
----------------------------+
09076  M02S04837.ns2775  ---|          LMML   MC,DT
Line S00059 Modification History
M01 (Added by) ns2775
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09077  M02S00059.1da7    ---|          RJM    CLC         CHECK FOR LAST CYLINDER
Line S00180 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09078  M02S00180.ns2783  ---|          LMML   CYUN,DT     CHECK FOR LAST CYLINDER
09079  M01S02055.ns2783  +++|          LMM    CYUN,DT     CHECK FOR LAST CYLINDER
09080  M01S04838.1da     +++|          NJN    ROD1        IF NOT LAST CYLINDER
09081  M01S04839.1da     +++|          LDC    0#901
09082  M01S04840.1da     +++|          STML   CPBF+FCP    NO OP EXTENT PARAMETER
09083  M01S04841.1da     +++|          LDC    0#100
09084  M01S04842.1da     +++|          UJN    ROD2        ON LINE DRIVE
09085  M01S04843.1da     +++|
09086  M01S04844.1da     +++| ROD1     LDC    0#200       RESTORE DRIVE
09087  M01S04845.1da     +++| ROD2     STML   CPBF+FCP+10
09088  M01S04846.1da     +++|          LDN    30          COMMAND PACKET LENGTH
09089  M01S04847.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
09090  M01S04848.1da     +++|          LDN    CMSS
09091  M01S04849.1da     +++|          RJM    ATT         PROCESS ATTENTION
Line S04850 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09092  M02S04850.ns2783  ---|          NJP    ROD5        IF ERROR
Line S04851 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09093  M02S04851.ns2783  ---|          STM    RTSN,DI     NEXT TRACK, SECTOR TO RESTORE
Line S04852 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09094  M02S04852.ns2783  ---|          LDML   RMUX,DI
09095  M01S02056.ns2783  +++|          NJP    ROD10       IF ERROR
09096  M01S02057.ns2783  +++|          STM    RTSN        NEXT TRACK, SECTOR TO RESTORE
09097  M01S02058.ns2783  +++|          LDML   RMUX
09098  M01S04853.1da     +++|          SHN    21-17
09099  M01S04854.1da     +++|          MJN    ROD3        IF MULTIPLEXING DISABLED
09100  M01S04855.1da     +++|          LDN    IRBR
Line S04856 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09101  M02S04856.ns2783  ---|          STM    RMUX,DI     I/O REQUESTS BEFORE NEXT RESTORE
Line S04857 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2781
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09102  M03S04857.ns2783  ---| ROD3     AOML   RCYL,DI     NEXT CYLINDER TO RESTORE
Line S00005 Modification History
M01 (Added by) ns2775a
M02 (Updated by) ns2781
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09103  M03S00005.ns2783  ---|          SBN    1
Line S04858 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2775
M03 (Updated by) ns2781
M04 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09104  M04S04858.ns2783  ---|          SBML   MC,DT
Line S04859 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2775
M04 (Updated by) ns2781
M05 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09105  M05S04859.ns2783  ---|          MJP    ROD4        IF MORE CYLINDERS TO RESTORE
Line S04860 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2775
M04 (Updated by) ns2781
M05 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09106  M05S04860.ns2783  ---|          ZJP    ROD4        IF MORE CYLINDERS TO RESTORE
Line S04861 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
M03 (Updated by) 284l847
M04 (Updated by) ns2775
M05 (Updated by) ns2781
M06 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09107  M06S04861.ns2783  ---|          LDML   DVTP,DI
Line S04862 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
M03 (Updated by) 284l847
M04 (Updated by) ns2775
M05 (Updated by) ns2781
M06 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09108  M06S04862.ns2783  ---|          STM    DVTP,DI     CLEAR RESTORE IN PROGRESS
Line S00064 Modification History
M01 (Added by) ns2767
M02 (Updated by) 284l847
M03 (Updated by) ns2775
M04 (Updated by) ns2781
M05 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09109  M05S00064.ns2783  ---|          LDML   DVTP,DI     CLEAR *RESTORE IN PROGRESS* FLAG
Line S00521 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2775
M03 (Updated by) ns2781
M04 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09110  M04S00521.ns2783  ---|          MJN    ROD4        IF MORE CYLINDERS TO RESTORE
Line S00060 Modification History
M01 (Added by) ns2775
M02 (Updated by) 1da7
M03 (Updated by) ns2781
M04 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09111  M04S00060.ns2783  ---|          RJM    CLC         CHECK FOR LAST CYLINDER
Line S00181 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2781
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09112  M03S00181.ns2783  ---|          LMML   CYUN,DT     CHECK FOR LAST CYLINDER
Line S00522 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2775a
M03 (Updated by) ns2781
M04 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09113  M04S00522.ns2783  ---|          NJN    ROD4.1      IF NO MORE CYLINDERS TO RESTORE
Line S00006 Modification History
M01 (Added by) ns2775a
M02 (Updated by) ns2781
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09114  M03S00006.ns2783  ---|          ZJN    ROD4.1      IF NO MORE CYLINDERS TO RESTORE
Line S00009 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09115  M02S00009.ns2783  ---| ROD3     LDML   CYUN,DT
Line S00010 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09116  M02S00010.ns2783  ---|          SBML   RCYL,DI
09117  M01S02059.ns2783  +++|          STM    RMUX        I/O REQUESTS BEFORE NEXT RESTORE
09118  M01S02060.ns2783  +++|
09119  M01S02061.ns2783  +++|*         CALCULATE REMAINING CYLINDERS.
09120  M01S02062.ns2783  +++|
09121  M01S02063.ns2783  +++| ROD3     LDM    CYUN,DT     CALCULATE REMAINING CYLINDERS / 100B
09122  M01S02064.ns2783  +++|          SBM    RCYL
09123  M01S00011.ns2781  +++|          ADN    77
Line S00012 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09124  M02S00012.ns2783  ---|          SHN    -6          NEW REMAINING CYLINDERS/100
Line S00013 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09125  M02S00013.ns2783  ---|          SHN    14
Line S00014 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09126  M02S00014.ns2783  ---|          LMC    5S6+36D     NUMBER OF BITS - 1 / LOW ORDER BIT
Line S00015 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09127  M02S00015.ns2783  ---|          RJM    CPF         UPDATE REMAINING CYLINDERS/100 IN *PUT*
Line S00016 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09128  M02S00016.ns2783  ---|          AOML   RCYL,DI     INCREMENT CYLINDER TO RESTORE
Line S00017 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09129  M02S00017.ns2783  ---|          SBML   CYUN,DT     CYLINDERS REMAINING
Line S00018 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09130  M02S00018.ns2783  ---|          MJN    ROD4        IF MORE CYLINDERS TO RESTORE
Line S00019 Modification History
M01 (Added by) ns2781
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09131  M02S00019.ns2783  ---|          NJN    ROD4.1      IF NO MORE CYLINDERS TO RESTORE
Line S00523 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09132  M02S00523.ns2783  ---| ROD4     LJM    CMP         COMPLETION PROCESSING
09133  M01S02065.ns2783  +++|          SHN    -6
09134  M01S02066.ns2783  +++|          STD    T1
09135  M01S02067.ns2783  +++|          LMC    **          (VALUE PREVIOUSLY CALCULATED)
09136  M01S02068.ns2783  +++| RODA     EQU    *-1
09137  M01S02069.ns2783  +++|          ZJN    ROD5        IF VALUE HAS NOT CHANGED
09138  M01S02070.ns2783  +++|          LDN    0           INITIALIZE PARTITITON SEARCH
09139  M01S02071.ns2783  +++| ROD4     RJM    LNE         LOCATE NEXT EST FOR THIS DEVICE
09140  M01S02072.ns2783  +++|          ZJN    ROD5        IF NO MORE PARTITIONS
09141  M01S02073.ns2783  +++|          STD    CM+1        SET EST ORDINAL
09142  M01S02074.ns2783  +++|          LDD    T1          REMAINING CYLINDERS / 100B
09143  M01S02075.ns2783  +++|          STM    RODA
09144  M01S02076.ns2783  +++|          STD    CM+2
09145  M01S02077.ns2783  +++|          LDN    SRCS        SET REMAINING CYLINDERS / 100B IN *ACGL*
09146  M01S02078.ns2783  +++|          STD    CM+3
09147  M01S02079.ns2783  +++|          MONITOR  STBM
09148  M01S02080.ns2783  +++|          LDD    EO
09149  M01S02081.ns2783  +++|          UJN    ROD4        PROCESS NEXT PARTITION
09150  M01S00524.284l847 +++|
Line S00525 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09151  M02S00525.ns2783  ---| ROD4.1   LDML   DVTP,DI     CLEAR *RESTORE IN PROGRESS* FLAG
Line S00065 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09152  M02S00065.ns2783  ---|          LPC    77777
Line S00066 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09153  M02S00066.ns2783  ---|          STML   DVTP,DI
Line S00460 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09154  M02S00460.ns2783  ---|          LDN    0           ENABLE NEXT PASS THROUGH ERROR PROCESSING
Line S00461 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09155  M02S00461.ns2783  ---|          STM    ERRA
Line S00462 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09156  M02S00462.ns2783  ---|          RJM    CEP         CLEAR ERROR PROCESSING INTERLOCK
Line S00182 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09157  M02S00182.ns2783  ---|          LDM    RDRV,DI     DRIVE JUST RESTORED
09158  M01S02082.ns2783  +++| ROD5     AOM    RCYL        INCREMENT CYLINDER TO RESTORE
09159  M01S02083.ns2783  +++|          SBM    CYUN,DT     CYLINDERS REMAINING
09160  M01S02084.ns2783  +++|          MJN    ROD6        IF MORE CYLINDERS TO RESTORE
09161  M01S02085.ns2783  +++|          NJN    ROD7        IF NO MORE CYLINDERS TO RESTORE
09162  M01S02086.ns2783  +++| ROD6     LJM    CMP         COMPLETION PROCESSING
09163  M01S02087.ns2783  +++|
09164  M01S02088.ns2783  +++|*         RESTORE COMPLETE.
09165  M01S02089.ns2783  +++|
09166  M01S02090.ns2783  +++| ROD7     RJM    CRP         CLEAR *RESTORE IN PROGRESS* FLAGS
09167  M01S02091.ns2783  +++|          RJM    CLP         CLEAR *LOST PARITY* FLAGS
09168  M01S02092.ns2783  +++|          LDM    OUPD,DI     DRIVE JUST RESTORED
09169  M01S00183.1da7    +++|          STM    PHYD,DI
09170  M01S00184.1da7    +++|          LDN    EROD        RESTORE COMMAND
09171  M01S00185.1da7    +++|          STM    EDBF+CODE
09172  M01S00186.1da7    +++|          LDC    PDPE        PARITY DRIVE PROTECTION ENABLED
09173  M01S00187.1da7    +++|          STM    EDBF+FALT   FINAL FAULT CODE
09174  M01S04863.1da     +++|          LDN    0
09175  M01S04864.1da     +++|          STM    EDBF+FCS1
09176  M01S04865.1da     +++|          STM    EDBF+FCS2
09177  M01S04866.1da     +++|          STM    EDBF+FCS3
Line S04867 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09178  M02S04867.1da7    ---|          LDN    EROD        RESTORE COMMAND
Line S04868 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09179  M02S04868.1da7    ---|          STM    EDBF+CODE
Line S04869 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09180  M02S04869.1da7    ---|          LDC    PDPE        PARITY DRIVE PROTECTION ENABLED
Line S04870 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09181  M02S04870.1da7    ---|          STM    EDBF+FALT   FINAL FAULT CODE
Line S04871 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09182  M02S04871.1da7    ---|          LDM    RDRV,DI     DRIVE JUST RESTORED
Line S04872 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09183  M02S04872.1da7    ---|          STM    PHYD,DI
Line S00188 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09184  M02S00188.ns2783  ---| ROD4.2   RJM    LNU         SEARCH FOR LINKED PARTITION USING (EO)
Line S00189 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09185  M02S00189.ns2783  ---|          ZJN    ROD4.3      IF NO MORE PARTITIONS
09186  M01S02093.ns2783  +++|*         LDN    0           INITIALIZE PARTITION SEARCH
09187  M01S02094.ns2783  +++| ROD8     RJM    LNE         LOCATE NEXT EST FOR THIS DEVICE
09188  M01S02095.ns2783  +++|          ZJN    ROD9        IF NO MORE PARTITIONS
Line S00311 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
09189  M02S00311.1da8    ---|          LDC    IEMB        ADDRESS OF MESSAGE
09190  M01S00463.1da8    +++|          LDC    ERPR        *EQXXX, UXX, PARITY PROTECTION RESTORED.*
09191  M01S00312.273l780 +++|          RJM    IEM         ISSUE ERROR LOG MESSAGE
Line S00313 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
09192  M02S00313.283l840 ---|          LDN    0           NEW VALUE INDICATES RESTORE COMPLETE
Line S00190 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09193  M02S00190.ns2783  ---|          RJM    CRP         CLEAR *RESTORE IN PROGRESS* FLAG
Line S00191 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09194  M02S00191.ns2783  ---|          LDN    0           CLEAR OFF-LINE DRIVE INFORMATION
Line S00314 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09195  M02S00314.ns2783  ---|          STD    CM+2
Line S00315 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09196  M03S00315.ns2783  ---|          LDC    64*100      LOW ORDER BIT TO CHANGE TIMES 100
Line S00192 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09197  M02S00192.ns2783  ---|          LDC    65*100      LOW ORDER BIT TO CHANGE TIMES 100
Line S00316 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09198  M02S00316.ns2783  ---|          STD    T7
Line S00317 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09199  M03S00317.ns2783  ---|          LDC    BDLL*100+10 6/WORD, 6/BITS TO CHANGE
Line S00193 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09200  M02S00193.ns2783  ---|          LDC    BDLL*100+7  6/WORD, 6/BITS TO CHANGE
Line S00318 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09201  M02S00318.ns2783  ---|          RJM    UBP         UPDATE *BDLL* PARAMETER
Line S04873 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09202  M02S04873.1da7    ---|          LDN    4
09203  M01S00190.1da7    +++|          LDD    EO
Line S00191 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09204  M02S00191.ns2783  ---|          UJN    ROD4.2      PROCESS NEXT PARTITION
09205  M01S02096.ns2783  +++|          UJN    ROD8        PROCESS NEXT PARTITION
09206  M01S00192.1da7    +++|
Line S00193 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09207  M02S00193.ns2783  ---| ROD4.3   LDN    4
09208  M01S02097.ns2783  +++| ROD9     LDN    4
09209  M01S04874.1da     +++|          STM    MSGL+1      SET BASIC MESSAGE LENGTH
Line S04875 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09210  M02S04875.273l780 ---|          LJM    CMP1        ISSUE FINAL BML MESSAGE
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/1da.009.txt ยท Last modified: by 127.0.0.1