Deck 1XD Part 001

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01488  M01S00158.1xd5    +++|*         DRIVE RESERVES WHICH MAY BE HELD BY THE OPPOSITE ACCESS.
Line S00006 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01489  M01S00006.273l780 +++|*         ALSO CLEAR CONTROLLER OVER TEMPERATURE STATUS IN MST WORD
01490  M01S00007.273l780 +++|*         *BDLL*.
Line S00159 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01491  M01S00159.1xd5    +++|*
01492  M01S00160.1xd5    +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
01493  M01S00161.1xd5    +++|*                (DN) = DRIVE NUMBER.
01494  M01S00162.1xd5    +++|*
01495  M01S00163.1xd5    +++|*         EXIT   TO *CMP*.
01496  M01S00164.1xd5    +++|*
Line S00004 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01497  M01S00004.ns2750  +++|*         USES   CM+2, T7.
01498  M01S00005.ns2750  +++|*
Line S00165 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01499  M02S00165.273l780 ---|*         CALLS  EDR.
Line S00008 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01500  M01S00008.273l780 +++|*         CALLS  EDR, UBP.
Line S00166 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01501  M01S00166.1xd5    +++|
01502  M01S00167.1xd5    +++|
01503  M01S00168.1xd5    +++| BOR      BSS    0           ENTRY
Line S00009 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01504  M01S00009.273l780 +++|          LDN    0           CLEAR CONTROLLER OVER TEMPERATURE FLAG
Line S00006 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01505  M01S00006.ns2750  +++|          STD    CM+2
01506  M01S00007.ns2750  +++|          LDC    63*100      LOW ORDER BIT TO CHANGE TIMES 100
01507  M01S00008.ns2750  +++|          STD    T7
01508  M01S00009.ns2750  +++|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
Line S00010 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01509  M01S00010.273l780 +++|          RJM    UBP         UPDATE *BDLL* PARAMETER
Line S00169 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01510  M01S00169.1xd5    +++|          RJM    EDR         EXECUTE DRIVE RESET
01511  M01S00170.1xd5    +++|          LDML   IPPS,DI     CLEAR *BREAK OPPOSITE RESERVE* FLAG
01512  M01S00171.1xd5    +++|          LPC    -1S13
01513  M01S00172.1xd5    +++|          STML   IPPS,DI
01514  M01S00173.1xd5    +++|          LJM    CMP         COMPLETE REQUEST
01515  M00S01235.1xd     +++| EDR      SPACE  4,15
01516  M00S01236.1xd     +++|**        EDR - EXECUTE DRIVE (POWER ON) RESET.
01517  M00S01237.1xd     +++|*
01518  M00S01238.1xd     +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
01519  M00S01239.1xd     +++|*                (DN) = DRIVE NUMBER.
01520  M00S01240.1xd     +++|*
01521  M00S01241.1xd     +++|*         EXIT   (A) = 0 IF COMMAND COMPLETED.
Line S00038 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01522  M01S00038.272l774 +++|*                TO CALLER VIA *RTC*.
01523  M00S01242.1xd     +++|*
01524  M00S01243.1xd     +++|*         ERROR  TO *ERR* IF NOT COMMAND COMPLETED.
01525  M00S01244.1xd     +++|*
01526  M00S01245.1xd     +++|*         USES   TO.
01527  M00S01246.1xd     +++|*
Line S01247 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01528  M01S01247.272l774 ---|*         CALLS  ATT, RTC, WCB.
Line S00039 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01529  M01S00039.272l774 +++|*         CALLS  ATT, WCB.
01530  M00S01248.1xd     +++|
01531  M00S01249.1xd     +++|
01532  M00S01250.1xd     +++| EDR      CON    0
01533  M00S01251.1xd     +++|          LDM    EDR         SET RETURN ADDRESS
Line S01252 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01534  M01S01252.1xd5    ---| EDR1     STM    RADD
Line S00174 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01535  M01S00174.1xd5    +++|          STM    RADD,DI
01536  M00S01253.1xd     +++|          LDC    C0800       SETUP ABORT COMMAND
01537  M00S01254.1xd     +++|          STM    CPBF+OPC
01538  M00S01255.1xd     +++|          LDD    CN          CONTROLLER NUMBER
01539  M00S01256.1xd     +++|          SHN    10
01540  M00S01257.1xd     +++|          LMD    DN          APPEND FACILITY ADDRESS
01541  M00S01258.1xd     +++|          STM    CPBF+CUN
01542  M00S01259.1xd     +++|          LDC    P0254       PARAMETER ID = DRIVE RESET
01543  M00S01260.1xd     +++|          STM    CPBF+FCP
01544  M00S01261.1xd     +++|          LDC    0#400       SELECT POWER ON RESET
01545  M00S01262.1xd     +++|          STM    CPBF+FCP+1
01546  M00S01263.1xd     +++|          LDN    30D         TIMEOUT = 30 SECONDS
01547  M00S01264.1xd     +++|          STD    TO
01548  M00S01265.1xd     +++|          LDN    BCPL+3      WRITE COMMAND BLOCK
01549  M00S01266.1xd     +++|          RJM    WCB
01550  M00S01267.1xd     +++|          LDN    CMSS        WAIT ON INTERRUPT
01551  M00S01268.1xd     +++|          RJM    ATT
01552  M00S01269.1xd     +++|          ZJP    RTC         IF COMMAND COMPLETE
01553  M00S01270.1xd     +++|          LCN    EDRS
01554  M00S01271.1xd     +++|          RJM    ERR         PROCESS ERROR
01555  M00S01272.1xd     +++| GDS      SPACE  4,15
01556  M00S01273.1xd     +++|**        GDS - GET DRIVE STATUS.
01557  M00S01274.1xd     +++|*
01558  M00S01275.1xd     +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
01559  M00S01276.1xd     +++|*                (DN) = DRIVE NUMBER.
01560  M00S01277.1xd     +++|*
01561  M00S01278.1xd     +++|*         EXIT   (A) = DRIVE CONDITION FLAGS.
Line S00040 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01562  M01S00040.272l774 +++|*                TO CALLER VIA *RTC*.
01563  M00S01279.1xd     +++|*
01564  M00S01280.1xd     +++|*         ERROR  TO *ERR* IF COMMAND COMPLETE NOT RECEIVED.
01565  M00S01281.1xd     +++|*
01566  M00S01282.1xd     +++|*         USES   TO.
01567  M00S01283.1xd     +++|*
Line S01284 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01568  M01S01284.272l774 ---|*         CALLS  ATT, RTC, WCB.
Line S00041 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01569  M01S00041.272l774 +++|*         CALLS  ATT, WCB.
01570  M00S01285.1xd     +++|
01571  M00S01286.1xd     +++|
01572  M00S01287.1xd     +++| GDS      CON    0
01573  M00S01288.1xd     +++|          LDM    GDS         SET RETURN ADDRESS
Line S01289 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01574  M01S01289.272l774 ---|          STM    RADD
Line S00042 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01575  M01S00042.272l774 +++|          STM    RADD,DI
01576  M00S01290.1xd     +++|          LDC    C0301       SETUP REPORT STATUS COMMAND
01577  M00S01291.1xd     +++|          STML   CPBF+OPC
01578  M00S01292.1xd     +++|          LDD    CN          CONTROLLER NUMBER
01579  M00S01293.1xd     +++|          SHN    10
01580  M00S01294.1xd     +++|          LMD    DN          FORM FACILITY ADDRESS
01581  M00S01295.1xd     +++|          STM    CPBF+CUN
01582  M00S01296.1xd     +++|          LDN    2           TIMEOUT = 2 SECONDS
01583  M00S01297.1xd     +++|          STD    TO
01584  M00S01298.1xd     +++|          LDN    BCPL        WRITE COMMAND BLOCK
01585  M00S01299.1xd     +++|          RJM    WCB
01586  M00S01300.1xd     +++|          LDN    CMSS        WAIT ON INTERRUPT
01587  M00S01301.1xd     +++|          RJM    ATT
01588  M00S01302.1xd     +++|          ZJN    GDS2        IF COMMAND COMPLETE
01589  M00S01303.1xd     +++|          LCN    ERDS
01590  M00S01304.1xd     +++|          RJM    ERR         PROCESS ERROR
01591  M00S01305.1xd     +++|
01592  M00S01306.1xd     +++| GDS2     LDML   RPBF+6      RETURN DRIVE CONDITION TO CALLER
01593  M00S01307.1xd     +++|*         LJM    RTC
01594  M00S01308.1xd     +++| RTC      SPACE  4,10
01595  M00S01309.1xd     +++|**        RTC - RETURN TO CALLER.
01596  M00S01310.1xd     +++|*
01597  M00S01311.1xd     +++|*         USES   PA.
01598  M00S01312.1xd     +++|
01599  M00S01313.1xd     +++|
01600  M00S01314.1xd     +++| RTC      STD    T0          SAVE 12 BITS OF *A* REGISTER
01601  M00S01315.1xd     +++|          LMD    T0
Line S01316 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01602  M01S01316.272l774 ---|          LMM    RADD        SET RETURN ADDRESS
Line S00043 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01603  M01S00043.272l774 +++|          LMM    RADD,DI     SET RETURN ADDRESS
01604  M00S01317.1xd     +++|          STD    PA
01605  M00S01318.1xd     +++|          LMD    PA          RESTORE *A* REGISTER
01606  M00S01319.1xd     +++|          LMD    T0
01607  M00S01320.1xd     +++|          LJM    0,PA        RETURN TO CALLER
01608  M00S01321.1xd     +++| SCA      SPACE  4,15
01609  M00S01322.1xd     +++|**        SCA - SET CONTROLLER ATTRIBUTES.
01610  M00S01323.1xd     +++|*
01611  M00S01324.1xd     +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
01612  M00S01325.1xd     +++|*
01613  M00S01326.1xd     +++|*         EXIT   (A) = 0 IF COMMAND COMPLETED.
Line S00044 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01614  M01S00044.272l774 +++|*                TO CALLER VIA *RTC*.
01615  M00S01327.1xd     +++|*
01616  M00S01328.1xd     +++|*         ERROR  TO *ERR* IF NOT COMMAND COMPLETED.
01617  M00S01329.1xd     +++|*
01618  M00S01330.1xd     +++|*         USES   TO.
01619  M00S01331.1xd     +++|*
Line S01332 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01620  M01S01332.272l774 ---|*         CALLS  ATT, RTC, WCB.
Line S00045 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01621  M01S00045.272l774 +++|*         CALLS  ATT, WCB.
01622  M00S01333.1xd     +++|
01623  M00S01334.1xd     +++|
01624  M00S01335.1xd     +++| SCA      CON    0
01625  M00S01336.1xd     +++|          LDM    SCA         SET RETURN ADDRESS
Line S01337 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01626  M01S01337.272l774 ---|          STM    RADD
Line S00046 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01627  M01S00046.272l774 +++|          STM    RADD,DI
01628  M00S01338.1xd     +++|          LDC    C0209       SETUP LOAD ATTRIBUTES COMMAND
01629  M00S01339.1xd     +++|          STM    CPBF+OPC
01630  M00S01340.1xd     +++|          LDD    CN          CONTROLLER NUMBER
01631  M00S01341.1xd     +++|          SHN    10
01632  M00S01342.1xd     +++|          LMC    0#FF        APPEND FACILITY ADDRESS
01633  M00S01343.1xd     +++|          STM    CPBF+CUN
01634  M00S01344.1xd     +++|          LDC    P01D1       DISABLE PERFORMANCE LOG
01635  M00S01345.1xd     +++|          STM    CPBF+FCP
01636  M00S01346.1xd     +++|          ADK    P02D2-P01D1 ENABLE MASTER TERMINATE
01637  M00S01347.1xd     +++|          STM    CPBF+FCP+1
01638  M00S01348.1xd     +++|          ADK    P02D3-P02D2 DISABLE EXTENT RESPONSE
01639  M00S01349.1xd     +++|          STM    CPBF+FCP+3
01640  M00S01350.1xd     +++|          LDC    0#100       SET PARAMETERS
01641  M00S01351.1xd     +++|          STM    CPBF+FCP+2
01642  M00S01352.1xd     +++|          STM    CPBF+FCP+4
01643  M00S01353.1xd     +++|          LDN    2           TIMEOUT = 2 SECONDS
01644  M00S01354.1xd     +++|          STD    TO
01645  M00S01355.1xd     +++|          LDN    BCPL+11     WRITE COMMAND BLOCK
01646  M00S01356.1xd     +++|          RJM    WCB
01647  M00S01357.1xd     +++|          LDN    CMSS        WAIT ON INTERRUPT
01648  M00S01358.1xd     +++|          RJM    ATT
01649  M00S01359.1xd     +++|          ZJP    RTC         IF COMMAND COMPLETE
01650  M00S01360.1xd     +++|          LCN    ELCA
01651  M00S01361.1xd     +++|          RJM    ERR         PROCESS ERROR
Line S00175 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01652  M01S00175.1xd5    +++| SDA      SPACE  4,20
01653  M01S00176.1xd5    +++|**        SDA - SET DRIVE ATTRIBUTES.
01654  M01S00177.1xd5    +++|*
01655  M01S00178.1xd5    +++|*         SET THE FACILITY BUSY TIMEOUT FOR THE SPECIFIED DRIVE TO
01656  M01S00179.1xd5    +++|*         15 SECONDS.  THIS IS DONE TO PREVENT ERRORS WHEN ANOTHER
01657  M01S00180.1xd5    +++|*         CONTROL MODULE ACCESSES A DRIVE TO PERFORM SWEEP CYCLING,
01658  M01S00181.1xd5    +++|*         OR WHEN A DRIVE IS TIED UP RUNNING DIAGNOSTICS AFTER A
01659  M01S00182.1xd5    +++|*         SLAVE RESET FROM THE OTHER ACCESS.
01660  M01S00183.1xd5    +++|*
01661  M01S00184.1xd5    +++|*         ENTRY  (CN) = CONTROLLER NUMBER.
01662  M01S00185.1xd5    +++|*                (DN) = DRIVE NUMBER.
01663  M01S00186.1xd5    +++|*
01664  M01S00187.1xd5    +++|*         EXIT   TO *CMP* IF COMMAND COMPLETED.
01665  M01S00188.1xd5    +++|*
01666  M01S00189.1xd5    +++|*         ERROR  TO *ERR* IF ERROR.
01667  M01S00190.1xd5    +++|*
01668  M01S00191.1xd5    +++|*         USES   TO.
01669  M01S00192.1xd5    +++|*
01670  M01S00193.1xd5    +++|*         CALLS  ATT, WCB.
01671  M01S00194.1xd5    +++|
01672  M01S00195.1xd5    +++|
01673  M01S00196.1xd5    +++| SDA      BSS    0           ENTRY
01674  M01S00197.1xd5    +++|
01675  M01S00198.1xd5    +++|*         REPORT DEVICE ATTRIBUTES.
01676  M01S00199.1xd5    +++|
01677  M01S00200.1xd5    +++|          LDC    C0200       SETUP REPORT ATTRIBUTES COMMAND
01678  M01S00201.1xd5    +++|          STML   CPBF+OPC
01679  M01S00202.1xd5    +++|          LDD    CN          SET FACILITY ADDRESS
01680  M01S00203.1xd5    +++|          SHN    10
01681  M01S00204.1xd5    +++|          LMD    DN
01682  M01S00205.1xd5    +++|          STM    CPBF+CUN
01683  M01S00206.1xd5    +++|          LDC    P036C       REQUEST ATTRIBUTE PARAMETER
01684  M01S00207.1xd5    +++|          STML   CPBF+FCP
01685  M01S00208.1xd5    +++|          LDC    0#406F      REQUEST ATTRIBUTE 6F
01686  M01S00209.1xd5    +++|          STML   CPBF+FCP+1
01687  M01S00210.1xd5    +++|          LDN    40D         TIMEOUT = 40 SECONDS
01688  M01S00211.1xd5    +++|          STD    TO
01689  M01S00212.1xd5    +++|          LDN    BCPL+4      WRITE COMMAND BLOCK
01690  M01S00213.1xd5    +++|          RJM    WCB
01691  M01S00214.1xd5    +++|          LDN    CMSS        WAIT FOR INTERRUPT
01692  M01S00215.1xd5    +++|          RJM    ATT
01693  M01S00216.1xd5    +++|          NJP    SDA2        IF ERROR
01694  M01S00217.1xd5    +++|
01695  M01S00218.1xd5    +++|*         SET FACILITY BUSY TIMEOUT TO 15 SECONDS.
01696  M01S00219.1xd5    +++|
01697  M01S00220.1xd5    +++|          LDML   RPBF+25     CHECK CURRENT TIMEOUT VALUE
01698  M01S00221.1xd5    +++|          LMC    0#E4
01699  M01S00222.1xd5    +++|          NJN    SDA1        IF TIMEOUT VALUE NOT CORRECT
01700  M01S00223.1xd5    +++|          LDML   RPBF+26
01701  M01S00224.1xd5    +++|          LMC    0#E1C0
01702  M01S00225.1xd5    +++|          ZJP    SDA4        IF TIMEOUT VALUE ALREADY CORRECT
01703  M01S00226.1xd5    +++| SDA1     LDC    0#E4        SET TIMEOUT VALUE TO 15 SECONDS
01704  M01S00227.1xd5    +++|          STML   RPBF+25
01705  M01S00228.1xd5    +++|          LDC    0#E1C0
01706  M01S00229.1xd5    +++|          STML   RPBF+26
01707  M01S00230.1xd5    +++|
01708  M01S00231.1xd5    +++|*         LOAD DEVICE ATTRIBUTES.
01709  M01S00232.1xd5    +++|
01710  M01S00233.1xd5    +++|          LDC    C0209       SETUP LOAD ATTRIBUTES COMMAND
01711  M01S00234.1xd5    +++|          STML   CPBF+OPC
01712  M01S00235.1xd5    +++|          LDD    CN          SET FACILITY ADDRESS
01713  M01S00236.1xd5    +++|          SHN    10
01714  M01S00237.1xd5    +++|          LMD    DN
01715  M01S00238.1xd5    +++|          STM    CPBF+CUN
01716  M01S00239.1xd5    +++|          LDN    40D         TIMEOUT = 40 SECONDS
01717  M01S00240.1xd5    +++|          STD    TO
01718  M01S00241.1xd5    +++|          LDN    BCPL+50     WRITE COMMAND BLOCK
01719  M01S00242.1xd5    +++|          RJM    WCB
01720  M01S00243.1xd5    +++|          LDN    CMSS        WAIT FOR INTERRUPT
01721  M01S00244.1xd5    +++|          RJM    ATT
01722  M01S00245.1xd5    +++|          ZJN    SDA3        IF COMMAND COMPLETE
01723  M01S00246.1xd5    +++| SDA2     LCN    ERDA
01724  M01S00247.1xd5    +++|          RJM    ERR         PROCESS ERROR
01725  M01S00248.1xd5    +++|
01726  M01S00249.1xd5    +++|*         SAVE NEW ATTRIBUTES IN EEPROM.
01727  M01S00250.1xd5    +++|
01728  M01S00251.1xd5    +++| SDA3     LDC    C020A       SETUP SAVE ATTRIBUTES COMMAND
01729  M01S00252.1xd5    +++|          STML   CPBF+OPC
01730  M01S00253.1xd5    +++|          LDD    CN          SET FACILITY ADDRESS
01731  M01S00254.1xd5    +++|          SHN    10
01732  M01S00255.1xd5    +++|          LMC    0#FF
01733  M01S00256.1xd5    +++|          STM    CPBF+CUN
01734  M01S00257.1xd5    +++|          LDN    40D         TIMEOUT = 40 SECONDS
01735  M01S00258.1xd5    +++|          STD    TO
01736  M01S00259.1xd5    +++|          LDN    BCPL        WRITE COMMAND BLOCK
01737  M01S00260.1xd5    +++|          RJM    WCB
01738  M01S00261.1xd5    +++|          LDN    CMSS        WAIT FOR INTERRUPT
01739  M01S00262.1xd5    +++|          RJM    ATT
01740  M01S00263.1xd5    +++|          NJN    SDA2        IF ERROR
01741  M01S00264.1xd5    +++| SDA4     LDML   IPPS,DI     CLEAR *SET DRIVE ATTRIBUTES* FLAG
01742  M01S00265.1xd5    +++|          LPC    -1S14
01743  M01S00266.1xd5    +++|          STML   IPPS,DI
01744  M01S00267.1xd5    +++|          LJM    CMP         COMPLETE REQUEST
01745  M00S01362.1xd     +++|          TITLE  SUBROUTINES.
01746  M00S01363.1xd     +++| ACE      SPACE  4,10
01747  M00S01364.1xd     +++|**        ACE - ANALYZE CHANNEL ERROR.
01748  M00S01365.1xd     +++|*
01749  M00S01366.1xd     +++|*         ENTRY  (RBUF) = CHANNEL STATUS REGISTER.
01750  M00S01367.1xd     +++|*
01751  M00S01368.1xd     +++|*         EXIT   (A) = 0 IF NO CHANNEL ERROR.
01752  M00S01369.1xd     +++|*                    = CHANNEL ERROR FAULT CODE.
01753  M00S01370.1xd     +++|
01754  M00S01371.1xd     +++|
01755  M00S01372.1xd     +++| ACE3     LDN    ECCM        SET CHANNEL DETECTED CM ERROR
01756  M00S01373.1xd     +++|
01757  M00S01374.1xd     +++| ACE      SUBR               ENTRY/EXIT
01758  M00S01375.1xd     +++|          LDM    RBUF+5
01759  M00S01376.1xd     +++|          LPN    2
01760  M00S01377.1xd     +++|          ZJN    ACEX        IF NO CHANNEL ERROR
01761  M00S01378.1xd     +++|          LDM    RBUF
01762  M00S01379.1xd     +++|          LPN    76
01763  M00S01380.1xd     +++|          NJN    ACE3        IF ERROR IN MEMORY
01764  M00S01381.1xd     +++|          LDM    RBUF+1
01765  M00S01382.1xd     +++|          SHN    -5
01766  M00S01383.1xd     +++|          ZJN    ACE2        IF NOT PARITY / IPI CHANNEL ERROR
01767  M00S01384.1xd     +++|          LPN    2
01768  M00S01385.1xd     +++|          ZJN    ACE1        IF NOT PARITY ERROR
01769  M00S01386.1xd     +++|          LDN    ECPE&ECIE
01770  M00S01387.1xd     +++| ACE1     LMN    ECIE&ECER   FAULT ANALYSIS CODE
01771  M00S01388.1xd     +++| ACE2     LMN    ECER
01772  M00S01389.1xd     +++|          UJN    ACEX        RETURN
01773  M00S01390.1xd     +++| AME      SPACE  4,10
01774  M00S01391.1xd     +++|**        AME - ATTEMPT MONITOR EXCHANGE.
01775  M00S01392.1xd     +++|*
01776  M00S01393.1xd     +++|*         EXIT   (A) = 0.
01777  M00S01394.1xd     +++|*
Line S01395 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01778  M01S01395.ns2714  ---|*         USES   CM - CM+4.
Line S00033 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01779  M01S00033.ns2714  +++|*         USES   CW - CW+4.
01780  M00S01396.1xd     +++|*
01781  M00S01397.1xd     +++|*         MACROS EXPE.
01782  M00S01398.1xd     +++|
01783  M00S01399.1xd     +++|
01784  M00S01400.1xd     +++| AME      SUBR               ENTRY/EXIT
01785  M00S01401.1xd     +++|          EXPE   *
01786  M00S01402.1xd     +++| AME1     LDC    6           CHECK FOR (MA) NON-ZERO
Line S01403 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01787  M01S01403.ns2714  ---|          CRD    CM
01788  M01S01404.ns2714  ---|          LDD    CM
01789  M01S01405.ns2714  ---|          ADD    CM+1
Line S00034 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01790  M01S00034.ns2714  +++|          CRD    CW
01791  M01S00035.ns2714  +++|          LDD    CW+1
01792  M01S00036.ns2714  +++|          ADD    CW
01793  M00S01406.1xd     +++|          NJN    AME1        IF EXCHANGE PACKAGE NOT READY
01794  M00S01407.1xd     +++|          EXPE   *
01795  M00S01408.1xd     +++| AME2     LDC    0           SET (B0) NON-ZERO
01796  M00S01409.1xd     +++|          CWM    AMEA,ON
01797  M00S01410.1xd     +++|          SBN    1           EXCHANGE MONITOR
01798  M00S01411.1xd     +++|          MXN    0
Line S01412 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01799  M01S01412.ns2714  ---|          CRD    CM
01800  M01S01413.ns2714  ---|          LDD    CM+4
Line S00037 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01801  M01S00037.ns2714  +++|          CRD    CW
01802  M01S00038.ns2714  +++|          LDD    CW+4
01803  M00S01414.1xd     +++|          ZJN    AMEX        IF EXCHANGE TAKEN
01804  M00S01415.1xd     +++|          LDN    28D
01805  M00S01416.1xd     +++|          SBN    1
01806  M00S01417.1xd     +++|          NJN    *-1         IF NOT 20 MICROSECONDS ELAPSED
01807  M00S01418.1xd     +++|          UJN    AME2        RETRY EXCHANGE
01808  M00S01419.1xd     +++|
01809  M00S01420.1xd     +++|
01810  M00S01421.1xd     +++| AMEA     VFD    24/0        (P)
01811  M00S01422.1xd     +++|          VFD    18/0        (A0)
01812  M00S01423.1xd     +++|          VFD    18/0        (B0)
01813  M00S01424.1xd     +++| ATT      SPACE  4,10
01814  M00S01425.1xd     +++|**        ATT - PROCESS ATTENTION.
01815  M00S01426.1xd     +++|*
01816  M00S01427.1xd     +++|*         ENTRY  (A) = EXPECTED STATUS RESPONSE TYPE.
Line S00005 Modification History
M01 (Added by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01817  M01S00005.1xd6    +++|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
01818  M00S01428.1xd     +++|*
01819  M00S01429.1xd     +++|*         EXIT   VIA ROUTINE *ECI*.
01820  M00S01430.1xd     +++|*
01821  M00S01431.1xd     +++|*         ERROR  TO *ERR* IF INTERRUPT TIMEOUT.
Line S00008 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
01822  M01S00008.1xd6a   +++|*                TO *SRS11* IF TIMEOUT OF SLAVE RESET INTERRUPT FOR
01823  M01S00009.1xd6a   +++|*                              CONTROLLING DRIVE.
Line S00268 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01824  M01S00268.1xd5    +++|*                TO *SRS13* IF TIMEOUT OF SLAVE RESET INTERRUPT FOR
01825  M01S00269.1xd5    +++|*                              NON-CONTROLLING DRIVE.
01826  M00S01432.1xd     +++|*
Line S01433 Modification History
M01 (Removed by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01827  M01S01433.1xd6    ---|*         CALLS  CTO, XMD.
Line S00006 Modification History
M01 (Added by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01828  M01S00006.1xd6    +++|*         USES   T5.
01829  M01S00007.1xd6    +++|*
01830  M01S00008.1xd6    +++|*         CALLS  CTO, IOM, XMD.
01831  M00S01434.1xd     +++|
01832  M00S01435.1xd     +++|
01833  M00S01436.1xd     +++| ATT      CON    0           ENTRY
Line S01437 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01834  M01S01437.272l774 ---|          STM    EEST
Line S00047 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01835  M01S00047.272l774 +++|          STM    EEST,DI
01836  M00S01438.1xd     +++|          LDM    ATT         SAVE RETURN ADDRESS
Line S01439 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01837  M01S01439.272l774 ---|          STM    ATTN
Line S00048 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01838  M01S00048.272l774 +++|          STM    ATTN,DI
01839  M00S01440.1xd     +++| ATT1     RJM    XMD         RETURN TO MAIN LOOP
Line S01441 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01840  M01S01441.1xd5    ---| ATT2     EQU    ATT1+2
01841  M01S01442.1xd5    ---|
01842  M01S01443.1xd5    ---|*         RETURN HERE THROUGH *ECI* IF NO INTERRUPT RECEIVED.
01843  M01S01444.1xd5    ---|
01844  M01S01445.1xd5    ---|          RJM    CTO
Line S00270 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01845  M01S00270.1xd5    +++| ATT2     RJM    CTO         CHECK FOR TIMEOUT
Line S01446 Modification History
M01 (Removed by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01846  M01S01446.1xd6    ---|          MJN    ATT1        IF NOT TIMEOUT
Line S00271 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01847  M02S00271.1xd6    ---|          LDM    ATTN,DI
Line S00009 Modification History
M01 (Added by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01848  M01S00009.1xd6    +++|          PJP    ATT5        IF TIMEOUT
Line S00010 Modification History
M01 (Added by) 1xd6
M02 (Removed by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
01849  M02S00010.1xd6a   ---|          LDM    ATTN,DI
Line S00010 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
01850  M01S00010.1xd6a   +++|          LDM    PNUN,DI     CHECK FOR SLAVE RESET
01851  M01S00011.1xd6a   +++|          SHN    -6
01852  M01S00012.1xd6a   +++|          STD    T5
01853  M01S00013.1xd6a   +++|          LDML   CSTB,T5
01854  M01S00014.1xd6a   +++|          SHN    21-17
01855  M01S00015.1xd6a   +++|          PJN    ATT2.1      IF NO SLAVE RESET IN PROGRESS
01856  M01S00016.1xd6a   +++|          LDC    SRSG        *CM3 BEING RESET ON CCHNN.*
01857  M01S00017.1xd6a   +++|          STM    IOMA
01858  M01S00018.1xd6a   +++|          LCN    1
01859  M01S00019.1xd6a   +++|          UJN    ATT4        ISSUE OPERATOR MESSAGE
01860  M01S00020.1xd6a   +++|
01861  M01S00021.1xd6a   +++| ATT2.1   LDM    ATTN,DI     CHECK INTERRUPT RETURN ADDRESS
Line S00011 Modification History
M01 (Added by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01862  M01S00011.1xd6    +++|          LMC    SRS13
01863  M01S00012.1xd6    +++|          ZJN    ATT3        IF WAITING FOR ASYNCH AFTER RESET
01864  M01S00013.1xd6    +++|          LMC    SRS11&SRS13
01865  M01S00014.1xd6    +++|          ZJN    ATT3        IF WAITING FOR ASYNCH AFTER RESET
Line S00015 Modification History
M01 (Added by) 1xd6
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01866  M02S00015.ns2750  ---|          LMC    SPDG&SRS11
01867  M02S00016.ns2750  ---|          NJN    ATT1        IF NOT SPIN UP/DOWN
01868  M02S00017.ns2750  ---|          LDM    RWST,DI
01869  M02S00018.ns2750  ---|          STD    T5
01870  M02S00019.ns2750  ---|          LDM    SPDD,T5
01871  M02S00020.ns2750  ---|          UJN    ATT4        ISSUE OPERATOR MESSAGE
Line S00010 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01872  M01S00010.ns2750  +++|          UJN    ATT1        RETURN TO MAIN LOOP
Line S00021 Modification History
M01 (Added by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01873  M01S00021.1xd6    +++|
Line S00022 Modification History
M01 (Added by) 1xd6
M02 (Removed by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
01874  M02S00022.1xd6a   ---| ATT3     LDM    PNUN,DI
01875  M02S00023.1xd6a   ---|          SHN    -6
01876  M02S00024.1xd6a   ---|          STD    T5
01877  M02S00025.1xd6a   ---|          LDM    CSTB,T5
01878  M02S00026.1xd6a   ---|          SHN    21-17
01879  M02S00027.1xd6a   ---|          MJP    ATT1        IF SLAVE RESET IN PROGRESS
01880  M02S00028.1xd6a   ---|          LDC    SPDA        SPIN UP PENDING MESSAGE
Line S00022 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
01881  M01S00022.1xd6a   +++| ATT3     LDC    SPDA        SPIN UP PENDING MESSAGE
Line S00029 Modification History
M01 (Added by) 1xd6
Seq #  *Modification Id* Act 
----------------------------+
01882  M01S00029.1xd6    +++| ATT4     RJM    IOM         ISSUE OPERATOR MESSAGE
01883  M01S00030.1xd6    +++|          UJP    ATT1        RETURN TO MAIN LOOP
01884  M01S00031.1xd6    +++|
01885  M01S00032.1xd6    +++| ATT5     LDM    ATTN,DI
Line S00272 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01886  M01S00272.1xd5    +++|          LMC    SRS13
01887  M01S00273.1xd5    +++|          ZJP    SRS13       IF WAITING FOR SLAVE RESET INTERRUPT
Line S00023 Modification History
M01 (Added by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
01888  M01S00023.1xd6a   +++|          LMC    SRS11&SRS13
01889  M01S00024.1xd6a   +++|          ZJP    SRS11       IF WAITING FOR SLAVE RESET INTERRUPT
Line S00274 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
01890  M01S00274.1xd5    +++|          LDN    0           CLEAR INTERRUPT AND REENTRY ADDRESSES
01891  M01S00275.1xd5    +++|          STM    ATTN,DI
01892  M01S00276.1xd5    +++|          STM    ADDR,DI
01893  M00S01447.1xd     +++|          LDN    ETIT
01894  M00S01448.1xd     +++|          RJM    ERR         PROCESS ERROR
Line S00011 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01895  M01S00011.ns2750  +++|
01896  M01S00012.ns2750  +++|
01897  M01S00013.ns2750  +++| SPDA     DATA   C* EQ000, SPIN UP PENDING.*
Line S00011 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01898  M01S00011.273l780 +++| CCO      SPACE  4,20
01899  M01S00012.273l780 +++|**        CCO - CHECK FOR CONTROLLER OVER TEMPERATURE.
01900  M01S00013.273l780 +++|*
01901  M01S00014.273l780 +++|*         THIS ROUTINE SEARCHES THE RESPONSE PACKET FOR STATUS
01902  M01S00015.273l780 +++|*         INDICATING AN OVER TEMPERATURE CONDITION.  IF THERE IS
01903  M01S00016.273l780 +++|*         AN OVER TEMPERATURE CONDITION, AN ERROR IS OPTIONALLY
01904  M01S00017.273l780 +++|*         LOGGED TO THE BML, A BIT INDICATING OVER TEMPERATURE IS
01905  M01S00018.273l780 +++|*         SET IN *BDLL*, AND AN OPERATOR ACTION MESSAGE IS GENERATED.
01906  M01S00019.273l780 +++|*
01907  M01S00020.273l780 +++|*         ENTRY  (A) = 0 IF BML MESSAGE SHOULD NOT BE ISSUED.
01908  M01S00021.273l780 +++|*
Line S00022 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01909  M02S00022.ns2750  ---|*         USES   CM+1, CM+3, CM+4, T7.
Line S00014 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01910  M01S00014.ns2750  +++|*         USES   CM+1 - CM+4, T7.
Line S00023 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01911  M01S00023.273l780 +++|*
01912  M01S00024.273l780 +++|*         CALLS  IDM, SRP, UBP.
01913  M01S00025.273l780 +++|*
01914  M01S00026.273l780 +++|*         MACROS MONITOR.
01915  M01S00027.273l780 +++|
01916  M01S00028.273l780 +++|
01917  M01S00029.273l780 +++| CCO      SUBR               ENTRY/EXIT
01918  M01S00030.273l780 +++|          STD    T7
01919  M01S00031.273l780 +++|          LDN    ID16
01920  M01S00032.273l780 +++|          RJM    SRP         SEARCH RESPONSE PACKET
01921  M01S00033.273l780 +++|          MJN    CCOX        IF PARAMETER 16 NOT FOUND
01922  M01S00034.273l780 +++|          LDML   RPBF+6,T3
01923  M01S00035.273l780 +++|          SHN    21-11
01924  M01S00036.273l780 +++|          PJN    CCOX        IF NOT CONTROLLER OVER TEMPERATURE
01925  M01S00037.273l780 +++|          LDM    EDBF+FALT
01926  M01S00038.273l780 +++|          STM    CCOA        SAVE VALUES FROM CURRENT MESSAGE
01927  M01S00039.273l780 +++|          LDM    EDBF+FCS2
01928  M01S00040.273l780 +++|          STM    CCOA+1
01929  M01S00041.273l780 +++|          LDM    MSGL+1
01930  M01S00042.273l780 +++|          STM    CCOA+2
01931  M01S00043.273l780 +++|          LDN    ECOT
01932  M01S00044.273l780 +++|          STM    EDBF+FALT   FINAL FAULT CODE
01933  M01S00045.273l780 +++|          LDD    T7
01934  M01S00046.273l780 +++|          ZJN    CCO1        IF NOT ISSUING MESSAGE TO BML
01935  M01S00047.273l780 +++|
01936  M01S00048.273l780 +++|*         HPA DOES NOT DISPLAY THE DATA WITH SYMPTOM 0111 WHEN THE
01937  M01S00049.273l780 +++|*         ERROR IS RECOVERABLE, SO TWO MESSAGES ARE ISSUED TO THE BML.
01938  M01S00050.273l780 +++|
01939  M01S00051.273l780 +++|          LCN    0
01940  M01S00052.273l780 +++|          STM    EDBF+FCS2   SET NO STATUS FOR *HPA*
01941  M01S00053.273l780 +++|          LDN    5
01942  M01S00054.273l780 +++|          STM    MSGL+1      MESSAGE LENGTH
01943  M01S00055.273l780 +++|          LDD    HN
01944  M01S00056.273l780 +++|          ERRNZ  HD0100-100  CODE DEPENDS ON VALUE
01945  M01S00057.273l780 +++|          RJM    IDM         ISSUE INITIAL BML MESSAGE
01946  M01S00058.273l780 +++|          LDN    3
01947  M01S00059.273l780 +++|          STM    MSGL+1      MESSAGE LENGTH
01948  M01S00060.273l780 +++|          LDC    HD0111
01949  M01S00061.273l780 +++|          RJM    IDM         ISSUE FINAL BML MESSAGE
01950  M01S00062.273l780 +++|          LDM    CCOA
01951  M01S00063.273l780 +++|          STM    EDBF+FALT   RESTORE VALUES IN MESSAGE
01952  M01S00064.273l780 +++|          LDM    CCOA+1
01953  M01S00065.273l780 +++|          STM    EDBF+FCS2
01954  M01S00066.273l780 +++|          LDM    CCOA+2
01955  M01S00067.273l780 +++|          STM    MSGL+1
01956  M01S00068.273l780 +++|
01957  M01S00069.273l780 +++|*         SET OVER TEMPERATURE BIT IN *BDLL*.
01958  M01S00070.273l780 +++|
Line S00071 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01959  M02S00071.ns2750  ---| CCO1     LDN    1
Line S00015 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
01960  M01S00015.ns2750  +++| CCO1     LDN    1           NEW VALUE
01961  M01S00016.ns2750  +++|          STD    CM+2
01962  M01S00017.ns2750  +++|          LDC    63*100      LOW ORDER BIT TO CHANGE TIMES 100
01963  M01S00018.ns2750  +++|          STD    T7
01964  M01S00019.ns2750  +++|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
Line S00072 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01965  M01S00072.273l780 +++|          RJM    UBP         UPDATE *BDLL* PARAMETER
01966  M01S00073.273l780 +++|          LDN    EEVS
01967  M01S00074.273l780 +++|          STD    CM+1        ENTER EVENT
01968  M01S00075.273l780 +++|          LDN    0
01969  M01S00076.273l780 +++|          STD    CM+3
01970  M01S00077.273l780 +++|          LDN    CEDE        *CHECK E,E DISPLAY* EVENT
01971  M01S00078.273l780 +++|          STD    CM+4
01972  M01S00079.273l780 +++|          MONITOR  EATM
01973  M01S00080.273l780 +++|          UJP    CCOX        RETURN
01974  M01S00081.273l780 +++|
01975  M01S00082.273l780 +++|
01976  M01S00083.273l780 +++| CCOA     BSS    3           SAVE AREA FOR VALUES FROM CURRENT MESSAGE
01977  M00S01449.1xd     +++| CCR      SPACE  4,15
01978  M00S01450.1xd     +++|**        CCR - CHECK FOR CHANNEL REQUEST.
01979  M00S01451.1xd     +++|*
01980  M00S01452.1xd     +++|*         ENTRY  (UC) = UNIT ACTIVITY COUNT.
01981  M00S01453.1xd     +++|*                (IR+4) = CHANNEL NUMBER.
01982  M00S01454.1xd     +++|*
01983  M00S01455.1xd     +++|*         EXIT   (A) = 0 IF CHANNEL DOWN.
01984  M00S01456.1xd     +++|*
01985  M00S01457.1xd     +++|*         USES   CM - CM+4.
01986  M00S01458.1xd     +++|*
01987  M00S01459.1xd     +++|*         CALLS  DCR, RCT, SRF.
01988  M00S01460.1xd     +++|*
01989  M00S01461.1xd     +++|*         MACROS DELAY, MONITOR.
01990  M00S01462.1xd     +++|
01991  M00S01463.1xd     +++|
01992  M00S01464.1xd     +++| CCR3     RJM    SRF         SET DRIVER RELOAD FLAG
01993  M00S01465.1xd     +++| CCR4     LDD    CR
01994  M00S01466.1xd     +++|
01995  M00S01467.1xd     +++| CCR      SUBR   PRS3        ENTRY/EXIT
01996  M00S01468.1xd     +++|          RJM    RCT         READ CHANNEL TABLE
01997  M00S01469.1xd     +++|          SHN    21-5
01998  M00S01470.1xd     +++|          MJN    CCR3        IF CHANNEL GLOBALLY DOWN
01999  M00S01471.1xd     +++|          LPN    40
02000  M00S01472.1xd     +++|          ZJN    CCR4        IF CHANNEL NOT REQUESTED
02001  M00S01473.1xd     +++|          STM    CHRQ        DISABLE NEW ACTIVITY
02002  M00S01474.1xd     +++|          LDD    UC
02003  M00S01475.1xd     +++|          NJN    CCRX        IF CURRENT ACTIVITY
02004  M00S01476.1xd     +++|          RJM    DCR         DROP CHANNEL RESERVATION
02005  M00S01477.1xd     +++|*         LDN    0
02006  M00S01478.1xd     +++|          STM    CHRQ        ENABLE NEW ACTIVITY
02007  M00S01479.1xd     +++| CCR1     LDD    CR
02008  M00S01480.1xd     +++|          NJN    CCRX        IF CHANNEL RESERVED
02009  M00S01481.1xd     +++|
02010  M00S01482.1xd     +++|*         ENTERED HERE FROM *PRS*.
02011  M00S01483.1xd     +++|
02012  M00S01484.1xd     +++| CCR2     DELAY              WAIT AWHILE
02013  M00S01485.1xd     +++|          LDD    IR+4
02014  M00S01486.1xd     +++|          STD    CM+1        ATTEMPT TO RESERVE CHANNEL
02015  M00S01487.1xd     +++|          MONITOR  CCHM
02016  M00S01488.1xd     +++|          LDD    CM+2        SET RESERVATION STATUS
02017  M00S01489.1xd     +++|          STD    CR
02018  M00S01490.1xd     +++|          RJM    RCT         READ CHANNEL TABLE
02019  M00S01491.1xd     +++|          LPN    40
02020  M00S01492.1xd     +++|          ZJN    CCR1        IF CHANNEL NOT DOWN
02021  M00S01493.1xd     +++|          LJM    CCR3        SET DRIVER RELOAD FLAG
02022  M00S01494.1xd     +++| CDA      SPACE  4,10
02023  M00S01495.1xd     +++|**        CDA - CONVERT PHYSICAL TO LOGICAL DISK ADDRESS.
02024  M00S01496.1xd     +++|*
02025  M00S01497.1xd     +++|*         ENTRY  (T4) = CYLINDER NUMBER.
02026  M00S01498.1xd     +++|*                (T5) = PHYSICAL TRACK + SECTOR.
02027  M00S01499.1xd     +++|*
02028  M00S01500.1xd     +++|*         EXIT   (T6) = LOGICAL TRACK.
02029  M00S01501.1xd     +++|*                (T7) = LOGICAL SECTOR.
02030  M00S01502.1xd     +++|*
02031  M00S01503.1xd     +++|*         USES   T3, T4, T5.
02032  M00S01504.1xd     +++|
02033  M00S01505.1xd     +++|
02034  M00S01506.1xd     +++|*         MULTIPLY THE CYLINDER VALUE BY THE NUMBER OF LOGICAL
02035  M00S01507.1xd     +++|*         SECTORS PER CYLINDER.
02036  M00S01508.1xd     +++|
02037  M00S01509.1xd     +++| CDA2     LDK    LSCY
02038  M00S01510.1xd     +++|          RAD    T7          ADVANCE LOGICAL SECTOR COUNT
02039  M00S01511.1xd     +++|          SHN    -14
02040  M00S01512.1xd     +++|          RAD    T3
02041  M00S01513.1xd     +++| CDA3     SOD    T4
02042  M00S01514.1xd     +++|          PJN    CDA2        IF NOT END OF CONVERSION
02043  M00S01515.1xd     +++|
02044  M00S01516.1xd     +++|*         DIVIDE THE ACCUMULATED LOGICAL SECTOR COUNT BY THE
02045  M00S01517.1xd     +++|*         SUM OF (LOGICAL + GAP) SECTORS PER LOGICAL TRACK.
02046  M00S01518.1xd     +++|
02047  M00S01519.1xd     +++| CDA4     AOD    T6          ADVANCE LOGICAL TRACK NUMBER
02048  M00S01520.1xd     +++|          LDK    -LSLT
02049  M00S01521.1xd     +++|          RAD    T7
02050  M00S01522.1xd     +++|          PJN    CDA4        IF NO UNDERFLOW
02051  M00S01523.1xd     +++|          AOD    T7
02052  M00S01524.1xd     +++|          SOD    T3
02053  M00S01525.1xd     +++|          PJN    CDA4        IF DIVISION INCOMPLETE
02054  M00S01526.1xd     +++|
02055  M00S01527.1xd     +++| CDA      SUBR               ENTRY/EXIT
02056  M00S01528.1xd     +++|          LDD    T5
02057  M00S01529.1xd     +++|          SHN    14          EXTRACT PHYSICAL TRACK
02058  M00S01530.1xd     +++|          STD    T5
02059  M00S01531.1xd     +++|          SHN    CFLP-14     CONVERT PHYSICAL TO LOGICAL SECTOR
02060  M00S01532.1xd     +++|          STD    T7
02061  M00S01533.1xd     +++|          LDN    0           CLEAR SECTOR COUNT ACCUMULATOR
02062  M00S01534.1xd     +++|          STD    T3
Line S01535 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02063  M01S01535.1xd5    ---|          LCN    0           INITIALIZE LOGICAL TRACK CALCULATION
Line S00277 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02064  M01S00277.1xd5    +++|          LDC    4000-1      INITIALIZE LOGICAL TRACK CALCULATION
02065  M00S01536.1xd     +++|          STD    T6
02066  M00S01537.1xd     +++|
02067  M00S01538.1xd     +++|*         MULTIPLY THE TRACK VALUE BY THE NUMBER OF LOGICAL
02068  M00S01539.1xd     +++|*         SECTORS PER PHYSICAL TRACK.
02069  M00S01540.1xd     +++|
02070  M00S01541.1xd     +++| CDA1     SOD    T5
02071  M00S01542.1xd     +++|          MJN    CDA3        IF END OF CONVERSION
02072  M00S01543.1xd     +++|          LDK    LSPT
02073  M00S01544.1xd     +++|          RAD    T7          ADVANCE LOGICAL SECTOR COUNT
02074  M00S01545.1xd     +++|          SHN    -14
02075  M00S01546.1xd     +++|          RAD    T3
02076  M00S01547.1xd     +++|          UJN    CDA1        LOOP ON CONVERSION
Line S00020 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02077  M01S00020.ns2750  +++| CEA      SPACE  4,15
02078  M01S00021.ns2750  +++|**        CEA - CLEAR *ENABLE CONTROLLER ACTIVITY* REQUEST.
02079  M01S00022.ns2750  +++|*
02080  M01S00023.ns2750  +++|*         ENTRY  (EO) = EST ORDINAL FOR DEVICE.
02081  M01S00024.ns2750  +++|*                (IR+4) = CHANNEL NUMBER.
02082  M01S00025.ns2750  +++|*
02083  M01S00026.ns2750  +++|*         EXIT   CHANNEL ENABLE BIT CLEARED IN *MST* WORD *BDLL*.
02084  M01S00027.ns2750  +++|*                SPECIAL REQUEST BIT CLEARED IF BOTH CHANNELS ENABLED.
02085  M01S00028.ns2750  +++|*
02086  M01S00029.ns2750  +++|*         USES   CM - CM+4, T1 - T1+4, T7.
02087  M01S00030.ns2750  +++|*
02088  M01S00031.ns2750  +++|*         CALLS  CPF, UBP.
02089  M01S00032.ns2750  +++|*
02090  M01S00033.ns2750  +++|*         MACROS SFA.
02091  M01S00034.ns2750  +++|
02092  M01S00035.ns2750  +++|
02093  M01S00036.ns2750  +++| CEA      SUBR               ENTRY/EXIT
02094  M01S00037.ns2750  +++|          SFA    EST,EO
02095  M01S00038.ns2750  +++|          ADK    EQDE
02096  M01S00039.ns2750  +++|          CRD    T1          READ *EQDE* WORD
02097  M01S00040.ns2750  +++|          LDD    T1+1
02098  M01S00041.ns2750  +++|          LMD    IR+4
02099  M01S00042.ns2750  +++|          LPN    77
02100  M01S00043.ns2750  +++|          ZJN    CEA1        IF THIS IS THE FIRST CHANNEL
02101  M01S00044.ns2750  +++|          LDN    1
02102  M01S00045.ns2750  +++| CEA1     ADN    49D
02103  M01S00046.ns2750  +++|          SHN    6           LOW ORDER BIT TO CHANGE TIMES 100
02104  M01S00047.ns2750  +++|          STD    T7
02105  M01S00048.ns2750  +++|          LDN    0           NEW VALUE
02106  M01S00049.ns2750  +++|          STD    CM+2
02107  M01S00050.ns2750  +++|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
02108  M01S00051.ns2750  +++|          RJM    UBP         CLEAR ENABLE CHANNEL BIT IN *BDLL*
02109  M01S00052.ns2750  +++|          LDD    T1+4
02110  M01S00053.ns2750  +++|          SHN    3
02111  M01S00054.ns2750  +++|          ADN    BDLL
02112  M01S00055.ns2750  +++|          CRD    CM
02113  M01S00056.ns2750  +++|          LDD    CM
02114  M01S00057.ns2750  +++|          LPN    6
02115  M01S00058.ns2750  +++|          NJN    CEAX        IF OTHER CHANNEL STILL NOT ENABLED
02116  M01S00059.ns2750  +++|          LDN    ECAF        CLEAR SPECIAL REQUEST IN *PUT*
02117  M01S00060.ns2750  +++|          RJM    CPF
02118  M01S00061.ns2750  +++|          UJN    CEAX        RETURN
02119  M00S01548.1xd     +++| CFR      SPACE  4,10
02120  M00S01549.1xd     +++|**        CFR - CHECK *PUT* FOR REQUEST.
02121  M00S01550.1xd     +++|*
02122  M00S01551.1xd     +++|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
02123  M00S01552.1xd     +++|*
Line S01553 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02124  M01S01553.ns2714  ---|*         USES   T2.
Line S00039 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02125  M01S00039.ns2714  +++|*         ERROR  TO *ERR*.
02126  M00S01554.1xd     +++|*
Line S01555 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02127  M01S01555.ns2714  ---|*         CALLS  ECI, IDU, IIO, ISR.
Line S00040 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02128  M02S00040.1xd5    ---|*         USES   T2, CM - CM+4.
Line S00278 Modification History
M01 (Added by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02129  M02S00278.ns2750  ---|*         USES   T2, CM+3.
Line S00062 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02130  M01S00062.ns2750  +++|*         USES   CM+3.
Line S00041 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02131  M01S00041.ns2714  +++|*
02132  M01S00042.ns2714  +++|*         CALLS  CMP8, ECI, IDU, IIO, ISR.
02133  M00S01556.1xd     +++|
02134  M00S01557.1xd     +++|
Line S01558 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02135  M01S01558.ns2750  ---| CFR4     ZJN    CFR7        IF NO SPECIAL REQUEST
02136  M01S01559.ns2750  ---|          RJM    ISR         IDENTIFY SPECIAL REQUEST
02137  M01S01560.ns2750  ---| CFR5     RJM    IDU         INTERLOCK DISK UNIT
02138  M01S01561.ns2750  ---|          NJN    CFRX        IF DRIVE UNAVAILABLE
Line S00063 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02139  M01S00063.ns2750  +++| CFR5     LDD    CB          INITIATE I/O
02140  M01S00064.ns2750  +++|          RJM    IIO
02141  M01S00065.ns2750  +++|          ZJN    CFRX        IF I/O NOT ENABLED ON THIS ACCESS
02142  M01S00066.ns2750  +++|          RJM    IDU         INTERLOCK DISK UNIT
02143  M01S00067.ns2750  +++|          NJN    CFRX        IF INTERLOCK NOT AVAILABLE
Line S00043 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02144  M02S00043.272l774 ---|          LDM    ENAD
Line S00049 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02145  M01S00049.272l774 +++|          LDM    ENAD,DI
Line S00044 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02146  M01S00044.ns2714  +++|          ZJN    CFR6        IF CONTROLLER FUNCTIONAL
02147  M01S00045.ns2714  +++|          LDN    ECMD
02148  M01S00046.ns2714  +++|          RJM    ERR         PROCESS ERROR
02149  M00S01562.1xd     +++|
02150  M00S01563.1xd     +++|*         EXIT TO PROCESSOR AS APPLICABLE WITH -
02151  M00S01564.1xd     +++|*                (PO) = *PUT* ORDINAL.
02152  M00S01565.1xd     +++|*                (CB) = *CBT* ORDINAL.
02153  M00S01566.1xd     +++|*                (EO) = EST ORDINAL.
02154  M00S01567.1xd     +++|*                (RW) = READ / WRITE FLAG.
02155  M00S01568.1xd     +++|*                (CN) = CONTROLLER NUMBER.
02156  M00S01569.1xd     +++|*                (DN) = DRIVE NUMBER.
02157  M00S01570.1xd     +++|*                (WB - WB+4) = *UNCT* WORD OF *PUT* ENTRY.
02158  M00S01571.1xd     +++|
Line S01572 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02159  M01S01572.ns2714  ---|          LJM    0,PA        EXIT TO PROCESSOR
Line S00047 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S00047.ns2714  +++| CFR6     LJM    0,PA        EXIT TO PROCESSOR
02161  M00S01573.1xd     +++|
Line S01574 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02162  M01S01574.ns2750  ---| CFR7     LDD    CB          INITIATE I/O
02163  M01S01575.ns2750  ---|          RJM    IIO
02164  M01S01576.ns2750  ---|          NJN    CFR5        IF I/O ENABLED ON THIS ACCESS
02165  M01S01577.ns2750  ---|
02166  M00S01578.1xd     +++| CFR      SUBR               ENTRY/EXIT
02167  M00S01579.1xd     +++|          RJM    ECI         EXAMINE CONTROLLER INTERRUPTS
Line S00279 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02168  M01S00279.1xd5    +++|*         RJM    CMP8        (TERMINATION PROCESSING)
02169  M00S01580.1xd     +++| CFRA     EQU    *-1
Line S01581 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02170  M01S01581.1xd5    ---|*         RJM    CMP8        (TERMINATION PROCESSING)
Line S01582 Modification History
M01 (Removed by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02171  M02S01582.1xd5    ---|          LDM    SRSA
Line S00048 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02172  M02S00048.1xd5    ---|*         LDM    SRSA
Line S01583 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02173  M01S01583.1xd5    ---|          NJN    CFRX        IF RESET IN PROGRESS
02174  M01S01584.1xd5    ---|          LDD    CM+3
Line S00280 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02175  M01S00280.1xd5    +++|          NJN    CFRX        IF RESET OR ERROR IN PROGRESS
Line S00281 Modification History
M01 (Added by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02176  M02S00281.ns2750  ---|          LDML   IPPS,DI
Line S00068 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02177  M01S00068.ns2750  +++|          LDML   IPPS,DI     CHECK FOR INTERNAL SPECIAL REQUESTS
Line S00282 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02178  M01S00282.1xd5    +++|          SHN    6-15
02179  M01S00283.1xd5    +++|          LPC    300
02180  M01S00284.1xd5    +++|          ZJN    CFR1        IF ALL INTERNAL SPECIAL REQUESTS PROCESSED
02181  M01S00285.1xd5    +++|          STD    CM+3        SET INTERNAL SPECIAL REQUESTS
02182  M01S00286.1xd5    +++| CFR1     LDD    CM+3        CHECK FOR SPECIAL REQUEST
Line S01585 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02183  M01S01585.ns2750  ---|          SCN    1           CLEAR DEVICE UNAVAILABLE
02184  M01S01586.ns2750  ---|          STD    T2
02185  M00S01587.1xd     +++|          NJN    CFR2        IF SPECIAL REQUEST PRESENT
Line S01588 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02186  M01S01588.1xd5    ---|          LMD    CM+3
02187  M01S01589.1xd5    ---| CFR1     NJN    CFRX        IF DEVICE UNAVAILABLE FOR I/O
Line S00287 Modification History
M01 (Added by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S00287.ns2750  ---|          LDD    CM+3
02189  M02S00288.ns2750  ---|          NJN    CFRX        IF DEVICE UNAVAILABLE FOR I/O
02190  M00S01590.1xd     +++|          ADD    WB+3
02191  M00S01591.1xd     +++|          ZJN    CFRX        IF NO I/O REQUEST
02192  M00S01592.1xd     +++| CFR2     LDD    CM+4
02193  M00S01593.1xd     +++|          ZJN    CFR3        IF UNIT NOT INTERLOCKED
02194  M00S01594.1xd     +++|          LMD    OA
Line S01595 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02195  M01S01595.ns2750  ---|          NJN    CFRX        IF NOT INTERLOCKED BY THIS DRIVER
Line S01596 Modification History
M01 (Removed by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02196  M02S01596.ns2750  ---| CFR3     LDC    0
02197  M02S01597.ns2750  ---| CFRB     EQU    *-1         (*PUT* POINTER WORD ADDRESS)
02198  M02S01598.ns2750  ---|          CRD    CM
02199  M02S01599.ns2750  ---|          LDD    CM+3        CHECK RESET INTERLOCK
02200  M02S01600.ns2750  ---|          SHN    21-XDSR+XDSR/12D*12D
02201  M02S01601.ns2750  ---|          MJN    CFRX        IF SELECTIVE RESET IN PROGRESS
02202  M02S01602.ns2750  ---|          LDD    T2
Line S00289 Modification History
M01 (Added by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02203  M02S00289.ns2750  ---| CFR3     LDD    T2
Line S01603 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02204  M01S01603.ns2750  ---|          UJP    CFR4        CHECK FOR SPECIAL REQUEST
Line S00069 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02205  M01S00069.ns2750  +++|          NJN    CFRX        IF UNIT INTERLOCKED BY OTHER DRIVER
02206  M01S00070.ns2750  +++| CFR3     LDD    CM+3        CHECK FOR SPECIAL REQUEST
02207  M01S00071.ns2750  +++|          ZJP    CFR5        IF NO SPECIAL REQUEST
02208  M01S00072.ns2750  +++|          RJM    ISR         IDENTIFY AND PROCESS SPECIAL REQUEST
02209  M01S00073.ns2750  +++|          UJP    CFR1        CHECK FOR ANOTHER REQUEST
02210  M00S01604.1xd     +++| CMC      SPACE  4,10
02211  M00S01605.1xd     +++|**        CMC - CHECK MONITOR COMPLETE.
02212  M00S01606.1xd     +++|*
Line S01607 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02213  M01S01607.1xd5    ---|*         EXIT   (A) = (CM) = 0.
Line S00290 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02214  M01S00290.1xd5    +++|*         EXIT   (A) = (CW) = 0.
02215  M00S01608.1xd     +++|*
Line S01609 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02216  M01S01609.ns2714  ---|*         USES   CM - CM+4.
Line S00049 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02217  M01S00049.ns2714  +++|*         USES   CW - CW+4.
02218  M00S01610.1xd     +++|*
02219  M00S01611.1xd     +++|*         CALLS  AME.
02220  M00S01612.1xd     +++|*
02221  M00S01613.1xd     +++|*         MACROS DELAY.
02222  M00S01614.1xd     +++|
02223  M00S01615.1xd     +++|
02224  M00S01616.1xd     +++| CMC      SUBR               ENTRY/EXIT
02225  M00S01617.1xd     +++| CMC1     LDD    OA
Line S01618 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02226  M01S01618.ns2714  ---|          CRD    CM
02227  M01S01619.ns2714  ---|          LDD    CM
Line S00050 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02228  M01S00050.ns2714  +++|          CRD    CW
02229  M01S00051.ns2714  +++|          LDD    CW
02230  M00S01620.1xd     +++|          ZJN    CMCX        IF NO REQUEST WAITING FOR RESPONSE
02231  M00S01621.1xd     +++|          SHN    21-13
02232  M00S01622.1xd     +++|          PJN    CMC2        IF NOT TO RETRY REQUEST
02233  M00S01623.1xd     +++|          SHN    13-21
02234  M00S01624.1xd     +++|          LPC    177         CLEAR FLAGS
Line S01625 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02235  M01S01625.ns2714  ---|          STD    CM
Line S00052 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02236  M01S00052.ns2714  +++|          STD    CW
02237  M00S01626.1xd     +++|          LDD    OA          UPDATE OUTPUT REGISTER
Line S01627 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02238  M01S01627.ns2714  ---|          CWD    CM
Line S00053 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02239  M01S00053.ns2714  +++|          CWD    CW
02240  M00S01628.1xd     +++|          RJM    AME         REISSUE REQUEST
02241  M00S01629.1xd     +++| CMC2     DELAY
02242  M00S01630.1xd     +++|          UJN    CMC1        RECHECK OUTPUT REGISTER
02243  M00S01631.1xd     +++| CMP      SPACE  4,15
02244  M00S01632.1xd     +++|**        CMP - COMPLETE PROCESSING.
02245  M00S01633.1xd     +++|*
02246  M00S01634.1xd     +++|*         ENTRY  (SF) = DEVICE SELECTED STATUS.
02247  M00S01635.1xd     +++|*                (UC) = UNIT ACTIVITY COUNT.
02248  M00S01636.1xd     +++|*                (RW) = READ / WRITE STATUS.
02249  M00S01637.1xd     +++|*
02250  M00S01638.1xd     +++|*         EXIT   TO *XMD2*.
02251  M00S01639.1xd     +++|*                (UC) = UNIT ACTIVITY COUNT DECREMENTED.
02252  M00S01640.1xd     +++|*
Line S01641 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02253  M01S01641.1xd5    ---|*         USES   WB+3, WB+4.
Line S00291 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02254  M01S00291.1xd5    +++|*         USES   UC, WB+3, WB+4.
02255  M00S01642.1xd     +++|*
02256  M00S01643.1xd     +++|*         CALLS  CMC, DCM, IDM, IMR.
02257  M00S01644.1xd     +++|
02258  M00S01645.1xd     +++|
Line S01646 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02259  M01S01646.272l774 ---| CMP      LDM    ERCT
Line S00050 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02260  M01S00050.272l774 +++| CMP      LDM    ERCT,DI
02261  M00S01647.1xd     +++|          ZJN    CMP4        IF NO ERRORS
Line S01648 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02262  M01S01648.ns2714  ---|          AOM    ERCT
02263  M01S01649.ns2714  ---|          LDN    3           SET BASIC MESSAGE LENGTH
02264  M01S01650.ns2714  ---|          STM    MSGL+1
02265  M01S01651.ns2714  ---| CMP1     LDC    HD0105
02266  M01S01652.ns2714  ---|          RJM    IDM         ISSUE FINAL BML ERROR MESSAGE
02267  M01S01653.ns2714  ---| CMP2     LDM    RQLN
02268  M01S01654.ns2714  ---|          SCN    77          CLEAR PROCESSED BUFFER COUNT
02269  M01S01655.ns2714  ---|          STM    RQLN
02270  M01S01656.ns2714  ---|          LDN    0           CLEAR ERROR COUNT
Line S00054 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02271  M01S00054.ns2714  +++|          LDN    3
02272  M01S00055.ns2714  +++|          STM    MSGL+1      SET BASIC MESSAGE LENGTH
Line S00056 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02273  M02S00056.272l774 ---| CMP1     AOM    ERCT
02274  M02S00057.272l774 ---|          LDC    HD0105      ISSUE FINAL BML MESSAGE
Line S00051 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02275  M01S00051.272l774 +++| CMP1     AOM    ERCT,DI
02276  M01S00052.272l774 +++|          LDC    HD0111      ISSUE FINAL BML MESSAGE
Line S00058 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02277  M01S00058.ns2714  +++|          RJM    IDM
Line S00059 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02278  M02S00059.1xd5    ---| CMP2     LDN    0           CLEAR ERROR COUNT
Line S01657 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02279  M01S01657.1xd5    ---|          STM    ERCT
Line S01658 Modification History
M01 (Removed by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02280  M02S01658.1xd5    ---|          STM    ERFL        CLEAR ERROR PROCESSING IN PROGRESS
02281  M02S01659.1xd5    ---|          STM    ESAD
Line S00060 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02282  M02S00060.1xd5    ---|          LDM    ERFL        CHECK ERROR PROCESSING
02283  M02S00061.1xd5    ---|          LMD    DI
02284  M02S00062.1xd5    ---|          NJN    CMP4        IF NOT ON THIS UNIT
02285  M02S00063.1xd5    ---|          STM    ERFL
Line S00292 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02286  M01S00292.1xd5    +++| CMP2     LDN    0           FORCE CLEAR OF ERROR COUNT / ERROR FLAG
02287  M01S00293.1xd5    +++|          STM    CMPA
02288  M00S01660.1xd     +++| CMP4     RJM    DCM         DESELECT CONTROLLER
02289  M00S01661.1xd     +++|
02290  M00S01662.1xd     +++|*         INCLUDE *PROBE* DATA IN FINAL *BIOM* REQUEST.
02291  M00S01663.1xd     +++|
02292  M00S01664.1xd     +++|          LDD    RW          SET DATA TRANSFER DIRECTION
02293  M00S01665.1xd     +++|          SHN    13-0
Line S01666 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02294  M01S01666.272l774 ---|          LMM    CBCT        APPEND CUMULATIVE BUFFER COUNT
Line S00053 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02295  M01S00053.272l774 +++|          LMM    CBCT,DI     APPEND CUMULATIVE BUFFER COUNT
02296  M00S01667.1xd     +++|          STD    WB+4
Line S01668 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02297  M01S01668.272l774 ---|          LDM    RQLN
Line S00054 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02298  M01S00054.272l774 +++|          LDM    RQLN,DI
Line S01669 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02299  M01S01669.1xd5    ---| CMP5     ZJN    CMP7        IF UNIT NOT INTERLOCKED
Line S00294 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02300  M01S00294.1xd5    +++| CMP5     ZJN    CMP6        IF UNIT NOT INTERLOCKED
02301  M00S01670.1xd     +++|          STD    WB+3
02302  M00S01671.1xd     +++|          LDN    DCBS        DELINK BUFFERS / RELEASE UNIT INTERLOCK
02303  M00S01672.1xd     +++|          RJM    IMR
Line S00295 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02304  M01S00295.1xd5    +++|          RJM    CMC         CHECK FOR MONITOR COMPLETE
02305  M00S01673.1xd     +++|*         LDN    0           CLEAR UNIT INTERLOCKED
Line S01674 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02306  M01S01674.272l774 ---|          STM    RQLN
Line S00055 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02307  M01S00055.272l774 +++|          STM    RQLN,DI
02308  M00S01675.1xd     +++|          SOD    UC          ADJUST UNIT ACTIVITY COUNT
Line S01676 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02309  M01S01676.1xd5    ---| CMP7     LDN    0
Line S00296 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02310  M01S00296.1xd5    +++| CMP6     LDC    1
02311  M01S00297.1xd5    +++| CMPA     EQU    *-1
02312  M01S00298.1xd5    +++|          NJN    CMP7        IF ERCT/ERFL SHOULD NOT BE CLEARED
02313  M01S00299.1xd5    +++|          STM    ERCT,DI     CLEAR ERROR COUNT
02314  M01S00300.1xd5    +++|          AOM    CMPA
02315  M01S00301.1xd5    +++|          LDM    ERFL        CHECK ERROR PROCESSING
02316  M01S00302.1xd5    +++|          LMD    DI
02317  M01S00303.1xd5    +++|          NJN    CMP7        IF NOT ON THIS UNIT
02318  M01S00304.1xd5    +++|          STM    ERFL
02319  M01S00305.1xd5    +++| CMP7     RJM    CMC         CHECK FOR MONITOR COMPLETE
02320  M01S00306.1xd5    +++|*         LDN    0
Line S01677 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02321  M01S01677.272l774 ---|          STM    ADDR        CLEAR REQUEST IN PROGRESS
Line S00307 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02322  M02S00307.272l774 ---|          STM    ATTN,DI
Line S01678 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02323  M01S01678.272l774 ---|          STM    SREQ
Line S01679 Modification History
M01 (Removed by) 1xd5
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02324  M02S01679.272l774 ---|          STM    IPPS        CLEAR I/O IN PROGRESS
Line S01680 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02325  M01S01680.272l774 ---|          STM    CBCT
Line S00064 Modification History
M01 (Added by) ns2714
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02326  M02S00064.272l774 ---|          STM    ESAD        ENABLE NEXT PASS THROUGH ERROR PROCESSOR
Line S00056 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02327  M01S00056.272l774 +++|          STM    ADDR,DI     CLEAR REQUEST IN PROGRESS
02328  M01S00057.272l774 +++|          STM    ATTN,DI
02329  M01S00058.272l774 +++|          STM    SREQ,DI
02330  M01S00059.272l774 +++|          STM    CBCT,DI
02331  M01S00060.272l774 +++|          STM    ESAD,DI     ENABLE NEXT PASS THROUGH ERROR PROCESSOR
Line S01681 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02332  M01S01681.1xd5    ---|          RJM    CMC
Line S00308 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02333  M01S00308.1xd5    +++|          LDML   IPPS,DI     CLEAR I/O IN PROGRESS
02334  M01S00309.1xd5    +++|          LPC    170000
02335  M01S00310.1xd5    +++|          STML   IPPS,DI
02336  M00S01682.1xd     +++|          LJM    XMD2        RETURN
02337  M00S01683.1xd     +++|
02338  M00S01684.1xd     +++|*         TERMINATION PROCESSING.
02339  M00S01685.1xd     +++|
02340  M00S01686.1xd     +++| CMP8     CON    0
02341  M00S01687.1xd     +++| CMP9     LDN    0           CLEAR *PROBE* DATA
02342  M00S01688.1xd     +++|          STD    WB+4
Line S01689 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02343  M01S01689.272l774 ---|          LDM    RQLN        SET REQUEST QUEUE EMPTY
Line S00061 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02344  M01S00061.272l774 +++|          LDM    RQLN,DI     SET REQUEST QUEUE EMPTY
02345  M00S01690.1xd     +++|          SCN    77
02346  M00S01691.1xd     +++|          UJP    CMP5        RELEASE UNIT INTERLOCK
02347  M00S01692.1xd     +++| CPF      SPACE  4,10
Line S01693 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02348  M01S01693.1xd5    ---|**        CLEAR *PUT* FLAG.
Line S00311 Modification History
M01 (Added by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02349  M02S00311.ns2750  ---|**        CPF - CLEAR *PUT* FLAG.
Line S00074 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02350  M01S00074.ns2750  +++|**        CPF - CLEAR *PUT* FLAG IN *PILL*.
02351  M00S01694.1xd     +++|*
Line S01695 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02352  M01S01695.ns2750  ---|*         ENTRY  (A) = BIT NUMBER TO CLEAR IN *PILL* WORD.
Line S00075 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02353  M01S00075.ns2750  +++|*         ENTRY  (A) = 6/N, 6/B.
02354  M01S00076.ns2750  +++|*                      N = NUMBER OF BITS - 1 TO CLEAR.
02355  M01S00077.ns2750  +++|*                      B = LOW ORDER BIT NUMBER TO CLEAR.
02356  M00S01696.1xd     +++|*
Line S01697 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02357  M01S01697.1xd5    ---|*         EXIT   (A) = 0.
02358  M01S01698.1xd5    ---|*
02359  M01S01699.1xd5    ---|*         USES   T6, T7, CM - CM+4.
Line S00312 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02360  M01S00312.1xd5    +++|*         USES   T6, T7, CM+1 - CM+4.
02361  M00S01700.1xd     +++|*
Line S01701 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02362  M01S01701.ns2714  ---|*         CALLS  CMC.
02363  M01S01702.ns2714  ---|*
02364  M00S01703.1xd     +++|*         MACROS MONITOR, PUTE.
02365  M00S01704.1xd     +++|
02366  M00S01705.1xd     +++|
02367  M00S01706.1xd     +++| CPF      SUBR               ENTRY/EXIT
02368  M00S01707.1xd     +++|          SHN    6
02369  M00S01708.1xd     +++|          STD    T7          SET BIT NUMBER
02370  M00S01709.1xd     +++|          SHN    -14
02371  M00S01710.1xd     +++|          ADC    PILL*100+1  WORD OFFSET + FIELD WIDTH
02372  M00S01711.1xd     +++|          STD    T6
Line S01712 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02373  M01S01712.ns2714  ---|          RJM    CMC         CHECK MONITOR COMPLETE
02374  M01S01713.ns2714  ---|*         LDN    0
Line S00065 Modification History
M01 (Added by) ns2714
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02375  M02S00065.ns2750  ---|          LDN    0
Line S01714 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02376  M01S01714.ns2750  ---|          STD    CM+2        CLEAR UNUSED BYTE
Line S00078 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02377  M01S00078.ns2750  +++|          LDN    0           NEW VALUE
02378  M01S00079.ns2750  +++|          STD    CM+2
02379  M00S01715.1xd     +++|          LDD    MA
02380  M00S01716.1xd     +++|          CWD    T6          STORE MESSAGE BUFFER PARAMETERS
02381  M00S01717.1xd     +++|          LDN    1
02382  M00S01718.1xd     +++|          STD    CM+1        PARAMETER WORD COUNT
02383  M00S01719.1xd     +++|          LDI    DI
02384  M00S01720.1xd     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
02385  M00S01721.1xd     +++|          SHN    PUTLS
02386  M00S01722.1xd     +++|          PUTE   *
02387  M00S01723.1xd     +++|          ADC    0           SET BASE *PUT* ENTRY ADDRESS
02388  M00S01724.1xd     +++|          STD    CM+4
02389  M00S01725.1xd     +++|          SHN    -14
02390  M00S01726.1xd     +++|          STD    CM+3
02391  M00S01727.1xd     +++|          MONITOR  UTEM      CLEAR *PUT* FLAG
Line S01728 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02392  M01S01728.1xd5    ---|*         LDN    0
02393  M00S01729.1xd     +++|          UJN    CPFX        RETURN
02394  M00S01730.1xd     +++| CSR      SPACE  4,10
02395  M00S01731.1xd     +++|**        CSR - CLEAR SPECIAL REQUEST.
02396  M00S01732.1xd     +++|*
Line S00080 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02397  M01S00080.ns2750  +++|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
02398  M01S00081.ns2750  +++|*
02399  M00S01733.1xd     +++|*         EXIT   TO *CMP*.
02400  M00S01734.1xd     +++|*
02401  M00S01735.1xd     +++|*         CALLS  CPF.
02402  M00S01736.1xd     +++|
02403  M00S01737.1xd     +++|
02404  M00S01738.1xd     +++| CSR      BSS    0           ENTRY
Line S01739 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02405  M01S01739.272l774 ---|          LDM    SREQ
Line S00062 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02406  M01S00062.272l774 +++|          LDM    SREQ,DI
Line S01740 Modification History
M01 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02407  M01S01740.ns2750  ---|          ZJN    CSR1        IF REQUEST SELECTED BY DRIVER
Line S00082 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02408  M01S00082.ns2750  +++|          ZJN    CSR1        IF NO SPECIAL REQUEST IN PROGRESS
Line S01741 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02409  M01S01741.1xd5    ---|          RJM    CPF
Line S00313 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02410  M01S00313.1xd5    +++|          LPN    77
Line S00314 Modification History
M01 (Added by) 1xd5
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02411  M02S00314.ns2750  ---|          SBN    SPDF+ISRB-ISRA
Line S00083 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02412  M01S00083.ns2750  +++|          SBN    ECAF+ISRB-ISRA
Line S00315 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02413  M01S00315.1xd5    +++|          PJN    CSR1        IF INTERNAL SPECIAL REQUEST
02414  M01S00316.1xd5    +++|          LDM    SREQ,DI
02415  M01S00317.1xd5    +++|          RJM    CPF         CLEAR *PUT* FLAG
02416  M00S01742.1xd     +++| CSR1     LJM    CMP         COMPLETE PROCESSING
02417  M00S01743.1xd     +++| CTO      SPACE  4,10
02418  M00S01744.1xd     +++|**        CTO - CHECK TIMEOUT.
02419  M00S01745.1xd     +++|*
02420  M00S01746.1xd     +++|*         EXIT   (A) .LT. 0 IF NOT TIMEOUT.
02421  M00S01747.1xd     +++|*
Line S01748 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02422  M01S01748.1xd5    ---|*         USES   T6, T7, CM - CM+4.
02423  M01S01749.1xd5    ---|*
02424  M01S01750.1xd5    ---|*         MACROS FTTE.
Line S00318 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02425  M01S00318.1xd5    +++|*         USES   CM - CM+4.
02426  M00S01751.1xd     +++|
02427  M00S01752.1xd     +++|
02428  M00S01753.1xd     +++| CTO      SUBR               ENTRY/EXIT
Line S01754 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S01754.1xd5    ---|          LDI    DI
02430  M01S01755.1xd5    ---|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
02431  M01S01756.1xd5    ---|          SHK    FTTLS
02432  M01S01757.1xd5    ---|          FTTE   *
02433  M01S01758.1xd5    ---|          ADC    0           READ *FTT* ENTRY
Line S00319 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00319.1xd5    +++|          LDC    RTCL        FETCH CURRENT CLOCK VALUE
02435  M00S01759.1xd     +++|          CRD    CM
Line S01760 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02436  M01S01760.1xd5    ---|          LDC    RTCL        FETCH CURRENT CLOCK VALUE
02437  M01S01761.1xd5    ---|          CRD    T6
02438  M01S01762.1xd5    ---|          LDD    T6          CHECK ELAPSED TIME
02439  M01S01763.1xd5    ---|          SBD    CM+3
02440  M01S01764.1xd5    ---|          MJN    CTOX        IF NOT TIMEOUT
02441  M01S01765.1xd5    ---|          SHN    14
02442  M01S01766.1xd5    ---|          ADD    T7
02443  M01S01767.1xd5    ---|          SBD    CM+4
Line S00320 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02444  M01S00320.1xd5    +++|          LDD    CM          CHECK ELAPSED TIME
02445  M01S00321.1xd5    +++|          SBM    FTOC,DI
02446  M01S00322.1xd5    +++|          NJN    CTOX        IF TIMEOUT PASSED OR NOT REACHED
02447  M01S00323.1xd5    +++|          LDD    CM+1
02448  M01S00324.1xd5    +++|          SBM    FTOC+1,DI
02449  M00S01768.1xd     +++|          UJN    CTOX        RETURN
02450  M00S01769.1xd     +++| DCR      SPACE  4,10
Line S01770 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02451  M01S01770.1xd5    ---|**        DCR    DROP CHANNEL RESERVATION.
Line S00325 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02452  M01S00325.1xd5    +++|**        DCR - DROP CHANNEL RESERVATION.
02453  M00S01771.1xd     +++|*
02454  M00S01772.1xd     +++|*         ENTRY  (CR) = 1 IF CHANNEL RESERVED.
02455  M00S01773.1xd     +++|*                (IR+4) = CHANNEL NUMBER.
02456  M00S01774.1xd     +++|*
02457  M00S01775.1xd     +++|*         EXIT   (A) = (CR) = 0.
02458  M00S01776.1xd     +++|*
02459  M00S01777.1xd     +++|*         USES   CM - CM+4.
02460  M00S01778.1xd     +++|*
02461  M00S01779.1xd     +++|*         MACROS MONITOR.
02462  M00S01780.1xd     +++|
02463  M00S01781.1xd     +++|
02464  M00S01782.1xd     +++| DCR      SUBR               ENTRY/EXIT
02465  M00S01783.1xd     +++|          LDD    CR
02466  M00S01784.1xd     +++|          ZJN    DCRX        IF CHANNEL NOT RESERVED
02467  M00S01785.1xd     +++|          LDD    IR+4
02468  M00S01786.1xd     +++|          STD    CM+1        DROP CHANNEL
02469  M00S01787.1xd     +++|          MONITOR  DCHM
02470  M00S01788.1xd     +++|*         LDN    0           SET CHANNEL NOT RESERVED
02471  M00S01789.1xd     +++|          STD    CR
02472  M00S01790.1xd     +++|          UJN    DCRX        RETURN
Line S00084 Modification History
M01 (Added by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
02473  M01S00084.ns2750  +++| ECA      SPACE  4,20
02474  M01S00085.ns2750  +++|**        ECA - ENABLE CONTROLLER ACTIVITY.
02475  M01S00086.ns2750  +++|*
02476  M01S00087.ns2750  +++|*         THIS SPECIAL REQUEST CLEARS THE CONTROLLER DEAD FLAGS IN
02477  M01S00088.ns2750  +++|*         THE CONTROLLER STATE TABLE, AND IN THE DEVICE STATE TABLE
02478  M01S00089.ns2750  +++|*         ENTRIES FOR ALL DEVICES ON THIS CONTROLLER.  THIS FUNCTION IS
02479  M01S00090.ns2750  +++|*         ISSUED BY *1MV* WHEN THE STATE OF A 9853 DRIVE IS CHANGED
02480  M01S00091.ns2750  +++|*         TO *ON* OR *IDLE*.
02481  M01S00092.ns2750  +++|*
02482  M01S00093.ns2750  +++|*         ENTRY  (EO) = EST ORDINAL.
02483  M01S00094.ns2750  +++|*                (IR+4) = CHANNEL NUMBER.
02484  M01S00095.ns2750  +++|*
02485  M01S00096.ns2750  +++|*         EXIT   TO *CMP7* WHEN FUNCTION COMPLETE.
02486  M01S00097.ns2750  +++|*
02487  M01S00098.ns2750  +++|*         CALLS  CEA, LND.
02488  M01S00099.ns2750  +++|
02489  M01S00100.ns2750  +++|
02490  M01S00101.ns2750  +++| ECA      BSS    0           ENTRY
02491  M01S00102.ns2750  +++|          LDN    0           LOCATE FIRST DRIVE
02492  M01S00103.ns2750  +++| ECA1     RJM    LND         LOCATE DRIVE
02493  M01S00104.ns2750  +++|          ZJN    ECA2        IF NO MORE DRIVES ON CONTROLLER
02494  M01S00105.ns2750  +++|          LDN    0           CLEAR CONTROLLER DEAD FLAG
02495  M01S00106.ns2750  +++|          STM    ENAD,T7
02496  M01S00107.ns2750  +++|          LDN    1           LOCATE NEXT DRIVE
02497  M01S00108.ns2750  +++|          UJN    ECA1        LOCATE DRIVE
02498  M01S00109.ns2750  +++|
02499  M01S00110.ns2750  +++| ECA2     LDM    CSTB,T5     ENABLE CONTROLLER ACTIVITY
02500  M01S00111.ns2750  +++|          STM    CSTB,T5     (CLEAR BITS 15 - 12)
02501  M01S00112.ns2750  +++|          RJM    CEA         CLEAR ENABLE ACTIVITY REQUEST
02502  M01S00113.ns2750  +++|          LJM    CMP7        COMPLETE FUNCTION
02503  M00S01791.1xd     +++| EIO      SPACE  4,10
02504  M00S01792.1xd     +++|**        EIO - ENTER I/O REQUEST QUEUE.
02505  M00S01793.1xd     +++|*
02506  M00S01794.1xd     +++|*         ENTRY  (RW) = READ / WRITE STATUS.
02507  M00S01795.1xd     +++|*                (CB) = CURRENT BUFFER ORDINAL.
02508  M00S01796.1xd     +++|*
Line S01797 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02509  M01S01797.ns2714  ---|*         USES   CM - CM+4.
Line S00066 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02510  M01S00066.ns2714  +++|*         USES   WB+3, CM - CM+4.
02511  M00S01798.1xd     +++|*
Line S01799 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02512  M01S01799.ns2714  ---|*         CALLS  CMC, IMR, SLB.
Line S00067 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02513  M01S00067.ns2714  +++|*         CALLS  IMR, SLB.
02514  M00S01800.1xd     +++|
02515  M00S01801.1xd     +++|
02516  M00S01802.1xd     +++| EIO2     LDD    OA
02517  M00S01803.1xd     +++|          CRD    CM          CHECK OUTPUT REGISTER
02518  M00S01804.1xd     +++|          LDD    CM
02519  M00S01805.1xd     +++|          NJN    EIOX        IF MONITOR REQUEST IN PROGRESS
02520  M00S01806.1xd     +++| EIO3     LDN    DCBS
02521  M00S01807.1xd     +++|          RJM    IMR         INITIATE MONITOR REQUEST
02522  M00S01808.1xd     +++|*         LDN    0
02523  M00S01809.1xd     +++|          SBD    WB+3        ADJUST QUEUE ENTRY COUNT
Line S01810 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02524  M01S01810.272l774 ---|          RAM    RQLN
Line S00063 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02525  M01S00063.272l774 +++|          RAM    RQLN,DI
02526  M00S01811.1xd     +++|
02527  M00S01812.1xd     +++| EIO      SUBR               ENTRY/EXIT
02528  M00S01813.1xd     +++|          LDD    RW
02529  M00S01814.1xd     +++|          NJN    EIO1        IF WRITE OPERATION
02530  M00S01815.1xd     +++|          LDD    CB
02531  M00S01816.1xd     +++|          RJM    SLB         SET LINKAGE BITS
Line S01817 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02532  M01S01817.272l774 ---| EIO1     AOM    CBCT
02533  M01S01818.272l774 ---|          AOM    RQLN        ADVANCE ENTRY COUNT
Line S00064 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02534  M01S00064.272l774 +++| EIO1     AOM    CBCT,DI
02535  M01S00065.272l774 +++|          AOM    RQLN,DI     ADVANCE ENTRY COUNT
02536  M00S01819.1xd     +++|          LPN    77
02537  M00S01820.1xd     +++|          SBM    EIOA,RW
02538  M00S01821.1xd     +++|          MJN    EIOX        IF QUEUE NOT FULL
02539  M00S01822.1xd     +++|          ADN    1
02540  M00S01823.1xd     +++|          STD    WB+3        NUMBER OF BUFFERS TO DELINK
02541  M00S01824.1xd     +++|          SBN    14
02542  M00S01825.1xd     +++|          MJN    EIO2        IF NOT TIME TO FORCE DELINK
Line S01826 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02543  M01S01826.ns2714  ---|          RJM    CMC         ENSURE MONITOR COMPLETE
02544  M00S01827.1xd     +++|          UJN    EIO3        DELINK BUFFERS
02545  M00S01828.1xd     +++|
02546  M00S01829.1xd     +++|
02547  M00S01830.1xd     +++| EIOA     BSS    0           DELINKING CRITERIA
Line S01831 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02548  M01S01831.1xd5    ---|          CON    2
Line S00326 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02549  M01S00326.1xd5    +++|          CON    1
02550  M00S01832.1xd     +++|          CON    10
Line S01833 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02551  M01S01833.1xd5    ---| ERR      SPACE  4,15
Line S00327 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02552  M01S00327.1xd5    +++| ERR      SPACE  4,45
02553  M00S01834.1xd     +++|**        ERR - PROCESS ERRORS.
Line S00328 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02554  M01S00328.1xd5    +++|*
02555  M01S00329.1xd5    +++|*         ERROR PROCESSING FLOW IS CONTROLLED BY THE RETRY COUNT, ERCT.
02556  M01S00330.1xd5    +++|*         EXAMPLE FLOW THROUGH RECOVERY FOR DRIVE ERROR -
02557  M01S00331.1xd5    +++|*
02558  M01S00332.1xd5    +++|*      ERCT,DI          COMMENT
02559  M01S00333.1xd5    +++|*      -------   ------------------------------------------------------
02560  M01S00334.1xd5    +++|*         0      ENTER, LOGICAL RESET
02561  M01S00335.1xd5    +++|*         1      ISSUE BML MESSAGE, EXIT
02562  M01S00336.1xd5    +++|*         1      ENTER, LOGICAL RESET, DRIVE RESET
02563  M01S00337.1xd5    +++|*         2      ISSUE BML MESSAGE, EXIT
02564  M01S00338.1xd5    +++|*         2      ENTER, SLAVE RESET
02565  M01S00339.1xd5    +++|*         3      ISSUE BML MESSAGE, EXIT
02566  M01S00340.1xd5    +++|*         3      ENTER, LOGICAL RESET
02567  M01S00341.1xd5    +++|*         4      ISSUE BML MESSAGE, SET SUSPECT STATE, EXIT
02568  M01S00342.1xd5    +++|*
02569  M01S00343.1xd5    +++|*         THE REQUEST IS NOW CHANNEL SPECIFIC, AND IF DUAL ACCESS IS
02570  M01S00344.1xd5    +++|*         DEFINED, WILL BE FOR THE OTHER CHANNEL.
02571  M01S00345.1xd5    +++|*
02572  M01S00346.1xd5    +++|*         4      ENTER, LOGICAL RESET
02573  M01S00347.1xd5    +++|*         5      ISSUE BML MESSAGE, EXIT
02574  M01S00348.1xd5    +++|*         5      ENTER, LOGICAL RESET, DRIVE RESET
02575  M01S00349.1xd5    +++|*         6      ISSUE BML MESSAGE, EXIT
02576  M01S00350.1xd5    +++|*         6      ENTER, LOGICAL RESET
02577  M01S00351.1xd5    +++|*         7      ISSUE BML MESSAGE, RUN DRIVE DIAGNOSTICS, EXIT
02578  M01S00352.1xd5    +++|*         7      ENTER, LOGICAL RESET
02579  M01S00353.1xd5    +++|*         8      SET MISCELLANEOUS AND ISSUE THE FINAL BML MESSAGE.
02580  M00S01835.1xd     +++|*
Line S00084 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02581  M01S00084.273l780 +++|*         NOTE - IF THE REQUEST STARTS OUT AS A CHANNEL-SPECIFIC
02582  M01S00085.273l780 +++|*                REQUEST (E.G. A *1MV* I/O REQUEST), ALL RETRIES WILL
02583  M01S00086.273l780 +++|*                BE DONE ON THIS CHANNEL.
02584  M01S00087.273l780 +++|*
02585  M00S01836.1xd     +++|*         ENTRY  (A) = FAULT ANALYSIS CODE.
02586  M00S01837.1xd     +++|*                (RF) = RESET IN PROGRESS STATUS.
02587  M00S01838.1xd     +++|*
02588  M00S01839.1xd     +++|*         EXIT   TO *CMP*.
02589  M00S01840.1xd     +++|*                (RF) = 0.
02590  M00S01841.1xd     +++|*
Line S01842 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02591  M01S01842.ns2714  ---|*         USES   PA, T2, T3, T4, T5, CM - CM+4, WB - WB+4.
Line S00068 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02592  M02S00068.1xd5    ---|*         USES   PA, RF, RW, T2, T3, T4, T5, WB+3, CM - CM+4,
02593  M02S00069.1xd5    ---|*                CN - CN+4.
Line S00354 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02594  M02S00354.273l780 ---|*         USES   DI, PA, RF, RW, T2, T3, T4, T5, WB+3, CM+1 - CM+3,
02595  M02S00355.273l780 ---|*                CW - CW+4.
Line S00088 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02596  M01S00088.273l780 +++|*         USES   DI, PA, RF, RW, WB+3, CM+1 - CM+3, CW - CW+4, T1 - T5.
02597  M00S01843.1xd     +++|*
Line S01844 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02598  M01S01844.ns2714  ---|*         CALLS  ACE, IEM, IMR, RCR, RMR, RTR, SCD,
Line S00070 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02599  M02S00070.1xd5    ---|*         CALLS  ACE, DCM, IDM, IMR, LND, RCR, RMR, RTR, SCD,
Line S01845 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02600  M01S01845.1xd5    ---|*                SEC, SMC, SRI, SRP, STF, STO, UHD.
Line S00356 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02601  M02S00356.273l780 ---|*         CALLS  ACE, DCM, EDR, ICR, IDM, IMR, LDP, LND, RCR, RMR, RND,
02602  M02S00357.273l780 ---|*                RTR, SCD, SEC, SMC, SRP, STF, UHD.
Line S00089 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02603  M01S00089.273l780 +++|*         CALLS  ACE, CCO, DCM, EDR, ICR, IDM, IMR, LDP, LND, RCR, RMR,
02604  M01S00090.273l780 +++|*                RND, RTR, SCD, SEC, SMC, SRP, STF, UHD.
02605  M00S01846.1xd     +++|*
Line S01847 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02606  M01S01847.273l780 ---|*         MACROS MONITOR, SFA.
Line S00091 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02607  M01S00091.273l780 +++|*         MACROS CBTE, MONITOR, SFA.
02608  M00S01848.1xd     +++|
02609  M00S01849.1xd     +++|
Line S01850 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02610  M01S01850.1xd5    ---| ERR      CON    0
Line S00358 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02611  M01S00358.1xd5    +++| ERR      CON    0           ENTRY
02612  M00S01851.1xd     +++|          PJN    ERR1        IF NO RESPONSE PACKET
02613  M00S01852.1xd     +++|          LMC    767777
02614  M00S01853.1xd     +++| ERR1     STD    T4          SAVE FAULT CODE
02615  M00S01854.1xd     +++|          SHN    0-14
Line S00359 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02616  M01S00359.1xd5    +++|          STD    T3
02617  M01S00360.1xd5    +++|          LDM    RQLN,DI
02618  M01S00361.1xd5    +++|          SCN    77
02619  M01S00362.1xd5    +++|          NJN    ERR1.4      IF DEVICE INTERLOCKED
02620  M01S00363.1xd5    +++|
02621  M01S00364.1xd5    +++|*         IF DEVICE NOT INTERLOCKED, THIS MAY BE AN ERROR ENCOUNTERED
02622  M01S00365.1xd5    +++|*         WHEN READING A RESPONSE PACKET FOR AN UNSOLICITED ASYNC
02623  M01S00366.1xd5    +++|*         INTERRUPT.  IN THIS CASE, FIND ANY DEVICE ON THIS CONTROL
02624  M01S00367.1xd5    +++|*         MODULE WHICH IS INTERLOCKED, AND PROCESS THE ERROR AS IF IT
02625  M01S00368.1xd5    +++|*         WAS FROM THAT DEVICE.  IF NO DEVICE ON THIS CONTROL MODULE
02626  M01S00369.1xd5    +++|*         IS INTERLOCKED, RESET THE CHANNEL AND DISCARD THE ERROR,
02627  M01S00370.1xd5    +++|*         REENTERING *ECI* AT *ECI3*.
02628  M01S00371.1xd5    +++|
02629  M01S00372.1xd5    +++|          LDN    0           LOCATE FIRST DRIVE
02630  M01S00373.1xd5    +++| ERR1.1   RJM    LND
02631  M01S00374.1xd5    +++|          ZJN    ERR1.2      IF NO MORE DEVICES
02632  M01S00375.1xd5    +++|          LDM    RQLN,T7     CHECK NEXT DEVICE
02633  M01S00376.1xd5    +++|          SCN    77
02634  M01S00377.1xd5    +++|          NJN    ERR1.3      IF DEVICE INTERLOCKED
02635  M01S00378.1xd5    +++|          LDN    1
02636  M01S00379.1xd5    +++|          UJN    ERR1.1      LOCATE NEXT DEVICE
02637  M01S00380.1xd5    +++|
02638  M01S00381.1xd5    +++| ERR1.2   RJM    RCR         RESET CHANNEL REGISTERS
02639  M01S00382.1xd5    +++|          LJM    ECI3        DISCARD ERROR AND LOOK FOR I/O REQUEST
02640  M01S00383.1xd5    +++|
02641  M01S00384.1xd5    +++| ERR1.3   LDD    T7          SET DEVICE PARAMETERS
02642  M01S00385.1xd5    +++|          STD    DI
02643  M01S00386.1xd5    +++|          RJM    LDP
02644  M01S00387.1xd5    +++| ERR1.4   LDD    T3
Line S01855 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02645  M01S01855.272l774 ---|          STM    RPST        SET RESPONSE PACKET STATUS
Line S00066 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02646  M01S00066.272l774 +++|          STM    RPST,DI     SET RESPONSE PACKET STATUS
02647  M00S01856.1xd     +++|          LDM    SRSA
02648  M00S01857.1xd     +++|          ZJN    ERR3        IF NO RESET IN PROGRESS
02649  M00S01858.1xd     +++|          LMD    DI
Line S01859 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02650  M01S01859.1xd5    ---| ERR2     NJP    CMP7        IF THIS UNIT NOT CONTROLLING RESET
02651  M01S01860.1xd5    ---|          STM    SRSA
02652  M01S01861.1xd5    ---|          RJM    SRI         RELEASE RESET INTERLOCK
Line S00388 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02653  M01S00388.1xd5    +++| ERR2     ZJN    ERR2.1      IF THIS UNIT CONTROLLING RESET
02654  M01S00389.1xd5    +++|          RJM    RCR         RESET CHANNEL REGISTERS
02655  M01S00390.1xd5    +++|          LDN    0           CLEAR BUFFER COUNTS
02656  M01S00391.1xd5    +++|          STM    CBCT,DI
02657  M01S00392.1xd5    +++|          LDC    4000
02658  M01S00393.1xd5    +++|          STM    RQLN,DI
02659  M01S00394.1xd5    +++|          LJM    CMP         RELEASE DRIVE INTERLOCK
02660  M01S00395.1xd5    +++|
02661  M01S00396.1xd5    +++| ERR2.1   STM    SRSA        CLEAR RESET INTERLOCK
Line S01862 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02662  M01S01862.272l774 ---| ERR3     LDM    ESAD
Line S00067 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02663  M01S00067.272l774 +++| ERR3     LDM    ESAD,DI
02664  M00S01863.1xd     +++|          ZJN    ERR4        IF NEW PASS THRU PROCESSOR
02665  M00S01864.1xd     +++|          STD    PA
02666  M00S01865.1xd     +++|          LJM    0,PA        CONTINUE
02667  M00S01866.1xd     +++|
02668  M00S01867.1xd     +++|*ERR4     LDN    0           CLEAR CHANNEL ACTIVE
02669  M00S01868.1xd     +++| ERR4     RJM    SCD
02670  M00S01869.1xd     +++|          LDC    0           CHECK ERROR FLAG
02671  M00S01870.1xd     +++| ERFL     EQU    *-1
02672  M00S01871.1xd     +++|          ZJN    ERR5        IF NO ERROR IN PROGRESS
02673  M00S01872.1xd     +++|          LMD    DI
02674  M00S01873.1xd     +++|          NJN    ERR2        IF ERROR ON DIFFERENT DEVICE
02675  M00S01874.1xd     +++| ERR5     LDD    DI
02676  M00S01875.1xd     +++|          STM    ERFL        SET ERROR IN PROGRESS
Line S01876 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02677  M01S01876.ns2714  ---|          LDC    ERR80
Line S00071 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02678  M01S00071.ns2714  +++|          LDC    ERR79
Line S01877 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02679  M01S01877.272l774 ---|          STM    ESAD        INITIAL ERROR STEP ADDRESS
02680  M01S01878.272l774 ---|          LDM    RWST
02681  M01S01879.272l774 ---|          STM    IOST        SAVE READ/WRITE STATUS
Line S00068 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02682  M01S00068.272l774 +++|          STM    ESAD,DI     INITIAL ERROR STEP ADDRESS
02683  M01S00069.272l774 +++|          LDM    RWST,DI
02684  M01S00070.272l774 +++|          STM    IOST,DI     SAVE READ/WRITE STATUS
02685  M00S01880.1xd     +++|
02686  M00S01881.1xd     +++|*         GENERATE BML ERROR MESSAGE.
02687  M00S01882.1xd     +++|
Line S00072 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02688  M01S00072.ns2714  +++|          LCN    0           SET NO STATUS FOR *HPA*
02689  M01S00073.ns2714  +++|          STM    EDBF+FCS2
02690  M00S01883.1xd     +++|          LDD    T4          INSERT INITIAL FAULT CODE
02691  M00S01884.1xd     +++|          STML   EDBF+CODE
02692  M00S01885.1xd     +++|          STML   EDBF+FALT   PRESET FINAL FAULT CODE
Line S01886 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
02693  M01S01886.ns2714  ---|          LCN    0
02694  M01S01887.ns2714  ---|          STM    EDBF+FCS2   SET NO STATUS FOR *HPA*
Line S00074 Modification History
M01 (Added by) ns2714
M02 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02695  M02S00074.1xd5    ---|          LMN    ECRE
02696  M02S00075.1xd5    ---|          ZJP    ERR80       IF CONTROLLER RESET FAILURE
02697  M02S00076.1xd5    ---|          LMN    ECMD&ECRE
02698  M02S00077.1xd5    ---|          ZJP    ERR89       IF CONTROLLER DEAD
Line S01888 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02699  M01S01888.272l774 ---|          LDM    CBCT
Line S00071 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02700  M01S00071.272l774 +++|          LDM    CBCT,DI
02701  M00S01889.1xd     +++|          SHN    LSLBS-CFLP  SECTORS TRANSFERED COUNT
02702  M00S01890.1xd     +++|          STML   EDBF+STCT
Line S01891 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02703  M01S01891.272l774 ---|          LDM    CYLN        SET SEEK ADDRESS - CYLINDER
Line S00072 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02704  M01S00072.272l774 +++|          LDM    CYLN,DI     SET SEEK ADDRESS - CYLINDER
02705  M00S01892.1xd     +++|          STML   EDBF+ICYL
Line S01893 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02706  M01S01893.272l774 ---|          LDM    TKSN        SEEK ADDRESS - TRACK AND SECTOR
Line S00073 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02707  M01S00073.272l774 +++|          LDM    TKSN,DI     SEEK ADDRESS - TRACK AND SECTOR
02708  M00S01894.1xd     +++|          STML   EDBF+ITAS
Line S01895 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02709  M01S01895.272l774 ---|          LDML   LCMD        SET LAST COMMAND
Line S00074 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02710  M01S00074.272l774 +++|          LDML   LCMD,DI     SET LAST COMMAND
02711  M00S01896.1xd     +++|          STML   EDBF+LSCC
02712  M00S01897.1xd     +++|          LDML   GSSA        EXECUTION (ENDING) STATUS
02713  M00S01898.1xd     +++|          STML   EDBF+EXST
02714  M00S01899.1xd     +++|          LDM    ERR         RETAIN ENTRY ADDRESS
02715  M00S01900.1xd     +++|          STML   EDBF+FALT+1
02716  M00S01901.1xd     +++| ERR6     LDDL   LF          SAVE LAST CHANNEL FUNCTION
02717  M00S01902.1xd     +++|          STML   EDBF+LCFN
02718  M00S01903.1xd     +++|          SCF.   ERR6,MR     ACQUIRE MAINTENANCE CHANNEL ACCESS
02719  M00S01904.1xd     +++|          LDN    ZERL
02720  M00S01905.1xd     +++|          CRML   RBUF,ON     CLEAR BUFFER IN CASE OF ERROR
02721  M00S01906.1xd     +++|          SBN    1
02722  M00S01907.1xd     +++|          CRML   RBUF+4,ON
02723  M00S01908.1xd     +++|          RJM    RMR         READ CHANNEL STATUS REGISTER
02724  M00S01909.1xd     +++|          DCN.   MR+40
02725  M00S01910.1xd     +++|          CCF.   *+2,MR      CLEAR MAINTENANCE CHANNEL FLAG
02726  M00S01911.1xd     +++|          LDN    0
02727  M00S01912.1xd     +++|          STD    T2          INITIALIZE INDEX
02728  M00S01913.1xd     +++|          STML   EDBF+TREG
02729  M00S01914.1xd     +++|          STML   EDBF+TREG+1 CLEAR *T* REGISTER BUFFER
02730  M00S01915.1xd     +++|          STML   EDBF+TREG+2
02731  M00S01916.1xd     +++|          RJM    ACE         ANALYZE CHANNEL ERROR
02732  M00S01917.1xd     +++|          DCN    CH+40
02733  M00S01918.1xd     +++|          STML   EDBF+FCS1   SAVE CHANNEL STATUS
02734  M00S01919.1xd     +++|          LDC    EDBF+CREG
02735  M00S01920.1xd     +++|          STDL   T5          SET ERROR BUFFER ADDRESS
02736  M00S01921.1xd     +++| ERR7     LDM    RBUF,T2
02737  M00S01922.1xd     +++|          SHN    10          PACK 8-BIT DATA
02738  M00S01923.1xd     +++|          LMM    RBUF+1,T2
02739  M00S01924.1xd     +++|          STIL   T5
02740  M00S01925.1xd     +++|          AODL   T5          ADVANCE ADDRESS
02741  M00S01926.1xd     +++|          LDN    2
02742  M00S01927.1xd     +++|          RAD    T2          INCREMENT INDEX
02743  M00S01928.1xd     +++|          LMN    RBUFL
02744  M00S01929.1xd     +++|          NJN    ERR7        IF MORE REGISTER DATA
Line S01930 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02745  M01S01930.272l774 ---|          LDM    IPPS
Line S00075 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02746  M01S00075.272l774 +++|          LDM    IPPS,DI
02747  M00S01931.1xd     +++|          ZJN    ERR8        IF NOT I/O REQUEST
02748  M00S01932.1xd     +++|          RJM    RTR         READ *T* REGISTER
02749  M00S01933.1xd     +++| ERR8     LDK    RTEDL
02750  M00S01934.1xd     +++|          STD    T4          SET LENGTH OF DATA
02751  M00S01935.1xd     +++|          LDC    EDBF
02752  M00S01936.1xd     +++|          STDL   T2          SOURCE DATA ADDRESS
02753  M00S01937.1xd     +++|          ADK    EMBF1
02754  M00S01938.1xd     +++|          RJM    UHD         UNPACK HEX DATA
02755  M00S01939.1xd     +++|          ADN    EMBFS
02756  M00S01940.1xd     +++|          STM    MSGL+1      MESSAGE LENGTH INCLUDING NON-HEX DATA
Line S01941 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02757  M01S01941.272l774 ---|          LDM    RPST
Line S00076 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
02758  M01S00076.272l774 +++|          LDM    RPST,DI
02759  M00S01942.1xd     +++|          ZJN    ERR13       IF NO RESPONSE PACKET PRESENT
02760  M00S01943.1xd     +++|          LDC    RPBF
Line S01944 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02761  M01S01944.1xd5    ---|          STD    T2          SET SOURCE DATA ADDRESS
Line S00397 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
02762  M01S00397.1xd5    +++|          STDL   T2          SET SOURCE DATA ADDRESS
02763  M00S01945.1xd     +++|          LDI    T2
02764  M00S01946.1xd     +++|          ADN    3           CALCULATE STATUS BLOCK LENGTH
02765  M00S01947.1xd     +++|          SHN    -1
02766  M00S01948.1xd     +++|          STD    T4
02767  M00S01949.1xd     +++|          LDC    EDBF+EMBF2  CONVERT STATUS TO 12 BIT DATA
02768  M00S01950.1xd     +++|          RJM    UHD
02769  M00S01951.1xd     +++|          RAM    MSGL+1      APPEND TO MESSAGE
02770  M00S01952.1xd     +++|          LDN    0
02771  M00S01953.1xd     +++|          STM    EDBF+FCS2   INDICATE STATUS PRESENT FOR *HPA*
02772  M00S01954.1xd     +++|
02773  M00S01955.1xd     +++|*         CONVERT MAJOR STATUS TO INDEX.
02774  M00S01956.1xd     +++|
02775  M00S01957.1xd     +++|          LDDL   MS          UNPACK BUS A FLAGS
02776  M00S01958.1xd     +++|          SHN    -10
02777  M00S01959.1xd     +++|          STD    T2
02778  M00S01960.1xd     +++|          LDD    MS          BUS B SUBSTATUS FLAGS
02779  M00S01961.1xd     +++|          LPN    7
02780  M00S01962.1xd     +++|          SHN    10          COMBINE FLAGS IN ORDER
02781  M00S01963.1xd     +++|          RAD    T2
02782  M00S01964.1xd     +++| ERR13    ZJP    ERR71       IF NO SUBSTATUS
02783  M00S01965.1xd     +++|          LCN    0
02784  M00S01966.1xd     +++|          STD    T3
02785  M00S01967.1xd     +++| ERR14    AOD    T3          ADVANCE INDEX
02786  M00S01968.1xd     +++|          LDD    T2
02787  M00S01969.1xd     +++|          SHN    21-0        CONVERT FLAG POSITION TO INDEX
02788  M00S01970.1xd     +++|          STD    T2
02789  M00S01971.1xd     +++|          PJN    ERR14       IF BIT NOT SET
02790  M00S01972.1xd     +++|          LDM    ERRB,T3
02791  M00S01973.1xd     +++|          STD    PA          SET PROCESSOR ADDRESS
02792  M00S01974.1xd     +++|          LDD    T3
02793  M00S01975.1xd     +++|          LJM    0,PA        EXIT TO PROCESSOR
02794  M00S01976.1xd     +++|
Proceed to Part 2