User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1xy.001

Deck 1XY Part 001

32 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01551  M00S01261.1xy     +++|          VFD    18/         OPERATIONAL STATUS REGISTER
01552  M00S01262.1xy     +++|          VFD    18/         ADAPTER CONTROL REGISTER
01553  M00S01263.1xy     +++|          VFD    18/         ERROR STATUS REGISTER
01554  M00S01264.1xy     +++|
01555  M00S01265.1xy     +++|*         DRIVER TRACE DATA.
01556  M00S01266.1xy     +++|
01557  M00S01267.1xy     +++| BMLTD    VFD    12/0        LAST CALL TO *ERR*
01558  M00S01268.1xy     +++|          VFD    12/0        LAST CALL TO *FNC*
01559  M00S01269.1xy     +++|          VFD    12/0        LAST CALL TO *FNN*
01560  M00S01270.1xy     +++|          VFD    24/0
01561  M00S01271.1xy     +++| BMS1L    EQU    *-BML       LENGTH OF MESSAGE (PP WORDS)
01562  M00S01272.1xy     +++| .A       SET    BMS1L+4
01563  M00S01273.1xy     +++| BMS1LC   EQU    .A/5        LENGTH OF MESSAGE (CM WORDS)
Line S01274 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01564  M01S01274.ns2769  ---| IEC      SPACE  4,15
01565  M01S01275.ns2769  ---|**        IEC - INCREMENT ERROR COUNTER.
01566  M01S01276.ns2769  ---|*
01567  M01S01277.ns2769  ---|*         THIS ROUTINE INCREMENTS THE RECOVERED/UNRECOVERED ERROR
01568  M01S01278.ns2769  ---|*         COUNTER IN THE MST CORRESPONDING TO THIS UNIT.
01569  M01S01279.ns2769  ---|*
01570  M01S01280.ns2769  ---|*         ENTRY  (RS) = RECOVERY STATUS.
01571  M01S01281.ns2769  ---|*                       0    RECOVERED BY CONTROLLER.
01572  M01S01282.ns2769  ---|*                       1    RECOVERED BY DRIVER.
01573  M01S01283.ns2769  ---|*                       2    UNRESOLVED.
01574  M01S01284.ns2769  ---|*                       3    UNRECOVERED.
01575  M01S01285.ns2769  ---|*                (T5) = EST ORDINAL.
01576  M01S01286.ns2769  ---|*
01577  M01S01287.ns2769  ---|*         EXIT   (A) = 0.
01578  M01S01288.ns2769  ---|*
01579  M01S01289.ns2769  ---|*         USES   CM+1 - CM+3.
01580  M01S01290.ns2769  ---|*
01581  M01S01291.ns2769  ---|*         MACROS MONITOR.
01582  M01S01292.ns2769  ---|
01583  M01S01293.ns2769  ---|
01584  M01S01294.ns2769  ---| IEC      SUBR               ENTRY/EXIT
01585  M01S01295.ns2769  ---|          LDD    T5          SET EST ORDINAL
01586  M01S01296.ns2769  ---|          STD    CM+1
01587  M01S01297.ns2769  ---|          LDD    RS          SET BYTE NUMBER
01588  M01S01298.ns2769  ---|          SHN    -1
01589  M01S01299.ns2769  ---|          ADN    3
01590  M01S01300.ns2769  ---|          STD    CM+2
01591  M01S01301.ns2769  ---|          LDK    ICTS        SET SUBFUNCTION
01592  M01S01302.ns2769  ---|          STD    CM+3
Line S01303 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01593  M02S01303.ns2769  ---|          MONITOR  STBM
Line S00003 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01594  M02S00003.ns2769  ---|          MONITOR  SMDM
Line S01304 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01595  M01S01304.ns2769  ---|          UJN    IECX        RETURN
01596  M00S01305.1xy     +++| IFI      SPACE  4,30
01597  M00S01306.1xy     +++|**        IFI - INITIALIZE FOR I/O.
01598  M00S01307.1xy     +++|*
01599  M00S01308.1xy     +++|*         THIS ROUTINE IS CALLED BY THE READ AND WRITE PROCESSORS TO
01600  M00S01309.1xy     +++|*         PREPARE FOR THE READ OR WRITE OPERATION.
01601  M00S01310.1xy     +++|*
01602  M00S01311.1xy     +++|*         ENTRY  (CB) = BUFFER ORDINAL.
01603  M00S01312.1xy     +++|*                (FU - FU+1) = FIRST WORD ADDRESS OF UEM.
01604  M00S01313.1xy     +++|*                (RW) = READ/WRITE FLAG.
01605  M00S01314.1xy     +++|*
01606  M00S01315.1xy     +++|*         EXIT   (UA - UA+1) = UEM ADDRESS.
01607  M00S01316.1xy     +++|*
01608  M00S01317.1xy     +++|*         USES   CM - CM+4, UA - UA+1.
01609  M00S01318.1xy     +++|*
01610  M00S01319.1xy     +++|*         MACROS CCBA.
01611  M00S01320.1xy     +++|
01612  M00S01321.1xy     +++|
01613  M00S01322.1xy     +++| IFI      SUBR               ENTRY/EXIT
01614  M00S01323.1xy     +++|
01615  M00S01324.1xy     +++|*         SET UEM ADDRESS.
01616  M00S01325.1xy     +++|
01617  M00S01326.1xy     +++|          CCBA   IOLK
01618  M00S01327.1xy     +++|          CRD    CM
01619  M00S01328.1xy     +++|          LDD    CM+4
01620  M00S01329.1xy     +++|          ADD    FU+1
01621  M00S01330.1xy     +++|          SHN    -6
01622  M00S01331.1xy     +++|          STD    UA+1
01623  M00S01332.1xy     +++|          LDD    CM+3
01624  M00S01333.1xy     +++|          ADD    FU
01625  M00S01334.1xy     +++|          SHN    6
01626  M00S01335.1xy     +++|          RAD    UA+1
01627  M00S01336.1xy     +++|          SHN    -14
01628  M00S01337.1xy     +++|          STD    UA
01629  M00S01338.1xy     +++|          UJP    IFIX        RETURN
01630  M00S01339.1xy     +++| IIC      SPACE  4,10
01631  M00S01340.1xy     +++|**        IIC - ISSUE I/O COMPLETION REQUEST.
01632  M00S01341.1xy     +++|*
01633  M00S01342.1xy     +++|*         ENTRY  (CC) = COMPLETION COUNT.
01634  M00S01343.1xy     +++|*                (PB) = PREVIOUS BUFFER ORDINAL, IF ANY.
01635  M00S01344.1xy     +++|*
01636  M00S01345.1xy     +++|*         EXIT   (PB) = 0.
01637  M00S01346.1xy     +++|*
01638  M00S01347.1xy     +++|*         USES   CC, PB, S1.
01639  M00S01348.1xy     +++|*
01640  M00S01349.1xy     +++|*         CALLS  CRQ.
01641  M00S01350.1xy     +++|
01642  M00S01351.1xy     +++|
01643  M00S01352.1xy     +++| IIC      SUBR               ENTRY/EXIT
01644  M00S01353.1xy     +++|          LDD    PB
01645  M00S01354.1xy     +++|          ZJN    IIC1        IF NO PREVIOUS BUFFER ORDINAL
01646  M00S01355.1xy     +++|          AOD    CC          INCREMENT COMPLETION COUNT
01647  M00S01356.1xy     +++|          LDN    0           CLEAR PREVIOUS BUFFER ORDINAL
01648  M00S01357.1xy     +++|          STD    PB
01649  M00S01358.1xy     +++| IIC1     LDD    CC
01650  M00S01359.1xy     +++|          SHN    **
01651  M00S01360.1xy     +++| IICA     EQU    *-1
01652  M00S01361.1xy     +++|          ZJN    IICX        IF NOT AT THRESHOLD
01653  M00S01362.1xy     +++|          LDK    MMXN        SET EXCHANGE RETRY LIMIT
01654  M00S01363.1xy     +++|          STD    S1
01655  M00S01364.1xy     +++| IIC2     RJM    CRQ         ISSUE COMPLETION REQUEST
01656  M00S01365.1xy     +++|          ZJN    IICX        IF NO PENDING REQUEST
01657  M00S01366.1xy     +++|          SOD    S1
01658  M00S01367.1xy     +++|          PJN    IIC2        IF NOT AT EXCHANGE RETRY LIMIT
01659  M00S01368.1xy     +++|          UJN    IICX        RETURN
01660  M00S01369.1xy     +++|
01661  M00S01370.1xy     +++|
01662  M00S01371.1xy     +++| IICB     BSS    0
01663  M00S01372.1xy     +++|          CON    SHNI+77-0
01664  M00S01373.1xy     +++|          CON    SHNI+77-1
01665  M00S01374.1xy     +++| IMF      SPACE  4,10
01666  M00S01375.1xy     +++|**        IMF - ISSUE MONITOR FUNCTION.
01667  M00S01376.1xy     +++|*
01668  M00S01377.1xy     +++|*         ENTRY  (A) = MONITOR FUNCTION CODE.
01669  M00S01378.1xy     +++|*
01670  M00S01379.1xy     +++|*         EXIT   (A) = 0.
01671  M00S01380.1xy     +++|*                (CM - CM+4) = COMPLETED PP OUTPUT REGISTER IMAGE.
01672  M00S01381.1xy     +++|*
01673  M00S01382.1xy     +++|*         USES   S1.
01674  M00S01383.1xy     +++|*
01675  M00S01384.1xy     +++|*         CALLS  CRQ, FTN.
01676  M00S01385.1xy     +++|
01677  M00S01386.1xy     +++|
01678  M00S01387.1xy     +++| IMF      SUBR               ENTRY/EXIT
01679  M00S01388.1xy     +++|          STD    S1          SAVE MONITOR FUNCTION CODE
01680  M00S01389.1xy     +++| IMF1     RJM    CRQ         CHECK FOR FUNCTION REISSUE REQUIRED
01681  M00S01390.1xy     +++|          NJN    IMF1        IF PREVIOUS FUNCTION NOT YET COMPLETE
01682  M00S01391.1xy     +++|          LDD    S1
01683  M00S01392.1xy     +++|          RJM    FTN         ISSUE MONITOR FUNCTION
01684  M00S01393.1xy     +++|          UJN    IMFX        RETURN
Line S01394 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01685  M01S01394.ns2769  ---| IMS      SPACE  4,20
01686  M01S01395.ns2769  ---|**        IMS - ISSUE MESSAGE BLOCK TO *EMB*.
01687  M01S01396.ns2769  ---|*
01688  M01S01397.ns2769  ---|*         THIS ROUTINE PLACES A MESSAGE BLOCK IN THE *EMB* AND CALLS
01689  M01S01398.ns2769  ---|*         *1MD* (IF NOT ALREADY ACTIVE) TO ISSUE EACH MESSAGE IN THE
01690  M01S01399.ns2769  ---|*         BLOCK TO THE APPROPRIATE DAYFILE.
01691  M01S01400.ns2769  ---|*
01692  M01S01401.ns2769  ---|*         ENTRY  (A) = 6/ LN, 12/ AD
01693  M01S01402.ns2769  ---|*                      LN    MESSAGE BLOCK LENGTH IN CM WORDS,
01694  M01S01403.ns2769  ---|*                            INCLUDING HEADER.
01695  M01S01404.ns2769  ---|*                      AD    ADDRESS OF MESSAGE BLOCK.
01696  M01S01405.ns2769  ---|*
01697  M01S01406.ns2769  ---|*         USES   S2, T6, CM - CM+4, SR - SR+4.
01698  M01S01407.ns2769  ---|*
01699  M01S01408.ns2769  ---|*         CALLS  CMD.
01700  M01S01409.ns2769  ---|*
01701  M01S01410.ns2769  ---|*         MACROS MONITOR.
01702  M01S01411.ns2769  ---|
01703  M01S01412.ns2769  ---|
01704  M01S01413.ns2769  ---| IMS7     AOM    IMSG        SET DATA LOST FLAG
01705  M01S01414.ns2769  ---|
01706  M01S01415.ns2769  ---| IMS      SUBR               ENTRY/EXIT
01707  M01S01416.ns2769  ---|          STM    IMSE        SAVE MESSAGE ADDRESS
01708  M01S01417.ns2769  ---|          SHN    -14         SAVE MESSAGE LENGTH
01709  M01S01418.ns2769  ---|          STD    S2
01710  M01S01419.ns2769  ---|          LDN    0           CLEAR *EMB* FLUSH RETRY COUNT
01711  M01S01420.ns2769  ---|          STD    T6
01712  M01S01421.ns2769  ---| IMS1     STD    CM+1        SET UP *UTEM* REQUEST
01713  M01S01422.ns2769  ---|          STD    CM+2
01714  M01S01423.ns2769  ---|          LDC    **
01715  M01S01424.ns2769  ---| IMSA     EQU    *-1         (FWA OF *EMB*)
01716  M01S01425.ns2769  ---|          STD    CM+4
01717  M01S01426.ns2769  ---|          SHN    -14
01718  M01S01427.ns2769  ---|          STD    CM+3
01719  M01S01428.ns2769  ---|          MONITOR  UTEM
01720  M01S01429.ns2769  ---|          LDD    CM+1
01721  M01S01430.ns2769  ---|          ZJN    IMS3        IF INTERLOCK SUCCESSFUL
01722  M01S01431.ns2769  ---| IMS2     ADN    1
01723  M01S01432.ns2769  ---|          PJN    *-1         IF DELAY NOT COMPLETE
01724  M01S01433.ns2769  ---|          AOD    T6          INCREMENT *EMB* FLUSH RETRY COUNT
01725  M01S01434.ns2769  ---|          LMN    BFRL
01726  M01S01435.ns2769  ---|          ZJN    IMS7        IF RETRY LIMIT REACHED
01727  M01S01436.ns2769  ---|          LDN    0
01728  M01S01437.ns2769  ---|          UJN    IMS1        TRY AGAIN
01729  M01S01438.ns2769  ---|
01730  M01S01439.ns2769  ---| IMS3     LDC    **
01731  M01S01440.ns2769  ---| IMSB     EQU    *-1         (FWA OF *EMB*)
01732  M01S01441.ns2769  ---|          CRD    SR
01733  M01S01442.ns2769  ---|          SOD    SR+4        CLEAR INTERLOCK
01734  M01S01443.ns2769  ---|          LDD    S2
01735  M01S01444.ns2769  ---|          ADD    SR+3
01736  M01S01445.ns2769  ---|          SBK    EMBLL
01737  M01S01446.ns2769  ---|          MJN    IMS5        IF ENOUGH ROOM IN BUFFER
01738  M01S01447.ns2769  ---|          AOD    T6          INCREMENT *EMB* FLUSH RETRY COUNT
01739  M01S01448.ns2769  ---|          LMK    BFRL
01740  M01S01449.ns2769  ---|          ZJN    IMS4        IF *EMB* FLUSH RETRY LIMIT REACHED
01741  M01S01450.ns2769  ---|          RJM    CMD         CALL *1MD*
01742  M01S01451.ns2769  ---|          ZJN    IMS4        IF UNABLE TO CALL *1MD*
01743  M01S01452.ns2769  ---|          LDC    **          CLEAR *EMB* INTERLOCK
01744  M01S01453.ns2769  ---| IMSC     EQU    *-1         (FWA OF *EMB*)
01745  M01S01454.ns2769  ---|          CWD    SR
01746  M01S01455.ns2769  ---|          UJP    IMS2        RETRY
01747  M01S01456.ns2769  ---|
01748  M01S01457.ns2769  ---| IMS4     AOM    IMSG        SET DATA LOST FLAG
01749  M01S01458.ns2769  ---|          UJN    IMS6        FINISH AND RETURN
01750  M01S01459.ns2769  ---|
01751  M01S01460.ns2769  ---| IMS5     LDC    **
01752  M01S01461.ns2769  ---| IMSD     EQU    *-1         (FWA OF *EMB*)
01753  M01S01462.ns2769  ---|          ADN    1           SKIP HEADER
01754  M01S01463.ns2769  ---|          ADD    SR+3        ADD WORD COUNT
01755  M01S01464.ns2769  ---|          CWM    **,S2       WRITE MESSAGE TO BUFFER
01756  M01S01465.ns2769  ---| IMSE     EQU    *-1         (MESSAGE ADDRESS)
01757  M01S01466.ns2769  ---|          LDD    S2          UPDATE WORD COUNT
01758  M01S01467.ns2769  ---|          RAD    SR+3
01759  M01S01468.ns2769  ---|          RJM    CMD         CALL *1MD*
01760  M01S01469.ns2769  ---| IMS6     LDC    **
01761  M01S01470.ns2769  ---| IMSG     EQU    *-1
01762  M01S01471.ns2769  ---|          RAD    SR+1
01763  M01S01472.ns2769  ---|          LDC    **          UPDATE *EMB* HEADER
01764  M01S01473.ns2769  ---| IMSF     EQU    *-1         (FWA OF *EMB*)
01765  M01S01474.ns2769  ---|          CWD    SR
01766  M01S01475.ns2769  ---|          LDN    0           CLEAR DATA LOST FLAG
01767  M01S01476.ns2769  ---|          STM    IMSG
01768  M01S01477.ns2769  ---|          LJM    IMSX        RETURN
01769  M00S01478.1xy     +++| ISF      SPACE  4,25
01770  M00S01479.1xy     +++|**        ISF - ISSUE SEEK OPERATION.
01771  M00S01480.1xy     +++|*
01772  M00S01481.1xy     +++|*         THIS ROUTINE ISSUES THE SEEK FUNCTION.
01773  M00S01482.1xy     +++|*
01774  M00S01483.1xy     +++|*         ENTRY  (CB) = BUFFER ORDINAL.
01775  M00S01484.1xy     +++|*                (CS) = CHANNEL RESERVATION STATUS.
01776  M00S01485.1xy     +++|*
01777  M00S01486.1xy     +++|*         EXIT   (A) .EQ. 0 IF UNIT ON-CYLINDER.
01778  M00S01487.1xy     +++|*                    .NE. 0 IF DRIVE RESERVED TO OTHER CONTROLLER, OR
01779  M00S01488.1xy     +++|*                           POSITIONER BUSY.
01780  M00S01489.1xy     +++|*                (CS) = BIT 3 SET IF CONTROLLER HARDWARE RESERVE IS
01781  M00S01490.1xy     +++|*                         HELD.  BIT 3 IS CLEAR IF *OPERATION COMPLETE*
01782  M00S01491.1xy     +++|*                         FUNCTION WAS ISSUED.
01783  M00S01492.1xy     +++|*                (CA - CA+2) = PHYSICAL ADDRESS OF SECTOR.
01784  M00S01493.1xy     +++|*                TO *ERR* IF ERROR.
01785  M00S01494.1xy     +++|*
01786  M00S01495.1xy     +++|*         USES   CS, EC, CA - CA+4.
01787  M00S01496.1xy     +++|*
01788  M00S01497.1xy     +++|*         CALLS  ERR, FNC, GGS, RHR.
01789  M00S01498.1xy     +++|*
01790  M00S01499.1xy     +++|*         MACROS CCBA.
01791  M00S01500.1xy     +++|
01792  M00S01501.1xy     +++|
01793  M00S01502.1xy     +++| ISF      SUBR               ENTRY/EXIT
01794  M00S01503.1xy     +++|          CCBA   PAD1        GET PHYSICAL ADDRESS FROM CBT ENTRY
01795  M00S01504.1xy     +++|          CRD    CA
01796  M00S01505.1xy     +++|          LDD    CA+2        SET HEAD NUMBER
01797  M00S01506.1xy     +++|          SHN    14
01798  M00S01507.1xy     +++|          LMD    TH          SET SECTOR SIZE FIELD
01799  M00S01508.1xy     +++|          ERRNZ  SSIZ-1000   CODE DEPENDS ON VALUE
01800  M00S01509.1xy     +++|          STD    CA+2
01801  M00S01510.1xy     +++|          SHN    -14         SET SECTOR NUMBER
01802  M00S01511.1xy     +++|          STD    CA+3
01803  M00S01512.1xy     +++|          LDN    FCSK        ISSUE SEEK FUNCTION
01804  M00S01513.1xy     +++|          RJM    FNC
01805  M00S01514.1xy     +++|          MJN    ISF3        IF FUNCTION TIMEOUT
01806  M00S01515.1xy     +++|          LDN    FCSKL       OUTPUT SEEK PARAMETERS
01807  M00S01516.1xy     +++|          OAM    CA,CH
01808  M00S01517.1xy     +++|          ZJN    ISF1        IF ALL DATA WAS TAKEN
01809  M00S01518.1xy     +++|          LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01810  M00S01519.1xy     +++|          UJN    ISF2        PROCESS ERROR
01811  M00S01520.1xy     +++|
01812  M00S01521.1xy     +++| ISF1     EJM    ISF4,CH     IF LAST BYTE TRANSFERRED
01813  M00S01522.1xy     +++|          SBN    1
01814  M00S01523.1xy     +++|          NJN    ISF1        IF NOT TIMEOUT
01815  M00S01524.1xy     +++|          LCN    CHFE        SET *CHANNEL FAILURE* ERROR CODE
01816  M00S01525.1xy     +++| ISF2     STD    EC
01817  M00S01526.1xy     +++| ISF3     RJM    ERR         PROCESS ERROR
01818  M00S01527.1xy     +++|
01819  M00S01528.1xy     +++| ISF4     DCN    CH+40
01820  M00S01529.1xy     +++|          RJM    GGS         GET GENERAL STATUS
01821  M00S01530.1xy     +++|          MJN    ISF3        IF STATUS WAS NOT OBTAINED
01822  M00S01531.1xy     +++|          ZJN    ISF5        IF NO ERROR AND ON-CYLINDER
Line S01532 Modification History
M01 (Removed by) ns2561
Seq #  *Modification Id* Act 
----------------------------+
01823  M01S01532.ns2561  ---|          SHN    21-3
Line S00001 Modification History
M01 (Added by) ns2561
Seq #  *Modification Id* Act 
----------------------------+
01824  M01S00001.ns2561  +++|          SHN    21-13
01825  M01S00002.ns2561  +++|          MJN    ISF3        IF ABNORMAL TERMINATION
01826  M01S00003.ns2561  +++|          SHN    21-3-21+13
01827  M00S01533.1xy     +++|          MJN    ISF6        IF DRIVE RESERVED TO OPPOSITE ACCESS
01828  M00S01534.1xy     +++| ISF5     LDD    CS          SET HARDWARE RESERVE FLAG
01829  M00S01535.1xy     +++|          SCN    10
01830  M00S01536.1xy     +++|          LMN    10
01831  M00S01537.1xy     +++|          STD    CS
01832  M00S01538.1xy     +++|          LDD    GS
01833  M00S01539.1xy     +++|          ZJN    ISF6        IF ON-CYLINDER
01834  M00S01540.1xy     +++|          SHN    21-1
01835  M00S01541.1xy     +++|          PJN    ISF3        IF NOT BUSY STATUS
01836  M00S01542.1xy     +++|          RJM    RHR         RELEASE HARDWARE RESERVES
01837  M00S01543.1xy     +++|          NJN    ISF3        IF ERROR
01838  M00S01544.1xy     +++|          LDN    1           SET EXIT STATUS
01839  M00S01545.1xy     +++| ISF6     LJM    ISFX        RETURN
Line S00034 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01840  M01S00034.ns2732  +++| MCA      SPACE  4,10
01841  M01S00035.ns2732  +++|**        MCA - MASTER CLEAR ADAPTER.
01842  M01S00036.ns2732  +++|*
01843  M01S00037.ns2732  +++|*         EXIT   (A) .EQ. 0, IF MASTER CLEAR SUCCESSFUL.
01844  M01S00038.ns2732  +++|*                    .LT. 0, IF MASTER CLEAR FAILED.
01845  M01S00039.ns2732  +++|*
01846  M01S00040.ns2732  +++|*         USES   T1.
01847  M01S00041.ns2732  +++|*
01848  M01S00042.ns2732  +++|*         CALLS  FNC, FNN, GGS.
01849  M01S00043.ns2732  +++|*
01850  M01S00044.ns2732  +++|*         MACROS DELAY.
01851  M01S00045.ns2732  +++|
01852  M01S00046.ns2732  +++|
01853  M01S00047.ns2732  +++| MCA      SUBR               ENTRY/EXIT
01854  M01S00048.ns2732  +++|          LDN    1
01855  M01S00049.ns2732  +++|          STD    T1
01856  M01S00050.ns2732  +++|          DCN    CH+40       INSURE CHANNEL IN CORRECT STATE
01857  M01S00051.ns2732  +++| MCA1     LDC    FCMC        MASTER CLEAR THE CHANNEL ADAPTER
01858  M01S00052.ns2732  +++|          RJM    FNN
01859  M01S00053.ns2732  +++|          MJN    MCA3        IF ERROR ON CHANNEL ACCESS
01860  M01S00054.ns2732  +++|          LDC    FCWC        WRITE ADAPTER CONTROL REGISTER
01861  M01S00055.ns2732  +++|          RJM    FNC
01862  M01S00056.ns2732  +++|          MJN    MCA3        IF ERROR ON CHANNEL ACCESS
01863  M01S00057.ns2732  +++|          LDC    20400       60 BIT CM WORD ACCESS AND NO ERROR CLEAR
01864  M01S00058.ns2732  +++|          OAN    CH
01865  M01S00059.ns2732  +++| MCA2     SBN    2
01866  M01S00060.ns2732  +++|          MJN    MCA3        IF TIMEOUT ON CONTROL REGISTER WRITE
01867  M01S00061.ns2732  +++|          FJM    MCA2,CH     IF DATA NOT ACCEPTED
01868  M01S00062.ns2732  +++|          DCN    CH+40
01869  M01S00063.ns2732  +++|          DELAY
01870  M01S00064.ns2732  +++|          RJM    GGS         GET GENERAL STATUS
01871  M01S00065.ns2732  +++|          ZJN    MCAX        IF STATUS OK
01872  M01S00066.ns2732  +++|          SOD    T1
01873  M01S00067.ns2732  +++|          PJN    MCA1        IF NEED TO TRY AGAIN
01874  M01S00068.ns2732  +++| MCA3     DCN    CH+40
01875  M01S00069.ns2732  +++|          UJP    MCAX        RETURN WITH ERROR INDICATION
01876  M00S01546.1xy     +++| OVI      SPACE  4,25
01877  M00S01547.1xy     +++|**        OVI - OBTAIN AND VERIFY *PUT* INTERLOCK.
01878  M00S01548.1xy     +++|*
01879  M00S01549.1xy     +++|*         THIS ROUTINE ATTEMPTS TO OBTAIN THE *PUT* INTERLOCK AND IF
01880  M00S01550.1xy     +++|*         SUCCESSFUL, VERIFIES THAT THE BUFFER FOR WHICH THE SEEK WAS
01881  M00S01551.1xy     +++|*         ISSUED IS STILL CURRENT IN THE QUEUE.
01882  M00S01552.1xy     +++|*
01883  M00S01553.1xy     +++|*         ENTRY  (CA+1 - CA+3) = ADDRESS USED FOR SEEK.
01884  M00S01554.1xy     +++|*                (CB) = BUFFER ORDINAL.
01885  M00S01555.1xy     +++|*                (ER) = RECOVERY IN PROGRESS FLAG.
01886  M00S01556.1xy     +++|*                (IL) = NONZERO IF THE *PUT* INTERLOCK IS ALREADY HELD.
01887  M00S01557.1xy     +++|*                (PO) = *PUT* ORDINAL.
01888  M00S01558.1xy     +++|*                (PR) = SPECIAL *PUT* REQUEST PROCESSING FLAG.
01889  M00S01559.1xy     +++|*
01890  M00S01560.1xy     +++|*         EXIT   (A) = 0 IF *PUT* ENTRY IS INTERLOCKED AND BUFFER IS
01891  M00S01561.1xy     +++|*                        STILL CURRENT IN QUEUE.
01892  M00S01562.1xy     +++|*                    = NONZERO IF *PUT* ENTRY IS INTERLOCKED BY OTHER
01893  M00S01563.1xy     +++|*                        DRIVER OR THE BUFFER FOR WHICH THE SEEK WAS
01894  M00S01564.1xy     +++|*                        PERFORMED HAS ALREADY BEEN PROCESSED BY THE
01895  M00S01565.1xy     +++|*                        OTHER DRIVER.
01896  M00S01566.1xy     +++|*                (IL) = 1 IF (A) = 0.
01897  M00S01567.1xy     +++|*
01898  M00S01568.1xy     +++|*         USES   IL, CM+1 - CM+2, CN - CN+4.
01899  M00S01569.1xy     +++|*
01900  M00S01570.1xy     +++|*         CALLS  RPI.
01901  M00S01571.1xy     +++|*
01902  M00S01572.1xy     +++|*         MACROS CCBA, CPTA, MONITOR.
01903  M00S01573.1xy     +++|
01904  M00S01574.1xy     +++|
01905  M00S01575.1xy     +++| OVI2     LDN    0           INDICATE *PUT* INTERLOCKED AND BUFFER OK
01906  M00S01576.1xy     +++|
01907  M00S01577.1xy     +++| OVI      SUBR               ENTRY/EXIT
01908  M00S01578.1xy     +++|          LDD    IL
01909  M00S01579.1xy     +++|          NJN    OVI2        IF THIS DRIVER ALREADY HAS *PUT* INTERLOCK
01910  M00S01580.1xy     +++|          LDK    SUIS
01911  M00S01581.1xy     +++|          STD    CM+1
01912  M00S01582.1xy     +++|          LDD    PO
01913  M00S01583.1xy     +++|          STD    CM+2
01914  M00S01584.1xy     +++|          MONITOR  BIOM      ISSUE INTERLOCK REQUEST
01915  M00S01585.1xy     +++|          LDD    CM+1
01916  M00S01586.1xy     +++|          NJN    OVIX        IF *PUT* IS INTERLOCKED BY OTHER DRIVER
01917  M00S01587.1xy     +++|          AOD    IL          SET *PUT* INTERLOCK FLAG
01918  M00S01588.1xy     +++|          LDC    CREQ        UPDATE *CCT* TABLE
01919  M00S01589.1xy     +++| OVIA     EQU    *-2         (*CCT* FWA SET BY *PRS*)
01920  M00S01590.1xy     +++|          CWD    IL
01921  M00S01591.1xy     +++|          LDD    ER
01922  M00S01592.1xy     +++|          NJN    OVI2        IF RECOVERY IN PROGRESS
01923  M00S01593.1xy     +++|          LDD    PR
01924  M00S01594.1xy     +++|          NJN    OVI2        IF SPECIAL PUT REQUEST PROCESSING
01925  M00S01595.1xy     +++|
01926  M00S01596.1xy     +++|*         VERIFY THAT THE BUFFER FOR WHICH THE SEEK WAS ISSUED IS STILL
01927  M00S01597.1xy     +++|*         CURRENT IN THE QUEUE.
01928  M00S01598.1xy     +++|
01929  M00S01599.1xy     +++|          CPTA   UNCT
01930  M00S01600.1xy     +++|          CRD    CN
01931  M00S01601.1xy     +++|          LDD    CN+3
01932  M00S01602.1xy     +++|          LMD    CB
01933  M00S01603.1xy     +++|          NJN    OVI1        IF CURRENT CBT ORDINAL CHANGED
01934  M00S01604.1xy     +++|          CCBA   HSLK        GET *PUT* ORDINAL FROM CBT ENTRY
01935  M00S01605.1xy     +++|          CRD    CN
01936  M00S01606.1xy     +++|          LDD    CN+4
01937  M00S01607.1xy     +++|          LMD    PO
01938  M00S01608.1xy     +++|          NJN    OVI1        IF *PUT* ORDINALS DO NOT MATCH
01939  M00S01609.1xy     +++|          CCBA   PAD1        GET PHYSICAL ADDRESS FROM CBT ENTRY
01940  M00S01610.1xy     +++|          CRD    CN
01941  M00S01611.1xy     +++|          LDD    CN+1
01942  M00S01612.1xy     +++|          LMD    CA+1
01943  M00S01613.1xy     +++|          NJN    OVI1        IF NO CYLINDER MATCH
01944  M00S01614.1xy     +++|          LDD    CA+2        TRACK
01945  M00S01615.1xy     +++|          LPN    77
01946  M00S01616.1xy     +++|          SHN    6
01947  M00S01617.1xy     +++|          LMD    CA+3        SECTOR
01948  M00S01618.1xy     +++|          LMD    CN+2
01949  M00S01619.1xy     +++|          ZJN    OVI1.1      IF BUFFER OK
01950  M00S01620.1xy     +++| OVI1     RJM    RPI         RELEASE *PUT* INTERLOCK
01951  M00S01621.1xy     +++|          LDN    1           INDICATE VERIFICATION FAILURE
01952  M00S01622.1xy     +++| OVI1.1   UJP    OVIX        RETURN
01953  M00S01623.1xy     +++| PDT      SPACE  4,20
01954  M00S01624.1xy     +++|**        PDT - PROCESS DATA TRANSFER.
01955  M00S01625.1xy     +++|*
01956  M00S01626.1xy     +++|*         THIS ROUTINE PREPARES FOR AND STARTS THE DATA TRANSFER WHEN A
01957  M00S01627.1xy     +++|*         REQUEST IS FOUND IN THE *PUT* AND THE SEEK HAS COMPLETED.  IT
01958  M00S01628.1xy     +++|*         WILL CALL THE PROPER ROUTINE FOR THE DIRECTION OF THE I/O.
01959  M00S01629.1xy     +++|*         THIS ROUTINE WILL RETURN TO THE MAIN LOOP ONLY WHEN THE
01960  M00S01630.1xy     +++|*         TRANSFER CANNOT CONTINUE ON THE CURRENT UNIT.
01961  M00S01631.1xy     +++|*
01962  M00S01632.1xy     +++|*         ENTRY  (EC) = ERROR CODE IF ERROR RECOVERY IS IN PROGRESS.
01963  M00S01633.1xy     +++|*                (PO) = *PUT* ORDINAL.
01964  M00S01634.1xy     +++|*                (RW) = READ/WRITE FLAG.
01965  M00S01635.1xy     +++|*
01966  M00S01636.1xy     +++|*         USES   NB, PB, TB, T1.
01967  M00S01637.1xy     +++|*
01968  M00S01638.1xy     +++|*         CALLS  ERR, FNN, OVI, RHR, RIO, RPI, WIO.
01969  M00S01639.1xy     +++|
01970  M00S01640.1xy     +++|
01971  M00S01641.1xy     +++| PDT      SUBR               ENTRY/EXIT
01972  M00S01642.1xy     +++|          RJM    OVI         OBTAIN *PUT* INTERLOCK AND VERIFY BUFFER
01973  M00S01643.1xy     +++|          NJN    PDT1        IF UNABLE TO INTERLOCK *PUT*/WRONG BUFFER
01974  M00S01644.1xy     +++|          STD    NB          CLEAR NEXT BUFFER ORDINAL
01975  M00S01645.1xy     +++|          STD    PB          CLEAR PREVIOUS BUFFER ORDINAL
01976  M00S01646.1xy     +++|          LDC    FCCT        CLEAR THE T REGISTERS
01977  M00S01647.1xy     +++|          RJM    FNN
01978  M00S01648.1xy     +++|          MJN    PDT2        IF ERROR ENCOUNTERED
Line S01649 Modification History
M01 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01979  M01S01649.ns2732  ---|          DCN    CH+40
01980  M00S01650.1xy     +++|          LDM    IICB,RW     SET COMPLETION REQUEST THRESHOLD
01981  M00S01651.1xy     +++|          STM    IICA
01982  M00S01652.1xy     +++|          LDM    PDTA,RW     STORE SUBROUTINE ADDRESS
01983  M00S01653.1xy     +++|          STD    T1
01984  M00S01654.1xy     +++|          RJM    0,T1        ENTER DATA TRANSFER ROUTINE
01985  M00S01655.1xy     +++|
01986  M00S01656.1xy     +++|*         CONTROL RETURNS HERE AFTER THE DATA TRANSFER IS COMPLETED.
01987  M00S01657.1xy     +++|
01988  M00S01658.1xy     +++| PDT1     RJM    RHR         RELEASE HARDWARE RESERVES
01989  M00S01659.1xy     +++|          ZJN    PDT3        IF NO ERROR
01990  M00S01660.1xy     +++|          LDD    EC
01991  M00S01661.1xy     +++|          NJN    PDT3        IF ERROR RECOVERY IS IN PROGRESS
01992  M00S01662.1xy     +++| PDT2     RJM    ERR         CALL ERROR PROCESSOR
01993  M00S01663.1xy     +++|
01994  M00S01664.1xy     +++| PDT3     RJM    RPI         RELEASE *PUT* INTERLOCK
01995  M00S01665.1xy     +++|          UJP    PDTX        RETURN
01996  M00S01666.1xy     +++|
01997  M00S01667.1xy     +++|
01998  M00S01668.1xy     +++| PDTA     BSS    0           PROCESSOR ADDRESS TABLE
01999  M00S01669.1xy     +++|          CON    RIO
02000  M00S01670.1xy     +++|          CON    WIO
02001  M00S01671.1xy     +++| PFR      SPACE  4,15
02002  M00S01672.1xy     +++|**        PFR - PREPARE FOR RETRY ATTEMPT.
02003  M00S01673.1xy     +++|*
02004  M00S01674.1xy     +++|*         THIS ROUTINE DOES WHATEVER IS NECESSARY TO PREPARE FOR THE
02005  M00S01675.1xy     +++|*         NEXT RETRY ATTEMPT.  ITS DUTIES INCLUDE PLUGGING INSTRUCTIONS
02006  M00S01676.1xy     +++|*         TO FORCE RETURN TO THE ERROR PROCESSOR FOLLOWING RECOVERY.
02007  M00S01677.1xy     +++|*
02008  M00S01678.1xy     +++|*         ENTRY  (RW) = READ/WRITE FLAG.
02009  M00S01679.1xy     +++|*
02010  M00S01680.1xy     +++|*         USES   T1, T2.
02011  M00S01681.1xy     +++|
02012  M00S01682.1xy     +++|
02013  M00S01683.1xy     +++| PFR      SUBR               ENTRY/EXIT
02014  M00S01684.1xy     +++|          LDD    RW
02015  M00S01685.1xy     +++|          SHN    1
02016  M00S01686.1xy     +++|          STD    T1
02017  M00S01687.1xy     +++|          LDM    PFRA,T1
02018  M00S01688.1xy     +++|          STD    T2
02019  M00S01689.1xy     +++|          LDM    PFRA+1,T1
02020  M00S01690.1xy     +++|          STI    T2
02021  M00S01691.1xy     +++|          UJN    PFRX        RETURN
02022  M00S01692.1xy     +++|
02023  M00S01693.1xy     +++|
02024  M00S01694.1xy     +++| PFRA     BSS    0
02025  M00S01695.1xy     +++|          CON    RIOC,UJNI+RIO12-RIOC
02026  M00S01696.1xy     +++|          CON    WIOC,UJNI+WIO8-WIOC
02027  M00S01697.1xy     +++|
02028  M00S01698.1xy     +++|          ERRNG  RIO12-RIOC  CODE DEPENDS ON VALUE
02029  M00S01699.1xy     +++|          ERRNG  WIO8-WIOC   CODE DEPENDS ON VALUE
02030  M00S01700.1xy     +++| PRE      SPACE  4,20
02031  M00S01701.1xy     +++|**        PRE - PRESET ERROR PROCESSOR.
02032  M00S01702.1xy     +++|*
02033  M00S01703.1xy     +++|*         THIS ROUTINE PERFORMS OPERATIONS NECESSARY TO PREPARE THE
02034  M00S01704.1xy     +++|*         DRIVER FOR ERROR PROCESSOR EXECUTION.
02035  M00S01705.1xy     +++|*
02036  M00S01706.1xy     +++|*         EXIT   (A) = 0 IF ERROR PROCESSING SHOULD CONTINUE.
02037  M00S01707.1xy     +++|*                (EC) = 1 IF ERROR ON PREVIOUS SECTOR.
02038  M00S01708.1xy     +++|*                (PB) = PREVIOUS BUFFER ORDINAL.
02039  M00S01709.1xy     +++|*                (RS) = RECOVERY STATUS.
02040  M00S01710.1xy     +++|*                (T5) = EST ORDINAL.
02041  M00S01711.1xy     +++|*                (TEPA) = 1 IF VERIFICATION/INTERLOCK REJECT.
02042  M00S01712.1xy     +++|*
02043  M00S01713.1xy     +++|*         USES   CB, EC, GS, PB, RS, T5, CM - CM+4.
02044  M00S01714.1xy     +++|*
02045  M00S01715.1xy     +++|*         CALLS  CRQ, FNN, OVI.
02046  M00S01716.1xy     +++|*
02047  M00S01717.1xy     +++|*         MACROS CPTA.
02048  M00S01718.1xy     +++|
02049  M00S01719.1xy     +++|
02050  M00S01720.1xy     +++| PRE4     AOM    TEPA        SET VERIFICATION/INTERLOCK FAILURE FLAG
02051  M00S01721.1xy     +++|
02052  M00S01722.1xy     +++| PRE      SUBR               ENTRY/EXIT
02053  M00S01723.1xy     +++|          DCN    CH+40       DISCONNECT CHANNEL
02054  M00S01724.1xy     +++|          LDML   FNCA        SAVE CURRENT FUNCTION
02055  M00S01725.1xy     +++|          STM    BMLLF
02056  M00S01726.1xy     +++|          SHN    -6
02057  M00S01727.1xy     +++|          SCN    77
02058  M00S01728.1xy     +++|          STM    BMLAS
02059  M00S01729.1xy     +++|          LDML   FNCB        SAVE LAST ADAPTER FUNCTION
02060  M00S01730.1xy     +++|          STM    BMLTD+4
02061  M00S01731.1xy     +++|          SHN    -14
02062  M00S01732.1xy     +++|          STM    BMLTD+3
02063  M00S01733.1xy     +++|          LDD    EC          SAVE CURRENT ERROR CODE
02064  M00S01734.1xy     +++|          SHN    21-13
02065  M00S01735.1xy     +++|          PJN    PRE1        IF NOT COMPLEMENTED
02066  M00S01736.1xy     +++|          LDD    EC
02067  M00S01737.1xy     +++|          LMC    7777
02068  M00S01738.1xy     +++|          UJN    PRE2        CONTINUE
02069  M00S01739.1xy     +++|
02070  M00S01740.1xy     +++| PRE1     LDD    EC
02071  M00S01741.1xy     +++| PRE2     SHN    6
02072  M00S01742.1xy     +++|          RAM    BMLTD+3
02073  M00S01743.1xy     +++|          LDM    ERR         SAVE LAST CALL TO *ERR*
02074  M00S01744.1xy     +++|          STM    BMLTD
02075  M00S01745.1xy     +++|          LDM    FNC         SAVE LAST CALL TO *FNC*
02076  M00S01746.1xy     +++|          STM    BMLTD+1
02077  M00S01747.1xy     +++|          LDM    FNN         SAVE LAST CALL TO *FNN*
02078  M00S01748.1xy     +++|          STM    BMLTD+2
02079  M00S01749.1xy     +++|          LCN    0           INITIALIZE RECOVERY STATUS
02080  M00S01750.1xy     +++|          STD    RS
02081  M00S01751.1xy     +++|          STD    GS          PRESET GENERAL STATUS = 7777
02082  M00S01752.1xy     +++|          RJM    OVI         GET *PUT* INTERLOCK (IF NOT ALREADY HELD)
02083  M00S01753.1xy     +++|          NJP    PRE4        IF INTERLOCK NOT OBTAINED
02084  M00S01754.1xy     +++|          LDC    LDNI+FCRD
02085  M00S01755.1xy     +++|          STM    RIOA
02086  M00S01756.1xy     +++|          ADN    FCWR-FCRD
02087  M00S01757.1xy     +++|          STM    WIOA
02088  M00S01758.1xy     +++|          CPTA   UNCT        GET EST ORDINAL
02089  M00S01759.1xy     +++|          CRD    CM
02090  M00S01760.1xy     +++|          LDD    CM+1
02091  M00S01761.1xy     +++|          STD    T5
02092  M00S01762.1xy     +++|          LDD    EP
02093  M00S01763.1xy     +++|          ZJN    PRE3        IF NOT PREVIOUS SECTOR ERROR
02094  M00S01764.1xy     +++|          LDD    EC
02095  M00S01765.1xy     +++|          LMC    7777-FTOE
02096  M00S01766.1xy     +++|          NJN    PRE3        IF NOT PREVIOUS SECTOR ERROR
02097  M00S01767.1xy     +++|          LDN    FTOE
02098  M00S01768.1xy     +++|          STD    EC
02099  M00S01769.1xy     +++|          LDD    PB          RESET CURRENT BUFFER TO PREVIOUS
02100  M00S01770.1xy     +++|          ZJN    PRE3        IF NO PREVIOUS BUFFER
02101  M00S01771.1xy     +++|          STD    CB
02102  M00S01772.1xy     +++|          LDN    0           CLEAR PREVIOUS BUFFER ORDINAL
02103  M00S01773.1xy     +++|          STD    PB
02104  M00S01774.1xy     +++| PRE3     RJM    CRQ         IDLE PENDING MONITOR FUNCTIONS
02105  M00S01775.1xy     +++|          NJN    PRE3        IF FUNCTION PENDING
02106  M00S01776.1xy     +++|          STD    EP          CLEAR PREVIOUS SECTOR ERROR FLAG
02107  M00S01777.1xy     +++|          LJM    PREX        RETURN
02108  M00S01778.1xy     +++| RCH      SPACE  4,15
02109  M00S01779.1xy     +++|**        RCH - REQUEST CHANNEL.
02110  M00S01780.1xy     +++|*
02111  M00S01781.1xy     +++|*         ENTRY  (IR+4) = CHANNEL NUMBER.
02112  M00S01782.1xy     +++|*                (CS) = CHANNEL RESERVATION STATUS.
02113  M00S01783.1xy     +++|*
02114  M00S01784.1xy     +++|*         EXIT   (A) .NE. 0 IF CHANNEL ASSIGNED.
02115  M00S01785.1xy     +++|*                    .EQ. 0 IF CHANNEL NOT ASSIGNED.
02116  M00S01786.1xy     +++|*
02117  M00S01787.1xy     +++|*         USES   CM+1, CS.
02118  M00S01788.1xy     +++|*
02119  M00S01789.1xy     +++|*         MACROS MONITOR.
02120  M00S01790.1xy     +++|
02121  M00S01791.1xy     +++|
02122  M00S01792.1xy     +++| RCH      SUBR               ENTRY/EXIT
02123  M00S01793.1xy     +++|          LDD    CS
02124  M00S01794.1xy     +++|          LPN    1
02125  M00S01795.1xy     +++|          NJN    RCHX        IF CHANNEL ALREADY ASSIGNED
02126  M00S01796.1xy     +++|          LDD    IR+4
02127  M00S01797.1xy     +++|          STD    CM+1
02128  M00S01798.1xy     +++|          MONITOR  CCHM
02129  M00S01799.1xy     +++|          LDD    CM+2
02130  M00S01800.1xy     +++|          ZJN    RCHX        IF CHANNEL NOT ASSIGNED
02131  M00S01801.1xy     +++|          SCF    *+2,CH      UNCONDITIONALLY SET CHANNEL FLAG
02132  M00S01802.1xy     +++|          AOD    CS          SET CHANNEL RESERVED FLAG
02133  M00S01803.1xy     +++|          UJN    RCHX        RETURN
Line S01804 Modification History
M01 (Removed by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
02134  M01S01804.ns2507  ---| RCS      SPACE  4,15
02135  M01S01805.ns2507  ---|**        RCS - REMOVE CHANNEL FROM SYSTEM USE.
02136  M01S01806.ns2507  ---|*
02137  M01S01807.ns2507  ---|*         THIS ROUTINE REMOVES A FAILING CHANNEL/CONTROLLER FROM
02138  M01S01808.ns2507  ---|*         SYSTEM USE EITHER GLOBALLY OR AS A PATH TO A SPECIFIC DEVICE
02139  M01S01809.ns2507  ---|*         VIA A CALL TO *1DS*.  IT ATTEMPTS TO RELEASE UNITS CONNECTED
02140  M01S01810.ns2507  ---|*         TO MAKE THEM ACCESSIBLE THROUGH THE ALTERNATE CHANNEL, IF ONE
02141  M01S01811.ns2507  ---|*         EXISTS.
02142  M01S01812.ns2507  ---|*
02143  M01S01813.ns2507  ---|*         ENTRY  (A) = EST ORDINAL IF CHANNEL IS TO BE DOWNED ON A
02144  M01S01814.ns2507  ---|*                      PARTICULAR DEVICE.
02145  M01S01815.ns2507  ---|*                    = 0 IF CHANNEL IS TO BE GLOBALLY DOWNED.
02146  M01S01816.ns2507  ---|*
02147  M01S01817.ns2507  ---|*         USES   EC, S2, CM - CM+4.
02148  M01S01818.ns2507  ---|*
02149  M01S01819.ns2507  ---|*         CALLS  FNC, RHR, 1DS.
02150  M01S01820.ns2507  ---|*
02151  M01S01821.ns2507  ---|*         MACROS EXECUTE, MONITOR.
02152  M01S01822.ns2507  ---|
02153  M01S01823.ns2507  ---|
02154  M01S01824.ns2507  ---| RCS      SUBR               ENTRY/EXIT
02155  M01S01825.ns2507  ---|          LMC    4000
02156  M01S01826.ns2507  ---|          STM    RCSA+4
02157  M01S01827.ns2507  ---|          LDD    CS
02158  M01S01828.ns2507  ---|          LPN    10
02159  M01S01829.ns2507  ---|          ZJN    RCS1        IF CONTROLLER NOT RESERVED TO THIS ACCESS
02160  M01S01830.ns2507  ---|
02161  M01S01831.ns2507  ---|*         BEFORE DOWNING THE CHANNEL A ZERO WORD AUTOLOAD FUNCTION IS
02162  M01S01832.ns2507  ---|*         ISSUED TO PLACE THE CONTROLLER IN ITS IDLE LOOP.  THIS MAY BE
02163  M01S01833.ns2507  ---|*         NECESSARY SINCE A CONTROLLER MEMORY ERROR CAN HANG THE
02164  M01S01834.ns2507  ---|*         PROCESSOR, PREVENTING PROCESSING OF THE *OPERATION COMPLETE*
02165  M01S01835.ns2507  ---|*         FUNCTION, RESULTING IN DRIVES RESERVED TO THE DOWN
02166  M01S01836.ns2507  ---|*         CONTROLLER.
02167  M01S01837.ns2507  ---|
02168  M01S01838.ns2507  ---|          LDK    FCAL        ISSUE AUTOLOAD FUNCTION
02169  M01S01839.ns2507  ---|          RJM    FNC
02170  M01S01840.ns2507  ---|          ZJN    RCS1        IF FUNCTION WAS ACCEPTED
02171  M01S01841.ns2507  ---|          LDN    CSTE        SET *CONTROLLER STOP* ERROR CODE
02172  M01S01842.ns2507  ---|          STD    EC
02173  M01S01843.ns2507  ---|          UJN    RCS2        CONTINUE
02174  M01S01844.ns2507  ---|
02175  M01S01845.ns2507  ---| RCS1     DCN    CH+40
02176  M01S01846.ns2507  ---| RCS2     RJM    RHR         RELEASE HARDWARE RESERVES
02177  M01S01847.ns2507  ---|
02178  M01S01848.ns2507  ---|*         CALL *1DS* TO DOWN THE CHANNEL.
02179  M01S01849.ns2507  ---|
02180  M01S01850.ns2507  ---|          LDD    MA          PLACE *1DS* REQUEST IN MESSAGE BUFFER
02181  M01S01851.ns2507  ---|          CWM    RCSA,ON
02182  M01S01852.ns2507  ---|          LDN    0
02183  M01S01853.ns2507  ---|          STD    S2          INITIALIZE RETRY COUNT
02184  M01S01854.ns2507  ---| RCS3     STD    CM+1
02185  M01S01855.ns2507  ---|          EXECUTE  1DS,=
02186  M01S01856.ns2507  ---|          MONITOR  RPPM      CALL *1DS*
02187  M01S01857.ns2507  ---|          LDD    CM+1
02188  M01S01858.ns2507  ---|          NJP    RCSX        IF PP ASSIGNED
02189  M01S01859.ns2507  ---|          AOD    S2          INCREMENT RETRY COUNT
02190  M01S01860.ns2507  ---|          LMK    PCRL
02191  M01S01861.ns2507  ---|          ZJP    RCSX        IF RETRY LIMIT
02192  M01S01862.ns2507  ---|          LDN    0
02193  M01S01863.ns2507  ---|          UJN    RCS3        RETRY *1DS* CALL
02194  M01S01864.ns2507  ---|
02195  M01S01865.ns2507  ---|
02196  M01S01866.ns2507  ---| RCSA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000
02197  M00S01867.1xy     +++| RHR      SPACE  4,10
02198  M00S01868.1xy     +++|**        RHR - RELEASE HARDWARE RESERVES.
02199  M00S01869.1xy     +++|*
02200  M00S01870.1xy     +++|*         ENTRY  (CS) = CHANNEL STATUS.
02201  M00S01871.1xy     +++|*
02202  M00S01872.1xy     +++|*         EXIT   (A) = 0 IF NO ERROR.
02203  M00S01873.1xy     +++|*
02204  M00S01874.1xy     +++|*         USES   CS, S1.
02205  M00S01875.1xy     +++|*
02206  M00S01876.1xy     +++|*         CALLS  FNC.
02207  M00S01877.1xy     +++|
02208  M00S01878.1xy     +++|
02209  M00S01879.1xy     +++| RHR      SUBR               ENTRY/EXIT
02210  M00S01880.1xy     +++|          LDD    CS
02211  M00S01881.1xy     +++|          LPN    10
02212  M00S01882.1xy     +++|          ZJN    RHRX        IF CONTROLLER NOT RESERVED
02213  M00S01883.1xy     +++|          LDN    FCOC        ISSUE *OPERATION COMPLETE* FUNCTION
02214  M00S01884.1xy     +++|          RJM    FNC
02215  M00S01885.1xy     +++|          SHN    0-21        SAVE ERROR STATUS
02216  M00S01886.1xy     +++|          STD    S1
02217  M00S01887.1xy     +++|          DCN    CH+40
02218  M00S01888.1xy     +++|          LCN    10          CLEAR CONTROLLER RESERVE FLAG
02219  M00S01889.1xy     +++|          RAD    CS
02220  M00S01890.1xy     +++|          LDD    S1          SET REPLY STATUS
02221  M00S01891.1xy     +++|          UJN    RHRX        RETURN
02222  M00S01892.1xy     +++| RIO      SPACE  4,40
02223  M00S01893.1xy     +++|**        RIO - PERFORM READ I/O OPERATIONS.
02224  M00S01894.1xy     +++|*
02225  M00S01895.1xy     +++|*         ENTRY  (CB) = CURRENT BUFFER ORDINAL.
02226  M00S01896.1xy     +++|*                (EP) = 0.
02227  M00S01897.1xy     +++|*                (NB) = 0.
02228  M00S01898.1xy     +++|*                (PB) = 0.
02229  M00S01899.1xy     +++|*
02230  M00S01900.1xy     +++|*         EXIT   (PB) = ORDINAL OF LAST BUFFER PROCESSED.
02231  M00S01901.1xy     +++|*
02232  M00S01902.1xy     +++|*         USES   CB, EC, EP, NB, PB, SR+2.
02233  M00S01903.1xy     +++|*
02234  M00S01904.1xy     +++|*         CALLS  ERR, FNC, FNN, GGS, IFI, WFT, WTC, WTR.
02235  M00S01905.1xy     +++|*
02236  M00S01906.1xy     +++|*         MACROS CCBA.
02237  M00S01907.1xy     +++|
02238  M00S01908.1xy     +++|
02239  M00S01909.1xy     +++| RIO      SUBR               ENTRY/EXIT
02240  M00S01910.1xy     +++|          RJM    IFI         INITIALIZE FOR I/O
02241  M00S01911.1xy     +++| RIO1     RJM    WTR         WRITE T PRIME REGISTER
02242  M00S01912.1xy     +++|          MJN    RIO5        IF ERROR WRITING T REGISTER
02243  M00S01913.1xy     +++|          LDN    FCRD        ISSUE READ FUNCTION
02244  M00S01914.1xy     +++|*         LDN    FCCO        (CONTROLLER ERROR RECOVERY IN PROGRESS)
02245  M00S01915.1xy     +++| RIOA     EQU    *-1
02246  M00S01916.1xy     +++|          RJM    FNN
02247  M00S01917.1xy     +++|          PJN    RIO2        IF NO ERROR
02248  M00S01918.1xy     +++|          AOD    EP          SET PREVIOUS SECTOR ERROR FLAG
02249  M00S01919.1xy     +++|          UJN    RIO5        CALL ERROR PROCESSOR
02250  M00S01920.1xy     +++|
02251  M00S01921.1xy     +++| RIO2     LDC    FCDI+HLEN   INITIATE DMA TRANSFER
02252  M00S01922.1xy     +++|          RJM    FNC
02253  M00S01923.1xy     +++|          MJN    RIO5        IF ERROR ON FUNCTION
02254  M00S01924.1xy     +++| RIO3     FJM    RIO6,CH     IF CHANNEL FULL
02255  M00S01925.1xy     +++|          SBN    1
02256  M00S01926.1xy     +++|          NJN    RIO3        IF NOT TIMEOUT
02257  M00S01927.1xy     +++|          LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
02258  M00S01928.1xy     +++| RIO4     STD    EC
02259  M00S01929.1xy     +++| RIO5     RJM    ERR         CALL ERROR PROCESSOR
02260  M00S01930.1xy     +++|
02261  M00S01931.1xy     +++| RIO6     LDN    HLEN        INPUT HEADER DATA
02262  M00S01932.1xy     +++|          IAM    BUFF,CH
02263  M00S01933.1xy     +++|          ZJN    RIO8        IF DATA TRANSFER COMPLETE
02264  M00S01934.1xy     +++|          SFM    RIO7,CH     IF CHANNEL PARITY ERROR
02265  M00S01935.1xy     +++|          LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
02266  M00S01936.1xy     +++|          UJN    RIO4        SET ERROR CODE
02267  M00S01937.1xy     +++|
02268  M00S01938.1xy     +++| RIO7     LCN    CHPE        SET *CHANNEL PARITY* ERROR CODE
02269  M00S01939.1xy     +++|          UJN    RIO4        SET ERROR CODE
02270  M00S01940.1xy     +++|
02271  M00S01941.1xy     +++| RIO8     DCN    CH+40       INPUT TO PP COMPLETE
02272  M00S01942.1xy     +++|          RJM    WTC         STORE LINKAGE BYTES
02273  M00S01943.1xy     +++|          RJM    WFT         WAIT FOR TRANSFER COMPLETION
02274  M00S01944.1xy     +++|          MJN    RIO4        IF ERROR ENCOUNTERED
02275  M00S01945.1xy     +++|          ZJN    RIO12       IF NO CONSECUTIVE REQUEST
02276  M00S01946.1xy     +++|*         UJN    RIO12       (ERROR RECOVERY IN PROGRESS)
02277  M00S01947.1xy     +++| RIOC     EQU    *-1
02278  M00S01948.1xy     +++|          LDN    0           CLEAR NEXT BUFFER ORDINAL
02279  M00S01949.1xy     +++|          STD    NB
02280  M00S01950.1xy     +++|          LJM    RIO1        PROCESS NEXT REQUEST
02281  M00S01951.1xy     +++|
02282  M00S01952.1xy     +++| RIO12    RJM    GGS         GET GENERAL STATUS
02283  M00S01953.1xy     +++|          ZJP    RIOX        IF NO ERROR
02284  M00S01954.1xy     +++|          LDD    PB          BACKUP TO PREVIOUS BUFFER
02285  M00S01955.1xy     +++|          STD    CB
02286  M00S01956.1xy     +++|          LDN    0           AVOID BUFFER COMPLETION
02287  M00S01957.1xy     +++|          STD    PB
02288  M00S01958.1xy     +++|          LJM    RIO5        CALL ERROR PROCESSOR
Line S00070 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S00070.ns2732  +++| RLC      SPACE  4,10
02290  M01S00071.ns2732  +++|**        RLC - RELOAD CCC CONTROLWARE IF NECESSARY.
02291  M01S00072.ns2732  +++|*
02292  M01S00073.ns2732  +++|*         RLC WILL RELOAD CONTROLWARE BEFORE THE FINAL RETRY FOR EACH
02293  M01S00074.ns2732  +++|*         ACCESS, PROVIDED THAT THE ERROR CODE IS LESS THAN *NRVE*.
02294  M01S00075.ns2732  +++|*
02295  M01S00076.ns2732  +++|*         EXIT   (A) .EQ. 0 IF LOAD WAS SUCCESSFUL OR UNNECESSARY.
02296  M01S00077.ns2732  +++|*                    .NE. 0 IF LOAD WAS ATTEMPTED AND FAILED.
02297  M01S00078.ns2732  +++|*
02298  M01S00079.ns2732  +++|*         USES   T1, CM - CM+4, CN - CN+4.
02299  M01S00080.ns2732  +++|*
02300  M01S00081.ns2732  +++|*         CALLS  FNC, GGS, MCA.
02301  M01S00082.ns2732  +++|*
02302  M01S00083.ns2732  +++|*         MACROS DELAY, MONITOR.
02303  M01S00084.ns2732  +++|
02304  M01S00085.ns2732  +++|
02305  M01S00086.ns2732  +++| RLC8     LDN    0           INDICATE NO ERROR
02306  M01S00087.ns2732  +++| RLC9     DCN    CH+40
02307  M01S00088.ns2732  +++|
02308  M01S00089.ns2732  +++| RLC      SUBR               ENTRY/EXIT
02309  M01S00090.ns2732  +++|          LDD    EC
02310  M01S00091.ns2732  +++|          SBK    NRVE
02311  M01S00092.ns2732  +++|          PJN    RLC8        IF NOT A CANDIDATE FOR CONTROLWARE RELOAD
02312  M01S00093.ns2732  +++|          LDM    TREC,EC
02313  M01S00094.ns2732  +++|          SBD    RC
02314  M01S00095.ns2732  +++|          ZJN    RLC1        IF TIME FOR RELOAD ON SECONDARY ACCESS
02315  M01S00096.ns2732  +++|          SBD    RC
02316  M01S00097.ns2732  +++|          NJN    RLC2        IF NOT TIME FOR RELOAD ON PRIMARY ACCESS
02317  M01S00098.ns2732  +++| RLC1     RJM    MCA         MASTER CLEAR ADAPTOR
02318  M01S00099.ns2732  +++|
02319  M01S00100.ns2732  +++|*         CHECK FOR SYSEDIT IN PROGRESS AND DELAY IF NECESSARY.
02320  M01S00101.ns2732  +++|
02321  M01S00102.ns2732  +++| RLC2     LDK    PLDP        CHECK PERIPHERAL DIRECTORY POINTER
02322  M01S00103.ns2732  +++|          CRD    CM
02323  M01S00104.ns2732  +++|          LDD    CM
02324  M01S00105.ns2732  +++|          ADD    CM+1
02325  M01S00106.ns2732  +++|          NJN    RLC3        IF SYSEDIT NOT IN PROGRESS
02326  M01S00107.ns2732  +++|          DELAY
02327  M01S00108.ns2732  +++|          UJN    RLC2        RECHECK SYSEDIT IN PROGRESS
02328  M01S00109.ns2732  +++|
02329  M01S00110.ns2732  +++|*         FIND CONTROLWARE.
02330  M01S00111.ns2732  +++|
02331  M01S00112.ns2732  +++| RLC3     LDN    ZERL
02332  M01S00113.ns2732  +++|          CRD    CM
02333  M01S00114.ns2732  +++|          LDD    MA          PUT CONTROLWARE ID IN MESSAGE BUFFER
02334  M01S00115.ns2732  +++|          CWM    RLCA,ON
02335  M01S00116.ns2732  +++|          MONITOR  SCDM      SEARCH CENTRAL DIRECTORY
02336  M01S00117.ns2732  +++|          LDD    CM+3
02337  M01S00118.ns2732  +++|          SHN    14
02338  M01S00119.ns2732  +++|          LMD    CM+4
02339  M01S00120.ns2732  +++|          CRD    CM          READ *PST* ENTRY
02340  M01S00121.ns2732  +++|          LDD    CM+1
02341  M01S00122.ns2732  +++|          SHN    21-12
02342  M01S00123.ns2732  +++|          PJN    RLC4        IF NOT CM RESIDENT
02343  M01S00124.ns2732  +++|          LDD    CM+3        GET ADDRESS OF *RCL* ENTRY
02344  M01S00125.ns2732  +++|          SHN    14
02345  M01S00126.ns2732  +++|          LMD    CM+4
02346  M01S00127.ns2732  +++|          ADN    1
02347  M01S00128.ns2732  +++|          CRD    CN          READ 5200 RECORD HEADER
02348  M01S00129.ns2732  +++|          ADN    1           SET FWA OF 5200 RECORD DATA
02349  M01S00130.ns2732  +++|          STD    CM+4
02350  M01S00131.ns2732  +++|          SHN    -14
02351  M01S00132.ns2732  +++|          STD    CM+3
02352  M01S00133.ns2732  +++|          LCN    1           ADJUST WORD COUNT FOR HEADER
02353  M01S00134.ns2732  +++|          RAD    CN+4
02354  M01S00135.ns2732  +++|
02355  M01S00136.ns2732  +++|*         LOAD CONTROLWARE.
02356  M01S00137.ns2732  +++|
02357  M01S00138.ns2732  +++|          LDK    FCAL        AUTOLOAD FUNCTION
02358  M01S00139.ns2732  +++|          RJM    FNC         ISSUE FUNCTION AND ACTIVATE CHANNEL
02359  M01S00140.ns2732  +++|          ZJN    RLC5        IF NO ERROR ON FUNCTION
02360  M01S00141.ns2732  +++| RLC4     UJP    RLC9        RETURN WITH ERROR INDICATION
02361  M01S00142.ns2732  +++|
02362  M01S00143.ns2732  +++| RLC5     LDD    CN+4
02363  M01S00144.ns2732  +++| RLC6     SBD    HN
02364  M01S00145.ns2732  +++|          MJN    RLC7        IF LESS THAN 100B WORDS LEFT
02365  M01S00146.ns2732  +++|          LDN    0
02366  M01S00147.ns2732  +++| RLC7     ADD    HN
02367  M01S00148.ns2732  +++|          STD    T1
02368  M01S00149.ns2732  +++|          LDD    CM+3
02369  M01S00150.ns2732  +++|          SHN    14
02370  M01S00151.ns2732  +++|          LMD    CM+4
02371  M01S00152.ns2732  +++|          CRM    BUFF,T1     READ BLOCK OF CONTROLWARE FROM CM
02372  M01S00153.ns2732  +++|          STD    CM+4        UPDATE BLOCK ADDRESS
02373  M01S00154.ns2732  +++|          SHN    -14
02374  M01S00155.ns2732  +++|          STD    CM+3
02375  M01S00156.ns2732  +++|          LDD    T1          SET BYTES TO TRANSFER
02376  M01S00157.ns2732  +++|          SHN    2
02377  M01S00158.ns2732  +++|          ADD    T1
02378  M01S00159.ns2732  +++|          OAM    BUFF,CH     LOAD BLOCK OF CONTROLWARE TO CCC
02379  M01S00160.ns2732  +++|          FJM    *,CH        IF TRANSFER NOT COMPLETE
02380  M01S00161.ns2732  +++|          NJN    RLC4        IF INCOMPLETE TRANSFER
02381  M01S00162.ns2732  +++|          LDD    CN+4
02382  M01S00163.ns2732  +++|          SBD    T1
02383  M01S00164.ns2732  +++|          STD    CN+4
02384  M01S00165.ns2732  +++|          NJN    RLC6        IF MORE WORDS TO TRANSFER
02385  M01S00166.ns2732  +++|          DCN    CH+40
02386  M01S00167.ns2732  +++|          DELAY
02387  M01S00168.ns2732  +++|          RJM    GGS         GET GENERAL STATUS
02388  M01S00169.ns2732  +++|          UJP    RLCX        RETURN
02389  M01S00170.ns2732  +++|
02390  M01S00171.ns2732  +++|
02391  M01S00172.ns2732  +++| RLCA     VFD    42/0LMA464,18/0  CONTROLWARE NAME
02392  M00S01959.1xy     +++| RPI      SPACE  4,10
02393  M00S01960.1xy     +++|**        RPI - RELEASE *PUT* INTERLOCK.
02394  M00S01961.1xy     +++|*
02395  M00S01962.1xy     +++|*         ENTRY  (CC) = COMPLETION COUNT.
02396  M00S01963.1xy     +++|*                (IL) = *PUT* INTERLOCK FLAG.
02397  M00S01964.1xy     +++|*                (PB) = PREVIOUS BUFFER ORDINAL.
02398  M00S01965.1xy     +++|*                (PO) = *PUT* ORDINAL.
02399  M00S01966.1xy     +++|*                (RW) = READ/WRITE FLAG.
02400  M00S01967.1xy     +++|*                (TB) = TOTAL BUFFER COUNT.
02401  M00S01968.1xy     +++|*
02402  M00S01969.1xy     +++|*         USES   CC, IL, PB, CM - CM+4.
02403  M00S01970.1xy     +++|*
02404  M00S01971.1xy     +++|*         MACROS MONITOR.
02405  M00S01972.1xy     +++|
02406  M00S01973.1xy     +++|
02407  M00S01974.1xy     +++| RPI      SUBR               ENTRY/EXIT
02408  M00S01975.1xy     +++|          LDD    IL
02409  M00S01976.1xy     +++|          ZJN    RPIX        IF *PUT* NOT INTERLOCKED
02410  M00S01977.1xy     +++|          LDD    PB
02411  M00S01978.1xy     +++|          ZJN    RPI1        IF NO PREVIOUS BUFFER
02412  M00S01979.1xy     +++|          LDN    1           ACCOUNT FOR PREVIOUS BUFFER
02413  M00S01980.1xy     +++| RPI1     ADD    CC
02414  M00S01981.1xy     +++|          LMC    4000        SET *RELEASE INTERLOCK* FLAG
02415  M00S01982.1xy     +++|          STD    CM+3
02416  M00S01983.1xy     +++|          LDD    TB          SET TOTAL BUFFER COUNT
02417  M00S01984.1xy     +++|          STD    CM+4
02418  M00S01985.1xy     +++|          LDD    PO
02419  M00S01986.1xy     +++|          STD    CM+2
02420  M00S01987.1xy     +++|          LDN    DCBS        CLEAR UNIT INTERLOCK
02421  M00S01988.1xy     +++|          STD    CM+1
02422  M00S01989.1xy     +++|          LDN    0           CLEAR COMPLETION COUNT BEFORE *CRQ* CALL
02423  M00S01990.1xy     +++|          STD    CC
02424  M00S01991.1xy     +++|          MONITOR  BIOM
02425  M00S01992.1xy     +++|*         LDN    0
02426  M00S01993.1xy     +++|          STD    IL          CLEAR *PUT* INTERLOCK FLAG
02427  M00S01994.1xy     +++|          STD    PB          CLEAR PREVIOUS BUFFER ORDINAL
02428  M00S01995.1xy     +++|          LDC    CREQ        UPDATE *CCT* TABLE
02429  M00S01996.1xy     +++| RPIA     EQU    *-2         (*CCT* FWA SET BY *PRS*)
02430  M00S01997.1xy     +++|          CWD    IL
02431  M00S01998.1xy     +++|          UJP    RPIX        RETURN
02432  M00S01999.1xy     +++| RTM      SPACE  4,25
02433  M00S02000.1xy     +++|**        RTM - REQUEST TRACK FLAW IF MEDIA ERROR.
02434  M00S02001.1xy     +++|*
02435  M00S02002.1xy     +++|*         THIS ROUTINE DETERMINES IF THE ERROR RESULTED FROM A MEDIA
02436  M00S02003.1xy     +++|*         FAILURE.  IF IT DID, *CPUMTR* WILL BE CALLED TO PLACE THE
02437  M00S02004.1xy     +++|*         LOGICAL TRACK NUMBER IN THE MST SO *1MV* CAN PERFORM A MEDIA
02438  M00S02005.1xy     +++|*         VERIFICATION WHEN THE TRACK IS RELEASED.  AN ERROR LOG
02439  M00S02006.1xy     +++|*         MESSAGE IS ISSUED INFORMING THE OPERATOR THAT A MEDIA FAILURE
02440  M00S02007.1xy     +++|*         OCCURRED BUT THE TRACK HAS NOT YET BEEN FLAWED BY THE SYSTEM.
02441  M00S02008.1xy     +++|*
02442  M00S02009.1xy     +++|*         ENTRY  (CA - CA+3) = PHYSICAL ADDRESS.
02443  M00S02010.1xy     +++|*                (CB) = BUFFER ORDINAL.
02444  M00S02011.1xy     +++|*                (EC) = ERROR CODE.
02445  M00S02012.1xy     +++|*                (T5) = EST ORDINAL.
02446  M00S02013.1xy     +++|*
02447  M00S02014.1xy     +++|*         USES   T1, CM - CM+4.
02448  M00S02015.1xy     +++|*
Line S02016 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02449  M01S02016.ns2769  ---|*         CALLS C2D, C4D, IMS.
Line S00125 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02450  M01S00125.ns2769  +++|*         CALLS C2D, IMB.
02451  M00S02017.1xy     +++|*
02452  M00S02018.1xy     +++|*         MACROS MONITOR.
02453  M00S02019.1xy     +++|
02454  M00S02020.1xy     +++|
02455  M00S02021.1xy     +++| RTM      SUBR               ENTRY/EXIT
02456  M00S02022.1xy     +++|          LDD    EC
02457  M00S02023.1xy     +++|          LMK    PARE
02458  M00S02024.1xy     +++|          NJN    RTMX        IF NOT MEDIA ERROR
02459  M00S02025.1xy     +++|          LDD    T5          CONVERT AND STORE EST ORDINAL IN MESSAGE
02460  M00S02026.1xy     +++|          SHN    -3
02461  M00S02027.1xy     +++|          RJM    C2D
02462  M00S02028.1xy     +++|          STM    RTMB+1
02463  M00S02029.1xy     +++|          LDD    T5
Line S00001 Modification History
M01 (Added by) ns2505
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02464  M02S00001.253l688 ---|          STD    CM+1        STORE EST ORDINAL FOR *STBM*
Line S00004 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02465  M01S00004.253l688 +++|          STD    CM+1        STORE EST ORDINAL FOR *SMDM*
02466  M00S02030.1xy     +++|          LPN    7
02467  M00S02031.1xy     +++|          SHN    6
02468  M00S02032.1xy     +++|          ADC    2R0,
02469  M00S02033.1xy     +++|          STM    RTMB+2
02470  M00S02034.1xy     +++|          LDD    CA+1
02471  M00S02035.1xy     +++|          SHN    1
02472  M00S02036.1xy     +++|          ADC    4000
02473  M00S02037.1xy     +++|          STD    CM+2
02474  M00S02038.1xy     +++|          LDD    CA+2        PHYSICAL TRACK
02475  M00S02039.1xy     +++|          LPN    77
02476  M00S02040.1xy     +++|          STD    T1
02477  M00S02041.1xy     +++|          SHN    1
02478  M00S02042.1xy     +++|          ADD    T1
02479  M00S02043.1xy     +++|          ERRNZ  PSPT-3      CODE DEPENDS ON VALUE
02480  M00S02044.1xy     +++|          ADD    CA+3
02481  M00S02045.1xy     +++|          SBK    PSLT
02482  M00S02046.1xy     +++|          MJN    RTM1        IF FIRST LOGICAL TRACK OF CYLINDER
02483  M00S02047.1xy     +++|          AOD    CM+2
Line S02048 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02484  M01S02048.ns2769  ---| RTM1     LDC    RTMB+4      CONVERT AND STORE TRACK NUMBER IN MESSAGE
02485  M01S02049.ns2769  ---|          STD    T1
02486  M01S02050.ns2769  ---|          LDD    CM+2
02487  M01S02051.ns2769  ---|          RJM    C4D
Line S00126 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02488  M01S00126.ns2769  +++| RTM1     LDD    CM+2        CONVERT AND STORE TRACK NUMBER IN MESSAGE
02489  M01S00127.ns2769  +++|          SHN    -6          CONVERT UPPER 6 BITS
02490  M01S00128.ns2769  +++|          RJM    C2D
02491  M01S00129.ns2769  +++|          STM    RTMB+4      STORE RESULT IN DISPLAY BUFFER
02492  M01S00130.ns2769  +++|          LDD    CM+2        CONVERT LOWER 6 BITS
02493  M01S00131.ns2769  +++|          LPN    77
02494  M01S00132.ns2769  +++|          RJM    C2D
02495  M01S00133.ns2769  +++|          STM    RTMB+5      STORE RESULT IN DISPLAY BUFFER
02496  M00S02052.1xy     +++|          LDK    SFTS        SET SUBFUNCTION
02497  M00S02053.1xy     +++|          STD    CM+3
Line S02054 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02498  M01S02054.253l688 ---|          MONITOR  STBM
Line S00005 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02499  M01S00005.253l688 +++|          MONITOR  SMDM
02500  M00S02055.1xy     +++|          LDD    CM+1
02501  M00S02056.1xy     +++|          NJN    RTM2        IF THIS TRACK FLAW ALREADY REQUESTED
Line S02057 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02502  M01S02057.271l716 ---|          LDC    RTML*10000+RTMA  ISSUE ERROR LOG MESSAGE
Line S00025 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02503  M02S00025.ns2769  ---|          LDC    RTMAL*10000+RTMA  ISSUE ERROR LOG MESSAGE
Line S02058 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02504  M01S02058.ns2769  ---|          RJM    IMS
Line S00134 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02505  M01S00134.ns2769  +++|          LDC    RTMA        ISSUE ERROR LOG MESSAGE
02506  M01S00135.ns2769  +++|          RJM    IMB
02507  M00S02059.1xy     +++| RTM2     UJP    RTMX        RETURN
02508  M00S02060.1xy     +++|
02509  M00S02061.1xy     +++|
Line S02062 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02510  M01S02062.271l716 ---|*         ERROR LOG MESSAGE HEADER.
02511  M01S02063.271l716 ---|
02512  M01S02064.271l716 ---| RTMA     VFD    36/0        RESERVED
02513  M01S02065.271l716 ---|          VFD    12/RTML     MESSAGE LENGTH INCLUDING HEADER
02514  M01S02066.271l716 ---|          VFD    12/ELDY
02515  M01S02067.271l716 ---|
02516  M01S02068.271l716 ---| RTMB     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED*
02517  M01S02069.271l716 ---|
02518  M01S02070.271l716 ---| RTML     EQU    */5-RTMA/5  MESSAGE LENGTH
Line S00026 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02519  M01S00026.271l716 +++| RTMA     VFD    24/0        RESERVED
02520  M01S00027.271l716 +++|          VFD    12/1        ERRLOG ALERT FLAG
02521  M01S00028.271l716 +++|          VFD    12/RTMAL    MESSAGE LENGTH
02522  M01S00029.271l716 +++|          VFD    12/ELDY     ERRLOG DAYFILE
02523  M01S00030.271l716 +++|
02524  M01S00031.271l716 +++| RTMB     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
02525  M01S00032.271l716 +++|
02526  M01S00033.271l716 +++| .1       SET    *-RTMA+4
02527  M01S00034.271l716 +++| RTMAL    EQU    .1/5
02528  M00S02071.1xy     +++| SAS      SPACE  4,10
02529  M00S02072.1xy     +++|**        SAS - SAVE ADAPTER STATUS.
02530  M00S02073.1xy     +++|*
02531  M00S02074.1xy     +++|*         EXIT   (A) .LT. 0, IF ERRORS READING STATUS.
02532  M00S02075.1xy     +++|*
02533  M00S02076.1xy     +++|*         USES   T1, CM - CM+4.
02534  M00S02077.1xy     +++|*
02535  M00S02078.1xy     +++|*         CALLS  FNC.
02536  M00S02079.1xy     +++|
02537  M00S02080.1xy     +++|
02538  M00S02081.1xy     +++| SAS5     DCN    CH+40
02539  M00S02082.1xy     +++|          LCN    0           INDICATE ERRORS OCCURRED
02540  M00S02083.1xy     +++|
02541  M00S02084.1xy     +++| SAS      SUBR               ENTRY/EXIT
02542  M00S02085.1xy     +++|          LDN    SASAL+1      SET UP READ LOOP
02543  M00S02086.1xy     +++|          STD    T1
02544  M00S02087.1xy     +++| SAS1     SOD    T1
02545  M00S02088.1xy     +++|          ZJN    SAS4        IF END OF SAVE LOOP
02546  M00S02089.1xy     +++|          LDML   SASA-1,T1   FUNCTION FOR REGISTER READ
02547  M00S02090.1xy     +++|          LMC    400000      INDICATE ADAPTER FUNCTION
02548  M00S02091.1xy     +++|          RJM    FNC
02549  M00S02092.1xy     +++|          MJN    SASX        IF ERROR ENCOUNTERED
02550  M00S02093.1xy     +++| SAS2     FJM    SAS3,CH     IF DATA PRESENT
02551  M00S02094.1xy     +++|          SBN    1
02552  M00S02095.1xy     +++|          ZJN    SAS5        IF END OF DELAY
02553  M00S02096.1xy     +++|          UJN    SAS2        LOOP WAITING FOR DATA
02554  M00S02097.1xy     +++|
02555  M00S02098.1xy     +++| SAS3     IAN    CH
02556  M00S02099.1xy     +++|          STML   CM-1,T1     SAVE REGISTER DATA
02557  M00S02100.1xy     +++|          DCN    CH+40
02558  M00S02101.1xy     +++|          UJN    SAS1        LOOP FOR NEXT REGISTER
02559  M00S02102.1xy     +++|
02560  M00S02103.1xy     +++| SAS4     LDDL   CM+2        SAVE 16 BIT DATA IN BML MESSAGE
02561  M00S02104.1xy     +++|          STM    BMLAS+4
02562  M00S02105.1xy     +++|          SHN    -14
02563  M00S02106.1xy     +++|          STM    BMLAS+3
02564  M00S02107.1xy     +++|          LDDL   CM+1
02565  M00S02108.1xy     +++|          SHN    14
02566  M00S02109.1xy     +++|          STM    BMLAS+2
02567  M00S02110.1xy     +++|          SHN    -6
02568  M00S02111.1xy     +++|          SCN    77
02569  M00S02112.1xy     +++|          RAM    BMLAS+3
02570  M00S02113.1xy     +++|          LDDL   CM
02571  M00S02114.1xy     +++|          STM    BMLAS+1
02572  M00S02115.1xy     +++|          SHN    -14
02573  M00S02116.1xy     +++|          RAM    BMLAS
02574  M00S02117.1xy     +++|          LJM    SASX        RETURN
02575  M00S02118.1xy     +++|
02576  M00S02119.1xy     +++| SASA     CON    0           READ OPERATION STATUS
02577  M00S02120.1xy     +++|          CON    0           READ CONTROL REGISTER
02578  M00S02121.1xy     +++|          CON    0           READ ERROR STATUS REGISTER
02579  M00S02122.1xy     +++| SASAL    EQU    *-SASA
02580  M00S02123.1xy     +++| SCD      SPACE  4,10
02581  M00S02124.1xy     +++|**        SCD - SET DRIVER DROPPED FLAG.
02582  M00S02125.1xy     +++|*
02583  M00S02126.1xy     +++|*         THIS ROUTINE SETS A FLAG IN THE CONTROLWARE TABLE INDICATING
02584  M00S02127.1xy     +++|*         THAT THE DRIVER OF THIS CHANNEL HAS DROPPED.
02585  M00S02128.1xy     +++|*
02586  M00S02129.1xy     +++|*         EXIT   (A) = 0.
02587  M00S02130.1xy     +++|*
02588  M00S02131.1xy     +++|*         USES   CM+1 - CM+4.
02589  M00S02132.1xy     +++|*
02590  M00S02133.1xy     +++|*         MACROS MONITOR.
02591  M00S02134.1xy     +++|
02592  M00S02135.1xy     +++|
02593  M00S02136.1xy     +++| SCD      SUBR               ENTRY/EXIT
02594  M00S02137.1xy     +++|          LDD    MA          STORE *UTEM* PARAMETERS
02595  M00S02138.1xy     +++|          CWM    SCDB,ON
02596  M00S02139.1xy     +++|          LDC    **
02597  M00S02140.1xy     +++| SCDA     EQU    *-1         (CONTROLWARE TABLE ADDRESS)
02598  M00S02141.1xy     +++|          STD    CM+4
02599  M00S02142.1xy     +++|          SHN    -14
02600  M00S02143.1xy     +++|          STD    CM+3
02601  M00S02144.1xy     +++|          LDN    1
02602  M00S02145.1xy     +++|          STD    CM+1
02603  M00S02146.1xy     +++|          LDN    0
02604  M00S02147.1xy     +++|          STD    CM+2
02605  M00S02148.1xy     +++|          MONITOR  UTEM      SET DRIVER DROP FLAG
02606  M00S02149.1xy     +++|          UJN    SCDX        RETURN
02607  M00S02150.1xy     +++|
02608  M00S02151.1xy     +++|
02609  M00S02152.1xy     +++| SCDB     VFD    1/0,5/0,6/1,6/,42/1
02610  M00S02153.1xy     +++| SSF      SPACE  4,15
02611  M00S02154.1xy     +++|**        SSF - SET SUSPECT FLAG.
02612  M00S02155.1xy     +++|*
Line S02156 Modification History
M01 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
02613  M01S02156.ns2732  ---|*         THIS ROUTINE SETS THE SUSPECT FLAG IN THE MST ENTRY VIA
02614  M01S02157.ns2732  ---|*         AN *SEQM* MONITOR FUNCTION IF CERTAIN CRITERIA ARE MET.  IT
02615  M01S02158.ns2732  ---|*         ALSO SETS AN ERROR CODE IN THE MST THAT APPEARS ON THE *E,M*
02616  M01S02159.ns2732  ---|*         DISPLAY.
Line S00173 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
02617  M01S00173.ns2732  +++|*         THIS ROUTINE SETS THE SUSPECT FLAG AND THE *E,M* DISPLAY
Line S00174 Modification History
M01 (Added by) ns2732
M02 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02618  M02S00174.ns2732a ---|*         ERROR CODE IN THE MST ENTRY VIA *SEQM* FUNCTIONS FOLLOWING
02619  M02S00175.ns2732a ---|*         THE FINAL RECOVERY ATTEMPT ON THE PRIMARY ACCESS, PROVIDED
Line S00010 Modification History
M01 (Added by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02620  M01S00010.ns2732a +++|*         ERROR CODE IN THE MST ENTRY VIA *SEQM* FUNCTIONS, PROVIDED
Line S00176 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
02621  M01S00176.ns2732  +++|*         THAT THE *SET SUSPECT* FLAG IS SET IN TABLE *TEPF* FOR THE
02622  M01S00177.ns2732  +++|*         PARTICULAR TYPE OF ERROR ENCOUNTERED.
02623  M00S02160.1xy     +++|*
02624  M00S02161.1xy     +++|*         ENTRY  (EC) = ERROR CODE.
02625  M00S02162.1xy     +++|*                (RC) = RETRY COUNT.
02626  M00S02163.1xy     +++|*                (T5) = EST ORDINAL.
02627  M00S02164.1xy     +++|*
02628  M00S02165.1xy     +++|*         USES   CM+1 - CM+3.
02629  M00S02166.1xy     +++|*
02630  M00S02167.1xy     +++|*         CALLS  RTM.
02631  M00S02168.1xy     +++|*
02632  M00S02169.1xy     +++|*         MACROS MONITOR.
02633  M00S02170.1xy     +++|
02634  M00S02171.1xy     +++|
02635  M00S02172.1xy     +++| SSF      SUBR               ENTRY/EXIT
Line S02173 Modification History
M01 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02636  M01S02173.ns2732a ---|          LDD    RC
Line S02174 Modification History
M01 (Removed by) ns2732
M02 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02637  M02S02174.ns2732a ---|          LMK    SURT
Line S00178 Modification History
M01 (Added by) ns2732
M02 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02638  M02S00178.ns2732a ---|          SBN    1
02639  M02S00179.ns2732a ---|          SHN    1
02640  M02S00180.ns2732a ---|          LMM    TREC,EC
Line S00011 Modification History
M01 (Added by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02641  M01S00011.ns2732a +++|          LDD    ER
02642  M01S00012.ns2732a +++|          NJN    SSFX        IF RECOVERY IN PROGRESS
02643  M01S00013.ns2732a +++|          LDD    EC
02644  M01S00014.ns2732a +++|          SBK    NRVE
02645  M01S00015.ns2732a +++|          PJN    SSF1        IF NO CONTROLWARE RELOAD
02646  M01S00016.ns2732a +++|          LDM    TREC,EC
02647  M01S00017.ns2732a +++|          SHN    -1
02648  M01S00018.ns2732a +++|          ADN    1
02649  M01S00019.ns2732a +++|          UJN    SSF2        SEE IF TIME TO SET SUSPECT
02650  M01S00020.ns2732a +++|
02651  M01S00021.ns2732a +++| SSF1     LDK    SURT
02652  M01S00022.ns2732a +++| SSF2     SBD    RC
02653  M00S02175.1xy     +++|          NJN    SSFX        IF NOT TIME TO SET SUSPECT FLAG
02654  M00S02176.1xy     +++|          RJM    RTM         CHECK FOR MEDIA FAILURE
02655  M00S02177.1xy     +++|          LDM    TEPF,EC
02656  M00S02178.1xy     +++|          SHN    21-7
02657  M00S02179.1xy     +++|          PJN    SSFX        IF SUSPECT FLAG NOT TO BE SET
02658  M00S02180.1xy     +++|          LDD    T5          SET SUSPECT FLAG
02659  M00S02181.1xy     +++|          STD    CM+1
02660  M00S02182.1xy     +++|          LDN    SSES
02661  M00S02183.1xy     +++|          STD    CM+2
02662  M00S02184.1xy     +++|          MONITOR  SEQM
02663  M00S02185.1xy     +++|          LDD    T5          SET ERROR CODE IN MST
02664  M00S02186.1xy     +++|          STD    CM+1
02665  M00S02187.1xy     +++|          LDN    STDE
02666  M00S02188.1xy     +++|          STD    CM+2
02667  M00S02189.1xy     +++|          LDN    SERS
02668  M00S02190.1xy     +++|          STD    CM+3
Line S02191 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02669  M01S02191.253l688 ---|          MONITOR  STBM
Line S00006 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02670  M01S00006.253l688 +++|          MONITOR  SMDM
Line S02192 Modification History
M01 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02671  M01S02192.ns2732a ---|          UJN    SSFX        RETURN
Line S00023 Modification History
M01 (Added by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02672  M01S00023.ns2732a +++|          UJP    SSFX        RETURN
02673  M00S02193.1xy     +++| SUQ      SPACE  4,30
02674  M00S02194.1xy     +++|**        SUQ - SCAN UNIT QUEUE.
02675  M00S02195.1xy     +++|*
02676  M00S02196.1xy     +++|*         THIS ROUTINE SCANS THE *PUT* ENTRIES OF UNITS ACCESSED BY
02677  M00S02197.1xy     +++|*         THIS CHANNEL UNTIL IT HAS SCANNED THE ENTIRE TABLE OR FINDS
02678  M00S02198.1xy     +++|*         AN ENTRY ELIGIBLE FOR PROCESSING.
02679  M00S02199.1xy     +++|*
02680  M00S02200.1xy     +++|*         ENTRY  (TI) = CURRENT *TPOR* INDEX.
02681  M00S02201.1xy     +++|*
02682  M00S02202.1xy     +++|*         EXIT   (A) .EQ. 0 IF ENTIRE TABLE SCANNED AND NO ELIGIBLE
02683  M00S02203.1xy     +++|*                           ENTRY FOUND.
02684  M00S02204.1xy     +++|*                    .NE. 0 IF ENTRY SELECTED.
02685  M00S02205.1xy     +++|*                (CB) = CURRENT BUFFER ORDINAL.
02686  M00S02206.1xy     +++|*                (ER) = 1 IF ERROR RECOVERY IS IN PROGRESS.
02687  M00S02207.1xy     +++|*                (PO) = ORDINAL OF SELECTED *PUT* ENTRY.
02688  M00S02208.1xy     +++|*                (RC) = 0 IF ELIGIBLE ENTRY FOUND AND *RECOVERY IN
02689  M00S02209.1xy     +++|*                         PROGRESS* FLAG IS CLEAR.
Line S02210 Modification History
M01 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02690  M01S02210.ns2732a ---|*                     = N/2 WHERE N IS THE RETRY LIMIT FOR THE ERROR
Line S00024 Modification History
M01 (Added by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02691  M01S00024.ns2732a +++|*                     = N/2+1 WHERE N IS THE RETRY LIMIT FOR THE ERROR
02692  M00S02211.1xy     +++|*                         CODE SET IN *EC* IF *RECOVERY IN PROGRESS*
02693  M00S02212.1xy     +++|*                         FLAG IS SET.
02694  M00S02213.1xy     +++|*                (RW) = READ/WRITE FLAG.
02695  M00S02214.1xy     +++|*                TO *ERR* IF ERROR RECOVERY IS IN PROGRESS FOR
02696  M00S02215.1xy     +++|*                   SELECTED BUFFER.
02697  M00S02216.1xy     +++|*                (TB) = TOTAL BUFFER COUNT.
02698  M00S02217.1xy     +++|*
02699  M00S02218.1xy     +++|*         USES   CB, EC, ER, PO, RC, RW, S1, TB, TI, CM - CM+4,
02700  M00S02219.1xy     +++|*                CN - CN+4, T1 - T5.
02701  M00S02220.1xy     +++|*
02702  M00S02221.1xy     +++|*         CALLS  ERR, PSR.
02703  M00S02222.1xy     +++|*
02704  M00S02223.1xy     +++|*         MACROS CCBA, CPTA, PSR, SFA.
02705  M00S02224.1xy     +++|
02706  M00S02225.1xy     +++|
02707  M00S02226.1xy     +++| SUQ8     RJM    PSR         PROCESS SPECIAL REQUESTS
02708  M00S02227.1xy     +++| SUQ7     LDD    TI
02709  M00S02228.1xy     +++|          LMN    1
02710  M00S02229.1xy     +++| SUQA     EQU    *-1
02711  M00S02230.1xy     +++|          NJN    SUQ1        IF NOT FINISHED WITH *PUT* SCAN
02712  M00S02231.1xy     +++|
02713  M00S02232.1xy     +++| SUQ      SUBR               ENTRY/EXIT
02714  M00S02233.1xy     +++| SUQ1     AOD    TI          ADVANCE *TPOR* INDEX
02715  M00S02234.1xy     +++|          ERRNZ  TPORE-1     CODE IS VALUE DEPENDENT
02716  M00S02235.1xy     +++|          LDM    TPOR-1,TI
02717  M00S02236.1xy     +++|          NJN    SUQ2        IF NOT END OF *TPOR* TABLE
02718  M00S02237.1xy     +++|          STD    TI          RESET INDEX
02719  M00S02238.1xy     +++|          UJN    SUQ1        CONTINUE
02720  M00S02239.1xy     +++|
Line S02240 Modification History
M01 (Removed by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
02721  M01S02240.ns2643  ---| SUQ2     SHN    14          SET CHANNEL BYTE INDEX
02722  M01S02241.ns2643  ---|          STD    S1
02723  M01S02242.ns2643  ---|          SHN    -14         SET *PUT* ORDINAL
02724  M01S02243.ns2643  ---|          STD    PO
02725  M01S02244.ns2643  ---|          CPTA   UNCT,A      READ *PUT* ENTRY
Line S00004 Modification History
M01 (Added by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
02726  M01S00004.ns2643  +++| SUQ2     SHN    21          SET *PUT* ORDINAL
02727  M01S00005.ns2643  +++|          STD    PO
02728  M01S00006.ns2643  +++|          SHN    -21
02729  M01S00007.ns2643  +++|          STD    S1          SET CHANNEL BYTE INDEX
02730  M01S00008.ns2643  +++|          CPTA   UNCT        READ *PUT* ENTRY
02731  M00S02245.1xy     +++|          CRD    CM
02732  M00S02246.1xy     +++|          ADK    PILL-UNCT
02733  M00S02247.1xy     +++|          CRD    CN
02734  M00S02248.1xy     +++|          LDD    CN+3
02735  M00S02249.1xy     +++|          LPN    76
02736  M00S02250.1xy     +++|          NJN    SUQ8        IF SPECIAL REQUESTS PRESENT
02737  M00S02251.1xy     +++|          LDD    CM
02738  M00S02252.1xy     +++|          SHN    21-13
02739  M00S02253.1xy     +++|          MJN    SUQ7        IF UNIT INTERLOCK SET
02740  M00S02254.1xy     +++|          LDD    CM+3
Line S02255 Modification History
M01 (Removed by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
02741  M01S02255.ns2643  ---| SUQ3     ZJN    SUQ7        IF NO REQUEST IN QUEUE
Line S00009 Modification History
M01 (Added by) ns2643
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02742  M02S00009.ns2769  ---| SUQ3     ZJN    SUQ3.1      IF NO REQUEST IN QUEUE
Line S02256 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02743  M01S02256.ns2769  ---|          STD    CB          SAVE BUFFER ORDINAL
Line S00136 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02744  M01S00136.ns2769  +++|          NJN    SUQ3        IF REQUEST IN QUEUE
02745  M01S00137.ns2769  +++| SUQ2.1   UJN    SUQ7        PROCESS NEXT *PUT*
02746  M01S00138.ns2769  +++|
02747  M01S00139.ns2769  +++| SUQ3     STD    CB          SAVE BUFFER ORDINAL
02748  M00S02257.1xy     +++|          CCBA   IOLK,A      READ *CBT* ENTRY
02749  M00S02258.1xy     +++|          CRD    CN
02750  M00S02259.1xy     +++|          ADK    HSLK-IOLK
02751  M00S02260.1xy     +++|          CRD    T1
02752  M00S02261.1xy     +++|          SFA    EST,CM+1    READ EST ENTRY
02753  M00S02262.1xy     +++|          ADK    EQDE
02754  M00S02263.1xy     +++|          CRD    CM
02755  M00S02264.1xy     +++|          LDM    CM+1,S1
02756  M00S02265.1xy     +++|          SHN    -11
02757  M00S02266.1xy     +++|          LPN    3
Line S02267 Modification History
M01 (Removed by) ns2502
Seq #  *Modification Id* Act 
----------------------------+
02758  M01S02267.ns2502  ---|          ZJN    SUQ5        IF CHANNEL UP
02759  M01S02268.ns2502  ---|          LPN    2
02760  M01S02269.ns2502  ---|          ZJN    SUQ4        IF CHANNEL IDLE
Line S00001 Modification History
M01 (Added by) ns2502
Seq #  *Modification Id* Act 
----------------------------+
02761  M01S00001.ns2502  +++|          STD    T2          SAVE CHANNEL STATE INDICATOR
02762  M01S00002.ns2502  +++|          LMN    3
02763  M01S00003.ns2502  +++|          NJN    SUQ4        IF CHANNEL NOT DOWN
Line S02270 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02764  M01S02270.ns2769  ---| SUQ3.1   LJM    SUQ7        PROCESS NEXT *PUT*
Line S00140 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02765  M01S00140.ns2769  +++| SUQ3.1   UJN    SUQ2.1      PROCESS NEXT *PUT*
02766  M00S02271.1xy     +++|
02767  M00S02272.1xy     +++| SUQ4     LDD    T1
02768  M00S02273.1xy     +++|          SHN    0-12
Line S02274 Modification History
M01 (Removed by) ns2502
Seq #  *Modification Id* Act 
----------------------------+
02769  M01S02274.ns2502  ---|          ZJN    SUQ3        IF NOT CHANNEL SPECIFIC REQUEST
Line S00004 Modification History
M01 (Added by) ns2502
Seq #  *Modification Id* Act 
----------------------------+
02770  M01S00004.ns2502  +++|          ZJN    SUQ4.1      IF NOT CHANNEL SPECIFIC REQUEST
Line S02275 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02771  M01S02275.253l688 ---|          LDD    T1
02772  M01S02276.253l688 ---|          LPN    77
Line S00007 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02773  M01S00007.253l688 +++|          CCBA   PAD4        GET CHANNEL FROM CBT ENTRY
02774  M01S00008.253l688 +++|          CRD    CM
02775  M01S00009.253l688 +++|          LDD    CM
02776  M01S00010.253l688 +++|          SHN    -6
02777  M00S02277.1xy     +++|          LMD    IR+4
Line S02278 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02778  M01S02278.ns2769  ---|          NJN    SUQ3.1      IF OTHER CHANNEL SPECIFIED
Line S00005 Modification History
M01 (Added by) ns2502
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02779  M02S00005.ns2769  ---|          UJN    SUQ5        AVOID CHANNEL STATE CHECK
02780  M02S00006.ns2769  ---|
Line S00141 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02781  M01S00141.ns2769  +++|          STD    T2
Line S00007 Modification History
M01 (Added by) ns2502
Seq #  *Modification Id* Act 
----------------------------+
02782  M01S00007.ns2502  +++| SUQ4.1   LDD    T2
02783  M01S00008.ns2502  +++|          NJN    SUQ3.1      IF THIS CHANNEL IN IDLE STATE
Line S02279 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02784  M01S02279.ns2769  ---| SUQ5     LDD    CN          SET/CLEAR READ/WRITE FLAG
Line S00142 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02785  M01S00142.ns2769  +++|          LDD    CN          SET/CLEAR READ/WRITE FLAG
02786  M00S02280.1xy     +++|          SHN    0-11
02787  M00S02281.1xy     +++|          LPN    1
02788  M00S02282.1xy     +++|          STD    RW
02789  M00S02283.1xy     +++|          SHN    13-0
02790  M00S02284.1xy     +++|          ADN    1
02791  M00S02285.1xy     +++|          STD    TB
02792  M00S02286.1xy     +++|          LDD    T1
02793  M00S02287.1xy     +++|          SHN    0-13
02794  M00S02288.1xy     +++|          STD    ER          SET/CLEAR RECOVERY IN PROGRESS FLAG
02795  M00S02289.1xy     +++|          ZJN    SUQ6        IF NOT ERROR RECOVERY
02796  M00S02290.1xy     +++|          LDD    T1          SAVE ERROR CODE
Line S02291 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02797  M01S02291.253l688 ---|          SHN    -6
02798  M01S02292.253l688 ---|          LPN    17
Line S00011 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02799  M01S00011.253l688 +++|          LPN    77
02800  M00S02293.1xy     +++|          STD    T1
02801  M00S02294.1xy     +++|          LMC    7777        COMPLEMENT ERROR CODE
02802  M00S02295.1xy     +++|          STD    EC
Line S02296 Modification History
M01 (Removed by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02803  M01S02296.ns2732a ---|          LDM    TREC,T1     SET RETRY COUNT = LIMIT/2
Line S00025 Modification History
M01 (Added by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02804  M01S00025.ns2732a +++|          LDM    TREC,T1     SET RETRY COUNT = LIMIT/2+1
02805  M00S02297.1xy     +++|          SHN    -1
Line S00026 Modification History
M01 (Added by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
02806  M01S00026.ns2732a +++|          ADN    1
Line S02298 Modification History
M01 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
02807  M01S02298.ns2732  ---|          SBN    1
02808  M00S02299.1xy     +++|          STD    RC          INITIALIZE RETRY COUNT
Line S00011 Modification History
M01 (Added by) ns2560
Seq #  *Modification Id* Act 
----------------------------+
02809  M01S00011.ns2560  +++|          LDN    0           INITIALIZE PASS COUNTER
02810  M01S00012.ns2560  +++|          STM    ERRA
02811  M00S02300.1xy     +++|          RJM    ERR         CALL ERROR PROCESSOR
02812  M00S02301.1xy     +++|*         LJM    MST         ERROR PROCESSOR RETURNS TO *MST*
02813  M00S02302.1xy     +++|
02814  M00S02303.1xy     +++| SUQ6     LDD    TI          SET SCAN LIMIT
02815  M00S02304.1xy     +++|          LMC    LMNI
02816  M00S02305.1xy     +++|          STM    SUQA
02817  M00S02306.1xy     +++|          LJM    SUQX        RETURN
02818  M00S02307.1xy     +++| TEP      SPACE  4,30
02819  M00S02308.1xy     +++|**        TEP - TERMINATE ERROR PROCESSING.
02820  M00S02309.1xy     +++|*
02821  M00S02310.1xy     +++|*         THIS ROUTINE PERFORMS OPERATIONS NECESSARY TO RESTORE THE
02822  M00S02311.1xy     +++|*         DRIVER TO ITS NORMAL STATE (NON-ERROR PROCESSING).
02823  M00S02312.1xy     +++|*
02824  M00S02313.1xy     +++|*         ENTRY  (EC) = ERROR CODE.
02825  M00S02314.1xy     +++|*                (PO) = *PUT* ORDINAL.
02826  M00S02315.1xy     +++|*                (RS) = RECOVERY STATUS.
02827  M00S02316.1xy     +++|*                (RW) = READ/WRITE FLAG.
02828  M00S02317.1xy     +++|*
02829  M00S02318.1xy     +++|*         EXIT   (EC) = 0.
02830  M00S02319.1xy     +++|*                (ER) = 0.
02831  M00S02320.1xy     +++|*                (RC) = 0.
02832  M00S02321.1xy     +++|*                (RS) = RECOVERY STATUS.
02833  M00S02322.1xy     +++|*                       0    RECOVERED BY CONTROLLER.
02834  M00S02323.1xy     +++|*                       1    RECOVERED BY DRIVER.
02835  M00S02324.1xy     +++|*                       2    UNRESOLVED.
02836  M00S02325.1xy     +++|*                       3    UNRECOVERED.
02837  M00S02326.1xy     +++|*
02838  M00S02327.1xy     +++|*         USES   EC, ER, IL, RC, RS, S2, T1, T2, CM - CM+4.
02839  M00S02328.1xy     +++|*
02840  M00S02329.1xy     +++|*         CALLS  IBM, RHR, RPI.
02841  M00S02330.1xy     +++|*
02842  M00S02331.1xy     +++|*         MACROS MONITOR.
02843  M00S02332.1xy     +++|
02844  M00S02333.1xy     +++|
Line S00143 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02845  M01S00143.ns2769  +++| TEP4     LDN    0
02846  M01S00144.ns2769  +++|          STD    EC          CLEAR ERROR CODE
02847  M01S00145.ns2769  +++|          STD    ER          CLEAR RECOVERY IN PROGRESS FLAG
02848  M01S00146.ns2769  +++|          STD    RC          CLEAR RETRY COUNT
02849  M01S00147.ns2769  +++|          STM    TEPA        CLEAR VERIFICATION/INTERLOCK REJECT FLAG
02850  M01S00148.ns2769  +++|
02851  M00S02334.1xy     +++| TEP      SUBR               ENTRY/EXIT
02852  M00S02335.1xy     +++|          LDD    RW
02853  M00S02336.1xy     +++|          SHN    1
02854  M00S02337.1xy     +++|          STD    T1
02855  M00S02338.1xy     +++|          LDM    TEPB,T1     RESTORE INSTRUCTIONS
02856  M00S02339.1xy     +++|          STD    T2
02857  M00S02340.1xy     +++|          LDM    TEPB+1,T1
02858  M00S02341.1xy     +++|          STI    T2
02859  M00S02342.1xy     +++|          LDM    TEPC,T1
02860  M00S02343.1xy     +++|          STD    T2
02861  M00S02344.1xy     +++|          LDM    TEPC+1,T1
02862  M00S02345.1xy     +++|          STI    T2
02863  M00S02346.1xy     +++|          LDC    **
02864  M00S02347.1xy     +++| TEPA     EQU    *-1
02865  M00S02348.1xy     +++|          NJP    TEP4        IF OTHER DRIVER IS HANDLING ERROR
02866  M00S02349.1xy     +++|          LDD    EC          SAVE ERROR CODE IN CASE FUNCTION TIMEOUT
02867  M00S02350.1xy     +++|          STD    S2
02868  M00S02351.1xy     +++|          RJM    RHR         RELEASE HARDWARE RESERVES
02869  M00S02352.1xy     +++|          LDD    S2          RESTORE ERROR CODE
02870  M00S02353.1xy     +++|          STD    EC
02871  M00S02354.1xy     +++|          LDD    RS
02872  M00S02355.1xy     +++|          LMN    2
02873  M00S02356.1xy     +++|          NJN    TEP2        IF NOT UNRESOLVED ERROR
02874  M00S02357.1xy     +++|
02875  M00S02358.1xy     +++|*         ISSUING SUBFUNCTION *IOES* OF THE *BIOM* MONITOR FUNCTION
02876  M00S02359.1xy     +++|*         CAUSES ONE OF THE FOLLOWING TO OCCUR -
02877  M00S02360.1xy     +++|*                A. IF THE RECOVERY IN PROGRESS FLAG IS SET IN THE CBT
02878  M00S02361.1xy     +++|*                   ENTRY, THE REQUEST WILL BE TERMINATED WITH STATUS
02879  M00S02362.1xy     +++|*                   RETURNED TO THE PROGRAM THAT ISSUED THE REQUEST.
02880  M00S02363.1xy     +++|*                   IN THIS CASE IT IS THE RESPONSIBILITY OF THIS
02881  M00S02364.1xy     +++|*                   DRIVER TO ISSUE MESSAGES TO THE BML, ERROR LOG, JOB
02882  M00S02365.1xy     +++|*                   DAYFILE AND SYSTEM DAYFILE INDICATING AN
02883  M00S02366.1xy     +++|*                   UNRECOVERED ERROR OCCURRED.
02884  M00S02367.1xy     +++|*                B. IF THE RECOVERY IN PROGRESS FLAG IS CLEAR AND AN
02885  M00S02368.1xy     +++|*                   ALTERNATE CHANNEL EXISTS (WITH AN ACTIVE DRIVER),
02886  M00S02369.1xy     +++|*                   THE REQUEST WILL BE MODIFIED TO FORCE CONTINUATION
02887  M00S02370.1xy     +++|*                   OF ERROR RECOVERY BY THE OTHER DRIVER.
02888  M00S02371.1xy     +++|*                C. IF THE RECOVERY IN PROGRESS FLAG IS CLEAR BUT
02889  M00S02372.1xy     +++|*                   EITHER THERE IS NO ALTERNATE ACCESS PATH OR IT HAS
02890  M00S02373.1xy     +++|*                   BEEN DOWNED, THE REQUEST WILL BE MODIFIED TO FORCE
02891  M00S02374.1xy     +++|*                   CONTINUATION OF ERROR PROCESSING ON THIS CHANNEL.
02892  M00S02375.1xy     +++|
02893  M00S02376.1xy     +++|          LDN    SETS        SET SUBFUNCTION
02894  M00S02377.1xy     +++|          STD    CM+1
02895  M00S02378.1xy     +++|          LDD    PO          SET *PUT* ORDINAL
02896  M00S02379.1xy     +++|          STD    CM+2
02897  M00S02380.1xy     +++|          LDN    1
02898  M00S02381.1xy     +++|          STD    CM+3
02899  M00S02382.1xy     +++|          LDD    EC          SET ERROR CODE
02900  M00S02383.1xy     +++|          STD    CM+4
02901  M00S02384.1xy     +++|          MONITOR  BIOM
02902  M00S02385.1xy     +++|          STD    IL          CLEAR *PUT* INTERLOCK FLAG
02903  M00S02386.1xy     +++|          LDD    CM+1
02904  M00S02387.1xy     +++|          ZJN    TEP2        IF PROCESSING WILL RESUME ON OTHER CHANNEL
02905  M00S02388.1xy     +++|          AOD    RS          SET UNRECOVERED STATUS
02906  M00S02389.1xy     +++|
02907  M00S02390.1xy     +++|*         ISSUE THE BML MESSAGE AND INCREMENT ERROR COUNTERS IF
02908  M00S02391.1xy     +++|*         APPROPRIATE FOR THIS ERROR TYPE AND RESOLUTION OF THE ERROR
02909  M00S02392.1xy     +++|*         HAS BEEN DETERMINED.
02910  M00S02393.1xy     +++|
02911  M00S02394.1xy     +++| TEP2     LDD    RS
02912  M00S02395.1xy     +++|          LMN    2
02913  M00S02396.1xy     +++|          ZJN    TEP3        IF UNRESOLVED ERROR
02914  M00S02397.1xy     +++|          RJM    RPI         RELEASE *PUT* INTERLOCK
02915  M00S02398.1xy     +++| TEP3     RJM    IBM         ISSUE BML MESSAGE
02916  M00S02399.1xy     +++|
02917  M00S02400.1xy     +++|*         CLEAR B-DISPLAY MESSAGE.
02918  M00S02401.1xy     +++|
02919  M00S02402.1xy     +++|          LDK    ZERL
02920  M00S02403.1xy     +++|          CRD    CM
02921  M00S02404.1xy     +++|          LDD    CP
02922  M00S02405.1xy     +++|          ADK    MS2W
02923  M00S02406.1xy     +++|          CWD    CM
Line S02407 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02924  M01S02407.ns2769  ---| TEP4     LDN    0
02925  M01S02408.ns2769  ---|          STD    EC          CLEAR ERROR CODE
02926  M01S02409.ns2769  ---|          STD    ER          CLEAR RECOVERY IN PROGRESS FLAG
02927  M01S02410.ns2769  ---|          STD    RC          CLEAR RETRY COUNT
02928  M01S02411.ns2769  ---|          STM    TEPA        CLEAR VERIFICATION/INTERLOCK REJECT FLAG
02929  M01S02412.ns2769  ---|          LJM    TEPX        RETURN
Line S00149 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
02930  M01S00149.ns2769  +++|          UJP    TEP4        CONTINUE CLEARING AND RETURN
02931  M00S02413.1xy     +++|
02932  M00S02414.1xy     +++|
02933  M00S02415.1xy     +++| TEPB     BSS    0
02934  M00S02416.1xy     +++|          CON    RIOC,ZJNI+RIO12-RIOC
02935  M00S02417.1xy     +++|          CON    WIOC,ZJNI+WIO8-WIOC
02936  M00S02418.1xy     +++|
02937  M00S02419.1xy     +++|          ERRNG  RIO12-RIOC  CODE DEPENDS ON VALUE
02938  M00S02420.1xy     +++|          ERRNG  WIO8-WIOC   CODE DEPENDS ON VALUE
02939  M00S02421.1xy     +++|
02940  M00S02422.1xy     +++| TEPC     BSS    0
02941  M00S02423.1xy     +++|          CON    RIOA,LDNI+FCRD
02942  M00S02424.1xy     +++|          CON    WIOA,LDNI+FCWR
02943  M00S02425.1xy     +++| WFT      SPACE  4,25
02944  M00S02426.1xy     +++|**        WFT - WAIT FOR TRANSFER COMPLETE.
02945  M00S02427.1xy     +++|*
02946  M00S02428.1xy     +++|*         ENTRY  (RW) = READ/WRITE FLAG.
02947  M00S02429.1xy     +++|*
02948  M00S02430.1xy     +++|*         EXIT   (A) .LT. 0  IF ERROR ENCOUNTERED.
02949  M00S02431.1xy     +++|*                    .EQ. 0  IF NO CONSECUTIVE REQUEST FOUND.
02950  M00S02432.1xy     +++|*                    .GT. 0  IF CONSECUTIVE REQUEST FOUND.
02951  M00S02433.1xy     +++|*
02952  M00S02434.1xy     +++|*         USES   CB, PB, T1, CM - CM+4, CN - CN+4.
02953  M00S02435.1xy     +++|*
02954  M00S02436.1xy     +++|*         CALLS  CCS, FNC, FNN, IFI, IIC.
02955  M00S02437.1xy     +++|
02956  M00S02438.1xy     +++|
02957  M00S02439.1xy     +++| WFT10    LDC    FCCD        CLEAR DMA MODE
02958  M00S02440.1xy     +++|          RJM    FNN
02959  M00S02441.1xy     +++|          MJN    WFTX        IF ERROR ENCOUNTERED
02960  M00S02442.1xy     +++|          LDD    NB
02961  M00S02443.1xy     +++|
02962  M00S02444.1xy     +++| WFT      SUBR               ENTRY/EXIT
02963  M00S02445.1xy     +++|          RJM    IIC         ISSUE I/O COMPLETION REQUEST IF NECESSARY
02964  M00S02446.1xy     +++|          RJM    CCS         CHECK FOR CONSECUTIVE REQUEST
02965  M00S02447.1xy     +++|          LDD    CB          ADVANCE BUFFER POINTERS
02966  M00S02448.1xy     +++|          STD    PB
02967  M00S02449.1xy     +++|          LDD    NB
02968  M00S02450.1xy     +++|          STD    CB
02969  M00S02451.1xy     +++|          RJM    IFI         INITIALIZE FOR NEXT REQUEST
02970  M00S02452.1xy     +++|          LDK    RTCL
02971  M00S02453.1xy     +++|          CRD    CN
02972  M00S02454.1xy     +++|          LDD    NB
02973  M00S02455.1xy     +++|          ZJN    WFT1        IF NO CONSECUTIVE REQUEST
02974  M00S02456.1xy     +++|          LDD    RW
02975  M00S02457.1xy     +++|          ZJN    WFT1        IF READ OPERATION
02976  M00S02458.1xy     +++|          LDN    HLEN/5
02977  M00S02459.1xy     +++|          STD    T1          SET LENGTH OF HEADER
02978  M00S02460.1xy     +++|          CCBA   PAD1        READ HEADER INTO BUFFER
02979  M00S02461.1xy     +++|          CRM    BUFF,T1
02980  M00S02462.1xy     +++| WFT1     LDC    RTCL        CHECK TIMEOUT ON TRANSFER
02981  M00S02463.1xy     +++|          CRD    CM
02982  M00S02464.1xy     +++|          LDD    CM+4
02983  M00S02465.1xy     +++|          SBD    CN+4
02984  M00S02466.1xy     +++|          PJN    WFT2        IF NO UNDERFLOW
02985  M00S02467.1xy     +++|          ADC    10000
02986  M00S02468.1xy     +++| WFT2     SBN    60
Line S00001 Modification History
M01 (Added by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
02987  M01S00001.1xy1    +++|          SHN    21-13       ALLOW FOR CLOCK ADJUSTMENT
02988  M00S02469.1xy     +++|          PJN    WFT4        IF TIMEOUT ON TRANSFER
02989  M00S02470.1xy     +++|          LDC    FCRO        READ OPERATIONAL STATUS
02990  M00S02471.1xy     +++|          RJM    FNC
02991  M00S02472.1xy     +++|          PJN    WFT2.2      IF NO ERROR PROCESSING FUNCTION
02992  M00S02473.1xy     +++| WFT2.1   LMD    EC
02993  M00S02474.1xy     +++|          UJN    WFT4.1      PROCESS THE ERROR
02994  M00S02475.1xy     +++|
02995  M00S02476.1xy     +++| WFT2.2   LDC    1701
02996  M00S02477.1xy     +++| WFT3     EQU    *-1
02997  M00S02478.1xy     +++|          FJM    WFT5,CH     IF CHANNEL FULL
02998  M00S02479.1xy     +++|          NJN    WFT3        IF NOT TIMEOUT
02999  M00S02480.1xy     +++| WFT4     LDN    CHFE        INDICATE CHANNEL ERROR
03000  M00S02481.1xy     +++| WFT4.1   LJM    WFT9        PROCESS THE ERROR
03001  M00S02482.1xy     +++|
03002  M00S02483.1xy     +++| WFT5     IAN    CH          READ OPERATIONAL STATUS
03003  M00S02484.1xy     +++|          STD    CM+1
03004  M00S02485.1xy     +++|          DCN    CH+40
Line S02486 Modification History
M01 (Removed by) 1xy6
Seq #  *Modification Id* Act 
----------------------------+
03005  M01S02486.1xy6    ---|          SHN    21-2        CHECK IF TRANSFER HALTED
03006  M01S02487.1xy6    ---|          MJN    WFT6        IF TRANSFER HALTED
03007  M01S02488.1xy6    ---|          SHN    21-0-21+2
Line S00001 Modification History
M01 (Added by) 1xy6
Seq #  *Modification Id* Act 
----------------------------+
03008  M01S00001.1xy6    +++|          SHN    21-0
Line S02489 Modification History
M01 (Removed by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03009  M01S02489.1xy1    ---|          MJN    WFT1        IF TRANSFER IN PROGRESS
Line S00002 Modification History
M01 (Added by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03010  M01S00002.1xy1    +++|          MJP    WFT1        IF TRANSFER IN PROGRESS
03011  M00S02490.1xy     +++| WFT6     LDN    CHPE
03012  M00S02491.1xy     +++|          SFM    WFT9,CH     IF CHANNEL PARITY ERROR
03013  M00S02492.1xy     +++|          LDC    FCRT        READ T REGISTER
03014  M00S02493.1xy     +++|          RJM    FNC
03015  M00S02494.1xy     +++|          MJN    WFT2.1      IF ERROR ENCOUNTERED
03016  M00S02495.1xy     +++|          LDC    1701
03017  M00S02496.1xy     +++| WFT7     EQU    *-1
03018  M00S02497.1xy     +++|          FJM    WFT8,CH     IF DATA PRESENT
03019  M00S02498.1xy     +++|          NJN    WFT7        IF NOT END OF DELAY
03020  M00S02499.1xy     +++|          LDN    CHFE        INDICATE CHANNEL ERROR
03021  M00S02500.1xy     +++|          UJN    WFT9        PROCESS THE ERROR
03022  M00S02501.1xy     +++|
03023  M00S02502.1xy     +++| WFT8     LDN    3
03024  M00S02503.1xy     +++|          IAM    CM,CH
03025  M00S02504.1xy     +++|          LDN    CHPE
03026  M00S02505.1xy     +++|          SFM    WFT9,CH     IF CHANNEL PARITY ERROR
03027  M00S02506.1xy     +++|          DCN    CH+40
Line S00002 Modification History
M01 (Added by) 1xy6
Seq #  *Modification Id* Act 
----------------------------+
03028  M01S00002.1xy6    +++|          LDML   WTRA+2
03029  M01S00003.1xy6    +++|          ADC    40000       INCREMENT TRANSFER ADDRESS
03030  M01S00004.1xy6    +++|          STDL   CM+4
03031  M01S00005.1xy6    +++|          SHN    -20
03032  M01S00006.1xy6    +++|          ADML   WTRA+1
03033  M01S00007.1xy6    +++|          STDL   CM+3
03034  M01S00008.1xy6    +++|          LMDL   CM+1
03035  M01S00009.1xy6    +++|          NJN    WFT8.1      IF NOT THE CORRECT ADDRESS
03036  M01S00010.1xy6    +++|          LDDL   CM+2
03037  M01S00011.1xy6    +++|          LMDL   CM+4
03038  M01S00012.1xy6    +++|          NJN    WFT8.1      IF NOT THE CORRECT ADDRESS
03039  M00S02507.1xy     +++|          LDDL   CM
03040  M00S02508.1xy     +++|          ZJP    WFT10       IF BYTE COUNT IS ZERO
Line S02509 Modification History
M01 (Removed by) 1xy6
Seq #  *Modification Id* Act 
----------------------------+
03041  M01S02509.1xy6    ---|          LDN    IDTE        INDICATE INCOMPLETE DATA TRANSFER
Line S00013 Modification History
M01 (Added by) 1xy6
Seq #  *Modification Id* Act 
----------------------------+
03042  M01S00013.1xy6    +++| WFT8.1   LDN    IDTE        INDICATE INCOMPLETE DATA TRANSFER
03043  M00S02510.1xy     +++| WFT9     STD    CM          SAVE ERROR CODE
03044  M00S02511.1xy     +++|          LDD    PB          RESTORE CURRENT BUFFER ORDINAL
03045  M00S02512.1xy     +++|          STD    CB
03046  M00S02513.1xy     +++|          LDN    0           AVOID COMPLETION OF CURRENT REQUEST
03047  M00S02514.1xy     +++|          STD    PB
03048  M00S02515.1xy     +++|          LCN    0
03049  M00S02516.1xy     +++|          LMD    CM          COMPLEMENT ERROR CODE
03050  M00S02517.1xy     +++|          LJM    WFTX        RETURN
03051  M00S02518.1xy     +++| WIO      SPACE  4,40
03052  M00S02519.1xy     +++|**        WIO - PERFORM WRITE I/O OPERATIONS.
03053  M00S02520.1xy     +++|*
03054  M00S02521.1xy     +++|*         ENTRY  (CB) = CURRENT BUFFER ORDINAL.
03055  M00S02522.1xy     +++|*                (EP) = 0.
03056  M00S02523.1xy     +++|*                (PB) = 0.
03057  M00S02524.1xy     +++|*
03058  M00S02525.1xy     +++|*         EXIT   (PB) = ORDINAL OF LAST BUFFER PROCESSED.
03059  M00S02526.1xy     +++|*
03060  M00S02527.1xy     +++|*         USES   CB, EC, EP, NB, PB, T1.
03061  M00S02528.1xy     +++|*
03062  M00S02529.1xy     +++|*         CALLS  ERR, FNC, FNN, GGS, IFI, WFT, WTR.
03063  M00S02530.1xy     +++|*
03064  M00S02531.1xy     +++|*         MACROS CCBA.
03065  M00S02532.1xy     +++|
03066  M00S02533.1xy     +++|
03067  M00S02534.1xy     +++| WIO      SUBR               ENTRY/EXIT
03068  M00S02535.1xy     +++|          RJM    IFI         INITIALIZE FOR I/O
03069  M00S02536.1xy     +++|          LDN    HLEN/5
03070  M00S02537.1xy     +++|          STD    T1          SET LENGTH OF HEADER
03071  M00S02538.1xy     +++|          CCBA   PAD1        READ HEADER INTO BUFFER
03072  M00S02539.1xy     +++|          CRM    BUFF,T1
03073  M00S02540.1xy     +++| WIO1     RJM    WTR         WRITE T PRIME REGISTER
03074  M00S02541.1xy     +++|          MJN    WIO3        IF ERROR ENCOUNTERED
03075  M00S02542.1xy     +++|          LDN    FCWR        ISSUE WRITE FUNCTION
03076  M00S02543.1xy     +++|*         LDN    FCCO        (CONTROLLER ERROR RECOVERY IN PROGRESS)
03077  M00S02544.1xy     +++| WIOA     EQU    *-1
03078  M00S02545.1xy     +++|          RJM    FNN
03079  M00S02546.1xy     +++|          PJN    WIO2        IF NO ERROR
03080  M00S02547.1xy     +++|          AOD    EP          SET PREVIOUS SECTOR ERROR FLAG
03081  M00S02548.1xy     +++|          UJN    WIO3        CALL ERROR PROCESSOR
03082  M00S02549.1xy     +++|
03083  M00S02550.1xy     +++| WIO2     LDC    FCDO+HLEN   INITIATE THE DMA TRANSFER
03084  M00S02551.1xy     +++|          RJM    FNC
03085  M00S02552.1xy     +++|          MJN    WIO3        IF ERROR ENCOUNTERED
03086  M00S02553.1xy     +++|          LDN    HLEN        OUTPUT HEADER DATA
03087  M00S02554.1xy     +++|          OAM    BUFF,CH
03088  M00S02555.1xy     +++|          ZJN    WIO4        IF NO DATA TRANSFER ERROR
03089  M00S02556.1xy     +++|          LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
03090  M00S02557.1xy     +++|          STD    EC
03091  M00S02558.1xy     +++| WIO3     RJM    ERR         CALL ERROR PROCESSOR
03092  M00S02559.1xy     +++|
03093  M00S02560.1xy     +++| WIO4     DCN    CH+40
03094  M00S02561.1xy     +++|          RJM    WFT         WAIT TRANSFER TO COMPLETE
03095  M00S02562.1xy     +++|          PJN    WIO7        IF NO ERRORS ENCOUNTERED
03096  M00S02563.1xy     +++|          STD    EC          SET ERROR CODE
03097  M00S02564.1xy     +++| WIO5     UJN    WIO3        CALL ERROR PROCESSOR
03098  M00S02565.1xy     +++|
03099  M00S02566.1xy     +++| WIO7     ZJN    WIO8        IF NO CONSECUTIVE REQUEST
03100  M00S02567.1xy     +++|*         UJN    WIO8        (ERROR RECOVERY IN PROGRESS)
03101  M00S02568.1xy     +++| WIOC     EQU    *-1
03102  M00S02569.1xy     +++|          LDN    0           CLEAR NEXT BUFFER ORDINAL
03103  M00S02570.1xy     +++|          STD    NB
03104  M00S02571.1xy     +++|          LJM    WIO1        PROCESS NEXT REQUEST
03105  M00S02572.1xy     +++|
03106  M00S02573.1xy     +++| WIO8     RJM    GGS         GET GENERAL STATUS
03107  M00S02574.1xy     +++|          ZJP    WIOX        IF NO ERROR
03108  M00S02575.1xy     +++|          LDD    PB          BACK UP TO PREVIOUS BUFFER
03109  M00S02576.1xy     +++|          STD    CB
03110  M00S02577.1xy     +++|          LDN    0           AVOID BUFFER COMPLETION
03111  M00S02578.1xy     +++|          STD    PB
03112  M00S02579.1xy     +++|          UJN    WIO5        CALL ERROR PROCESSOR
03113  M00S02580.1xy     +++| WTR      SPACE  4,10
03114  M00S02581.1xy     +++|**        WTR - WRITE *T* REGISTER.
03115  M00S02582.1xy     +++|*
03116  M00S02583.1xy     +++|*         ENTRY  (UA - UA+1) = UEM ADDRESS/100B TO TRANSFER TO/FROM.
03117  M00S02584.1xy     +++|*
03118  M00S02585.1xy     +++|*         EXIT   (A) .LT. 0, IF CHANNEL ERROR.
03119  M00S02586.1xy     +++|*
03120  M00S02587.1xy     +++|*         CALLS  FNC.
03121  M00S02588.1xy     +++|
03122  M00S02589.1xy     +++|
03123  M00S02590.1xy     +++| WTR      SUBR               ENTRY/EXIT
03124  M00S02591.1xy     +++|          LDD    UA+1
03125  M00S02592.1xy     +++|          SHN    11
03126  M00S02593.1xy     +++|          SCN    7
03127  M00S02594.1xy     +++|          STML   WTRA+2      FORM ABSOLUTE UEM ADDRESS
03128  M00S02595.1xy     +++|          LDD    UA
03129  M00S02596.1xy     +++|          SHN    14
03130  M00S02597.1xy     +++|          LMD    UA+1
03131  M00S02598.1xy     +++|          SHN    11-20       SET IN *T* REGISTER
03132  M00S02599.1xy     +++|          STM    WTRA+1
03133  M00S02600.1xy     +++|          LDC    FCWT        ISSUE WRITE *T* REGISTER FUNCTION
03134  M00S02601.1xy     +++|          RJM    FNC
03135  M00S02602.1xy     +++|          MJN    WTRX        IF ERROR ENCOUNTERED
03136  M00S02603.1xy     +++|          LDN    3           SET BLOCK LENGTH
03137  M00S02604.1xy     +++|          OAM    WTRA,CH     OUTPUT BUFFER PARAMETERS
03138  M00S02605.1xy     +++|          NJN    WTR5        IF TRANSFER NOT COMPLETE
03139  M00S02606.1xy     +++| WTR1     ADD    ON
03140  M00S02607.1xy     +++|          EJM    WTR4,CH     IF DATA ACCEPTED
03141  M00S02608.1xy     +++|          NJN    WTR1        IF TIMEOUT NOT COMPLETE
03142  M00S02609.1xy     +++| WTR2     DCN    CH+40
03143  M00S02610.1xy     +++|          LCN    CHFE        INDICATE *CHANNEL FAILURE* ERROR
03144  M00S02611.1xy     +++| WTR3     STD    EC
03145  M00S02612.1xy     +++| WTR4     DCN    CH+40
03146  M00S02613.1xy     +++|          UJP    WTRX        RETURN
03147  M00S02614.1xy     +++|
03148  M00S02615.1xy     +++| WTR5     LCN    IDTE        INDICATE *INCOMPLETE DATA TRANSFER* ERROR
03149  M00S02616.1xy     +++|          UJN    WTR3        PROCESS THE ERROR
03150  M00S02617.1xy     +++|
03151  M00S02618.1xy     +++| WTRA     BSS    0           *T* REGISTER BUFFER
03152  M00S02619.1xy     +++|          CON    0000        BYTE LENGTH OF I/O TRANSFER
03153  M00S02620.1xy     +++|          CON    0,0         UEM ADDRESS OF BUFFER
03154  M00S02621.1xy     +++| WTC      SPACE  4,25
03155  M00S02622.1xy     +++|**        WTC - WRITE CONTROL INFORMATION TO THE CBT.
03156  M00S02623.1xy     +++|*
03157  M00S02624.1xy     +++|*         THIS ROUTINE WRITES THE LINKAGE BYTES AND SHORT PRU FLAGS
03158  M00S02625.1xy     +++|*         IN THE CBT ENTRY.
03159  M00S02626.1xy     +++|*
03160  M00S02627.1xy     +++|*         ENTRY  (BUFF) = HEADER DATA.
03161  M00S02628.1xy     +++|*                (UA - UA+1) = UEM ADDRESS.
03162  M00S02629.1xy     +++|*
03163  M00S02630.1xy     +++|*         USES   CM - CM+4, T1 - T4.
03164  M00S02631.1xy     +++|
03165  M00S02632.1xy     +++|
03166  M00S02633.1xy     +++| WTC      SUBR               ENTRY/EXIT
03167  M00S02634.1xy     +++|          LDN    0
03168  M00S02635.1xy     +++|          ERRNZ  PAD1        CODE DEPENDS ON VALUE
03169  M00S02636.1xy     +++|          STD    T1
03170  M00S02637.1xy     +++|          LDC    BUFF+3-4
03171  M00S02638.1xy     +++|          STD    T2
03172  M00S02639.1xy     +++|
03173  M00S02640.1xy     +++|*         GET SHORT PRU FLAGS, VALID DATA FLAGS AND LINKAGE BYTES FROM
03174  M00S02641.1xy     +++|*         SECTOR HEADER AND STORE THEM IN THE CBT ENTRY.
03175  M00S02642.1xy     +++|
03176  M00S02643.1xy     +++| WTC1     LDN    4           ADVANCE SECTOR BUFFER ADDRESS
03177  M00S02644.1xy     +++|          RAD    T2
03178  M00S02645.1xy     +++|          CCBA   PAD1
03179  M00S02646.1xy     +++|          ADD    T1
03180  M00S02647.1xy     +++|          CRD    CM
03181  M00S02648.1xy     +++|          STD    T4
03182  M00S02649.1xy     +++|          SHN    -14
03183  M00S02650.1xy     +++|          STD    T3
03184  M00S02651.1xy     +++|          LDI    T2          STORE SHORT PRU AND VALID DATA FLAGS
03185  M00S02652.1xy     +++|          STD    CM+3
03186  M00S02653.1xy     +++|          AOD    T2
03187  M00S02654.1xy     +++|          LDI    T2          STORE LINKAGE BYTE
03188  M00S02655.1xy     +++|          STD    CM+4
03189  M00S02656.1xy     +++|          LDD    T3
03190  M00S02657.1xy     +++|          SHN    14
03191  M00S02658.1xy     +++|          LMD    T4
03192  M00S02659.1xy     +++|          CWD    CM
03193  M00S02660.1xy     +++|          AOD    T1          INCREMENT WORD INDEX
03194  M00S02661.1xy     +++|          LMN    PAD4+1
03195  M00S02662.1xy     +++|          NJN    WTC1        IF NOT FINISHED
03196  M00S02663.1xy     +++|          UJN    WTCX        RETURN
03197  M00S02664.1xy     +++| 1XY      SPACE  4,10
03198  M00S02665.1xy     +++|*         COMMON DECKS.
03199  M00S02666.1xy     +++|
03200  M00S02667.1xy     +++|
03201  M00S02668.1xy     +++|*CALL     COMPC2D
Line S00150 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03202  M01S00150.ns2769  +++|*CALL     COMPIMB
03203  M00S02669.1xy     +++|          TITLE  SPECIAL REQUEST PROCESSORS.
03204  M00S02670.1xy     +++| CBD      SPACE  4,15
03205  M00S02671.1xy     +++|**        CBD - CONVERT BINARY CODED DECIMAL TO DISPLAY CODE.
03206  M00S02672.1xy     +++|*
03207  M00S02673.1xy     +++|*         ENTRY  (A) = 10/,8/ 2 BCD DIGITS.
03208  M00S02674.1xy     +++|*                (CM+1) = ADDRESS IN ERRLOG MESSAGE WHERE RESULT IS
03209  M00S02675.1xy     +++|*                         TO BE STORED.
03210  M00S02676.1xy     +++|*                (CM+2) = ADDRESS IN BML MESSAGE WHERE RESULT IS TO
03211  M00S02677.1xy     +++|*                         BE STORED.
03212  M00S02678.1xy     +++|*
03213  M00S02679.1xy     +++|*         EXIT   CONVERTED DIGITS ADDED TO ERRLOG AND BML MESSAGES.
03214  M00S02680.1xy     +++|*                (CM+1) AND (CM+2) INCREMENTED.
03215  M00S02681.1xy     +++|*
03216  M00S02682.1xy     +++|*         USES   T0.
03217  M00S02683.1xy     +++|
03218  M00S02684.1xy     +++|
03219  M00S02685.1xy     +++| CBD      SUBR               ENTRY/EXIT
03220  M00S02686.1xy     +++|          LPC    377         UNPACK DIGITS
03221  M00S02687.1xy     +++|          SHN    16          SAVE HIGH ORDER DIGIT
03222  M00S02688.1xy     +++|          STD    T0
03223  M00S02689.1xy     +++|          SCN    17
03224  M00S02690.1xy     +++|          SHN    -2          POSITION LOW ORDER DIGIT
03225  M00S02691.1xy     +++|          LMD    T0          MERGE HIGH ORDER DIGIT
03226  M00S02692.1xy     +++|          SHN    6
03227  M00S02693.1xy     +++|          ADC    2R00        CONVERT TO DISPLAY CODE
03228  M00S02694.1xy     +++|          STI    CM+1
03229  M00S02695.1xy     +++|          STI    CM+2
03230  M00S02696.1xy     +++|          AOD    CM+1
03231  M00S02697.1xy     +++|          AOD    CM+2
03232  M00S02698.1xy     +++|          UJN    CBDX        EXIT
03233  M00S02699.1xy     +++| CDD      SPACE  4,10
03234  M00S02700.1xy     +++|**        CDD - CONVERT TWO DIGITS TO DECIMAL DISPLAY CODE.
03235  M00S02701.1xy     +++|*
03236  M00S02702.1xy     +++|*         ENTRY  (A) = NUMBER TO CONVERT.
03237  M00S02703.1xy     +++|*
03238  M00S02704.1xy     +++|*         EXIT   (A) = DISPLAY CODE VALUE.
03239  M00S02705.1xy     +++|*
03240  M00S02706.1xy     +++|*         USES   T0 - T1.
03241  M00S02707.1xy     +++|
03242  M00S02708.1xy     +++|
03243  M00S02709.1xy     +++| CDD2     ADN    10D+1R0
03244  M00S02710.1xy     +++|          SHN    14          POSITION UNITS
03245  M00S02711.1xy     +++|          ADD    T0
03246  M00S02712.1xy     +++|          SHN    6
03247  M00S02713.1xy     +++|
03248  M00S02714.1xy     +++| CDD      SUBR               ENTRY/EXIT
03249  M00S02715.1xy     +++|          STD    T1          SAVE NUMBER
03250  M00S02716.1xy     +++|          LDN    1R0         PRESET TENS
03251  M00S02717.1xy     +++|          STD    T0
03252  M00S02718.1xy     +++| CDD1     LDD    T1          COUNT 10
03253  M00S02719.1xy     +++|          SBN    10D
03254  M00S02720.1xy     +++|          MJN    CDD2        IF CONVERSION COMPLETE
03255  M00S02721.1xy     +++|          STD    T1
03256  M00S02722.1xy     +++|          AOD    T0
03257  M00S02723.1xy     +++|          UJN    CDD1        LOOP TO END OF CONVERSION
03258  M00S02724.1xy     +++| CSD      SPACE  4,15
03259  M00S02725.1xy     +++|**        CSD - CONVERT SIX BCD DIGITS TO DISPLAY CODE.
03260  M00S02726.1xy     +++|*
03261  M00S02727.1xy     +++|*         ENTRY  (CM) = ADDRESS OF BCD DIGITS.
03262  M00S02728.1xy     +++|*                (CM+1) = STARTING ADDRESS IN ERRLOG MESSAGE WHERE
03263  M00S02729.1xy     +++|*                         RESULT IS TO BE STORED.
03264  M00S02730.1xy     +++|*                (CM+2) = STARTING ADDRESS IN BML MESSAGE WHERE RESULT
03265  M00S02731.1xy     +++|*                         IS TO BE STORED.
03266  M00S02732.1xy     +++|*
03267  M00S02733.1xy     +++|*         EXIT   DIGITS ADDED TO ERRLOG AND BML MESSAGES.
03268  M00S02734.1xy     +++|*                (CM - CM+2) EACH INCREMENTED TO POINT TO THE FIRST
03269  M00S02735.1xy     +++|*                BYTE AFTER THE ADDED DIGITS.
03270  M00S02736.1xy     +++|*
03271  M00S02737.1xy     +++|*         USES   CM.
03272  M00S02738.1xy     +++|*
03273  M00S02739.1xy     +++|*         CALLS  CBD.
03274  M00S02740.1xy     +++|
03275  M00S02741.1xy     +++|
03276  M00S02742.1xy     +++| CSD      SUBR               ENTRY/EXIT
03277  M00S02743.1xy     +++|          LDI    CM          CONVERT BCD DIGITS ONE AND TWO
03278  M00S02744.1xy     +++|          SHN    -4
03279  M00S02745.1xy     +++|          RJM    CBD
03280  M00S02746.1xy     +++|          LDI    CM          CONVERT BCD DIGITS THREE AND FOUR
03281  M00S02747.1xy     +++|          LPN    17
03282  M00S02748.1xy     +++|          SHN    14
03283  M00S02749.1xy     +++|          LMM    1,CM
03284  M00S02750.1xy     +++|          SHN    -10
03285  M00S02751.1xy     +++|          RJM    CBD
03286  M00S02752.1xy     +++|          AOD    CM
03287  M00S02753.1xy     +++|          LDI    CM          CONVERT BCD DIGITS FIVE AND SIX
03288  M00S02754.1xy     +++|          RJM    CBD
03289  M00S02755.1xy     +++|          AOD    CM
03290  M00S02756.1xy     +++|          UJN    CSDX        EXIT
03291  M00S02757.1xy     +++| FIP      SPACE  4,10
03292  M00S02758.1xy     +++|***       FIP - FIRMWARE IDENTIFICATION PROCESSOR.
03293  M00S02759.1xy     +++|*
03294  M00S02760.1xy     +++|*         ENTRY  (IR+4) = CHANNEL.
03295  M00S02761.1xy     +++|*
03296  M00S02762.1xy     +++|*         EXIT   (A) .LT. 0 IF MASS STORAGE ERROR.
03297  M00S02763.1xy     +++|*
Line S02764 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03298  M01S02764.271l716 ---|*         CALLS  CDD, C2D, DFM, GDS.
Line S00035 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03299  M01S00035.271l716 +++|*         CALLS  CDD, DFM, GDS.
03300  M00S02765.1xy     +++|
03301  M00S02766.1xy     +++|
03302  M00S02767.1xy     +++| FIP      SUBR               ENTRY/EXIT
03303  M00S02768.1xy     +++|          RJM    GDS         GET DETAILED STATUS
03304  M00S02769.1xy     +++|          MJN    FIPX        IF ERROR
Line S02770 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03305  M01S02770.271l716 ---|
03306  M01S02771.271l716 ---|*         ADD CHANNEL NUMBER TO THE ERRLOG AND BML MESSAGES.
03307  M01S02772.271l716 ---|
03308  M01S02773.271l716 ---|          LDD    IR+4        PUT CHANNEL IN MESSAGE
03309  M01S02774.271l716 ---|          STM    FIPB+2
03310  M01S02775.271l716 ---|          LPN    37
03311  M01S02776.271l716 ---|          RJM    C2D
03312  M01S02777.271l716 ---|          STM    FIPA+2
03313  M00S02778.1xy     +++|
03314  M00S02779.1xy     +++|*         ADD REVISION NUMBER TO ERRLOG AND BML MESSAGES.
03315  M00S02780.1xy     +++|
03316  M00S02781.1xy     +++|          LDM    DST+20
03317  M00S02782.1xy     +++|          SHN    -6
03318  M00S02783.1xy     +++|          LPN    17
03319  M00S02784.1xy     +++|          RJM    CDD
Line S02785 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03320  M01S02785.271l716 ---|          STM    FIPA+7
Line S00036 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03321  M01S00036.271l716 +++|          STM    FIPA+6
03322  M00S02786.1xy     +++|          STM    FIPB+11
03323  M00S02787.1xy     +++|          LDC    FIPA+ERLN+400000  ISSUE ERRLOG MESSAGE
03324  M00S02788.1xy     +++|          RJM    DFM
03325  M00S02789.1xy     +++|          LDC    FIPBL       SET BML MESSAGE LENGTH
03326  M00S02790.1xy     +++|          STD    CM+1
03327  M00S02791.1xy     +++|          LDC    FIPB+BMLN+400000  ISSUE BML MESSAGE
03328  M00S02792.1xy     +++|          RJM    DFM
03329  M00S02793.1xy     +++|          LJM    FIPX        RETURN
03330  M00S02794.1xy     +++|
Line S02795 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03331  M01S02795.271l716 ---| FIPA     DATA   C* CCH00,MA464-D00.*
Line S00037 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03332  M01S00037.271l716 +++| FIPA     DATA   C*CH00 MA464-D00.*
03333  M00S02796.1xy     +++|
03334  M00S02797.1xy     +++| FIPB     CON    DM0401      MESSAGE ID
03335  M00S02798.1xy     +++|          CON    HI0101      MESSAGE SYMPTOM
03336  M00S02799.1xy     +++|          CON    0           CHANNEL (OCTAL)
03337  M00S02800.1xy     +++|          CON    0
03338  M00S02801.1xy     +++|          CON    0           RESERVED FOR CDC
03339  M00S02802.1xy     +++|          DATA   10A MA464-DYY  FIRMWARE REVISION LEVEL (DISPLAY CODE)
03340  M00S02803.1xy     +++| FIPBL    EQU    *-FIPB      BML MESSAGE LENGTH
03341  M00S02804.1xy     +++| FLT      SPACE  4,10
03342  M00S02805.1xy     +++|**        FLT - FLAW LOGICAL TRACK.
03343  M00S02806.1xy     +++|*
03344  M00S02807.1xy     +++|*         ENTRY  (T5) = EST ORDINAL.
03345  M00S02808.1xy     +++|*                (T6) = LOGICAL TRACK.
03346  M00S02809.1xy     +++|*
03347  M00S02810.1xy     +++|*         EXIT   LOGICAL TRACK FLAWED IF WITHIN TRT.
03348  M00S02811.1xy     +++|*
03349  M00S02812.1xy     +++|*         USES   CM+1 - CM+3.
03350  M00S02813.1xy     +++|*
03351  M00S02814.1xy     +++|*         MACROS MONITOR.
03352  M00S02815.1xy     +++|
03353  M00S02816.1xy     +++|
03354  M00S02817.1xy     +++| FLT      SUBR               ENTRY/EXIT
03355  M00S02818.1xy     +++|          LDD    T6          CHECK IF TRACK WITHIN TRT
03356  M00S02819.1xy     +++|          STD    CM+2
03357  M00S02820.1xy     +++|          ADC    -NTDC       NUMBER OF TRACKS
03358  M00S02821.1xy     +++|          PJN    FLTX        IF BEYOND TRT
03359  M00S02822.1xy     +++|          LDN    STFS        SELECT TRACK FLAW FUNCTION
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1xy.001.txt ยท Last modified: by 127.0.0.1