User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1hy.001

Deck 1HY Part 001

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01697  M00S01587.1hy     +++|*         EXIT   (A) .NE. 0 IF UNIT CONNECTED.
01698  M00S01588.1hy     +++|*
Line S01589 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01699  M01S01589.ns2512  ---|*         USES   T2.
Line S00009 Modification History
M01 (Added by) ns2512
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01700  M02S00009.253l688 ---|*         USES   T2, CM - CM+4.
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01701  M01S00001.253l688 +++|*         USES   T2, T7, CM - CM+4.
01702  M00S01590.1hy     +++|*
01703  M00S01591.1hy     +++|*         ERROR  TO *ERR* IF SELECT REJECT.
01704  M00S01592.1hy     +++|*
01705  M00S01593.1hy     +++|*         CALLS  R1B, SSD, SUI.
Line S00010 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01706  M01S00010.ns2512  +++|*
01707  M01S00011.ns2512  +++|*         MACROS CBTE.
01708  M00S01594.1hy     +++|
01709  M00S01595.1hy     +++|
Line S01596 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01710  M01S01596.ns2512  ---| CSD4     LDN    0
01711  M01S01597.ns2512  ---|
01712  M00S01598.1hy     +++| CSD      SUBR               ENTRY/EXIT
01713  M00S01599.1hy     +++|          LDC    0
01714  M00S01600.1hy     +++| CHRQ     EQU    *-1
01715  M00S01601.1hy     +++|          NJN    CSD4        IF CHANNEL REQUESTED
Line S01602 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01716  M01S01602.ns2769  ---|          STM    LCMD
Line S00051 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01717  M01S00051.ns2769  +++|          STM    LCMD,DI
01718  M00S01603.1hy     +++|
01719  M00S01604.1hy     +++|*         CHECK EST ENTRY FOR CHANNEL DOWN.
01720  M00S01605.1hy     +++|
01721  M00S01606.1hy     +++|          LDD    CM+1        EXTRACT CHANNEL
01722  M00S01607.1hy     +++|          LMD    IR+4
01723  M00S01608.1hy     +++|          LPN    77
01724  M00S01609.1hy     +++|          ZJN    CSD1        IF PATH SERVICED BY THIS DRIVER
01725  M00S01610.1hy     +++|          LDN    1
01726  M00S01611.1hy     +++| CSD1     ADN    CM+1        SET CHANNEL BYTE ADDRESS
01727  M00S01612.1hy     +++|          STD    T2
01728  M00S01613.1hy     +++|          LDI    T2          CHECK CHANNEL STATE
01729  M00S01614.1hy     +++|          SHN    -11
01730  M00S01615.1hy     +++|          LMN    4
Line S01616 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01731  M01S01616.ns2512  ---|          ZJN    CSD3        IF CHANNEL UP AND AVAILABLE
01732  M01S01617.ns2512  ---|          LDN    0
01733  M01S01618.ns2512  ---| CSD2     UJN    CSDX        RETURN
01734  M01S01619.ns2512  ---|
01735  M01S01620.ns2512  ---| CSD3     RJM    SUI         SET UNIT INTERLOCK
Line S00012 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01736  M01S00012.ns2512  +++|          ZJN    CSD6        IF CHANNEL UP AND AVAILABLE
01737  M01S00013.ns2512  +++|          SCN    1
01738  M01S00014.ns2512  +++|          NJN    CSD4        IF CHANNEL DOWN OR NOT ENABLED
01739  M01S00015.ns2512  +++|          LDD    CB
01740  M01S00016.ns2512  +++|          ZJN    CSDX        IF NOT I/O REQUEST
01741  M01S00017.ns2512  +++|          SHN    CBTLS
01742  M01S00018.ns2512  +++|          CBTE   *
Line S00019 Modification History
M01 (Added by) ns2512
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01743  M02S00019.253l688 ---|          ADC    HSLK        FETCH CHANNEL SELECT STATUS
Line S00002 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01744  M01S00002.253l688 +++|          ADC    PAD4        GET CHANNEL FROM CBT ENTRY
01745  M01S00003.253l688 +++|          CRD    T7
01746  M01S00004.253l688 +++|          ADN    HSLK-PAD4   GET CHANNEL SELECT STATUS
Line S00020 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01747  M01S00020.ns2512  +++|          CRD    CM
01748  M01S00021.ns2512  +++|          LDD    CM          CHECK ERROR FLAGS
01749  M01S00022.ns2512  +++|          SHN    0-12
01750  M01S00023.ns2512  +++|          ZJN    CSDX        IF NOT CHANNEL SPECIFIC REQUEST
Line S00024 Modification History
M01 (Added by) ns2512
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01751  M02S00024.253l688 ---|          LDD    CM
01752  M02S00025.253l688 ---|          LPN    77          CHECK CHANNEL
Line S00005 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01753  M01S00005.253l688 +++|          LDD    T7          CHECK CHANNEL
01754  M01S00006.253l688 +++|          SHN    -6
Line S00026 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01755  M01S00026.ns2512  +++|          LMD    IR+4
01756  M01S00027.ns2512  +++|          ZJN    CSD6        IF REQUEST FOR THIS DRIVER
01757  M01S00028.ns2512  +++| CSD4     LDN    0
01758  M01S00029.ns2512  +++| CSD5     UJP    CSDX        RETURN
01759  M01S00030.ns2512  +++|
01760  M01S00031.ns2512  +++| CSD6     RJM    SUI         SET UNIT INTERLOCK
01761  M00S01621.1hy     +++|          NJN    CSD4        IF ASSIGNED ELSEWHERE
Line S00001 Modification History
M01 (Added by) 1hy7
Seq #  *Modification Id* Act 
----------------------------+
01762  M01S00001.1hy7    +++|          LDC    FCIS
01763  M01S00002.1hy7    +++|          RJM    R1B         READ IDLE STATUS
01764  M01S00003.1hy7    +++|          STML   IDST
01765  M00S01622.1hy     +++|          RJM    SSD         SELECT *IHD*
01766  M00S01623.1hy     +++|
01767  M00S01624.1hy     +++|*         READ BIT SIGNIFICANT RESPONSE.
01768  M00S01625.1hy     +++|
01769  M00S01626.1hy     +++|          LDC    FCSO        FORCE SYNC OUT
01770  M00S01627.1hy     +++|          RJM    R1B
01771  M00S01628.1hy     +++|          STML   BSRN        SAVE RESPONSE
01772  M00S01629.1hy     +++|          LPML   TMSK,UN
Line S01630 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01773  M01S01630.ns2512  ---|          NJN    CSD2        IF CORRECT UNIT SELECTED
Line S00032 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
01774  M01S00032.ns2512  +++|          NJN    CSD5        IF CORRECT UNIT SELECTED
01775  M00S01631.1hy     +++|          LDN    EICU
01776  M00S01632.1hy     +++|          RJM    ERR         PROCESS ERROR
01777  M00S01633.1hy     +++| CSR      SPACE  4,10
01778  M00S01634.1hy     +++|**        CSR - CLEAR SPECIAL REQUEST.
01779  M00S01635.1hy     +++|*
01780  M00S01636.1hy     +++|*         EXIT   TO *CMP*.
01781  M00S01637.1hy     +++|*
01782  M00S01638.1hy     +++|*         CALLS  CPF.
01783  M00S01639.1hy     +++|
01784  M00S01640.1hy     +++|
01785  M00S01641.1hy     +++| CSR      BSS    0           ENTRY
Line S01642 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01786  M01S01642.ns2769  ---|          LDM    SREQ
Line S00052 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01787  M01S00052.ns2769  +++|          LDM    SREQ,DI
01788  M00S01643.1hy     +++|          ZJN    CSR1        IF REQUEST SELECTED BY DRIVER
01789  M00S01644.1hy     +++|          RJM    CPF
01790  M00S01645.1hy     +++| CSR1     LJM    CMP         COMPLETE PROCESSING
01791  M00S01646.1hy     +++| CTO      SPACE  4,10
01792  M00S01647.1hy     +++|**        CTO - CHECK TIMEOUT.
01793  M00S01648.1hy     +++|*
01794  M00S01649.1hy     +++|*         ENTRY  (PO) = *PUT* ORDINAL.
01795  M00S01650.1hy     +++|*
01796  M00S01651.1hy     +++|*         EXIT   (A) .LT. 0 IF NOT TIMEOUT.
01797  M00S01652.1hy     +++|*
01798  M00S01653.1hy     +++|*         USES   T6, T7, CM - CM+4.
01799  M00S01654.1hy     +++|*
01800  M00S01655.1hy     +++|*         MACROS FTTE.
01801  M00S01656.1hy     +++|
01802  M00S01657.1hy     +++|
01803  M00S01658.1hy     +++| CTO      SUBR               ENTRY/EXIT
01804  M00S01659.1hy     +++|          LDD    PO
01805  M00S01660.1hy     +++|          SHK    FTTLS       READ *FTT* ENTRY
01806  M00S01661.1hy     +++|          FTTE   *
01807  M00S01662.1hy     +++|          ADC    0
01808  M00S01663.1hy     +++|          CRD    CM
01809  M00S01664.1hy     +++|          LDC    RTCL        FETCH CURRENT CLOCK VALUE
01810  M00S01665.1hy     +++|          CRD    T6
01811  M00S01666.1hy     +++|          LDD    T6          CHECK ELAPSED TIME
01812  M00S01667.1hy     +++|          SBD    CM+3
01813  M00S01668.1hy     +++|          MJN    CTOX        IF NOT TIMEOUT
01814  M00S01669.1hy     +++|          SHN    14
01815  M00S01670.1hy     +++|          ADD    T7
01816  M00S01671.1hy     +++|          SBD    CM+4
01817  M00S01672.1hy     +++|          UJN    CTOX        RETURN
01818  M00S01673.1hy     +++| DCB      SPACE  4,15
01819  M00S01674.1hy     +++|**        DCB - DELINK CONTROL BUFFERS.
01820  M00S01675.1hy     +++|*
01821  M00S01676.1hy     +++|*         ENTRY  (A) = VALUE FOR BYTE 3 OF *BIOM* REQUEST.
01822  M00S01677.1hy     +++|*                (RW) = READ / WRITE STATUS.
01823  M00S01678.1hy     +++|*
01824  M00S01679.1hy     +++|*         EXIT   (A) = 0.
01825  M00S01680.1hy     +++|*                (WB+3) = BYTE 3 OF *BIOM* REQUEST.
01826  M00S01681.1hy     +++|*
01827  M00S01682.1hy     +++|*         USES   RC, T2, T3, WB+3.
01828  M00S01683.1hy     +++|*
01829  M00S01684.1hy     +++|*         CALLS  IMR, SLB.
01830  M00S01685.1hy     +++|
01831  M00S01686.1hy     +++|
Line S01687 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01832  M01S01687.ns2769  ---| DCB1     LDM    IORQ        EXTRACT *CBT* ORDINAL
Line S00053 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01833  M01S00053.ns2769  +++| DCB1     LDM    IORQ,DI     EXTRACT *CBT* ORDINAL
01834  M00S01688.1hy     +++|          STD    PB
01835  M00S01689.1hy     +++|          RJM    SLB         SET LINKAGE BITS
Line S01690 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01836  M01S01690.ns2769  ---|          SOM    RQIN
Line S00054 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01837  M01S00054.ns2769  +++|          SOM    RQIN,DI
01838  M00S01691.1hy     +++|          ZJN    DCB3        IF QUEUE NOW EMPTY
01839  M00S01692.1hy     +++|          STD    T3
01840  M00S01693.1hy     +++|          LDD    DI          ADDRESS OF FIRST QUEUE ENTRY
01841  M00S01694.1hy     +++|          ADN    IORQ+1
01842  M00S01695.1hy     +++|          STD    T2
01843  M00S01696.1hy     +++| DCB2     LDI    T2          MOVE STACK DOWN
01844  M00S01697.1hy     +++|          STM    -1,T2
01845  M00S01698.1hy     +++|          AOD    T2          ADVANCE LIST ADDRESS
01846  M00S01699.1hy     +++|          SOD    T3
01847  M00S01700.1hy     +++|          NJN    DCB2        IF NOT END OF MOVE
01848  M00S01701.1hy     +++|          SOD    RC
01849  M00S01702.1hy     +++|          NJN    DCB1        IF BUFFER COUNT NOT SATISFIED
01850  M00S01703.1hy     +++| DCB3     LDN    DCBS
01851  M00S01704.1hy     +++|          RJM    IMR         INITIATE MONITOR REQUEST
01852  M00S01705.1hy     +++|*         LDN    0
01853  M00S01706.1hy     +++|
01854  M00S01707.1hy     +++| DCB      SUBR               ENTRY/EXIT
01855  M00S01708.1hy     +++|          STD    WB+3
01856  M00S01709.1hy     +++|          ZJN    DCBX        IF NULL REQUEST
01857  M00S01710.1hy     +++|          LPN    77
01858  M00S01711.1hy     +++|          ZJN    DCB3        IF NO BUFFERS TO PROCESS
01859  M00S01712.1hy     +++|          STD    RC
01860  M00S01713.1hy     +++|          LDD    RW
01861  M00S01714.1hy     +++|          ZJN    DCB1        IF READ OPERATION
01862  M00S01715.1hy     +++|          LDN    0
01863  M00S01716.1hy     +++|          SBD    RC          ADJUST REQUEST QUEUE ENTRY COUNT
Line S01717 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01864  M01S01717.ns2769  ---|          RAM    RQIN
Line S00055 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01865  M01S00055.ns2769  +++|          RAM    RQIN,DI
01866  M00S01718.1hy     +++|          UJN    DCB3        ISSUE MONITOR REQUEST
01867  M00S01719.1hy     +++| DCR      SPACE  4,10
01868  M00S01720.1hy     +++|**        DCR    DROP CHANNEL RESERVATION.
01869  M00S01721.1hy     +++|*
01870  M00S01722.1hy     +++|*         ENTRY  (CR) = 1 IF CHANNEL RESERVED.
01871  M00S01723.1hy     +++|*                (IR+4) = CHANNEL NUMBER.
01872  M00S01724.1hy     +++|*
01873  M00S01725.1hy     +++|*         EXIT   (A) = (CR) = 0.
01874  M00S01726.1hy     +++|*
01875  M00S01727.1hy     +++|*         USES   CM - CM+4.
01876  M00S01728.1hy     +++|*
01877  M00S01729.1hy     +++|*         MACROS MONITOR.
01878  M00S01730.1hy     +++|
01879  M00S01731.1hy     +++|
01880  M00S01732.1hy     +++| DCR      SUBR               ENTRY/EXIT
01881  M00S01733.1hy     +++|          LDD    CR
01882  M00S01734.1hy     +++|          ZJN    DCRX        IF CHANNEL NOT RESERVED
01883  M00S01735.1hy     +++|          LDD    IR+4
01884  M00S01736.1hy     +++|          STD    CM+1        DROP CHANNEL
01885  M00S01737.1hy     +++|          MONITOR  DCHM
01886  M00S01738.1hy     +++|*         LDN    0           SET CHANNEL NOT RESERVED
01887  M00S01739.1hy     +++|          STD    CR
01888  M00S01740.1hy     +++|          UJN    DCRX        RETURN
01889  M00S01741.1hy     +++| EIO      SPACE  4,10
01890  M00S01742.1hy     +++|**        EIO - ENTER I/O REQUEST QUEUE.
01891  M00S01743.1hy     +++|*
01892  M00S01744.1hy     +++|*         ENTRY  (A) = *CBT* ORDINAL.
01893  M00S01745.1hy     +++|*                (RW) = READ / WRITE STATUS.
01894  M00S01746.1hy     +++|*
01895  M00S01747.1hy     +++|*         EXIT   (PB) = *CBT* ORDINAL.
01896  M00S01748.1hy     +++|*
01897  M00S01749.1hy     +++|*         USES   T5.
01898  M00S01750.1hy     +++|*
01899  M00S01751.1hy     +++|*         CALLS  DCB, SLB.
01900  M00S01752.1hy     +++|
01901  M00S01753.1hy     +++|
01902  M00S01754.1hy     +++| EIO1     RJM    SLB         SET LINKAGE BITS
Line S01755 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01903  M01S01755.ns2769  ---| EIO2     AOM    CBCT
01904  M01S01756.ns2769  ---|          AOM    RQIN        ADVANCE ENTRY COUNT
Line S00056 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01905  M01S00056.ns2769  +++| EIO2     AOM    CBCT,DI
01906  M01S00057.ns2769  +++|          AOM    RQIN,DI     ADVANCE ENTRY COUNT
01907  M00S01757.1hy     +++|          SBM    EIOA,RW
01908  M00S01758.1hy     +++|          MJN    EIOX        IF QUEUE NOT FULL
01909  M00S01759.1hy     +++|          LDN    1
01910  M00S01760.1hy     +++|          RJM    DCB         DELINK 1ST BUFFER IN LIST
01911  M00S01761.1hy     +++|
01912  M00S01762.1hy     +++| EIO      SUBR               ENTRY/EXIT
01913  M00S01763.1hy     +++|          STD    PB
01914  M00S01764.1hy     +++|          LDD    RW
01915  M00S01765.1hy     +++|          NJN    EIO1        IF WRITE OPERATION
Line S01766 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01916  M01S01766.ns2769  ---|          LDM    RQIN
Line S00058 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01917  M01S00058.ns2769  +++|          LDM    RQIN,DI
01918  M00S01767.1hy     +++|          ADD    DI          ADDRESS OF NEXT AVAILABLE SLOT
01919  M00S01768.1hy     +++|          STD    T5
01920  M00S01769.1hy     +++|          LDD    PB          ENTER *CBT* ORDINAL IN QUEUE
01921  M00S01770.1hy     +++|          STM    IORQ,T5
01922  M00S01771.1hy     +++|          UJN    EIO2        ADVANCE ENTRY COUNT
01923  M00S01772.1hy     +++|
01924  M00S01773.1hy     +++|
01925  M00S01774.1hy     +++| EIOA     BSS    0           DELINKING CRITERIA
01926  M00S01775.1hy     +++|          CON    3
01927  M00S01776.1hy     +++|          CON    10
01928  M00S01777.1hy     +++| ERR      SPACE  4,15
01929  M00S01778.1hy     +++|**        ERR - PROCESS ERRORS.
01930  M00S01779.1hy     +++|*
01931  M00S01780.1hy     +++|*         ENTRY  (A) = FAULT ANALYSIS CODE.
01932  M00S01781.1hy     +++|*                (CR) = CHANNEL RESERVATION STATUS.
01933  M00S01782.1hy     +++|*
01934  M00S01783.1hy     +++|*         EXIT   TO *CMP*.
01935  M00S01784.1hy     +++|*
01936  M00S01785.1hy     +++|*         USES   PA, T2, T3, T5, CM - CM+4, WB - WB+4.
01937  M00S01786.1hy     +++|*
01938  M00S01787.1hy     +++|*         CALLS  ACE, AMR, GDS, GSS, IEM, IMR, ISF, RCR, SCD, SET,
01939  M00S01788.1hy     +++|*                SRS, STF, STO, UHD, WFC.
01940  M00S01789.1hy     +++|
01941  M00S01790.1hy     +++|
01942  M00S01791.1hy     +++| ERR      CON    0           ENTRY
01943  M00S01792.1hy     +++|          STD    FC
Line S01793 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01944  M01S01793.ns2769  ---|          LDM    ESAD
Line S00059 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01945  M01S00059.ns2769  +++|          LDM    ESAD,DI
01946  M00S01794.1hy     +++|          ZJN    ERR1        IF NEW PASS THRU PROCESSOR
01947  M00S01795.1hy     +++|          STD    PA
01948  M00S01796.1hy     +++|          LJM    0,PA        CONTINUE
01949  M00S01797.1hy     +++|
01950  M00S01798.1hy     +++| ERR1     STD    T5          CLEAR CHANNEL ACTIVE
01951  M00S01799.1hy     +++|          RJM    SCD
01952  M00S01800.1hy     +++|          AOM    UNSW        DISABLE UNIT SWITCH
01953  M00S01801.1hy     +++|          LDC    ERR5
Line S01802 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01954  M01S01802.ns2769  ---|          STM    ESAD        SET ERROR STEP ADDRESS
Line S00060 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01955  M01S00060.ns2769  +++|          STM    ESAD,DI     SET ERROR STEP ADDRESS
01956  M00S01803.1hy     +++|
01957  M00S01804.1hy     +++|*         GENERATE BML ERROR MESSAGE.
01958  M00S01805.1hy     +++|
01959  M00S01806.1hy     +++|          LDD    FC          SET INITIAL FAULT CODE
01960  M00S01807.1hy     +++|          STM    CODE
01961  M00S01808.1hy     +++|          STM    FALT
01962  M00S01809.1hy     +++|          LDD    DT          SET SECTORS TRANSFERED COUNT
01963  M00S01810.1hy     +++|          SHN    21-0
Line S01811 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01964  M01S01811.ns2769  ---|          LMM    CBCT
Line S00061 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01965  M01S00061.ns2769  +++|          LMM    CBCT,DI
01966  M00S01812.1hy     +++|          MJN    ERR2        IF LARGE SECTOR DEVICE
01967  M00S01813.1hy     +++|          SHN    2
01968  M00S01814.1hy     +++|          ERRNZ  PSBFDH*4-PSBFDF  CODE DEPENDS ON VALUE
01969  M00S01815.1hy     +++| ERR2     STM    STCT
Line S01816 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01970  M01S01816.ns2769  ---|          LDM    CYLN        SET SEEK ADDRESS - CYLINDER
Line S00062 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01971  M01S00062.ns2769  +++|          LDM    CYLN,DI     SET SEEK ADDRESS - CYLINDER
01972  M00S01817.1hy     +++|          STM    ICYL
Line S01818 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01973  M01S01818.ns2769  ---|          LDM    TKSN        SEEK ADDRESS - TRACK AND SECTOR
Line S00063 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01974  M01S00063.ns2769  +++|          LDM    TKSN,DI     SEEK ADDRESS - TRACK AND SECTOR
01975  M00S01819.1hy     +++|          STM    ITAS
01976  M00S01820.1hy     +++| ERR3     LCN    0           PRESET INTERMEDIATE FAULT CODES
01977  M00S01821.1hy     +++|          STM    FCS1
01978  M00S01822.1hy     +++|          STM    FCS2
01979  M00S01823.1hy     +++|          STM    FCS3
Line S01824 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01980  M01S01824.ns2769  ---|          LDML   LCMD        SET LAST *IHD* COMMAND
Line S00064 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01981  M01S00064.ns2769  +++|          LDML   LCMD,DI     SET LAST *IHD* COMMAND
01982  M00S01825.1hy     +++|          STML   LSCC
01983  M00S01826.1hy     +++|          LDM    FCNA        MOVE LAST CHANNEL FUNCTION
01984  M00S01827.1hy     +++|          STM    LCFN
01985  M00S01828.1hy     +++|          SCF.   ERR3,MR     ACQUIRE MAINTENANCE REGISTER ACCESS
01986  M00S01829.1hy     +++|          CON    LDCI
01987  M00S01830.1hy     +++|          IAN    CH          (FORCE CHANNEL TABLE ENTRY)
01988  M00S01831.1hy     +++|          ORG    *-1
01989  M00S01832.1hy     +++|          CON    RCSR+CH
01990  M00S01833.1hy     +++|          RJM    AMR         READ CHANNEL STATUS REGISTER
01991  M00S01834.1hy     +++|          DCN.   MR+40
01992  M00S01835.1hy     +++|          CCF.   *+2,MR      CLEAR CHANNEL FLAG
01993  M00S01836.1hy     +++|          LDN    0
01994  M00S01837.1hy     +++|          STD    T2          CLEAR INDICES
01995  M00S01838.1hy     +++|          STD    T3
01996  M00S01839.1hy     +++|          RJM    ACE         ANALYZE CHANNEL ERROR
01997  M00S01840.1hy     +++| ERR4     LDM    RBUF,T2
01998  M00S01841.1hy     +++|          SHN    10          PACK 8-BIT DATA
01999  M00S01842.1hy     +++|          LMM    RBUF+1,T2
02000  M00S01843.1hy     +++|          STML   RBUF,T3
02001  M00S01844.1hy     +++|          AOD    T3          ADVANCE INDEX
02002  M00S01845.1hy     +++|          SHN    1
02003  M00S01846.1hy     +++|          STD    T2          SET INDEX
02004  M00S01847.1hy     +++|          LMN    10
02005  M00S01848.1hy     +++|          NJN    ERR4        IF MORE REGISTER DATA
02006  M00S01849.1hy     +++|          LDN    ZERL
02007  M00S01850.1hy     +++|          CRM    RBUF+4,ON   CLEAR UNUSED BYTES
02008  M00S01851.1hy     +++|          LDD    CR
02009  M00S01852.1hy     +++|          ZJN    ERR6        IF FUNCTION TIMEOUT
02010  M00S01853.1hy     +++|          LDN    0
02011  M00S01854.1hy     +++|          STD    FC          CLEAR PRESENT FAULT CODE
02012  M00S01855.1hy     +++|          LDC    FCRT
02013  M00S01856.1hy     +++|          RJM    FCN         ISSUE READ *T* REGISTER FUNCTION
02014  M00S01857.1hy     +++|          ACN    CH
02015  M00S01858.1hy     +++|          LDN    3           INPUT REGISTER CONTENTS
02016  M00S01859.1hy     +++|          IAM    RBUF+7,CH
02017  M00S01860.1hy     +++|          DCN    CH+40
02018  M00S01861.1hy     +++| ERR5     LDD    FC          SET INTERMEDIATE FAULT CODE
02019  M00S01862.1hy     +++|          STM    FCS1
02020  M00S01863.1hy     +++| ERR6     LDC    EBUF+2*5    SET MESSAGE ASSEMBLY ADDRESS
02021  M00S01864.1hy     +++|          STD    T3
02022  M00S01865.1hy     +++|          LDC    17S12+DBUF  UNPACK HEX DATA
02023  M00S01866.1hy     +++|          RJM    UHD
02024  M00S01867.1hy     +++|          ADN    2           APPEND LENGTH OF NON-HEX DATA
02025  M00S01868.1hy     +++|          STD    ML
02026  M00S01869.1hy     +++|          LDC    ERR28       SET NEXT ERROR STEP
Line S01870 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02027  M01S01870.ns2769  ---|          STM    ESAD
Line S00065 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02028  M01S00065.ns2769  +++|          STM    ESAD,DI
02029  M00S01871.1hy     +++|          LDN    0           CLEAR CHECK ATTENTION COUNT
Line S01872 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02030  M01S01872.ns2769  ---|          STM    CACT
Line S00066 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02031  M01S00066.ns2769  +++|          STM    CACT,DI
02032  M00S01873.1hy     +++|          STM    RSVD        CLEAR RESERVED FIELD
02033  M00S01874.1hy     +++|          STD    FC
Line S01875 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02034  M01S01875.ns2769  ---|          LDM    RWST        SAVE READ / WRITE STATUS
02035  M01S01876.ns2769  ---|          STM    IOST
Line S00067 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02036  M01S00067.ns2769  +++|          LDM    RWST,DI     SAVE READ / WRITE STATUS
02037  M01S00068.ns2769  +++|          STM    IOST,DI
02038  M00S01877.1hy     +++|          LDD    CR
02039  M00S01878.1hy     +++|          ZJP    ERR51       IF FUNCTION TIMEOUT
02040  M00S01879.1hy     +++|          RJM    RCR
Line S01880 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02041  M01S01880.ns2769  ---|          LDM    LCMD
Line S00069 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02042  M01S00069.ns2769  +++|          LDM    LCMD,DI
02043  M00S01881.1hy     +++|          ZJN    ERR14       IF NO ACTIVE COMMAND
Line S01882 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02044  M01S01882.ns2769  ---| ERR10    AOM    CACT        ADVANCE CHECK ATTENTION COUNT
Line S00070 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02045  M01S00070.ns2769  +++| ERR10    AOM    CACT,DI     ADVANCE CHECK ATTENTION COUNT
02046  M00S01883.1hy     +++|          LMN    6
02047  M00S01884.1hy     +++|          ZJN    ERR14       IF DEVICE LOCKED UP
02048  M00S01885.1hy     +++|          LDN    3
02049  M00S01886.1hy     +++|          RJM    STO         SET TIMEOUT = 3 SECONDS
02050  M00S01887.1hy     +++|          LDN    0
02051  M00S01888.1hy     +++|          RJM    ATT         PROCESS ATTENTION
02052  M00S01889.1hy     +++| ERR11    SHN    -3
02053  M00S01890.1hy     +++|          STD    PA
02054  M00S01891.1hy     +++|          LDM    ERRB,PA     SET PROCESSOR ADDRESS
02055  M00S01892.1hy     +++| ERR12    STD    PA
02056  M00S01893.1hy     +++|          LJM    0,PA        EXIT TO PROCESSOR
02057  M00S01894.1hy     +++|
02058  M00S01895.1hy     +++| ERR13    LDC    FWEP        CLEAR ATTENTION
02059  M00S01896.1hy     +++|          RJM    WFC
02060  M00S01897.1hy     +++|          UJN    ERR10       LOOP FOR NEXT ATTENTION
02061  M00S01898.1hy     +++|
02062  M00S01899.1hy     +++| ERR14    RJM    SSD         SELECT SLAVE DEVICE
02063  M00S01900.1hy     +++|          LDC    ERR51
02064  M00S01901.1hy     +++|          LJM    SRS1        PROCESS SELECTIVE RESET
02065  M00S01902.1hy     +++|
02066  M00S01903.1hy     +++| ERR16    LDC    ERR51
02067  M00S01904.1hy     +++|          UJN    ERR20       SET POST PROCESSING ADDRESS
02068  M00S01905.1hy     +++|
02069  M00S01906.1hy     +++| ERR17    LDC    ERR38
02070  M00S01907.1hy     +++|          UJN    ERR20       SET POST PROCESSING ADDRESS
02071  M00S01908.1hy     +++|
02072  M00S01909.1hy     +++| ERR18    LDN    0           CLEAR INTERMEDIATE FAULT CODE
02073  M00S01910.1hy     +++|          STM    FCS2
Line S01911 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02074  M01S01911.ns2769  ---|          LDM    ENAD
Line S00071 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02075  M01S00071.ns2769  +++|          LDM    ENAD,DI
02076  M00S01912.1hy     +++|          UJN    ERR12       EXIT TO POST PROCESSOR
02077  M00S01913.1hy     +++|
02078  M00S01914.1hy     +++| ERR19    LDC    ERR30       SET POST PROCESSING ADDRESS
Line S01915 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02079  M01S01915.ns2769  ---| ERR20    STM    ENAD
Line S00072 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02080  M01S00072.ns2769  +++| ERR20    STM    ENAD,DI
02081  M00S01916.1hy     +++|          LDM    SLST+1      SAVE SYSTEM INTERVENTION CODE
Line S01917 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02082  M01S01917.ns2769  ---|          STM    SIST
Line S00073 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02083  M01S00073.ns2769  +++|          STM    SIST,DI
02084  M00S01918.1hy     +++|          LDM    SLST+2      SAVE MANUAL INTERVENTION CODE
Line S01919 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02085  M01S01919.ns2769  ---|          STM    MIST
Line S00074 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02086  M01S00074.ns2769  +++|          STM    MIST,DI
02087  M00S01920.1hy     +++|          LDD    SS          SAVE EXECUTION STATUS
Line S01921 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02088  M01S01921.ns2769  ---|          STM    GSST
Line S00075 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02089  M01S00075.ns2769  +++|          STM    GSST,DI
02090  M00S01922.1hy     +++|          RJM    GDS         GET DEVICE STATUS
02091  M00S01923.1hy     +++|          LDC    FWCA
02092  M00S01924.1hy     +++|          RJM    WFC         CLEAR ATTENTION
02093  M00S01925.1hy     +++|          LDC    EBUF+6*5
02094  M00S01926.1hy     +++|          STD    T3          SET DESTINATION DATA ADDRESS
02095  M00S01927.1hy     +++|          LDC    STSBL*10000+SLST
02096  M00S01928.1hy     +++|          RJM    UHD         UNPACK HEX DATA
02097  M00S01929.1hy     +++|          RAD    ML
02098  M00S01930.1hy     +++|          LDN    1           SELECT DUMP OF ERROR REGISTER
Line S01931 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02099  M01S01931.ns2769  ---|          STM    RWST
Line S00076 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02100  M01S00076.ns2769  +++|          STM    RWST,DI
02101  M00S01932.1hy     +++| ERR24    STD    RW          SET PROCESSOR INDEX
02102  M00S01933.1hy     +++|          LDC    ERR25
02103  M00S01934.1hy     +++|          LJM    LGE1        LOG *IHD* ERRORS
02104  M00S01935.1hy     +++|
Line S01936 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02105  M01S01936.ns2769  ---| ERR25    SOM    RWST
Line S00077 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02106  M01S00077.ns2769  +++| ERR25    SOM    RWST,DI
02107  M00S01937.1hy     +++|          PJN    ERR24       IF YET TO DUMP ERROR LOG
02108  M00S01938.1hy     +++|          LJM    ERR18       EXIT TO POST PROCESSOR
02109  M00S01939.1hy     +++|
02110  M00S01940.1hy     +++| ERR28    LDD    FC          SET INTERMEDIATE FAULT CODE
02111  M00S01941.1hy     +++|          STM    FCS2
02112  M00S01942.1hy     +++|          LDC    ERR50       SET ERROR STEP
Line S01943 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02113  M01S01943.ns2769  ---|          STM    ESAD
Line S00078 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02114  M01S00078.ns2769  +++|          STM    ESAD,DI
02115  M00S01944.1hy     +++|          LJM    ERR14       PROCESS SELECTIVE RESET
02116  M00S01945.1hy     +++|
Line S01946 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02117  M01S01946.ns2769  ---| ERR30    LDM    GSST        CHECK EXECUTION STATUS
Line S00079 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02118  M01S00079.ns2769  +++| ERR30    LDM    GSST,DI     CHECK EXECUTION STATUS
02119  M00S01947.1hy     +++|          LPN    6
02120  M00S01948.1hy     +++|          ZJP    ERR51       IF NO INTERVENTION FLAGS
02121  M00S01949.1hy     +++|
02122  M00S01950.1hy     +++|*         ANALYZE INTERVENTION STATUS.
02123  M00S01951.1hy     +++|
02124  M00S01952.1hy     +++|          SHN    -2          SET LIST INDEX
02125  M00S01953.1hy     +++|          STD    T2
02126  M00S01954.1hy     +++|          ADN    MIST        SET STATUS WORD ADDRESS
02127  M00S01955.1hy     +++|          ADD    DI
02128  M00S01956.1hy     +++|          STD    T3
02129  M00S01957.1hy     +++|          LDM    ERRE,T2     SET LIST ADDRESS
02130  M00S01958.1hy     +++|          STD    T2
02131  M00S01959.1hy     +++| ERR31    LDN    2           ADVANCE LIST ADDRESS
02132  M00S01960.1hy     +++|          RAD    T2
02133  M00S01961.1hy     +++|          LDI    T2
02134  M00S01962.1hy     +++|          ZJN    ERR32       IF END OF LIST
02135  M00S01963.1hy     +++|          LMI    T3
02136  M00S01964.1hy     +++|          LPC    377
02137  M00S01965.1hy     +++|          NJN    ERR31       IF NOT MATCHING INTERVENTION CODE
02138  M00S01966.1hy     +++|
02139  M00S01967.1hy     +++|*         ATTEMPT ERROR SPECIFIC RECOVERY.
02140  M00S01968.1hy     +++|
02141  M00S01969.1hy     +++| ERR32    LDM    1,T2        SET PROCESSOR ADDRESS
02142  M00S01970.1hy     +++|          STD    T2
02143  M00S01971.1hy     +++|          LDC    ERR50       SET NEXT ERROR STEP
Line S01972 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02144  M01S01972.ns2769  ---|          STM    ESAD
Line S00080 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02145  M01S00080.ns2769  +++|          STM    ESAD,DI
02146  M00S01973.1hy     +++|          LDN    0
02147  M00S01974.1hy     +++|          LJM    0,T2        EXIT TO PROCESSOR
02148  M00S01975.1hy     +++|
02149  M00S01976.1hy     +++| ERR36    LDN    EDNR        SET NOT READY ERROR
02150  M00S01977.1hy     +++|          STM    FALT
02151  M00S01978.1hy     +++|          LDML   SLST+5      CHECK SLAVE STATUS
02152  M00S01979.1hy     +++|          SHN    0-17
02153  M00S01980.1hy     +++|          NJN    ERR50       IF DISK SPINNING
Line S01981 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02154  M01S01981.ns2769  ---|          LDM    ERCT
Line S00081 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02155  M01S00081.ns2769  +++|          LDM    ERCT,DI
02156  M00S01982.1hy     +++|          ZJN    ERR38       IF INITIAL RETRY
02157  M00S01983.1hy     +++|          LMN    CSRC
02158  M00S01984.1hy     +++|          NJN    ERR50       IF NOT FIRST ALTERNATE RETRY
02159  M00S01985.1hy     +++| ERR38    LDC    ERR50
02160  M00S01986.1hy     +++|          LJM    SPU1        PROCESS SPIN UP
02161  M00S01987.1hy     +++|
Line S01988 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02162  M01S01988.ns2769  ---| ERR40    LDM    IOST        RESTORE READ / WRITE STATUS
02163  M01S01989.ns2769  ---|          STM    RWST
Line S00082 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02164  M01S00082.ns2769  +++| ERR40    LDM    IOST,DI     RESTORE READ / WRITE STATUS
02165  M01S00083.ns2769  +++|          STM    RWST,DI
02166  M00S01990.1hy     +++|          STD    RW
02167  M00S01991.1hy     +++|          LDC    ERR44       RUN DIAGNOSTIC
02168  M00S01992.1hy     +++|          LJM    RND1
02169  M00S01993.1hy     +++|
02170  M00S01994.1hy     +++| ERR44    RJM    STF         PROCESS MEDIA ERROR
02171  M00S01995.1hy     +++|          LDN    EDPE&EOTC
02172  M00S01996.1hy     +++|*         UJN    ERR46       SET DATA PARITY ERROR
02173  M00S01997.1hy     +++|
02174  M00S01998.1hy     +++| ERR46    LMN    EOTC&ECPE
02175  M00S01999.1hy     +++|*         UJN    ERR47       SET OVER-TEMP CONDITION ERROR
02176  M00S02000.1hy     +++|
02177  M00S02001.1hy     +++| ERR47    LMN    ECPE&EDTF
02178  M00S02002.1hy     +++|*         UJN    ERR48       SET CHANNEL PARITY ERROR
02179  M00S02003.1hy     +++|
02180  M00S02004.1hy     +++| ERR48    LMN    EDTF        SET DIAGNOSTIC TIMEOUT ERROR
02181  M00S02005.1hy     +++| ERR49    STM    FALT
02182  M00S02006.1hy     +++|
02183  M00S02007.1hy     +++|*         COMPLETE ERROR PROCESSING.
02184  M00S02008.1hy     +++|
02185  M00S02009.1hy     +++| ERR50    LDD    FC          SET INTERMEDIATE FAULT CODE
02186  M00S02010.1hy     +++|          STM    FCS3
Line S02011 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02187  M01S02011.ns2769  ---| ERR51    LDM    IOST        RESTORE READ / WRITE STATUS
Line S00084 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02188  M01S00084.ns2769  +++| ERR51    LDM    IOST,DI     RESTORE READ / WRITE STATUS
02189  M00S02012.1hy     +++|          STD    RW
02190  M00S02013.1hy     +++|          LDN    0           CLEAR ERROR STEP
Line S02014 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02191  M01S02014.ns2769  ---|          STM    ESAD
Line S00085 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02192  M01S00085.ns2769  +++|          STM    ESAD,DI
02193  M00S02015.1hy     +++|          STM    UNSW        ENABLE UNIT SWITCH
Line S02016 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02194  M01S02016.ns2769  ---|          AOM    ERCT        ADVANCE ERROR COUNT
Line S00086 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02195  M01S00086.ns2769  +++|          AOM    ERCT,DI     ADVANCE ERROR COUNT
02196  M00S02017.1hy     +++|          LMN    MERC
02197  M00S02018.1hy     +++|          NJN    ERR53       IF NOT RETRY LIMIT
02198  M00S02019.1hy     +++| ERR52    AOM    MISC
02199  M00S02020.1hy     +++|          RJM    SEC         SET ERROR CODE IN *CBT*
02200  M00S02021.1hy     +++|          LJM    CMP1        COMPLETE PROCESSING
02201  M00S02022.1hy     +++|
02202  M00S02023.1hy     +++| ERR53    LDN    HD0100-HD0100
02203  M00S02024.1hy     +++|          RJM    IEM         ISSUE ERROR MESSAGE
02204  M00S02025.1hy     +++|          LDM    FALT
02205  M00S02026.1hy     +++|          LMN    ETFN
02206  M00S02027.1hy     +++|          ZJN    ERR52       IF FUNCTION TIMEOUT ERROR
02207  M00S02028.1hy     +++|          LMN    EDTF&ETFN
02208  M00S02029.1hy     +++|          ZJN    ERR52       IF DIAGNOSTIC FAILURE
Line S02030 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02209  M01S02030.ns2769  ---|          LDM    SREQ
Line S00087 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02210  M01S00087.ns2769  +++|          LDM    SREQ,DI
02211  M00S02031.1hy     +++|          NJN    ERR54       IF NOT I/O PROCESSING
Line S02032 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02212  M01S02032.ns2769  ---|          LDM    ERCT
Line S00088 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02213  M01S00088.ns2769  +++|          LDM    ERCT,DI
02214  M00S02033.1hy     +++|          LMN    CSRC
02215  M00S02034.1hy     +++|          ZJN    ERR56       IF TIME FOR CHANNEL SWAP
02216  M00S02035.1hy     +++|          LMN    1&CSRC
02217  M00S02036.1hy     +++|          NJN    ERR54       IF NOT FIRST RETRY
Line S02037 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02218  M01S02037.ns2769  ---|          LDM    RQIN
Line S00089 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02219  M01S00089.ns2769  +++|          LDM    RQIN,DI
02220  M00S02038.1hy     +++|          STD    WB+3
02221  M00S02039.1hy     +++|          LDN    IDSS        INHIBIT DATA STREAMING
02222  M00S02040.1hy     +++|          RJM    IMR
02223  M00S02041.1hy     +++| ERR54    LDC    4000        DISABLE RELEASE OF UNIT INTERLOCK
Line S02042 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02224  M01S02042.ns2769  ---|          STM    RQIN
Line S00090 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02225  M01S00090.ns2769  +++|          STM    RQIN,DI
02226  M00S02043.1hy     +++|          LJM    CMP4        RETRY REQUEST
02227  M00S02044.1hy     +++|
02228  M00S02045.1hy     +++| ERR56    RJM    SEC         FORCE ALTERNATE CHANNEL SELECTION
02229  M00S02046.1hy     +++|          LDN    SSES
02230  M00S02047.1hy     +++|          RJM    ISF         SET SUSPECT STATE
02231  M00S02048.1hy     +++|*         LDN    0
02232  M00S02049.1hy     +++|          LJM    CMP2        COMPLETE PROCESSING
02233  M00S02050.1hy     +++|
02234  M00S02051.1hy     +++|
02235  M00S02052.1hy     +++| ERRB     BSS    0
02236  M00S02053.1hy     +++|          CON    ERR14       (IHD IDLE)
02237  M00S02054.1hy     +++|          CON    ERR13       READ DATA AVAILABLE
02238  M00S02055.1hy     +++|          CON    ERR13       BUFFER SPACE AVAILABLE
02239  M00S02056.1hy     +++|          CON    ERR14       (UNDEFINED)
02240  M00S02057.1hy     +++|          CON    ERR16       COMMAND BLOCK INDEPENDENT
02241  M00S02058.1hy     +++|          CON    ERR14       (UNDEFINED)
02242  M00S02059.1hy     +++|          CON    ERR17       UNSOLICITED ATTENTION
02243  M00S02060.1hy     +++|          CON    ERR19       COMMAND COMPLETE
02244  M00S02061.1hy     +++|
02245  M00S02062.1hy     +++| ERRC     BSS    0           MANUAL INTERVENTION CODES
02246  M00S02063.1hy     +++|          CON    0#C1,ERR36  DISK NOT READY
02247  M00S02064.1hy     +++|          CON    0#63,ERR47  ISI I/O PARITY ERROR
02248  M00S02065.1hy     +++|          CON    0#6A,ERR48  DIAGNOSTIC FAILURE
02249  M00S02066.1hy     +++|          CON    0#6B,ERR46  TEMPERATURE FAULT
02250  M00S02067.1hy     +++|          CON    0000,ERR51
02251  M00S02068.1hy     +++|
02252  M00S02069.1hy     +++| ERRD     BSS    0           SYSTEM INTERVENTION CODES
02253  M00S02070.1hy     +++|          CON    0#41,ERR40  UNABLE TO READ HEADER
02254  M00S02071.1hy     +++|          CON    0#42,ERR40  HEADER ERROR
02255  M00S02072.1hy     +++|          CON    0#43,ERR40  UNABLE TO READ DATA
02256  M00S02073.1hy     +++|          CON    0#A6,ERR48  DIAGNOSTIC FAILURE
02257  M00S02074.1hy     +++|          CON    0000,ERR51
02258  M00S02075.1hy     +++|
02259  M00S02076.1hy     +++| ERRE     BSS    0           LIST ADDRESSES
02260  M00S02077.1hy     +++|          CON    ERRC-2      MANUAL INTERVENTION CODES
02261  M00S02078.1hy     +++|          CON    ERRD-2      SYSTEM INTERVENTION CODES
02262  M00S02079.1hy     +++| FCN      SPACE  4,10
02263  M00S02080.1hy     +++|**        FCN - ISSUE FUNCTION.
02264  M00S02081.1hy     +++|*
02265  M00S02082.1hy     +++|*         ENTRY  (A) = FUNCTION CODE.
02266  M00S02083.1hy     +++|*
02267  M00S02084.1hy     +++|*         ERROR  TO *ERR*.
02268  M00S02085.1hy     +++|*
02269  M00S02086.1hy     +++|*         CALLS  RCS.
02270  M00S02087.1hy     +++|
02271  M00S02088.1hy     +++|
02272  M00S02089.1hy     +++| FCN      SUBR               ENTRY/EXIT
02273  M00S02090.1hy     +++|          STM    FCNA
02274  M00S02091.1hy     +++|          LDN    FTRC        SET INTERNAL REPEAT COUNT
02275  M00S02092.1hy     +++|          STD    T0
02276  M00S02093.1hy     +++| FCN1     FNC    0,CH        ISSUE FUNCTION
02277  M00S02094.1hy     +++| FCNA     EQU    *-1
02278  M00S02095.1hy     +++|          LDC    FTOD
02279  M00S02096.1hy     +++| FCN2     IJM    FCNX,CH     IF FUNCTION ACCEPTED
02280  M00S02097.1hy     +++|          SBN    1
02281  M00S02098.1hy     +++|          NJN    FCN2        IF NOT TIMED OUT
02282  M00S02099.1hy     +++|          DCN    CH+40
02283  M00S02100.1hy     +++|          SOD    T0
02284  M00S02101.1hy     +++|          NJN    FCN1        IF RETRY COUNT NOT SATISFIED
02285  M00S02102.1hy     +++|          STD    SF
02286  M00S02103.1hy     +++|*         LDN    0
02287  M00S02104.1hy     +++|          RJM    RCS         GLOBALLY DOWN CHANNEL
02288  M00S02105.1hy     +++|          LDN    ETFN
02289  M00S02106.1hy     +++|          RJM    ERR         PROCESS ERROR
02290  M00S02107.1hy     +++| GDS      SPACE  4,10
02291  M00S02108.1hy     +++|**        GDS - GET DEVICE STATUS.
02292  M00S02109.1hy     +++|*
02293  M00S02110.1hy     +++|*         CALLS  CFE, FCN, WFW.
02294  M00S02111.1hy     +++|
02295  M00S02112.1hy     +++|
02296  M00S02113.1hy     +++| GDS      SUBR               ENTRY/EXIT
02297  M00S02114.1hy     +++|          LDC    FWDS
02298  M00S02115.1hy     +++|          RJM    WFW         WRITE FUNCTION WORD
02299  M00S02116.1hy     +++|          ACN    CH
02300  M00S02117.1hy     +++|          LDN    DVSTL       INPUT DEVICE STATUS
02301  M00S02118.1hy     +++|          IAM    DVST,CH
02302  M00S02119.1hy     +++|          RJM    CFE
02303  M00S02120.1hy     +++|          LDC    FCCS        CLEAR COMMAND SEQUENCE
02304  M00S02121.1hy     +++|          RJM    FCN
02305  M00S02122.1hy     +++|          UJN    GDSX        RETURN
02306  M00S02123.1hy     +++| GSS      SPACE  4,15
02307  M00S02124.1hy     +++|**        GSS - GET SLAVE STATUS.
02308  M00S02125.1hy     +++|*
02309  M00S02126.1hy     +++|*         ENTRY  (A) = 0 TO IGNORE INTERVENTION STATUS.
02310  M00S02127.1hy     +++|*
02311  M00S02128.1hy     +++|*         EXIT   (A) = EXECUTION STATUS.
02312  M00S02129.1hy     +++|*                (SS) = STATUS FLAGS.
02313  M00S02130.1hy     +++|*
02314  M00S02131.1hy     +++|*         ERROR  TO *ERR* IF *INTERVENTION REQUIRED*.
02315  M00S02132.1hy     +++|*
02316  M00S02133.1hy     +++|*         USES   T2.
02317  M00S02134.1hy     +++|*
02318  M00S02135.1hy     +++|*         CALLS  CFE, WFW.
02319  M00S02136.1hy     +++|
02320  M00S02137.1hy     +++|
02321  M00S02138.1hy     +++| GSS5     LMN    ESCC        RESTORE EXECUTION STATUS
02322  M00S02139.1hy     +++|
02323  M00S02140.1hy     +++| GSS      SUBR               ENTRY/EXIT
02324  M00S02141.1hy     +++|          STD    T2
02325  M00S02142.1hy     +++|          LDC    FWSB
02326  M00S02143.1hy     +++|          RJM    WFW         WRITE FUNCTION WORD
02327  M00S02144.1hy     +++|          ACN    CH
02328  M00S02145.1hy     +++|          LDN    SLSTL       INPUT STATUS BLOCK
02329  M00S02146.1hy     +++|          IAM    SLST,CH
02330  M00S02147.1hy     +++|          RJM    CFE
02331  M00S02148.1hy     +++|          LDML   SLST        CHECK COMMAND BLOCK NUMBER
02332  M00S02149.1hy     +++|          LPN    17
02333  M00S02150.1hy     +++|          NJN    GSS4        IF INVALID BLOCK NUMBER
02334  M00S02151.1hy     +++|          LDML   SLST
02335  M00S02152.1hy     +++|          STML   EXST
02336  M00S02153.1hy     +++|          SHN    0-10        EXTRACT STATUS FLAGS
02337  M00S02154.1hy     +++|          STD    SS
02338  M00S02155.1hy     +++|          LPN    70          CHECK EXECUTION STATUS
02339  M00S02156.1hy     +++|          LMN    ESCC
02340  M00S02157.1hy     +++|          NJN    GSS5        IF NOT *COMMAND COMPLETE*
02341  M00S02158.1hy     +++|          LDD    T2
02342  M00S02159.1hy     +++| GSS1     ZJN    GSS5        IF NO INTERVENTION STATUS ANALYSIS
02343  M00S02160.1hy     +++|          LDD    SS
02344  M00S02161.1hy     +++|          LPN    6
02345  M00S02162.1hy     +++|          ZJN    GSS5        IF NO INTERVENTION FLAGS
02346  M00S02163.1hy     +++| GSS2     LDN    EIRQ
02347  M00S02164.1hy     +++| GSS3     RJM    ERR         PROCESS ERROR
02348  M00S02165.1hy     +++|
02349  M00S02166.1hy     +++| GSS4     LDN    ECBN
02350  M00S02167.1hy     +++|          UJN    GSS3        COMMAND BLOCK NUMBER
02351  M00S02168.1hy     +++| IBM      SPACE  4,20
02352  M00S02169.1hy     +++|**        IBM - ISSUE BML MESSAGE.
02353  M00S02170.1hy     +++|*
02354  M00S02171.1hy     +++|*         ENTRY  (A) = 6/ ML, 12/ SC
02355  M00S02172.1hy     +++|*                      ML = MESSAGE LENGTH (CM WORD COUNT).
02356  M00S02173.1hy     +++|*                      SC = MESSAGE SYMPTOM CODE.
02357  M00S02174.1hy     +++|*                (RW) = READ / WRITE FLAG.
02358  M00S02175.1hy     +++|*                (DT) = DEVICE TYPE.
02359  M00S02176.1hy     +++|*                (EO) = EST ORDINAL.
02360  M00S02177.1hy     +++|*                (UN) = UNIT NUMBER.
02361  M00S02178.1hy     +++|*                (MISC) = 1 IF UNRECOVERED ERROR.
02362  M00S02179.1hy     +++|*
02363  M00S02180.1hy     +++|*         EXIT   (A) = (MISC) = 0.
02364  M00S02181.1hy     +++|*
Line S02182 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02365  M01S02182.ns2769  ---|*         USES   T2, T3, CM - CM+4, WB - WB+4.
Line S00091 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02366  M01S00091.ns2769  +++|*         USES   T2, T3.
02367  M00S02183.1hy     +++|*
Line S02184 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02368  M01S02184.ns2769  ---|*         CALLS  CMC, UEC.
02369  M01S02185.ns2769  ---|*
02370  M01S02186.ns2769  ---|*         MACROS DELAY, EMBE, EXECUTE, MONITOR.
Line S00092 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02371  M01S00092.ns2769  +++|*         CALLS  CMC, IMB, UEC.
02372  M00S02187.1hy     +++|
02373  M00S02188.1hy     +++|
02374  M00S02189.1hy     +++| IBM      SUBR               ENTRY/EXIT
Line S00029 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02375  M01S00029.271l716 +++|          LMC    D1HY*400
02376  M00S02190.1hy     +++|          STM    BMLM+1
02377  M00S02191.1hy     +++|          SHN    -14         SET MESSAGE LENGTH
02378  M00S02192.1hy     +++|          STD    T2
02379  M00S02193.1hy     +++|          ZJN    IBM1        IF BASIC MESSAGE ONLY
02380  M00S02194.1hy     +++|          LDN    1
02381  M00S02195.1hy     +++| IBM1     STD    T3
Line S02196 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02382  M01S02196.271l716 ---|          LDM    IBMC,T3     SET PROCESSING PATH
02383  M01S02197.271l716 ---|          STM    IBMA
02384  M00S02198.1hy     +++|          LDD    DT
02385  M00S02199.1hy     +++|          ADC    RM0120      SET MESSAGE ID
02386  M00S02200.1hy     +++|          STM    BMLM
Line S02201 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02387  M01S02201.ns2769  ---|          LDML   CREG        SET PORT NUMBER
Line S00093 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02388  M01S00093.ns2769  +++|          LDML   CREG,DI     SET PORT NUMBER
02389  M00S02202.1hy     +++|          SHN    6-16
02390  M00S02203.1hy     +++|*         LPC    100
02391  M00S02204.1hy     +++|          STM    PORT
02392  M00S02205.1hy     +++|          LDD    UN          SET UNIT NUMBER
02393  M00S02206.1hy     +++|          STM    UNIT
02394  M00S02207.1hy     +++|          LDD    EO          SET EST ORDINAL
02395  M00S02208.1hy     +++|          STM    ESTO
Line S02209 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02396  M01S02209.ns2769  ---|          LDM    ERCT        SET RETRY COUNT
Line S00094 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02397  M01S00094.ns2769  +++|          LDM    ERCT,DI     SET RETRY COUNT
02398  M00S02210.1hy     +++|          SHN    5
02399  M00S02211.1hy     +++|          LMD    RW          MERGE READ / WRITE FLAG
02400  M00S02212.1hy     +++|          SHN    1
02401  M00S02213.1hy     +++|          RAM    MISC
02402  M00S02214.1hy     +++|          RJM    CMC         CHECK MONITOR COMPLETE
Line S00095 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02403  M01S00095.ns2769  +++|          LDM    MAD1
02404  M01S00096.ns2769  +++|          NJN    IBM3        IF HEADER NOT REQUIRED
02405  M01S00097.ns2769  +++|          LDD    T2          PARTIAL MESSAGE LENGTH
02406  M01S00098.ns2769  +++|          ADN    3           HEADER LENGTH
02407  M01S00099.ns2769  +++|          STM    MSGL+1      COMPLETE MESSAGE LENGTH
02408  M01S00100.ns2769  +++|          LDM    MAD2        MESSAGE ADDRESS
02409  M01S00101.ns2769  +++|          STD    T0
02410  M01S00102.ns2769  +++|          LDN    3*5-1
02411  M01S00103.ns2769  +++|          STD    T3
02412  M01S00104.ns2769  +++| IBM2     SOD    T0          MOVE HEADER TO MESSAGE
02413  M01S00105.ns2769  +++|          LDM    MSGP,T3
02414  M01S00106.ns2769  +++|          STI    T0
02415  M01S00107.ns2769  +++|          SOD    T3
02416  M01S00108.ns2769  +++|          PJN    IBM2        IF MOVE NOT COMPLETE
02417  M01S00109.ns2769  +++|          LDD    T0
Line S02215 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02418  M01S02215.ns2769  ---| IBM2     LDN    ZERL
02419  M01S02216.ns2769  ---|          CRD    CM          PRESET *UTEM* REQUEST
02420  M01S02217.ns2769  ---|          EMBE   *
02421  M01S02218.ns2769  ---|          LDC    0
02422  M01S02219.ns2769  ---|          STD    CM+4        SET ADDRESS OF INTERLOCK WORD
02423  M01S02220.ns2769  ---|          SHN    -14
02424  M01S02221.ns2769  ---|          STD    CM+3
02425  M01S02222.ns2769  ---|          MONITOR  UTEM      GET *EMB* INTERLOCK
02426  M01S02223.ns2769  ---|          LDD    CM+1
02427  M01S02224.ns2769  ---|          ZJN    IBM3        IF INTERLOCK OBTAINED
02428  M01S02225.ns2769  ---|          DELAY
02429  M01S02226.ns2769  ---|          UJN    IBM2        RETRY INTERLOCK ATTEMPT
02430  M01S02227.ns2769  ---|
02431  M01S02228.ns2769  ---| IBM3     LDC    0           READ INTERLOCK WORD
02432  M01S02229.ns2769  ---|          EMBE   IBM3
02433  M01S02230.ns2769  ---|          CRD    WB
Line S02231 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02434  M02S02231.ns2769  ---|          LDN    3           SET BASIC MESSAGE LENGTH
Line S00030 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02435  M02S00030.ns2769  ---|          LDM    MAD1        GET MESSAGE ADDRESS
02436  M02S00031.ns2769  ---|          ADN    MSGL+1-MSGP
02437  M02S00032.ns2769  ---|          STD    T0          LOCATION OF MESSAGE LENGTH
02438  M02S00033.ns2769  ---|          LMC    MSGL+1
02439  M02S00034.ns2769  ---|          ZJN    IBM4        IF BASIC MESSAGE HEADER
02440  M02S00035.ns2769  ---|          LDN    0
02441  M02S00036.ns2769  ---|          STD    T2          CLEAR TWO PART MESSAGE
02442  M02S00037.ns2769  ---|          STD    T3
02443  M02S00038.ns2769  ---|          LDI    T0          EXTRACT MESSAGE LENGTH
02444  M02S00039.ns2769  ---|          SBN    3
02445  M02S00040.ns2769  ---| IBM4     ADN    3           SET BASIC MESSAGE LENGTH
Line S02232 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02446  M01S02232.ns2769  ---|          STD    CM
02447  M01S02233.ns2769  ---|          ADD    T2          ADD LENGTH OF SECOND PART
02448  M01S02234.ns2769  ---|          STM    MSGL+1
02449  M01S02235.ns2769  ---|          ADD    WB+3        CURRENT WORD COUNT
02450  M01S02236.ns2769  ---|          SBK    EMBLL-1
Line S02237 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02451  M02S02237.ns2769  ---|          MJN    IBM4        IF ROOM IN BUFFER FOR MESSAGE
Line S00041 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02452  M02S00041.ns2769  ---|          MJN    IBM5        IF ROOM IN BUFFER FOR MESSAGE
Line S02238 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02453  M01S02238.ns2769  ---|          LDN    1
02454  M01S02239.ns2769  ---|          STD    WB+1        SET DATA LOST FLAG
Line S02240 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02455  M02S02240.ns2769  ---|          UJN    IBM6        CLEAR *EMB* INTERLOCK
02456  M02S02241.ns2769  ---|
02457  M02S02242.ns2769  ---| IBM4     LDC    1           WRITE ERROR MESSAGE TO *EMB*
02458  M02S02243.ns2769  ---|          EMBE   IBM4
Line S00042 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02459  M02S00042.ns2769  ---|          UJN    IBM7        CLEAR *EMB* INTERLOCK
02460  M02S00043.ns2769  ---|
02461  M02S00044.ns2769  ---| IBM5     LDM    IBMC,T3     SET PROCESSING PATH
02462  M02S00045.ns2769  ---|          STM    IBMA
02463  M02S00046.ns2769  ---|          EMBE   *
02464  M02S00047.ns2769  ---|          LDC    1           WRITE ERROR MESSAGE TO *EMB*
Line S02244 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02465  M01S02244.ns2769  ---|          ADD    WB+3
02466  M01S02245.ns2769  ---|          CWM    MSGP,CM
02467  M01S02246.ns2769  ---| MAD1     EQU    *-1
Line S02247 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02468  M02S02247.ns2769  ---| IBMA     UJN    IBM5        BASIC MESSAGE ONLY
Line S00048 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02469  M02S00048.ns2769  ---| IBMA     UJN    IBM6        BASIC MESSAGE ONLY
Line S02248 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02470  M01S02248.ns2769  ---|          ORG    *-1
02471  M01S02249.ns2769  ---|          CWM    MBUF,T2     COPY SECOND PART OF MESSAGE
02472  M01S02250.ns2769  ---| MAD2     EQU    *-1
Line S02251 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02473  M02S02251.ns2769  ---| IBM5     LDD    CM          UPDATE LENGTH OF DATA IN *EMB*
Line S00049 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02474  M02S00049.ns2769  ---| IBM6     LDD    CM          UPDATE LENGTH OF DATA IN *EMB*
Line S02252 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02475  M01S02252.ns2769  ---|          ADD    T2
02476  M01S02253.ns2769  ---|          RAD    WB+3
02477  M01S02254.ns2769  ---|          LDD    WB+4
02478  M01S02255.ns2769  ---|          LPN    2
Line S02256 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02479  M02S02256.ns2769  ---|          NJN    IBM6        IF *1MD* ALREADY CALLED
Line S00050 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02480  M02S00050.ns2769  ---|          NJN    IBM7        IF *1MD* ALREADY CALLED
Line S02257 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02481  M01S02257.ns2769  ---|          STD    CM+1
02482  M01S02258.ns2769  ---|          LDD    MA          STORE MESSAGE BUFFER FOR *1MD* CALL
02483  M01S02259.ns2769  ---|          CWM    IBMB,ON
02484  M01S02260.ns2769  ---|          EXECUTE  1MD,=
02485  M01S02261.ns2769  ---|          MONITOR  RPPM      REQUEST PP FOR *1MD*
02486  M01S02262.ns2769  ---|          LDD    CM+1
Line S02263 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02487  M02S02263.ns2769  ---|          ZJN    IBM6        IF NO PP-S AVAILABLE
Line S00051 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02488  M02S00051.ns2769  ---|          ZJN    IBM7        IF NO PP-S AVAILABLE
Line S02264 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02489  M01S02264.ns2769  ---|          LDN    2
02490  M01S02265.ns2769  ---|          RAD    WB+4
Line S02266 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02491  M02S02266.ns2769  ---| IBM6     SOD    WB+4        CLEAR *EMB* INTERLOCK
Line S00052 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02492  M02S00052.ns2769  ---| IBM7     SOD    WB+4        CLEAR *EMB* INTERLOCK
Line S02267 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02493  M01S02267.ns2769  ---|          EMBE   *
02494  M01S02268.ns2769  ---|          LDC    0           UPDATE *EMB* INFORMATION
02495  M01S02269.ns2769  ---|          CWD    WB
Line S00110 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02496  M01S00110.ns2769  +++| IBM3     RJM    IMB         ISSUE MESSAGE TO BUFFER
02497  M00S02270.1hy     +++|          RJM    UEC         UPDATE MST ERROR COUNT
Line S00053 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02498  M02S00053.ns2769  ---|          LDC    MSGP
02499  M02S00054.ns2769  ---|          STM    MAD1        RESTORE BASIC ERROR MESSAGE ADDRESS
02500  M00S02271.1hy     +++|          LDC    MBUF
02501  M00S02272.1hy     +++|          STM    MAD2        RESTORE MESSAGE ADDRESS
02502  M00S02273.1hy     +++|          LDN    0
Line S00111 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02503  M01S00111.ns2769  +++|          STM    MAD1
02504  M00S02274.1hy     +++|          STM    MISC        CLEAR UNRECOVERED ERROR STATUS
02505  M00S02275.1hy     +++|*         LDN    0
02506  M00S02276.1hy     +++|          LJM    IBMX        RETURN
Line S02277 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02507  M01S02277.ns2769  ---|
02508  M01S02278.ns2769  ---|
02509  M01S02279.ns2769  ---| IBMB     VFD    18/3L1MD,42/1    *1MD* CALL
02510  M01S02280.ns2769  ---|
02511  M01S02281.ns2769  ---| IBMC     BSS    0           PROCESSOR PATH
02512  M01S02282.ns2769  ---|          LOC    IBMA
Line S02283 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02513  M02S02283.ns2769  ---|          UJN    IBM5        BASIC MESSAGE TRANSFER
Line S00055 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02514  M02S00055.ns2769  ---|          UJN    IBM6        BASIC MESSAGE TRANSFER
Line S02284 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02515  M01S02284.ns2769  ---|          LOC    *O
02516  M01S02285.ns2769  ---|          CON    CWMI+T2     TWO PART MESSAGE
02517  M00S02286.1hy     +++|
02518  M00S02287.1hy     +++|
Line S00112 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02519  M01S00112.ns2769  +++| MAD1     CON    0           MESSAGE ADDRESS IF MESSAGE HAS HEADER.
02520  M01S00113.ns2769  +++| MAD2     CON    MBUF        MESSAGE ADDRESS IF HEADER MUST BE ADDED.
02521  M01S00114.ns2769  +++|
02522  M00S02288.1hy     +++| MSGP     CON    0           MESSAGE PREFIX
02523  M00S02289.1hy     +++|          CON    0
02524  M00S02290.1hy     +++| MSGL     CON    0,0         MESSAGE LENGTH
02525  M00S02291.1hy     +++|          CON    MLDY        MESSAGE TYPE
02526  M00S02292.1hy     +++|
02527  M00S02293.1hy     +++| BMLM     BSS    0           BML MESSAGE PREFIX
02528  M00S02294.1hy     +++|          VFD    12/RM0120   887 MESSAGE ID
02529  M00S02295.1hy     +++|          VFD    12/         SYMPTOM CODE
02530  M00S02296.1hy     +++|          VFD    6/,6/       CPP NUMBER, CHANNEL NUMBER
02531  M00S02297.1hy     +++| UNIT     VFD    6/0,6/      UNUSED, UNIT NUMBER
02532  M00S02298.1hy     +++| PORT     VFD    6/,6/0      PORT NUMBER, UNUSED
Line S00115 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02533  M01S00115.ns2769  +++|
02534  M00S02299.1hy     +++| ESTO     VFD    12/         EST ORDINAL
02535  M00S02300.1hy     +++| MISC     VFD    6/,4/0,2/   RETRY COUNT, UNUSED, WRITE + REC FLAGS
02536  M00S02301.1hy     +++|          VFD    12/0        UNUSED
02537  M00S02302.1hy     +++| MFID     VFD    12/         MAINFRAME ID
02538  M00S02303.1hy     +++|          VFD    12/0        UNUSED
02539  M00S02304.1hy     +++| IEM      SPACE  4,10
02540  M00S02305.1hy     +++|**        IEM - ISSUE BML ERROR MESSAGE.
02541  M00S02306.1hy     +++|*
02542  M00S02307.1hy     +++|*         ENTRY  (A) = SYMPTOM CODE OFFSET FROM *HD0100*.
02543  M00S02308.1hy     +++|*                (ML) = MESSAGE LENGTH (CM WORD COUNT).
02544  M00S02309.1hy     +++|*
02545  M00S02310.1hy     +++|*         EXIT   (A) = (ML) = 0.
02546  M00S02311.1hy     +++|*
02547  M00S02312.1hy     +++|*         CALLS  IBM.
02548  M00S02313.1hy     +++|
02549  M00S02314.1hy     +++|
02550  M00S02315.1hy     +++| IEM      SUBR               ENTRY/EXIT
02551  M00S02316.1hy     +++|          ADD    HN
02552  M00S02317.1hy     +++|          ERRNZ  HD0100-100  CODE DEPENDS ON VALUE
02553  M00S02318.1hy     +++|          STD    T0
02554  M00S02319.1hy     +++|          LDC    EBUF        SET MESSAGE ADDRESS
02555  M00S02320.1hy     +++|          STM    MAD2
02556  M00S02321.1hy     +++|          LDD    ML          MESSAGE LENGTH
02557  M00S02322.1hy     +++|          SHN    14
02558  M00S02323.1hy     +++|          LMD    T0
02559  M00S02324.1hy     +++|          RJM    IBM         ISSUE ERROR MESSAGE
02560  M00S02325.1hy     +++|*         LDN    0
02561  M00S02326.1hy     +++|          STD    ML
02562  M00S02327.1hy     +++|          UJN    IEMX        RETURN
02563  M00S02328.1hy     +++| IIO      SPACE  4,15
02564  M00S02329.1hy     +++|**        IIO - INITIATE I/O.
02565  M00S02330.1hy     +++|*
02566  M00S02331.1hy     +++|*         ENTRY  (A) = (CB) = *CBT* ORDINAL.
02567  M00S02332.1hy     +++|*
02568  M00S02333.1hy     +++|*         EXIT   (A) = 0 IF I/O DISABLED ON THIS CHANNEL.
02569  M00S02334.1hy     +++|*                (RW) = READ / WRITE STATUS.
02570  M00S02335.1hy     +++|*                (PA) = PROCESSOR ADDRESS.
02571  M00S02336.1hy     +++|*                (TO) = SEEK TIMEOUT VALUE.
02572  M00S02337.1hy     +++|*                (NR - NR+4) = PHYSICAL ADDRESS OF REQUEST.
02573  M00S02338.1hy     +++|*
Line S02339 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02574  M01S02339.253l688 ---|*         USES   T2 - T7.
Line S00007 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02575  M01S00007.253l688 +++|*         USES   T1 - T7.
02576  M00S02340.1hy     +++|*
02577  M00S02341.1hy     +++|*         CALLS  PEF.
02578  M00S02342.1hy     +++|*
02579  M00S02343.1hy     +++|*         MACROS CBTE.
02580  M00S02344.1hy     +++|
02581  M00S02345.1hy     +++|
02582  M00S02346.1hy     +++| IIO3     STD    PA
02583  M00S02347.1hy     +++|          SCN    77          SET I/O DISABLED STATUS
02584  M00S02348.1hy     +++|
02585  M00S02349.1hy     +++| IIO      SUBR               ENTRY/EXIT
02586  M00S02350.1hy     +++|          SHN    CBTLS
02587  M00S02351.1hy     +++|          CBTE   *
02588  M00S02352.1hy     +++|          ADC    PAD1        FETCH SEEK PARAMETERS FROM *CBT*
02589  M00S02353.1hy     +++|          CRD    NR
Line S02354 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02590  M01S02354.253l688 ---|          ADN    HSLK-PAD1   GET CHANNEL SELECT ERROR FLAGS
Line S00008 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02591  M01S00008.253l688 +++|          ADN    PAD4-PAD1   GET CHANNEL FROM CBT ENTRY
02592  M01S00009.253l688 +++|          CRD    T1
02593  M01S00010.253l688 +++|          ADN    HSLK-PAD4   GET CHANNEL SELECT STATUS
02594  M00S02355.1hy     +++|          CRD    T2
02595  M00S02356.1hy     +++|          SBN    HSLK-IOLK   GET READ / WRITE FLAG
02596  M00S02357.1hy     +++|          CRD    T3
02597  M00S02358.1hy     +++|          LDD    T2          CHECK ERROR FLAGS
02598  M00S02359.1hy     +++|          SHN    0-12
02599  M00S02360.1hy     +++|          ZJN    IIO2        IF NO FLAGS
02600  M00S02361.1hy     +++|          SHN    -1
02601  M00S02362.1hy     +++|          STD    RW          PROCESS ERROR FLAGS
02602  M00S02363.1hy     +++|          RJM    PEF
02603  M00S02364.1hy     +++| IIO1     NJN    IIO3        IF I/O PREPROCESSING INDICATED
02604  M00S02365.1hy     +++| IIO2     LDD    NR+1
02605  M00S02366.1hy     +++|          STM    WCBA+5      SET CYLINDER IN COMMAND BLOCK
Line S02367 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02606  M01S02367.ns2769  ---|          STM    CYLN
Line S00116 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02607  M01S00116.ns2769  +++|          STM    CYLN,DI
02608  M00S02368.1hy     +++|          LDD    NR+2
Line S02369 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02609  M01S02369.ns2769  ---|          STM    TKSN        TRACK + SECTOR
Line S00117 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02610  M01S00117.ns2769  +++|          STM    TKSN,DI     TRACK + SECTOR
02611  M00S02370.1hy     +++|          SCN    77
02612  M00S02371.1hy     +++|          SHN    2
02613  M00S02372.1hy     +++|          LMD    NR+2        SEPARATE INTO 8 BIT FIELDS
02614  M00S02373.1hy     +++|          SCN    77
02615  M00S02374.1hy     +++|          LMD    NR+2        SET IN COMMAND BLOCK
02616  M00S02375.1hy     +++|          STML   WCBA+6
02617  M00S02376.1hy     +++|          LDD    T3
02618  M00S02377.1hy     +++|          SHN    22-11       EXTRACT WRITE DATA FLAG
02619  M00S02378.1hy     +++|          LPN    1
Line S02379 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02620  M01S02379.ns2769  ---|          STM    RWST        SET READ / WRITE STATUS
Line S00118 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02621  M01S00118.ns2769  +++|          STM    RWST,DI     SET READ / WRITE STATUS
02622  M00S02380.1hy     +++|          STD    RW
02623  M00S02381.1hy     +++|          LDN    3
02624  M00S02382.1hy     +++|          STD    TO          SEEK TIMEOUT = 3 SECONDS
02625  M00S02383.1hy     +++|          LDC    PIO
02626  M00S02384.1hy     +++|          UJN    IIO1        SET PROCESSOR ADDRESS
02627  M00S02385.1hy     +++| IMR      SPACE  4,15
02628  M00S02386.1hy     +++|**        IMR - INITIATE MONITOR REQUEST.
02629  M00S02387.1hy     +++|*
02630  M00S02388.1hy     +++|*         ENTRY  (A) = *BIOM* SUBFUNCTION.
02631  M00S02389.1hy     +++|*                (PO) = *PUT* ORDINAL.
02632  M00S02390.1hy     +++|*                (WB+3 - WB+4) = *BIOM* PARAMETERS.
02633  M00S02391.1hy     +++|*
02634  M00S02392.1hy     +++|*         EXIT   (A) = 0.
02635  M00S02393.1hy     +++|*
02636  M00S02394.1hy     +++|*         USES   WB - WB+2.
02637  M00S02395.1hy     +++|*
02638  M00S02396.1hy     +++|*         CALLS  AME, CMC.
02639  M00S02397.1hy     +++|
02640  M00S02398.1hy     +++|
02641  M00S02399.1hy     +++| IMR2     RJM    AME         ATTEMPT MONITOR EXCHANGE
02642  M00S02400.1hy     +++|*         LDN    0
02643  M00S02401.1hy     +++|
02644  M00S02402.1hy     +++| IMR      SUBR               ENTRY/EXIT
02645  M00S02403.1hy     +++|          STD    WB+1
02646  M00S02404.1hy     +++|          LDD    PO          SET *PUT* ORDINAL
02647  M00S02405.1hy     +++|          STD    WB+2
02648  M00S02406.1hy     +++|          LDN    BIOM        SET MONITOR FUNCTION
02649  M00S02407.1hy     +++|          STD    WB
02650  M00S02408.1hy     +++|          RJM    CMC         CHECK MONITOR COMPLETE
02651  M00S02409.1hy     +++|          LDD    OA
02652  M00S02410.1hy     +++|          CWD    WB
02653  M00S02411.1hy     +++|          UJN    IMR2        ATTEMPT EXCHANGE
Line S00019 Modification History
M01 (Added by) 1hy6
Seq #  *Modification Id* Act 
----------------------------+
02654  M01S00019.1hy6    +++|IOM       SPACE  4,10
02655  M01S00020.1hy6    +++|**        IOM - ISSUE OPERATOR MESSAGE.
02656  M01S00021.1hy6    +++|*
Line S00022 Modification History
M01 (Added by) 1hy6
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02657  M02S00022.271l716 ---|*         (A) = MESSAGE ADDRESS.
02658  M02S00023.271l716 ---|*             = 0, TO CLEAR THE MESSAGE.
02659  M02S00024.271l716 ---|*
02660  M02S00025.271l716 ---|*         CALLS  C2D.
02661  M02S00026.271l716 ---|*
02662  M02S00027.271l716 ---|*         USES   T1.
Line S00056 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02663  M01S00056.271l716 +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
02664  M01S00057.271l716 +++|*                    = 0 TO CLEAR MESSAGE.
02665  M01S00058.271l716 +++|*                (EO) = EST ORDINAL.
02666  M01S00059.271l716 +++|*
02667  M01S00060.271l716 +++|*         USES   T1.
02668  M01S00061.271l716 +++|*
02669  M01S00062.271l716 +++|*         CALLS  C2D.
Line S00028 Modification History
M01 (Added by) 1hy6
Seq #  *Modification Id* Act 
----------------------------+
02670  M01S00028.1hy6    +++|
02671  M01S00029.1hy6    +++|
02672  M01S00030.1hy6    +++| IOM1     LDD    CP          CLEAR THE MESSAGE
02673  M01S00031.1hy6    +++|          ADN    MS2W
02674  M01S00032.1hy6    +++|          CWD    T1
02675  M01S00033.1hy6    +++|
02676  M01S00034.1hy6    +++| IOM      SUBR               ENTRY/EXIT
Line S00035 Modification History
M01 (Added by) 1hy6
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02677  M02S00035.271l716 ---|          STM    IOMA        SAVE THE MESSAGE ADDRESS
Line S00036 Modification History
M01 (Added by) 1hy6
Seq #  *Modification Id* Act 
----------------------------+
02678  M01S00036.1hy6    +++|          STD    T1
02679  M01S00037.1hy6    +++|          ZJN    IOM1        IF CLEAR MESSAGE CALL
Line S00038 Modification History
M01 (Added by) 1hy6
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02680  M02S00038.271l716 ---|          LDD    EO
02681  M02S00039.271l716 ---|          RJM    C2D
02682  M02S00040.271l716 ---|          STM    2,T1
Line S00063 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02683  M01S00063.271l716 +++|          STM    IOMA
02684  M01S00064.271l716 +++|          LDD    EO          CONVERT EST ORDINAL
02685  M01S00065.271l716 +++|          RJM    C2D
02686  M01S00066.271l716 +++|          STM    2,T1        SET IN MESSAGE
Line S00041 Modification History
M01 (Added by) 1hy6
Seq #  *Modification Id* Act 
----------------------------+
02687  M01S00041.1hy6    +++|          LDD    EO
02688  M01S00042.1hy6    +++|          SHN    -6
02689  M01S00043.1hy6    +++|          LMC    2RQ0
02690  M01S00044.1hy6    +++|          STM    1,T1
Line S00045 Modification History
M01 (Added by) 1hy6
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02691  M02S00045.271l716 ---|          LDD    CP
Line S00067 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02692  M01S00067.271l716 +++|          LDD    CP          STORE OPERATOR MESSAGE
Line S00046 Modification History
M01 (Added by) 1hy6
Seq #  *Modification Id* Act 
----------------------------+
02693  M01S00046.1hy6    +++|          ADN    MS2W
02694  M01S00047.1hy6    +++|          CWM    **,TR
02695  M01S00048.1hy6    +++| IOMA     EQU    *-1
02696  M01S00049.1hy6    +++|          UJN    IOMX        RETURN
02697  M00S02412.1hy     +++| ISF      SPACE  4,15
02698  M00S02413.1hy     +++|**        ISF - ISSUE *SEQM* FUNCTION.
02699  M00S02414.1hy     +++|*
02700  M00S02415.1hy     +++|*         ENTRY  (A) = *SEQM* SUBFUNCTION.
02701  M00S02416.1hy     +++|*                (EO) = EST ORDINAL.
02702  M00S02417.1hy     +++|*                (IR+4) = CHANNEL NUMBER.
02703  M00S02418.1hy     +++|*
02704  M00S02419.1hy     +++|*         EXIT   (A) = 0.
02705  M00S02420.1hy     +++|*
02706  M00S02421.1hy     +++|*         USES   T2, CM - CM+4.
02707  M00S02422.1hy     +++|*
02708  M00S02423.1hy     +++|*         CALLS  CMC.
02709  M00S02424.1hy     +++|*
02710  M00S02425.1hy     +++|*         MACROS MONITOR.
02711  M00S02426.1hy     +++|
02712  M00S02427.1hy     +++|
02713  M00S02428.1hy     +++| ISF      SUBR               ENTRY/EXIT
02714  M00S02429.1hy     +++|          STD    T2
02715  M00S02430.1hy     +++|          RJM    CMC         CHECK MONITOR COMPLETE
02716  M00S02431.1hy     +++|          LDD    EO
02717  M00S02432.1hy     +++|          STD    CM+1        SET EST ORDINAL
02718  M00S02433.1hy     +++|          LDD    T2
02719  M00S02434.1hy     +++|          STD    CM+2        SET *SEQM* SUBFUNCTION
02720  M00S02435.1hy     +++|          LDD    IR+4
02721  M00S02436.1hy     +++|          STD    CM+3        SET CHANNEL NUMBER
02722  M00S02437.1hy     +++|          MONITOR  SEQM
02723  M00S02438.1hy     +++|*         LDN    0
02724  M00S02439.1hy     +++|          UJN    ISFX        RETURN
02725  M00S02440.1hy     +++| ISR      SPACE  4,10
02726  M00S02441.1hy     +++|**        ISR - IDENTIFY SPECIAL REQUEST.
02727  M00S02442.1hy     +++|*
02728  M00S02443.1hy     +++|*         ENTRY  (A) = SPECIAL REQUEST FLAGS.
02729  M00S02444.1hy     +++|*
02730  M00S02445.1hy     +++|*         EXIT   (A) = 0 IF UNIDENTIFIED FLAG.
02731  M00S02446.1hy     +++|*                (PA) = PROCESSOR ADDRESS.
Line S02447 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02732  M01S02447.271l716 ---|*                (RW) = INDEX FOR DIAGNOSTICS.
Line S00068 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02733  M01S00068.271l716 +++|*                (RW) = SPECIAL REQUEST INDEX.
02734  M00S02448.1hy     +++|
02735  M00S02449.1hy     +++|
02736  M00S02450.1hy     +++| ISR2     LDM    ISRA,RW     SET SPECIAL REQUEST PROCESSOR
02737  M00S02451.1hy     +++|          STD    PA
Line S02452 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02738  M01S02452.271l716 ---|          ERRNZ  L1DF+1-L2DF CODE DEPENDS ON VALUE
02739  M00S02453.1hy     +++|
02740  M00S02454.1hy     +++| ISR      SUBR               ENTRY/EXIT
02741  M00S02455.1hy     +++|          SHN    -1
02742  M00S02456.1hy     +++|          STD    T0          SAVE FLAGS
02743  M00S02457.1hy     +++|          LCN    0
Line S02458 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02744  M01S02458.271l716 ---|          ERRNZ  SPDF+2-L1DF CODE DEPENDS ON VALUE
Line S00069 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02745  M01S00069.271l716 +++|          ERRNZ  DUNF+1-SPDF CODE DEPENDS ON VALUE
02746  M00S02459.1hy     +++|          STD    RW
02747  M00S02460.1hy     +++| ISR1     AOD    RW          ADVANCE INDEX
02748  M00S02461.1hy     +++|          LDD    T0
02749  M00S02462.1hy     +++|          SHN    21-0        CHECK NEXT FLAG
02750  M00S02463.1hy     +++|          STD    T0
02751  M00S02464.1hy     +++|          PJN    ISR1        IF NOT SET
02752  M00S02465.1hy     +++|          LDD    RW
Line S02466 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02753  M01S02466.ns2769  ---|          STM    RWST        SET INDEX FOR DIAGNOSTICS
Line S00119 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02754  M01S00119.ns2769  +++|          STM    RWST,DI     SET INDEX FOR DIAGNOSTICS
02755  M00S02467.1hy     +++|          ADN    SPDF
Line S02468 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02756  M01S02468.ns2769  ---|          STM    SREQ        SET SPECIAL REQUEST FLAG
Line S00120 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02757  M01S00120.ns2769  +++|          STM    SREQ,DI     SET SPECIAL REQUEST FLAG
02758  M00S02469.1hy     +++|          SBN    DUCF+1
02759  M00S02470.1hy     +++|          MJN    ISR2        IF VALID REQUEST
02760  M00S02471.1hy     +++|          LDN    0
02761  M00S02472.1hy     +++|          UJN    ISRX        RETURN
02762  M00S02473.1hy     +++|
02763  M00S02474.1hy     +++|
02764  M00S02475.1hy     +++| ISRA     BSS    0           SPECIAL REQUEST PROCESSORS
02765  M00S02476.1hy     +++|          CON    SPD         SPIN-DOWN DRIVE
02766  M00S02477.1hy     +++|          CON    SPU         SPIN-UP DRIVE
Line S02478 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02767  M01S02478.271l716 ---|          CON    RND         EXECUTE LEVEL 1 DIAGNOSTICS
02768  M01S02479.271l716 ---|          CON    RND         EXECUTE LEVEL 2 DIAGNOSTICS
02769  M00S02480.1hy     +++|          CON    DUC         DAYFILE UNIT CHARACTERISTICS
02770  M00S02481.1hy     +++| PEF      SPACE  4,15
02771  M00S02482.1hy     +++|**        PEF - PROCESS ERROR FLAGS.
02772  M00S02483.1hy     +++|*
02773  M00S02484.1hy     +++|*         ENTRY  (RW) = ERROR INDEX.
02774  M00S02485.1hy     +++|*                (CB) = *CBT* ORDINAL.
Line S02486 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02775  M01S02486.253l688 ---|*                (T2) = BYTE 0 OF *HSLK* WORD IN *CBT*.
Line S00011 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02776  M01S00011.253l688 +++|*                (T1) = BYTE 0 OF *PAD4* WORD OF CBT ENTRY.
Line S00033 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02777  M01S00033.ns2512  +++|*                (RF) = SPECIAL REQUEST FLAGS.
02778  M00S02487.1hy     +++|*                (NR - NR+4) = *PAD1* WORD OF *CBT* ENTRY.
02779  M00S02488.1hy     +++|*
02780  M00S02489.1hy     +++|*         EXIT   (A) = 0 IF OK TO INITIATE I/O.
02781  M00S02490.1hy     +++|*                    = I/O PREPROCESSOR ADDRESS.
02782  M00S02491.1hy     +++|*
02783  M00S02492.1hy     +++|*         USES   RW, PA.
02784  M00S02493.1hy     +++|*
Line S02494 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02785  M01S02494.ns2512  ---|*         CALLS  IIO, WFC.
Line S00034 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02786  M01S00034.ns2512  +++|*         CALLS  CPF, IIO, WFC.
02787  M00S02495.1hy     +++|
02788  M00S02496.1hy     +++|
Line S02497 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02789  M01S02497.ns2512  ---| PEF5     LDN    0           INDICATE I/O IN ORDER
Line S00035 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02790  M01S00035.ns2512  +++| PEF6     LDN    0           INDICATE I/O IN ORDER
02791  M00S02498.1hy     +++|
02792  M00S02499.1hy     +++| PEF      SUBR               ENTRY/EXIT
Line S02500 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02793  M01S02500.253l688 ---|          LDD    T2
Line S00012 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02794  M01S00012.253l688 +++|          LDD    T1
02795  M01S00013.253l688 +++|          SHN    -6
02796  M00S02501.1hy     +++|          LMD    IR+4        CHECK CHANNEL NUMBER
Line S02502 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02797  M01S02502.253l688 ---|          LPN    37
02798  M00S02503.1hy     +++|          NJN    PEFX        IF I/O DISABLED ON THIS ACCESS
Line S02504 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02799  M01S02504.ns2769  ---|          LDM    ERCT
Line S00121 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02800  M01S00121.ns2769  +++|          LDM    ERCT,DI
02801  M00S02505.1hy     +++|          NJN    PEF1        IF PATH VERIFICATION INITIATED
02802  M00S02506.1hy     +++|          LDM    PEFA,RW
Line S02507 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02803  M01S02507.ns2769  ---|          STM    ERCT        SET INITIAL ERROR COUNT
02804  M01S02508.ns2769  ---| PEF1     LDM    IPPS
Line S00122 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02805  M01S00122.ns2769  +++|          STM    ERCT,DI     SET INITIAL ERROR COUNT
02806  M01S00123.ns2769  +++| PEF1     LDM    IPPS,DI
Line S02509 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02807  M01S02509.ns2512  ---|          NJN    PEF5        IF I/O PREPROCESSING COMPLETE
02808  M01S02510.ns2512  ---|          LDD    RW
Line S00036 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02809  M01S00036.ns2512  +++|          NJN    PEF6        IF I/O PREPROCESSING COMPLETE
02810  M01S00037.ns2512  +++|          LDD    RW
02811  M01S00038.ns2512  +++|          SHN    14-0
02812  M00S02511.1hy     +++|          NJN    PEF2        IF NOT *1MV* DEVICE VERIFICATION
02813  M00S02512.1hy     +++|
02814  M00S02513.1hy     +++|*         CHECK DISK ADDRESS AT BEGINNING OF MAINTENANCE CYLINDER.
02815  M00S02514.1hy     +++|
02816  M00S02515.1hy     +++|          LDD    NR+1        CHECK CURRENT CYLINDER
02817  M00S02516.1hy     +++| .CY      SET    MCLTDF-4000
02818  M00S02517.1hy     +++|          ERRNZ  MCLTDH-MCLTDF  CODE DEPENDS ON VALUE
02819  M00S02518.1hy     +++|          LMC    .CY/2
Line S02519 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02820  M01S02519.ns2512  ---|          NJN    PEF5        IF NOT MAINTENANCE CYLINDER
02821  M01S02520.ns2512  ---|          LDD    NR+2
02822  M01S02521.ns2512  ---|          NJN    PEF5        IF INITIATING DEVICE VERIFICATION
02823  M01S02522.ns2512  ---| PEF2     LDC    PEF3
Line S00039 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02824  M01S00039.ns2512  +++|          NJN    PEF6        IF NOT MAINTENANCE CYLINDER
02825  M01S00040.ns2512  +++|          LDD    NR+2
02826  M01S00041.ns2512  +++|          NJN    PEF6        IF DEVICE VERIFICATION IN PROGRESS
02827  M01S00042.ns2512  +++|          LDD    RF
Line S00043 Modification History
M01 (Added by) ns2512
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02828  M02S00043.271l716 ---|          SHN    0-13
Line S00070 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02829  M01S00070.271l716 +++|          LPN    DVRF
Line S00044 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02830  M01S00044.ns2512  +++|          ZJN    PEFX        IF NO VERIFICATION DIAGNOSTICS
02831  M01S00045.ns2512  +++|          LCN    PEF4-PEF3
02832  M01S00046.ns2512  +++| PEF2     ADC    PEF4
02833  M00S02523.1hy     +++|          UJP    PEFX        RETURN
02834  M00S02524.1hy     +++|
Line S02525 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02835  M01S02525.ns2512  ---| PEF3     LDM    PEFB,RW     SET I/O PREPROCESSOR ADDRESS
Line S00047 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02836  M01S00047.ns2512  +++| PEF3     LDN    DVDF        CLEAR DIAGNOSTICS REQUESTED FLAG
02837  M01S00048.ns2512  +++|          RJM    CPF
02838  M01S00049.ns2512  +++| PEF4     LDM    PEFB,RW     SET I/O PREPROCESSOR ADDRESS
02839  M00S02526.1hy     +++|          STD    PA
Line S02527 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02840  M01S02527.271l716 ---|          LDN    3           SELECT LEVEL 2 DIAGNOSTICS
Line S00071 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02841  M01S00071.271l716 +++|          LDN    2           SELECT VERIFICATION DIAGNOSTICS
02842  M00S02528.1hy     +++|          STD    RW
Line S02529 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02843  M01S02529.ns2769  ---|          STM    RWST        SAVE AS READ / WRITE STATUS
Line S00124 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02844  M01S00124.ns2769  +++|          STM    RWST,DI     SAVE AS READ / WRITE STATUS
Line S02530 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02845  M01S02530.ns2512  ---|          LDC    PEF4
Line S00050 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02846  M01S00050.ns2512  +++|          LDC    PEF5
02847  M00S02531.1hy     +++|          LJM    0,PA        EXIT TO PREPROCESSOR
02848  M00S02532.1hy     +++|
Line S02533 Modification History
M01 (Removed by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02849  M01S02533.ns2512  ---| PEF4     LDC    FWCA        CLEAR ATTENTION
Line S00051 Modification History
M01 (Added by) ns2512
Seq #  *Modification Id* Act 
----------------------------+
02850  M01S00051.ns2512  +++| PEF5     LDC    FWCA        CLEAR ATTENTION
02851  M00S02534.1hy     +++|          RJM    WFC
02852  M00S02535.1hy     +++|          LDD    CB          INITIATE I/O
Line S02536 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02853  M01S02536.ns2769  ---|          STM    IPPS
Line S00125 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02854  M01S00125.ns2769  +++|          STM    IPPS,DI
02855  M00S02537.1hy     +++|          RJM    IIO
02856  M00S02538.1hy     +++|          LJM    0,PA        EXIT TO PROCESSOR
02857  M00S02539.1hy     +++|
02858  M00S02540.1hy     +++|
02859  M00S02541.1hy     +++| PEFA     BSS    0           INITIAL ERROR COUNT
02860  M00S02542.1hy     +++|          CON    0
02861  M00S02543.1hy     +++|          CON    CSRC
02862  M00S02544.1hy     +++|
02863  M00S02545.1hy     +++| PEFB     BSS    0           I/O PREPROCESSOR
02864  M00S02546.1hy     +++|          CON    RND1
02865  M00S02547.1hy     +++|          CON    SRS1
02866  M00S02548.1hy     +++| RBD      SPACE  4,10
02867  M00S02549.1hy     +++|**        RBD - READ BUFFERED DISK.
02868  M00S02550.1hy     +++|*
02869  M00S02551.1hy     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
02870  M00S02552.1hy     +++|*
02871  M00S02553.1hy     +++|*         EXIT   (A) = *ETTC* IF TRANSFER COMPLETE TIMEOUT.
02872  M00S02554.1hy     +++|*
02873  M00S02555.1hy     +++|*         CALLS  COS, EIO, SFR, WTR.
02874  M00S02556.1hy     +++|
02875  M00S02557.1hy     +++|
02876  M00S02558.1hy     +++| RBD      SUBR               ENTRY/EXIT
02877  M00S02559.1hy     +++| RBD1     RJM    WTR         WRITE *T* REGISTER
02878  M00S02560.1hy     +++|          LDD    CB
02879  M00S02561.1hy     +++|          RJM    EIO         ENTER REQUEST IN I/O QUEUE
02880  M00S02562.1hy     +++|          RJM    SFR
02881  M00S02563.1hy     +++|          ZJN    RBDX        IF NO CONSECUTIVE REQUEST FOUND
02882  M00S02564.1hy     +++|          STD    CB
02883  M00S02565.1hy     +++|          LCN    1           CHECK OPERATIONAL STATUS
02884  M00S02566.1hy     +++|          RJM    COS
02885  M00S02567.1hy     +++|          ZJN    RBD1        IF TRANSFER COMPLETE
02886  M00S02568.1hy     +++|          LDN    ETTR
02887  M00S02569.1hy     +++|          UJN    RBDX        RETURN ERROR
02888  M00S02570.1hy     +++| RCR      SPACE  4,10
02889  M00S02571.1hy     +++|**        RCR - RESET CHANNEL REGISTERS.
02890  M00S02572.1hy     +++|*
02891  M00S02573.1hy     +++|*         EXIT   (SF) = 0 (DEVICE NOT SELECTED).
02892  M00S02574.1hy     +++|*
02893  M00S02575.1hy     +++|*         CALLS  FCN.
02894  M00S02576.1hy     +++|
02895  M00S02577.1hy     +++|
02896  M00S02578.1hy     +++| RCR      SUBR   HYD4        ENTRY/EXIT
02897  M00S02579.1hy     +++|          DCN    CH+40
02898  M00S02580.1hy     +++|          LDK    FCMC        MASTER CLEAR THE ADAPTOR
02899  M00S02581.1hy     +++|          RJM    FCN
02900  M00S02582.1hy     +++|          LDN    0           SET DEVICE NOT SELECTED
02901  M00S02583.1hy     +++|          STD    SF
02902  M00S02584.1hy     +++|          UJN    RCRX        RETURN
02903  M00S02585.1hy     +++| RCS      SPACE  4,10
02904  M00S02586.1hy     +++|**        RCS - REMOVE CHANNEL FROM SYSTEM USE.
02905  M00S02587.1hy     +++|*
02906  M00S02588.1hy     +++|*         ENTRY  (A) = EST ORDINAL IF CHANNEL IS TO BE DOWNED ON A
02907  M00S02589.1hy     +++|*                      PARTICULAR DEVICE.
02908  M00S02590.1hy     +++|*                    = 0 IF CHANNEL IS TO BE GLOBALLY DOWNED.
02909  M00S02591.1hy     +++|*
02910  M00S02592.1hy     +++|*         USES   CM - CM+4.
02911  M00S02593.1hy     +++|*
02912  M00S02594.1hy     +++|*         MACROS DELAY, EXECUTE, MONITOR.
02913  M00S02595.1hy     +++|
02914  M00S02596.1hy     +++|
02915  M00S02597.1hy     +++| RCS      SUBR               ENTRY/EXIT
02916  M00S02598.1hy     +++|          LMC    4000        SET DRIVER CALL FLAG, EST ORDINAL
02917  M00S02599.1hy     +++|          STM    RCSA+4
02918  M00S02600.1hy     +++|          LDD    MA          WRITE *1DS* CALL IN MESSAGE BUFFER
02919  M00S02601.1hy     +++|          CWM    RCSA,ON
02920  M00S02602.1hy     +++| RCS1     LDN    0           SET NON-PRIORITY REQUEST
02921  M00S02603.1hy     +++|          STD    CM+1
02922  M00S02604.1hy     +++|          EXECUTE  1DS,=
02923  M00S02605.1hy     +++|          MONITOR  RPPM
02924  M00S02606.1hy     +++|          LDD    CM+1
02925  M00S02607.1hy     +++|          NJN    RCSX        IF *1DS* STARTED
02926  M00S02608.1hy     +++|          DELAY
02927  M00S02609.1hy     +++|          UJN    RCS1        RETRY CALL
02928  M00S02610.1hy     +++|
02929  M00S02611.1hy     +++|
02930  M00S02612.1hy     +++| RCSA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000
02931  M00S02613.1hy     +++| RCT      SPACE  4,10
02932  M00S02614.1hy     +++|**        RCT - READ CHANNEL TABLE.
02933  M00S02615.1hy     +++|*
02934  M00S02616.1hy     +++|*         EXIT   (A) = CHANNEL TABLE STATUS BYTE.
02935  M00S02617.1hy     +++|*
02936  M00S02618.1hy     +++|*         USES   NR - NR+4.
02937  M00S02619.1hy     +++|*
02938  M00S02620.1hy     +++|*         MACROS CHTE.
02939  M00S02621.1hy     +++|
02940  M00S02622.1hy     +++|
02941  M00S02623.1hy     +++| RCT      SUBR               ENTRY/EXIT
02942  M00S02624.1hy     +++|          CHTE   *
02943  M00S02625.1hy     +++|          LDC    0           READ CHANNEL TABLE ENTRY
02944  M00S02626.1hy     +++|          CRD    NR
02945  M00S02627.1hy     +++| RCTA     LDD    NR+0
02946  M00S02628.1hy     +++|          UJN    RCTX        RETURN
02947  M00S02629.1hy     +++| RLB      SPACE  4,15
02948  M00S02630.1hy     +++|**        RLB - READ LINKAGE BITS.
02949  M00S02631.1hy     +++|*
02950  M00S02632.1hy     +++|*         ENTRY  (A) = (T6) = ADDRESS FOR LINKAGE IN (CM - CM+4).
02951  M00S02633.1hy     +++|*                (PB) = CONTROL BUFFER ORDINAL.
02952  M00S02634.1hy     +++|*                (T1) = DATA BUFFER ADDRESS.
02953  M00S02635.1hy     +++|*                (T2) = CONTROL BUFFER WORD NUMBER.
02954  M00S02636.1hy     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
02955  M00S02637.1hy     +++|*
02956  M00S02638.1hy     +++|*         EXIT   SECTOR LINKAGE SET IN *CBT* ENTRY.
02957  M00S02639.1hy     +++|*
02958  M00S02640.1hy     +++|*         USES   T6.
02959  M00S02641.1hy     +++|*
02960  M00S02642.1hy     +++|*         MACROS CBTE.
02961  M00S02643.1hy     +++|
02962  M00S02644.1hy     +++|
02963  M00S02645.1hy     +++| RLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
02964  M00S02646.1hy     +++|          RAD    T1
02965  M00S02647.1hy     +++|          LDIL   T1          EXTRACT LINKAGE FROM BUFFER
02966  M00S02648.1hy     +++| RLB2     SHN    -14
02967  M00S02649.1hy     +++|          SHN    10          POSITION FOR *CBT* ENTRY
02968  M00S02650.1hy     +++|          STI    T6
02969  M00S02651.1hy     +++|          LDML   4,T1        EXTRACT LINKAGE FROM BUFFER
02970  M00S02652.1hy     +++|          SHN    -14
02971  M00S02653.1hy     +++|          SHN    4           POSITION FOR *CBT* ENTRY
02972  M00S02654.1hy     +++|          RAI    T6
02973  M00S02655.1hy     +++|          LDML   10,T1       EXTRACT LINKAGE FROM BUFFER
02974  M00S02656.1hy     +++|          SHN    -14
02975  M00S02657.1hy     +++|*         SHN    0           POSITION FOR *CBT* ENTRY
02976  M00S02658.1hy     +++|          RAI    T6
02977  M00S02659.1hy     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
02978  M00S02660.1hy     +++|          LMN    CM+5
02979  M00S02661.1hy     +++|          NJN    RLB1        IF MORE LINKAGE
02980  M00S02662.1hy     +++|          LDD    PB
02981  M00S02663.1hy     +++|          SHN    CBTLS
02982  M00S02664.1hy     +++|          CBTE   *
02983  M00S02665.1hy     +++|          ADC    0           FWA OF *CBT*
02984  M00S02666.1hy     +++|          ADD    T2
02985  M00S02667.1hy     +++|          CWD    CM          UPDATE CONTROL BUFFER ENTRY
02986  M00S02668.1hy     +++|
02987  M00S02669.1hy     +++| RLB      SUBR               ENTRY/EXIT
02988  M00S02670.1hy     +++|*         LDD    T6
02989  M00S02671.1hy     +++|          UJN    RLB2        MOVE SECTOR LINKAGE
02990  M00S02672.1hy     +++| R1B      SPACE  4,10
02991  M00S02673.1hy     +++|**        R1B - READ ONE BYTE.
02992  M00S02674.1hy     +++|*
02993  M00S02675.1hy     +++|*         ENTRY  (A) = FUNCTION CODE.
02994  M00S02676.1hy     +++|*
02995  M00S02677.1hy     +++|*         EXIT   (A) = (CD) = CHANNEL DATA.
02996  M00S02678.1hy     +++|*
02997  M00S02679.1hy     +++|*         CALLS  CFE, FCN.
02998  M00S02680.1hy     +++|
02999  M00S02681.1hy     +++|
03000  M00S02682.1hy     +++| R1B      SUBR               ENTRY/EXIT
03001  M00S02683.1hy     +++|          RJM    FCN
03002  M00S02684.1hy     +++|          ACN    CH
03003  M00S02685.1hy     +++|          IAN    CH
03004  M00S02686.1hy     +++|          STDL   CD          SAVE INPUT
03005  M00S02687.1hy     +++|          LDN    0
03006  M00S02688.1hy     +++|          RJM    CFE         CHECK FOR ERROR
03007  M00S02689.1hy     +++|          LDDL   CD
03008  M00S02690.1hy     +++|          UJN    R1BX        RETURN
03009  M00S02691.1hy     +++| SAP      SPACE  4,10
03010  M00S02692.1hy     +++|**        SAP - SELECT ADAPTOR PORT.
03011  M00S02693.1hy     +++|*
03012  M00S02694.1hy     +++|*         CALLS  FCN, WTC.
03013  M00S02695.1hy     +++|
03014  M00S02696.1hy     +++|
03015  M00S02697.1hy     +++| SAP      SUBR               ENTRY/EXIT
03016  M00S02698.1hy     +++|          LDC    FCWC
03017  M00S02699.1hy     +++|          RJM    FCN         WRITE CONTROL REGISTER
03018  M00S02700.1hy     +++|          ACN    CH
Line S02701 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03019  M01S02701.ns2769  ---|          LDML   CREG        OUTPUT PORT SELECT
Line S00126 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03020  M01S00126.ns2769  +++|          LDML   CREG,DI     OUTPUT PORT SELECT
03021  M00S02702.1hy     +++|          OAN    CH
03022  M00S02703.1hy     +++|          LDN    0           WAIT - TRANSMISSION COMPLETE
03023  M00S02704.1hy     +++|          RJM    WTC
03024  M00S02705.1hy     +++|          UJN    SAPX        RETURN
03025  M00S02706.1hy     +++| SCD      SPACE  4,10
03026  M00S02707.1hy     +++|**        SCD - STORE *CPD* DATA.
03027  M00S02708.1hy     +++|*
03028  M00S02709.1hy     +++|*         ENTRY  (A) = 0 TO INDICATE CHANNEL INACTIVE.
03029  M00S02710.1hy     +++|*                    = 1 TO INDICATE CHANNEL ACTIVE.
03030  M00S02711.1hy     +++|*                (UC) = UNIT ACTIVITY COUNT.
03031  M00S02712.1hy     +++|*
03032  M00S02713.1hy     +++|*         USES   T7, CM - CM+4.
03033  M00S02714.1hy     +++|*
03034  M00S02715.1hy     +++|*         MACROS CCTE.
03035  M00S02716.1hy     +++|
03036  M00S02717.1hy     +++|
03037  M00S02718.1hy     +++| SCD      SUBR               ENTRY/EXIT
03038  M00S02719.1hy     +++|          STD    T7
03039  M00S02720.1hy     +++|          LDN    ZERL        CLEAR UNUSED BYTES
03040  M00S02721.1hy     +++|          CRD    CM
03041  M00S02722.1hy     +++|          LDD    UC          INSERT UNIT COUNT
03042  M00S02723.1hy     +++|          STD    CM
03043  M00S02724.1hy     +++|          CCTE   *
03044  M00S02725.1hy     +++|          LDC    CREQ        STORE *CPD* DATA
03045  M00S02726.1hy     +++|          CWD    T7
03046  M00S02727.1hy     +++|          UJN    SCDX        RETURN
03047  M00S02728.1hy     +++| SEC      SPACE  4,10
03048  M00S02729.1hy     +++|**        SEC - SET ERROR CODE.
03049  M00S02730.1hy     +++|*
03050  M00S02731.1hy     +++|*         ENTRY  (EO) = EST ORDINAL.
03051  M00S02732.1hy     +++|*
03052  M00S02733.1hy     +++|*         USES   T5, WB+3 - WB+4.
03053  M00S02734.1hy     +++|*
03054  M00S02735.1hy     +++|*         CALLS  IMR, RCR, RCS, SES.
03055  M00S02736.1hy     +++|
03056  M00S02737.1hy     +++|
03057  M00S02738.1hy     +++| SEC1     LDN    1           *CBT* COUNT TO BE DELINKED
03058  M00S02739.1hy     +++|          STD    WB+3
03059  M00S02740.1hy     +++|          SHN    13-0        SET INTERLOCK RELEASED (FOR *CMP*)
Line S02741 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03060  M01S02741.ns2769  ---|          STM    RQIN
Line S00127 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03061  M01S00127.ns2769  +++|          STM    RQIN,DI
03062  M00S02742.1hy     +++|          LDM    FALT
03063  M00S02743.1hy     +++|          SHN    -2          CREATE INDEX FROM FAULT CODE
03064  M00S02744.1hy     +++|          STD    T5
03065  M00S02745.1hy     +++|          LDM    TMSE,T5     SET MASS STORAGE ERROR CODE
03066  M00S02746.1hy     +++|          STD    WB+4
03067  M00S02747.1hy     +++|          LDN    SETS        INSERT CODE IN *CBT*
03068  M00S02748.1hy     +++|          RJM    IMR
03069  M00S02749.1hy     +++|          SOD    UC          DECREMENT UNIT ACTIVITY COUNT
03070  M00S02750.1hy     +++|
03071  M00S02751.1hy     +++| SEC      SUBR               ENTRY/EXIT
03072  M00S02752.1hy     +++|          RJM    RCR         RESET CHANNEL REGISTERS
03073  M00S02753.1hy     +++|          LDD    EO
03074  M00S02754.1hy     +++|          STD    T5          EST ORDINAL FOR *SES*
03075  M00S02755.1hy     +++|          LDN    STDE
03076  M00S02756.1hy     +++|          RJM    SES         SET ERROR STATUS IN MST
Line S02757 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03077  M01S02757.ns2769  ---|          LDM    SREQ
Line S00128 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03078  M01S00128.ns2769  +++|          LDM    SREQ,DI
03079  M00S02758.1hy     +++|          ZJN    SEC1        IF I/O PROCESSING
03080  M00S02759.1hy     +++|          LDD    EO          DOWN CHANNEL ON THIS DEVICE
03081  M00S02760.1hy     +++|          RJM    RCS
03082  M00S02761.1hy     +++|          LJM    CMP1        COMPLETE PROCESSING
03083  M00S02762.1hy     +++| SFR      SPACE  4,15
03084  M00S02763.1hy     +++|**        SFR - SEARCH FOR CONSECUTIVE REQUEST.
03085  M00S02764.1hy     +++|*
03086  M00S02765.1hy     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
03087  M00S02766.1hy     +++|*                (DT) = DEVICE TYPE.
03088  M00S02767.1hy     +++|*
03089  M00S02768.1hy     +++|*         EXIT   (A) = 0 IF NO CONSECUTIVE REQUEST FOUND.
03090  M00S02769.1hy     +++|*                    = (NB) = *CBT* ORDINAL OF NEXT REQUEST.
03091  M00S02770.1hy     +++|*                (NR - NR+4) = PHYSICAL ADDRESS OF NEXT REQUEST.
03092  M00S02771.1hy     +++|*
03093  M00S02772.1hy     +++|*         USES   CM - CM+4, T1 - T6.
03094  M00S02773.1hy     +++|*
03095  M00S02774.1hy     +++|*         MACROS CBTE.
03096  M00S02775.1hy     +++|
03097  M00S02776.1hy     +++|
03098  M00S02777.1hy     +++| SFR      SUBR               ENTRY/EXIT
03099  M00S02778.1hy     +++|          LDD    CB
03100  M00S02779.1hy     +++|          SHN    CBTLS       FETCH SEEK PARAMETERS FROM *CBT*
03101  M00S02780.1hy     +++|          CBTE   *
03102  M00S02781.1hy     +++|          ADC    PAD1
03103  M00S02782.1hy     +++|          CRD    CM
03104  M00S02783.1hy     +++|          ADN    IOLK-PAD1   (T1) = I/O LINK-UP FLAGS
03105  M00S02784.1hy     +++|          CRD    T1
03106  M00S02785.1hy     +++|          LDD    T1          CHECK STREAMING ENABLED
03107  M00S02786.1hy     +++|          LPN    40
03108  M00S02787.1hy     +++|          NJN    SFR1        IF DATA STREAMING DISABLED
03109  M00S02788.1hy     +++|          LDD    T1+2
03110  M00S02789.1hy     +++|          ZJN    SFRX        IF NO REQUEST AVAILABLE
03111  M00S02790.1hy     +++|          STD    NB
03112  M00S02791.1hy     +++|          SHN    CBTLS
03113  M00S02792.1hy     +++|          CBTE   *
03114  M00S02793.1hy     +++|          ADC    PAD1        PHYSICAL ADDRESS OF NEXT REQUEST
03115  M00S02794.1hy     +++|          CRD    NR
03116  M00S02795.1hy     +++|          ADN    IOLK-PAD1   I/O LINK-UP WORD OF NEXT REQUEST
03117  M00S02796.1hy     +++|          CRD    T2
03118  M00S02797.1hy     +++|          LDD    T2          COMPARE LINK-UP FLAGS
03119  M00S02798.1hy     +++|          LMD    T1
03120  M00S02799.1hy     +++|          LPC    DRFM+ILFM
03121  M00S02800.1hy     +++|          ZJN    SFR3        IF SAME DIRECTION AND INTERLOCKED
03122  M00S02801.1hy     +++| SFR1     LDN    0
03123  M00S02802.1hy     +++|          STD    NB
03124  M00S02803.1hy     +++| SFR2     UJN    SFRX        RETURN
03125  M00S02804.1hy     +++|
03126  M00S02805.1hy     +++| SFR3     LDD    NR+1        CHECK SEEK PARAMETERS
03127  M00S02806.1hy     +++|          SBD    CM+1
03128  M00S02807.1hy     +++|          ZJN    SFR4        IF SAME CYLINDER
03129  M00S02808.1hy     +++|          SBN    1
03130  M00S02809.1hy     +++|          NJN    SFR1        IF NOT NEXT CYLINDER
03131  M00S02810.1hy     +++|          LDD    NR+2
03132  M00S02811.1hy     +++|          NJN    SFR1        IF NOT CONSECUTIVE CYLINDER REQUEST
03133  M00S02812.1hy     +++|          SBK    PTCYDF*100
03134  M00S02813.1hy     +++|          UJN    SFR5        CHECK NEXT TRACK / SECTOR
03135  M00S02814.1hy     +++|
03136  M00S02815.1hy     +++|          ERRNZ  PTCYDH-PTCYDF  CODE DEPENDS ON VALUE
03137  M00S02816.1hy     +++|
03138  M00S02817.1hy     +++| SFR4     LDD    CM+2        CHECK NEXT SECTOR
03139  M00S02818.1hy     +++|          ADM    SFRA,DT
03140  M00S02819.1hy     +++|          LMD    NR+2
03141  M00S02820.1hy     +++|          ZJN    SFR6        IF NEXT SECTOR ON SAME TRACK
03142  M00S02821.1hy     +++|          LDN    0
03143  M00S02822.1hy     +++| SFR5     ADD    CM+2        SET NEXT TRACK
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1hy.001.txt ยท Last modified: (external edit)