User Tools

Site Tools


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

Deck 1DA Part 007

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
08088  M01S04467.ns2750  ---|          NJN    ISR6        IF DRIVE UNAVAILABLE
Line S00168 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08089  M01S00168.ns2750  +++|          MJN    ISR8        IF CHANNEL DOWN OR NOT ENABLED
08090  M01S00169.ns2750  +++|          NJN    ISR9        IF INTERLOCK NOT AVAILABLE
Line S04468 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08091  M01S04468.1da8    ---|          LDML   CSRF,DI
08092  M01S04469.1da8    ---|          SHN    -17
Line S04470 Modification History
M01 (Removed by) ns2750
M02 (Removed by) 1da8
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
Line S00170 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08096  M02S00170.1da8    ---|          NJN    ISR10       IF CONTROLLER FAILURE
Line S00424 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08097  M02S00424.ns2783  ---|          LDML   CSTB,CI
Line S01685 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08098  M01S01685.ns2783  +++|          LDML   CTST,CI
Line S00425 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08099  M01S00425.1da8    +++|          SHN    21-15
08100  M01S00426.1da8    +++|          MJN    ISR10       IF CONTROLLER DEAD
Line S00171 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08101  M01S00171.ns2750  +++|          LJM    0,PA        EXIT TO SPECIAL REQUEST
08102  M00S04473.1da     +++|
Line S04474 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08103  M01S04474.ns2750  ---| ISR5     LDM    SREQ,DI
Line S00172 Modification History
M01 (Added by) ns2750
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
Line S04476 Modification History
M01 (Removed by) ns2750
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
Line S00175 Modification History
M01 (Added by) ns2750
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*
Line S04479 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08113  M01S04479.ns2750  ---| ISR6     LDN    0
Line S00177 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08114  M01S00177.ns2750  +++|
08115  M01S00178.ns2750  +++|*         INTERLOCK NOT AVAILABLE.
08116  M01S00179.ns2750  +++|
08117  M01S00180.ns2750  +++| ISR9     LDN    0
Line S04480 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08118  M01S04480.ns2783  ---|          STM    RMUX,DI     IN CASE RESTORE IN PROGRESS
Line S00267 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08119  M02S00267.ns2783  ---|          STM    SREQ,DI
Line S01686 Modification History
M01 (Added by) ns2783
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     +++|
Line S04483 Modification History
M01 (Removed by) ns2750
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
Line S00181 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08129  M01S00181.ns2750  +++|*         CONTROLLER FAILURE.
Line S00268 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08130  M01S00268.273l780 +++|
Line S00182 Modification History
M01 (Added by) ns2750
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08131  M02S00182.283l840 ---| ISR10    LDN    ECMD
Line S00171 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08132  M01S00171.283l840 +++| ISR10    LDN    ECMD        CONTROLLER DEAD
Line S00183 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08133  M01S00183.ns2750  +++|          RJM    ERR         PROCESS ERROR
08134  M00S04487.1da     +++|
Line S00184 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08135  M01S00184.ns2750  +++|
08136  M00S04488.1da     +++| ISRA     BSS    0           SPECIAL REQUEST PROCESSORS
Line S04489 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08137  M01S04489.ns2750  ---|          CON    SPD         SPIN-DOWN DRIVE
08138  M01S04490.ns2750  ---|          CON    SPD         SPIN-UP DRIVE
Line S00185 Modification History
M01 (Added by) ns2750
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08139  M02S00185.ns2783  ---|          CON    CSR         CLEAR FLAG (ENABLE CONTROLLER ACTIVITY)
Line S00186 Modification History
M01 (Added by) ns2750
M02 (Removed by) ns2767
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08140  M03S00186.ns2783  ---|          CON    CSR         CLEAR FLAG (RESERVED)
Line S00063 Modification History
M01 (Added by) ns2767
M02 (Removed by) 1da8
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08141  M03S00063.ns2783  ---|          CON    COD         CHECK FOR OFF-LINE DRIVE
Line S00427 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08142  M02S00427.ns2783  ---|          CON    COD         CHECK FOR OFF-LINE DRIVE (RESTORE PARITY)
Line S00187 Modification History
M01 (Added by) ns2750
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08143  M02S00187.ns2783  ---|          CON    CSR         CLEAR FLAG (RESERVED)
Line S04491 Modification History
M01 (Removed by) ns2783
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
Line S01689 Modification History
M01 (Added by) ns2783
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
Line S00188 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08153  M01S00188.ns2750  +++| ISRB     BSS    0           INTERNAL SPECIAL REQUEST PROCESSORS
Line S00189 Modification History
M01 (Added by) ns2750
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08154  M02S00189.ns2783  ---|          CON    CDT         CHECK DRIVE TYPE (INTERNAL REQUEST)
Line S04494 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08155  M01S04494.ns2783  ---| LDP      SPACE  4,20
Line S01695 Modification History
M01 (Added by) ns2783
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     +++|*
Line S04497 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08160  M01S04497.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00428 Modification History
M01 (Added by) 1da8
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.
Line S04501 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08165  M01S04501.1da8    ---|*                (RW) = READ / WRITE FLAG.
Line S00429 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08166  M01S00429.1da8    +++|*                (CI) = CONTROLLER STATE TABLE ADDRESS.
08167  M00S04502.1da     +++|*                (CN) = CONTROLLER NUMBER.
Line S01697 Modification History
M01 (Added by) ns2783
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.
Line S01698 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08172  M01S01698.ns2783  +++|*                (PD) = PARITY DEVICE FLAG.
Line S00430 Modification History
M01 (Added by) 1da8
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     +++|*
Line S04509 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08177  M01S04509.284l847 ---|*         USES   CB, CN, DN, DT, EO, PA, RW, CM - CM+4, WB - WB+4.
Line S00494 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08178  M02S00494.1da8    ---|*         USES   CB, CN, DN, DT, EO, PA, RW, CM - CM+4, CW - CW+4,
Line S00431 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08179  M02S00431.ns2783  ---|*         USES   CB, CI, CN, DN, DT, EO, PA, RW, CM - CM+4, CW - CW+4,
Line S01699 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08180  M01S01699.ns2783  +++|*         USES   CB, CI, CN, DD, DN, DT, PA, PD, RW, CM - CM+4,
Line S00495 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08181  M01S00495.284l847 +++|*                WB - WB+4.
08182  M00S04510.1da     +++|*
Line S04511 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08183  M01S04511.284l847 ---|*         MACROS PUTE.
Line S00496 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08184  M02S00496.ns2783  ---|*         MACROS CBTE, PUTE.
Line S01700 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08185  M01S01700.ns2783  +++|*         CALLS  SEO.
08186  M01S01701.ns2783  +++|*
08187  M01S01702.ns2783  +++|*         MACROS PUTE.
08188  M00S04512.1da     +++|
Line S00497 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08189  M01S00497.284l847 +++|
Line S00498 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08190  M02S00498.ns2783  ---| LDP1     LDD    WB+1        SET EST ORDINAL
08191  M02S00499.ns2783  ---| LDP2     STD    EO
Line S04513 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08192  M01S04513.ns2783  ---|
08193  M00S04514.1da     +++| LDP      SUBR               ENTRY/EXIT
08194  M00S04515.1da     +++|          LDM    DVTP,DI
Line S01703 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08195  M01S01703.ns2783  +++|          LPN    77
08196  M00S04516.1da     +++|          STD    DT          DRIVE TYPE
Line S00432 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08197  M02S00432.ns2783  ---|          LDM    PNUN,DI
08198  M02S00433.ns2783  ---|          SHN    -6
08199  M02S00434.ns2783  ---|          STD    CI          INDEX TO CONTROLLER TABLE
Line S01704 Modification History
M01 (Added by) ns2783
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
Line S04531 Modification History
M01 (Removed by) 284l847
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
Line S04537 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08233  M01S04537.284l847 ---|          LDD    WB+1        SET EST ORDINAL
08234  M01S04538.284l847 ---|          STD    EO
08235  M01S04539.284l847 ---|          UJN    LDPX        RETURN
Line S00500 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
08236  M01S00500.284l847 +++|          LDD    WB+3        *CBT* ORDINAL
08237  M01S00501.284l847 +++|          STD    CB
Line S00502 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08238  M02S00502.1da8    ---|          ZJN    LDP1        IF NO *CBT*
Line S00435 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08239  M02S00435.ns2783  ---|          ZJP    LDP1        IF NO *CBT*
Line S00503 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
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
Line S01717 Modification History
M01 (Added by) ns2783
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.
Line S00436 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08304  M01S00436.1da8    +++|*                (CI) = CONTROLLER STATE TABLE ADDRESS.
Line S04544 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08305  M01S04544.ns2750  ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
08306  M01S04545.ns2750  ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX.
Line S00190 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08307  M01S00190.ns2750  +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
Line S00191 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08308  M02S00191.1da8    ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX, IF (A) = 0.
Line S04546 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08309  M01S04546.ns2783  ---|*                (T7) = CURRENT DEVICE STATE TABLE ADDRESS.
Line S01771 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08310  M01S01771.ns2783  +++|*                (T7) = CURRENT *DST* ADDRESS, IF (A) .NE. 0.
08311  M00S04547.1da     +++|*
Line S04548 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08312  M01S04548.ns2783  ---|*         EXIT   (A) = (T7) = STATE TABLE ADDRESS OF NEXT DRIVE.
Line S01772 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08313  M01S01772.ns2783  +++|*         EXIT   (A) = (T7) = DEVICE STATE TABLE ADDRESS OF NEXT DRIVE.
Line S04549 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08314  M01S04549.ns2750  ---|*                    = 0 IF NO MORE DRIVES (ON CONTROLLER).
Line S00192 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08315  M01S00192.ns2750  +++|*                (A) = 0 IF NO MORE DRIVES (ON CONTROLLER).
Line S00193 Modification History
M01 (Added by) ns2750
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08316  M02S00193.1da8    ---|*                (T5) = CONTROLLER STATUS BLOCK INDEX.
08317  M00S04550.1da     +++|*
Line S04551 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08318  M01S04551.1da8    ---|*         USES   T5, T7.
Line S00437 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08319  M01S00437.1da8    +++|*         USES   T7.
08320  M00S04552.1da     +++|
08321  M00S04553.1da     +++|
Line S04554 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08322  M01S04554.1da8    ---| LND2     LDM    PNUN,DI     EXTRACT CONTROLLER BLOCK INDEX
Line S00438 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08323  M02S00438.ns2783  ---| LND2     LDM    CSTB,CI     ADDRESS OF FIRST DRIVE IN STRING
Line S01773 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08324  M01S01773.ns2783  +++| LND2     LDM    CTST,CI     ADDRESS OF FIRST DRIVE IN STRING
Line S00439 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08325  M01S00439.1da8    +++|          STD    T7
08326  M01S00440.1da8    +++| LND3     LDM    PNUN,T7     VERIFY CONTROLLER
Line S01774 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08327  M01S01774.ns2783  +++|          LMM    PNUN,DI
08328  M00S04555.1da     +++|          SHN    -6
Line S04556 Modification History
M01 (Removed by) 1da8
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
Line S00441 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
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
Line S04568 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08342  M01S04568.ns2750  ---|          RAD    T7          ADVANCE DEVICE STATUS BLOCK ADDRESS
Line S00194 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08343  M01S00194.ns2750  +++|          RAD    T7          ADVANCE DEVICE STATE TABLE ADDRESS
Line S04569 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08344  M01S04569.ns2783  ---|          LMM    DASA
Line S01775 Modification History
M01 (Added by) ns2783
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
Line S00092 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08349  M02S00092.ns2783  ---| LNE      SPACE  4,15
08350  M02S00093.ns2783  ---|**        LNE - LOCATE NEXT EQUIPMENT LINKED TO *PUT*.
Line S01776 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08351  M01S01776.ns2783  +++| LNE      SPACE  4,25
08352  M01S01777.ns2783  +++|**        LNE - LOCATE NEXT EST/PARTITION FOR THIS DEVICE.
Line S00094 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08353  M01S00094.1da7    +++|*
Line S00095 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08354  M02S00095.ns2783  ---|*         LOCATE NEXT EST ASSOCIATED WITH THE *PUT* ADDRESS
08355  M02S00096.ns2783  ---|*                STORED IN CELL *LNEB*.
Line S01778 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08356  M01S01778.ns2783  +++|*         LOCATE NEXT EST ASSOCIATED WITH THE CURRENT DEVICE.
Line S00097 Modification History
M01 (Added by) 1da7
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.
Line S00100 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08360  M02S00100.ns2783  ---|*                (LNEB) = *PUT* ADDRESS FOR EQUIPMENT TO BE LOCATED.
Line S01779 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08361  M01S01779.ns2783  +++|*                (DI) = DEVICE STATUS TABLE ADDRESS.
08362  M01S01780.ns2783  +++|*                (EO) = CURRENT EST ORDINAL.
Line S00101 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08363  M01S00101.1da7    +++|*
Line S00102 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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.
Line S01781 Modification History
M01 (Added by) ns2783
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*).
Line S00106 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08371  M01S00106.1da7    +++|*
Line S00107 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08372  M02S00107.ns2783  ---|*         USES   T5, T6, CM - CM+4.
Line S01784 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08373  M01S01784.ns2783  +++|*         USES   EO, CM - CM+4.
Line S00108 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08374  M01S00108.1da7    +++|*
Line S00109 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08375  M02S00109.ns2783  ---|*         MACROS PUTE, SFA.
Line S01785 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08376  M01S01785.ns2783  +++|*         CALLS  REE, SEO.
08377  M01S01786.ns2783  +++|*
08378  M01S01787.ns2783  +++|*         MACROS PUTE.
Line S00110 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08379  M01S00110.1da7    +++|
08380  M01S00111.1da7    +++|
Line S01788 Modification History
M01 (Added by) ns2783
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  +++|
Line S00112 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08384  M01S00112.1da7    +++| LNE      SUBR               ENTRY/EXIT
Line S00113 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08385  M02S00113.ns2783  ---|          NJN    LNE1        IF NOT INITIAL ENTRY OF SEARCH
08386  M02S00114.ns2783  ---|          LDM    LNEB        *PUT* ORDINAL PREVIOUSLY STORED
Line S01791 Modification History
M01 (Added by) ns2783
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
Line S00115 Modification History
M01 (Added by) 1da7
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
Line S00120 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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
Line S01800 Modification History
M01 (Added by) ns2783
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)
Line S00123 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08407  M01S00123.1da7    +++| LNEA     EQU    *-1
Line S00124 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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
Line S01803 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08412  M01S01803.ns2783  +++|          ZJN    LNE3        IF NO MORE *EST* ENTRIES TO CHECK
08413  M01S01804.ns2783  +++|          RJM    REE         READ EST ENTRY
Line S00128 Modification History
M01 (Added by) 1da7
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
Line S00133 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08419  M02S00133.ns2783  ---|          LDD    CM+4        GET *MST* ADDRESS
08420  M02S00134.ns2783  ---|          STD    T6
Line S01805 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08421  M01S01805.ns2783  +++|          LDD    CM+4
Line S00135 Modification History
M01 (Added by) 1da7
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*
Line S00139 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08426  M02S00139.ns2783  ---|          LMC    **          DESIRED *PUT* ORDINAL
08427  M02S00140.ns2783  ---| LNEB     EQU    *-1
Line S01806 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08428  M01S01806.ns2783  +++|          LMI    DI          *PUT* ORDINAL FROM DEVICE STATE TABLE
08429  M01S01807.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
Line S00141 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08430  M01S00141.1da7    +++|          NJN    LNE2        IF NOT FOR THE DESIRED *PUT*
Line S00142 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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*.
Line S01808 Modification History
M01 (Added by) ns2783
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).
Line S00146 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08439  M01S00146.1da7    +++|*
Line S00147 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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.
Line S01812 Modification History
M01 (Added by) ns2783
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.
Line S00150 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08447  M01S00150.1da7    +++|*
Line S00151 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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).
Line S01816 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08452  M01S01816.ns2783  +++|*         EXIT   TO *CSR* WHEN THE REQUEST IS COMPLETE.
Line S00155 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08453  M01S00155.1da7    +++|*
Line S00156 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08454  M02S00156.ns2783  ---|*         USES   EO.
Line S01817 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08455  M01S01817.ns2783  +++|*         USES   NR+2, NR+3, T3, T4, WB - WB+4.
Line S00157 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08456  M01S00157.1da7    +++|*
Line S00158 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08457  M02S00158.ns2783  ---|*         CALLS  LNE.
Line S01818 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08458  M01S01818.ns2783  +++|*         CALLS  ATT, CAN, C2D, IBM, IDM, IDT, SOU, UPD.
Line S00159 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08459  M01S00159.1da7    +++|
08460  M01S00160.1da7    +++|
Line S00161 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08461  M02S00161.ns2783  ---| LNU2     STD    EO          SET EST ORDINAL
Line S01819 Modification History
M01 (Added by) ns2783
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
Line S00162 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08475  M01S00162.1da7    +++|
Line S00163 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
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
Line S01832 Modification History
M01 (Added by) ns2783
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.
Line S04608 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08574  M01S04608.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00442 Modification History
M01 (Added by) 1da8
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.
Line S00172 Modification History
M01 (Added by) 283l840
M02 (Removed 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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08586  M02S00443.ns2783  ---|*                TO *CMP9* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
Line S01880 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08587  M01S01880.ns2783  +++|*                TO *CMP10* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
08588  M00S04618.1da     +++|*
Line S04619 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08589  M01S04619.273l780 ---|*         CALLS  IDU, IIO.
Line S00269 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08590  M02S00269.283l840 ---|*         CALLS  IDU, IIO, LDP.
Line S00173 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08591  M02S00173.1da8    ---|*         CALLS  IDU, IIO, LDP, RCR, SEP.
Line S00444 Modification History
M01 (Added by) 1da8
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
Line S04633 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08606  M01S04633.283l840 ---|          ZJN    PEFX
Line S00174 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08607  M01S00174.283l840 +++|          ZJN    PEFX        IF ERROR IN PROGRESS ON THIS DEVICE
Line S04634 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08608  M01S04634.1da8    ---|          LDML   CSRF,DI
08609  M01S04635.1da8    ---|          SHN    -17
08610  M01S04636.1da8    ---|          NJN    PEF1        IF CONTROLLER DEAD
Line S00445 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08611  M02S00445.ns2783  ---|          LDML   CSTB,CI
Line S01881 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08612  M01S01881.ns2783  +++|          LDML   CTST,CI
Line S00446 Modification History
M01 (Added by) 1da8
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
Line S04639 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
08617  M01S04639.ns2750  ---|          RJM    IDU
08618  M01S04640.ns2750  ---|          NJN    PEFX        IF UNIT INTERLOCK UNAVAILABLE
Line S00195 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2767
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
Line S04643 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08626  M01S04643.273l780 ---|          LDD    DN          DRIVE NUMBER
Line S00270 Modification History
M01 (Added by) 273l780
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
Line S04645 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08631  M01S04645.283l840 ---|          LDD    DI
08632  M01S04646.283l840 ---|          STM    ERFL        ONLY ALLOW ONE UNIT IN ERROR RECOVERY
Line S00175 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08633  M01S00175.283l840 +++|          RJM    SEP         SET ERROR PROCESSING INTERLOCK
Line S00176 Modification History
M01 (Added by) 283l840
M02 (Removed 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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08635  M02S00448.ns2783  ---|          NJP    CMP9        IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
Line S01882 Modification History
M01 (Added by) ns2783
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
Line S00177 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
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
Line S04650 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08645  M01S04650.ns2783  ---| RCS      SPACE  4,10
08646  M01S04651.ns2783  ---|**        RCS - REMOVE CHANNEL FROM SYSTEM USE.
Line S01883 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08647  M01S01883.ns2783  +++| PLP      SPACE  4,20
08648  M01S01884.ns2783  +++|**        PLP - PROCESS LOST PARITY.
08649  M00S04652.1da     +++|*
Line S04653 Modification History
M01 (Removed by) ns2783
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.
Line S01885 Modification History
M01 (Added by) ns2783
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     +++|*
Line S04656 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08658  M01S04656.ns2783  ---|*         USES   CM+1.
Line S01890 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08659  M01S01890.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
08660  M01S01891.ns2783  +++|*                (EO) = EST ORDINAL.
08661  M00S04657.1da     +++|*
Line S04658 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08662  M01S04658.ns2783  ---|*         MACROS DELAY, EXECUTE, MONITOR.
Line S01892 Modification History
M01 (Added by) ns2783
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     +++|
Line S04661 Modification History
M01 (Removed by) ns2783
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
Line S01897 Modification History
M01 (Added by) ns2783
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     +++|
Line S01907 Modification History
M01 (Added by) ns2783
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
Line S00273 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08723  M01S00273.273l780 +++|
Line S04675 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08724  M01S04675.ns2783  ---| RCSA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000
Line S01936 Modification History
M01 (Added by) ns2783
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
Line S00274 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed 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 (Removed by) 1da7
M03 (Removed by) ns2783
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.
Line S00178 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08812  M02S00178.ns2783  ---|*         E,E DISPLAY SHOWS WHICH DRIVE IS OFF-LINE.
Line S02000 Modification History
M01 (Added by) ns2783
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.
Line S00281 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08815  M01S00281.273l780 +++|*
Line S00282 Modification History
M01 (Added by) 273l780
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08816  M02S00282.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00449 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08817  M01S00449.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
Line S00283 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08818  M01S00283.273l780 +++|*
Line S00284 Modification History
M01 (Added by) 273l780
M02 (Removed by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08819  M02S00284.1da7    ---|*         USES   T7, CM+1 - CM+4.
Line S00179 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08820  M02S00179.ns2783  ---|*         USES   CM+2, T7.
Line S00285 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08821  M02S00285.ns2783  ---|*
Line S00286 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08822  M03S00286.ns2783  ---|*         CALLS  UBP.
Line S00182 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08823  M02S00182.ns2783  ---|*         CALLS  CRP, UBP.
Line S02002 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08824  M01S02002.ns2783  +++|*         CALLS  PLP.
Line S00287 Modification History
M01 (Added by) 273l780
M02 (Removed by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
08825  M02S00287.1da7    ---|*
08826  M02S00288.1da7    ---|*         MACROS MONITOR.
Line S00289 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08827  M01S00289.273l780 +++|
08828  M01S00290.273l780 +++|
08829  M01S00291.273l780 +++| RDO      SUBR               ENTRY/EXIT
Line S00292 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08830  M02S00292.283l840 ---|          LDM    PHYD,DI
08831  M02S00293.283l840 ---|          SHN    2
08832  M02S00294.283l840 ---|          LMN    2
Line S00183 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
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
Line S00295 Modification History
M01 (Added by) 273l780
M02 (Removed 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 (Removed by) 283l840
M03 (Removed 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 (Removed 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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08840  M02S00297.ns2783  ---|          STD    T7
Line S00298 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
M03 (Removed 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 (Removed 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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08843  M02S00299.ns2783  ---|          RJM    UBP         UPDATE *BDLL* PARAMETER
Line S02003 Modification History
M01 (Added by) ns2783
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
Line S00300 Modification History
M01 (Added by) 273l780
M02 (Removed by) 1da7
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
Line S00307 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
08856  M01S00307.273l780 +++|          UJN    RDOX        RETURN
Line S02008 Modification History
M01 (Added by) ns2783
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.
Line S04770 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08953  M01S04770.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00450 Modification History
M01 (Added by) 1da8
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
Line S04782 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08966  M01S04782.1da8    ---|          ZJN    RND10       IF MEDIA ERROR
Line S00451 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08967  M01S00451.1da8    +++|          ZJN    RND1        IF MEDIA ERROR
08968  M00S04783.1da     +++|          SBN    EIVR-EDPE
Line S04784 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08969  M01S04784.1da8    ---|          ZJN    RND10       IF ID24
Line S00452 Modification History
M01 (Added by) 1da8
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
Line S04787 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08973  M01S04787.1da8    ---|*RND10    LDN    0
08974  M01S04788.1da8    ---| RND10    STM    ESAD,DI     SO ERROR RESPONSE WILL BE LOGGED
Line S00453 Modification History
M01 (Added by) 1da8
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
Line S04801 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08988  M01S04801.283l840 ---|          LCN    EDTF
Line S00189 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
08989  M01S00189.283l840 +++|          LCN    EDTF        DIAGNOSTIC FAULT
08990  M00S04802.1da     +++|          RJM    ERR         PROCESS ERROR
Line S04803 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08991  M01S04803.ns2783  ---| ROD      SPACE  4,10
Line S02026 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08992  M01S02026.ns2783  +++| ROD      SPACE  4,20
08993  M00S04804.1da     +++|**        ROD - RESTORE OFF-LINE DRIVE.
08994  M00S04805.1da     +++|*
Line S04806 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08995  M01S04806.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00454 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
08996  M01S00454.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
Line S00149 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
08997  M01S00149.ns2768  +++|*                (DT) = DRIVE TYPE.
08998  M00S04807.1da     +++|*
Line S04808 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
08999  M01S04808.ns2783  ---|*         EXIT   TO *CMP* IF RESTORE CYLINDER COMMAND COMPLETE.
Line S02027 Modification History
M01 (Added by) ns2783
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.
Line S04809 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09002  M01S04809.273l780 ---|*                TO *CMP1* IF ENTIRE DRIVE RESTORED.
09003  M00S04810.1da     +++|*                TO *ERR* IF ERROR.
09004  M00S04811.1da     +++|*
Line S04812 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09005  M01S04812.273l780 ---|*         CALLS  ATT, CSC, SOU, WCB.
Line S00308 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09006  M02S00308.ns2783  ---|*         USES   CM+2, T7.
Line S02029 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09007  M01S02029.ns2783  +++|*         USES   T1.
Line S00309 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09008  M01S00309.273l780 +++|*
Line S00310 Modification History
M01 (Added by) 273l780
M02 (Removed 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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09010  M02S00455.ns2783  ---|*         CALLS  ATT, CEP, CRP, CSC, IDM, IEM, LNU, SOU, UBP, WCB.
Line S02030 Modification History
M01 (Added by) ns2783
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     +++|
Line S00509 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09016  M02S00509.ns2783  ---| ROD5     LDDL   MS
Line S02033 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09017  M01S02033.ns2783  +++| ROD10    LDDL   MS
Line S00510 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09018  M01S00510.284l847 +++|          LMC    0#42
Line S00511 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09019  M02S00511.ns2783  ---|          NJN    ROD6        IF NOT CONDITIONAL SUCCESS
09020  M02S00512.ns2783  ---|          LDDL   PA
Line S02034 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09021  M01S02034.ns2783  +++|          NJN    ROD11       IF NOT CONDITIONAL SUCCESS
09022  M01S02035.ns2783  +++|          LDDL   PA          SET INTERRUPT REENTRY ADDRESS
Line S00513 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09023  M01S00513.284l847 +++|          STML   ATTN,DI     EXPECT A COMMAND COMPLETE RESPONSE
Line S00514 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09024  M02S00514.ns2783  ---| ROD6     LCN    EROD        RESTORE OFF-LINE DRIVE ERROR
09025  M02S00515.ns2783  ---|          UJN    ROD8        PROCESS ERROR
Line S02036 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09026  M01S02036.ns2783  +++| ROD11    LCN    EROD        RESTORE OFF-LINE DRIVE ERROR
09027  M01S02037.ns2783  +++|          UJN    ROD13       PROCESS ERROR
Line S00516 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09028  M01S00516.284l847 +++|
Line S00517 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09029  M02S00517.ns2783  ---| ROD7     LDN    ECMD        CONTROLLER DEAD
09030  M02S00518.ns2783  ---| ROD8     RJM    ERR         PROCESS ERROR
Line S02038 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09031  M01S02038.ns2783  +++| ROD12    LDN    ECMD        CONTROLLER DEAD
09032  M01S02039.ns2783  +++| ROD13    RJM    ERR         PROCESS ERROR
Line S00519 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
09033  M01S00519.284l847 +++|
Line S04815 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09034  M01S04815.ns2783  ---| ROD      BSS    0           ENTRY
Line S04816 Modification History
M01 (Removed by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09035  M02S04816.ns2783  ---|          LDML   CSRF,DI
09036  M02S04817.ns2783  ---|          SHN    -17
Line S04818 Modification History
M01 (Removed by) 284l847
M02 (Removed by) 1da8
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09037  M03S04818.ns2783  ---|          NJP    ROD7        IF CONTROLLER NOT FUNCTIONAL
Line S00520 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1da8
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09038  M03S00520.ns2783  ---|          NJN    ROD7        IF CONTROLLER NOT FUNCTIONAL
Line S00456 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09039  M02S00456.ns2783  ---|          LDML   CSTB,CI
Line S02040 Modification History
M01 (Added by) ns2783
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
Line S00457 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
09047  M01S00457.1da8    +++|          SHN    21-15
Line S00458 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09048  M02S00458.ns2783  ---|          MJN    ROD7        IF CONTROLLER DEAD
Line S04819 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09049  M01S04819.ns2783  ---|          LDML   RMUX,DI
Line S04820 Modification History
M01 (Removed by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09050  M02S04820.ns2783  ---|          LPC    0#8000
Line S00459 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09051  M02S00459.ns2783  ---|          LPC    100000
Line S04821 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09052  M01S04821.ns2783  ---|          STML   RMUX,DI     INDICATE RESTORE IS CURRENT COMMAND
Line S02047 Modification History
M01 (Added by) ns2783
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
Line S04829 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09064  M01S04829.ns2783  ---|          LDM    RDRV,DI
Line S02051 Modification History
M01 (Added by) ns2783
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
Line S04834 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09071  M01S04834.ns2783  ---|          LDML   RCYL,DI
09072  M01S04835.ns2783  ---|          STML   CPBF+FCP+3  CYLINDER TO RESTORE
Line S02053 Modification History
M01 (Added by) ns2783
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
Line S04837 Modification History
M01 (Removed by) ns2775
Seq #  *Modification Id* Act 
----------------------------+
09076  M01S04837.ns2775  ---|          LMML   MC,DT
Line S00059 Modification History
M01 (Added by) ns2775
M02 (Removed by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
09077  M02S00059.1da7    ---|          RJM    CLC         CHECK FOR LAST CYLINDER
Line S00180 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09078  M02S00180.ns2783  ---|          LMML   CYUN,DT     CHECK FOR LAST CYLINDER
Line S02055 Modification History
M01 (Added by) ns2783
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
Line S04850 Modification History
M01 (Removed by) ns2783
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
Line S02056 Modification History
M01 (Added by) ns2783
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
Line S04856 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09101  M01S04856.ns2783  ---|          STM    RMUX,DI     I/O REQUESTS BEFORE NEXT RESTORE
Line S04857 Modification History
M01 (Removed by) ns2781
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09102  M02S04857.ns2783  ---| ROD3     AOML   RCYL,DI     NEXT CYLINDER TO RESTORE
Line S00005 Modification History
M01 (Added by) ns2775a
M02 (Removed by) ns2781
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09103  M03S00005.ns2783  ---|          SBN    1
Line S04858 Modification History
M01 (Removed by) ns2775
M02 (Removed by) ns2781
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09104  M03S04858.ns2783  ---|          SBML   MC,DT
Line S04859 Modification History
M01 (Removed by) 284l847
M02 (Removed by) ns2775
M03 (Removed by) ns2781
M04 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09105  M04S04859.ns2783  ---|          MJP    ROD4        IF MORE CYLINDERS TO RESTORE
09106  M04S04860.ns2783  ---|          ZJP    ROD4        IF MORE CYLINDERS TO RESTORE
Line S04861 Modification History
M01 (Removed by) ns2767
M02 (Removed by) 284l847
M03 (Removed by) ns2775
M04 (Removed by) ns2781
M05 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09107  M05S04861.ns2783  ---|          LDML   DVTP,DI
09108  M05S04862.ns2783  ---|          STM    DVTP,DI     CLEAR RESTORE IN PROGRESS
Line S00064 Modification History
M01 (Added by) ns2767
M02 (Removed by) 284l847
M03 (Removed by) ns2775
M04 (Removed by) ns2781
M05 (Removed 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 (Removed by) ns2775
M03 (Removed by) ns2781
M04 (Removed 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 (Removed by) 1da7
M03 (Removed by) ns2781
M04 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
09111  M04S00060.ns2783  ---|          RJM    CLC         CHECK FOR LAST CYLINDER
Proceed to Part 8
cdc/nos2.source/opl.opl871/deck/1da.007.txt ยท Last modified: by 127.0.0.1