Deck 1XD Part 003

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03984  M00S02715.1xd     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
03985  M00S02716.1xd     +++|*
03986  M00S02717.1xd     +++|*         EXIT   SECTOR LINKAGE SET IN *CBT* ENTRY.
03987  M00S02718.1xd     +++|*
Line S02719 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
03988  M01S02719.1xd5    ---|*         USES   T6.
Line S00507 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
03989  M01S00507.1xd5    +++|*         USES   T1, T6.
03990  M00S02720.1xd     +++|*
03991  M00S02721.1xd     +++|*         MACROS CBTE.
03992  M00S02722.1xd     +++|
03993  M00S02723.1xd     +++|
03994  M00S02724.1xd     +++| RLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
Line S02725 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
03995  M01S02725.1xd5    ---|          RAD    T1
Line S00508 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
03996  M01S00508.1xd5    +++|          RADL   T1
03997  M00S02726.1xd     +++|          LDIL   T1          EXTRACT LINKAGE FROM BUFFER
03998  M00S02727.1xd     +++| RLB2     SHN    -14
03999  M00S02728.1xd     +++|          SHN    10          POSITION FOR *CBT* ENTRY
04000  M00S02729.1xd     +++|          STI    T6
04001  M00S02730.1xd     +++|          LDML   4,T1        EXTRACT LINKAGE FROM BUFFER
04002  M00S02731.1xd     +++|          SHN    -14
04003  M00S02732.1xd     +++|          SHN    4           POSITION FOR *CBT* ENTRY
04004  M00S02733.1xd     +++|          RAI    T6
04005  M00S02734.1xd     +++|          LDML   10,T1       EXTRACT LINKAGE FROM BUFFER
04006  M00S02735.1xd     +++|          SHN    -14
04007  M00S02736.1xd     +++|*         SHN    0           POSITION FOR *CBT* ENTRY
04008  M00S02737.1xd     +++|          RAI    T6
04009  M00S02738.1xd     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
04010  M00S02739.1xd     +++|          LMN    CM+5
04011  M00S02740.1xd     +++|          NJN    RLB1        IF MORE LINKAGE
04012  M00S02741.1xd     +++|          LDD    PB
04013  M00S02742.1xd     +++|          SHN    CBTLS
04014  M00S02743.1xd     +++|          CBTE   *
04015  M00S02744.1xd     +++|          ADC    0           FWA OF *CBT*
04016  M00S02745.1xd     +++|          ADD    T2
04017  M00S02746.1xd     +++|          CWD    CM          UPDATE CONTROL BUFFER ENTRY
04018  M00S02747.1xd     +++|
04019  M00S02748.1xd     +++| RLB      SUBR               ENTRY/EXIT
04020  M00S02749.1xd     +++|*         LDD    T6
04021  M00S02750.1xd     +++|          UJN    RLB2        MOVE SECTOR LINKAGE
04022  M00S02751.1xd     +++| RMR      SPACE  4,10
04023  M00S02752.1xd     +++|**        RMR - READ CHANNEL STATUS REGISTER.
04024  M00S02753.1xd     +++|*
04025  M00S02754.1xd     +++|*         EXIT   (A) = 0 IF NO CHANNEL ERROR.
04026  M00S02755.1xd     +++|*                (RBUF) = REGISTER CONTENTS.
04027  M00S02756.1xd     +++|*
04028  M00S02757.1xd     +++|*         CALLS  WMC.
04029  M00S02758.1xd     +++|
04030  M00S02759.1xd     +++|
04031  M00S02760.1xd     +++| RMR      SUBR               ENTRY/EXIT
04032  M00S02761.1xd     +++|          FNC.   IOUC,MR
04033  M00S02762.1xd     +++|          ACN.   MR          ACTIVATE MAINTENANCE CHANNEL
04034  M00S02763.1xd     +++|          LDN    0
04035  M00S02764.1xd     +++|          OAN.   MR          OUTPUT NULL PARAMETER
04036  M00S02765.1xd     +++|          CON    LDCI
04037  M00S02766.1xd     +++|          IAN    CH          (FORCE CHANNEL TABLE ENTRY)
04038  M00S02767.1xd     +++|          ORG    *-1
04039  M00S02768.1xd     +++|          CON    RCSR+CH     TRANSMIT REGISTER NUMBER
04040  M00S02769.1xd     +++|          OAN.   MR
04041  M00S02770.1xd     +++|          RJM    WMC         WAIT CHANNEL EMPTY
04042  M00S02771.1xd     +++|          DCN.   MR+40
04043  M00S02772.1xd     +++|          NJN    RMRX        IF CHANNEL HUNG FULL
04044  M00S02773.1xd     +++|          ACN.   MR
04045  M00S02774.1xd     +++|          LDN    RBUFL       READ CHANNEL STATUS REGISTER
04046  M00S02775.1xd     +++|          IAM.   RBUF,MR
04047  M00S02776.1xd     +++|          UJN    RMRX        RETURN
04048  M00S02777.1xd     +++| SCD      SPACE  4,15
04049  M00S02778.1xd     +++|**        SCD - STORE *CPD* DATA.
04050  M00S02779.1xd     +++|*
04051  M00S02780.1xd     +++|*         ENTRY  (A) = 0 TO INDICATE CHANNEL INACTIVE.
04052  M00S02781.1xd     +++|*                    = 1 TO INDICATE CHANNEL ACTIVE.
04053  M00S02782.1xd     +++|*                (UC) = UNIT ACTIVITY COUNT.
04054  M00S02783.1xd     +++|*
04055  M00S02784.1xd     +++|*         EXIT   (T7) = 0.
04056  M00S02785.1xd     +++|*
04057  M00S02786.1xd     +++|*         USES   T5, T6, CM - CM+2.
04058  M00S02787.1xd     +++|*
04059  M00S02788.1xd     +++|*         MACROS CCTE.
04060  M00S02789.1xd     +++|
04061  M00S02790.1xd     +++|
04062  M00S02791.1xd     +++| SCD      SUBR               ENTRY/EXIT
04063  M00S02792.1xd     +++|          STD    T5
04064  M00S02793.1xd     +++|          LDN    ZERL        CLEAR UNUSED BYTES
04065  M00S02794.1xd     +++|          CRD    T6
04066  M00S02795.1xd     +++|          LDD    UC          INSERT UNIT COUNT
04067  M00S02796.1xd     +++|          STD    T6
04068  M00S02797.1xd     +++|          CCTE   *
04069  M00S02798.1xd     +++|          LDC    CREQ        STORE *CPD* DATA
04070  M00S02799.1xd     +++|          CWD    T5
04071  M00S02800.1xd     +++|          UJN    SCDX        RETURN
Line S02801 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04072  M01S02801.ns2714  ---| SEC      SPACE  4,10
Line S00200 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04073  M01S00200.ns2714  +++| SEC      SPACE  4,15
04074  M00S02802.1xd     +++|**        SEC - SET ERROR CODE.
04075  M00S02803.1xd     +++|*
04076  M00S02804.1xd     +++|*         ENTRY  (EO) = EST ORDINAL.
04077  M00S02805.1xd     +++|*
Line S02806 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04078  M01S02806.ns2714  ---|*         USES   T5, WB+3 - WB+4.
Line S00201 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04079  M01S00201.ns2714  +++|*         EXIT   TO *CSR* IF PROCESSING SPECIAL REQUEST.
04080  M00S02807.1xd     +++|*
Line S02808 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04081  M01S02808.ns2714  ---|*         CALLS  CSR, IMR, RCS, SES.
Line S00202 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04082  M02S00202.1xd5    ---|*         USES   T5, CW - CW+4, WB+3 - WB+4.
Line S00509 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04083  M01S00509.1xd5    +++|*         USES   T5, UC, CW - CW+4, WB+3 - WB+4.
Line S00203 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04084  M01S00203.ns2714  +++|*
04085  M01S00204.ns2714  +++|*         CALLS  DCM, IMR, IOM, LDP, RCS, SES.
04086  M01S00205.ns2714  +++|*
04087  M01S00206.ns2714  +++|*         MACROS CBTE.
04088  M00S02809.1xd     +++|
04089  M00S02810.1xd     +++|
Line S02811 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04090  M01S02811.ns2714  ---| SEC1     LDN    1           *CBT* COUNT TO BE DELINKED
Line S00207 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04091  M01S00207.ns2714  +++| SEC5     LDN    1           BUFFER COUNT TO BE DELINKED
04092  M00S02812.1xd     +++|          STD    WB+3
Line S00510 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04093  M01S00510.1xd5    +++|
04094  M01S00511.1xd5    +++|*         THE *SETS* MONITOR REQUEST IS USED TO MOVE THE I/O REQUEST
04095  M01S00512.1xd5    +++|*         TO AN ALTERNATE CHANNEL.  THE I/O BUFFER IS ONLY DELINKED
04096  M01S00513.1xd5    +++|*         IF THE REQUEST IS CHANNEL SPECIFIC.
04097  M01S00514.1xd5    +++|
Line S02813 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04098  M01S02813.ns2714  ---|          LDML   EDBF+FALT
04099  M01S02814.ns2714  ---|          SHN    -2          CREATE INDEX FROM FAULT CODE
04100  M01S02815.ns2714  ---|          STD    T5
04101  M01S02816.ns2714  ---|          LDM    TMSE,T5     SET MASS STORAGE ERROR CODE
04102  M01S02817.ns2714  ---|          STD    WB+4
04103  M00S02818.1xd     +++|          LDN    SETS        INSERT CODE IN *CBT*
04104  M00S02819.1xd     +++|          RJM    IMR
04105  M00S02820.1xd     +++|*         LDN    0           SET INTERLOCK RELEASED (FOR *CMP*)
Line S02821 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04106  M01S02821.272l774 ---|          STM    RQLN
Line S00135 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04107  M01S00135.272l774 +++|          STM    RQLN,DI
04108  M00S02822.1xd     +++|          SOD    UC          DECREMENT UNIT ACTIVITY COUNT
04109  M00S02823.1xd     +++|
04110  M00S02824.1xd     +++| SEC      SUBR               ENTRY/EXIT
Line S02825 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04111  M01S02825.ns2714  ---|          LDN    STDE
Line S00208 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04112  M01S00208.ns2714  +++|          LDN    0
04113  M01S00209.ns2714  +++|          RJM    IOM
04114  M01S00210.ns2714  +++|          RJM    DCM         ENSURE CONTROLLER DESELECTED
04115  M01S00211.ns2714  +++|          RJM    LDP
Line S00212 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04116  M02S00212.1xd5    ---|          LDML   IPPS        CHECK DIAGNOSTIC FLAG
04117  M02S00213.1xd5    ---|          SHN    -14
Line S00515 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04118  M01S00515.1xd5    +++|          LDML   IPPS,DI     CHECK DIAGNOSTIC FLAG
04119  M01S00516.1xd5    +++|          SHN    -17
Line S00214 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04120  M01S00214.ns2714  +++|          ZJN    SEC1        IF NOT ERROR FROM DIAGNOSTIC
04121  M01S00215.ns2714  +++|          LDD    CB
04122  M01S00216.ns2714  +++|          SHN    CBTLS       CONVERT CBT ORDINAL
04123  M01S00217.ns2714  +++|          CBTE   *
04124  M01S00218.ns2714  +++|          ADC    HSLK        FETCH ERROR STATUS
04125  M01S00219.ns2714  +++|          CRD    CW
04126  M01S00220.ns2714  +++|          LDD    CW          CHECK PREVIOUS ERROR
04127  M01S00221.ns2714  +++|          LPN    77
04128  M01S00222.ns2714  +++|          NJN    SEC2        IF PREVIOUS ERROR
04129  M01S00223.ns2714  +++| SEC1     LDML   EDBF+FALT
04130  M01S00224.ns2714  +++|          SHN    -2          CREATE INDEX FROM FAULT CODE
04131  M01S00225.ns2714  +++|          STD    T5
04132  M01S00226.ns2714  +++|          LDM    TMSE,T5
04133  M01S00227.ns2714  +++| SEC2     STD    WB+4        SET MASS STORAGE ERROR CODE
Line S00517 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04134  M01S00517.1xd5    +++|          LDML   IPPS,DI     CLEAR *RND*, *SDA* AND *BOR* FLAGS
04135  M01S00518.1xd5    +++|          LPC    -1S15-1S14-1S13
04136  M01S00519.1xd5    +++|          STML   IPPS,DI
04137  M01S00520.1xd5    +++|          LDD    WB+4        CHECK ERROR CODE
Line S00228 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04138  M01S00228.ns2714  +++|          LMN    NRDE
04139  M01S00229.ns2714  +++|          ZJN    SEC3        IF NOT-READY CONDITION
04140  M01S00230.ns2714  +++|          LDN    STDE&STNR
04141  M01S00231.ns2714  +++| SEC3     LMN    STNR
04142  M00S02826.1xd     +++|          RJM    SES         SET ERROR STATUS IN MST
Line S00232 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04143  M01S00232.ns2714  +++|          LDD    CB
04144  M01S00233.ns2714  +++|          ZJN    SEC4        IF SPECIAL REQUEST OR NO BUFFER
Line S02827 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04145  M01S02827.272l774 ---|          LDM    SREQ
Line S00136 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04146  M01S00136.272l774 +++|          LDM    SREQ,DI
Line S02828 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04147  M01S02828.ns2714  ---|          ZJN    SEC1        IF I/O PROCESSING
04148  M01S02829.ns2714  ---|          LDD    EO          DOWN CHANNEL ON THIS DEVICE
Line S00234 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04149  M01S00234.ns2714  +++|          ZJP    SEC5        IF I/O PROCESSING
04150  M01S00235.ns2714  +++| SEC4     LDD    EO          DOWN CHANNEL ON THIS DEVICE
04151  M00S02830.1xd     +++|          RJM    RCS
Line S00108 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04152  M01S00108.273l780 +++|          AOM    MISC        MARK ERROR UNRECOVERED
04153  M00S02831.1xd     +++|          LJM    CSR         CLEAR SPECIAL REQUEST
04154  M00S02832.1xd     +++| SFR      SPACE  4,15
04155  M00S02833.1xd     +++|**        SFR - SEARCH FOR CONSECUTIVE REQUEST.
04156  M00S02834.1xd     +++|*
04157  M00S02835.1xd     +++|*         ENTRY  (A) = CURRENT *CBT* ORDINAL.
04158  M00S02836.1xd     +++|*
04159  M00S02837.1xd     +++|*         EXIT   (A) = (NB) = 0 IF NO CONSECUTIVE REQUEST FOUND.
04160  M00S02838.1xd     +++|*                           = *CBT* ORDINAL OF NEXT REQUEST.
04161  M00S02839.1xd     +++|*                (NR - NR+4) = PHYSICAL ADDRESS OF NEXT REQUEST.
04162  M00S02840.1xd     +++|*
Line S02841 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04163  M01S02841.272l774 ---|*         USES   CM - CM+4, T1 - T6.
Line S00137 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04164  M01S00137.272l774 +++|*         USES   NB, CM - CM+4, NR - NR+4, T1 - T6.
04165  M00S02842.1xd     +++|*
04166  M00S02843.1xd     +++|*         MACROS CBTE.
04167  M00S02844.1xd     +++|
04168  M00S02845.1xd     +++|
04169  M00S02846.1xd     +++| SFR      SUBR               ENTRY/EXIT
04170  M00S02847.1xd     +++|          SHN    CBTLS
04171  M00S02848.1xd     +++|          CBTE   *
04172  M00S02849.1xd     +++|          ADC    PAD1        FETCH SEEK PARAMETERS FROM *CBT*
04173  M00S02850.1xd     +++|          CRD    CM
04174  M00S02851.1xd     +++|          ADN    IOLK-PAD1   (T1) = I/O LINK-UP FLAGS
04175  M00S02852.1xd     +++|          CRD    T1
04176  M00S02853.1xd     +++|          LDD    T1          CHECK STREAMING ENABLED
04177  M00S02854.1xd     +++|          LPN    40
04178  M00S02855.1xd     +++|          NJN    SFR1        IF DATA STREAMING DISABLED
Line S02856 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04179  M01S02856.272l774 ---|          LDM    CBCT
04180  M01S02857.272l774 ---|          LMK    MXBS
Line S00138 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04181  M01S00138.272l774 +++|          LDM    CYLN,DI
04182  M01S00139.272l774 +++|          ADN    2
04183  M01S00140.272l774 +++|          SBK    CYUN
04184  M01S00141.272l774 +++|          PJN    SFR0        IF WITHIN LAST TWO CYLINDERS OF DEVICE
04185  M01S00142.272l774 +++|          LDK    MXBS        MAXIMUM BUFFER COUNT TO STREAM
04186  M01S00143.272l774 +++|          UJN    SFR0.1      CHECK BUFFER COUNT
04187  M01S00144.272l774 +++|
04188  M01S00145.272l774 +++| SFR0     LDK    MNBS        MINIMUM BUFFER COUNT TO STREAM
04189  M01S00146.272l774 +++| SFR0.1   SBM    CBCT,DI
04190  M00S02858.1xd     +++|          ZJN    SFR2        IF TIME TO CURTAIL STREAMING
04191  M00S02859.1xd     +++|          LDD    T1+2
04192  M00S02860.1xd     +++|          STD    NB
04193  M00S02861.1xd     +++|          ZJN    SFRX        IF NO REQUEST AVAILABLE
04194  M00S02862.1xd     +++|          SHN    CBTLS
04195  M00S02863.1xd     +++|          CBTE   *
04196  M00S02864.1xd     +++|          ADC    PAD1        PHYSICAL ADDRESS OF NEXT REQUEST
04197  M00S02865.1xd     +++|          CRD    NR
04198  M00S02866.1xd     +++|          ADN    IOLK-PAD1   I/O LINK-UP WORD OF NEXT REQUEST
04199  M00S02867.1xd     +++|          CRD    T2
04200  M00S02868.1xd     +++|          LDD    T2          COMPARE LINK-UP FLAGS
04201  M00S02869.1xd     +++|          LMD    T1
04202  M00S02870.1xd     +++|          LPC    DRFM+ILFM
04203  M00S02871.1xd     +++|          ZJN    SFR4        IF SAME DIRECTION AND INTERLOCKED
04204  M00S02872.1xd     +++| SFR1     LDN    0
04205  M00S02873.1xd     +++| SFR2     STD    NB
04206  M00S02874.1xd     +++| SFR3     UJP    SFRX        RETURN
04207  M00S02875.1xd     +++|
04208  M00S02876.1xd     +++| SFR4     LDD    NR+1        CHECK SEEK PARAMETERS
04209  M00S02877.1xd     +++|          SBD    CM+1
04210  M00S02878.1xd     +++|          ZJN    SFR5        IF SAME CYLINDER
04211  M00S02879.1xd     +++|          SBN    1
04212  M00S02880.1xd     +++|          NJN    SFR1        IF NOT NEXT CYLINDER
04213  M00S02881.1xd     +++|          LDD    CM+2
04214  M00S02882.1xd     +++|          SBK    PTCY*100
04215  M00S02883.1xd     +++|          UJN    SFR6        CHECK NEXT TRACK / SECTOR
04216  M00S02884.1xd     +++|
04217  M00S02885.1xd     +++| SFR5     LDD    CM+2        CHECK NEXT SECTOR
04218  M00S02886.1xd     +++|          ADN    PSBFDN
04219  M00S02887.1xd     +++|          LMD    NR+2
04220  M00S02888.1xd     +++|          ZJN    SFR7        IF NEXT SECTOR ON SAME TRACK
04221  M00S02889.1xd     +++|          LDD    CM+2
04222  M00S02890.1xd     +++| SFR6     ADD    HN          SET NEXT TRACK
04223  M00S02891.1xd     +++|          SBK    PSPT-PSBF
04224  M00S02892.1xd     +++|          LMD    NR+2
04225  M00S02893.1xd     +++|          NJN    SFR1        IF NOT NEXT SECTOR ON CONSECUTIVE TRACKS
04226  M00S02894.1xd     +++| SFR7     LDD    NB
04227  M00S02895.1xd     +++|          UJN    SFR3        RETURN
04228  M00S02896.1xd     +++| SLB      SPACE  4,15
04229  M00S02897.1xd     +++|**        SLB - SET LINKAGE BITS.
04230  M00S02898.1xd     +++|*
04231  M00S02899.1xd     +++|*         ENTRY  (A) = *CBT* ORDINAL.
04232  M00S02900.1xd     +++|*                (RW) = READ / WRITE STATUS.
04233  M00S02901.1xd     +++|*
04234  M00S02902.1xd     +++|*         EXIT   LINKAGE BITS SET IN *CBT* ENTRY / UEM BUFFER.
04235  M00S02903.1xd     +++|*
Line S02904 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04236  M01S02904.1xd5    ---|*         USES   PB, CM - CM+4, T0 - T6, UA - UA+1.
Line S00521 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04237  M01S00521.1xd5    +++|*         USES   PB, CM - CM+4, T1 - T6, UA - UA+1.
04238  M00S02905.1xd     +++|*
04239  M00S02906.1xd     +++|*         CALLS  RLB, SUA, WLB.
04240  M00S02907.1xd     +++|*
04241  M00S02908.1xd     +++|*         MACROS CBTE.
04242  M00S02909.1xd     +++|
04243  M00S02910.1xd     +++|
04244  M00S02911.1xd     +++| SLB      SUBR               ENTRY/EXIT
04245  M00S02912.1xd     +++|          STD    PB
04246  M00S02913.1xd     +++|          RJM    SUA         SET UEM ADDRESS
04247  M00S02914.1xd     +++|          LDN    PAD1
04248  M00S02915.1xd     +++|          STD    T2
04249  M00S02916.1xd     +++|          SRD    T3
04250  M00S02917.1xd     +++|          LDN    5           UEM WORD COUNT
04251  M00S02918.1xd     +++|          STD    T5
04252  M00S02919.1xd     +++|          LDM    SLBB,RW     SET PROCESSOR ADDRESS
04253  M00S02920.1xd     +++|          STM    SLBA
04254  M00S02921.1xd     +++| SLB1     LRD    UA          LOAD *R* REGISTER
04255  M00S02922.1xd     +++|          LDD    PB
04256  M00S02923.1xd     +++|          SHN    CBTLS       READ CONTROL BUFFER WORD
04257  M00S02924.1xd     +++|          CBTE   *
04258  M00S02925.1xd     +++|          ADC    0           FWA OF *CBT*
04259  M00S02926.1xd     +++|          ADD    T2
04260  M00S02927.1xd     +++|          CRD    CM
04261  M00S02928.1xd     +++|          LDC    SBUF-4      SET BUFFER ADDRESS
Line S02929 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04262  M01S02929.1xd5    ---|          STD    T1
Line S00522 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04263  M01S00522.1xd5    +++|          STDL   T1
04264  M00S02930.1xd     +++|          LDC    1S17        READ START OF BUFFER SEGMENT
04265  M00S02931.1xd     +++|          CRML   SBUF,T5
04266  M00S02932.1xd     +++|          LDN    CM+3        SET *CBT* ENTRY ADDRESS
04267  M00S02933.1xd     +++|          STD    T6
04268  M00S02934.1xd     +++|          RJM    0           MOVE LINKAGE BITS
04269  M00S02935.1xd     +++| SLBA     EQU    *-1
04270  M00S02936.1xd     +++|          LDN    10          ADVANCE *R* REGISTER IMAGE
04271  M00S02937.1xd     +++|          RAD    UA+1
04272  M00S02938.1xd     +++|          SHN    -14
04273  M00S02939.1xd     +++|          RAD    UA
04274  M00S02940.1xd     +++|          AOD    T2          ADVANCE CONTROL BUFFER WORD
04275  M00S02941.1xd     +++|          LMN    PAD4+1
04276  M00S02942.1xd     +++|          NJN    SLB1        IF NOT COMPLETE
04277  M00S02943.1xd     +++|          LRD    T3
04278  M00S02944.1xd     +++|          UJP    SLBX        RETURN
04279  M00S02945.1xd     +++|
04280  M00S02946.1xd     +++|
Line S02947 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04281  M01S02947.1xd5    ---| SLBB     CON    RLB
04282  M01S02948.1xd5    ---|          CON    WLB
Line S00523 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04283  M01S00523.1xd5    +++| SLBB     CON    RLB         READ LINKAGE BITS
04284  M01S00524.1xd5    +++|          CON    WLB         WRITE LINKAGE BITS
04285  M00S02949.1xd     +++| SMC      SPACE  4,10
04286  M00S02950.1xd     +++|**        SMC - SEARCH FOR MAJOR CATEGORY SUBSTATUS.
04287  M00S02951.1xd     +++|*
04288  M00S02952.1xd     +++|*         ENTRY  (A) = MAJOR STATUS CATEGORY.
04289  M00S02953.1xd     +++|*
04290  M00S02954.1xd     +++|*         EXIT   (A) = FIRST TWO OCTETS OF SUBSTATUS.
04291  M00S02955.1xd     +++|*                    .LT. 0 IF SUBSTATUS NOT PRESENT.
04292  M00S02956.1xd     +++|*                (T4) = SUBSTATUS PARAMETER ID CODE.
04293  M00S02957.1xd     +++|*
04294  M00S02958.1xd     +++|*         CALLS  SRP.
04295  M00S02959.1xd     +++|
04296  M00S02960.1xd     +++|
04297  M00S02961.1xd     +++| SMC1     LDML   RPBF+6,T3   RETURN FIRST BYTE OF SUBSTATUS
04298  M00S02962.1xd     +++|
04299  M00S02963.1xd     +++| SMC      SUBR               ENTRY/EXIT
04300  M00S02964.1xd     +++|          LMN    0#10
04301  M00S02965.1xd     +++|          STD    T4          SEARCH FOR CONTROLLER SUBSTATUS
04302  M00S02966.1xd     +++|          RJM    SRP
04303  M00S02967.1xd     +++|          ZJN    SMC1        IF SUBSTATUS FOUND
04304  M00S02968.1xd     +++|          LDN    0#20-0#10
04305  M00S02969.1xd     +++|          RAD    T4          SEARCH FOR DRIVE SUBSTATUS
04306  M00S02970.1xd     +++|          RJM    SRP
04307  M00S02971.1xd     +++|          ZJN    SMC1        IF SUBSTATUS FOUND
04308  M00S02972.1xd     +++|*         LCN    0
04309  M00S02973.1xd     +++|          UJN    SMCX        RETURN
04310  M00S02974.1xd     +++| SRF      SPACE  4,10
04311  M00S02975.1xd     +++|**        SRF - SET DRIVER RELOAD FLAG.
04312  M00S02976.1xd     +++|*
04313  M00S02977.1xd     +++|*         EXIT   (A) = 0.
04314  M00S02978.1xd     +++|*
04315  M00S02979.1xd     +++|*         USES   CM - CM+4.
04316  M00S02980.1xd     +++|*
Line S02981 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04317  M01S02981.ns2714  ---|*         CALLS  CMC, DCR.
Line S00236 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04318  M01S00236.ns2714  +++|*         CALLS  DCR.
04319  M00S02982.1xd     +++|*
Line S02983 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04320  M01S02983.ns2714  ---|*         MACROS CHTE, MONITOR.
Line S00237 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04321  M01S00237.ns2714  +++|*         MACROS MONITOR.
04322  M00S02984.1xd     +++|
04323  M00S02985.1xd     +++|
04324  M00S02986.1xd     +++| SRF      SUBR               ENTRY/EXIT
Line S02987 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04325  M01S02987.ns2714  ---|          RJM    CMC
04326  M00S02988.1xd     +++|          RJM    DCR         DROP CHANNEL RESERVATION
04327  M00S02989.1xd     +++|*         LDN    0
04328  M00S02990.1xd     +++|          STD    CM+2        CLEAR UNUSED BYTE
04329  M00S02991.1xd     +++|          CHTE   *
04330  M00S02992.1xd     +++|          LDC    CTALL*2     ADDRESS OF CHANNEL CONTROLWARE TABLE ENTRY
04331  M00S02993.1xd     +++|          STD    CM+4
04332  M00S02994.1xd     +++|          SHN    -14
04333  M00S02995.1xd     +++|          STD    CM+3
04334  M00S02996.1xd     +++|          LDN    1           SET NUMBER OF REQUESTS
04335  M00S02997.1xd     +++|          STD    CM+1
04336  M00S02998.1xd     +++|          LDD    MA          STORE REQUEST IN MESSAGE BUFFER
04337  M00S02999.1xd     +++|          CWM    SRFA,CM+1
04338  M00S03000.1xd     +++|          MONITOR  UTEM      SET RELOAD FLAG
04339  M00S03001.1xd     +++|*         LDN    0
04340  M00S03002.1xd     +++|          UJN    SRFX        RETURN
04341  M00S03003.1xd     +++|
04342  M00S03004.1xd     +++|
04343  M00S03005.1xd     +++| SRFA     VFD    1/0,5/0,6/1,6/,42/1
Line S03006 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04344  M01S03006.1xd5    ---| SRI      SPACE  4,15
04345  M01S03007.1xd5    ---|**        SRI - SET/CLEAR SELECTIVE RESET INTERLOCK.
04346  M01S03008.1xd5    ---|*
04347  M01S03009.1xd5    ---|*         ENTRY  (A) = 0 TO CLEAR INTERLOCK.
04348  M01S03010.1xd5    ---|*                    = 1 TO SET INTERLOCK.
04349  M01S03011.1xd5    ---|*
04350  M01S03012.1xd5    ---|*         EXIT   (A) = 0 IF REQUEST COMPLETED.
04351  M01S03013.1xd5    ---|*
04352  M01S03014.1xd5    ---|*         USES   CM - CM+6.
04353  M01S03015.1xd5    ---|*
Line S03016 Modification History
M01 (Removed by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04354  M02S03016.1xd5    ---|*         CALLS  CMC.
04355  M02S03017.1xd5    ---|*
Line S03018 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04356  M01S03018.1xd5    ---|*         MACROS MONITOR.
04357  M01S03019.1xd5    ---|
04358  M01S03020.1xd5    ---|
04359  M01S03021.1xd5    ---| SRI      SUBR               ENTRY/EXIT
04360  M01S03022.1xd5    ---|          STM    SRIA+1*5+4
04361  M01S03023.1xd5    ---|          LMN    1           COMPLEMENT FOR VERIFY OPTION
04362  M01S03024.1xd5    ---|          STM    SRIA+4
Line S03025 Modification History
M01 (Removed by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04363  M02S03025.1xd5    ---|          RJM    CMC         CHECK MONITOR COMPLETE
Line S03026 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04364  M01S03026.1xd5    ---|          LDC    BIOL
04365  M01S03027.1xd5    ---|          CRD    CM+2        SET FWA OF BUFFERED DEVICE TABLES
04366  M01S03028.1xd5    ---|          LDN    0
04367  M01S03029.1xd5    ---|          STD    CM+2
04368  M01S03030.1xd5    ---|          LDN    2           SET REQUEST COUNT
04369  M01S03031.1xd5    ---|          STD    CM+1
04370  M01S03032.1xd5    ---|          LDD    MA          STORE MESSAGE BUFFER PARAMETERS
04371  M01S03033.1xd5    ---|          CWM    SRIA,CM+1
04372  M01S03034.1xd5    ---|          MONITOR  UTEM      ISSUE MONITOR FUNCTION
04373  M01S03035.1xd5    ---|          LDD    CM+1
04374  M01S03036.1xd5    ---|          UJN    SRIX        RETURN WITH STATUS
04375  M01S03037.1xd5    ---|
04376  M01S03038.1xd5    ---|
04377  M01S03039.1xd5    ---| SRIA     VFD    1/1,5/PUTP,6/1,6/XDSR,42/0
04378  M01S03040.1xd5    ---|          VFD    1/0,5/PUTP,6/1,6/XDSR,42/1
04379  M00S03041.1xd     +++| SRP      SPACE  4,10
04380  M00S03042.1xd     +++|**        SRP - SEARCH RESPONSE PACKET.
04381  M00S03043.1xd     +++|*
04382  M00S03044.1xd     +++|*         ENTRY  (A) = PARAMETER ID TO SEARCH FOR.
04383  M00S03045.1xd     +++|*
04384  M00S03046.1xd     +++|*         EXIT   (A) = 0 IF ID FOUND.
04385  M00S03047.1xd     +++|*                    .LT. 0 IF ID NOT FOUND.
04386  M00S03048.1xd     +++|*                (T3) = *RPBF* INDEX - 5 OF PARAMETER BLOCK.
04387  M00S03049.1xd     +++|*
04388  M00S03050.1xd     +++|*         USES   T1, T2.
04389  M00S03051.1xd     +++|
04390  M00S03052.1xd     +++|
04391  M00S03053.1xd     +++| SRP1     LDML   RPBF+5,T3   EXTRACT PARAMETER BLOCK LENGTH
04392  M00S03054.1xd     +++|          SHN    -10-1
04393  M00S03055.1xd     +++|          ADN    1           CONVERT OCTET COUNT TO BYTE COUNT
04394  M00S03056.1xd     +++|          STD    T0
04395  M00S03057.1xd     +++|          RAD    T3          ADVANCE BUFFER INDEX
04396  M00S03058.1xd     +++|          LDD    T2
04397  M00S03059.1xd     +++|          SBD    T0
04398  M00S03060.1xd     +++| SRP2     MJN    SRPX        IF END OF RESPONSE PACKET
04399  M00S03061.1xd     +++|          STD    T2
04400  M00S03062.1xd     +++|          LDM    RPBF+5,T3   CHECK NEXT PARAMETER BLOCK
04401  M00S03063.1xd     +++|          LMD    T1
04402  M00S03064.1xd     +++|          LPC    377
04403  M00S03065.1xd     +++|          NJN    SRP1        IF NOT REQUESTED ID
04404  M00S03066.1xd     +++|
04405  M00S03067.1xd     +++| SRP      SUBR               ENTRY/EXIT
04406  M00S03068.1xd     +++|          STD    T1
04407  M00S03069.1xd     +++|          LDN    0           INITIALIZE INDEX
04408  M00S03070.1xd     +++|          STD    T3
04409  M00S03071.1xd     +++|          LDM    RPBF+PLN    PACKET LENGTH
04410  M00S03072.1xd     +++|          ADN    1
04411  M00S03073.1xd     +++|          SHN    -1          CONVERT TO PP WORD COUNT
04412  M00S03074.1xd     +++|          SBN    5
04413  M00S03075.1xd     +++|          UJN    SRP2        CHECK MINIMUM PACKET LENGTH
04414  M00S03076.1xd     +++| STF      SPACE  4,15
Line S03077 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04415  M01S03077.1xd5    ---|**        STF - REQUEST TRACK FLAW.
Line S00525 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04416  M01S00525.1xd5    +++|**        STF - SET TRACK FLAW, IF TRACK WITHIN USER AREA.
04417  M00S03078.1xd     +++|*
04418  M00S03079.1xd     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
04419  M00S03080.1xd     +++|*                (EO) = EST ORDINAL.
04420  M00S03081.1xd     +++|*                (T3+1) = CYLINDER NUMBER.
04421  M00S03082.1xd     +++|*                (T3+2) = PHYSICAL TRACK + SECTOR.
04422  M00S03083.1xd     +++|*
Line S03084 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04423  M01S03084.ns2714  ---|*         USES   CM - CM+4.
Line S00238 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04424  M02S00238.1xd5    ---|*         USES   CM+1.
Line S00526 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04425  M01S00526.1xd5    +++|*         USES   CM+1 - CM+3.
04426  M00S03085.1xd     +++|*
Line S03086 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04427  M01S03086.ns2714  ---|*         CALLS  CDA, CMC, C2D, IDM.
Line S00239 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04428  M01S00239.ns2714  +++|*         CALLS  CDA, C2D, IDM.
04429  M00S03087.1xd     +++|*
04430  M00S03088.1xd     +++|*         MACROS MONITOR.
04431  M00S03089.1xd     +++|
04432  M00S03090.1xd     +++|
04433  M00S03091.1xd     +++| STF      SUBR               ENTRY/EXIT
Line S03092 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04434  M01S03092.ns2714  ---|          RJM    CMC
04435  M01S03093.ns2714  ---|          LDD    EO          CONVERT EST ORDINAL
04436  M01S03094.ns2714  ---|          SHN    -3
Line S00240 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04437  M01S00240.ns2714  +++|          LDD    EO
04438  M01S00241.ns2714  +++|          SHN    -3          CONVERT EST ORDINAL
04439  M00S03095.1xd     +++|          RJM    C2D
04440  M00S03096.1xd     +++|          STM    STFB+1      SET ORDINAL IN MESSAGE
04441  M00S03097.1xd     +++|          LDD    EO
04442  M00S03098.1xd     +++|          STD    CM+1
04443  M00S03099.1xd     +++|          LPN    7
04444  M00S03100.1xd     +++|          SHN    6           CONVERT LOW ORDER DIGIT
04445  M00S03101.1xd     +++|          ADC    2R0,
04446  M00S03102.1xd     +++|          STM    STFB+2
04447  M00S03103.1xd     +++|          RJM    CDA         CONVERT DISK ADDRESS
Line S00527 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04448  M01S00527.1xd5    +++|          LDD    T6          SET TRACK TO FLAW
04449  M01S00528.1xd5    +++|          STD    CM+2
04450  M01S00529.1xd5    +++|          SBK    MCLT
04451  M01S00530.1xd5    +++|          PJN    STFX        IF TRACK NOT WITHIN USER AREA
04452  M00S03104.1xd     +++|          LDD    T6
04453  M00S03105.1xd     +++|          RJM    C2D         SET TRACK NUMBER IN MESSAGE
04454  M00S03106.1xd     +++|          STM    STFB+5
04455  M00S03107.1xd     +++|          LDD    T6
04456  M00S03108.1xd     +++|          SHN    -6
04457  M00S03109.1xd     +++|          RJM    C2D         SET TRACK NUMBER IN MESSAGE
04458  M00S03110.1xd     +++|          STM    STFB+4
04459  M00S03111.1xd     +++|          LDK    SFTS        INSERT SUBFUNCTION
04460  M00S03112.1xd     +++|          STD    CM+3
04461  M00S03113.1xd     +++|          MONITOR  SMDM      SET TRACK FLAW REQUEST IN MST
04462  M00S03114.1xd     +++|          LDD    CM+1
04463  M00S03115.1xd     +++|          NJN    STF2        IF THIS FLAW ALREADY REQUESTED
04464  M00S03116.1xd     +++|          LDC    STFA
Line S03117 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04465  M01S03117.ns2769  ---|          STM    MAD1        ISSUE ERROR LOG MESSAGE
Line S00012 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04466  M01S00012.ns2769  +++|          STML   MAD1        ISSUE ERROR LOG MESSAGE
04467  M00S03118.1xd     +++|          RJM    IDM
04468  M00S03119.1xd     +++| STF2     LJM    STFX        RETURN
04469  M00S03120.1xd     +++|
04470  M00S03121.1xd     +++|
04471  M00S03122.1xd     +++| STFA     VFD    24/0        RESERVED
04472  M00S03123.1xd     +++|          VFD    12/1        ERRLOG ALERT FLAG
04473  M00S03124.1xd     +++|          VFD    12/STFAL    MESSAGE LENGTH
04474  M00S03125.1xd     +++|          VFD    12/ELDY     ERRLOG DAYFILE
04475  M00S03126.1xd     +++|
04476  M00S03127.1xd     +++| STFB     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
04477  M00S03128.1xd     +++|
04478  M00S03129.1xd     +++| .1       SET    *-STFA+4
04479  M00S03130.1xd     +++| STFAL    EQU    .1/5
04480  M00S03131.1xd     +++| STO      SPACE  4,10
04481  M00S03132.1xd     +++|**        STO - SET TIMEOUT.
04482  M00S03133.1xd     +++|*
04483  M00S03134.1xd     +++|*         ENTRY  (A) = TIMEOUT VALUE (IN SECONDS).
04484  M00S03135.1xd     +++|*
Line S03136 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04485  M01S03136.1xd5    ---|*         USES   T5, T6, T7, CM - CM+4.
04486  M01S03137.1xd5    ---|*
04487  M01S03138.1xd5    ---|*         MACROS FTTE.
Line S00531 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04488  M01S00531.1xd5    +++|*         USES   T6, CM - CM+4.
04489  M00S03139.1xd     +++|
04490  M00S03140.1xd     +++|
04491  M00S03141.1xd     +++| STO      SUBR               ENTRY/EXIT
04492  M00S03142.1xd     +++|          STD    T6
04493  M00S03143.1xd     +++|          LDC    RTCL        FETCH CURRENT TIME
04494  M00S03144.1xd     +++|          CRD    CM
04495  M00S03145.1xd     +++|          LDD    T6
Line S03146 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04496  M01S03146.1xd5    ---|          RAD    CM+1        SET TIME LIMIT
Line S00532 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04497  M01S00532.1xd5    +++|          ADD    CM+1        SET TIME LIMIT
04498  M01S00533.1xd5    +++|          STM    FTOC+1,DI
04499  M00S03147.1xd     +++|          SHN    -14
Line S03148 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04500  M01S03148.1xd5    ---|          RAD    CM
04501  M01S03149.1xd5    ---|          LDM    STO         SET CALLERS ADDRESS
04502  M01S03150.1xd5    ---|          STD    T7
04503  M01S03151.1xd5    ---|          LDN    0
04504  M01S03152.1xd5    ---|          STD    T5
04505  M01S03153.1xd5    ---|          LDI    DI
04506  M01S03154.1xd5    ---|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
04507  M01S03155.1xd5    ---|          SHK    FTTLS
04508  M01S03156.1xd5    ---|          FTTE   *
04509  M01S03157.1xd5    ---|          ADC    0           STORE *FTT* ENTRY
04510  M01S03158.1xd5    ---|          CWD    T5
Line S00534 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04511  M01S00534.1xd5    +++|          ADD    CM
04512  M01S00535.1xd5    +++|          STM    FTOC,DI
04513  M00S03159.1xd     +++|          UJN    STOX        RETURN
04514  M00S03160.1xd     +++| SUA      SPACE  4,10
04515  M00S03161.1xd     +++|**        SUA - SET UEM ADDRESS.
04516  M00S03162.1xd     +++|*
04517  M00S03163.1xd     +++|*         ENTRY  (A) = *CBT* ORDINAL.
04518  M00S03164.1xd     +++|*
04519  M00S03165.1xd     +++|*         EXIT   (UA - UA+1) = UEM ADDRESS / 100.
04520  M00S03166.1xd     +++|*
04521  M00S03167.1xd     +++|*         USES   CM - CM+4.
04522  M00S03168.1xd     +++|*
04523  M00S03169.1xd     +++|*         MACROS CBTE.
04524  M00S03170.1xd     +++|
04525  M00S03171.1xd     +++|
04526  M00S03172.1xd     +++| SUA      SUBR               ENTRY/EXIT
04527  M00S03173.1xd     +++|          SHN    CBTLS
04528  M00S03174.1xd     +++|          CBTE   *
04529  M00S03175.1xd     +++|          ADC    IOLK        READ *CBT* ENTRY
04530  M00S03176.1xd     +++|          CRD    CM
04531  M00S03177.1xd     +++|          LDD    CM+4        EXTRACT RELATIVE UEM ADDRESS
04532  M00S03178.1xd     +++|          ADC    0
04533  M00S03179.1xd     +++| SUAA     EQU    *-1
04534  M00S03180.1xd     +++|          SHN    -6
04535  M00S03181.1xd     +++|          STD    UA+1        SET ABSOLUTE ADDRESS / 100
04536  M00S03182.1xd     +++|          LDD    CM+3
04537  M00S03183.1xd     +++|          ADC    0
04538  M00S03184.1xd     +++| SUAB     EQU    *-1
04539  M00S03185.1xd     +++|          SHN    6
04540  M00S03186.1xd     +++|          RAD    UA+1
04541  M00S03187.1xd     +++|          SHN    -14
04542  M00S03188.1xd     +++|          STD    UA
04543  M00S03189.1xd     +++|          UJN    SUAX        RETURN
04544  M00S03190.1xd     +++| SUI      SPACE  4,15
04545  M00S03191.1xd     +++|**        SUI - SET UNIT INTERLOCK.
04546  M00S03192.1xd     +++|*
04547  M00S03193.1xd     +++|*         ENTRY  (DI) = DEVICE STATUS BLOCK INDEX.
04548  M00S03194.1xd     +++|*
04549  M00S03195.1xd     +++|*         EXIT   (A) = 0 IF *PUT* ENTRY INTERLOCKED.
04550  M00S03196.1xd     +++|*                (UC) = UNIT ACTIVITY COUNT INCREMENTED.
04551  M00S03197.1xd     +++|*                (CM+1) = *BIOM* STATUS.
04552  M00S03198.1xd     +++|*
Line S03199 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04553  M01S03199.ns2714  ---|*         USES   CM - CM+4.
04554  M01S03200.ns2714  ---|*
04555  M01S03201.ns2714  ---|*         CALLS  CMC.
Line S00242 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04556  M02S00242.272l774 ---|*         USES   CM+1, CM+2.
Line S00147 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04557  M01S00147.272l774 +++|*         USES   CM+1, CM+2, UC.
04558  M00S03202.1xd     +++|*
04559  M00S03203.1xd     +++|*         MACROS MONITOR.
04560  M00S03204.1xd     +++|
04561  M00S03205.1xd     +++|
04562  M00S03206.1xd     +++| SUI1     AOD    UC          ADVANCE UNIT ASSIGNED COUNT
04563  M00S03207.1xd     +++|          LDC    4000
Line S03208 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04564  M01S03208.272l774 ---| SUI2     STM    RQLN        SET UNIT INTERLOCKED
Line S00148 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04565  M01S00148.272l774 +++| SUI2     STM    RQLN,DI     SET UNIT INTERLOCKED
04566  M00S03209.1xd     +++|          LDN    0
04567  M00S03210.1xd     +++|
04568  M00S03211.1xd     +++| SUI      SUBR               ENTRY/EXIT
Line S03212 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04569  M01S03212.272l774 ---|          LDM    RQLN
Line S00149 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04570  M01S00149.272l774 +++|          LDM    RQLN,DI
04571  M00S03213.1xd     +++|          SCN    77
04572  M00S03214.1xd     +++|          NJN    SUI2        IF UNIT ALREADY INTERLOCKED
Line S03215 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04573  M01S03215.ns2714  ---|          RJM    CMC
04574  M00S03216.1xd     +++|          LDI    DI          SET *PUT* ORDINAL
04575  M00S03217.1xd     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
04576  M00S03218.1xd     +++|          STD    CM+2
04577  M00S03219.1xd     +++|          LDN    SUIS        SET SUBFUNCTION
04578  M00S03220.1xd     +++|          STD    CM+1
04579  M00S03221.1xd     +++|          MONITOR  BIOM      INTERLOCK DEVICE
04580  M00S03222.1xd     +++|          LDD    CM+1
04581  M00S03223.1xd     +++|          ZJN    SUI1        IF INTERLOCK ACQUIRED
Line S03224 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04582  M01S03224.ns2714  ---|*         LDN    1
Line S00243 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04583  M01S00243.ns2714  +++|          LDN    1
04584  M00S03225.1xd     +++|          UJN    SUIX        RETURN
04585  M00S03226.1xd     +++| TMSE     SPACE  4,10
04586  M00S03227.1xd     +++|**        TMSE - TABLE OF MASS STORAGE ERROR CODES.
04587  M00S03228.1xd     +++|*
04588  M00S03229.1xd     +++|*         INDEXED BY FAULT CODE / 4.
04589  M00S03230.1xd     +++|
04590  M00S03231.1xd     +++|
04591  M00S03232.1xd     +++| TMSE     BSS    0
04592  M00S03233.1xd     +++|          LOC    0
04593  M00S03234.1xd     +++|
04594  M00S03235.1xd     +++|          CON    CHPE        CHANNEL PARITY
04595  M00S03236.1xd     +++|          CON    CHFE        CHANNEL FAILURE
04596  M00S03237.1xd     +++|          CON    FTOE        FUNCTION TIMEOUT
04597  M00S03238.1xd     +++|          CON    PARE        DATA PARITY (MEDIA)
04598  M00S03239.1xd     +++|          CON    NRDE        DEVICE NOT READY
04599  M00S03240.1xd     +++|          CON    IDTE        DATA TRANSFER
04600  M00S03241.1xd     +++|          CON    DSTE        DEVICE STATUS
04601  M00S03242.1xd     +++|          CON    DSTE        DEVICE STATUS
04602  M00S03243.1xd     +++|          CON    DSTE        DEVICE STATUS
04603  M00S03244.1xd     +++|          CON    DSTE        DEVICE STATUS
04604  M00S03245.1xd     +++|          CON    DSTE        DEVICE STATUS
04605  M00S03246.1xd     +++|          CON    DDFE        DIAGNOSTIC FAILURE
04606  M00S03247.1xd     +++|          CON    RAME        CONTROLLER MEMORY
04607  M00S03248.1xd     +++|          CON    CHFE        CHANNEL FAILURE
04608  M00S03249.1xd     +++|          CON    DRVE        DRIVE RESERVE
Line S00244 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04609  M01S00244.ns2714  +++|          CON    RAME        CONTROLLER MEMORY
04610  M00S03250.1xd     +++|          LOC    *O
04611  M00S03251.1xd     +++| TMSK     SPACE  4,10
04612  M00S03252.1xd     +++|**        TMSK - TABLE OF UNIT MASKS.
04613  M00S03253.1xd     +++|*
04614  M00S03254.1xd     +++|*         INDEXED BY UNIT NUMBER.
04615  M00S03255.1xd     +++|
04616  M00S03256.1xd     +++|
04617  M00S03257.1xd     +++| TMSK     BSS    0
04618  M00S03258.1xd     +++|          LOC    0
04619  M00S03259.1xd     +++|
04620  M00S03260.1xd     +++|          CON    001
04621  M00S03261.1xd     +++|          CON    002
04622  M00S03262.1xd     +++|          CON    004
04623  M00S03263.1xd     +++|          CON    010
04624  M00S03264.1xd     +++|          CON    020
04625  M00S03265.1xd     +++|          CON    040
04626  M00S03266.1xd     +++|          CON    100
04627  M00S03267.1xd     +++|          CON    200
04628  M00S03268.1xd     +++|          LOC    *O
Line S00109 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04629  M01S00109.273l780 +++| UBP      SPACE  4,20
04630  M01S00110.273l780 +++|**        UBP - UPDATE *BDLL* PARAMETER.
04631  M01S00111.273l780 +++|*
Line S00112 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04632  M02S00112.ns2750  ---|*         THIS ROUTINE CHANGES THE CONTROLLER OVER TEMPERATURE BIT IN
04633  M02S00113.ns2750  ---|*         WORD *BDLL* OF THE MST.
Line S00239 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04634  M01S00239.ns2750  +++|*         THIS ROUTINE CHANGES A BIT/FIELD IN WORD *BDLL* OF THE MST.
Line S00114 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04635  M01S00114.273l780 +++|*
Line S00115 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04636  M02S00115.ns2750  ---|*         ENTRY  (A) = NEW VALUE.
Line S00240 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04637  M01S00240.ns2750  +++|*         ENTRY  (A) = 6/WORD, 6/BITS TO CHANGE.
Line S00116 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04638  M01S00116.273l780 +++|*                (EO) = EST ORDINAL.
Line S00241 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04639  M01S00241.ns2750  +++|*                (CM+2) = NEW VALUE.
04640  M01S00242.ns2750  +++|*                (T7) = LOW ORDER BIT TO CHANGE TIMES 100.
Line S00117 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04641  M01S00117.273l780 +++|*
Line S00118 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04642  M02S00118.ns2750  ---|*         USES   T6, T7, CM - CM+4.
Line S00243 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04643  M01S00243.ns2750  +++|*         USES   T6, CM - CM+4.
Line S00119 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04644  M01S00119.273l780 +++|*
04645  M01S00120.273l780 +++|*         MACROS MONITOR, SFA.
04646  M01S00121.273l780 +++|
04647  M01S00122.273l780 +++|
04648  M01S00123.273l780 +++| UBP      SUBR               ENTRY/EXIT
Line S00124 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04649  M02S00124.ns2750  ---|          STD    CM+2        NEW VALUE
04650  M02S00125.ns2750  ---|          LDC    63*100      LOW ORDER BIT TIMES 100
04651  M02S00126.ns2750  ---|          STD    T7
04652  M02S00127.ns2750  ---|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
Line S00128 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04653  M01S00128.273l780 +++|          STD    T6
04654  M01S00129.273l780 +++|          LDD    MA
04655  M01S00130.273l780 +++|          CWD    T6          STORE MESSAGE BUFFER PARAMETERS
04656  M01S00131.273l780 +++|          SFA    EST,EO      CALCULATE EST ADDRESS
04657  M01S00132.273l780 +++|          ADK    EQDE
04658  M01S00133.273l780 +++|          CRD    CM
04659  M01S00134.273l780 +++|          LDD    CM+4
04660  M01S00135.273l780 +++|          SHN    3
04661  M01S00136.273l780 +++|          STD    CM+4        SET BASE *MST* ENTRY ADDRESS
04662  M01S00137.273l780 +++|          SHN    -14
04663  M01S00138.273l780 +++|          STD    CM+3
04664  M01S00139.273l780 +++|          LDN    1
04665  M01S00140.273l780 +++|          STD    CM+1        PARAMETER WORD COUNT
04666  M01S00141.273l780 +++|          MONITOR  UTEM
04667  M01S00142.273l780 +++|          UJN    UBPX        RETURN
04668  M00S03269.1xd     +++| UEC      SPACE  4,15
04669  M00S03270.1xd     +++|**        UEC - UPDATE MST ERROR COUNT.
04670  M00S03271.1xd     +++|*
04671  M00S03272.1xd     +++|*         ENTRY  (EO) = EST ORDINAL.
04672  M00S03273.1xd     +++|*                (BMLM+1) = BML MESSAGE SYMPTOM CODE.
04673  M00S03274.1xd     +++|*                (MISC - BIT 0) = 1 IF UNRECOVERED ERROR.
04674  M00S03275.1xd     +++|*
Line S03276 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04675  M01S03276.272l774 ---|*         USES   CM - CM+4.
Line S00150 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04676  M01S00150.272l774 +++|*         USES   CM+1 - CM+3.
04677  M00S03277.1xd     +++|*
04678  M00S03278.1xd     +++|*         MACROS MONITOR.
04679  M00S03279.1xd     +++|
04680  M00S03280.1xd     +++|
04681  M00S03281.1xd     +++| UEC      SUBR               ENTRY/EXIT
04682  M00S03282.1xd     +++|          LDM    BMLM+1
Line S03283 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04683  M01S03283.ns2714  ---|          LMC    HD0105
Line S00245 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04684  M02S00245.272l774 ---|          LMC    D"DN"*400+HD0105
Line S00151 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04685  M01S00151.272l774 +++|          LMC    D"DN"*400+HD0111
04686  M00S03284.1xd     +++|          NJN    UECX        IF NOT COMPLETION MESSAGE
04687  M00S03285.1xd     +++|          LDD    EO
04688  M00S03286.1xd     +++|          STD    CM+1        SET EST ORDINAL
04689  M00S03287.1xd     +++|          LDM    MISC
04690  M00S03288.1xd     +++|          LPN    1           SET BYTE NUMBER
04691  M00S03289.1xd     +++|          ADN    3
04692  M00S03290.1xd     +++|          STD    CM+2
04693  M00S03291.1xd     +++|          LDN    ICTS        INCREMENT ERROR COUNT
04694  M00S03292.1xd     +++|          STD    CM+3
04695  M00S03293.1xd     +++|          MONITOR  SMDM
04696  M00S03294.1xd     +++|          UJN    UECX        RETURN
04697  M00S03295.1xd     +++| UHD      SPACE  4,15
04698  M00S03296.1xd     +++|**        UHD - UNPACK HEX DATA.
04699  M00S03297.1xd     +++|*
04700  M00S03298.1xd     +++|*         ENTRY  (A) = DESTINATION DATA ADDRESS.
04701  M00S03299.1xd     +++|*                (T2) = SOURCE DATA ADDRESS.
04702  M00S03300.1xd     +++|*                (T4) = BYTE COUNT OF HEX DATA.
04703  M00S03301.1xd     +++|*
04704  M00S03302.1xd     +++|*         EXIT   (A) = CM WORD COUNT OF 12 BIT DATA.
04705  M00S03303.1xd     +++|*
04706  M00S03304.1xd     +++|*         USES   T2, T3, T4, T5.
04707  M00S03305.1xd     +++|*
04708  M00S03306.1xd     +++|*         CALLS  DV5.
04709  M00S03307.1xd     +++|
04710  M00S03308.1xd     +++|
04711  M00S03309.1xd     +++| UHD3     AODL   T3          SET END OF 12 BIT DATA
04712  M00S03310.1xd     +++|          STML   UHDA
04713  M00S03311.1xd     +++|          LDN    ZERL        ENSURE ZERO FILL TO CM WORD BOUNDARY
04714  M00S03312.1xd     +++|          CRM    *,ON
04715  M00S03313.1xd     +++| UHDA     EQU    *-1
04716  M00S03314.1xd     +++|          LDDL   T3          SET BYTE COUNT OF 12 BIT DATA
04717  M00S03315.1xd     +++|          SBDL   T5
04718  M00S03316.1xd     +++|          RJM    DV5         CONVERT TO CM WORD COUNT
04719  M00S03317.1xd     +++|
04720  M00S03318.1xd     +++| UHD      SUBR               ENTRY/EXIT
04721  M00S03319.1xd     +++|          STDL   T3
04722  M00S03320.1xd     +++|          STDL   T5          PRESERVE DESTINATION BUFFER ADDRESS
04723  M00S03321.1xd     +++| UHD1     LDIL   T2
04724  M00S03322.1xd     +++|          SHN    16
04725  M00S03323.1xd     +++|          STI    T3          UNPACK N+3RD BYTE
04726  M00S03324.1xd     +++|          SHN    -6
04727  M00S03325.1xd     +++|          SCN    77
04728  M00S03326.1xd     +++|          STM    1,T3
04729  M00S03327.1xd     +++|          AODL   T3
04730  M00S03328.1xd     +++|          SOD    T4
04731  M00S03329.1xd     +++| UHD2     ZJN    UHD3        IF END OF HEX DATA
04732  M00S03330.1xd     +++|          AODL   T2
04733  M00S03331.1xd     +++|          LDIL   T2
04734  M00S03332.1xd     +++|          SHN    -10
04735  M00S03333.1xd     +++|          RAI    T3          UNPACK N+4TH BYTE
04736  M00S03334.1xd     +++|          AODL   T3
04737  M00S03335.1xd     +++|          LDIL   T2
04738  M00S03336.1xd     +++|          SHN    4
04739  M00S03337.1xd     +++|          SCN    17
04740  M00S03338.1xd     +++|          STI    T3
04741  M00S03339.1xd     +++|          SOD    T4
04742  M00S03340.1xd     +++|          ZJN    UHD2        IF END OF HEX DATA
04743  M00S03341.1xd     +++|          AODL   T2
04744  M00S03342.1xd     +++|          LDIL   T2
04745  M00S03343.1xd     +++|          STM    1,T3
04746  M00S03344.1xd     +++|          SHN    -14
04747  M00S03345.1xd     +++|          RAI    T3          UNPACK N+5TH BYTE
04748  M00S03346.1xd     +++|          AODL   T3
04749  M00S03347.1xd     +++|          SOD    T4
04750  M00S03348.1xd     +++|          ZJN    UHD2        IF END OF HEX DATA
04751  M00S03349.1xd     +++|          AODL   T2
04752  M00S03350.1xd     +++|          AODL   T3
04753  M00S03351.1xd     +++|          UJP    UHD1        CONTINUE UNPACK
04754  M00S03352.1xd     +++| VIS      SPACE  4,15
04755  M00S03353.1xd     +++|**        VIS - VERIFY INTERRUPT SOURCE.
04756  M00S03354.1xd     +++|*
Line S03355 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04757  M01S03355.1xd5    ---|*         ENTRY  (A) .LT. 0 IF ASYNC INTERRUPT FROM CONTROLLER.
Line S00536 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04758  M01S00536.1xd5    +++|*         ENTRY  (A) .LT. 0 IF ASYNC INTERRUPT.
04759  M00S03356.1xd     +++|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
04760  M00S03357.1xd     +++|*                (PA) = REQUEST IN PROGRESS ADDRESS.
04761  M00S03358.1xd     +++|*
04762  M00S03359.1xd     +++|*         EXIT   (A) = 0 IF INTERRUPT FOR INACTIVE DRIVE.
04763  M00S03360.1xd     +++|*                    = RETURN ADDRESS TO PROCESSOR.
04764  M00S03361.1xd     +++|*
Line S03362 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04765  M01S03362.1xd5    ---|*         USES   T4.
Line S00537 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04766  M01S00537.1xd5    +++|*         USES   DI, T4.
04767  M00S03363.1xd     +++|*
04768  M00S03364.1xd     +++|*         CALLS  LDP.
04769  M00S03365.1xd     +++|
04770  M00S03366.1xd     +++|
Line S03367 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04771  M01S03367.1xd5    ---| VIS3     LDM    SRSA
04772  M01S03368.1xd5    ---|          ZJN    VIS5        IF NO RESET IN PROGRESS
04773  M01S03369.1xd5    ---|          STD    T4
Line S00538 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04774  M02S00538.1xd6a   ---| VIS3     LDM    EEST,DI     PROCESS ASYNC INTERRUPT
Line S00025 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04775  M01S00025.1xd6a   +++| VIS3     LDM    ATTN,DI     PROCESS ASYNC INTERRUPT
04776  M01S00026.1xd6a   +++|          ZJN    VIS3.1      IF NOT WAITING FOR INTERRUPT
04777  M01S00027.1xd6a   +++|          LDM    EEST,DI
Line S00539 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04778  M01S00539.1xd5    +++|          LMN    ASRT
04779  M01S00540.1xd5    +++|          ZJN    VIS6        IF WAITING FOR ASYNC INTERRUPT
Line S00541 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04780  M02S00541.1xd6a   ---|          LDN    0
Line S00028 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04781  M01S00028.1xd6a   +++| VIS3.1   LDM    ADDR,DI
04782  M01S00029.1xd6a   +++|          LMC    SRS12
04783  M01S00030.1xd6a   +++|          NJN    VIS3.2      IF NOT NONCONTROLLING DRIVE ON SLAVE RESET
04784  M01S00031.1xd6a   +++|          STM    ADDR,DI     CLEAR REENTRY ADDRESS
04785  M01S00032.1xd6a   +++| VIS3.2   LDN    0
Line S00542 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04786  M01S00542.1xd5    +++|          UJN    VISX        DISCARD UNSOLICITED ASYNC INTERRUPT
04787  M01S00543.1xd5    +++|
04788  M00S03370.1xd     +++| VIS4     LDD    T4          CHANGE ADDRESS TO CORRECT DEVICE
04789  M00S03371.1xd     +++|          STD    DI
04790  M00S03372.1xd     +++|          RJM    LDP         LOAD DEVICE PARAMETERS
Line S03373 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04791  M01S03373.272l774 ---| VIS5     LDM    RQLN
Line S00152 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04792  M01S00152.272l774 +++| VIS5     LDM    RQLN,DI
04793  M00S03374.1xd     +++|          SCN    77
04794  M00S03375.1xd     +++|          ZJN    VISX        IF UNIT NOT INTERLOCKED
Line S03376 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04795  M01S03376.1xd5    ---|          LDD    PA
Line S00544 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04796  M01S00544.1xd5    +++| VIS6     LDD    PA
04797  M00S03377.1xd     +++|          LMC    ATT2
04798  M00S03378.1xd     +++|          NJN    VIS2        IF NOT SOLICITED INTERRUPT
Line S03379 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04799  M01S03379.1xd5    ---|          LDM    ATTN
Line S00545 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04800  M01S00545.1xd5    +++|          LDM    ATTN,DI
04801  M00S03380.1xd     +++|
04802  M00S03381.1xd     +++| VIS      SUBR               ENTRY/EXIT
Line S03382 Modification History
M01 (Removed by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04803  M01S03382.1xd6a   ---|          MJN    VIS3        IF ASYNC INTERRUPT
Line S00033 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04804  M01S00033.1xd6a   +++|          MJP    VIS3        IF ASYNC INTERRUPT
04805  M00S03383.1xd     +++|          LDM    RPBF+CRN    CHECK COMMAND NUMBER
04806  M00S03384.1xd     +++|          LMD    DI
04807  M00S03385.1xd     +++|          ZJN    VIS5        IF INTERRUPT FROM CURRENT DEVICE
04808  M00S03386.1xd     +++|          LDC    DSTB
04809  M00S03387.1xd     +++|          STD    T4
04810  M00S03388.1xd     +++| VIS1     LDM    RPBF+CRN    COMPARE COMMAND NUMBER
04811  M00S03389.1xd     +++|          LMD    T4
04812  M00S03390.1xd     +++|          ZJN    VIS4        IF DEVICE FOUND
04813  M00S03391.1xd     +++|          LDN    DSTBE
04814  M00S03392.1xd     +++|          RAD    T4          ADVANCE TABLE ADDRESS
04815  M00S03393.1xd     +++|          LMM    XMDA
04816  M00S03394.1xd     +++|          NJN    VIS1        IF NOT END OF DEVICE STATE TABLE
04817  M00S03395.1xd     +++| VIS2     LDN    0
04818  M00S03396.1xd     +++|          UJN    VISX        RETURN
04819  M00S03397.1xd     +++| WLB      SPACE  4,10
04820  M00S03398.1xd     +++|**        WLB - WRITE LINKAGE BITS.
04821  M00S03399.1xd     +++|*
04822  M00S03400.1xd     +++|*         ENTRY  (A) = (T6) = ADDRESS FOR LINKAGE IN (CM - CM+4).
04823  M00S03401.1xd     +++|*                (T1) = DATA BUFFER ADDRESS.
04824  M00S03402.1xd     +++|*                (T5) = NUMBER OF WORDS TO WRITE.
04825  M00S03403.1xd     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
04826  M00S03404.1xd     +++|*
04827  M00S03405.1xd     +++|*         EXIT   SECTOR LINKAGE SET IN DATA BUFFER.
04828  M00S03406.1xd     +++|*
Line S03407 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04829  M01S03407.1xd5    ---|*         USES   T6.
Line S00546 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04830  M01S00546.1xd5    +++|*         USES   T1, T6.
04831  M00S03408.1xd     +++|
04832  M00S03409.1xd     +++|
04833  M00S03410.1xd     +++| WLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
Line S03411 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04834  M01S03411.1xd5    ---|          RAD    T1
Line S00547 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04835  M01S00547.1xd5    +++|          RADL   T1
04836  M00S03412.1xd     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
04837  M00S03413.1xd     +++|          SHN    -10
04838  M00S03414.1xd     +++|*         LPN    17
04839  M00S03415.1xd     +++|          SHN    14          POSITION FOR DATA BUFFER
04840  M00S03416.1xd     +++|          LMI    T1
04841  M00S03417.1xd     +++|          STIL   T1
04842  M00S03418.1xd     +++| WLB2     LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
04843  M00S03419.1xd     +++|          SHN    -4
04844  M00S03420.1xd     +++|          LPN    17
04845  M00S03421.1xd     +++|          SHN    14          POSITION FOR DATA BUFFER
04846  M00S03422.1xd     +++|          LMM    4,T1
04847  M00S03423.1xd     +++|          STML   4,T1
04848  M00S03424.1xd     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
04849  M00S03425.1xd     +++|*         SHN    0
04850  M00S03426.1xd     +++|          LPN    17
04851  M00S03427.1xd     +++|          SHN    14          POSITION FOR DATA BUFFER
04852  M00S03428.1xd     +++|          LMM    10,T1
04853  M00S03429.1xd     +++|          STML   10,T1
04854  M00S03430.1xd     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
04855  M00S03431.1xd     +++|          LMN    CM+5
04856  M00S03432.1xd     +++|          NJN    WLB1        IF MORE LINKAGE
04857  M00S03433.1xd     +++|          LDC    1S17
04858  M00S03434.1xd     +++|          CWML   SBUF,T5     UPDATE DATA BUFFER
04859  M00S03435.1xd     +++|
04860  M00S03436.1xd     +++| WLB      SUBR               ENTRY/EXIT
04861  M00S03437.1xd     +++|*         LDD    T6
04862  M00S03438.1xd     +++|          UJN    WLB2        MOVE SECTOR LINKAGE
04863  M00S03439.1xd     +++| WMC      SPACE  4,10
04864  M00S03440.1xd     +++|**        WMC - WAIT MAINTENANCE CHANNEL EMPTY.
04865  M00S03441.1xd     +++|*
04866  M00S03442.1xd     +++|*         EXIT   (A) = 0 IF CHANNEL EMPTY.
04867  M00S03443.1xd     +++|*                    .NE. 0 IF CHANNEL HUNG FULL.
04868  M00S03444.1xd     +++|
04869  M00S03445.1xd     +++|
04870  M00S03446.1xd     +++| WMC3     LDN    0           INDICATE CHANNEL EMPTY
04871  M00S03447.1xd     +++|
04872  M00S03448.1xd     +++| WMC      SUBR               ENTRY/EXIT
04873  M00S03449.1xd     +++|          LDD    TH
04874  M00S03450.1xd     +++| WMC1     EJM.   WMC3,MR     IF TRANSMISSION COMPLETE
04875  M00S03451.1xd     +++|          SBN    1
04876  M00S03452.1xd     +++|          NJN    WMC1        IF NOT TIMED OUT
04877  M00S03453.1xd     +++| WMC2     DCN.   MR+40
04878  M00S03454.1xd     +++|          CCF.   *+2,MR      CLEAR CHANNEL FLAG
04879  M00S03455.1xd     +++|          LDD    CP
04880  M00S03456.1xd     +++|          ADN    MS2W        STORE CP MESSAGE
04881  M00S03457.1xd     +++|          CWM    WMCA,TR
04882  M00S03458.1xd     +++|          UJN    WMCX        RETURN
04883  M00S03459.1xd     +++|
04884  M00S03460.1xd     +++|
04885  M00S03461.1xd     +++| WMCA     DATA   C*MR ERROR.*
04886  M00S03462.1xd     +++| WTC      SPACE  4,10
04887  M00S03463.1xd     +++|**        WTC - WAIT TRANSMISSION COMPLETE.
04888  M00S03464.1xd     +++|*
04889  M00S03465.1xd     +++|*         ERROR  TO *ERR*.
04890  M00S03466.1xd     +++|*
04891  M00S03467.1xd     +++|*         USES   T1.
04892  M00S03468.1xd     +++|*
04893  M00S03469.1xd     +++|*         CALLS  CFE.
04894  M00S03470.1xd     +++|
04895  M00S03471.1xd     +++|
04896  M00S03472.1xd     +++| WTC3     LDD    T1          CHECK FOR I/O ERROR
04897  M00S03473.1xd     +++|          RJM    CFE
04898  M00S03474.1xd     +++|          DCN    CH+40       DEACTIVATE CHANNEL
04899  M00S03475.1xd     +++|
04900  M00S03476.1xd     +++| WTC      SUBR               ENTRY/EXIT
04901  M00S03477.1xd     +++|          STD    T1
04902  M00S03478.1xd     +++|          LDN    5           SET TIMEOUT = 5*262 MILLISECONDS
04903  M00S03479.1xd     +++|          STD    T0
04904  M00S03480.1xd     +++| WTC1     LDN    0
04905  M00S03481.1xd     +++| WTC2     EJM    WTC3,CH     IF LAST BYTE TAKEN OFF CHANNEL
04906  M00S03482.1xd     +++|          SBN    1
04907  M00S03483.1xd     +++|          NJN    WTC2        IF NOT TIMED OUT
04908  M00S03484.1xd     +++|          SOD    T0
04909  M00S03485.1xd     +++|          NJN    WTC1        IF NOT TIMEOUT
04910  M00S03486.1xd     +++|          LDN    ECHF
04911  M00S03487.1xd     +++|          RJM    ERR         PROCESS CHANNEL ERROR
04912  M00S03488.1xd     +++|          TITLE  CHANNEL SUBROUTINES.
04913  M00S03489.1xd     +++| BCS      SPACE  4,10
04914  M00S03490.1xd     +++|**        BCS - DEFINE INFORMATION TRANSFER.
04915  M00S03491.1xd     +++|*
04916  M00S03492.1xd     +++|*         ENTRY  (A) = BUS *A* BITS 7 AND 6.
04917  M00S03493.1xd     +++|*
04918  M00S03494.1xd     +++|*         ERROR  TO *ERR*.
04919  M00S03495.1xd     +++|*
04920  M00S03496.1xd     +++|*         CALLS  FCN, RSR.
04921  M00S03497.1xd     +++|
04922  M00S03498.1xd     +++|
04923  M00S03499.1xd     +++| BCS2     LDDL   LF          FETCH LAST FUNCTION
04924  M00S03500.1xd     +++|          LMN    0#32
04925  M00S03501.1xd     +++|          RJM    FCN         DROP SYNC OUT (NO PARITY CHECK)
04926  M00S03502.1xd     +++|          LDN    77
04927  M00S03503.1xd     +++|          RJM    RSR         READ SLAVE RESPONSE
04928  M00S03504.1xd     +++|
04929  M00S03505.1xd     +++| BCS      SUBR               ENTRY/EXIT
04930  M00S03506.1xd     +++|          SHN    17-1
04931  M00S03507.1xd     +++|          ADC    F005B       SET SYNC OUT
04932  M00S03508.1xd     +++|          RJM    FCN
04933  M00S03509.1xd     +++|          LDN    77          READ SLAVE RESPONSE
04934  M00S03510.1xd     +++|          RJM    RSR
04935  M00S03511.1xd     +++|          LPC    377
04936  M00S03512.1xd     +++|          ZJN    BCS2        IF BUS ACKNOWLEDGE CORRECT
04937  M00S03513.1xd     +++|          LDN    EBAE
04938  M00S03514.1xd     +++|          RJM    ERR         PROCESS ERROR
04939  M00S03515.1xd     +++| CFE      SPACE  4,10
04940  M00S03516.1xd     +++|**        CFE - CHECK FOR I/O ERROR.
04941  M00S03517.1xd     +++|*
04942  M00S03518.1xd     +++|*         ENTRY  (A) = RESIDUAL WORD COUNT.
04943  M00S03519.1xd     +++|*
04944  M00S03520.1xd     +++|*         EXIT   (A) = 0.
04945  M00S03521.1xd     +++|*
04946  M00S03522.1xd     +++|*         ERROR  TO *ERR*.
04947  M00S03523.1xd     +++|
04948  M00S03524.1xd     +++|
04949  M00S03525.1xd     +++| CFE5     NJN    CFE3        IF INCOMPLETE DATA TRANSFER
04950  M00S03526.1xd     +++|
04951  M00S03527.1xd     +++| CFE      SUBR               ENTRY/EXIT
04952  M00S03528.1xd     +++|          CFM    CFE5,CH     IF CHANNEL ERROR FLAG CLEAR
04953  M00S03529.1xd     +++| CFE1     LDN    ECIE
04954  M00S03530.1xd     +++| CFE2     RJM    ERR         PROCESS CHANNEL ERROR
04955  M00S03531.1xd     +++|
04956  M00S03532.1xd     +++| CFE3     LDN    EIDT
04957  M00S03533.1xd     +++|          UJN    CFE2        PROCESS ERROR
04958  M00S03534.1xd     +++| CTC      SPACE  4,10
04959  M00S03535.1xd     +++|**        CTC - CHECK TRANSFER COMPLETE.
04960  M00S03536.1xd     +++|*
04961  M00S03537.1xd     +++|*         EXIT   (A) = 0.
04962  M00S03538.1xd     +++|*
04963  M00S03539.1xd     +++|*         ERROR  TO *ERR*.
04964  M00S03540.1xd     +++|*
04965  M00S03541.1xd     +++|*         CALLS  CTO.
04966  M00S03542.1xd     +++|
04967  M00S03543.1xd     +++|
04968  M00S03544.1xd     +++| CTC      SUBR               ENTRY/EXIT
04969  M00S03545.1xd     +++| CTC1     LDC    F0700
04970  M00S03546.1xd     +++|          RJM    FCN         REQUEST OPERATIONAL STATUS
04971  M00S03547.1xd     +++|          ACN    CH
04972  M00S03548.1xd     +++|          IAN    CH          READ STATUS
04973  M00S03549.1xd     +++|          SFM    CFE1,CH     IF CHANNEL ERROR FLAG SET
04974  M00S03550.1xd     +++|          LPC    176001
04975  M00S03551.1xd     +++|          ZJN    CTCX        IF TRANSFER COMPLETE
04976  M00S03552.1xd     +++|          SCN    1
04977  M00S03553.1xd     +++|          NJN    CTC4        IF REGISTER PARITY ERROR
04978  M00S03554.1xd     +++|          RJM    CTO         CHECK ELAPSED TIME
04979  M00S03555.1xd     +++|          MJN    CTC1        IF NOT TIMEOUT
04980  M00S03556.1xd     +++|          LDN    ETTC
04981  M00S03557.1xd     +++| CTC3     RJM    ERR         PROCESS ERROR
04982  M00S03558.1xd     +++|
04983  M00S03559.1xd     +++| CTC4     LDN    ERPE
04984  M00S03560.1xd     +++|          UJN    CTC3        PROCESS ERROR
04985  M00S03561.1xd     +++| DCM      SPACE  4,10
04986  M00S03562.1xd     +++|**        DCM - DESELECT CONTROL MODULE.
04987  M00S03563.1xd     +++|*
04988  M00S03564.1xd     +++|*         ENTRY  (SF) = 0 IF CONTROLLER NOT SELECTED.
04989  M00S03565.1xd     +++|*
04990  M00S03566.1xd     +++|*         EXIT   (A) = (SF) = 0.
04991  M00S03567.1xd     +++|*
Line S00153 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04992  M01S00153.272l774 +++|*         USES   SF.
04993  M01S00154.272l774 +++|*
Line S03568 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04994  M01S03568.ns2714  ---|*         CALLS  FCN, RSR.
Line S00246 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04995  M01S00246.ns2714  +++|*         ERROR  TO *ERR*.
04996  M01S00247.ns2714  +++|*
04997  M01S00248.ns2714  +++|*         CALLS  FCN.
04998  M00S03569.1xd     +++|
Line S00249 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04999  M01S00249.ns2714  +++|
05000  M01S00250.ns2714  +++| DCM2     IAN    CH+40       READ CONTROLLER RESPONSE
05001  M01S00251.ns2714  +++|          LDN    0
05002  M01S00252.ns2714  +++|          STD    SF          CLEAR SELECT FLAG
05003  M00S03570.1xd     +++|
05004  M00S03571.1xd     +++| DCM      SUBR               ENTRY/EXIT
05005  M00S03572.1xd     +++|          LDD    SF
05006  M00S03573.1xd     +++|          ZJN    DCMX        IF CONTROLLER NOT SELECTED
05007  M00S03574.1xd     +++|          LDC    F0071
05008  M00S03575.1xd     +++|          RJM    FCN         CLEAR SELECT OUT
05009  M00S03576.1xd     +++|          LDC    2000
Line S03577 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05010  M01S03577.ns2714  ---|          RJM    RSR         GET CONTROLLER RESPONSE
05011  M01S03578.ns2714  ---|          LDN    0
05012  M01S03579.ns2714  ---|          STD    SF
05013  M01S03580.ns2714  ---|          UJN    DCMX        RETURN
Line S00253 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05014  M01S00253.ns2714  +++|          ACN    CH
05015  M01S00254.ns2714  +++| DCM1     FJM    DCM2,CH     IF SLAVE IN DROPPED
05016  M01S00255.ns2714  +++|          SBN    1
05017  M01S00256.ns2714  +++|          NJN    DCM1        IF NOT TIMED OUT
Line S00257 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05018  M02S00257.272l774 ---|          LDM    ESAD
Line S00155 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05019  M01S00155.272l774 +++|          LDM    ESAD,DI
Line S00258 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05020  M01S00258.ns2714  +++|          NJN    DCM2        IF ERROR PROCESSING
05021  M01S00259.ns2714  +++|          LDN    ECNR
05022  M01S00260.ns2714  +++|          RJM    ERR         PROCESS ERROR
05023  M00S03581.1xd     +++| DTM      SPACE  4,10
05024  M00S03582.1xd     +++|**        DTM - DETERMINE TRANSFER MODE.
05025  M00S03583.1xd     +++|*
05026  M00S03584.1xd     +++|*         ENTRY  (A) = CONTROLLER NUMBER.
05027  M00S03585.1xd     +++|*
05028  M00S03586.1xd     +++|*         EXIT   (A) = CONTROLLER NUMBER + TRANSFER MODE CHANGE.
05029  M00S03587.1xd     +++|*
05030  M00S03588.1xd     +++|*         USES   T4.
05031  M00S03589.1xd     +++|*
05032  M00S03590.1xd     +++|*         CALLS  FCN, RSR.
05033  M00S03591.1xd     +++|
05034  M00S03592.1xd     +++|
05035  M00S03593.1xd     +++| DTM      SUBR               ENTRY/EXIT
05036  M00S03594.1xd     +++|          SHN    14
05037  M00S03595.1xd     +++|          STDL   T4          SET CONTROLLER NUMBER IN RESPONSE
05038  M00S03596.1xd     +++|          LMC    F8025
05039  M00S03597.1xd     +++|          RJM    FCN         REQUEST TRANSFER MODE (SET MASTER OUT)
05040  M00S03598.1xd     +++|          LDN    77
05041  M00S03599.1xd     +++|          RJM    RSR         READ SLAVE RESPONSE
05042  M00S03600.1xd     +++|          LPN    0#10
05043  M00S03601.1xd     +++|          LMN    0#10        COMPLEMENT TRANSFER MODE
05044  M00S03602.1xd     +++|          SHN    13-4
05045  M00S03603.1xd     +++|          RADL   T4          APPEND TRANSFER MODE TO RESPONSE
05046  M00S03604.1xd     +++|          LDDL   LF
05047  M00S03605.1xd     +++|          LMC    0#54        DROP MASTER OUT
05048  M00S03606.1xd     +++|          RJM    FCN
05049  M00S03607.1xd     +++|          LDN    77          READ SLAVE RESPONSE
05050  M00S03608.1xd     +++|          RJM    RSR
05051  M00S03609.1xd     +++|          LDDL   T4
05052  M00S03610.1xd     +++|          UJP    DTMX        RETURN
Line S03611 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05053  M01S03611.1xd5    ---| ECI      SPACE  4,10
Line S00548 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05054  M01S00548.1xd5    +++| ECI      SPACE  4,20
05055  M00S03612.1xd     +++|**        ECI - EXAMINE CONTROLLER INTERRUPTS.
05056  M00S03613.1xd     +++|*
05057  M00S03614.1xd     +++|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
05058  M00S03615.1xd     +++|*
Line S03616 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05059  M01S03616.1xd5    ---|*         EXIT   (A) = (PA) = 0 IF NO REQUEST IN PROGRESS.
Line S00549 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05060  M01S00549.1xd5    +++|*         EXIT   (A) .NE. 0, IF RESET OR ERROR IN PROGRESS.
05061  M01S00550.1xd5    +++|*                (PA) = 0 IF NO REQUEST IN PROGRESS.
05062  M01S00551.1xd5    +++|*                (CM - CM+4) = *PILL* WORD OF *PUT* ENTRY.
05063  M01S00552.1xd5    +++|*                (WB - WB+4) = *UNCT* WORD OF *PUT* ENTRY.
05064  M01S00553.1xd5    +++|*                TO (ATTN) IF INTERRUPT RECEIVED.
05065  M01S00554.1xd5    +++|*                TO *SRS* IF LOGICAL RESET NOT YET PERFORMED.
05066  M00S03617.1xd     +++|*
Line S03618 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05067  M01S03618.ns2714  ---|*         USES   T5, CM - CM+4.
Line S00261 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05068  M02S00261.1xd5    ---|*         ERROR  TO *ERR*.
05069  M02S00262.1xd5    ---|*
05070  M02S00263.1xd5    ---|*         USES   PA, T5, CM - CM+4.
Line S00555 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05071  M01S00555.1xd5    +++|*         USES   PA, T5.
05072  M00S03619.1xd     +++|*
05073  M00S03620.1xd     +++|*         CALLS  FCN, GIS, IHD, LDP, SAP, SUI.
05074  M00S03621.1xd     +++|
05075  M00S03622.1xd     +++|
05076  M00S03623.1xd     +++| ECI      SUBR               ENTRY/EXIT
05077  M00S03624.1xd     +++| ECI1     RJM    SAP         SELECT ADAPTOR PORT
05078  M00S03625.1xd     +++|          LDC    F0715       ENABLE INTERRUPTS
05079  M00S03626.1xd     +++|          RJM    FCN
05080  M00S03627.1xd     +++|          RJM    LDP         LOAD DEVICE PARAMETERS
05081  M00S03628.1xd     +++|          RJM    GIS         GET INTERRUPT STATUS
05082  M00S03629.1xd     +++|          LPML   TMSK,CN
05083  M00S03630.1xd     +++|          ZJN    ECI3        IF NO INTERRUPT FROM THIS CONTROLLER
05084  M00S03631.1xd     +++|
05085  M00S03632.1xd     +++|*         CHECK THAT INTERRUPT BELONGS TO CURRENT DRIVE.
05086  M00S03633.1xd     +++|
05087  M00S03634.1xd     +++|          RJM    IHD
Line S03635 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05088  M01S03635.1xd5    ---|          ZJN    ECI1        IF RESPONSE FROM INACTIVE DRIVE
Line S00556 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05089  M01S00556.1xd5    +++|          ZJN    ECI3        IF RESPONSE FROM INACTIVE DRIVE
Line S03636 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05090  M01S03636.272l774 ---|*         LDM    ATTN
Line S00156 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05091  M01S00156.272l774 +++|*         LDM    ATTN,DI
05092  M00S03637.1xd     +++|          STD    PA          SET RETURN ADDRESS
05093  M00S03638.1xd     +++|          LDN    0
Line S03639 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05094  M01S03639.272l774 ---|          STM    ATTN        DEACTIVATE RETURN
Line S00157 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05095  M01S00157.272l774 +++|          STM    ATTN,DI     DEACTIVATE RETURN
Line S00557 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05096  M01S00557.1xd5    +++|          STM    ADDR,DI     CLEAR REENTRY ADDRESS
05097  M00S03640.1xd     +++|
05098  M00S03641.1xd     +++|*         RETURN TO CALLER WITH STATUS FROM RESPONSE PACKET.
05099  M00S03642.1xd     +++|
Line S03643 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05100  M01S03643.272l774 ---|          LDM    EEST        EXPECTED RESPONSE TYPE
Line S00158 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05101  M01S00158.272l774 +++|          LDM    EEST,DI     EXPECTED RESPONSE TYPE
05102  M00S03644.1xd     +++|          LMD    RT
05103  M00S03645.1xd     +++|          ZJN    ECI2        IF EXPECTED RESPONSE
05104  M00S03646.1xd     +++|          LMD    RT
05105  M00S03647.1xd     +++|          LMD    MS
05106  M00S03648.1xd     +++|          ZJN    ECI2        IF EXPECTED STATUS
05107  M00S03649.1xd     +++|          LMK    CMCS&CMSS
05108  M00S03650.1xd     +++| ECI2     LJM    0,PA        RETURN TO CALLER
05109  M00S03651.1xd     +++|
05110  M00S03652.1xd     +++| ECI3     LDD    PA
05111  M00S03653.1xd     +++|          NJN    ECI2        IF REQUEST IN PROGRESS
05112  M00S03654.1xd     +++|          LDM    ERFL
05113  M00S03655.1xd     +++|          ZJN    ECI4        IF DRIVER NOT IN ERROR PROCESSING
05114  M00S03656.1xd     +++|          LMD    DI
Line S03657 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05115  M01S03657.ns2714  ---|          NJN    ECI5        IF ERROR ON DIFFERENT DEVICE
05116  M01S03658.ns2714  ---| ECI4     LDM    PNUN
Line S00264 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05117  M01S00264.ns2714  +++|          NJN    ECI7        IF ERROR ON DIFFERENT DEVICE
05118  M01S00265.ns2714  +++| ECI4     LDM    SRSA
05119  M01S00266.ns2714  +++|          NJN    ECI7        IF RESET IN PROGRESS
Line S00267 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05120  M02S00267.272l774 ---|          LDM    PNUN
Line S03659 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05121  M01S03659.272l774 ---|          SHN    -3          SET CONTROLLER BLOCK INDEX
Line S00159 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05122  M01S00159.272l774 +++|          LDM    PNUN,DI
05123  M01S00160.272l774 +++|          SHN    -6          SET CONTROLLER BLOCK INDEX
05124  M00S03660.1xd     +++|          STD    T5
05125  M00S03661.1xd     +++|          LDML   CSTB,T5     CHECK CONTROLLER STATUS
Line S03662 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05126  M01S03662.ns2714  ---|          SHN    -16
05127  M01S03663.ns2714  ---|          ZJP    ECIX        IF AVAILABLE
Line S00268 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05128  M02S00268.1xd5    ---| ECI5     SHN    -16
Line S00558 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05129  M01S00558.1xd5    +++|          SHN    -16
Line S00269 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05130  M01S00269.ns2714  +++|          ZJN    ECI7        IF AVAILABLE
05131  M00S03664.1xd     +++|          SHN    -1
Line S03665 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05132  M01S03665.ns2714  ---|          ZJN    ECI6        IF NOT RESET FAILURE
05133  M01S03666.ns2714  ---|          LDM    SRSA
05134  M01S03667.ns2714  ---|          NJN    ECI5        IF RESET IN PROGRESS
Line S00270 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05135  M02S00270.1xd5    ---|          ZJN    ECI8        IF NOT RESET FAILURE
Line S00559 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05136  M01S00559.1xd5    +++|          ZJN    ECI8        IF NOT SLAVE RESET FAILURE
05137  M01S00560.1xd5    +++|          LDM    ENAD,DI
05138  M01S00561.1xd5    +++|          NJN    ECI6        IF DRIVE ALREADY DISABLED
05139  M00S03668.1xd     +++|          LDC    SRSH
Line S03669 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05140  M01S03669.ns2714  ---|          STM    IOMA
05141  M01S03670.ns2714  ---| ECI5     LJM    XMD2        RETURN TO MAIN LOOP
Line S00271 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05142  M01S00271.ns2714  +++|          STM    IOMA        SET ERROR MESSAGE
Line S00272 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05143  M02S00272.1xd5    ---|          LDM    ENAD
05144  M02S00273.1xd5    ---|          NJN    ECI5        IF DRIVE DISABLED
05145  M02S00274.1xd5    ---|          RJM    SUI         SET UNIT INTERLOCK
05146  M02S00275.1xd5    ---|          ZJN    ECI10       IF INTERLOCK ACQUIRED
05147  M02S00276.1xd5    ---|*         LDN    1
Line S00562 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05148  M01S00562.1xd5    +++|          STM    ENAD,DI     DISABLE DRIVE
05149  M01S00563.1xd5    +++| ECI6     LDN    0
Line S00277 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05150  M01S00277.ns2714  +++| ECI7     LJM    ECIX        RETURN
Line S00564 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05151  M01S00564.1xd5    +++|
05152  M01S00565.1xd5    +++|*         AT DRIVER INITIATION, PERFORM LOGICAL RESET ON CONTROLLING
05153  M01S00566.1xd5    +++|*         DRIVE OF EACH CONTROL MODULE.  NO ACTIVITY ON OTHER DRIVES
05154  M01S00567.1xd5    +++|*         ON THE CONTROL MODULE WILL BE ALLOWED UNTIL THE RESET IS
05155  M01S00568.1xd5    +++|*         COMPLETE.
05156  M00S03671.1xd     +++|
Line S03672 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05157  M01S03672.ns2714  ---| ECI6     LDM    CSTB,T5     CHECK CONTROLLING DRIVE INDEX
Line S00278 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05158  M01S00278.ns2714  +++| ECI8     LDM    CSTB,T5     CHECK CONTROLLING DRIVE INDEX
05159  M00S03673.1xd     +++|          LMD    DI
Line S03674 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05160  M01S03674.ns2714  ---|          NJN    ECI5        IF NOT THIS DRIVE
Line S00279 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05161  M01S00279.ns2714  +++|          NJN    ECI7        IF NOT THIS DRIVE
05162  M00S03675.1xd     +++|          RJM    SUI         SET UNIT INTERLOCK
Line S03676 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05163  M01S03676.ns2714  ---|          NJN    ECI5        IF DEVICE ASSIGNED ELSEWHERE
Line S00280 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05164  M01S00280.ns2714  +++|          NJN    ECI7        IF DEVICE ASSIGNED ELSEWHERE
Line S03677 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05165  M01S03677.1xd5    ---|          LDN    SSTL        READ SYSTEM STATUS WORD
05166  M01S03678.1xd5    ---|          CRD    CM
05167  M01S03679.1xd5    ---|          LDD    CM+1        EXTRACT CM RESET ENABLE
05168  M01S03680.1xd5    ---|          SHN    0-13
05169  M01S03681.1xd5    ---|          LJM    SRS         INITIATE SLAVE RESET
Line S00281 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05170  M02S00281.1xd5    ---|
05171  M02S00282.1xd5    ---|*ECI10    LDN    0           CLEAR CHANNEL ERROR
05172  M02S00283.1xd5    ---| ECI10    STM    EDBF+FCS1
05173  M02S00284.1xd5    ---|          LDN    4           SET MESSAGE LENGTH
05174  M02S00285.1xd5    ---|          STM    MSGL+1
05175  M02S00286.1xd5    ---|          LDN    ECRE        CONTROLLER RESET FAULT
05176  M02S00287.1xd5    ---|          STM    ENAD
05177  M02S00288.1xd5    ---|          RJM    ERR         PROCESS ERROR
Line S00569 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05178  M01S00569.1xd5    +++|          LDC    1S12+CMP
05179  M01S00570.1xd5    +++|          LJM    SRS         INITIATE LOGICAL RESET
05180  M00S03682.1xd     +++| FCN      SPACE  4,10
05181  M00S03683.1xd     +++|**        FCN - ISSUE FUNCTION.
05182  M00S03684.1xd     +++|*
05183  M00S03685.1xd     +++|*         ENTRY  (A) = FUNCTION CODE.
05184  M00S03686.1xd     +++|*
05185  M00S03687.1xd     +++|*         EXIT   (A) .NE. 0.
05186  M00S03688.1xd     +++|*                (LF) = FUNCTION CODE.
05187  M00S03689.1xd     +++|*
Line S00161 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05188  M01S00161.272l774 +++|*         USES   LF.
05189  M01S00162.272l774 +++|*
05190  M00S03690.1xd     +++|*         ERROR  TO *ERR*.
05191  M00S03691.1xd     +++|
05192  M00S03692.1xd     +++|
05193  M00S03693.1xd     +++| FCN2     DCN    CH+40       LEAVE CHANNEL INACTIVE
05194  M00S03694.1xd     +++|
05195  M00S03695.1xd     +++| FCN      SUBR               ENTRY/EXIT
05196  M00S03696.1xd     +++|          DCN    CH+40
05197  M00S03697.1xd     +++|          STDL   LF
05198  M00S03698.1xd     +++|          FAN    CH          ISSUE FUNCTION
05199  M00S03699.1xd     +++|          LDN    20D
05200  M00S03700.1xd     +++| FCN1     IJM    FCNX,CH     IF FUNCTION ACCEPTED
05201  M00S03701.1xd     +++|          SBN    1
05202  M00S03702.1xd     +++|          NJN    FCN1        IF NOT TIMED OUT
Line S03703 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05203  M01S03703.ns2714  ---|          LDM    ERFL
Line S00289 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05204  M02S00289.272l774 ---|          LDM    ESAD
Line S00163 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05205  M01S00163.272l774 +++|          LDM    ESAD,DI
05206  M00S03704.1xd     +++|          NJN    FCN2        IF ERROR IN PROGRESS
05207  M00S03705.1xd     +++|          LDN    ETFN
05208  M00S03706.1xd     +++|          RJM    ERR         PROCESS ERROR
05209  M00S03707.1xd     +++| GIS      SPACE  4,10
05210  M00S03708.1xd     +++|**        GIS - GET INTERRUPT STATUS.
05211  M00S03709.1xd     +++|*
05212  M00S03710.1xd     +++|*         EXIT   (A) = (GISA) = INTERRUPT STATUS.
05213  M00S03711.1xd     +++|*
05214  M00S03712.1xd     +++|*         CALLS  FCN, RSR.
05215  M00S03713.1xd     +++|
05216  M00S03714.1xd     +++|
05217  M00S03715.1xd     +++| GIS2     IAN    CH          READ INTERRUPT STATUS
05218  M00S03716.1xd     +++| GIS3     STML   GISA
05219  M00S03717.1xd     +++|          LDC    F0711       NEGATE MASTER OUT
05220  M00S03718.1xd     +++|          RJM    FCN
05221  M00S03719.1xd     +++|          LDN    20D         READ SLAVE RESPONSE
05222  M00S03720.1xd     +++|          RJM    RSR
05223  M00S03721.1xd     +++|          LDML   GISA        RETURN WITH (A) = STATUS
05224  M00S03722.1xd     +++|
05225  M00S03723.1xd     +++| GIS      SUBR               ENTRY/EXIT
05226  M00S03724.1xd     +++|          LDN    20D
05227  M00S03725.1xd     +++|          ACN    CH+40
05228  M00S03726.1xd     +++| GIS1     FJM    GIS2,CH     IF SLAVE IN
05229  M00S03727.1xd     +++|          SBN    1
05230  M00S03728.1xd     +++|          NJN    GIS1        IF NOT TIMED OUT
05231  M00S03729.1xd     +++|*         LDN    0
05232  M00S03730.1xd     +++|          UJP    GIS3        SET NULL STATUS
05233  M00S03731.1xd     +++|
05234  M00S03732.1xd     +++|
05235  M00S03733.1xd     +++| GISA     CON    0
05236  M00S03734.1xd     +++| GSS      SPACE  4,15
05237  M00S03735.1xd     +++|**        GSS - GET SLAVE STATUS.
05238  M00S03736.1xd     +++|*
05239  M00S03737.1xd     +++|*         ENTRY  (A) = 0 IF STATUS W/O MASTER TERMINATE.
05240  M00S03738.1xd     +++|*                    = MASTER TERMINATE OPTION.
05241  M00S03739.1xd     +++|*                (T1) = RESIDUAL BYTE COUNT.
05242  M00S03740.1xd     +++|*
05243  M00S03741.1xd     +++|*         EXIT   (A) = (T7) = SLAVE STATUS IF TRANSFER SUCCESSFUL.
05244  M00S03742.1xd     +++|*                (GSSA) = SLAVE STATUS AS READ FROM CONTROLLER.
05245  M00S03743.1xd     +++|*
05246  M00S03744.1xd     +++|*         ERROR  TO *ERR* IF STATUS ERROR.
05247  M00S03745.1xd     +++|*
Line S03746 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05248  M01S03746.273l780 ---|*         CALLS  CFE, FCN.
Line S00143 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05249  M01S00143.273l780 +++|*         USES   T7.
05250  M01S00144.273l780 +++|*
05251  M01S00145.273l780 +++|*         CALLS  FCN, RRP, RSR.
05252  M00S03747.1xd     +++|
05253  M00S03748.1xd     +++|
Line S03749 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05254  M01S03749.273l780 ---| GSS1     SHN    10          REALIGN ENDING STATUS
Line S00146 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05255  M01S00146.273l780 +++| GSS5     LDML   GSSA        ENDING STATUS
05256  M00S03750.1xd     +++|          STDL   T7
05257  M00S03751.1xd     +++|
05258  M00S03752.1xd     +++| GSS      SUBR               ENTRY/EXIT
05259  M00S03753.1xd     +++|          SHN    10
05260  M00S03754.1xd     +++|          ADC    F8039       INDICATE TRANSFER SUCCESSFUL
05261  M00S03755.1xd     +++|          RJM    FCN
05262  M00S03756.1xd     +++|          LDC    2000        READ SLAVE RESPONSE
05263  M00S03757.1xd     +++|          RJM    RSR
05264  M00S03758.1xd     +++|          STML   GSSA
Line S03759 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05265  M01S03759.273l780 ---|          LDD    T1          CHECK CHANNEL ERROR
05266  M01S03760.273l780 ---|          RJM    CFE
05267  M01S03761.273l780 ---|          LDML   GSSA        REVIEW ENDING STATUS
05268  M01S03762.273l780 ---|          SHN    21-7
05269  M01S03763.273l780 ---|          MJN    GSS1        IF TRANSFER SUCCESSFUL
05270  M01S03764.273l780 ---|          LDN    EUST
05271  M01S03765.273l780 ---|          RJM    ERR         PROCESS ERROR
Line S00147 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05272  M01S00147.273l780 +++|          SFM    GSS3,CH     IF ERROR FLAG SET
05273  M01S00148.273l780 +++|          SHN    21-7
05274  M01S00149.273l780 +++|          PJN    GSS1        IF TRANSFER NOT SUCCESSFUL
05275  M01S00150.273l780 +++|          LDD    T1
05276  M01S00151.273l780 +++|          ZJN    GSS5        IF ALL WORDS TRANSFERRED
05277  M01S00152.273l780 +++|          LDN    EIDT
05278  M01S00153.273l780 +++|          UJN    GSS4        PROCESS ERROR
05279  M01S00154.273l780 +++|
05280  M01S00155.273l780 +++| GSS1     SHN    10
05281  M01S00156.273l780 +++|          LPC    117
05282  M01S00157.273l780 +++|          LMN    3
05283  M01S00158.273l780 +++|          NJN    GSS2        IF NOT COMMAND REJECT
05284  M01S00159.273l780 +++|
05285  M01S00160.273l780 +++|*         IF CONTROLLER OVER TEMPERATURE OCCURS BEFORE THE COMMAND IS
05286  M01S00161.273l780 +++|*         ISSUED, A COMMAND REJECT ERROR COULD OCCUR.  A LOGICAL RESET
05287  M01S00162.273l780 +++|*         WOULD CAUSE THE OVER TEMPERATURE STATUS TO BE LOST.
05288  M01S00163.273l780 +++|
05289  M01S00164.273l780 +++|          RJM    RRP         READ RESPONSE PACKET
05290  M01S00165.273l780 +++|          LCN    EUST
05291  M01S00166.273l780 +++|          UJN    GSS4        PROCESS ERROR
05292  M01S00167.273l780 +++|
05293  M01S00168.273l780 +++| GSS2     LDN    EUST
05294  M01S00169.273l780 +++|          UJN    GSS4        PROCESS ERROR
05295  M01S00170.273l780 +++|
05296  M01S00171.273l780 +++| GSS3     LDN    ECIE
05297  M01S00172.273l780 +++| GSS4     RJM    ERR         PROCESS ERROR
05298  M00S03766.1xd     +++|
05299  M00S03767.1xd     +++|
05300  M00S03768.1xd     +++| GSSA     CON    0           ENDING STATUS
05301  M00S03769.1xd     +++| IHD      SPACE  4,15
05302  M00S03770.1xd     +++|**        IHD - INTERRUPT HANDLER.
05303  M00S03771.1xd     +++|*
05304  M00S03772.1xd     +++|*         ENTRY  (DI) = *DSTB* ADDRESS.
05305  M00S03773.1xd     +++|*                (DN) = DRIVE NUMBER.
05306  M00S03774.1xd     +++|*
05307  M00S03775.1xd     +++|*         EXIT   (A) = EXIT CONDITION FROM ROUTINE *VIS*.
05308  M00S03776.1xd     +++|*                    = 0 IF INTERRUPT FOR INACTIVE DRIVE.
05309  M00S03777.1xd     +++|*                    = RETURN ADDRESS TO PROCESSOR.
05310  M00S03778.1xd     +++|*                (MS) = MAJOR STATUS FROM RESPONSE PACKET.
05311  M00S03779.1xd     +++|*                (RT) = RESPONSE TYPE FROM STATUS BLOCK.
05312  M00S03780.1xd     +++|*
Line S03781 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05313  M01S03781.1xd5    ---|*         USES   T4.
Line S00571 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05314  M01S00571.1xd5    +++|*         USES   DI, MS, RT, T4.
05315  M00S03782.1xd     +++|*
Line S03783 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05316  M01S03783.1xd5    ---|*         CALLS  DCM, LSD, RRP, SCM, VIS.
Line S00572 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05317  M02S00572.273l780 ---|*         CALLS  DCM, LDP, LSD, RRP, SCM, VIS.
Line S00173 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05318  M01S00173.273l780 +++|*         CALLS  CCO, DCM, LDP, LSD, RRP, SCM, VIS.
05319  M00S03784.1xd     +++|
05320  M00S03785.1xd     +++|
05321  M00S03786.1xd     +++| IHD4     LCN    0           INDICATE ASYNC INTERRUPT
05322  M00S03787.1xd     +++| IHD5     RJM    VIS         VERIFY INTERRUPT SOURCE
05323  M00S03788.1xd     +++|
05324  M00S03789.1xd     +++| IHD      SUBR               ENTRY/EXIT
05325  M00S03790.1xd     +++|          RJM    SCM         SELECT CONTROL MODULE
05326  M00S03791.1xd     +++|          RJM    RRP         READ RESPONSE PACKET
05327  M00S03792.1xd     +++|          LDML   RPBF+MST
05328  M00S03793.1xd     +++|          STDL   MS          SAVE MAJOR STATUS
05329  M00S03794.1xd     +++|          SHN    -4
05330  M00S03795.1xd     +++|          LPN    17          EXTRACT RESPONSE TYPE
05331  M00S03796.1xd     +++|          STD    RT
05332  M00S03797.1xd     +++|          LMN    XFNT
05333  M00S03798.1xd     +++|          ZJN    IHD5        IF TRANSFER NOTIFICATION
05334  M00S03799.1xd     +++|          RJM    DCM         DESELECT CONTROL MODULE
05335  M00S03800.1xd     +++|          LDD    RT          CHECK RESPONSE TYPE
05336  M00S03801.1xd     +++|          LMN    ASRT
05337  M00S03802.1xd     +++|          NJN    IHD5        IF NOT ASYNC (UNSOLICITED) RESPONSE
05338  M00S03803.1xd     +++|          LDM    RPBF+CUN
05339  M00S03804.1xd     +++|          LPC    377
05340  M00S03805.1xd     +++|          STD    T4          SAVE DRIVE NUMBER
05341  M00S03806.1xd     +++|          LMC    0#FF
Line S03807 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05342  M01S03807.1xd5    ---|          ZJN    IHD4        IF RESPONSE FROM CONTROLLER
05343  M01S03808.1xd5    ---|          LDD    T4          CHECK FACILITY ADDRESS
Line S00573 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05344  M01S00573.1xd5    +++|          NJN    IHD1        IF NOT RESPONSE FROM CONTROLLER
Line S00174 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05345  M01S00174.273l780 +++|          LDN    1           ISSUE BML MESSAGE IF OVER TEMPERATURE
05346  M01S00175.273l780 +++|          RJM    CCO         CHECK FOR CONTROLLER OVER TEMPERATURE
Line S00574 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05347  M01S00574.1xd5    +++|          LDM    SRSA
05348  M01S00575.1xd5    +++|          ZJN    IHD3        IF RESET NOT IN PROGRESS
05349  M01S00576.1xd5    +++|          STD    DI          SET DEVICE INDEX
05350  M01S00577.1xd5    +++|          RJM    LDP
05351  M01S00578.1xd5    +++| IHD0     LJM    IHD4        PROCESS ASYNC INTERRUPT
05352  M01S00579.1xd5    +++|
05353  M01S00580.1xd5    +++|*         ON SLAVE RESET, IF DRIVE INTERRUPT FOR THE CONTROLLING DRIVE
05354  M01S00581.1xd5    +++|*         IS RECEIVED BEFORE THE CONTROLLER INTERRUPT, CLEAR *SRSC*
05355  M01S00582.1xd5    +++|*         AND DISCARD DRIVE INTERRUPT.
05356  M01S00583.1xd5    +++|
05357  M01S00584.1xd5    +++| IHD1     LDD    T4          CHECK FACILITY ADDRESS
05358  M00S03809.1xd     +++|          LMD    DN
05359  M00S03810.1xd     +++|          ZJN    IHD2        IF INTERRUPT FROM CURRENT DRIVE
Line S03811 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05360  M01S03811.ns2714  ---|          LDM    PNUN
05361  M01S03812.ns2714  ---|          SHN    -3          LOCATE SPECIFIED DRIVE
Line S03813 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05362  M01S03813.1xd5    ---|          RJM    LSD
Line S00585 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05363  M01S00585.1xd5    +++|          RJM    LSD         LOCATE SELECTED DRIVE
05364  M00S03814.1xd     +++|          ZJN    IHD3        IF DRIVE UNKNOWN ON THIS CONTROLLER
Line S03815 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05365  M01S03815.1xd5    ---|          STD    DI
Line S00586 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05366  M01S00586.1xd5    +++|          STD    DI          SET DEVICE INDEX
05367  M01S00587.1xd5    +++|          RJM    LDP
05368  M00S03816.1xd     +++| IHD2     LDM    SRSA        CHECK RESET IN PROGRESS
05369  M00S03817.1xd     +++|          LMD    DI
Line S03818 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05370  M01S03818.1xd5    ---|          NJP    CMP9        IF NOT FIRST DRIVE ON CONTROLLER
05371  M01S03819.1xd5    ---|          STM    SRSC
Line S00588 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05372  M01S00588.1xd5    +++|          NJN    IHD0        IF NOT DRIVE CONTROLLING RESET
05373  M01S00589.1xd5    +++|          STM    SRSC        INDICATE DRIVE INTERRUPT RECEIVED
05374  M00S03820.1xd     +++| IHD3     LJM    XMD2        RETURN TO MAIN LOOP
05375  M00S03821.1xd     +++| RCR      SPACE  4,10
05376  M00S03822.1xd     +++|**        RCR - RESET CHANNEL REGISTERS.
05377  M00S03823.1xd     +++|*
05378  M00S03824.1xd     +++|*         ENTRY  (CR) = CHANNEL RESERVATION STATUS.
05379  M00S03825.1xd     +++|*
05380  M00S03826.1xd     +++|*         EXIT   (SF) = 0 (DEVICE NOT SELECTED).
05381  M00S03827.1xd     +++|*
05382  M00S03828.1xd     +++|*         CALLS  FCN.
05383  M00S03829.1xd     +++|*
05384  M00S03830.1xd     +++|*         MACROS WAIT.
05385  M00S03831.1xd     +++|
05386  M00S03832.1xd     +++|
05387  M00S03833.1xd     +++| RCR      SUBR               ENTRY/EXIT
05388  M00S03834.1xd     +++|          LDD    CR
05389  M00S03835.1xd     +++|          ZJN    RCRX        IF CHANNEL NOT RESERVED
05390  M00S03836.1xd     +++|          LDN    F0000
05391  M00S03837.1xd     +++|          RJM    FCN         MASTER CLEAR THE ADAPTOR
05392  M00S03838.1xd     +++|          WAIT   100
05393  M00S03839.1xd     +++|*         LDN    0           SET DEVICE NOT SELECTED
05394  M00S03840.1xd     +++|          STD    SF
05395  M00S03841.1xd     +++|          ADK    F0000-0     ENSURE NO SEQUENCE ERROR
05396  M00S03842.1xd     +++|          RJM    FCN
05397  M00S03843.1xd     +++|          LDC    F7E42       FIX CHANNEL TRANSFER RATE AT 10 MB
05398  M00S03844.1xd     +++|          RJM    FCN
05399  M00S03845.1xd     +++|          UJN    RCRX        RETURN
05400  M00S03846.1xd     +++| RIF      SPACE  4,15
05401  M00S03847.1xd     +++|**        RIF - RESET INTERFACE.
05402  M00S03848.1xd     +++|*
Line S03849 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05403  M01S03849.1xd5    ---|*         ENTRY  (A) = 0 TO RESET SLAVE INTERFACE.
05404  M01S03850.1xd5    ---|*                    = 1 TO RESET LOGICAL INTERFACE.
Line S00590 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05405  M01S00590.1xd5    +++|*         ENTRY  (RW) = 0 TO RESET SLAVE INTERFACE.
05406  M01S00591.1xd5    +++|*                (RW) = 1 TO RESET LOGICAL INTERFACE.
05407  M00S03851.1xd     +++|*                (CN) = CONTROLLER NUMBER.
05408  M00S03852.1xd     +++|*
05409  M00S03853.1xd     +++|*         EXIT   (RF) = 1.
05410  M00S03854.1xd     +++|*
Line S03855 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05411  M01S03855.1xd5    ---|*         USES   T7.
Line S00592 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05412  M01S00592.1xd5    +++|*         USES   RF.
05413  M00S03856.1xd     +++|*
Line S03857 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05414  M01S03857.1xd5    ---|*         CALLS  FCN, SAP.
Line S00593 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05415  M01S00593.1xd5    +++|*         CALLS  FCN, RCR, SAP.
05416  M00S03858.1xd     +++|*
05417  M00S03859.1xd     +++|*         MACROS WAIT.
05418  M00S03860.1xd     +++|
05419  M00S03861.1xd     +++|
05420  M00S03862.1xd     +++| RIF      SUBR               ENTRY/EXIT
Line S03863 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05421  M01S03863.1xd5    ---|          STD    T7
Line S00594 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05422  M01S00594.1xd5    +++|          AOD    RF          FLAG RESET IN PROGRESS
05423  M01S00595.1xd5    +++|          RJM    RCR         RESET CHANNEL REGISTERS
05424  M00S03864.1xd     +++|          RJM    SAP         SELECT ADAPTOR PORT
05425  M00S03865.1xd     +++|          LDD    CN
05426  M00S03866.1xd     +++|          SHN    14          FORM RESET FUNCTION
Line S03867 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05427  M01S03867.1xd5    ---|          LMML   RIFA,T7
Line S00596 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05428  M01S00596.1xd5    +++|          LMML   RIFA,RW
05429  M00S03868.1xd     +++|          RJM    FCN         ISSUE LOGICAL RESET
05430  M00S03869.1xd     +++|          WAIT   20
Line S03870 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05431  M01S03870.1xd5    ---|          AOD    RF          FLAG RESET IN PROGRESS
Proceed to Part 4