Deck 1DA Part 003

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00031 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02577  M02S00031.ns2783  ---|**        CBD - CHECK IF BST/BAT PROCESSING DISABLED.
02578  M01S00311.ns2783  +++|
02579  M01S00312.ns2783  +++|
02580  M01S00313.ns2783  +++| ATTA     CON    0           ADDRESS FOR INTERRUPT TIMEOUT
02581  M01S00314.ns2783  +++| CAA      SPACE  4,10
02582  M01S00315.ns2783  +++|**        CAA - CHECK IF ACCESS TO PARITY DEVICE IS ALLOWED.
02583  M01S00032.283l840 +++|*
02584  M01S00316.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
02585  M01S00317.ns2783  +++|*                (DVTP,DI) BIT 7 SET, TIME TO CHECK FOR MMF *RESTORE*.
02586  M01S00318.ns2783  +++|*
02587  M01S00319.ns2783  +++|*         EXIT   (A) = 0, IF ACCESS ALLOWED.
02588  M01S00320.ns2783  +++|*
02589  M01S00321.ns2783  +++|*         CALLS  CMR, DMP, EMP.
02590  M01S00322.ns2783  +++|
02591  M01S00323.ns2783  +++|
02592  M01S00324.ns2783  +++| CAA8     LDN    0           INDICATE ACCESS ALLOWED
02593  M01S00325.ns2783  +++|
02594  M01S00326.ns2783  +++| CAA      SUBR               ENTRY/EXIT
02595  M01S00327.ns2783  +++|          LDML   ADDR,DI
02596  M01S00328.ns2783  +++|*         UJN    CAA8        (NO SHARED DEVICES CONFIGURED)
02597  M01S00329.ns2783  +++| CAAA     EQU    *-2
02598  M01S00330.ns2783  +++|          NJN    CAA8        IF REQUEST IN PROGRESS ON THIS DEVICE
02599  M01S00331.ns2783  +++|          LDM    RSIN        CHECK IF RESTORE INTERLOCK SET
02600  M01S00332.ns2783  +++|          LMD    DI
02601  M01S00333.ns2783  +++|          ZJN    CAAX        IF INTERLOCK SET FOR THIS DEVICE
02602  M01S00334.ns2783  +++|          LDML   DVTP,DI
02603  M01S00335.ns2783  +++|          SHN    21-7
02604  M01S00336.ns2783  +++|          MJN    CAA2        IF TIME TO CHECK FOR MMF RESTORE
02605  M01S00337.ns2783  +++| CAA1     LDML   DVTP,DI     CHECK IF ACCESS ALLOWED
02606  M01S00338.ns2783  +++|          SHN    0-10
02607  M01S00339.ns2783  +++|          LPN    21          *ACCESS DISABLED* AND *RESTORE INITIATION*
02608  M01S00340.ns2783  +++|          UJN    CAAX        RETURN
02609  M01S00341.ns2783  +++|
02610  M01S00342.ns2783  +++| CAA2     LDML   DVTP,DI     CLEAR *CHECK MMF PARITY ACCESS* BIT
02611  M01S00343.ns2783  +++|          LPC    177577
02612  M01S00344.ns2783  +++|          STML   DVTP,DI
02613  M01S00345.ns2783  +++|          SHN    21-10       CHECK MMF RESTORE BITS
02614  M01S00346.ns2783  +++|          MJN    CAA5        IF *MMF RESTORE INITIATION* FLAG SET
02615  M01S00347.ns2783  +++|          RJM    CMR         CHECK MMF RESTORE FLAGS IN MST
02616  M01S00348.ns2783  +++|          PJN    CAA7        IF RESTORE INITIATION NOT IN PROGRESS
02617  M01S00349.ns2783  +++|          LDML   DVTP,DI     SET *MMF RESTORE INITIATION* FLAG
02618  M01S00350.ns2783  +++|          LPC    177377
02619  M01S00351.ns2783  +++|          LMC    400
02620  M01S00352.ns2783  +++|          STML   DVTP,DI
02621  M01S00353.ns2783  +++| CAA3     RJM    DMP         DISABLE MMF PARITY DEVICE ACCESS
02622  M01S00354.ns2783  +++| CAA4     UJN    CAA1        RETURN ACCESS PERMISSION
02623  M01S00355.ns2783  +++|
02624  M01S00356.ns2783  +++| CAA5     RJM    CMR         CHECK MMF RESTORE FLAGS IN MST
02625  M01S00357.ns2783  +++|          PJN    CAA6        IF RESTORE INITIATION COMPLETE
02626  M01S00358.ns2783  +++|          LDML   DVTP,DI     CHECK MMF RESTORE BITS
02627  M01S00359.ns2783  +++|          SHN    21-14
02628  M01S00360.ns2783  +++|          PJN    CAA3        IF *DISABLE* FLAG NOT SET
02629  M01S00361.ns2783  +++|          UJN    CAA4        RETURN ACCESS PERMISSION
02630  M01S00362.ns2783  +++|
02631  M01S00363.ns2783  +++| CAA6     RJM    EMP         ENABLE MMF PARITY ACCESS, IF POSSIBLE
02632  M01S00364.ns2783  +++|          UJN    CAA4        RETURN ACCESS PERMISSION
02633  M01S00365.ns2783  +++|
02634  M01S00366.ns2783  +++| CAA7     LDML   DVTP,DI     CHECK MMF RESTORE BITS
02635  M01S00367.ns2783  +++|          SHN    0-13
02636  M01S00368.ns2783  +++|          LPN    3
02637  M01S00369.ns2783  +++|          ZJN    CAA4        IF NEITHER *ENABLE* OR *DISABLE* BIT SET
02638  M01S00370.ns2783  +++|          LDM    CMRA
02639  M01S00371.ns2783  +++|          NJN    CAA4        IF RESTORE STILL IN PROGRESS
02640  M01S00372.ns2783  +++|          UJN    CAA6        ENABLE MMF PARITY ACCESS
02641  M01S00373.ns2783  +++| CAB      SPACE  4,10
02642  M01S00374.ns2783  +++|**        CAB - CHECK ACGL *MMF PARITY DEVICE ACCESS* BIT.
02643  M01S00375.ns2783  +++|*
02644  M01S00033.283l840 +++|*         ENTRY  (EO) = EST ORDINAL.
02645  M01S00034.283l840 +++|*
Line S00035 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02646  M02S00035.ns2783  ---|*         EXIT   (A) = 0, IF BST/BAT PROCESSING IS NOT DISABLED.
Line S00036 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02647  M02S00036.ns2783  ---|*                (T5) = EST ORDINAL.
02648  M01S00376.ns2783  +++|*         EXIT   (A) = 0, IF THE BIT FOR THIS MAINFRAME IS CLEAR.
02649  M01S00037.283l840 +++|*
Line S00038 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02650  M02S00038.ns2783  ---|*         USES   T5, CM - CM+4.
02651  M01S00377.ns2783  +++|*         USES   CM - CM+4.
02652  M01S00039.283l840 +++|*
Line S00040 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02653  M02S00040.ns2783  ---|*         MACROS SFA.
02654  M01S00378.ns2783  +++|*         CALLS  REE.
02655  M01S00041.283l840 +++|
02656  M01S00042.283l840 +++|
Line S00043 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2775
Seq #  *Modification Id* Act 
----------------------------+
02657  M02S00043.ns2775  ---|CBD       SUBR               ENTRY/EXIT
Line S00007 Modification History
M01 (Added by) ns2775
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02658  M02S00007.ns2783  ---| CBD      SUBR               ENTRY/EXIT
02659  M01S00379.ns2783  +++| CAB      SUBR               ENTRY/EXIT
02660  M01S00380.ns2783  +++|          RJM    REE         READ EST ENTRY
02661  M01S00381.ns2783  +++|          LDD    CM+4
02662  M01S00382.ns2783  +++|          SHN    3
02663  M01S00383.ns2783  +++|          ADN    ACGL
02664  M01S00384.ns2783  +++|          CRD    CM
02665  M01S00385.ns2783  +++|          LDD    CM
02666  M01S00386.ns2783  +++|          LPN    0           (MACHINE MASK FOR THIS MF)
02667  M01S00387.ns2783  +++| CABA     EQU    *-1
02668  M01S00388.ns2783  +++|          UJN    CABX        RETURN
02669  M01S00389.ns2783  +++| CAC      SPACE  4,15
02670  M01S00390.ns2783  +++|**        CAC - CHECK FOR ALTERNATE CHANNEL.
02671  M01S00391.ns2783  +++|*
02672  M01S00392.ns2783  +++|*         ENTRY  (EO) = EST ORDINAL.
02673  M01S00393.ns2783  +++|*
02674  M01S00394.ns2783  +++|*         EXIT   (A) = 0, IF ALTERNATE CHANNEL DEFINED AND UP.
02675  M01S00395.ns2783  +++|*                (CM - CM+4) = *EQDE* WORD OF EST.
02676  M01S00396.ns2783  +++|*                (T1) = INDEX INTO (CM+1) FOR THIS CHANNEL.
02677  M01S00397.ns2783  +++|*                (T2) = INDEX INTO (CM+1) FOR ALTERNATE CHANNEL.
02678  M01S00398.ns2783  +++|*                (T6) = MST ADDRESS / 10B.
02679  M01S00399.ns2783  +++|*
02680  M01S00400.ns2783  +++|*         USES   T2.
02681  M01S00401.ns2783  +++|*
02682  M01S00402.ns2783  +++|*         CALLS  CCI.
02683  M01S00403.ns2783  +++|
02684  M01S00404.ns2783  +++|
02685  M01S00405.ns2783  +++| CAC      SUBR               ENTRY/EXIT
02686  M01S00406.ns2783  +++|          RJM    CCI         CALCULATE CHANNEL INDEX
02687  M01S00407.ns2783  +++|          LMN    1
02688  M01S00408.ns2783  +++|          STD    T2
02689  M01S00409.ns2783  +++|          LDM    CM+1,T2     CHECK ALTERNATE CHANNEL
02690  M01S00410.ns2783  +++|          SHN    -11         CHECK IF ALTERNATE CHANNEL DEFINED AND UP
02691  M01S00411.ns2783  +++|          LMN    4
02692  M01S00412.ns2783  +++|          UJN    CACX        RETURN
02693  M01S00413.ns2783  +++| CAN      SPACE  4,10
02694  M01S00414.ns2783  +++|**        CAN - CONVERT ASCII NUMBER TO DISPLAY CODE.
02695  M01S00415.ns2783  +++|*
02696  M01S00416.ns2783  +++|*         ENTRY  (T3) = ADDRESS OF OUTPUT BUFFER.
02697  M01S00417.ns2783  +++|*                (T4) = ADDRESS OF 6-DIGIT ASCII NUMBER.
02698  M01S00418.ns2783  +++|*
02699  M01S00419.ns2783  +++|*         EXIT   (T3) ADVANCED.
02700  M01S00420.ns2783  +++|*                (T4) ADVANCED.
02701  M01S00421.ns2783  +++|*
02702  M01S00422.ns2783  +++|*         USES   T1, T3, T4.
02703  M01S00423.ns2783  +++|
02704  M01S00424.ns2783  +++|
02705  M01S00425.ns2783  +++| CAN      SUBR               ENTRY/EXIT
02706  M01S00426.ns2783  +++|          LDDL   T3
02707  M01S00427.ns2783  +++|          ADN    3
02708  M01S00428.ns2783  +++|          STDL   T1
02709  M01S00429.ns2783  +++| CAN1     LDIL   T4
02710  M01S00430.ns2783  +++|          SHN    -10
02711  M01S00431.ns2783  +++|          SBN    60-33       CONVERT ASCII TO DISPLAY CODE
02712  M01S00432.ns2783  +++|          SHN    6
02713  M01S00433.ns2783  +++|          STI    T3          UPPER CHARACTER OF WORD
02714  M01S00434.ns2783  +++|          LDIL   T4
02715  M01S00435.ns2783  +++|          LPC    377
02716  M01S00436.ns2783  +++|          SBN    60-33       CONVERT ASCII TO DISPLAY CODE
02717  M01S00437.ns2783  +++|          RAI    T3          LOWER CHARACTER OF WORD
02718  M01S00438.ns2783  +++|          AODL   T4
02719  M01S00439.ns2783  +++|          AODL   T3
02720  M01S00440.ns2783  +++|          LMDL   T1
02721  M01S00441.ns2783  +++|          NJN    CAN1        IF MORE CHARACTERS TO CONVERT
02722  M01S00442.ns2783  +++|          UJN    CANX        RETURN
02723  M01S00443.ns2783  +++| CBB      SPACE  4,10
02724  M01S00444.ns2783  +++|**        CBB - CHECK BDLL *DISABLE ACCESS* BIT.
02725  M01S00445.ns2783  +++|*
02726  M01S00446.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE INDEX.
02727  M01S00447.ns2783  +++|*
02728  M01S00448.ns2783  +++|*         EXIT   (A) .LT. 0, IF THE BIT FOR THIS CHANNEL IS SET.
02729  M01S00449.ns2783  +++|*                (A) .GE. 0, IF THE BIT FOR THIS CHANNEL IS CLEAR.
02730  M01S00450.ns2783  +++|*                (T1) = CHANNEL INDEX.
02731  M01S00451.ns2783  +++|*
02732  M01S00452.ns2783  +++|*         CALLS  CCI, RBD.
02733  M01S00453.ns2783  +++|
02734  M01S00454.ns2783  +++|
02735  M01S00455.ns2783  +++| CBB      SUBR               ENTRY/EXIT
02736  M01S00456.ns2783  +++|          RJM    CCI         CALCULATE CHANNEL INDEX
02737  M01S00457.ns2783  +++|          LDC    SHNI+21-7
02738  M01S00458.ns2783  +++|          SBD    T1
02739  M01S00459.ns2783  +++|          STM    CBBA
02740  M01S00460.ns2783  +++|          RJM    RBD         READ *BDLL*
02741  M01S00461.ns2783  +++|          LDD    CM+3        CHECK *DISABLE ACCESS* BIT IN *BDLL*
02742  M01S00462.ns2783  +++|          SHN    21-7        CHECK IF BIT SET FOR FIRST CHANNEL
02743  M01S00463.ns2783  +++|*         SHN    21-10       (CHECK IF BIT SET FOR SECOND CHANNEL)
02744  M01S00464.ns2783  +++| CBBA     EQU    *-1
02745  M01S00465.ns2783  +++|          UJN    CBBX        RETURN
02746  M01S00466.ns2783  +++| CBC      SPACE  4,10
02747  M01S00467.ns2783  +++|**        CBC - CLEAR BUFFER COUNT.
02748  M01S00468.ns2783  +++|*
02749  M01S00469.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
02750  M01S00470.ns2783  +++|*
02751  M01S00471.ns2783  +++|*         EXIT   (A) = (RQLN,DI).
02752  M01S00472.ns2783  +++|*                BUFFER COUNT IN (RQLN,DI) CLEARED.
02753  M01S00473.ns2783  +++|
02754  M01S00474.ns2783  +++|
02755  M01S00475.ns2783  +++| CBC      SUBR               ENTRY/EXIT
02756  M01S00476.ns2783  +++|          LDM    RQLN,DI
02757  M01S00477.ns2783  +++|          LPC    4000
02758  M01S00478.ns2783  +++|          STM    RQLN,DI
02759  M01S00479.ns2783  +++|          UJN    CBCX        RETURN
02760  M01S00480.ns2783  +++| CBI      SPACE  4,10
02761  M01S00481.ns2783  +++|**        CBI - CLEAR *BDT* ERROR PROCESSING INTERLOCKS.
02762  M01S00482.ns2783  +++|*
02763  M01S00483.ns2783  +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
02764  M01S00484.ns2783  +++|*                (EO) = EST ORDINAL.
02765  M01S00485.ns2783  +++|*
02766  M01S00486.ns2783  +++|*         USES   CM - CM+4.
02767  M01S00487.ns2783  +++|*
02768  M01S00488.ns2783  +++|*         CALLS  LNE, RBD, UBP.
02769  M01S00489.ns2783  +++|*
02770  M01S00490.ns2783  +++|*         MACROS MONITOR.
02771  M01S00491.ns2783  +++|
02772  M01S00492.ns2783  +++|
02773  M01S00493.ns2783  +++| CBI      SUBR               ENTRY/EXIT
02774  M01S00494.ns2783  +++|          LDN    0           INITIALIZE PARTITION SEARCH
02775  M01S00495.ns2783  +++| CBI1     RJM    LNE         LOCATE NEXT EST FOR THIS DEVICE
02776  M01S00496.ns2783  +++|          ZJN    CBIX        IF NO MORE PARTITIONS
02777  M01S00497.ns2783  +++|          RJM    RBD         READ *BDLL*
02778  M01S00498.ns2783  +++|          LDD    CM+3        CHECK IF THIS MF HOLDS INTERLOCK
02779  M01S00499.ns2783  +++|          SHN    21-12
02780  M01S00500.ns2783  +++|          PJN    CBI2        IF THIS MF DOES NOT HOLD INTERLOCK
02781  M01S00501.ns2783  +++|          LDN    CEPS        CLEAR ERROR PROCESSING INTERLOCK
02782  M01S00502.ns2783  +++|          STD    CM+1
02783  M01S00044.283l840 +++|          LDD    EO          SET EST ORDINAL
Line S00045 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02784  M02S00045.ns2783  ---|          STD    T5
Line S00046 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02785  M02S00046.ns2783  ---|          SFA    EST         READ EST ENTRY
Line S00047 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02786  M02S00047.ns2783  ---|          ADK    EQDE
Line S00048 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02787  M02S00048.ns2783  ---|          CRD    CM
Line S00049 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02788  M02S00049.ns2783  ---|          LDD    CM
Line S00050 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02789  M02S00050.ns2783  ---|          LPN    40
Line S00051 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02790  M02S00051.ns2783  ---|          ZJN    CBDX        IF NOT SHARED BUFFERED DEVICE
Line S00052 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02791  M02S00052.ns2783  ---|          LDD    CM+4
Line S00053 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02792  M02S00053.ns2783  ---|          SHN    3
Line S00054 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02793  M02S00054.ns2783  ---|          ADK    BDLL        READ *BDLL*
Line S00055 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02794  M02S00055.ns2783  ---|          CRD    CM
Line S00056 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02795  M02S00056.ns2783  ---|          LDD    CM+3
Line S00057 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02796  M02S00057.ns2783  ---|          LPC    4000        *BST/BAT PROCESSING DISABLED* FLAG
Line S00058 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02797  M02S00058.ns2783  ---|          UJN    CBDX        RETURN
02798  M01S00503.ns2783  +++|          STD    CM+4
02799  M01S00504.ns2783  +++|          MONITOR  MTEM
02800  M01S00505.ns2783  +++|*         LDN    0           CLEAR FLAG THAT SAYS THIS MF HAS INTERLOCK
02801  M01S00506.ns2783  +++|          STD    CM+2
02802  M01S00507.ns2783  +++|          LDN    26          BIT TO CHANGE
02803  M01S00508.ns2783  +++|          RJM    UBP         UPDATE *BDLL* PARAMETER
02804  M01S00509.ns2783  +++| CBI2     LDD    EO
02805  M01S00510.ns2783  +++|          UJN    CBI1        CHECK FOR NEXT PARTITION
02806  M01S01647.1da     +++| CCA      SPACE  4,20
02807  M01S01648.1da     +++|**        CCA - CHECK CONTROLLER ATTRIBUTES.
02808  M01S01649.1da     +++|*               - DISABLE USAGE STATISTIC COUNTING.
02809  M01S01650.1da     +++|*               - ENABLE MASTER TERMINATE.
02810  M01S01651.1da     +++|*               - DISABLE EXTENT RESPONSE FOR MASTER TERMINATE.
02811  M01S01652.1da     +++|*               - ENABLE REPORTING DEVICE FAULT LOG.
02812  M01S01653.1da     +++|*               - SET SPEED SELECTION TO 10 MB IF 10 MB CHANNEL.
02813  M01S01654.1da     +++|*               - SET SPEED SELECTION TO 25 MB IF 25 MB CHANNEL.
02814  M01S01655.1da     +++|*
Line S01656 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
02815  M02S01656.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
02816  M01S00161.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
02817  M01S01657.1da     +++|*                (CT) = CHANNEL TYPE.
02818  M01S01658.1da     +++|*
Line S01659 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02819  M02S01659.ns2783  ---|*         EXIT   TO *SRS1* IF CHANNEL SPEED WRONG.
02820  M01S00511.ns2783  +++|*         EXIT   TO *SRS1* WITH (RW) = 0, IF CHANNEL SPEED WRONG.
02821  M01S00512.ns2783  +++|*                TO *ERR*, IF LOAD CONTROLLER ATTRIBUTES ERROR.
02822  M01S01660.1da     +++|*
02823  M01S01661.1da     +++|*         USES   RW, TM, T1 - T3.
02824  M01S01662.1da     +++|*
02825  M01S01663.1da     +++|*         CALLS  ATT, IDT, SDT, SOC, WCB.
02826  M01S01664.1da     +++|
02827  M01S01665.1da     +++|
02828  M01S01666.1da     +++| CCA      SUBR               ENTRY/EXIT
02829  M01S01667.1da     +++|
02830  M01S01668.1da     +++|*         RESTORE CONTROLLER ATTRIBUTES.
02831  M01S01669.1da     +++|
02832  M01S01670.1da     +++|          LDC    C0202       RESTORE ATTRIBUTES OPERATION CODE
02833  M01S01671.1da     +++|          RJM    SOC         SET OPERATION CODE AND CONTROLLER
02834  M01S01672.1da     +++|          LDN    6           COMMAND PACKET LENGTH
02835  M01S01673.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
02836  M01S01674.1da     +++|          LDN    CMSS
02837  M01S01675.1da     +++|          RJM    ATT         PROCESS ATTENTION
Line S01676 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02838  M02S01676.284l847 ---|          NJP    CCA4        IF NOT SUCCESSFUL
02839  M01S00262.284l847 +++|          NJP    CCA1.1      IF NOT SUCCESSFUL
02840  M01S01677.1da     +++|          RJM    SDT         SET DATA TRANSFER MODE FOR INTERLOCK
02841  M01S01678.1da     +++|
02842  M01S01679.1da     +++|*         CHECK ATTRIBUTE PARAMETERS D1, D2, D3, D4, AND D6.
02843  M01S01680.1da     +++|
02844  M01S01681.1da     +++|          LDC    C0200       REPORT ATTRIBUTES OPERATION CODE
02845  M01S01682.1da     +++|          RJM    SOC         SET OPERATION CODE AND CONTROLLER
02846  M01S01683.1da     +++|          LDC    0#76C
02847  M01S01684.1da     +++|          STML   CPBF+FCP
02848  M01S01685.1da     +++|          LDC    0#80D1      REPORT PARAMETERS D1,D2,D3,D4,D6
02849  M01S01686.1da     +++|          STML   CPBF+FCP+1
02850  M01S01687.1da     +++|          LDC    0#D2D3
02851  M01S01688.1da     +++|          STML   CPBF+FCP+2
02852  M01S01689.1da     +++|          LDC    0#D4D6
02853  M01S01690.1da     +++|          STML   CPBF+FCP+3
02854  M01S01691.1da     +++|          LDN    14D         COMMAND PACKET LENGTH
02855  M01S01692.1da     +++|          RJM    IDT         INPUT DATA TO PP
02856  M01S01693.1da     +++|          LDN    0
02857  M01S01694.1da     +++|          STDL   T1
02858  M01S01695.1da     +++|          STDL   T2
02859  M01S01696.1da     +++|          STDL   T3
02860  M01S01697.1da     +++|          STDL   TM          DATA TRANSFER MODE IS STREAMING
02861  M01S01698.1da     +++| CCA1     LDML   ATTB,T1
02862  M01S01699.1da     +++|          LMML   CCAA,T1
Line S01700 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02863  M02S01700.284l847 ---|          NJP    CCA4        IF PARAMETER ID NOT FOUND
02864  M01S00263.284l847 +++| CCA1.1   NJN    CCA2.1      IF PARAMETER ID NOT FOUND
02865  M01S01701.1da     +++|          AODL   T1
02866  M01S01702.1da     +++|          SBN    11
02867  M01S01703.1da     +++|          PJN    CCA2        IF ALL PARAMETERS CHECKED
02868  M01S01704.1da     +++|          LDML   ATTB,T1
02869  M01S01705.1da     +++|          LMML   CCAA,T1
02870  M01S01706.1da     +++|          NJN    CCA3        IF PARAMETER SET WRONG
02871  M01S01707.1da     +++|          AODL   T1
Line S01708 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02872  M02S01708.273l780 ---|          UJN    CCA1        GO CHECK NEXT PARAMETER
02873  M01S00038.273l780 +++|          UJN    CCA1        CHECK NEXT PARAMETER
02874  M01S01709.1da     +++|
02875  M01S01710.1da     +++| CCA2     LDML   ATTB+13
02876  M01S01711.1da     +++|          LPC    0#F02
02877  M01S01712.1da     +++|          LMML   CTS,CT
02878  M01S01713.1da     +++|          NJN    CCA3        IF ATTRIBUTE D6 INCORRECT
02879  M01S01714.1da     +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
02880  M01S01715.1da     +++|          RJM    SDT         SET DATA TRANSFER MODE TO STREAMING
02881  M01S01716.1da     +++|          LJM    CCAX        EXIT
02882  M01S01717.1da     +++|
02883  M01S00264.284l847 +++| CCA2.1   LCN    ELCA        LOAD CONTROLLER ATTRIBUTES FAILURE
02884  M01S00265.284l847 +++|          RJM    ERR         PROCESS ERROR
02885  M01S00266.284l847 +++|
02886  M01S01718.1da     +++|*         LOAD/SAVE ATTRIBUTES.
02887  M01S01719.1da     +++|
02888  M01S01720.1da     +++| CCA3     LDML   CCAA,T3     BUILD COMMAND PACKET
02889  M01S01721.1da     +++|          STML   CPBF+FCP,T3
02890  M01S01722.1da     +++|          AODL   T3
02891  M01S01723.1da     +++|          LMN    11
02892  M01S01724.1da     +++|          NJN    CCA3        IF MORE PARAMETER WORDS TO MOVE
02893  M01S01725.1da     +++|          LDML   ATTB+11
Line S01726 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02894  M02S01726.273l780 ---|          STML   CPBF+FCP+11  PORT A,B CONTROLLER ADDRESS
02895  M01S00039.273l780 +++|          STML   CPBF+FCP+11 PORT A,B CONTROLLER ADDRESS
02896  M01S01727.1da     +++|          LDML   ATTB+12
Line S01728 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02897  M02S01728.273l780 ---|          STML   CPBF+FCP+12  PORT C,D CONTROLLER ADDRESS
02898  M01S00040.273l780 +++|          STML   CPBF+FCP+12 PORT C,D CONTROLLER ADDRESS
02899  M01S01729.1da     +++|          LDML   ATTB+13
02900  M01S01730.1da     +++|          LPC    0#F0FD
02901  M01S01731.1da     +++|          LMML   CTS,CT
Line S01732 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02902  M02S01732.273l780 ---|          STML   CPBF+FCP+13  SELECT CHANNEL TRANSFER RATE
02903  M01S00041.273l780 +++|          STML   CPBF+FCP+13 SELECT CHANNEL TRANSFER RATE
02904  M01S01733.1da     +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
02905  M01S01734.1da     +++|          LDM    RPBF
02906  M01S01735.1da     +++|          LMN    10
Line S01736 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02907  M02S01736.284l847 ---|          NJP    CCA4        IF ERROR
02908  M01S00267.284l847 +++| CCA3.1   NJP    CCA2.1      IF ERROR
02909  M01S01737.1da     +++|          LDC    C0209       LOAD ATTRIBUTE OPERATION CODE
02910  M01S01738.1da     +++|          RJM    SOC         SET OPERATION CODE AND CONTROLLER
02911  M01S01739.1da     +++|          LDC    P02D1
02912  M01S01740.1da     +++|          STM    CPBF+FCP    RESTORE WORD WIPED OUT BY *ATT*
02913  M01S01741.1da     +++|          LDN    30D         COMMAND PACKET LENGTH
02914  M01S01742.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
02915  M01S01743.1da     +++|          LDN    CMSS
02916  M01S01744.1da     +++|          RJM    ATT         PROCESS ATTENTION
Line S01745 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02917  M02S01745.284l847 ---|          NJN    CCA4        IF NOT SUCCESSFUL
02918  M01S00268.284l847 +++|          NJN    CCA3.1      IF NOT SUCCESSFUL
02919  M01S01746.1da     +++|          RJM    SDT         SET DATA TRANSFER MODE
02920  M01S01747.1da     +++|          LDC    C020A       SAVE ATTRIBUTE OPERATION CODE
02921  M01S01748.1da     +++|          RJM    SOC         SET OPERATION CODE AND CONTROLLER
02922  M01S01749.1da     +++|          LDN    6
02923  M01S01750.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
02924  M01S01751.1da     +++|          LDN    CMSS
02925  M01S01752.1da     +++|          RJM    ATT         PROCESS ATTENTION
Line S01753 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02926  M02S01753.284l847 ---|          NJN    CCA4        IF NOT SUCCESSFUL
02927  M01S00269.284l847 +++|          NJN    CCA3.1      IF NOT SUCCESSFUL
02928  M01S01754.1da     +++|          LDML   ATTB+13
02929  M01S01755.1da     +++|          LPC    0#F02
02930  M01S01756.1da     +++|          LMML   CTS,CT
02931  M01S01757.1da     +++|          ZJP    CCAX        IF CHANNEL TRANSFER SPEED CORRECT
02932  M01S01758.1da     +++|          LDN    0
02933  M01S01759.1da     +++|          STD    RW
Line S01760 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02934  M02S01760.ns2783  ---|          STML   RWST,DI     INDICATE SLAVE RESET
Line S01761 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02935  M03S01761.ns2783  ---|          LJM    SRS1        GO DO SLAVE RESET
Line S00042 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02936  M02S00042.ns2783  ---|          LJM    SRS1        ISSUE SLAVE RESET
02937  M01S00513.ns2783  +++|          LJM    SRS1        FORCE SLAVE RESET
Line S01762 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02938  M02S01762.284l847 ---|
Line S01763 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
M03 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02939  M03S01763.284l847 ---| CCA4     LCN    ELCA
Line S00059 Modification History
M01 (Added by) 283l840
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02940  M02S00059.284l847 ---| CCA4     LCN    ELCA        LOAD CONTROLLER ATTRIBUTES FAILURE
Line S01764 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
02941  M02S01764.284l847 ---|          RJM    ERR         PROCESS ERROR
02942  M01S01765.1da     +++|
02943  M01S00043.273l780 +++|
02944  M01S01766.1da     +++| CCAA     BSS    0           EXPECTED CONTROLLER ATTRIBUTES
02945  M01S01767.1da     +++|          CONL   P02D1,0#100
02946  M01S01768.1da     +++|          CONL   P02D2,0#100
02947  M01S01769.1da     +++|          CONL   P02D3,0#100
02948  M01S01770.1da     +++|          CONL   P02D4,0#100
02949  M01S01771.1da     +++|          CONL   0#7D6
02950  M01S00514.ns2783  +++| CCI      SPACE  4,15
02951  M01S00515.ns2783  +++|**        CCI - CALCULATE CHANNEL INDEX.
02952  M01S00516.ns2783  +++|*
02953  M01S00517.ns2783  +++|*         ENTRY  (EO) = EST ORDINAL.
02954  M01S00518.ns2783  +++|*                (IR+4) = CHANNEL SERVICED BY THIS DRIVER.
02955  M01S00519.ns2783  +++|*
02956  M01S00520.ns2783  +++|*         EXIT   (A) = (T1) = INDEX INTO (CM+1) FOR THIS CHANNEL.
02957  M01S00521.ns2783  +++|*                (CM - CM+4) = *EQDE* WORD OF EST.
02958  M01S00522.ns2783  +++|*
02959  M01S00523.ns2783  +++|*         USES   T1.
02960  M01S00524.ns2783  +++|*
02961  M01S00525.ns2783  +++|*         CALLS  REE.
02962  M01S00526.ns2783  +++|
02963  M01S00527.ns2783  +++|
02964  M01S00528.ns2783  +++| CCI      SUBR               ENTRY/EXIT
02965  M01S00529.ns2783  +++|          RJM    REE         READ EST ENTRY
02966  M01S00530.ns2783  +++|          LDD    CM+1        EXTRACT CHANNEL
02967  M01S00531.ns2783  +++|          LMD    IR+4
02968  M01S00532.ns2783  +++|          LPN    77
02969  M01S00533.ns2783  +++|          ZJN    CCI1        IF PATH SERVICED BY THIS DRIVER
02970  M01S00534.ns2783  +++|          LDN    1
02971  M01S00535.ns2783  +++| CCI1     STD    T1          SET CHANNEL BYTE INDEX
02972  M01S00536.ns2783  +++|          UJN    CCIX        RETURN
02973  M01S00044.273l780 +++| CCO      SPACE  4,20
02974  M01S00045.273l780 +++|**        CCO - CHECK FOR CONTROLLER OVER TEMPERATURE.
02975  M01S00046.273l780 +++|*
02976  M01S00047.273l780 +++|*         THIS ROUTINE SEARCHES THE RESPONSE PACKET FOR STATUS
02977  M01S00048.273l780 +++|*         INDICATING AN OVER TEMPERATURE CONDITION.  IF THERE IS
02978  M01S00049.273l780 +++|*         AN OVER TEMPERATURE CONDITION, AN ERROR IS OPTIONALLY
02979  M01S00050.273l780 +++|*         LOGGED TO THE BML, A BIT INDICATING OVER TEMPERATURE IS
02980  M01S00051.273l780 +++|*         SET IN *BDLL*, AND AN OPERATOR ACTION MESSAGE IS GENERATED.
02981  M01S00052.273l780 +++|*
02982  M01S00053.273l780 +++|*         ENTRY  (A) = 0 IF BML MESSAGE SHOULD NOT BE ISSUED.
02983  M01S00054.273l780 +++|*                (DT) = DRIVE TYPE.
02984  M01S00055.273l780 +++|*
Line S00056 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02985  M02S00056.ns2783  ---|*         USES   T7, CM+1 - CM+4.
02986  M01S00537.ns2783  +++|*         USES   CM+2, T7.
02987  M01S00057.273l780 +++|*
Line S00058 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02988  M02S00058.ns2783  ---|*         CALLS  IDM, SRP, UBP.
Line S00059 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02989  M02S00059.ns2783  ---|*
Line S00060 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
02990  M02S00060.ns2783  ---|*         MACROS MONITOR.
02991  M01S00538.ns2783  +++|*         CALLS  IDM, IEE, SRP, UBP.
02992  M01S00061.273l780 +++|
02993  M01S00062.273l780 +++|
02994  M01S00063.273l780 +++| CCO      SUBR               ENTRY/EXIT
02995  M01S00064.273l780 +++|          STD    T7
02996  M01S00065.273l780 +++|          LDN    ID16
02997  M01S00066.273l780 +++|          RJM    SRP         SEARCH RESPONSE PACKET
02998  M01S00067.273l780 +++|          MJN    CCOX        IF PARAMETER 16 NOT FOUND
02999  M01S00068.273l780 +++|          LDML   RPBF+6,T3
03000  M01S00069.273l780 +++|          SHN    21-11
03001  M01S00070.273l780 +++|          PJN    CCOX        IF NOT CONTROLLER OVER TEMPERATURE
03002  M01S00071.273l780 +++|          LDM    MSID
03003  M01S00072.273l780 +++|          STM    CCOA        SAVE VALUES FROM CURRENT MESSAGE
03004  M01S00073.273l780 +++|          LDM    EDBF+FALT
03005  M01S00074.273l780 +++|          STM    CCOA+1
03006  M01S00075.273l780 +++|          LDM    EDBF+FCS2
03007  M01S00076.273l780 +++|          STM    CCOA+2
03008  M01S00077.273l780 +++|          LDM    MSGL+1
03009  M01S00078.273l780 +++|          STM    CCOA+3
Line S00079 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03010  M02S00079.ns2783  ---|          LDM    BMID,DT
03011  M01S00539.ns2783  +++|          LDML   BMID,DT
03012  M01S00540.ns2783  +++|          SHN    -11
03013  M01S00080.273l780 +++|          STM    MSID        ERROR MESSAGE ID
Line S00081 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03014  M02S00081.283l840 ---|          LDN    ECOT
03015  M01S00060.283l840 +++|          LDN    ECOT        CONTROLLER OVERTEMPERATURE
03016  M01S00082.273l780 +++|          STM    EDBF+FALT   FINAL FAULT CODE
03017  M01S00083.273l780 +++|          LDD    T7
03018  M01S00084.273l780 +++|          ZJP    CCO1        IF NOT ISSUING MESSAGE TO BML
03019  M01S00085.273l780 +++|
03020  M01S00086.273l780 +++|*         *HPA* DOES NOT DISPLAY THE DATA WITH SYMPTOM 0111 WHEN THE
03021  M01S00087.273l780 +++|*         ERROR IS RECOVERABLE, SO TWO MESSAGES ARE ISSUED TO THE BML.
03022  M01S00088.273l780 +++|
03023  M01S00089.273l780 +++|          LCN    0
03024  M01S00090.273l780 +++|          STM    EDBF+FCS2   SET NO STATUS FOR *HPA*
03025  M01S00091.273l780 +++|          LDN    5
03026  M01S00092.273l780 +++|          STM    MSGL+1      MESSAGE LENGTH
03027  M01S00093.273l780 +++|          LDD    HN
03028  M01S00094.273l780 +++|          ERRNZ  HD0100-100  CODE DEPENDS ON VALUE
03029  M01S00095.273l780 +++|          RJM    IDM         ISSUE INITIAL BML MESSAGE
03030  M01S00096.273l780 +++|          LDN    3
03031  M01S00097.273l780 +++|          STM    MSGL+1      MESSAGE LENGTH
03032  M01S00098.273l780 +++|          LDC    HD0111
03033  M01S00099.273l780 +++|          RJM    IDM         ISSUE FINAL BML MESSAGE
03034  M01S00100.273l780 +++|          LDM    CCOA
03035  M01S00101.273l780 +++|          STM    MSID        RESTORE VALUES IN CURRENT MESSAGE
03036  M01S00102.273l780 +++|          LDM    CCOA+1
03037  M01S00103.273l780 +++|          STM    EDBF+FALT
03038  M01S00104.273l780 +++|          LDM    CCOA+2
03039  M01S00105.273l780 +++|          STM    EDBF+FCS2
03040  M01S00106.273l780 +++|          LDM    CCOA+3
03041  M01S00107.273l780 +++|          STM    MSGL+1
03042  M01S00108.273l780 +++|
03043  M01S00109.273l780 +++|*         SET OVER TEMPERATURE BIT IN *BDLL*.
03044  M01S00110.273l780 +++|
03045  M01S00111.273l780 +++| CCO1     LDN    1           NEW VALUE
03046  M01S00112.273l780 +++|          STD    CM+2
Line S00113 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03047  M02S00113.ns2783  ---|          LDC    63*100      LOW ORDER BIT TO CHANGE TIMES 100
Line S00114 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03048  M02S00114.ns2783  ---|          STD    T7
Line S00115 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03049  M02S00115.ns2783  ---|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
03050  M01S00541.ns2783  +++|          LDN    63          BIT TO CHANGE
03051  M01S00116.273l780 +++|          RJM    UBP         UPDATE *BDLL* PARAMETER
Line S00117 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03052  M02S00117.ns2783  ---|          LDN    EEVS
Line S00118 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03053  M02S00118.ns2783  ---|          STD    CM+1        ENTER EVENT
Line S00119 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03054  M02S00119.ns2783  ---|          LDN    0
Line S00120 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03055  M02S00120.ns2783  ---|          STD    CM+3
Line S00121 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03056  M02S00121.ns2783  ---|          LDN    CEDE        *CHECK E,E DISPLAY* EVENT
Line S00122 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03057  M02S00122.ns2783  ---|          STD    CM+4
Line S00123 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03058  M02S00123.ns2783  ---|          MONITOR  EATM
03059  M01S00542.ns2783  +++|          RJM    IEE         ISSUE *CHECK E,E DISPLAY* EVENT
03060  M01S00124.273l780 +++|          UJP    CCOX        RETURN
03061  M01S00125.273l780 +++|
03062  M01S00126.273l780 +++|
03063  M01S00127.273l780 +++| CCOA     BSS    4           SAVE AREA FOR VALUES FROM CURRENT MESSAGE
03064  M01S01772.1da     +++| CCR      SPACE  4,15
03065  M01S01773.1da     +++|**        CCR - CHECK FOR CHANNEL REQUEST.
03066  M01S01774.1da     +++|*
03067  M01S01775.1da     +++|*         ENTRY  (UC) = UNIT ACTIVITY COUNT.
03068  M01S01776.1da     +++|*                (IR+4) = CHANNEL NUMBER.
Line S01777 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03069  M02S01777.ns2783  ---|*                AT *CCR4* FROM *PRS*.
03070  M01S00543.ns2783  +++|*                AT *CCR2* FROM */3DZ/BST*.
03071  M01S01778.1da     +++|*
03072  M01S01779.1da     +++|*         EXIT   (A) = 0 IF CHANNEL DOWN.
Line S01780 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03073  M02S01780.ns2783  ---|*                TO *PRS3* IF ENTRY WAS FROM *PRS*.
03074  M01S00544.ns2783  +++|*                TO */3DZ/BST2* IF ENTRY WAS FROM */3DZ/BST*.
03075  M01S01781.1da     +++|*
03076  M01S01782.1da     +++|*         USES   CM+1, CR.
03077  M01S01783.1da     +++|*
03078  M01S01784.1da     +++|*         CALLS  DCR, RCT, SRF.
03079  M01S01785.1da     +++|*
03080  M01S01786.1da     +++|*         MACROS DELAY, MONITOR.
03081  M01S01787.1da     +++|
03082  M01S01788.1da     +++|
03083  M01S01789.1da     +++| CCR3     RJM    SRF         SET DRIVER RELOAD FLAG
03084  M01S01790.1da     +++| CCR4     LDD    CR
03085  M01S01791.1da     +++|
Line S01792 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03086  M02S01792.ns2783  ---| CCR      SUBR   PRS3        ENTRY/EXIT
03087  M01S00545.ns2783  +++| CCR      SUBR   /3DZ/BST2   ENTRY/EXIT
03088  M01S01793.1da     +++|          RJM    RCT         READ CHANNEL TABLE
03089  M01S01794.1da     +++|          SHN    21-5
03090  M01S01795.1da     +++|          MJN    CCR3        IF CHANNEL GLOBALLY DOWN
03091  M01S01796.1da     +++|          LPN    40
03092  M01S01797.1da     +++|          ZJN    CCR4        IF CHANNEL NOT REQUESTED
03093  M01S01798.1da     +++|          STM    CHRQ        DISABLE NEW ACTIVITY
03094  M01S01799.1da     +++|          LDD    UC
03095  M01S01800.1da     +++|          NJN    CCRX        IF CURRENT ACTIVITY
03096  M01S01801.1da     +++|          RJM    DCR         DROP CHANNEL RESERVATION
03097  M01S01802.1da     +++|*         LDN    0
03098  M01S01803.1da     +++|          STM    CHRQ        ENABLE NEW ACTIVITY
03099  M01S01804.1da     +++| CCR1     LDD    CR
03100  M01S01805.1da     +++|          NJN    CCRX        IF CHANNEL RESERVED
03101  M01S01806.1da     +++|
03102  M01S01807.1da     +++|*         ENTERED HERE FROM *PRS*.
03103  M01S01808.1da     +++|
03104  M01S01809.1da     +++| CCR2     DELAY              WAIT AWHILE
03105  M01S01810.1da     +++|          LDD    IR+4
03106  M01S01811.1da     +++|          STD    CM+1        ATTEMPT TO RESERVE CHANNEL
03107  M01S01812.1da     +++|          MONITOR  CCHM
03108  M01S01813.1da     +++|          LDD    CM+2        SET RESERVATION STATUS
03109  M01S01814.1da     +++|          STD    CR
03110  M01S01815.1da     +++|          RJM    RCT         READ CHANNEL TABLE
03111  M01S01816.1da     +++|          LPN    40
03112  M01S01817.1da     +++|          ZJN    CCR1        IF CHANNEL NOT DOWN
03113  M01S01818.1da     +++|          UJP    CCR3        SET DRIVER RELOAD FLAG
Line S01819 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03114  M02S01819.ns2783  ---| CDA      SPACE  4,10
03115  M01S00546.ns2783  +++| CCS      SPACE  4,10
03116  M01S00547.ns2783  +++|**        CCS - CHECK CHANNEL STATE FOR SPECIFIED DEVICE.
03117  M01S00548.ns2783  +++|*
03118  M01S00549.ns2783  +++|*         ENTRY  (EO) = EST ORDINAL.
03119  M01S00550.ns2783  +++|*                (IR+4) = CHANNEL SERVICED BY THIS DRIVER.
03120  M01S00551.ns2783  +++|*
03121  M01S00552.ns2783  +++|*         EXIT   (A) = CHANNEL STATE.
03122  M01S00553.ns2783  +++|*
03123  M01S00554.ns2783  +++|*         CALLS  CCI.
03124  M01S00555.ns2783  +++|
03125  M01S00556.ns2783  +++|
03126  M01S00557.ns2783  +++| CCS      SUBR               ENTRY/EXIT
03127  M01S00558.ns2783  +++|          RJM    CCI         CALCULATE CHANNEL INDEX
03128  M01S00559.ns2783  +++|          LDM    CM+1,T1
03129  M01S00560.ns2783  +++|          SHN    -11
03130  M01S00561.ns2783  +++|          SCN    4
03131  M01S00562.ns2783  +++|          UJN    CCSX        RETURN
03132  M01S00563.ns2783  +++| CDA      SPACE  4,15
03133  M01S01820.1da     +++|**        CDA - CONVERT DISK ADDRESS.
03134  M01S01821.1da     +++|*
Line S01822 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03135  M02S01822.284l847 ---|*         ENTRY  (T4) = CYLINDER NUMBER.
03136  M01S00270.284l847 +++|*         ENTRY  (T4) = RELATIVE CYLINDER NUMBER.
03137  M01S01823.1da     +++|*                (T5) = PHYSICAL TRACK.
03138  M01S01824.1da     +++|*                (T7) = LOGICAL SECTOR WITHIN PHYSICAL TRACK.
03139  M01S01825.1da     +++|*                (DT) = DRIVE TYPE.
03140  M01S01826.1da     +++|*
03141  M01S01827.1da     +++|*         EXIT   (T6) = LOGICAL TRACK.
03142  M01S01828.1da     +++|*
Line S01829 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03143  M02S01829.ns2783  ---|*         USES   T3 - T7.
03144  M01S00564.ns2783  +++|*         USES   T1, T3 - T7, CM - CM+4.
03145  M01S00565.ns2783  +++|*
03146  M01S00566.ns2783  +++|*         CALLS  REE.
03147  M01S01830.1da     +++|
03148  M01S01831.1da     +++|
Line S01832 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03149  M02S01832.ns2783  ---|*         MULTIPLY THE CYLINDER VALUE BY THE NUMBER OF LOGICAL
Line S01833 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03150  M02S01833.ns2783  ---|*         SECTORS PER CYLINDER.
Line S01834 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03151  M02S01834.ns2783  ---|
Line S01835 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03152  M03S01835.ns2783  ---| CDA2     LDML   SPC,DT
Line S01836 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03153  M03S01836.ns2783  ---|          SHN    5           32 LOGICAL SECTORS PER PHYSICAL SECTOR
Line S00271 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03154  M02S00271.ns2783  ---| CDA2     LDML   PSCY,DT
Line S00272 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03155  M02S00272.ns2783  ---| CDAB     SHN    **          PHYSICAL SECTORS TO LOGICAL SECTORS
Line S01837 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03156  M02S01837.ns2783  ---|          RAD    T7          ADVANCE LOGICAL SECTOR COUNT
Line S01838 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03157  M02S01838.ns2783  ---|          SHN    -14
Line S01839 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S01839.ns2783  ---|          RAD    T3
Line S01840 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03159  M02S01840.ns2783  ---| CDA3     SOD    T4
Line S01841 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03160  M02S01841.ns2783  ---|          PJN    CDA2        IF NOT END OF CONVERSION
Line S01842 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03161  M02S01842.ns2783  ---|
Line S01843 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03162  M02S01843.ns2783  ---|*         DIVIDE THE ACCUMULATED LOGICAL SECTOR COUNT BY THE
Line S01844 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03163  M02S01844.ns2783  ---|*         SUM OF (LOGICAL + GAP) SECTORS PER LOGICAL TRACK.
Line S01845 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03164  M02S01845.ns2783  ---|
Line S01846 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03165  M02S01846.ns2783  ---| CDA4     AOD    T6          ADVANCE LOGICAL TRACK NUMBER
Line S01847 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03166  M02S01847.ns2783  ---|          LDN    0
Line S01848 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03167  M02S01848.ns2783  ---|          SBML   LSLT,DT
Line S01849 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03168  M02S01849.ns2783  ---|          RAD    T7
Line S01850 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03169  M02S01850.ns2783  ---|          PJN    CDA4        IF NO UNDERFLOW
Line S01851 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03170  M02S01851.ns2783  ---|          AOD    T7
Line S01852 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03171  M02S01852.ns2783  ---|          SOD    T3
Line S01853 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03172  M02S01853.ns2783  ---|          PJN    CDA4        IF DIVISION INCOMPLETE
Line S01854 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03173  M02S01854.ns2783  ---|
03174  M01S01855.1da     +++| CDA      SUBR               ENTRY/EXIT
03175  M01S00567.ns2783  +++|          RJM    REE         READ EST ENTRY
03176  M01S00568.ns2783  +++|          LDD    CM+4
03177  M01S00569.ns2783  +++|          SHN    3
03178  M01S00570.ns2783  +++|          ADN    MDGL
03179  M01S00571.ns2783  +++|          CRD    CM
03180  M01S00572.ns2783  +++|          LDD    CM+1        SINGLE UNIT SECTOR LIMIT
03181  M01S00573.ns2783  +++|          STD    T1
03182  M01S01856.1da     +++|          LDN    0           CLEAR SECTOR COUNT ACCUMULATOR
03183  M01S01857.1da     +++|          STD    T3
03184  M01S01858.1da     +++|          LDC    3777        INITIALIZE LOGICAL TRACK CALCULATION
03185  M01S01859.1da     +++|          STD    T6
Line S00273 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03186  M02S00273.ns2783  ---|          LDM    CFS,DT     SET UP PHYSICAL TO LOGICAL SHIFTS
Line S00274 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03187  M02S00274.ns2783  ---|          SHN    -6
03188  M01S00574.ns2783  +++|          LDML   CFS,DT      SET UP PHYSICAL TO LOGICAL SHIFTS
03189  M01S00575.ns2783  +++|          SHN    -14
03190  M01S00275.284l847 +++|          ADK    SHNI
03191  M01S00276.284l847 +++|          STM    CDAA
03192  M01S00277.284l847 +++|          STM    CDAB
03193  M01S01860.1da     +++|
Line S01861 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03194  M02S01861.ns2783  ---|*         MULTIPLY THE TRACK VALUE BY THE NUMBER OF LOGICAL
03195  M01S00576.ns2783  +++|*         MULTIPLY THE PHYSICAL TRACK NUMBER BY THE NUMBER OF LOGICAL
03196  M01S01862.1da     +++|*         SECTORS PER PHYSICAL TRACK.
03197  M01S01863.1da     +++|
03198  M01S01864.1da     +++| CDA1     SOD    T5
03199  M01S01865.1da     +++|          MJN    CDA3        IF END OF CONVERSION
Line S01866 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03200  M02S01866.284l847 ---|          LDML   SPT,DT
Line S01867 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03201  M02S01867.284l847 ---|          ADN    1
Line S01868 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03202  M02S01868.284l847 ---|          SHN    5           32 LOGICAL SECTORS PER PHYSICAL SECTOR
Line S00278 Modification History
M01 (Added by) 284l847
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
03203  M02S00278.1da7    ---|          LDML   PSPT,DT
03204  M01S00010.1da7    +++|          LDM    PSPT,DT
03205  M01S00279.284l847 +++| CDAA     SHN    **          PHYSICAL SECTORS TO LOGICAL SECTORS
03206  M01S01869.1da     +++|          RAD    T7          ADVANCE LOGICAL SECTOR COUNT
03207  M01S01870.1da     +++|          SHN    -14
03208  M01S01871.1da     +++|          RAD    T3
03209  M01S01872.1da     +++|          UJN    CDA1        LOOP ON CONVERSION
03210  M01S00577.ns2783  +++|
03211  M01S00578.ns2783  +++|*         MULTIPLY THE CYLINDER NUMBER BY THE NUMBER OF LOGICAL SECTORS
03212  M01S00579.ns2783  +++|*         PER CYLINDER.
03213  M01S00580.ns2783  +++|
03214  M01S00581.ns2783  +++| CDA2     LDML   PSCY,DT
03215  M01S00582.ns2783  +++| CDAB     SHN    **          PHYSICAL SECTORS TO LOGICAL SECTORS
03216  M01S00583.ns2783  +++|          RAD    T7          ADVANCE LOGICAL SECTOR COUNT
03217  M01S00584.ns2783  +++|          SHN    -14
03218  M01S00585.ns2783  +++|          RAD    T3
03219  M01S00586.ns2783  +++| CDA3     SOD    T4
03220  M01S00587.ns2783  +++|          PJN    CDA2        IF NOT END OF CONVERSION
03221  M01S00588.ns2783  +++|
03222  M01S00589.ns2783  +++|*         DIVIDE THE ACCUMULATED LOGICAL SECTOR COUNT BY THE NUMBER OF
03223  M01S00590.ns2783  +++|*         LOGICAL SECTORS PER LOGICAL TRACK.  THE SINGLE UNIT SECTOR
03224  M01S00591.ns2783  +++|*         LIMIT IS USED, BECAUSE ONLY THE LOGICAL TRACK NUMBER (AND
03225  M01S00592.ns2783  +++|*         NOT THE LOGICAL SECTOR NUMBER) IS OF INTEREST.
03226  M01S00593.ns2783  +++|
03227  M01S00594.ns2783  +++| CDA4     AOD    T6          ADVANCE LOGICAL TRACK NUMBER
03228  M01S00595.ns2783  +++|          LDN    0
03229  M01S00596.ns2783  +++|          SBD    T1          SINGLE UNIT SECTOR LIMIT
03230  M01S00597.ns2783  +++|          RAD    T7
03231  M01S00598.ns2783  +++|          PJN    CDA4        IF NO UNDERFLOW
03232  M01S00599.ns2783  +++|          AOD    T7
03233  M01S00600.ns2783  +++|          SOD    T3
03234  M01S00601.ns2783  +++|          PJN    CDA4        IF DIVISION INCOMPLETE
03235  M01S00602.ns2783  +++|          LJM    CDAX        RETURN
03236  M01S00603.ns2783  +++| CDS      SPACE  4,15
03237  M01S00604.ns2783  +++|**        CDS - CHECK DEVICE STATUS.
03238  M01S00605.ns2783  +++|*
03239  M01S00606.ns2783  +++|*         ENTRY  (EO) = EST ORDINAL.
03240  M01S00607.ns2783  +++|*
03241  M01S00608.ns2783  +++|*         EXIT   (A) .LT. 0, IF DEVICE HAS NOT BEEN RECOVERED.
03242  M01S00609.ns2783  +++|*                (A) .GT. 0, IF DEVICE IS RECOVERD AND SHARED.
03243  M01S00610.ns2783  +++|*                (A) .EQ. 0, IF DEVICE IS RECOVERD AND NOT SHARED.
03244  M01S00611.ns2783  +++|*                (CM - CM+4) = *EQDE* WORD OF EST ENTRY.
03245  M01S00612.ns2783  +++|*
03246  M01S00613.ns2783  +++|*         CALLS  REE.
03247  M01S00614.ns2783  +++|
03248  M01S00615.ns2783  +++|
03249  M01S00616.ns2783  +++| CDS      SUBR               ENTRY/EXIT
03250  M01S00617.ns2783  +++|          RJM    REE         READ EST ENTRY
03251  M01S00618.ns2783  +++|          LDD    CM
03252  M01S00619.ns2783  +++|          SHN    21-6
03253  M01S00620.ns2783  +++|          MJN    CDSX        IF DEVICE UNAVAILABLE (NOT RECOVERED)
03254  M01S00621.ns2783  +++|          LDD    CM
03255  M01S00622.ns2783  +++|          LPC    1000        ISOLATE *SHARED* STATUS
03256  M01S00623.ns2783  +++|          UJN    CDSX        RETURN
Line S01873 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03257  M02S01873.1da8    ---| CDT      SPACE  4,20
03258  M01S00162.1da8    +++| CDT      SPACE  4,25
03259  M01S01874.1da     +++|**        CDT - CHECK DRIVE TYPE.
03260  M01S01875.1da     +++|*
03261  M01S01876.1da     +++|*         VERIFY THAT THE CONFIGURED DRIVE MATCHES THE ACTUAL DRIVE
03262  M01S01877.1da     +++|*         TYPE.  IF A DRIVE IS ACCESSED FROM 2 CONTROLLERS, THE DRIVE
03263  M01S01878.1da     +++|*         COULD BE RECLUSTERED FROM ONE CONTROLLER AND THE OTHER ONE
03264  M01S01879.1da     +++|*         WOULD NOT KNOW THE CHANGE OCCURRED.  A SLAVE RESET MUST BE
03265  M01S01880.1da     +++|*         ISSUED TO CAUSE THE CONTROLLER TO REEVALUATE THE DRIVE.
03266  M01S01881.1da     +++|*
03267  M01S01882.1da     +++|*         ENTRY  (DN) = DRIVE NUMBER.
Line S01883 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03268  M02S01883.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
03269  M01S00163.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
03270  M01S01884.1da     +++|*                (DT) = DRIVE TYPE.
03271  M01S01885.1da     +++|*
03272  M01S01886.1da     +++|*         EXIT   TO *CMP* WITH CHECK DRIVE BIT CLEAR IF CORRECT
03273  M01S01887.1da     +++|*                  NUMBER OF PHYSICAL DRIVES IN THE LOGICAL UNIT AND
03274  M01S01888.1da     +++|*                  THE DRIVE ATTRIBUTES ARE CORRECT.
Line S00061 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03275  M02S00061.1da8    ---|*                TO *CMP* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
Line S00164 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03276  M02S00164.ns2783  ---|*                TO *CMP9* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
03277  M01S00624.ns2783  +++|*                TO *CMP10* IF ERROR IN PROGRESS ON A DIFFERENT DEVICE.
03278  M01S01889.1da     +++|*                TO *ERR* IF ERROR.
03279  M01S01890.1da     +++|*
Line S01891 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03280  M02S01891.273l780 ---|*         USES   DI, T2, T3.
Line S00128 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03281  M02S00128.1da8    ---|*         USES   CM+2, DI, T2, T3, T7.
Line S00165 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03282  M02S00165.ns2783  ---|*         USES   CM+2, T2, T3, T7.
03283  M01S00625.ns2783  +++|*         USES   CM+2, T2, T3.
03284  M01S01892.1da     +++|*
Line S01893 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03285  M02S01893.273l780 ---|*         CALLS  ATT, CUF, DDT, LDP, LND, VDA.
Line S00129 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03286  M02S00129.ns2767  ---|*         CALLS  ATT, CUF, DDT, LDP, LND, UBP, VDA.
Line S00007 Modification History
M01 (Added by) ns2767
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03287  M02S00007.283l840 ---|*         CALLS  ATT, CUF, DDT, LDP, LND, RDO, UBP, VDA.
Line S00062 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03288  M02S00062.1da8    ---|*         CALLS  ATT, CUF, DDT, LDP, LND, RDO, SEP, UBP, VDA.
Line S00166 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03289  M02S00166.ns2783  ---|*         CALLS  ATT, CUF, DDT, IEE, RDO, SEP, UBP, VDA, WAC.
03290  M01S00626.ns2783  +++|*         CALLS  ATT, COD, CUF, DDT, SEP, UBP, VDA, WAC.
03291  M01S01894.1da     +++|
03292  M01S01895.1da     +++|
03293  M01S01896.1da     +++| CDT      BSS    0           ENTRY
03294  M01S01897.1da     +++|
03295  M01S01898.1da     +++|*         ALLOW ACTIVITY ON OTHER DRIVES TO COMPLETE BEFORE REPORTING
03296  M01S01899.1da     +++|*         ATTRIBUTE 68 FOR THE CONTROLLER.  EVEN IF ISSUED, IT WOULD
03297  M01S01900.1da     +++|*         NOT BE EXECUTED UNTIL ALL COMMANDS IN PROGRESS COMPLETE.
03298  M01S01901.1da     +++|
Line S01902 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03299  M02S01902.283l840 ---|          LDD    DI
Line S01903 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
M03 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03300  M03S01903.283l840 ---|          STM    ERFL        TO PREVENT OTHER ACTIVITY
Line S00008 Modification History
M01 (Added by) ns2767
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
03301  M02S00008.283l840 ---|          STM    ERFL        PREVENT OTHER ACTIVITY
03302  M01S00063.283l840 +++|          RJM    SEP         SET ERROR PROCESSING INTERLOCK
Line S00064 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03303  M02S00064.1da8    ---|          NJP    CMP         IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
Line S01904 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03304  M02S01904.1da8    ---|          LDC    CDT1
Line S01905 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03305  M02S01905.1da8    ---|          STML   ADDR,DI     RETURN ADDRESS IF NO RESPONSE
Line S01906 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03306  M02S01906.1da8    ---| CDT1     LDN    1
Line S01907 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03307  M02S01907.1da8    ---| CDT2     LMN    1
Line S01908 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03308  M02S01908.1da8    ---|          RJM    LND         LOCATE DRIVE
Line S01909 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03309  M02S01909.1da8    ---|          ZJN    CDT3        IF NO MORE DRIVES ON CONTROLLER
Line S01910 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03310  M02S01910.1da8    ---|          LDML   ADDR,T7
Line S01911 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03311  M02S01911.1da8    ---|          ZJN    CDT2        IF NO ACTIVITY ON DRIVE
Line S01912 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03312  M02S01912.1da8    ---|          LDD    T7
Line S01913 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03313  M02S01913.1da8    ---|          LMD    DI
Line S01914 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03314  M02S01914.1da8    ---|          ZJN    CDT2        IF CURRENT DRIVE
Line S01915 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03315  M02S01915.1da8    ---|          LDD    T7
Line S01916 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03316  M02S01916.1da8    ---|          STD    DI
Line S01917 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03317  M02S01917.1da8    ---|          RJM    LDP         LOAD DEVICE PARAMETERS
Line S01918 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03318  M02S01918.1da8    ---|          LJM    0,PA        CHECK FOR TIMEOUT ON ACTIVE DRIVE
Line S00167 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03319  M02S00167.ns2783  ---|          NJP    CMP9        IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
03320  M01S00627.ns2783  +++|          NJP    CMP10       IF ERROR IN PROGRESS ON A DIFFERENT DEVICE
03321  M01S00168.1da8    +++|          RJM    WAC         WAIT FOR OTHER ACTIVITY TO COMPLETE
03322  M01S01919.1da     +++|
Line S01920 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03323  M02S01920.273l780 ---| CDT3     LDD    DN
03324  M01S00130.273l780 +++|*         CLEAR CONTROLLER OVER TEMPERATURE BIT IN *BDLL*.
03325  M01S00131.273l780 +++|
Line S00132 Modification History
M01 (Added by) 273l780
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03326  M02S00132.1da8    ---| CDT3     LDN    0           NEW VALUE
03327  M01S00169.1da8    +++|          LDN    0           SET NEW VALUE
03328  M01S00133.273l780 +++|          STD    CM+2
Line S00134 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03329  M02S00134.ns2783  ---|          LDC    63*100      LOW ORDER BIT TO CHANGE TIMES 100
Line S00135 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03330  M02S00135.ns2783  ---|          STD    T7
Line S00136 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03331  M02S00136.ns2783  ---|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
03332  M01S00628.ns2783  +++|          LDN    63          BIT TO CHANGE
03333  M01S00137.273l780 +++|          RJM    UBP         UPDATE *BDLL* PARAMETER
03334  M01S00138.273l780 +++|
03335  M01S00139.273l780 +++|*         CHECK DRIVE CONFIGURATION.
03336  M01S00140.273l780 +++|
03337  M01S00141.273l780 +++|          LDD    DN
03338  M01S01921.1da     +++|          STM    PHYD,DI     PHYSICAL DRIVE
03339  M01S01922.1da     +++|          RJM    DDT         DETERMINE DRIVE TYPE
Line S01923 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03340  M02S01923.ns2783  ---|          MJP    CDT8        IF DRIVE NOT FOUND
Line S01924 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03341  M02S01924.ns2783  ---|          LDM    TOTD,DI     TOTAL DRIVES FOUND
03342  M01S00629.ns2783  +++|          MJN    CDT1        IF DRIVE NOT FOUND
03343  M01S00630.ns2783  +++|          LDM    DDTA        TOTAL DRIVES FOUND
03344  M01S01925.1da     +++|          STD    T2
Line S01926 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03345  M02S01926.284l847 ---|          LMM    TD,DT       TOTAL DRIVES EXPECTED
Line S00280 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03346  M02S00280.ns2783  ---|          SBM    DD,DT       TOTAL DRIVES EXPECTED
Line S00281 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03347  M02S00281.ns2783  ---|          SBM    PD,DT
Line S01927 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03348  M02S01927.ns2783  ---|          NJN    CDT5        IF ERROR
Line S01928 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03349  M02S01928.ns2783  ---|          LDD    T2
03350  M01S00631.ns2783  +++|          SBD    DD          TOTAL DRIVES EXPECTED
03351  M01S00632.ns2783  +++|          SBD    PD
03352  M01S00633.ns2783  +++|          ZJN    CDT2        IF CORRECT DRIVE COUNT
03353  M01S00634.ns2783  +++| CDT1     LCN    ERDA        REPORT DEVICE ATTRIBUTES ERROR
03354  M01S00635.ns2783  +++|          RJM    ERR         PROCESS ERROR
03355  M01S00636.ns2783  +++|
03356  M01S00637.ns2783  +++| CDT2     LDD    T2
03357  M01S01929.1da     +++|          SHN    1
03358  M01S01930.1da     +++|          RAD    T3
03359  M01S01931.1da     +++|          LDM    ATTB,T3
03360  M01S01932.1da     +++|          SHN    21-4
03361  M01S01933.1da     +++|          PJN    CDT4        IF NO PARITY DRIVE
03362  M01S01934.1da     +++|          SOD    T2
03363  M01S01935.1da     +++| CDT4     LDD    T2          TOTAL DATA DRIVES FOUND
Line S01936 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03364  M02S01936.ns2783  ---|          LMM    DD,DT       EXPECTED DATA DRIVES
Line S01937 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03365  M02S01937.ns2783  ---|          NJN    CDT5        IF ERROR
03366  M01S00638.ns2783  +++|          LMD    DD          EXPECTED DATA DRIVES
03367  M01S00639.ns2783  +++|          NJN    CDT1        IF ERROR
03368  M01S01938.1da     +++|          LDM    ATTB,T3
03369  M01S01939.1da     +++|          SHN    21-11
Line S01940 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03370  M02S01940.ns2783  ---|          PJP    CDT8        IF NOT CLUSTERED
03371  M01S00640.ns2783  +++|          PJN    CDT1        IF NOT CLUSTERED
03372  M01S01941.1da     +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
03373  M01S01942.1da     +++|          LDC    C0302       REPORT ADDRESSEE STATUS OPERATION CODE
03374  M01S01943.1da     +++|          RJM    CUF         CHECK IF UNIT FORMATTED
Line S01944 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03375  M02S01944.ns2783  ---| CDT5     NJN    CDT8        IF NOT FORMATTED
Line S01945 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03376  M03S01945.ns2783  ---|          LDM    DVTP,DI
Line S01946 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03377  M03S01946.ns2783  ---|          SBN    DTED
Line S01947 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03378  M03S01947.ns2783  ---|          ZJN    CDT6        IF 5833_1P
Line S01948 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03379  M03S01948.ns2783  ---|          SBN    DTEF-DTED
Line S01949 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2768
M03 (Updated by) 284l847
M04 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03380  M04S01949.ns2783  ---|          NJN    CDT7        IF NOT 5833_2P
Line S00087 Modification History
M01 (Added by) ns2768
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03381  M03S00087.ns2783  ---|          ZJN    CDT6        IF 5833_2P
Line S00088 Modification History
M01 (Added by) ns2768
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03382  M03S00088.ns2783  ---|          SBN    DTEH-DTEF
Line S00089 Modification History
M01 (Added by) ns2768
M02 (Updated by) 284l847
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03383  M03S00089.ns2783  ---|          NJN    CDT7        IF NOT 5838_1P
Line S00282 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03384  M02S00282.ns2783  ---|          LDM    PD,DT       PARITY DRIVE INDICATOR
Line S00283 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03385  M02S00283.ns2783  ---|          ZJN    CDT7        IF NOT PARITY DRIVE
Line S01950 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03386  M02S01950.ns2783  ---| CDT6     LDML   RPBF+11
Line S01951 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03387  M02S01951.ns2783  ---|          SHN    21-11
Line S01952 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S01952.ns2783  ---|          PJN    CDT7        IF NO OFF-LINE DRIVE
Line S00009 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03389  M02S00009.ns2783  ---|          SHN    12          SET PHYSICAL DRIVE ID
Line S00010 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03390  M02S00010.ns2783  ---|          LPN    37
Line S00011 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03391  M02S00011.ns2783  ---|          STM    PHYD,DI
Line S00012 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03392  M02S00012.ns2783  ---|          RJM    RDO         REPORT DRIVE OFF-LINE
Line S00011 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03393  M02S00011.ns2783  ---|          RJM    IEE         ISSUE E,E EVENT
Line S00013 Modification History
M01 (Added by) ns2767
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03394  M02S00013.ns2783  ---| CDT7     RJM    VDA         VERIFY DRIVE ATTRIBUTES
03395  M01S00641.ns2783  +++|          NJN    CDT1        IF NOT FORMATTED
03396  M01S00642.ns2783  +++|          RJM    VDA         VERIFY DRIVE ATTRIBUTES
03397  M01S00643.ns2783  +++|          RJM    COD         CHECK FOR OFFLINE DRIVE
03398  M01S01953.1da     +++|          LDML   DVTP,DI
Line S01954 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03399  M02S01954.ns2767  ---|          LPC    0#1FFF
Line S01955 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03400  M02S01955.ns2767  ---|          LMC    0#4000      CAUSE CHECK OF OFF-LINE DRIVE
Line S01956 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03401  M02S01956.ns2767  ---|          STML   DVTP,DI
Line S01957 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03402  M02S01957.ns2767  ---| CDT7     RJM    VDA         VERIFY DRIVE ATTRIBUTES
Line S01958 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03403  M02S01958.ns2767  ---|          LDML   DVTP,DI
Line S01959 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
03404  M02S01959.ns2767  ---|          LPC    0#DFFF      CLEAR CHECK DRIVE TYPE
03405  M01S00014.ns2767  +++|          LPC    157777      CLEAR *CHECK DRIVE TYPE* FLAG
03406  M01S01960.1da     +++|          STML   DVTP,DI
03407  M01S01961.1da     +++|          LJM    CMP         EXIT
Line S01962 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03408  M02S01962.ns2783  ---|
Line S01963 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03409  M03S01963.ns2783  ---| CDT8     LCN    ERDA
Line S00065 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03410  M02S00065.ns2783  ---| CDT8     LCN    ERDA        REPORT DEVICE ATTRIBUTES ERROR
Line S01964 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03411  M02S01964.ns2783  ---|          RJM    ERR         PROCESS ERROR
03412  M01S00002.ns2750  +++| CEA      SPACE  4,15
03413  M01S00003.ns2750  +++|**        CEA - CLEAR *ENABLE CONTROLLER ACTIVITY* REQUEST.
03414  M01S00004.ns2750  +++|*
03415  M01S00005.ns2750  +++|*         ENTRY  (EO) = EST ORDINAL FOR DEVICE.
03416  M01S00006.ns2750  +++|*                (IR+4) = CHANNEL NUMBER.
03417  M01S00007.ns2750  +++|*
03418  M01S00008.ns2750  +++|*         EXIT   CHANNEL ENABLE BIT CLEARED IN *MST* WORD *BDLL*.
Line S00009 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03419  M02S00009.ns2783  ---|*                SPECIAL REQUEST BIT CLEARED IF BOTH CHANNELS ENABLED.
03420  M01S00644.ns2783  +++|*                SPECIAL REQUEST BIT CLEARED.
03421  M01S00010.ns2750  +++|*
Line S00011 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03422  M02S00011.ns2783  ---|*         USES   CM - CM+4, T1 - T1+4, T7.
03423  M01S00645.ns2783  +++|*         USES   CM+2.
03424  M01S00012.ns2750  +++|*
Line S00013 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03425  M02S00013.ns2783  ---|*         CALLS  CPF, UBP.
03426  M01S00646.ns2783  +++|*         CALLS  CCI, CPF, UBP.
03427  M01S00647.ns2783  +++|
03428  M01S00648.ns2783  +++|
03429  M01S00649.ns2783  +++| CEA      SUBR               ENTRY/EXIT
03430  M01S00650.ns2783  +++|          RJM    CCI         CALCULATE CHANNEL INDEX
03431  M01S00651.ns2783  +++|          LDN    0           NEW VALUE
03432  M01S00652.ns2783  +++|          STD    CM+2
03433  M01S00653.ns2783  +++|          LDD    T1          BIT TO CHANGE
03434  M01S00654.ns2783  +++|          ADN    49D
03435  M01S00655.ns2783  +++|          RJM    UBP         CLEAR ENABLE CHANNEL BIT IN *BDLL*
03436  M01S00656.ns2783  +++|          LDN    ECAF        CLEAR SPECIAL REQUEST IN *PUT*
03437  M01S00657.ns2783  +++|          RJM    CPF
03438  M01S00658.ns2783  +++|          UJN    CEAX        RETURN
03439  M01S00659.ns2783  +++| CEC      SPACE  4,10
03440  M01S00660.ns2783  +++|**        CEC - CHECK FOR *ENABLE CONTROLLER ACTIVITY* REQUEST.
03441  M01S00661.ns2783  +++|*
03442  M01S00662.ns2783  +++|*         EXIT   (A) = 0, IF REQUEST IS FOR THIS CHANNEL.
03443  M01S00663.ns2783  +++|*
03444  M01S00664.ns2783  +++|*         USES   T1 - T7, CM.
03445  M01S00014.ns2750  +++|*
03446  M01S00015.ns2750  +++|*         MACROS SFA.
03447  M01S00016.ns2750  +++|
03448  M01S00017.ns2750  +++|
Line S00018 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03449  M02S00018.ns2783  ---| CEA      SUBR               ENTRY/EXIT
Line S00019 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03450  M02S00019.ns2783  ---|          SFA    EST,EO
03451  M01S00665.ns2783  +++| CEC      SUBR               ENTRY/EXIT
03452  M01S00666.ns2783  +++|          SFA    EST,EO      CHECK EST ENTRY
03453  M01S00020.ns2750  +++|          ADK    EQDE
Line S00021 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03454  M02S00021.ns2783  ---|          CRD    T1          READ *EQDE* WORD
Line S00022 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03455  M02S00022.ns2783  ---|          LDD    T1+1
03456  M01S00667.ns2783  +++|          CRD    T1
03457  M01S00668.ns2783  +++|          LDD    T1+4
03458  M01S00669.ns2783  +++|          SHN    3
03459  M01S00670.ns2783  +++|          ADN    BDLL        CHECK IF REQUEST IS FOR THIS CHANNEL
03460  M01S00671.ns2783  +++|          CRD    T4
03461  M01S00672.ns2783  +++|          LDD    T4
03462  M01S00673.ns2783  +++|          SHN    -1
03463  M01S00674.ns2783  +++|          LPN    3
03464  M01S00675.ns2783  +++|          STD    T4
03465  M01S00676.ns2783  +++|          ZJN    CECX        IF NEITHER CHANNEL FLAG IS SET
03466  M01S00677.ns2783  +++|          SBN    3
03467  M01S00678.ns2783  +++|          ZJN    CECX        IF BOTH CHANNEL FLAGS ARE SET
03468  M01S00679.ns2783  +++|          LDM    T1,T4       COMPARE REQUESTED CHANNEL TO THIS CHANNEL
03469  M01S00023.ns2750  +++|          LMD    IR+4
03470  M01S00024.ns2750  +++|          LPN    77
Line S00025 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03471  M02S00025.ns2783  ---|          ZJN    CEA1        IF THIS IS THE FIRST CHANNEL
Line S00026 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03472  M02S00026.ns2783  ---|          LDN    1
Line S00027 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03473  M02S00027.ns2783  ---| CEA1     ADN    49D
Line S00028 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03474  M02S00028.ns2783  ---|          SHN    6           LOW ORDER BIT TO CHANGE TIMES 100
Line S00029 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03475  M02S00029.ns2783  ---|          STD    T7
Line S00030 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03476  M02S00030.ns2783  ---|          LDN    0           NEW VALUE
Line S00031 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03477  M02S00031.ns2783  ---|          STD    CM+2
Line S00032 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03478  M02S00032.ns2783  ---|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
Line S00033 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03479  M02S00033.ns2783  ---|          RJM    UBP         CLEAR ENABLE CHANNEL BIT IN *BDLL*
Line S00034 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03480  M02S00034.ns2783  ---|          LDD    T1+4
Line S00035 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03481  M02S00035.ns2783  ---|          SHN    3
Line S00036 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03482  M02S00036.ns2783  ---|          ADN    BDLL
Line S00037 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03483  M02S00037.ns2783  ---|          CRD    CM
Line S00038 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03484  M02S00038.ns2783  ---|          LDD    CM
Line S00039 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03485  M02S00039.ns2783  ---|          LPN    6
Line S00040 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03486  M02S00040.ns2783  ---|          NJN    CEAX        IF OTHER CHANNEL STILL NOT ENABLED
Line S00041 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03487  M02S00041.ns2783  ---|          LDN    ECAF        CLEAR SPECIAL REQUEST IN *PUT*
Line S00042 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03488  M02S00042.ns2783  ---|          RJM    CPF
Line S00043 Modification History
M01 (Added by) ns2750
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03489  M02S00043.ns2783  ---|          UJN    CEAX        RETURN
Line S00066 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03490  M02S00066.ns2783  ---| CEP      SPACE  4,10
03491  M01S00680.ns2783  +++|          UJN    CECX        RETURN
03492  M01S00681.ns2783  +++| CEP      SPACE  4,15
03493  M01S00067.283l840 +++|**        CEP - CLEAR ERROR PROCESSING INTERLOCK.
03494  M01S00068.283l840 +++|*
Line S00069 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
03495  M02S00069.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
03496  M01S00170.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
03497  M01S00070.283l840 +++|*                (EO) = EST ORDINAL.
Line S00071 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03498  M02S00071.ns2783  ---|*                (ERIT) = NONZERO IF RECOVERY INTERLOCK SET.
03499  M01S00682.ns2783  +++|*                (ERPA) = (DI), IF ERROR PROCESSING ACTIVE ON DEVICE.
03500  M01S00683.ns2783  +++|*                (ERFL) = (DI), IF E.P. INTERLOCK SET FOR THIS DEVICE.
03501  M01S00684.ns2783  +++|*                (ERMF) = (DI), IF MMF RECOVERY INTERLOCK SET.
03502  M01S00072.283l840 +++|*
Line S00073 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03503  M02S00073.ns2783  ---|*         USES   T5, CM - CM+4.
03504  M01S00685.ns2783  +++|*         EXIT   (ERPA) = (ERRA) = 0, IF ERROR PROCESSING ACTIVE.
03505  M01S00686.ns2783  +++|*                (ERFL) = (ERRA) = 0, IF INTERLOCK SET.
03506  M01S00687.ns2783  +++|*                (ERMF) = 0, IF MMF RECOVERY INTERLOCK SET.
03507  M01S00688.ns2783  +++|*                MMF INTERLOCK(S) CLEARED.
03508  M01S00074.283l840 +++|*
Line S00012 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03509  M02S00012.ns2783  ---|*         CALLS  LNU.
03510  M01S00689.ns2783  +++|*         CALLS  CBI, CDS, LNE.
03511  M01S00690.ns2783  +++|*
03512  M01S00691.ns2783  +++|*         MACROS CMSTF, MONITOR.
03513  M01S00013.1da7    +++|
Line S00075 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03514  M02S00075.ns2783  ---|*         MACROS CMSTF, MONITOR, SFA.
03515  M01S00076.283l840 +++|
03516  M01S00692.ns2783  +++| CEP      SUBR               ENTRY/EXIT
03517  M01S00693.ns2783  +++|          LDM    ERPA        CHECK IF ERROR PROCESSING ACTIVE
03518  M01S00694.ns2783  +++|          LMD    DI
03519  M01S00695.ns2783  +++|          NJN    CEP1        IF NOT ACTIVE ON THIS DEVICE
03520  M01S00696.ns2783  +++|          STM    ERPA        CLEAR ERROR PROCESSING ACTIVE FLAG
03521  M01S00697.ns2783  +++|          STM    ERRA        ENABLE NEXT PASS THROUGH ERROR PROCESSOR
03522  M01S00698.ns2783  +++| CEP1     LDM    ERFL        CHECK IF ERROR PROCESSING INTERLOCK SET
03523  M01S00699.ns2783  +++|          LMD    DI
03524  M01S00700.ns2783  +++|          NJN    CEPX        IF NOT SET ON THIS DEVICE
03525  M01S00701.ns2783  +++|          STM    ERFL        CLEAR ERROR PROCESSING INTERLOCK FLAG
03526  M01S00077.283l840 +++|
Line S00014 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03527  M02S00014.ns2783  ---| CEP1     LDN    CBDS        CLEAR BUFFERED DEVICE INTERLOCK
03528  M01S00702.ns2783  +++|*         CLEAR ERROR PROCESSING FLAGS IN *MST*.
03529  M01S00703.ns2783  +++|
03530  M01S00704.ns2783  +++| CEP2     LDN    0           INITIALIZE PARTITION SEARCH
03531  M01S00705.ns2783  +++| CEP3     RJM    LNE         LOCATE NEXT EST FOR THIS DEVICE
03532  M01S00706.ns2783  +++|          ZJN    CEP5        IF NO MORE PARTITIONS TO PROCESS
03533  M01S00707.ns2783  +++|          RJM    CDS         CHECK DEVICE STATUS
03534  M01S00708.ns2783  +++|          MJN    CEP4        IF DEVICE NOT RECOVERED
03535  M01S00709.ns2783  +++|          CMSTF  GDER        CLEAR *ERROR RECOVERY IN PROGRESS* FLAG
03536  M01S00710.ns2783  +++| CEP4     LDD    EO
03537  M01S00711.ns2783  +++|          UJN    CEP3        CHECK FOR NEXT PARTITION
03538  M01S00712.ns2783  +++|
03539  M01S00713.ns2783  +++|*         CLEAR MMF INTERLOCKS, IF SET.
03540  M01S00714.ns2783  +++|
03541  M01S00715.ns2783  +++| CEP5     LDM    ERMF        CHECK IF RECOVERY ERROR INTERLOCK SET
03542  M01S00716.ns2783  +++|          ZJN    CEP6        IF INTERLOCK NOT SET
03543  M01S00717.ns2783  +++|          LDN    CRIS        CLEAR RECOVERY ERROR PROCESSING INTERLOCK
03544  M01S00015.1da7    +++|          STD    CM+1
Line S00016 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03545  M02S00016.ns2783  ---|          LDD    EO          SET EST ORDINAL
Line S00017 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03546  M02S00017.ns2783  ---|          STD    CM+4
03547  M01S00018.1da7    +++|          MONITOR  MTEM
Line S00019 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03548  M02S00019.ns2783  ---| CEP2     CMSTF  GDER        CLEAR *ERROR RECOVERY IN PROGRESS* FLAG
Line S00020 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03549  M02S00020.ns2783  ---|          LDD    EO
Line S00021 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03550  M02S00021.ns2783  ---|          UJN    CEP0.1      CHECK FOR NEXT UNIT LINKED TO *PUT*
03551  M01S00718.ns2783  +++|*         LDN    0           CLEAR RECOVERY ERROR INTERLOCK FLAG
03552  M01S00719.ns2783  +++|          STM    ERMF
03553  M01S00720.ns2783  +++| CEP6     RJM    CBI         CLEAR *BDT* ERROR PROCESSING INTERLOCKS
03554  M01S00721.ns2783  +++|          UJP    CEPX        RETURN
03555  M01S00722.ns2783  +++| CET      SPACE  4,10
03556  M01S00723.ns2783  +++|**        CET - CHECK ELAPSED TIME.
03557  M01S00724.ns2783  +++|*
03558  M01S00725.ns2783  +++|*         ENTRY  (CETB) = TIME OF LAST GLOBAL MST CHECK.
03559  M01S00726.ns2783  +++|*
03560  M01S00727.ns2783  +++|*         EXIT   (A) .LT. 0, IF NOT TIME TO CHECK GLOBAL MST-S.
03561  M01S00728.ns2783  +++|*                (DVTP) BIT 7 SET FOR SHARED PARITY DEVICES, IF TIME.
03562  M01S00729.ns2783  +++|*                (CETB) UPDATED, IF TIME TO CHECK GLOBAL MST-S.
03563  M01S00730.ns2783  +++|*
03564  M01S00731.ns2783  +++|*         USES   T1, T2, CM - CM+4.
03565  M01S00022.1da7    +++|
Line S00023 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03566  M02S00023.ns2783  ---| CEP3     STM    ERFL        CLEAR ERROR PROCESSING FLAG
03567  M01S00024.1da7    +++|
Line S00078 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03568  M02S00078.ns2783  ---| CEP      SUBR               ENTRY/EXIT
Line S00079 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da7
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03569  M03S00079.ns2783  ---|          LDD    EO          SET EST ORDINAL
Line S00025 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03570  M02S00025.ns2783  ---|          LDN    0           SET UP TO LOCATE FIRST UNIT FOR *PUT*
Line S00026 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03571  M02S00026.ns2783  ---| CEP0.1   RJM    LNU         LOCATE NEXT UNIT (USING *EO*)
Line S00027 Modification History
M01 (Added by) 1da7
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03572  M02S00027.ns2783  ---|          ZJN    CEP3        IF NO MORE UNITS
Line S00080 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03573  M02S00080.ns2783  ---|          STD    T5
Line S00081 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03574  M02S00081.ns2783  ---|          SFA    EST         READ EST ENTRY
Line S00082 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03575  M02S00082.ns2783  ---|          ADK    EQDE
03576  M01S00732.ns2783  +++| CET      SUBR               ENTRY/EXIT
03577  M01S00733.ns2783  +++|          LDK    RTCL        GET CURRENT CLOCK
03578  M01S00083.283l840 +++|          CRD    CM
Line S00084 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03579  M02S00084.ns2783  ---|          LDD    CM
03580  M01S00734.ns2783  +++|          LDD    CM+1        COMPARE LOW ORDER BYTE OF SECONDS
03581  M01S00735.ns2783  +++|          SBM    CETB        CALCULATE ELAPSED TIME
03582  M01S00736.ns2783  +++|          PJN    CET1        IF NO UNDERFLOW
03583  M01S00737.ns2783  +++|          ADC    10000       CORRECT FOR UNDERFLOW
03584  M01S00738.ns2783  +++| CET1     SBN    SBUR
03585  M01S00739.ns2783  +++|          MJN    CETX        IF ELAPSED TIME LESS THAN *SBUR* SECONDS
03586  M01S00740.ns2783  +++|          LDD    CM+1        SAVE CURRENT CLOCK VALUE
03587  M01S00741.ns2783  +++|          STM    CETB
03588  M01S00742.ns2783  +++|
03589  M01S00743.ns2783  +++|*         SET *CHECK MMF ACCESS* FLAGS FOR ALL SHARED PARITY DEVICES.
03590  M01S00744.ns2783  +++|
03591  M01S00745.ns2783  +++|          LDC    DSTB-DSTBE
03592  M01S00746.ns2783  +++|*         UJN    CETX        (NO SHARED DEVICES CONFIGURED)
03593  M01S00747.ns2783  +++| CETA     EQU    *-2
03594  M01S00748.ns2783  +++|          STD    T1
03595  M01S00749.ns2783  +++| CET2     LDN    DSTBE       PROCESS NEXT DEVICE
03596  M01S00750.ns2783  +++|          RAD    T1
03597  M01S00751.ns2783  +++|          LMM    DASB
03598  M01S00752.ns2783  +++|          ZJN    CETX        IF NO MORE DEVICES TO PROCESS
03599  M01S00753.ns2783  +++|          LDM    DVTP,T1
03600  M01S00754.ns2783  +++|          LPN    77
03601  M01S00755.ns2783  +++|          STD    T2          DRIVE TYPE
03602  M01S00756.ns2783  +++|          LDML   DM,T2
03603  M01S00757.ns2783  +++|          SHN    21-17
03604  M01S00758.ns2783  +++|          PJN    CET2        IF NOT PARITY DEVICE
03605  M01S00759.ns2783  +++|          LDML   DVTP,T1
03606  M01S00085.283l840 +++|          SHN    21-11
Line S00086 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03607  M02S00086.ns2783  ---|          PJN    CEP2        IF NOT SHARED BUFFERED DEVICE
Line S00087 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03608  M02S00087.ns2783  ---|          LDN    ZERL
Line S00088 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03609  M02S00088.ns2783  ---|          CRD    CM
Line S00089 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03610  M02S00089.ns2783  ---|          LDM    ERIT        CHECK ERROR PROCESSING INTERLOCK TYPE
Line S00090 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
M03 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03611  M03S00090.ns2783  ---|          ZJN    CEP1        IF DEVICE (NOT RECOVERY) INTERLOCK SET
Line S00171 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03612  M02S00171.ns2783  ---|          ZJP    CEP1        IF DEVICE (NOT RECOVERY) INTERLOCK SET
Line S00091 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03613  M02S00091.ns2783  ---|          LDN    CRIS        CLEAR BUFFERED DEVICE RECOVERY INTERLOCK
Line S00092 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03614  M02S00092.ns2783  ---|          STD    CM+1
Line S00093 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03615  M02S00093.ns2783  ---|          MONITOR  MTEM
Line S00094 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
03616  M02S00094.ns2783  ---|          UJN    CEP3        CLEAR ERROR PROCESSING FLAG
03617  M01S00760.ns2783  +++|          PJN    CET2        IF NOT SHARED DEVICE
03618  M01S00761.ns2783  +++|          SHN    -21+11+22
03619  M01S00762.ns2783  +++|          LPC    177577
03620  M01S00763.ns2783  +++|          LMC    200         SET *CHECK MMF PARITY ACCESS* FLAG
03621  M01S00764.ns2783  +++|          STML   DVTP,T1
03622  M01S00765.ns2783  +++|          UJN    CET2        PROCESS NEXT DEVICE
03623  M01S00766.ns2783  +++|
03624  M01S00767.ns2783  +++|
03625  M01S00768.ns2783  +++| CETB     CON    0           TIME OF LAST GLOBAL MST CHECK (SECONDS)
Line S00095 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
03626  M02S00095.1da7    ---|
Line S00096 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
03627  M02S00096.1da7    ---| CEP1     LDN    CBDS        CLEAR BUFFERED DEVICE INTERLOCK
Line S00097 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
03628  M02S00097.1da7    ---|          STD    CM+1
Line S00098 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
03629  M02S00098.1da7    ---|          LDD    EO          SET EST ORDINAL
Proceed to Part 4