Deck 1DA Part 007

24 Modifications

Seq #  *Modification Id* Act 
----------------------------+
08088  M01S04467.ns2750  ---|          NJN    ISR6        IF DRIVE UNAVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
08089  M01S00168.ns2750  +++|          MJN    ISR8        IF CHANNEL DOWN OR NOT ENABLED
08090  M01S00169.ns2750  +++|          NJN    ISR9        IF INTERLOCK NOT AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
08091  M01S04468.1da8    ---|          LDML   CSRF,DI
08092  M01S04469.1da8    ---|          SHN    -17

Seq #  *Modification Id* Act 
----------------------------+
08093  M02S04470.1da8    ---|          ZJN    ISR7        IF NOT CONTROLLER FAILURE
08094  M02S04471.1da8    ---|          LDN    ECMD
08095  M02S04472.1da8    ---|          RJM    ERR         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
08096  M02S00170.1da8    ---|          NJN    ISR10       IF CONTROLLER FAILURE

Seq #  *Modification Id* Act 
----------------------------+
08097  M02S00424.ns2783  ---|          LDML   CSTB,CI

Seq #  *Modification Id* Act 
----------------------------+
08098  M01S01685.ns2783  +++|          LDML   CTST,CI

Seq #  *Modification Id* Act 
----------------------------+
08099  M01S00425.1da8    +++|          SHN    21-15
08100  M01S00426.1da8    +++|          MJN    ISR10       IF CONTROLLER DEAD

Seq #  *Modification Id* Act 
----------------------------+
08101  M01S00171.ns2750  +++|          LJM    0,PA        EXIT TO SPECIAL REQUEST
08102  M00S04473.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
08103  M01S04474.ns2750  ---| ISR5     LDM    SREQ,DI

Seq #  *Modification Id* Act 
----------------------------+
08104  M01S00172.ns2750  +++|*         CHANNEL DOWN OR NOT ENABLED.
08105  M01S00173.ns2750  +++|
08106  M01S00174.ns2750  +++| ISR8     LDM    SREQ,DI
08107  M00S04475.1da     +++|          LMC    6S6+LMLF

Seq #  *Modification Id* Act 
----------------------------+
08108  M01S04476.ns2750  ---|          NJN    ISR6        IF NOT LIST MICROCODE REVISION
08109  M01S04477.ns2750  ---|          LDC    6S6+LMLF    BITS - 1 TO CLEAR/STARTING BIT

Seq #  *Modification Id* Act 
----------------------------+
08110  M01S00175.ns2750  +++|          NJN    ISR9        IF NOT LIST MICROCODE REVISION
08111  M01S00176.ns2750  +++|          LDC    6S6+LMLF    BITS - 1 TO CLEAR / STARTING BIT
08112  M00S04478.1da     +++|          RJM    CPF         CLEAR SPECIAL REQUEST BIT IN *PUT*

Seq #  *Modification Id* Act 
----------------------------+
08113  M01S04479.ns2750  ---| ISR6     LDN    0

Seq #  *Modification Id* Act 
----------------------------+
08114  M01S00177.ns2750  +++|
08115  M01S00178.ns2750  +++|*         INTERLOCK NOT AVAILABLE.
08116  M01S00179.ns2750  +++|
08117  M01S00180.ns2750  +++| ISR9     LDN    0

Seq #  *Modification Id* Act 
----------------------------+
08118  M01S04480.ns2783  ---|          STM    RMUX,DI     IN CASE RESTORE IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
08119  M02S00267.ns2783  ---|          STM    SREQ,DI

Seq #  *Modification Id* Act 
----------------------------+
08120  M01S01686.ns2783  +++|          STM    SREQ,DI     CLEAR SPECIAL REQUEST FLAG
08121  M01S01687.ns2783  +++|          STM    ADDR,DI     CLEAR REENTRY ADDRESS
08122  M01S01688.ns2783  +++|          STM    ATTN,DI     CLEAR INTERRUPT ADDRESS
08123  M00S04481.1da     +++|          LJM    DAS1        RETURN TO MAIN LOOP
08124  M00S04482.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
08125  M01S04483.ns2750  ---| ISR7     LDML   DVTP,DI
08126  M01S04484.ns2750  ---|          SHN    21-15
08127  M01S04485.ns2750  ---|          MJP    CDT         IF INTERNAL REQUEST TO CHECK DRIVE TYPE
08128  M01S04486.ns2750  ---|          LJM    0,PA        EXIT TO SPECIAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08129  M01S00181.ns2750  +++|*         CONTROLLER FAILURE.

Seq #  *Modification Id* Act 
----------------------------+
08130  M01S00268.273l780 +++|

Seq #  *Modification Id* Act 
----------------------------+
08131  M02S00182.283l840 ---| ISR10    LDN    ECMD

Seq #  *Modification Id* Act 
----------------------------+
08132  M01S00171.283l840 +++| ISR10    LDN    ECMD        CONTROLLER DEAD

Seq #  *Modification Id* Act 
----------------------------+
08133  M01S00183.ns2750  +++|          RJM    ERR         PROCESS ERROR
08134  M00S04487.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
08135  M01S00184.ns2750  +++|
08136  M00S04488.1da     +++| ISRA     BSS    0           SPECIAL REQUEST PROCESSORS

Seq #  *Modification Id* Act 
----------------------------+
08137  M01S04489.ns2750  ---|          CON    SPD         SPIN-DOWN DRIVE
08138  M01S04490.ns2750  ---|          CON    SPD         SPIN-UP DRIVE

Seq #  *Modification Id* Act 
----------------------------+
08139  M02S00185.ns2783  ---|          CON    CSR         CLEAR FLAG (ENABLE CONTROLLER ACTIVITY)

Seq #  *Modification Id* Act 
----------------------------+
08140  M03S00186.ns2783  ---|          CON    CSR         CLEAR FLAG (RESERVED)

Seq #  *Modification Id* Act 
----------------------------+
08141  M03S00063.ns2783  ---|          CON    COD         CHECK FOR OFF-LINE DRIVE

Seq #  *Modification Id* Act 
----------------------------+
08142  M02S00427.ns2783  ---|          CON    COD         CHECK FOR OFF-LINE DRIVE (RESTORE PARITY)

Seq #  *Modification Id* Act 
----------------------------+
08143  M02S00187.ns2783  ---|          CON    CSR         CLEAR FLAG (RESERVED)

Seq #  *Modification Id* Act 
----------------------------+
08144  M01S04491.ns2783  ---|          CON    LDA         LIST DRIVE SERIAL NUMBER
08145  M01S04492.ns2783  ---|          CON    CSR         CLEAR FLAG (FORMAT REQUEST)
08146  M01S04493.ns2783  ---|          CON    LDA         LIST MICROCODE REVISION LEVEL

Seq #  *Modification Id* Act 
----------------------------+
08147  M01S01689.ns2783  +++|          CONL   CSR         CLEAR FLAG (ENABLE CONTROLLER ACTIVITY)
08148  M01S01690.ns2783  +++|          CONL   IPR         INITIATE PARITY RESTORE
08149  M01S01691.ns2783  +++|          CONL   CSR         CLEAR FLAG (RESERVED)
08150  M01S01692.ns2783  +++|          CONL   LPS         LIST PACK SERIAL NUMBER
08151  M01S01693.ns2783  +++|          CONL   CSR         CLEAR FLAG (FORMAT REQUEST)
08152  M01S01694.ns2783  +++|          CONL   LMR         LIST MICROCODE REVISION LEVEL

Seq #  *Modification Id* Act 
----------------------------+
08153  M01S00188.ns2750  +++| ISRB     BSS    0           INTERNAL SPECIAL REQUEST PROCESSORS

Seq #  *Modification Id* Act 
----------------------------+
08154  M02S00189.ns2783  ---|          CON    CDT         CHECK DRIVE TYPE (INTERNAL REQUEST)

Seq #  *Modification Id* Act 
----------------------------+
08155  M01S04494.ns2783  ---| LDP      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
08156  M01S01695.ns2783  +++|          CONL   CDT         CHECK DRIVE TYPE (INTERNAL REQUEST)
08157  M01S01696.ns2783  +++| LDP      SPACE  4,25
08158  M00S04495.1da     +++|**        LDP - LOAD DEVICE PARAMETERS.
08159  M00S04496.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08160  M01S04497.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08161  M01S00428.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08162  M00S04498.1da     +++|*
08163  M00S04499.1da     +++|*         EXIT   (A) = (EO) = EST ORDINAL.
08164  M00S04500.1da     +++|*                (CB) = *CBT* ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
08165  M01S04501.1da8    ---|*                (RW) = READ / WRITE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
08166  M01S00429.1da8    +++|*                (CI) = CONTROLLER STATE TABLE ADDRESS.
08167  M00S04502.1da     +++|*                (CN) = CONTROLLER NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
08168  M01S01697.ns2783  +++|*                (DD) = NUMBER OF DATA DRIVES IN DEVICE.
08169  M00S04503.1da     +++|*                (DN) = DRIVE NUMBER.
08170  M00S04504.1da     +++|*                (DT) = DRIVE TYPE.
08171  M00S04505.1da     +++|*                (PA) = REQUEST IN PROGRESS ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08172  M01S01698.ns2783  +++|*                (PD) = PARITY DEVICE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
08173  M01S00430.1da8    +++|*                (RW) = READ / WRITE FLAG.
08174  M00S04506.1da     +++|*                (CM - CM+4) = *PILL* WORD OF *PUT* ENTRY.
08175  M00S04507.1da     +++|*                (WB - WB+4) = *UNCT* WORD OF *PUT* ENTRY.
08176  M00S04508.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08177  M01S04509.284l847 ---|*         USES   CB, CN, DN, DT, EO, PA, RW, CM - CM+4, WB - WB+4.

Seq #  *Modification Id* Act 
----------------------------+
08178  M02S00494.1da8    ---|*         USES   CB, CN, DN, DT, EO, PA, RW, CM - CM+4, CW - CW+4,

Seq #  *Modification Id* Act 
----------------------------+
08179  M02S00431.ns2783  ---|*         USES   CB, CI, CN, DN, DT, EO, PA, RW, CM - CM+4, CW - CW+4,

Seq #  *Modification Id* Act 
----------------------------+
08180  M01S01699.ns2783  +++|*         USES   CB, CI, CN, DD, DN, DT, PA, PD, RW, CM - CM+4,

Seq #  *Modification Id* Act 
----------------------------+
08181  M01S00495.284l847 +++|*                WB - WB+4.
08182  M00S04510.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08183  M01S04511.284l847 ---|*         MACROS PUTE.

Seq #  *Modification Id* Act 
----------------------------+
08184  M02S00496.ns2783  ---|*         MACROS CBTE, PUTE.

Seq #  *Modification Id* Act 
----------------------------+
08185  M01S01700.ns2783  +++|*         CALLS  SEO.
08186  M01S01701.ns2783  +++|*
08187  M01S01702.ns2783  +++|*         MACROS PUTE.
08188  M00S04512.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
08189  M01S00497.284l847 +++|

Seq #  *Modification Id* Act 
----------------------------+
08190  M02S00498.ns2783  ---| LDP1     LDD    WB+1        SET EST ORDINAL
08191  M02S00499.ns2783  ---| LDP2     STD    EO

Seq #  *Modification Id* Act 
----------------------------+
08192  M01S04513.ns2783  ---|
08193  M00S04514.1da     +++| LDP      SUBR               ENTRY/EXIT
08194  M00S04515.1da     +++|          LDM    DVTP,DI

Seq #  *Modification Id* Act 
----------------------------+
08195  M01S01703.ns2783  +++|          LPN    77
08196  M00S04516.1da     +++|          STD    DT          DRIVE TYPE

Seq #  *Modification Id* Act 
----------------------------+
08197  M02S00432.ns2783  ---|          LDM    PNUN,DI
08198  M02S00433.ns2783  ---|          SHN    -6
08199  M02S00434.ns2783  ---|          STD    CI          INDEX TO CONTROLLER TABLE

Seq #  *Modification Id* Act 
----------------------------+
08200  M01S01704.ns2783  +++|          LDML   DM,DT
08201  M01S01705.ns2783  +++|          SHN    0-17
08202  M01S01706.ns2783  +++|          STD    PD          NONZERO IF PARITY DEVICE
08203  M01S01707.ns2783  +++|          LDML   DM,DT
08204  M01S01708.ns2783  +++|          SHN    0-14
08205  M01S01709.ns2783  +++|          LPN    7
08206  M01S01710.ns2783  +++|          STD    DD          NUMBER OF DATA DRIVES IN DEVICE
08207  M01S01711.ns2783  +++|          LDML   PNUN,DI
08208  M01S01712.ns2783  +++|          SHN    -14
08209  M01S01713.ns2783  +++|          SHN    2
08210  M01S01714.ns2783  +++|          ERRNZ  CSTBE-4     CODE DEPENDS ON VALUE
08211  M01S01715.ns2783  +++|          ADC    CSTB
08212  M01S01716.ns2783  +++|          STD    CI          CONTROLLER STATE TABLE ADDRESS
08213  M00S04517.1da     +++|          LDI    DI
08214  M00S04518.1da     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
08215  M00S04519.1da     +++|          SHN    PUTLS
08216  M00S04520.1da     +++|          PUTE   *
08217  M00S04521.1da     +++|          ADC    PILL        GET INTERLOCK STATUS
08218  M00S04522.1da     +++|          CRD    CM
08219  M00S04523.1da     +++|          SBN    PILL-UNCT   FETCH UNIT CONTROL WORD
08220  M00S04524.1da     +++|          CRD    WB
08221  M00S04525.1da     +++|          LDD    WB          GET CONTROLLER AND UNIT NUMBER
08222  M00S04526.1da     +++|          LPC    777
08223  M00S04527.1da     +++|          SHN    21-5        EXTRACT CONTROLLER NUMBER
08224  M00S04528.1da     +++|          STD    CN
08225  M00S04529.1da     +++|          SHN    5-21        ISOLATE DRIVE NUMBER
08226  M00S04530.1da     +++|          STD    DN

Seq #  *Modification Id* Act 
----------------------------+
08227  M01S04531.284l847 ---|          LDD    WB+3        *CBT* ORDINAL
08228  M01S04532.284l847 ---|          STD    CB
08229  M00S04533.1da     +++|          LDM    RWST,DI     RESTORE READ / WRITE STATUS
08230  M00S04534.1da     +++|          STD    RW
08231  M00S04535.1da     +++|          LDML   ADDR,DI     CURRENT PROCESSING ADDRESS
08232  M00S04536.1da     +++|          STDL   PA

Seq #  *Modification Id* Act 
----------------------------+
08233  M01S04537.284l847 ---|          LDD    WB+1        SET EST ORDINAL
08234  M01S04538.284l847 ---|          STD    EO
08235  M01S04539.284l847 ---|          UJN    LDPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08236  M01S00500.284l847 +++|          LDD    WB+3        *CBT* ORDINAL
08237  M01S00501.284l847 +++|          STD    CB

Seq #  *Modification Id* Act 
----------------------------+
08238  M02S00502.1da8    ---|          ZJN    LDP1        IF NO *CBT*

Seq #  *Modification Id* Act 
----------------------------+
08239  M02S00435.ns2783  ---|          ZJP    LDP1        IF NO *CBT*

Seq #  *Modification Id* Act 
----------------------------+
08240  M02S00503.ns2783  ---|          SHN    CBTLS
08241  M02S00504.ns2783  ---|          CBTE   *
08242  M02S00505.ns2783  ---|          ADC    FSTC
08243  M02S00506.ns2783  ---|          CRD    CW          GET EST ORDINAL FROM *CBT*
08244  M02S00507.ns2783  ---|          LDD    CW
08245  M02S00508.ns2783  ---|          UJP    LDP2        SET EST ORDINAL AND RETURN

Seq #  *Modification Id* Act 
----------------------------+
08246  M01S01717.ns2783  +++|          RJM    SEO         SET EST ORDINAL
08247  M01S01718.ns2783  +++|          UJP    LDPX        RETURN
08248  M01S01719.ns2783  +++| LMR      SPACE  4,15
08249  M01S01720.ns2783  +++|**        LMR - LOG MICROCODE REVISION.
08250  M01S01721.ns2783  +++|*
08251  M01S01722.ns2783  +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
08252  M01S01723.ns2783  +++|*                (DN) = DRIVE NUMBER.
08253  M01S01724.ns2783  +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
08254  M01S01725.ns2783  +++|*                (DT) = DRIVE TYPE.
08255  M01S01726.ns2783  +++|*
08256  M01S01727.ns2783  +++|*         EXIT   TO *CSR* WHEN THE REQUEST IS COMPLETE.
08257  M01S01728.ns2783  +++|*
08258  M01S01729.ns2783  +++|*         USES   NR+2, NR+3, T3, T4, WB - WB+4.
08259  M01S01730.ns2783  +++|*
08260  M01S01731.ns2783  +++|*         CALLS  ATT, CHD, IBM, IDM, IDT, RCA.
08261  M01S01732.ns2783  +++|
08262  M01S01733.ns2783  +++|
08263  M01S01734.ns2783  +++| LMR      BSS    0           ENTRY
08264  M01S01735.ns2783  +++|          RJM    RCA         REPORT CONTROLLER ATTRIBUTES
08265  M01S01736.ns2783  +++|          RJM    IDT         INPUT DATA TO PP
08266  M01S01737.ns2783  +++|
08267  M01S01738.ns2783  +++|*         GENERATE MICROCODE REVISION ERRLOG MESSAGE.
08268  M01S01739.ns2783  +++|
08269  M01S01740.ns2783  +++|          LDD    CN          SET CONTROLLER NUMBER IN BML MESSAGE
08270  M01S01741.ns2783  +++|          STD    NR+3
08271  M01S01742.ns2783  +++|          ADC    2RM0        CONVERT FOR ERRLOG MESSAGE
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  M00S04540.1da     +++| LND      SPACE  4,15
08301  M00S04541.1da     +++|**        LND - LOCATE NEXT DRIVE (ON SPECIFIED CONTROLLER).
08302  M00S04542.1da     +++|*
08303  M00S04543.1da     +++|*         ENTRY  (A) = 0 TO LOCATE FIRST DRIVE OF STRING.

Seq #  *Modification Id* Act 
----------------------------+
08304  M01S00436.1da8    +++|*                (CI) = CONTROLLER STATE TABLE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08305  M01S04544.ns2750  ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
08306  M01S04545.ns2750  ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX.

Seq #  *Modification Id* Act 
----------------------------+
08307  M01S00190.ns2750  +++|*                (DI) = DEVICE STATE TABLE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08308  M02S00191.1da8    ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX, IF (A) = 0.

Seq #  *Modification Id* Act 
----------------------------+
08309  M01S04546.ns2783  ---|*                (T7) = CURRENT DEVICE STATE TABLE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08310  M01S01771.ns2783  +++|*                (T7) = CURRENT *DST* ADDRESS, IF (A) .NE. 0.
08311  M00S04547.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08312  M01S04548.ns2783  ---|*         EXIT   (A) = (T7) = STATE TABLE ADDRESS OF NEXT DRIVE.

Seq #  *Modification Id* Act 
----------------------------+
08313  M01S01772.ns2783  +++|*         EXIT   (A) = (T7) = DEVICE STATE TABLE ADDRESS OF NEXT DRIVE.

Seq #  *Modification Id* Act 
----------------------------+
08314  M01S04549.ns2750  ---|*                    = 0 IF NO MORE DRIVES (ON CONTROLLER).

Seq #  *Modification Id* Act 
----------------------------+
08315  M01S00192.ns2750  +++|*                (A) = 0 IF NO MORE DRIVES (ON CONTROLLER).

Seq #  *Modification Id* Act 
----------------------------+
08316  M02S00193.1da8    ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX.
08317  M00S04550.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08318  M01S04551.1da8    ---|*         USES   T5, T7.

Seq #  *Modification Id* Act 
----------------------------+
08319  M01S00437.1da8    +++|*         USES   T7.
08320  M00S04552.1da     +++|
08321  M00S04553.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
08322  M01S04554.1da8    ---| LND2     LDM    PNUN,DI     EXTRACT CONTROLLER BLOCK INDEX

Seq #  *Modification Id* Act 
----------------------------+
08323  M02S00438.ns2783  ---| LND2     LDM    CSTB,CI     ADDRESS OF FIRST DRIVE IN STRING

Seq #  *Modification Id* Act 
----------------------------+
08324  M01S01773.ns2783  +++| LND2     LDM    CTST,CI     ADDRESS OF FIRST DRIVE IN STRING

Seq #  *Modification Id* Act 
----------------------------+
08325  M01S00439.1da8    +++|          STD    T7
08326  M01S00440.1da8    +++| LND3     LDM    PNUN,T7     VERIFY CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
08327  M01S01774.ns2783  +++|          LMM    PNUN,DI
08328  M00S04555.1da     +++|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
08329  M01S04556.1da8    ---|          STD    T5
08330  M01S04557.1da8    ---|          LDM    CSTB,T5     ADDRESS OF FIRST DRIVE IN STRING
08331  M01S04558.1da8    ---|          STD    T7
08332  M01S04559.1da8    ---| LND3     LDM    PNUN,T7     FORM *CSTB* INDEX
08333  M01S04560.1da8    ---|          SHN    -6
08334  M01S04561.1da8    ---|          LMD    T5

Seq #  *Modification Id* Act 
----------------------------+
08335  M02S00441.ns2783  ---|          LMD    CI
08336  M00S04562.1da     +++|          NJN    LND1        IF NOT SPECIFIED CONTROLLER
08337  M00S04563.1da     +++|          LDD    T7
08338  M00S04564.1da     +++|
08339  M00S04565.1da     +++| LND      SUBR               ENTRY/EXIT
08340  M00S04566.1da     +++|          ZJN    LND2        IF INITIAL CALL
08341  M00S04567.1da     +++| LND1     LDN    DSTBE

Seq #  *Modification Id* Act 
----------------------------+
08342  M01S04568.ns2750  ---|          RAD    T7          ADVANCE DEVICE STATUS BLOCK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
08343  M01S00194.ns2750  +++|          RAD    T7          ADVANCE DEVICE STATE TABLE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
08344  M01S04569.ns2783  ---|          LMM    DASA

Seq #  *Modification Id* Act 
----------------------------+
08345  M01S01775.ns2783  +++|          LMM    DASB
08346  M00S04570.1da     +++|          NJN    LND3        IF NOT END OF BLOCK
08347  M00S04571.1da     +++|*         LDN    0
08348  M00S04572.1da     +++|          UJN    LNDX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08349  M02S00092.ns2783  ---| LNE      SPACE  4,15
08350  M02S00093.ns2783  ---|**        LNE - LOCATE NEXT EQUIPMENT LINKED TO *PUT*.

Seq #  *Modification Id* Act 
----------------------------+
08351  M01S01776.ns2783  +++| LNE      SPACE  4,25
08352  M01S01777.ns2783  +++|**        LNE - LOCATE NEXT EST/PARTITION FOR THIS DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
08353  M01S00094.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08354  M02S00095.ns2783  ---|*         LOCATE NEXT EST ASSOCIATED WITH THE *PUT* ADDRESS
08355  M02S00096.ns2783  ---|*                STORED IN CELL *LNEB*.

Seq #  *Modification Id* Act 
----------------------------+
08356  M01S01778.ns2783  +++|*         LOCATE NEXT EST ASSOCIATED WITH THE CURRENT DEVICE.

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

Seq #  *Modification Id* Act 
----------------------------+
08360  M02S00100.ns2783  ---|*                (LNEB) = *PUT* ADDRESS FOR EQUIPMENT TO BE LOCATED.

Seq #  *Modification Id* Act 
----------------------------+
08361  M01S01779.ns2783  +++|*                (DI) = DEVICE STATUS TABLE ADDRESS.
08362  M01S01780.ns2783  +++|*                (EO) = CURRENT EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
08363  M01S00101.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08364  M02S00102.ns2783  ---|*         EXIT   (A) = 0 IF NO MORE EQUIPMENT LINKED TO *PUT*.
08365  M02S00103.ns2783  ---|*                (A) .NE. 0, EST ORDINAL LOCATED.
08366  M02S00104.ns2783  ---|*                (T5) = CURRENT EST ORDINAL.
08367  M02S00105.ns2783  ---|*                (T6) = MST ADDRESS/10 FROM CURRENT EST.

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

Seq #  *Modification Id* Act 
----------------------------+
08371  M01S00106.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08372  M02S00107.ns2783  ---|*         USES   T5, T6, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
08373  M01S01784.ns2783  +++|*         USES   EO, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
08374  M01S00108.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08375  M02S00109.ns2783  ---|*         MACROS PUTE, SFA.

Seq #  *Modification Id* Act 
----------------------------+
08376  M01S01785.ns2783  +++|*         CALLS  REE, SEO.
08377  M01S01786.ns2783  +++|*
08378  M01S01787.ns2783  +++|*         MACROS PUTE.

Seq #  *Modification Id* Act 
----------------------------+
08379  M01S00110.1da7    +++|
08380  M01S00111.1da7    +++|

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

Seq #  *Modification Id* Act 
----------------------------+
08384  M01S00112.1da7    +++| LNE      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
08385  M02S00113.ns2783  ---|          NJN    LNE1        IF NOT INITIAL ENTRY OF SEARCH
08386  M02S00114.ns2783  ---|          LDM    LNEB        *PUT* ORDINAL PREVIOUSLY STORED

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

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

Seq #  *Modification Id* Act 
----------------------------+
08401  M02S00120.ns2783  ---| LNE1     STD    T5
08402  M02S00121.ns2783  ---| LNE2     AOD    T5
08403  M02S00122.ns2783  ---|          LMC    **          HIGHEST MASS STORAGE EST ORDINAL + 1

Seq #  *Modification Id* Act 
----------------------------+
08404  M01S01800.ns2783  +++|          STD    EO
08405  M01S01801.ns2783  +++| LNE2     AOD    EO
08406  M01S01802.ns2783  +++|          LMC    **          HIGHEST EST ORDINAL FOR THIS DRIVER (+1)

Seq #  *Modification Id* Act 
----------------------------+
08407  M01S00123.1da7    +++| LNEA     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
08408  M02S00124.ns2783  ---|          ZJN    LNEX        IF NO MORE *EST* ENTRIES TO CHECK
08409  M02S00125.ns2783  ---|          SFA    EST,T5
08410  M02S00126.ns2783  ---|          ADK    EQDE
08411  M02S00127.ns2783  ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
08412  M01S01803.ns2783  +++|          ZJN    LNE3        IF NO MORE *EST* ENTRIES TO CHECK
08413  M01S01804.ns2783  +++|          RJM    REE         READ EST ENTRY

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

Seq #  *Modification Id* Act 
----------------------------+
08419  M02S00133.ns2783  ---|          LDD    CM+4        GET *MST* ADDRESS
08420  M02S00134.ns2783  ---|          STD    T6

Seq #  *Modification Id* Act 
----------------------------+
08421  M01S01805.ns2783  +++|          LDD    CM+4

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

Seq #  *Modification Id* Act 
----------------------------+
08426  M02S00139.ns2783  ---|          LMC    **          DESIRED *PUT* ORDINAL
08427  M02S00140.ns2783  ---| LNEB     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
08428  M01S01806.ns2783  +++|          LMI    DI          *PUT* ORDINAL FROM DEVICE STATE TABLE
08429  M01S01807.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
08430  M01S00141.1da7    +++|          NJN    LNE2        IF NOT FOR THE DESIRED *PUT*

Seq #  *Modification Id* Act 
----------------------------+
08431  M02S00142.ns2783  ---|          LDD    T5
08432  M02S00143.ns2783  ---|          UJP    LNEX        RETURN CURRENT EST ORDINAL
08433  M02S00144.ns2783  ---| LNU      SPACE  4,15
08434  M02S00145.ns2783  ---|**        LNU - LOCATE NEXT UNIT LINKED TO *PUT*.

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

Seq #  *Modification Id* Act 
----------------------------+
08439  M01S00146.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08440  M02S00147.ns2783  ---|*         ENTRY  (A) = 0 IF INITIAL ENTRY, OTHERWISE NONZERO.
08441  M02S00148.ns2783  ---|*                (DI) = DEVICE STATUS TABLE ADDRESS.
08442  M02S00149.ns2783  ---|*                (EO) = EST ORDINAL.

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

Seq #  *Modification Id* Act 
----------------------------+
08447  M01S00150.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08448  M02S00151.ns2783  ---|*         EXIT   (A) .EQ. 0, NO MORE PARTITIONS TO PROCESS, IN WHICH
08449  M02S00152.ns2783  ---|*                           CASE ORIGINAL VALUE RESTORED TO (EO).
08450  M02S00153.ns2783  ---|*                (A) .NE. 0, EST ORDINAL OF A PARTITION TO PROCESS, IN
08451  M02S00154.ns2783  ---|*                           WHICH CASE (EO) = (A).

Seq #  *Modification Id* Act 
----------------------------+
08452  M01S01816.ns2783  +++|*         EXIT   TO *CSR* WHEN THE REQUEST IS COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
08453  M01S00155.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08454  M02S00156.ns2783  ---|*         USES   EO.

Seq #  *Modification Id* Act 
----------------------------+
08455  M01S01817.ns2783  +++|*         USES   NR+2, NR+3, T3, T4, WB - WB+4.

Seq #  *Modification Id* Act 
----------------------------+
08456  M01S00157.1da7    +++|*

Seq #  *Modification Id* Act 
----------------------------+
08457  M02S00158.ns2783  ---|*         CALLS  LNE.

Seq #  *Modification Id* Act 
----------------------------+
08458  M01S01818.ns2783  +++|*         CALLS  ATT, CAN, C2D, IBM, IDM, IDT, SOU, UPD.

Seq #  *Modification Id* Act 
----------------------------+
08459  M01S00159.1da7    +++|
08460  M01S00160.1da7    +++|

Seq #  *Modification Id* Act 
----------------------------+
08461  M02S00161.ns2783  ---| LNU2     STD    EO          SET EST ORDINAL

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

Seq #  *Modification Id* Act 
----------------------------+
08475  M01S00162.1da7    +++|

Seq #  *Modification Id* Act 
----------------------------+
08476  M02S00163.ns2783  ---| LNU      SUBR               ENTRY/EXIT
08477  M02S00164.ns2783  ---|          NJN    LNU1        IF NOT INITIAL ENTRY
08478  M02S00165.ns2783  ---|          LDD    EO          SAVE ORIGINAL EST ORDINAL
08479  M02S00166.ns2783  ---|          STM    LNUA
08480  M02S00167.ns2783  ---|          LDI    DI          SET *PUT* ORDINAL
08481  M02S00168.ns2783  ---|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
08482  M02S00169.ns2783  ---|          STM    LNEB
08483  M02S00170.ns2783  ---|          LDN    0
08484  M02S00171.ns2783  ---| LNU1     RJM    LNE         SEARCH FOR PARTITIONS LINKED TO *PUT*
08485  M02S00172.ns2783  ---|          NJN    LNU2        IF PARTITION FOUND LINKED TO *PUT*
08486  M02S00173.ns2783  ---|          LDC    **          ORIGINAL EST ORDINAL
08487  M02S00174.ns2783  ---| LNUA     EQU    *-1
08488  M02S00175.ns2783  ---|          STD    EO
08489  M02S00176.ns2783  ---|          LDN    0
08490  M02S00177.ns2783  ---|          UJN    LNUX        FINAL RETURN

Seq #  *Modification Id* Act 
----------------------------+
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  M00S04573.1da     +++| LSD      SPACE  4,15
08540  M00S04574.1da     +++|**        LSD - LOCATE SELECTED DRIVE IN *DSTB*.
08541  M00S04575.1da     +++|*
08542  M00S04576.1da     +++|*         ENTRY  (T4) = DRIVE NUMBER.
08543  M00S04577.1da     +++|*
08544  M00S04578.1da     +++|*         EXIT   (A) = 0 IF NO RESPONSE EXPECTED.
08545  M00S04579.1da     +++|*                    = DEVICE STATE TABLE ADDRESS FOR DRIVE.
08546  M00S04580.1da     +++|*
08547  M00S04581.1da     +++|*         CALLS  LND.
08548  M00S04582.1da     +++|
08549  M00S04583.1da     +++|
08550  M00S04584.1da     +++| LSD      SUBR               ENTRY/EXIT
08551  M00S04585.1da     +++|          LDN    0
08552  M00S04586.1da     +++|          UJN    LSD2        LOCATE FIRST DRIVE
08553  M00S04587.1da     +++|
08554  M00S04588.1da     +++| LSD1     LDN    1
08555  M00S04589.1da     +++| LSD2     RJM    LND
08556  M00S04590.1da     +++|          ZJN    LSDX        IF END OF DRIVE STRING
08557  M00S04591.1da     +++|          LDD    FC
08558  M00S04592.1da     +++|          NJN    LSD3        IF FORMAT COMPLETE
08559  M00S04593.1da     +++|          LDML   ATTN,T7
08560  M00S04594.1da     +++|          ZJN    LSD1        IF RESPONSE NOT EXPECTED
08561  M00S04595.1da     +++|          UJN    LSD4
08562  M00S04596.1da     +++|
08563  M00S04597.1da     +++| LSD3     LDM    PNUN,T7
08564  M00S04598.1da     +++|          LPN    77          CHECK DRIVE NUMBER
08565  M00S04599.1da     +++|          LMD    T4
08566  M00S04600.1da     +++|          NJN    LSD1        IF SPECIFIED DRIVE NOT FOUND
08567  M00S04601.1da     +++| LSD4     LDD    T7
08568  M00S04602.1da     +++|          UJN    LSDX        RETURN
08569  M00S04603.1da     +++| PEF      SPACE  4,15
08570  M00S04604.1da     +++|**        PEF - PROCESS ERROR FLAGS.
08571  M00S04605.1da     +++|*
08572  M00S04606.1da     +++|*         ENTRY  (RW) = ERROR INDEX.
08573  M00S04607.1da     +++|*                (CB) = *CBT* ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
08574  M01S04608.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08575  M01S00442.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
08576  M00S04609.1da     +++|*                (DN) = DRIVE NUMBER.
08577  M00S04610.1da     +++|*                (T1) = BYTE 0 OF *PAD4* WORD OF CBT ENTRY.
08578  M00S04611.1da     +++|*                (T2) = BYTE 0 OF *HSLK* WORD OF CBT ENTRY.
08579  M00S04612.1da     +++|*                (NR - NR+4) = *PAD1* WORD OF *CBT* ENTRY.
08580  M00S04613.1da     +++|*
08581  M00S04614.1da     +++|*         EXIT   (A) = 0 IF OK TO INITIATE I/O.
08582  M00S04615.1da     +++|*                TO (0,PA) TO PROCESS A CHANNEL SPECIFIC READ OR
08583  M00S04616.1da     +++|*                  WRITE REQUEST.  AFTER SUSPECT STATE IS SET, THE
08584  M00S04617.1da     +++|*                  REQUEST BECOMES CHANNEL SPECIFIC.

Seq #  *Modification Id* Act 
----------------------------+
08585  M02S00172.1da8    ---|*                TO *CMP* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
08586  M02S00443.ns2783  ---|*                TO *CMP9* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
08587  M01S01880.ns2783  +++|*                TO *CMP10* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
08588  M00S04618.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08589  M01S04619.273l780 ---|*         CALLS  IDU, IIO.

Seq #  *Modification Id* Act 
----------------------------+
08590  M02S00269.283l840 ---|*         CALLS  IDU, IIO, LDP.

Seq #  *Modification Id* Act 
----------------------------+
08591  M02S00173.1da8    ---|*         CALLS  IDU, IIO, LDP, RCR, SEP.

Seq #  *Modification Id* Act 
----------------------------+
08592  M01S00444.1da8    +++|*         CALLS  IDU, IIO, LDP, SEP.
08593  M00S04620.1da     +++|
08594  M00S04621.1da     +++|
08595  M00S04622.1da     +++| PEF1     LDN    0           INDICATE I/O IN ORDER
08596  M00S04623.1da     +++|
08597  M00S04624.1da     +++| PEF      SUBR               ENTRY/EXIT
08598  M00S04625.1da     +++|          LDD    T1
08599  M00S04626.1da     +++|          SHN    -6          CHECK CHANNEL NUMBER
08600  M00S04627.1da     +++|          LMD    IR+4
08601  M00S04628.1da     +++|          NJN    PEFX        IF I/O DISABLED ON THIS ACCESS
08602  M00S04629.1da     +++|          LDD    RW
08603  M00S04630.1da     +++|          ZJN    PEFX        IF *1MV* DEVICE VERIFICATION
08604  M00S04631.1da     +++|          LDM    ERFL
08605  M00S04632.1da     +++|          LMD    DI

Seq #  *Modification Id* Act 
----------------------------+
08606  M01S04633.283l840 ---|          ZJN    PEFX

Seq #  *Modification Id* Act 
----------------------------+
08607  M01S00174.283l840 +++|          ZJN    PEFX        IF ERROR IN PROGRESS ON THIS DEVICE

Seq #  *Modification Id* Act 
----------------------------+
08608  M01S04634.1da8    ---|          LDML   CSRF,DI
08609  M01S04635.1da8    ---|          SHN    -17
08610  M01S04636.1da8    ---|          NJN    PEF1        IF CONTROLLER DEAD

Seq #  *Modification Id* Act 
----------------------------+
08611  M02S00445.ns2783  ---|          LDML   CSTB,CI

Seq #  *Modification Id* Act 
----------------------------+
08612  M01S01881.ns2783  +++|          LDML   CTST,CI

Seq #  *Modification Id* Act 
----------------------------+
08613  M01S00446.1da8    +++|          SHN    21-15
08614  M01S00447.1da8    +++|          MJN    PEF1        IF CONTROLLER DEAD
08615  M00S04637.1da     +++|          LDML   ERCT,DI
08616  M00S04638.1da     +++|          NJN    PEF1        IF I/O INITIATED

Seq #  *Modification Id* Act 
----------------------------+
08617  M01S04639.ns2750  ---|          RJM    IDU
08618  M01S04640.ns2750  ---|          NJN    PEFX        IF UNIT INTERLOCK UNAVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
08619  M01S00195.ns2750  +++|          RJM    IDU         INTERLOCK DEVICE
08620  M01S00196.ns2750  +++|          NJN    PEFX        IF INTERLOCK NOT AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
08621  M02S00004.ns2767  ---|          LDML   DVTP,DI
08622  M02S00005.ns2767  ---|          LPC    0#BFFF      CLEAR CHECK FOR OFF-LINE DRIVE FLAG
08623  M02S00006.ns2767  ---|          STML   DVTP,DI
08624  M00S04641.1da     +++|          LDN    CSRC
08625  M00S04642.1da     +++|          STM    ERCT,DI     SET INITIAL ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
08626  M01S04643.273l780 ---|          LDD    DN          DRIVE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
08627  M01S00270.273l780 +++|          RJM    LDP         LOAD DEVICE PARAMETERS
08628  M01S00271.273l780 +++|          LDD    CM+1
08629  M01S00272.273l780 +++|          SHN    -6          FAILING DRIVE NUMBER
08630  M00S04644.1da     +++|          STM    PHYD,DI     FOR RECOVERED ERROR REPORTING

Seq #  *Modification Id* Act 
----------------------------+
08631  M01S04645.283l840 ---|          LDD    DI
08632  M01S04646.283l840 ---|          STM    ERFL        ONLY ALLOW ONE UNIT IN ERROR RECOVERY

Seq #  *Modification Id* Act 
----------------------------+
08633  M01S00175.283l840 +++|          RJM    SEP         SET ERROR PROCESSING INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
08634  M02S00176.1da8    ---|          NJP    CMP         IF ERROR IN PROGRESS ON A DIFFERENT DEVICE

Seq #  *Modification Id* Act 
----------------------------+
08635  M02S00448.ns2783  ---|          NJP    CMP9        IF ERROR IN PROGRESS ON A DIFFERENT DEVICE

Seq #  *Modification Id* Act 
----------------------------+
08636  M01S01882.ns2783  +++|          NJP    CMP10       IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
08637  M00S04647.1da     +++|          LDD    CB          INITIATE I/O
08638  M00S04648.1da     +++|          RJM    IIO
08639  M00S04649.1da     +++|          LJM    0,PA        EXIT TO PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
08640  M02S00177.1da8    ---|
08641  M02S00178.1da8    ---| PEF0     RJM    RCR         RESET CHANNEL REGISTERS
08642  M02S00179.1da8    ---|          LDC    4000        CLEAR BUFFER COUNT
08643  M02S00180.1da8    ---|          STM    RQLN,DI
08644  M02S00181.1da8    ---|          LJM    CMP         COMPLETE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08645  M01S04650.ns2783  ---| RCS      SPACE  4,10
08646  M01S04651.ns2783  ---|**        RCS - REMOVE CHANNEL FROM SYSTEM USE.

Seq #  *Modification Id* Act 
----------------------------+
08647  M01S01883.ns2783  +++| PLP      SPACE  4,20
08648  M01S01884.ns2783  +++|**        PLP - PROCESS LOST PARITY.
08649  M00S04652.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08650  M01S04653.ns2783  ---|*         ENTRY  (A) = EST ORDINAL IF CHANNEL TO BE DOWNED ON DEVICE.
08651  M01S04654.ns2783  ---|*                    = 0 IF CHANNEL TO BE GLOBALLY DOWNED.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S04655.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08658  M01S04656.ns2783  ---|*         USES   CM+1.

Seq #  *Modification Id* Act 
----------------------------+
08659  M01S01890.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08660  M01S01891.ns2783  +++|*                (EO) = EST ORDINAL.
08661  M00S04657.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08662  M01S04658.ns2783  ---|*         MACROS DELAY, EXECUTE, MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S04659.1da     +++|
08669  M00S04660.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
08670  M01S04661.ns2783  ---| RCS      SUBR               ENTRY/EXIT
08671  M01S04662.ns2783  ---|          LMC    4000
08672  M01S04663.ns2783  ---|          STM    RCSA+4      SET DRIVER CALL FLAG, EST ORDINAL
08673  M01S04664.ns2783  ---|          LDD    MA
08674  M01S04665.ns2783  ---|          CWM    RCSA,ON     STORE *1DS* CALL IN MESSAGE BUFFER
08675  M01S04666.ns2783  ---| RCS1     LDN    0
08676  M01S04667.ns2783  ---|          STD    CM+1        SET NON-PRIORITY REQUEST
08677  M01S04668.ns2783  ---|          EXECUTE  1DS,=
08678  M01S04669.ns2783  ---|          MONITOR  RPPM      REQUEST PP
08679  M01S04670.ns2783  ---|          LDD    CM+1
08680  M01S04671.ns2783  ---|          NJN    RCSX        IF *1DS* STARTED
08681  M01S04672.ns2783  ---|          DELAY
08682  M01S04673.ns2783  ---|          UJN    RCS1        RETRY CALL

Seq #  *Modification Id* Act 
----------------------------+
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  M00S04674.1da     +++|

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

Seq #  *Modification Id* Act 
----------------------------+
08723  M01S00273.273l780 +++|

Seq #  *Modification Id* Act 
----------------------------+
08724  M01S04675.ns2783  ---| RCSA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000

Seq #  *Modification Id* Act 
----------------------------+
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  M00S04676.1da     +++| RCT      SPACE  4,10
08790  M00S04677.1da     +++|**        RCT - READ CHANNEL TABLE.
08791  M00S04678.1da     +++|*
08792  M00S04679.1da     +++|*         EXIT   (A) = CHANNEL TABLE STATUS BYTE.
08793  M00S04680.1da     +++|*
08794  M00S04681.1da     +++|*         USES   NR - NR+4.
08795  M00S04682.1da     +++|*
08796  M00S04683.1da     +++|*         MACROS CHTE.
08797  M00S04684.1da     +++|
08798  M00S04685.1da     +++|
08799  M00S04686.1da     +++| RCT      SUBR               ENTRY/EXIT
08800  M00S04687.1da     +++|          CHTE   *
08801  M00S04688.1da     +++|          LDC    0           READ CHANNEL TABLE ENTRY
08802  M00S04689.1da     +++|          CRD    NR
08803  M00S04690.1da     +++| RCTA     LDD    NR
08804  M00S04691.1da     +++|          UJN    RCTX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08805  M01S00274.273l780 +++| RDO      SPACE  4,15
08806  M01S00275.273l780 +++|**        RDO - REPORT DRIVE OFF-LINE.
08807  M01S00276.273l780 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08808  M02S00277.ns2783  ---|*         THIS ROUTINE UPDATES BITS IN WORD *BDLL* OF THE MST SO THE

Seq #  *Modification Id* Act 
----------------------------+
08809  M03S00278.ns2783  ---|*         E,E DISPLAY SHOWS WHICH DRIVE IS OFF-LINE.  IT ALSO ISSUES
08810  M03S00279.ns2783  ---|*         A MONITOR REQUEST WHICH CAUSES AN OPERATOR ACTION TO VIEW
08811  M03S00280.ns2783  ---|*         THE E,E DISPLAY.

Seq #  *Modification Id* Act 
----------------------------+
08812  M02S00178.ns2783  ---|*         E,E DISPLAY SHOWS WHICH DRIVE IS OFF-LINE.

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

Seq #  *Modification Id* Act 
----------------------------+
08815  M01S00281.273l780 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08816  M02S00282.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08817  M01S00449.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08818  M01S00283.273l780 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08819  M02S00284.1da7    ---|*         USES   T7, CM+1 - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
08820  M02S00179.ns2783  ---|*         USES   CM+2, T7.

Seq #  *Modification Id* Act 
----------------------------+
08821  M02S00285.ns2783  ---|*

Seq #  *Modification Id* Act 
----------------------------+
08822  M03S00286.ns2783  ---|*         CALLS  UBP.

Seq #  *Modification Id* Act 
----------------------------+
08823  M02S00182.ns2783  ---|*         CALLS  CRP, UBP.

Seq #  *Modification Id* Act 
----------------------------+
08824  M01S02002.ns2783  +++|*         CALLS  PLP.

Seq #  *Modification Id* Act 
----------------------------+
08825  M02S00287.1da7    ---|*
08826  M02S00288.1da7    ---|*         MACROS MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
08827  M01S00289.273l780 +++|
08828  M01S00290.273l780 +++|
08829  M01S00291.273l780 +++| RDO      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
08830  M02S00292.283l840 ---|          LDM    PHYD,DI
08831  M02S00293.283l840 ---|          SHN    2
08832  M02S00294.283l840 ---|          LMN    2

Seq #  *Modification Id* Act 
----------------------------+
08833  M02S00183.ns2783  ---|          RJM    CRP         CLEAR *RESTORE IN PROGRESS*, IF SET
08834  M02S00184.ns2783  ---|          LDM    PHYD,DI     SET OFF-LINE UNIT INFORMATION
08835  M02S00185.ns2783  ---|          SHN    1
08836  M02S00186.ns2783  ---|          LMN    1

Seq #  *Modification Id* Act 
----------------------------+
08837  M02S00295.ns2783  ---|          STD    CM+2        FAILING DRIVE/PARITY PROTECTION DISABLED

Seq #  *Modification Id* Act 
----------------------------+
08838  M03S00296.ns2783  ---|          LDC    64*100      LOW ORDER BIT TO CHANGE TIMES 100

Seq #  *Modification Id* Act 
----------------------------+
08839  M02S00187.ns2783  ---|          LDC    65*100      LOW ORDER BIT TO CHANGE TIMES 100

Seq #  *Modification Id* Act 
----------------------------+
08840  M02S00297.ns2783  ---|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
08841  M03S00298.ns2783  ---|          LDC    BDLL*100+10 6/WORD, 6/BITS TO CHANGE

Seq #  *Modification Id* Act 
----------------------------+
08842  M02S00188.ns2783  ---|          LDC    BDLL*100+7  6/WORD, 6/BITS TO CHANGE

Seq #  *Modification Id* Act 
----------------------------+
08843  M02S00299.ns2783  ---|          RJM    UBP         UPDATE *BDLL* PARAMETER

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

Seq #  *Modification Id* Act 
----------------------------+
08849  M02S00300.1da7    ---|          LDN    EEVS
08850  M02S00301.1da7    ---|          STD    CM+1        ENTER EVENT
08851  M02S00302.1da7    ---|          LDN    0
08852  M02S00303.1da7    ---|          STD    CM+3
08853  M02S00304.1da7    ---|          LDN    CEDE        *CHECK E,E DISPLAY* EVENT
08854  M02S00305.1da7    ---|          STD    CM+4
08855  M02S00306.1da7    ---|          MONITOR  EATM

Seq #  *Modification Id* Act 
----------------------------+
08856  M01S00307.273l780 +++|          UJN    RDOX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
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  M00S04692.1da     +++| RLB      SPACE  4,15
08876  M00S04693.1da     +++|**        RLB - READ LINKAGE BITS.
08877  M00S04694.1da     +++|*
08878  M00S04695.1da     +++|*         ENTRY  (T6) = ADDRESS FOR LINKAGE.
08879  M00S04696.1da     +++|*                (PB) = CONTROL BUFFER ORDINAL.
08880  M00S04697.1da     +++|*                (T1) = DATA BUFFER ADDRESS.
08881  M00S04698.1da     +++|*                (T2) = CONTROL BUFFER WORD NUMBER.
08882  M00S04699.1da     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
08883  M00S04700.1da     +++|*
08884  M00S04701.1da     +++|*         EXIT   SECTOR LINKAGE SET IN *CBT* ENTRY.
08885  M00S04702.1da     +++|*
08886  M00S04703.1da     +++|*         USES   T1, T6.
08887  M00S04704.1da     +++|*
08888  M00S04705.1da     +++|*         MACROS CBTE.
08889  M00S04706.1da     +++|
08890  M00S04707.1da     +++|
08891  M00S04708.1da     +++| RLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
08892  M00S04709.1da     +++|          RADL   T1
08893  M00S04710.1da     +++|          LDIL   T1          EXTRACT LINKAGE FROM BUFFER
08894  M00S04711.1da     +++| RLB2     SHN    -14
08895  M00S04712.1da     +++|          SHN    10          POSITION FOR *CBT* ENTRY
08896  M00S04713.1da     +++|          STI    T6
08897  M00S04714.1da     +++|          LDML   4,T1        EXTRACT LINKAGE FROM BUFFER
08898  M00S04715.1da     +++|          SHN    -14
08899  M00S04716.1da     +++|          SHN    4           POSITION FOR *CBT* ENTRY
08900  M00S04717.1da     +++|          RAI    T6
08901  M00S04718.1da     +++|          LDML   10,T1       EXTRACT LINKAGE FROM BUFFER
08902  M00S04719.1da     +++|          SHN    -14
08903  M00S04720.1da     +++|*         SHN    0           POSITION FOR *CBT* ENTRY
08904  M00S04721.1da     +++|          RAI    T6
08905  M00S04722.1da     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
08906  M00S04723.1da     +++|          LMN    CM+5
08907  M00S04724.1da     +++|          NJN    RLB1        IF MORE LINKAGE
08908  M00S04725.1da     +++|          LDD    PB
08909  M00S04726.1da     +++|          SHN    CBTLS
08910  M00S04727.1da     +++|          CBTE   *
08911  M00S04728.1da     +++|          ADC    0           FWA OF *CBT*
08912  M00S04729.1da     +++|          ADD    T2
08913  M00S04730.1da     +++|          CWD    CM          UPDATE CONTROL BUFFER ENTRY
08914  M00S04731.1da     +++|
08915  M00S04732.1da     +++| RLB      SUBR               ENTRY/EXIT
08916  M00S04733.1da     +++|          UJN    RLB2        MOVE SECTOR LINKAGE
08917  M00S04734.1da     +++| RMR      SPACE  4,10
08918  M00S04735.1da     +++|**        RMR - READ CHANNEL STATUS REGISTER.
08919  M00S04736.1da     +++|*
08920  M00S04737.1da     +++|*         EXIT   (A) = 0 IF NO CHANNEL ERROR.
08921  M00S04738.1da     +++|*                (RBUF) = REGISTER CONTENTS.
08922  M00S04739.1da     +++|*
08923  M00S04740.1da     +++|*         CALLS  WMC.
08924  M00S04741.1da     +++|
08925  M00S04742.1da     +++|
08926  M00S04743.1da     +++| RMR      SUBR               ENTRY/EXIT
08927  M00S04744.1da     +++|          FNC.   IOUC,MR
08928  M00S04745.1da     +++|          ACN.   MR          ACTIVATE MAINTENANCE CHANNEL
08929  M00S04746.1da     +++|          LDN    0
08930  M00S04747.1da     +++|          OAN.   MR          OUTPUT NULL PARAMETER
08931  M00S04748.1da     +++|          CON    LDCI
08932  M00S04749.1da     +++|          IAN    CH          (FORCE CHANNEL TABLE ENTRY)
08933  M00S04750.1da     +++|          ORG    *-1
08934  M00S04751.1da     +++|          CON    RCSR+CH     TRANSMIT REGISTER NUMBER
08935  M00S04752.1da     +++|          OAN.   MR
08936  M00S04753.1da     +++|          RJM    WMC         WAIT CHANNEL EMPTY
08937  M00S04754.1da     +++|          DCN.   MR+40
08938  M00S04755.1da     +++|          NJN    RMRX        IF CHANNEL HUNG FULL
08939  M00S04756.1da     +++|          ACN.   MR
08940  M00S04757.1da     +++|          LDN    RBUFL       READ CHANNEL STATUS REGISTER
08941  M00S04758.1da     +++|          IAM.   RBUF,MR
08942  M00S04759.1da     +++|          UJN    RMRX        RETURN
08943  M00S04760.1da     +++| RND      SPACE  4,15
08944  M00S04761.1da     +++|**        RND - RUN DIAGNOSTICS.
08945  M00S04762.1da     +++|*
08946  M00S04763.1da     +++|*         NOTE - THE DRIVE MUST BE CLUSTERED TO RUN DIAGNOSTICS.
08947  M00S04764.1da     +++|*                THE CODE WILL NOT RUN DIAGNOSTICS IF A FORMAT
08948  M00S04765.1da     +++|*                REQUEST IS PRESENT TO ENSURE THIS ROUTINE IS ONLY
08949  M00S04766.1da     +++|*                RUN WHEN THE DRIVE IS CLUSTERED.
08950  M00S04767.1da     +++|*
08951  M00S04768.1da     +++|*         ENTRY  (PHYD,DI) = DRIVE TO RUN DIAGNOSTICS.
08952  M00S04769.1da     +++|*                (FC) = 0 IF FORMAT NOT COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
08953  M01S04770.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08954  M01S00450.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
08955  M00S04771.1da     +++|*
08956  M00S04772.1da     +++|*         EXIT   TO *ERR* IF ERROR.
08957  M00S04773.1da     +++|*
08958  M00S04774.1da     +++|*         CALLS  ATT, SOU, WCB.
08959  M00S04775.1da     +++|
08960  M00S04776.1da     +++|
08961  M00S04777.1da     +++| RND      SUBR               ENTRY/EXIT
08962  M00S04778.1da     +++|          LDD    FC
08963  M00S04779.1da     +++|          ZJN    RNDX        IF FORMAT NOT COMPLETE
08964  M00S04780.1da     +++|          LDML   EDBF+FALT
08965  M00S04781.1da     +++|          SBN    EDPE

Seq #  *Modification Id* Act 
----------------------------+
08966  M01S04782.1da8    ---|          ZJN    RND10       IF MEDIA ERROR

Seq #  *Modification Id* Act 
----------------------------+
08967  M01S00451.1da8    +++|          ZJN    RND1        IF MEDIA ERROR
08968  M00S04783.1da     +++|          SBN    EIVR-EDPE

Seq #  *Modification Id* Act 
----------------------------+
08969  M01S04784.1da8    ---|          ZJN    RND10       IF ID24

Seq #  *Modification Id* Act 
----------------------------+
08970  M01S00452.1da8    +++|          ZJN    RND1        IF ID24
08971  M00S04785.1da     +++|          SBN    EMEX-EIVR
08972  M00S04786.1da     +++|          NJN    RNDX        IF NOT ID26

Seq #  *Modification Id* Act 
----------------------------+
08973  M01S04787.1da8    ---|*RND10    LDN    0
08974  M01S04788.1da8    ---| RND10    STM    ESAD,DI     SO ERROR RESPONSE WILL BE LOGGED

Seq #  *Modification Id* Act 
----------------------------+
08975  M01S00453.1da8    +++| RND1     STM    ERRA        ENABLE LOGGING OF ERROR RESPONSE
08976  M00S04789.1da     +++|          LDC    C8100       DRIVE DIAGNOSTIC COMMAND
08977  M00S04790.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
08978  M00S04791.1da     +++|          LDC    P02D5
08979  M00S04792.1da     +++|          STML   CPBF+FCP    PARAMETER TO SELECT DRIVE
08980  M00S04793.1da     +++|          LDM    PHYD,DI
08981  M00S04794.1da     +++|          SHN    10
08982  M00S04795.1da     +++|          STML   CPBF+FCP+1  PHYSICAL DRIVE NUMBER
08983  M00S04796.1da     +++|          LDN    12          WRITE COMMAND PACKET
08984  M00S04797.1da     +++|          RJM    WCB
08985  M00S04798.1da     +++|          LDN    CMSS        PROCESS ATTENTION
08986  M00S04799.1da     +++|          RJM    ATT
08987  M00S04800.1da     +++|          ZJP    RNDX        IF DIAGNOSTICS COMPLETED SUCCESSFULLY

Seq #  *Modification Id* Act 
----------------------------+
08988  M01S04801.283l840 ---|          LCN    EDTF

Seq #  *Modification Id* Act 
----------------------------+
08989  M01S00189.283l840 +++|          LCN    EDTF        DIAGNOSTIC FAULT
08990  M00S04802.1da     +++|          RJM    ERR         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
08991  M01S04803.ns2783  ---| ROD      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
08992  M01S02026.ns2783  +++| ROD      SPACE  4,20
08993  M00S04804.1da     +++|**        ROD - RESTORE OFF-LINE DRIVE.
08994  M00S04805.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08995  M01S04806.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08996  M01S00454.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08997  M01S00149.ns2768  +++|*                (DT) = DRIVE TYPE.
08998  M00S04807.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
08999  M01S04808.ns2783  ---|*         EXIT   TO *CMP* IF RESTORE CYLINDER COMMAND COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
09000  M01S02027.ns2783  +++|*         EXIT   TO CALLER IF NO RESTORE OR NOT TIME TO RESTORE.
09001  M01S02028.ns2783  +++|*                TO *CMP* IF RESTORE CYLINDER COMMAND COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
09002  M01S04809.273l780 ---|*                TO *CMP1* IF ENTIRE DRIVE RESTORED.
09003  M00S04810.1da     +++|*                TO *ERR* IF ERROR.
09004  M00S04811.1da     +++|*

Seq #  *Modification Id* Act 
----------------------------+
09005  M01S04812.273l780 ---|*         CALLS  ATT, CSC, SOU, WCB.

Seq #  *Modification Id* Act 
----------------------------+
09006  M02S00308.ns2783  ---|*         USES   CM+2, T7.

Seq #  *Modification Id* Act 
----------------------------+
09007  M01S02029.ns2783  +++|*         USES   T1.

Seq #  *Modification Id* Act 
----------------------------+
09008  M01S00309.273l780 +++|*

Seq #  *Modification Id* Act 
----------------------------+
09009  M02S00310.1da8    ---|*         CALLS  ATT, CSC, IDM, IEM, SOU, UBP, WCB.

Seq #  *Modification Id* Act 
----------------------------+
09010  M02S00455.ns2783  ---|*         CALLS  ATT, CEP, CRP, CSC, IDM, IEM, LNU, SOU, UBP, WCB.

Seq #  *Modification Id* Act 
----------------------------+
09011  M01S02030.ns2783  +++|*         CALLS  ATT, CLP, CRP, CSC, IDM, IEM, LNE, SOU, WCB.
09012  M01S02031.ns2783  +++|*
09013  M01S02032.ns2783  +++|*         MACROS MONITOR.
09014  M00S04813.1da     +++|
09015  M00S04814.1da     +++|

Seq #  *Modification Id* Act 
----------------------------+
09016  M02S00509.ns2783  ---| ROD5     LDDL   MS

Seq #  *Modification Id* Act 
----------------------------+
09017  M01S02033.ns2783  +++| ROD10    LDDL   MS

Seq #  *Modification Id* Act 
----------------------------+
09018  M01S00510.284l847 +++|          LMC    0#42

Seq #  *Modification Id* Act 
----------------------------+
09019  M02S00511.ns2783  ---|          NJN    ROD6        IF NOT CONDITIONAL SUCCESS
09020  M02S00512.ns2783  ---|          LDDL   PA

Seq #  *Modification Id* Act 
----------------------------+
09021  M01S02034.ns2783  +++|          NJN    ROD11       IF NOT CONDITIONAL SUCCESS
09022  M01S02035.ns2783  +++|          LDDL   PA          SET INTERRUPT REENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
09023  M01S00513.284l847 +++|          STML   ATTN,DI     EXPECT A COMMAND COMPLETE RESPONSE

Seq #  *Modification Id* Act 
----------------------------+
09024  M02S00514.ns2783  ---| ROD6     LCN    EROD        RESTORE OFF-LINE DRIVE ERROR
09025  M02S00515.ns2783  ---|          UJN    ROD8        PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
09026  M01S02036.ns2783  +++| ROD11    LCN    EROD        RESTORE OFF-LINE DRIVE ERROR
09027  M01S02037.ns2783  +++|          UJN    ROD13       PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
09028  M01S00516.284l847 +++|

Seq #  *Modification Id* Act 
----------------------------+
09029  M02S00517.ns2783  ---| ROD7     LDN    ECMD        CONTROLLER DEAD
09030  M02S00518.ns2783  ---| ROD8     RJM    ERR         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
09031  M01S02038.ns2783  +++| ROD12    LDN    ECMD        CONTROLLER DEAD
09032  M01S02039.ns2783  +++| ROD13    RJM    ERR         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
09033  M01S00519.284l847 +++|

Seq #  *Modification Id* Act 
----------------------------+
09034  M01S04815.ns2783  ---| ROD      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09035  M02S04816.ns2783  ---|          LDML   CSRF,DI
09036  M02S04817.ns2783  ---|          SHN    -17

Seq #  *Modification Id* Act 
----------------------------+
09037  M03S04818.ns2783  ---|          NJP    ROD7        IF CONTROLLER NOT FUNCTIONAL

Seq #  *Modification Id* Act 
----------------------------+
09038  M03S00520.ns2783  ---|          NJN    ROD7        IF CONTROLLER NOT FUNCTIONAL

Seq #  *Modification Id* Act 
----------------------------+
09039  M02S00456.ns2783  ---|          LDML   CSTB,CI

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

Seq #  *Modification Id* Act 
----------------------------+
09047  M01S00457.1da8    +++|          SHN    21-15

Seq #  *Modification Id* Act 
----------------------------+
09048  M02S00458.ns2783  ---|          MJN    ROD7        IF CONTROLLER DEAD

Seq #  *Modification Id* Act 
----------------------------+
09049  M01S04819.ns2783  ---|          LDML   RMUX,DI

Seq #  *Modification Id* Act 
----------------------------+
09050  M02S04820.ns2783  ---|          LPC    0#8000

Seq #  *Modification Id* Act 
----------------------------+
09051  M02S00459.ns2783  ---|          LPC    100000

Seq #  *Modification Id* Act 
----------------------------+
09052  M01S04821.ns2783  ---|          STML   RMUX,DI     INDICATE RESTORE IS CURRENT COMMAND

Seq #  *Modification Id* Act 
----------------------------+
09053  M01S02047.ns2783  +++|          MJN    ROD12       IF CONTROLLER DEAD
09054  M01S02048.ns2783  +++|
09055  M01S02049.ns2783  +++|*         RESTORE NEXT CYLINDER.
09056  M01S02050.ns2783  +++|
09057  M00S04822.1da     +++|          LDC    CE005       RESTORE OPERATION CODE
09058  M00S04823.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
09059  M00S04824.1da     +++|          RJM    CSC         COMPUTE SECTOR COUNT
09060  M00S04825.1da     +++|          LDC    P0931
09061  M00S04826.1da     +++|          STML   CPBF+FCP    COMMAND EXTENT PARAMETER
09062  M00S04827.1da     +++|          LDC    P02D5
09063  M00S04828.1da     +++|          STML   CPBF+FCP+5  PHYSICAL DRIVE PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
09064  M01S04829.ns2783  ---|          LDM    RDRV,DI

Seq #  *Modification Id* Act 
----------------------------+
09065  M01S02051.ns2783  +++|          LDM    OUPD,DI
09066  M01S02052.ns2783  +++|          STM    PHYD,DI
09067  M00S04830.1da     +++|          SHN    10
09068  M00S04831.1da     +++|          STML   CPBF+FCP+6  PHYSICAL DRIVE PARAMETER
09069  M00S04832.1da     +++|          LDC    0#2E3
09070  M00S04833.1da     +++|          STML   CPBF+FCP+7  RESTORE OPTION PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
09071  M01S04834.ns2783  ---|          LDML   RCYL,DI
09072  M01S04835.ns2783  ---|          STML   CPBF+FCP+3  CYLINDER TO RESTORE

Seq #  *Modification Id* Act 
----------------------------+
09073  M01S02053.ns2783  +++|          LDM    RCYL
09074  M01S02054.ns2783  +++|          STM    CPBF+FCP+3  CYLINDER TO RESTORE
09075  M00S04836.1da     +++|          STM    CYLN,DI     FOR ERROR LOGGING

Seq #  *Modification Id* Act 
----------------------------+
09076  M01S04837.ns2775  ---|          LMML   MC,DT

Seq #  *Modification Id* Act 
----------------------------+
09077  M02S00059.1da7    ---|          RJM    CLC         CHECK FOR LAST CYLINDER

Seq #  *Modification Id* Act 
----------------------------+
09078  M02S00180.ns2783  ---|          LMML   CYUN,DT     CHECK FOR LAST CYLINDER

Seq #  *Modification Id* Act 
----------------------------+
09079  M01S02055.ns2783  +++|          LMM    CYUN,DT     CHECK FOR LAST CYLINDER
09080  M00S04838.1da     +++|          NJN    ROD1        IF NOT LAST CYLINDER
09081  M00S04839.1da     +++|          LDC    0#901
09082  M00S04840.1da     +++|          STML   CPBF+FCP    NO OP EXTENT PARAMETER
09083  M00S04841.1da     +++|          LDC    0#100
09084  M00S04842.1da     +++|          UJN    ROD2        ON LINE DRIVE
09085  M00S04843.1da     +++|
09086  M00S04844.1da     +++| ROD1     LDC    0#200       RESTORE DRIVE
09087  M00S04845.1da     +++| ROD2     STML   CPBF+FCP+10
09088  M00S04846.1da     +++|          LDN    30          COMMAND PACKET LENGTH
09089  M00S04847.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
09090  M00S04848.1da     +++|          LDN    CMSS
09091  M00S04849.1da     +++|          RJM    ATT         PROCESS ATTENTION

Seq #  *Modification Id* Act 
----------------------------+
09092  M01S04850.ns2783  ---|          NJP    ROD5        IF ERROR
09093  M01S04851.ns2783  ---|          STM    RTSN,DI     NEXT TRACK, SECTOR TO RESTORE
09094  M01S04852.ns2783  ---|          LDML   RMUX,DI

Seq #  *Modification Id* Act 
----------------------------+
09095  M01S02056.ns2783  +++|          NJP    ROD10       IF ERROR
09096  M01S02057.ns2783  +++|          STM    RTSN        NEXT TRACK, SECTOR TO RESTORE
09097  M01S02058.ns2783  +++|          LDML   RMUX
09098  M00S04853.1da     +++|          SHN    21-17
09099  M00S04854.1da     +++|          MJN    ROD3        IF MULTIPLEXING DISABLED
09100  M00S04855.1da     +++|          LDN    IRBR

Seq #  *Modification Id* Act 
----------------------------+
09101  M01S04856.ns2783  ---|          STM    RMUX,DI     I/O REQUESTS BEFORE NEXT RESTORE

Seq #  *Modification Id* Act 
----------------------------+
09102  M02S04857.ns2783  ---| ROD3     AOML   RCYL,DI     NEXT CYLINDER TO RESTORE

Seq #  *Modification Id* Act 
----------------------------+
09103  M03S00005.ns2783  ---|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
09104  M03S04858.ns2783  ---|          SBML   MC,DT

Seq #  *Modification Id* Act 
----------------------------+
09105  M04S04859.ns2783  ---|          MJP    ROD4        IF MORE CYLINDERS TO RESTORE
09106  M04S04860.ns2783  ---|          ZJP    ROD4        IF MORE CYLINDERS TO RESTORE

Seq #  *Modification Id* Act 
----------------------------+
09107  M05S04861.ns2783  ---|          LDML   DVTP,DI
09108  M05S04862.ns2783  ---|          STM    DVTP,DI     CLEAR RESTORE IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
09109  M05S00064.ns2783  ---|          LDML   DVTP,DI     CLEAR *RESTORE IN PROGRESS* FLAG

Seq #  *Modification Id* Act 
----------------------------+
09110  M04S00521.ns2783  ---|          MJN    ROD4        IF MORE CYLINDERS TO RESTORE

Seq #  *Modification Id* Act 
----------------------------+
09111  M04S00060.ns2783  ---|          RJM    CLC         CHECK FOR LAST CYLINDER

Proceed to Part 8