Deck 1HY Part 002

12 Modifications

Listing Sections

Deck 1HY Start
Deck 1HY Part 1 (Line 1596)
Deck 1HY Part 2 (Line 2859)

Source

Seq #  *Modification Id* Act 
----------------------------+
02859  M01S02541.1hy     +++| PEFA     BSS    0           INITIAL ERROR COUNT
02860  M01S02542.1hy     +++|          CON    0
02861  M01S02543.1hy     +++|          CON    CSRC
02862  M01S02544.1hy     +++|
02863  M01S02545.1hy     +++| PEFB     BSS    0           I/O PREPROCESSOR
02864  M01S02546.1hy     +++|          CON    RND1
02865  M01S02547.1hy     +++|          CON    SRS1
02866  M01S02548.1hy     +++| RBD      SPACE  4,10
02867  M01S02549.1hy     +++|**        RBD - READ BUFFERED DISK.
02868  M01S02550.1hy     +++|*
02869  M01S02551.1hy     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
02870  M01S02552.1hy     +++|*
02871  M01S02553.1hy     +++|*         EXIT   (A) = *ETTC* IF TRANSFER COMPLETE TIMEOUT.
02872  M01S02554.1hy     +++|*
02873  M01S02555.1hy     +++|*         CALLS  COS, EIO, SFR, WTR.
02874  M01S02556.1hy     +++|
02875  M01S02557.1hy     +++|
02876  M01S02558.1hy     +++| RBD      SUBR               ENTRY/EXIT
02877  M01S02559.1hy     +++| RBD1     RJM    WTR         WRITE *T* REGISTER
02878  M01S02560.1hy     +++|          LDD    CB
02879  M01S02561.1hy     +++|          RJM    EIO         ENTER REQUEST IN I/O QUEUE
02880  M01S02562.1hy     +++|          RJM    SFR
02881  M01S02563.1hy     +++|          ZJN    RBDX        IF NO CONSECUTIVE REQUEST FOUND
02882  M01S02564.1hy     +++|          STD    CB
02883  M01S02565.1hy     +++|          LCN    1           CHECK OPERATIONAL STATUS
02884  M01S02566.1hy     +++|          RJM    COS
02885  M01S02567.1hy     +++|          ZJN    RBD1        IF TRANSFER COMPLETE
02886  M01S02568.1hy     +++|          LDN    ETTR
02887  M01S02569.1hy     +++|          UJN    RBDX        RETURN ERROR
02888  M01S02570.1hy     +++| RCR      SPACE  4,10
02889  M01S02571.1hy     +++|**        RCR - RESET CHANNEL REGISTERS.
02890  M01S02572.1hy     +++|*
02891  M01S02573.1hy     +++|*         EXIT   (SF) = 0 (DEVICE NOT SELECTED).
02892  M01S02574.1hy     +++|*
02893  M01S02575.1hy     +++|*         CALLS  FCN.
02894  M01S02576.1hy     +++|
02895  M01S02577.1hy     +++|
02896  M01S02578.1hy     +++| RCR      SUBR   HYD4        ENTRY/EXIT
02897  M01S02579.1hy     +++|          DCN    CH+40
02898  M01S02580.1hy     +++|          LDK    FCMC        MASTER CLEAR THE ADAPTOR
02899  M01S02581.1hy     +++|          RJM    FCN
02900  M01S02582.1hy     +++|          LDN    0           SET DEVICE NOT SELECTED
02901  M01S02583.1hy     +++|          STD    SF
02902  M01S02584.1hy     +++|          UJN    RCRX        RETURN
02903  M01S02585.1hy     +++| RCS      SPACE  4,10
02904  M01S02586.1hy     +++|**        RCS - REMOVE CHANNEL FROM SYSTEM USE.
02905  M01S02587.1hy     +++|*
02906  M01S02588.1hy     +++|*         ENTRY  (A) = EST ORDINAL IF CHANNEL IS TO BE DOWNED ON A
02907  M01S02589.1hy     +++|*                      PARTICULAR DEVICE.
02908  M01S02590.1hy     +++|*                    = 0 IF CHANNEL IS TO BE GLOBALLY DOWNED.
02909  M01S02591.1hy     +++|*
02910  M01S02592.1hy     +++|*         USES   CM - CM+4.
02911  M01S02593.1hy     +++|*
02912  M01S02594.1hy     +++|*         MACROS DELAY, EXECUTE, MONITOR.
02913  M01S02595.1hy     +++|
02914  M01S02596.1hy     +++|
02915  M01S02597.1hy     +++| RCS      SUBR               ENTRY/EXIT
02916  M01S02598.1hy     +++|          LMC    4000        SET DRIVER CALL FLAG, EST ORDINAL
02917  M01S02599.1hy     +++|          STM    RCSA+4
02918  M01S02600.1hy     +++|          LDD    MA          WRITE *1DS* CALL IN MESSAGE BUFFER
02919  M01S02601.1hy     +++|          CWM    RCSA,ON
02920  M01S02602.1hy     +++| RCS1     LDN    0           SET NON-PRIORITY REQUEST
02921  M01S02603.1hy     +++|          STD    CM+1
02922  M01S02604.1hy     +++|          EXECUTE  1DS,=
02923  M01S02605.1hy     +++|          MONITOR  RPPM
02924  M01S02606.1hy     +++|          LDD    CM+1
02925  M01S02607.1hy     +++|          NJN    RCSX        IF *1DS* STARTED
02926  M01S02608.1hy     +++|          DELAY
02927  M01S02609.1hy     +++|          UJN    RCS1        RETRY CALL
02928  M01S02610.1hy     +++|
02929  M01S02611.1hy     +++|
02930  M01S02612.1hy     +++| RCSA     VFD    18/3L1DS,6/,12/DWNF,12/0,12/4000
02931  M01S02613.1hy     +++| RCT      SPACE  4,10
02932  M01S02614.1hy     +++|**        RCT - READ CHANNEL TABLE.
02933  M01S02615.1hy     +++|*
02934  M01S02616.1hy     +++|*         EXIT   (A) = CHANNEL TABLE STATUS BYTE.
02935  M01S02617.1hy     +++|*
02936  M01S02618.1hy     +++|*         USES   NR - NR+4.
02937  M01S02619.1hy     +++|*
02938  M01S02620.1hy     +++|*         MACROS CHTE.
02939  M01S02621.1hy     +++|
02940  M01S02622.1hy     +++|
02941  M01S02623.1hy     +++| RCT      SUBR               ENTRY/EXIT
02942  M01S02624.1hy     +++|          CHTE   *
02943  M01S02625.1hy     +++|          LDC    0           READ CHANNEL TABLE ENTRY
02944  M01S02626.1hy     +++|          CRD    NR
02945  M01S02627.1hy     +++| RCTA     LDD    NR+0
02946  M01S02628.1hy     +++|          UJN    RCTX        RETURN
02947  M01S02629.1hy     +++| RLB      SPACE  4,15
02948  M01S02630.1hy     +++|**        RLB - READ LINKAGE BITS.
02949  M01S02631.1hy     +++|*
02950  M01S02632.1hy     +++|*         ENTRY  (A) = (T6) = ADDRESS FOR LINKAGE IN (CM - CM+4).
02951  M01S02633.1hy     +++|*                (PB) = CONTROL BUFFER ORDINAL.
02952  M01S02634.1hy     +++|*                (T1) = DATA BUFFER ADDRESS.
02953  M01S02635.1hy     +++|*                (T2) = CONTROL BUFFER WORD NUMBER.
02954  M01S02636.1hy     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
02955  M01S02637.1hy     +++|*
02956  M01S02638.1hy     +++|*         EXIT   SECTOR LINKAGE SET IN *CBT* ENTRY.
02957  M01S02639.1hy     +++|*
02958  M01S02640.1hy     +++|*         USES   T6.
02959  M01S02641.1hy     +++|*
02960  M01S02642.1hy     +++|*         MACROS CBTE.
02961  M01S02643.1hy     +++|
02962  M01S02644.1hy     +++|
02963  M01S02645.1hy     +++| RLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
02964  M01S02646.1hy     +++|          RAD    T1
02965  M01S02647.1hy     +++|          LDIL   T1          EXTRACT LINKAGE FROM BUFFER
02966  M01S02648.1hy     +++| RLB2     SHN    -14
02967  M01S02649.1hy     +++|          SHN    10          POSITION FOR *CBT* ENTRY
02968  M01S02650.1hy     +++|          STI    T6
02969  M01S02651.1hy     +++|          LDML   4,T1        EXTRACT LINKAGE FROM BUFFER
02970  M01S02652.1hy     +++|          SHN    -14
02971  M01S02653.1hy     +++|          SHN    4           POSITION FOR *CBT* ENTRY
02972  M01S02654.1hy     +++|          RAI    T6
02973  M01S02655.1hy     +++|          LDML   10,T1       EXTRACT LINKAGE FROM BUFFER
02974  M01S02656.1hy     +++|          SHN    -14
02975  M01S02657.1hy     +++|*         SHN    0           POSITION FOR *CBT* ENTRY
02976  M01S02658.1hy     +++|          RAI    T6
02977  M01S02659.1hy     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
02978  M01S02660.1hy     +++|          LMN    CM+5
02979  M01S02661.1hy     +++|          NJN    RLB1        IF MORE LINKAGE
02980  M01S02662.1hy     +++|          LDD    PB
02981  M01S02663.1hy     +++|          SHN    CBTLS
02982  M01S02664.1hy     +++|          CBTE   *
02983  M01S02665.1hy     +++|          ADC    0           FWA OF *CBT*
02984  M01S02666.1hy     +++|          ADD    T2
02985  M01S02667.1hy     +++|          CWD    CM          UPDATE CONTROL BUFFER ENTRY
02986  M01S02668.1hy     +++|
02987  M01S02669.1hy     +++| RLB      SUBR               ENTRY/EXIT
02988  M01S02670.1hy     +++|*         LDD    T6
02989  M01S02671.1hy     +++|          UJN    RLB2        MOVE SECTOR LINKAGE
02990  M01S02672.1hy     +++| R1B      SPACE  4,10
02991  M01S02673.1hy     +++|**        R1B - READ ONE BYTE.
02992  M01S02674.1hy     +++|*
02993  M01S02675.1hy     +++|*         ENTRY  (A) = FUNCTION CODE.
02994  M01S02676.1hy     +++|*
02995  M01S02677.1hy     +++|*         EXIT   (A) = (CD) = CHANNEL DATA.
02996  M01S02678.1hy     +++|*
02997  M01S02679.1hy     +++|*         CALLS  CFE, FCN.
02998  M01S02680.1hy     +++|
02999  M01S02681.1hy     +++|
03000  M01S02682.1hy     +++| R1B      SUBR               ENTRY/EXIT
03001  M01S02683.1hy     +++|          RJM    FCN
03002  M01S02684.1hy     +++|          ACN    CH
03003  M01S02685.1hy     +++|          IAN    CH
03004  M01S02686.1hy     +++|          STDL   CD          SAVE INPUT
03005  M01S02687.1hy     +++|          LDN    0
03006  M01S02688.1hy     +++|          RJM    CFE         CHECK FOR ERROR
03007  M01S02689.1hy     +++|          LDDL   CD
03008  M01S02690.1hy     +++|          UJN    R1BX        RETURN
03009  M01S02691.1hy     +++| SAP      SPACE  4,10
03010  M01S02692.1hy     +++|**        SAP - SELECT ADAPTOR PORT.
03011  M01S02693.1hy     +++|*
03012  M01S02694.1hy     +++|*         CALLS  FCN, WTC.
03013  M01S02695.1hy     +++|
03014  M01S02696.1hy     +++|
03015  M01S02697.1hy     +++| SAP      SUBR               ENTRY/EXIT
03016  M01S02698.1hy     +++|          LDC    FCWC
03017  M01S02699.1hy     +++|          RJM    FCN         WRITE CONTROL REGISTER
03018  M01S02700.1hy     +++|          ACN    CH

Line S02701 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03019  M02S02701.ns2769  ---|          LDML   CREG        OUTPUT PORT SELECT
03020  M01S00126.ns2769  +++|          LDML   CREG,DI     OUTPUT PORT SELECT
03021  M01S02702.1hy     +++|          OAN    CH
03022  M01S02703.1hy     +++|          LDN    0           WAIT - TRANSMISSION COMPLETE
03023  M01S02704.1hy     +++|          RJM    WTC
03024  M01S02705.1hy     +++|          UJN    SAPX        RETURN
03025  M01S02706.1hy     +++| SCD      SPACE  4,10
03026  M01S02707.1hy     +++|**        SCD - STORE *CPD* DATA.
03027  M01S02708.1hy     +++|*
03028  M01S02709.1hy     +++|*         ENTRY  (A) = 0 TO INDICATE CHANNEL INACTIVE.
03029  M01S02710.1hy     +++|*                    = 1 TO INDICATE CHANNEL ACTIVE.
03030  M01S02711.1hy     +++|*                (UC) = UNIT ACTIVITY COUNT.
03031  M01S02712.1hy     +++|*
03032  M01S02713.1hy     +++|*         USES   T7, CM - CM+4.
03033  M01S02714.1hy     +++|*
03034  M01S02715.1hy     +++|*         MACROS CCTE.
03035  M01S02716.1hy     +++|
03036  M01S02717.1hy     +++|
03037  M01S02718.1hy     +++| SCD      SUBR               ENTRY/EXIT
03038  M01S02719.1hy     +++|          STD    T7
03039  M01S02720.1hy     +++|          LDN    ZERL        CLEAR UNUSED BYTES
03040  M01S02721.1hy     +++|          CRD    CM
03041  M01S02722.1hy     +++|          LDD    UC          INSERT UNIT COUNT
03042  M01S02723.1hy     +++|          STD    CM
03043  M01S02724.1hy     +++|          CCTE   *
03044  M01S02725.1hy     +++|          LDC    CREQ        STORE *CPD* DATA
03045  M01S02726.1hy     +++|          CWD    T7
03046  M01S02727.1hy     +++|          UJN    SCDX        RETURN
03047  M01S02728.1hy     +++| SEC      SPACE  4,10
03048  M01S02729.1hy     +++|**        SEC - SET ERROR CODE.
03049  M01S02730.1hy     +++|*
03050  M01S02731.1hy     +++|*         ENTRY  (EO) = EST ORDINAL.
03051  M01S02732.1hy     +++|*
03052  M01S02733.1hy     +++|*         USES   T5, WB+3 - WB+4.
03053  M01S02734.1hy     +++|*
03054  M01S02735.1hy     +++|*         CALLS  IMR, RCR, RCS, SES.
03055  M01S02736.1hy     +++|
03056  M01S02737.1hy     +++|
03057  M01S02738.1hy     +++| SEC1     LDN    1           *CBT* COUNT TO BE DELINKED
03058  M01S02739.1hy     +++|          STD    WB+3
03059  M01S02740.1hy     +++|          SHN    13-0        SET INTERLOCK RELEASED (FOR *CMP*)

Line S02741 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03060  M02S02741.ns2769  ---|          STM    RQIN
03061  M01S00127.ns2769  +++|          STM    RQIN,DI
03062  M01S02742.1hy     +++|          LDM    FALT
03063  M01S02743.1hy     +++|          SHN    -2          CREATE INDEX FROM FAULT CODE
03064  M01S02744.1hy     +++|          STD    T5
03065  M01S02745.1hy     +++|          LDM    TMSE,T5     SET MASS STORAGE ERROR CODE
03066  M01S02746.1hy     +++|          STD    WB+4
03067  M01S02747.1hy     +++|          LDN    SETS        INSERT CODE IN *CBT*
03068  M01S02748.1hy     +++|          RJM    IMR
03069  M01S02749.1hy     +++|          SOD    UC          DECREMENT UNIT ACTIVITY COUNT
03070  M01S02750.1hy     +++|
03071  M01S02751.1hy     +++| SEC      SUBR               ENTRY/EXIT
03072  M01S02752.1hy     +++|          RJM    RCR         RESET CHANNEL REGISTERS
03073  M01S02753.1hy     +++|          LDD    EO
03074  M01S02754.1hy     +++|          STD    T5          EST ORDINAL FOR *SES*
03075  M01S02755.1hy     +++|          LDN    STDE
03076  M01S02756.1hy     +++|          RJM    SES         SET ERROR STATUS IN MST

Line S02757 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03077  M02S02757.ns2769  ---|          LDM    SREQ
03078  M01S00128.ns2769  +++|          LDM    SREQ,DI
03079  M01S02758.1hy     +++|          ZJN    SEC1        IF I/O PROCESSING
03080  M01S02759.1hy     +++|          LDD    EO          DOWN CHANNEL ON THIS DEVICE
03081  M01S02760.1hy     +++|          RJM    RCS
03082  M01S02761.1hy     +++|          LJM    CMP1        COMPLETE PROCESSING
03083  M01S02762.1hy     +++| SFR      SPACE  4,15
03084  M01S02763.1hy     +++|**        SFR - SEARCH FOR CONSECUTIVE REQUEST.
03085  M01S02764.1hy     +++|*
03086  M01S02765.1hy     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
03087  M01S02766.1hy     +++|*                (DT) = DEVICE TYPE.
03088  M01S02767.1hy     +++|*
03089  M01S02768.1hy     +++|*         EXIT   (A) = 0 IF NO CONSECUTIVE REQUEST FOUND.
03090  M01S02769.1hy     +++|*                    = (NB) = *CBT* ORDINAL OF NEXT REQUEST.
03091  M01S02770.1hy     +++|*                (NR - NR+4) = PHYSICAL ADDRESS OF NEXT REQUEST.
03092  M01S02771.1hy     +++|*
03093  M01S02772.1hy     +++|*         USES   CM - CM+4, T1 - T6.
03094  M01S02773.1hy     +++|*
03095  M01S02774.1hy     +++|*         MACROS CBTE.
03096  M01S02775.1hy     +++|
03097  M01S02776.1hy     +++|
03098  M01S02777.1hy     +++| SFR      SUBR               ENTRY/EXIT
03099  M01S02778.1hy     +++|          LDD    CB
03100  M01S02779.1hy     +++|          SHN    CBTLS       FETCH SEEK PARAMETERS FROM *CBT*
03101  M01S02780.1hy     +++|          CBTE   *
03102  M01S02781.1hy     +++|          ADC    PAD1
03103  M01S02782.1hy     +++|          CRD    CM
03104  M01S02783.1hy     +++|          ADN    IOLK-PAD1   (T1) = I/O LINK-UP FLAGS
03105  M01S02784.1hy     +++|          CRD    T1
03106  M01S02785.1hy     +++|          LDD    T1          CHECK STREAMING ENABLED
03107  M01S02786.1hy     +++|          LPN    40
03108  M01S02787.1hy     +++|          NJN    SFR1        IF DATA STREAMING DISABLED
03109  M01S02788.1hy     +++|          LDD    T1+2
03110  M01S02789.1hy     +++|          ZJN    SFRX        IF NO REQUEST AVAILABLE
03111  M01S02790.1hy     +++|          STD    NB
03112  M01S02791.1hy     +++|          SHN    CBTLS
03113  M01S02792.1hy     +++|          CBTE   *
03114  M01S02793.1hy     +++|          ADC    PAD1        PHYSICAL ADDRESS OF NEXT REQUEST
03115  M01S02794.1hy     +++|          CRD    NR
03116  M01S02795.1hy     +++|          ADN    IOLK-PAD1   I/O LINK-UP WORD OF NEXT REQUEST
03117  M01S02796.1hy     +++|          CRD    T2
03118  M01S02797.1hy     +++|          LDD    T2          COMPARE LINK-UP FLAGS
03119  M01S02798.1hy     +++|          LMD    T1
03120  M01S02799.1hy     +++|          LPC    DRFM+ILFM
03121  M01S02800.1hy     +++|          ZJN    SFR3        IF SAME DIRECTION AND INTERLOCKED
03122  M01S02801.1hy     +++| SFR1     LDN    0
03123  M01S02802.1hy     +++|          STD    NB
03124  M01S02803.1hy     +++| SFR2     UJN    SFRX        RETURN
03125  M01S02804.1hy     +++|
03126  M01S02805.1hy     +++| SFR3     LDD    NR+1        CHECK SEEK PARAMETERS
03127  M01S02806.1hy     +++|          SBD    CM+1
03128  M01S02807.1hy     +++|          ZJN    SFR4        IF SAME CYLINDER
03129  M01S02808.1hy     +++|          SBN    1
03130  M01S02809.1hy     +++|          NJN    SFR1        IF NOT NEXT CYLINDER
03131  M01S02810.1hy     +++|          LDD    NR+2
03132  M01S02811.1hy     +++|          NJN    SFR1        IF NOT CONSECUTIVE CYLINDER REQUEST
03133  M01S02812.1hy     +++|          SBK    PTCYDF*100
03134  M01S02813.1hy     +++|          UJN    SFR5        CHECK NEXT TRACK / SECTOR
03135  M01S02814.1hy     +++|
03136  M01S02815.1hy     +++|          ERRNZ  PTCYDH-PTCYDF  CODE DEPENDS ON VALUE
03137  M01S02816.1hy     +++|
03138  M01S02817.1hy     +++| SFR4     LDD    CM+2        CHECK NEXT SECTOR
03139  M01S02818.1hy     +++|          ADM    SFRA,DT
03140  M01S02819.1hy     +++|          LMD    NR+2
03141  M01S02820.1hy     +++|          ZJN    SFR6        IF NEXT SECTOR ON SAME TRACK
03142  M01S02821.1hy     +++|          LDN    0
03143  M01S02822.1hy     +++| SFR5     ADD    CM+2        SET NEXT TRACK
03144  M01S02823.1hy     +++|          ADD    HN
03145  M01S02824.1hy     +++|          SBM    SFRB,DT     CHECK NEXT SECTOR
03146  M01S02825.1hy     +++|          LMD    NR+2
03147  M01S02826.1hy     +++|          NJN    SFR1        IF NOT NEXT SECTOR ON CONSECUTIVE TRACKS
03148  M01S02827.1hy     +++| SFR6     LDD    NB
03149  M01S02828.1hy     +++|          UJN    SFR2        RETURN
03150  M01S02829.1hy     +++|
03151  M01S02830.1hy     +++|
03152  M01S02831.1hy     +++| SFRA     BSS    0           PHYSICAL SECTORS PER I/O BUFFER
03153  M01S02832.1hy     +++|          CON    PSBFDF
03154  M01S02833.1hy     +++|          CON    PSBFDH
03155  M01S02834.1hy     +++|
03156  M01S02835.1hy     +++| SFRB     BSS    0           FACTOR FOR NEXT SECTOR CALCULATION
03157  M01S02836.1hy     +++|          CON    PSPTDF-PSBFDF
03158  M01S02837.1hy     +++|          CON    PSPTDH-PSBFDH
03159  M01S02838.1hy     +++| SLB      SPACE  4,15
03160  M01S02839.1hy     +++|**        SLB - SET LINKAGE BITS.
03161  M01S02840.1hy     +++|*
03162  M01S02841.1hy     +++|*         ENTRY  (PB) = *CBT* ORDINAL.
03163  M01S02842.1hy     +++|*                (RW) = READ / WRITE STATUS.
03164  M01S02843.1hy     +++|*
03165  M01S02844.1hy     +++|*         EXIT   LINKAGE BITS SET IN *CBT* ENTRY / UEM BUFFER.
03166  M01S02845.1hy     +++|*
03167  M01S02846.1hy     +++|*         USES   CM - CM+4, T0 - T6, UA - UA+1.
03168  M01S02847.1hy     +++|*
03169  M01S02848.1hy     +++|*         CALLS  RLB, SUA, WLB.
03170  M01S02849.1hy     +++|*
03171  M01S02850.1hy     +++|*         MACROS CBTE.
03172  M01S02851.1hy     +++|
03173  M01S02852.1hy     +++|
03174  M01S02853.1hy     +++| SLB      SUBR               ENTRY/EXIT
03175  M01S02854.1hy     +++|          LDD    PB
03176  M01S02855.1hy     +++|          RJM    SUA         SET UEM ADDRESS
03177  M01S02856.1hy     +++|          LDN    PAD1
03178  M01S02857.1hy     +++|          STD    T2
03179  M01S02858.1hy     +++|          SRD    T3
03180  M01S02859.1hy     +++|          LDN    5           UEM WORD COUNT
03181  M01S02860.1hy     +++|          STD    T5
03182  M01S02861.1hy     +++|          LDM    SLBB,RW     SET PROCESSOR ADDRESS
03183  M01S02862.1hy     +++|          STM    SLBA
03184  M01S02863.1hy     +++| SLB1     LRD    UA          LOAD *R* REGISTER
03185  M01S02864.1hy     +++|          LDD    PB
03186  M01S02865.1hy     +++|          SHN    CBTLS       READ CONTROL BUFFER WORD
03187  M01S02866.1hy     +++|          CBTE   *
03188  M01S02867.1hy     +++|          ADC    0           FWA OF *CBT*
03189  M01S02868.1hy     +++|          ADD    T2
03190  M01S02869.1hy     +++|          CRD    CM
03191  M01S02870.1hy     +++|          LDC    SBUF-4      SET BUFFER ADDRESS
03192  M01S02871.1hy     +++|          STD    T1
03193  M01S02872.1hy     +++|          LDC    1S17        READ START OF BUFFER SEGMENT
03194  M01S02873.1hy     +++|          CRML   SBUF,T5
03195  M01S02874.1hy     +++|          LDN    CM+3        SET *CBT* ENTRY ADDRESS
03196  M01S02875.1hy     +++|          STD    T6
03197  M01S02876.1hy     +++|          RJM    0           MOVE LINKAGE BITS
03198  M01S02877.1hy     +++| SLBA     EQU    *-1
03199  M01S02878.1hy     +++|          LDN    10          ADVANCE *R* REGISTER IMAGE
03200  M01S02879.1hy     +++|          RAD    UA+1
03201  M01S02880.1hy     +++|          SHN    -14
03202  M01S02881.1hy     +++|          RAD    UA
03203  M01S02882.1hy     +++|          AOD    T2          ADVANCE CONTROL BUFFER WORD
03204  M01S02883.1hy     +++|          LMN    PAD4+1
03205  M01S02884.1hy     +++|          NJN    SLB1        IF NOT COMPLETE
03206  M01S02885.1hy     +++|          LRD    T3
03207  M01S02886.1hy     +++|          UJP    SLBX        RETURN
03208  M01S02887.1hy     +++|
03209  M01S02888.1hy     +++|
03210  M01S02889.1hy     +++| SLBB     CON    RLB
03211  M01S02890.1hy     +++|          CON    WLB
03212  M01S02891.1hy     +++| SRF      SPACE  4,10
03213  M01S02892.1hy     +++|**        SRF - SET DRIVER RELOAD FLAG.
03214  M01S02893.1hy     +++|*
03215  M01S02894.1hy     +++|*         EXIT   (A) = 0.
03216  M01S02895.1hy     +++|*
03217  M01S02896.1hy     +++|*         USES   CM - CM+4.
03218  M01S02897.1hy     +++|*
03219  M01S02898.1hy     +++|*         CALLS  CMC, DCR.
03220  M01S02899.1hy     +++|*
03221  M01S02900.1hy     +++|*         MACROS CHTE, MONITOR.
03222  M01S02901.1hy     +++|
03223  M01S02902.1hy     +++|
03224  M01S02903.1hy     +++| SRF      SUBR               ENTRY/EXIT
03225  M01S02904.1hy     +++|          RJM    CMC
03226  M01S02905.1hy     +++|          RJM    DCR         DROP CHANNEL RESERVATION
03227  M01S02906.1hy     +++|*         LDN    0
03228  M01S02907.1hy     +++|          STD    CM+2        CLEAR UNUSED BYTE
03229  M01S02908.1hy     +++|          CHTE   *
03230  M01S02909.1hy     +++|          LDC    CTALL*2     ADDRESS OF CHANNEL CONTROLWARE TABLE ENTRY
03231  M01S02910.1hy     +++|          STD    CM+4
03232  M01S02911.1hy     +++|          SHN    -14
03233  M01S02912.1hy     +++|          STD    CM+3
03234  M01S02913.1hy     +++|          LDN    1           SET NUMBER OF REQUESTS
03235  M01S02914.1hy     +++|          STD    CM+1
03236  M01S02915.1hy     +++|          LDD    MA          STORE REQUEST IN MESSAGE BUFFER
03237  M01S02916.1hy     +++|          CWM    SRFA,CM+1
03238  M01S02917.1hy     +++|          MONITOR  UTEM      SET RELOAD FLAG
03239  M01S02918.1hy     +++|*         LDN    0
03240  M01S02919.1hy     +++|          UJN    SRFX        RETURN
03241  M01S02920.1hy     +++|
03242  M01S02921.1hy     +++|
03243  M01S02922.1hy     +++| SRFA     VFD    1/0,5/0,6/1,6/,42/1
03244  M01S02923.1hy     +++| SSD      SPACE  4,15
03245  M01S02924.1hy     +++|**        SSD - SELECT SLAVE DEVICE.
03246  M01S02925.1hy     +++|*
03247  M01S02926.1hy     +++|*         ENTRY  (SF) = 1 IF DEVICE PREVIOUSLY SELECTED.
03248  M01S02927.1hy     +++|*                (UN) = UNIT NUMBER.
03249  M01S02928.1hy     +++|*
03250  M01S02929.1hy     +++|*         EXIT   (A) .NE. 0 IF DEVICE SELECTED.
03251  M01S02930.1hy     +++|*                (SF) = 1 IF DEVICE SELECTED.
03252  M01S02931.1hy     +++|*
03253  M01S02932.1hy     +++|*         ERROR  TO *ERR* IF SELECT REJECT.
03254  M01S02933.1hy     +++|*

Line S02934 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03255  M02S02934.1hy7    ---|*         USES   T2, T3.

Line S02935 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03256  M02S02935.1hy7    ---|*

Line S02936 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03257  M02S02936.1hy7    ---|*         CALLS  R1B, SAP, WFW.

Line S02937 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03258  M02S02937.1hy7    ---|*

Line S02938 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03259  M02S02938.1hy7    ---|*         MACROS DELAY.
03260  M01S00004.1hy7    +++|*         USES   T2.
03261  M01S00005.1hy7    +++|*
03262  M01S00006.1hy7    +++|*         CALLS  FCN, R1B, SAP, WFW.
03263  M01S02939.1hy     +++|
03264  M01S02940.1hy     +++|
03265  M01S02941.1hy     +++| SSD4     AOD    SF          SET DEVICE SELECTED
03266  M01S02942.1hy     +++|
03267  M01S02943.1hy     +++| SSD      SUBR               ENTRY/EXIT
03268  M01S02944.1hy     +++|          LDD    SF
03269  M01S02945.1hy     +++|          NJN    SSDX        IF DEVICE PREVIOUSLY SELECTED
03270  M01S02946.1hy     +++|          LDN    DSRC
03271  M01S02947.1hy     +++|          STD    T2
03272  M01S02948.1hy     +++|          RJM    SAP         SELECT ADAPTOR PORT
03273  M01S02949.1hy     +++| SSD1     LDD    UN
03274  M01S02950.1hy     +++|          LMC    FWBS        WRITE FUNCTION WORD
03275  M01S02951.1hy     +++|          RJM    WFW

Line S02952 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03276  M02S02952.1hy7    ---|          LDN    50D         SET LOCAL TIMEOUT = 50 MILLISECONDS

Line S02953 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03277  M02S02953.1hy7    ---|          STD    T3
03278  M01S02954.1hy     +++| SSD2     LDC    FCRO        GET OPERATIONAL STATUS
03279  M01S02955.1hy     +++|          RJM    R1B
03280  M01S02956.1hy     +++|          SHN    0-11
03281  M01S02957.1hy     +++|          LPN    35          EXTRACT PAUSE, SYNC IN/OUT, SELECT ACTIVE
03282  M01S02958.1hy     +++|          LMN    1
03283  M01S02959.1hy     +++|          ZJN    SSD4        IF DEVICE SELECTED

Line S02960 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03284  M02S02960.1hy7    ---|          DELAY  7

Line S02961 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03285  M02S02961.1hy7    ---|          SOD    T3

Line S02962 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`1hy7`

Seq #  *Modification Id* Act 
----------------------------+
03286  M02S02962.1hy7    ---|          NJN    SSD2        IF NOT TIMED OUT
03287  M01S00007.1hy7    +++|          LDC    FCCH
03288  M01S00008.1hy7    +++|          RJM    FCN         CLEAR SELECT HOLD
03289  M01S02963.1hy     +++|          SOD    T2
03290  M01S02964.1hy     +++|          NJN    SSD1        IF RETRY COUNT NOT EXHAUSTED
03291  M01S02965.1hy     +++|          LDC    FCIS
03292  M01S02966.1hy     +++|          RJM    R1B         CHECK IDLE STATUS
03293  M01S02967.1hy     +++|          SHN    -10
03294  M01S02968.1hy     +++|          LPML   TMSK,UN
03295  M01S02969.1hy     +++|          ZJN    SSD3        IF DRIVE NOT BUSY
03296  M01S02970.1hy     +++|          LDN    EDRA&ETSL
03297  M01S02971.1hy     +++| SSD3     LMN    ETSL
03298  M01S02972.1hy     +++|          RJM    ERR         PROCESS ERROR
03299  M01S02973.1hy     +++| STF      SPACE  4,15
03300  M01S02974.1hy     +++|**        STF - REQUEST TRACK FLAW.
03301  M01S02975.1hy     +++|*
03302  M01S02976.1hy     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
03303  M01S02977.1hy     +++|*                (EO) = EST ORDINAL.
03304  M01S02978.1hy     +++|*
03305  M01S02979.1hy     +++|*         USES   CM - CM+4, T3 - T3+4.
03306  M01S02980.1hy     +++|*

Line S02981 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03307  M02S02981.271l716 ---|*         CALLS  CMC, DFM.
03308  M01S00072.271l716 +++|*         CALLS  CMC, C2D, IBM.
03309  M01S02982.1hy     +++|*
03310  M01S02983.1hy     +++|*         MACROS CBTE, MONITOR.
03311  M01S02984.1hy     +++|
03312  M01S02985.1hy     +++|
03313  M01S02986.1hy     +++| STF      SUBR               ENTRY/EXIT
03314  M01S02987.1hy     +++|          RJM    CMC
03315  M01S02988.1hy     +++|          LDD    EO          CONVERT EST ORDINAL
03316  M01S02989.1hy     +++|          SHN    -3
03317  M01S02990.1hy     +++|          RJM    C2D

Line S02991 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03318  M02S02991.271l716 ---|          STM    STFA+1      SET ORDINAL IN MESSAGE
03319  M01S00073.271l716 +++|          STM    STFB+1      SET ORDINAL IN MESSAGE
03320  M01S02992.1hy     +++|          LDD    EO
03321  M01S02993.1hy     +++|          STD    CM+1
03322  M01S02994.1hy     +++|          LPN    7
03323  M01S02995.1hy     +++|          SHN    6
03324  M01S02996.1hy     +++|          ADC    2R0,

Line S02997 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03325  M02S02997.271l716 ---|          STM    STFA+2
03326  M01S00074.271l716 +++|          STM    STFB+2
03327  M01S02998.1hy     +++|          LDD    CB          FETCH *CBT* INFORMATION
03328  M01S02999.1hy     +++|          SHN    CBTLS
03329  M01S03000.1hy     +++|          CBTE   *
03330  M01S03001.1hy     +++|          ADC    PAD1
03331  M01S03002.1hy     +++|          CRD    T3
03332  M01S03003.1hy     +++|          LDD    T3+1        DETERMINE LOGICAL TRACK NUMBER
03333  M01S03004.1hy     +++|          SHN    1
03334  M01S03005.1hy     +++|          ERRNZ  LTCYDF-2    CODE DEPENDS ON VALUE
03335  M01S03006.1hy     +++|          ADC    4000
03336  M01S03007.1hy     +++|          ERRNZ  LTCYDH-LTCYDF  CODE DEPENDS ON VALUE
03337  M01S03008.1hy     +++|          STD    CM+2
03338  M01S03009.1hy     +++|          LDD    T3+2
03339  M01S03010.1hy     +++|          ERRNZ  PTCYDF-4    CODE DEPENDS ON VALUE
03340  M01S03011.1hy     +++|          SHN    -7
03341  M01S03012.1hy     +++|          ERRNZ  PTCYDH-PTCYDF  CODE DEPENDS ON VALUE
03342  M01S03013.1hy     +++|          RAD    CM+2
03343  M01S03014.1hy     +++|          RJM    C2D         CONVERT TRACK NUMBER FOR MESSAGE

Line S03015 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03344  M02S03015.271l716 ---|          STM    STFA+5
03345  M01S00075.271l716 +++|          STM    STFB+5
03346  M01S03016.1hy     +++|          LDD    CM+2
03347  M01S03017.1hy     +++|          SHN    -6
03348  M01S03018.1hy     +++|          RJM    C2D

Line S03019 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03349  M02S03019.271l716 ---|          STM    STFA+4
03350  M01S00076.271l716 +++|          STM    STFB+4
03351  M01S03020.1hy     +++|          LDK    SFTS        INSERT SUBFUNCTION
03352  M01S03021.1hy     +++|          STD    CM+3

Line S03022 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
03353  M02S03022.253l688 ---|          MONITOR  STBM      SET TRACK FLAW REQUEST IN MST
03354  M01S00014.253l688 +++|          MONITOR  SMDM      SET TRACK FLAW REQUEST IN MST
03355  M01S03023.1hy     +++|          LDD    CM+1
03356  M01S03024.1hy     +++|          NJN    STF2        IF THIS FLAW ALREADY REQUESTED

Line S03025 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2596`

Seq #  *Modification Id* Act 
----------------------------+
03357  M02S03025.ns2596  ---|          LDC    STFA+ERLN

Line S00001 Modification History
`M01` (Added by)	`ns2596`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03358  M02S00001.271l716 ---|          LDC    STFA+ERLN+400000

Line S03026 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03359  M02S03026.271l716 ---|          RJM    DFM
03360  M01S00077.271l716 +++|          LDC    STFA
03361  M01S00078.271l716 +++|          STM    MAD1        ISSUE ERROR LOG MESSAGE
03362  M01S00079.271l716 +++|          RJM    IBM
03363  M01S03027.1hy     +++| STF2     LJM    STFX        RETURN
03364  M01S03028.1hy     +++|
03365  M01S03029.1hy     +++|

Line S03030 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03366  M02S03030.271l716 ---| STFA     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
03367  M01S00080.271l716 +++| STFA     VFD    24/0        RESERVED
03368  M01S00081.271l716 +++|          VFD    12/1        ERRLOG ALERT FLAG
03369  M01S00082.271l716 +++|          VFD    12/STFAL    MESSAGE LENGTH
03370  M01S00083.271l716 +++|          VFD    12/ELDY     ERRLOG DAYFILE
03371  M01S00084.271l716 +++|
03372  M01S00085.271l716 +++| STFB     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
03373  M01S00086.271l716 +++|
03374  M01S00087.271l716 +++| .1       SET    *-STFA+4
03375  M01S00088.271l716 +++| STFAL    EQU    .1/5
03376  M01S03031.1hy     +++| STO      SPACE  4,10
03377  M01S03032.1hy     +++|**        STO - SET TIMEOUT.
03378  M01S03033.1hy     +++|*
03379  M01S03034.1hy     +++|*         ENTRY  (A) = TIMEOUT VALUE (IN SECONDS).
03380  M01S03035.1hy     +++|*                (PO) = *PUT* ORDINAL.
03381  M01S03036.1hy     +++|*
03382  M01S03037.1hy     +++|*         USES   T5, T6, T7, CM - CM+4.
03383  M01S03038.1hy     +++|*
03384  M01S03039.1hy     +++|*         MACROS FTTE.
03385  M01S03040.1hy     +++|
03386  M01S03041.1hy     +++|
03387  M01S03042.1hy     +++| STO      SUBR               ENTRY/EXIT
03388  M01S03043.1hy     +++|          STD    T6
03389  M01S03044.1hy     +++|          LDC    RTCL        FETCH CURRENT TIME
03390  M01S03045.1hy     +++|          CRD    CM
03391  M01S03046.1hy     +++|          LDD    T6
03392  M01S03047.1hy     +++|          RAD    CM+1        SET TIME LIMIT
03393  M01S03048.1hy     +++|          SHN    -14
03394  M01S03049.1hy     +++|          RAD    CM
03395  M01S03050.1hy     +++|          LDM    STO         SET CALLERS ADDRESS
03396  M01S03051.1hy     +++|          STD    T7
03397  M01S03052.1hy     +++|          LDN    0
03398  M01S03053.1hy     +++|          STD    T5
03399  M01S03054.1hy     +++|          LDD    PO          STORE TABLE ENTRY
03400  M01S03055.1hy     +++|          SHK    FTTLS
03401  M01S03056.1hy     +++|          FTTE   *
03402  M01S03057.1hy     +++|          ADC    0
03403  M01S03058.1hy     +++|          CWD    T5
03404  M01S03059.1hy     +++|          UJN    STOX        RETURN
03405  M01S03060.1hy     +++| SUA      SPACE  4,10
03406  M01S03061.1hy     +++|**        SUA - SET UEM ADDRESS.
03407  M01S03062.1hy     +++|*
03408  M01S03063.1hy     +++|*         ENTRY  (A) = *CBT* ORDINAL.
03409  M01S03064.1hy     +++|*
03410  M01S03065.1hy     +++|*         EXIT   (UA - UA+1) = UEM ADDRESS / 100.
03411  M01S03066.1hy     +++|*
03412  M01S03067.1hy     +++|*         USES   CM - CM+4.
03413  M01S03068.1hy     +++|*
03414  M01S03069.1hy     +++|*         MACROS CBTE.
03415  M01S03070.1hy     +++|
03416  M01S03071.1hy     +++|
03417  M01S03072.1hy     +++| SUA      SUBR               ENTRY/EXIT
03418  M01S03073.1hy     +++|          SHN    CBTLS
03419  M01S03074.1hy     +++|          CBTE   *
03420  M01S03075.1hy     +++|          ADC    IOLK        READ *CBT* ENTRY
03421  M01S03076.1hy     +++|          CRD    CM
03422  M01S03077.1hy     +++|          LDD    CM+4        EXTRACT RELATIVE UEM ADDRESS
03423  M01S03078.1hy     +++|          ADC    0
03424  M01S03079.1hy     +++| SUAA     EQU    *-1
03425  M01S03080.1hy     +++|          SHN    -6
03426  M01S03081.1hy     +++|          STD    UA+1        SET ABSOLUTE ADDRESS / 100
03427  M01S03082.1hy     +++|          LDD    CM+3
03428  M01S03083.1hy     +++|          ADC    0
03429  M01S03084.1hy     +++| SUAB     EQU    *-1
03430  M01S03085.1hy     +++|          SHN    6
03431  M01S03086.1hy     +++|          RAD    UA+1
03432  M01S03087.1hy     +++|          SHN    -14
03433  M01S03088.1hy     +++|          STD    UA
03434  M01S03089.1hy     +++|          UJN    SUAX        RETURN
03435  M01S03090.1hy     +++| SUI      SPACE  4,15
03436  M01S03091.1hy     +++|**        SUI - SET UNIT INTERLOCK.
03437  M01S03092.1hy     +++|*
03438  M01S03093.1hy     +++|*         ENTRY  (PO) = *PUT ORDINAL.
03439  M01S03094.1hy     +++|*
03440  M01S03095.1hy     +++|*         EXIT   (A) = 0 IF *PUT* ENTRY INTERLOCKED.
03441  M01S03096.1hy     +++|*                (UC) = UNIT ACTIVITY COUNT INCREMENTED.
03442  M01S03097.1hy     +++|*
03443  M01S03098.1hy     +++|*         USES   CM - CM+4.
03444  M01S03099.1hy     +++|*
03445  M01S03100.1hy     +++|*         CALLS  CMC.
03446  M01S03101.1hy     +++|*
03447  M01S03102.1hy     +++|*         MACROS MONITOR.
03448  M01S03103.1hy     +++|
03449  M01S03104.1hy     +++|
03450  M01S03105.1hy     +++| SUI1     AOD    UC          ADVANCE UNIT ASSIGNED COUNT
03451  M01S03106.1hy     +++|          LDN    0
03452  M01S03107.1hy     +++|
03453  M01S03108.1hy     +++| SUI      SUBR               ENTRY/EXIT
03454  M01S03109.1hy     +++|          RJM    CMC
03455  M01S03110.1hy     +++|          LDD    PO          SET *PUT* ORDINAL
03456  M01S03111.1hy     +++|          STD    CM+2
03457  M01S03112.1hy     +++|          LDN    SUIS        SET SUBFUNCTION
03458  M01S03113.1hy     +++|          STD    CM+1
03459  M01S03114.1hy     +++|          MONITOR  BIOM      INTERLOCK DEVICE
03460  M01S03115.1hy     +++|          LDD    CM+1
03461  M01S03116.1hy     +++|          ZJN    SUI1        IF INTERLOCK ACQUIRED
03462  M01S03117.1hy     +++|          LMD    OA
03463  M01S03118.1hy     +++|          UJN    SUIX        RETURN
03464  M01S03119.1hy     +++| TMSE     SPACE  4,10
03465  M01S03120.1hy     +++|**        TMSE - TABLE OF MASS STORAGE ERROR CODES.
03466  M01S03121.1hy     +++|*
03467  M01S03122.1hy     +++|*         INDEXED BY FAULT CODE / 4.
03468  M01S03123.1hy     +++|
03469  M01S03124.1hy     +++|
03470  M01S03125.1hy     +++| TMSE     BSS    0
03471  M01S03126.1hy     +++|          LOC    0
03472  M01S03127.1hy     +++|
03473  M01S03128.1hy     +++|          CON    CHPE        CHANNEL PARITY
03474  M01S03129.1hy     +++|          CON    CHFE        CHANNEL FAILURE
03475  M01S03130.1hy     +++|          CON    FTOE        FUNCTION TIMEOUT
03476  M01S03131.1hy     +++|          CON    PARE        DATA PARITY (MEDIA)
03477  M01S03132.1hy     +++|          CON    NRDE        DEVICE NOT READY
03478  M01S03133.1hy     +++|          CON    IDTE        DATA TRANSFER
03479  M01S03134.1hy     +++|          CON    DSTE        DEVICE STATUS
03480  M01S03135.1hy     +++|          CON    DSTE        DEVICE STATUS
03481  M01S03136.1hy     +++|          CON    DSTE        DEVICE STATUS
03482  M01S03137.1hy     +++|          CON    DSTE        DEVICE STATUS
03483  M01S03138.1hy     +++|          CON    DDFE        DIAGNOSTIC FAILURE
03484  M01S03139.1hy     +++|          CON    DRVE        DRIVE RESERVED
03485  M01S03140.1hy     +++|          LOC    *O
03486  M01S03141.1hy     +++| TMSK     SPACE  4,10
03487  M01S03142.1hy     +++|**        TMSK - TABLE OF UNIT MASKS.
03488  M01S03143.1hy     +++|*
03489  M01S03144.1hy     +++|*         INDEXED BY UNIT NUMBER.
03490  M01S03145.1hy     +++|
03491  M01S03146.1hy     +++|
03492  M01S03147.1hy     +++| TMSK     BSS    0
03493  M01S03148.1hy     +++|          LOC    0
03494  M01S03149.1hy     +++|
03495  M01S03150.1hy     +++|          CON    200
03496  M01S03151.1hy     +++|          CON    100
03497  M01S03152.1hy     +++|          CON    040
03498  M01S03153.1hy     +++|          CON    020
03499  M01S03154.1hy     +++|          CON    010
03500  M01S03155.1hy     +++|          CON    004
03501  M01S03156.1hy     +++|          CON    002
03502  M01S03157.1hy     +++|          CON    001
03503  M01S03158.1hy     +++|          LOC    *O
03504  M01S03159.1hy     +++| UEC      SPACE  4,15
03505  M01S03160.1hy     +++|**        UEC - UPDATE MST ERROR COUNT.
03506  M01S03161.1hy     +++|*
03507  M01S03162.1hy     +++|*         ENTRY  (EO) = EST ORDINAL.
03508  M01S03163.1hy     +++|*                (BMLM+2) = BML MESSAGE SYMPTOM CODE.
03509  M01S03164.1hy     +++|*                (MISC - BIT 0) = 1 IF UNRECOVERED ERROR.
03510  M01S03165.1hy     +++|*
03511  M01S03166.1hy     +++|*         USES   CM - CM+4.
03512  M01S03167.1hy     +++|*
03513  M01S03168.1hy     +++|*         MACROS MONITOR.
03514  M01S03169.1hy     +++|
03515  M01S03170.1hy     +++|
03516  M01S03171.1hy     +++| UEC      SUBR               ENTRY/EXIT
03517  M01S03172.1hy     +++|          LDM    BMLM+1

Line S03173 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2714`

Seq #  *Modification Id* Act 
----------------------------+
03518  M02S03173.ns2714  ---|          LMC    HD0105

Line S00001 Modification History
`M01` (Added by)	`ns2714`
`M02` (Updated by)	`272l774`

Seq #  *Modification Id* Act 
----------------------------+
03519  M02S00001.272l774 ---|          LMC    D1HY*400+HD0105
03520  M01S00002.272l774 +++|          LMC    D1HY*400+HD0111
03521  M01S03174.1hy     +++|          NJN    UECX        IF NOT COMPLETION MESSAGE
03522  M01S03175.1hy     +++|          LDD    EO
03523  M01S03176.1hy     +++|          STD    CM+1        SET EST ORDINAL
03524  M01S03177.1hy     +++|          LDM    MISC
03525  M01S03178.1hy     +++|          LPN    1           SET BYTE NUMBER
03526  M01S03179.1hy     +++|          ADN    3
03527  M01S03180.1hy     +++|          STD    CM+2
03528  M01S03181.1hy     +++|          LDN    ICTS        INCREMENT ERROR COUNT
03529  M01S03182.1hy     +++|          STD    CM+3

Line S03183 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
03530  M02S03183.253l688 ---|          MONITOR  STBM
03531  M01S00015.253l688 +++|          MONITOR  SMDM
03532  M01S03184.1hy     +++|          UJN    UECX        RETURN
03533  M01S03185.1hy     +++| UHD      SPACE  4,15
03534  M01S03186.1hy     +++|**        UHD - UNPACK HEX DATA.
03535  M01S03187.1hy     +++|*
03536  M01S03188.1hy     +++|*         ENTRY  (A) = 6/ BC, 12/ SA
03537  M01S03189.1hy     +++|*                      BC = BYTE COUNT OF HEX DATA.
03538  M01S03190.1hy     +++|*                      SA = SOURCE DATA ADDRESS.
03539  M01S03191.1hy     +++|*                (T3) = DESTINATION DATA ADDRESS.
03540  M01S03192.1hy     +++|*
03541  M01S03193.1hy     +++|*         EXIT   (A) = CM WORD COUNT OF 12 BIT DATA.
03542  M01S03194.1hy     +++|*
03543  M01S03195.1hy     +++|*         USES   T2, T4, T5.
03544  M01S03196.1hy     +++|*
03545  M01S03197.1hy     +++|*         CALLS  DV5.
03546  M01S03198.1hy     +++|
03547  M01S03199.1hy     +++|
03548  M01S03200.1hy     +++| UHD3     AOD    T3          SET END OF 12 BIT DATA
03549  M01S03201.1hy     +++|          STM    UHDA
03550  M01S03202.1hy     +++|          LDN    ZERL        ENSURE ZERO FILL TO CM WORD BOUNDARY
03551  M01S03203.1hy     +++|          CRM    *,ON
03552  M01S03204.1hy     +++| UHDA     EQU    *-1
03553  M01S03205.1hy     +++|          LDD    T3          SET BYTE COUNT OF 12 BIT DATA
03554  M01S03206.1hy     +++|          SBD    T5
03555  M01S03207.1hy     +++|          RJM    DV5         CONVERT TO CM WORD COUNT
03556  M01S03208.1hy     +++|
03557  M01S03209.1hy     +++| UHD      SUBR               ENTRY/EXIT
03558  M01S03210.1hy     +++|          STD    T2
03559  M01S03211.1hy     +++|          SHN    -14         SET BYTE COUNT
03560  M01S03212.1hy     +++|          STD    T4
03561  M01S03213.1hy     +++|          LDD    T3          PRESERVE DESTINATION BUFFER ADDRESS
03562  M01S03214.1hy     +++|          STD    T5
03563  M01S03215.1hy     +++| UHD1     LDIL   T2          UNPACK N+3RD BYTE
03564  M01S03216.1hy     +++|          SHN    16
03565  M01S03217.1hy     +++|          STI    T3
03566  M01S03218.1hy     +++|          SHN    -6
03567  M01S03219.1hy     +++|          SCN    77
03568  M01S03220.1hy     +++|          STM    1,T3
03569  M01S03221.1hy     +++|          AOD    T3
03570  M01S03222.1hy     +++|          SOD    T4
03571  M01S03223.1hy     +++| UHD2     ZJN    UHD3        IF END OF HEX DATA
03572  M01S03224.1hy     +++|          AOD    T2
03573  M01S03225.1hy     +++|          LDIL   T2          UNPACK N+4TH BYTE
03574  M01S03226.1hy     +++|          SHN    -10
03575  M01S03227.1hy     +++|          RAI    T3
03576  M01S03228.1hy     +++|          AOD    T3
03577  M01S03229.1hy     +++|          LDIL   T2
03578  M01S03230.1hy     +++|          SHN    4
03579  M01S03231.1hy     +++|          SCN    17
03580  M01S03232.1hy     +++|          STI    T3
03581  M01S03233.1hy     +++|          SOD    T4
03582  M01S03234.1hy     +++|          ZJN    UHD2        IF END OF HEX DATA
03583  M01S03235.1hy     +++|          AOD    T2
03584  M01S03236.1hy     +++|          LDIL   T2          UNPACK N+5TH BYTE
03585  M01S03237.1hy     +++|          STM    1,T3
03586  M01S03238.1hy     +++|          SHN    -14
03587  M01S03239.1hy     +++|          RAI    T3
03588  M01S03240.1hy     +++|          AOD    T3
03589  M01S03241.1hy     +++|          SOD    T4
03590  M01S03242.1hy     +++|          ZJN    UHD2        IF END OF HEX DATA
03591  M01S03243.1hy     +++|          AOD    T2
03592  M01S03244.1hy     +++|          AOD    T3
03593  M01S03245.1hy     +++|          UJP    UHD1        CONTINUE UNPACK
03594  M01S03246.1hy     +++| WBD      SPACE  4,10
03595  M01S03247.1hy     +++|**        WBD - WRITE BUFFERED DISK.
03596  M01S03248.1hy     +++|*
03597  M01S03249.1hy     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
03598  M01S03250.1hy     +++|*
03599  M01S03251.1hy     +++|*         EXIT   (A) = *ETTR* IF *T* REGISTER EMPTY TIMEOUT.
03600  M01S03252.1hy     +++|*
03601  M01S03253.1hy     +++|*         CALLS  COS, EIO, SFR, WTR.
03602  M01S03254.1hy     +++|
03603  M01S03255.1hy     +++|
03604  M01S03256.1hy     +++| WBD2     RJM    WTR         WRITE *T* REGISTER
03605  M01S03257.1hy     +++|          RJM    SFR
03606  M01S03258.1hy     +++|          NJN    WBD1        IF CONSECUTIVE REQUEST FOUND
03607  M01S03259.1hy     +++|
03608  M01S03260.1hy     +++| WBD      SUBR               ENTRY/EXIT
03609  M01S03261.1hy     +++|          LDD    CB
03610  M01S03262.1hy     +++| WBD1     STD    CB          ENTER REQUEST IN I/O QUEUE
03611  M01S03263.1hy     +++|          RJM    EIO
03612  M01S03264.1hy     +++|          LDN    2           CHECK OPERATIONAL STATUS
03613  M01S03265.1hy     +++|          RJM    COS
03614  M01S03266.1hy     +++|          ZJN    WBD2        IF *T* REGISTER EMPTY
03615  M01S03267.1hy     +++|          LDN    ETTR
03616  M01S03268.1hy     +++|          UJN    WBDX        RETURN ERROR
03617  M01S03269.1hy     +++| WCB      SPACE  4,15
03618  M01S03270.1hy     +++|**        WCB - WRITE COMMAND BLOCK.
03619  M01S03271.1hy     +++|*
03620  M01S03272.1hy     +++|*         ENTRY  (A) = 1/ CA, 1/, 16/ CC
03621  M01S03273.1hy     +++|*                      CA = 1 IF NOT CLEARING ATTENTION.
03622  M01S03274.1hy     +++|*                      CC = COMMAND CODE.
03623  M01S03275.1hy     +++|*                (TO) = TIMEOUT VALUE FOR *FTT*.
03624  M01S03276.1hy     +++|*
03625  M01S03277.1hy     +++|*         USES   T3.
03626  M01S03278.1hy     +++|*
03627  M01S03279.1hy     +++|*         CALLS  FCN, R1B, STO, WFW, WTC.
03628  M01S03280.1hy     +++|
03629  M01S03281.1hy     +++|
03630  M01S03282.1hy     +++| WCB      SUBR               ENTRY/EXIT
03631  M01S03283.1hy     +++|          STML   WCBA+7

Line S03284 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03632  M02S03284.ns2769  ---|          STML   LCMD
03633  M01S00129.ns2769  +++|          STML   LCMD,DI
03634  M01S03285.1hy     +++|          SHN    0-21        EXTRACT *CLEAR ATTENTION* STATUS
03635  M01S03286.1hy     +++|          SHN    14-0
03636  M01S03287.1hy     +++|          LMC    FWCB        INITIATE COMMAND BLOCK WRITE
03637  M01S03288.1hy     +++| WCB1     RJM    WFW
03638  M01S03289.1hy     +++|          LDN    10          SET LENGTH OF BLOCK
03639  M01S03290.1hy     +++|          ACN    CH
03640  M01S03291.1hy     +++|          OAM    WCBA,CH     OUTPUT COMMAND BLOCK
03641  M01S03292.1hy     +++|          RJM    WTC
03642  M01S03293.1hy     +++|          LDC    250D        SET LOCAL TIMEOUT
03643  M01S03294.1hy     +++|          STD    T3
03644  M01S03295.1hy     +++| WCB2     LDC    FCRO        GET OPERATIONAL STATUS
03645  M01S03296.1hy     +++|          RJM    R1B
03646  M01S03297.1hy     +++|          LPN    1
03647  M01S03298.1hy     +++|          NJN    WCB4        IF COMMAND BLOCK TRANSFER INCOMPLETE
03648  M01S03299.1hy     +++|*         LDN    0
03649  M01S03300.1hy     +++|          STM    WCBA+4      CLEAR PARAMETER WORD
03650  M01S03301.1hy     +++|          LDC    FCCS
03651  M01S03302.1hy     +++|          RJM    FCN         CLEAR COMMAND SEQUENCE
03652  M01S03303.1hy     +++|          LDD    TO
03653  M01S03304.1hy     +++|          RJM    STO         SET REQUEST TIMEOUT
03654  M01S03305.1hy     +++| WCB3     UJP    WCBX        RETURN
03655  M01S03306.1hy     +++|
03656  M01S03307.1hy     +++| WCB4     DELAY  7           WAIT AWHILE
03657  M01S03308.1hy     +++|          SOD    T3
03658  M01S03309.1hy     +++|          NJN    WCB2        IF NOT TIMEOUT
03659  M01S03310.1hy     +++|          LDN    ETCB
03660  M01S03311.1hy     +++|          RJM    ERR         PROCESS ERROR
03661  M01S03312.1hy     +++|
03662  M01S03313.1hy     +++|
03663  M01S03314.1hy     +++| WCBA     BSS    10          COMMAND BLOCK
03664  M01S03315.1hy     +++| WFC      SPACE  4,10
03665  M01S03316.1hy     +++|**        WFC - WRITE FUNCTION WORD AND CLEAR.
03666  M01S03317.1hy     +++|*
03667  M01S03318.1hy     +++|*         ENTRY  (A) = FUNCTION WORD.
03668  M01S03319.1hy     +++|*
03669  M01S03320.1hy     +++|*         CALLS  FCN, WFW.
03670  M01S03321.1hy     +++|
03671  M01S03322.1hy     +++|
03672  M01S03323.1hy     +++| WFC      SUBR               ENTRY/EXIT
03673  M01S03324.1hy     +++|          RJM    WFW         WRITE FUNCTION WORD
03674  M01S03325.1hy     +++|          LDC    FCCS        CLEAR COMMAND SEQUENCE
03675  M01S03326.1hy     +++|          RJM    FCN
03676  M01S03327.1hy     +++|          UJN    WFCX        RETURN
03677  M01S03328.1hy     +++| WFW      SPACE  4,10
03678  M01S03329.1hy     +++|**        WFW - WRITE FUNCTION WORD.
03679  M01S03330.1hy     +++|*
03680  M01S03331.1hy     +++|*         ENTRY  (A) = FUNCTION WORD.
03681  M01S03332.1hy     +++|*
03682  M01S03333.1hy     +++|*         CALLS  FCN, WTC.
03683  M01S03334.1hy     +++|
03684  M01S03335.1hy     +++|
03685  M01S03336.1hy     +++| WFW      SUBR               ENTRY/EXIT
03686  M01S03337.1hy     +++|          STML   WFWA
03687  M01S03338.1hy     +++|          LDC    FCCS        CLEAR COMMAND SEQUENCE
03688  M01S03339.1hy     +++|          RJM    FCN
03689  M01S03340.1hy     +++|          LDC    FCSS        SET COMMAND SEQUENCE / SELECT HOLD
03690  M01S03341.1hy     +++|          RJM    FCN
03691  M01S03342.1hy     +++|          LDN    1           SET BYTE COUNT
03692  M01S03343.1hy     +++|          ACN    CH
03693  M01S03344.1hy     +++|          OAM    WFWA,CH     OUTPUT FUNCTION WORD
03694  M01S03345.1hy     +++|          RJM    WTC
03695  M01S03346.1hy     +++|          UJN    WFWX        RETURN
03696  M01S03347.1hy     +++|
03697  M01S03348.1hy     +++|
03698  M01S03349.1hy     +++| WFWA     CON    0           FUNCTION WORD BUFFER
03699  M01S03350.1hy     +++| WLB      SPACE  4,10
03700  M01S03351.1hy     +++|**        WLB - WRITE LINKAGE BITS.
03701  M01S03352.1hy     +++|*
03702  M01S03353.1hy     +++|*         ENTRY  (A) = (T6) = ADDRESS FOR LINKAGE IN (CM - CM+4).
03703  M01S03354.1hy     +++|*                (T1) = DATA BUFFER ADDRESS.
03704  M01S03355.1hy     +++|*                (T5) = NUMBER OF WORDS TO WRITE.
03705  M01S03356.1hy     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
03706  M01S03357.1hy     +++|*
03707  M01S03358.1hy     +++|*         EXIT   SECTOR LINKAGE SET IN DATA BUFFER.
03708  M01S03359.1hy     +++|*
03709  M01S03360.1hy     +++|*         USES   T6.
03710  M01S03361.1hy     +++|
03711  M01S03362.1hy     +++|
03712  M01S03363.1hy     +++| WLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
03713  M01S03364.1hy     +++|          RAD    T1
03714  M01S03365.1hy     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
03715  M01S03366.1hy     +++|          SHN    -10
03716  M01S03367.1hy     +++|*         LPN    17
03717  M01S03368.1hy     +++|          SHN    14          POSITION FOR DATA BUFFER
03718  M01S03369.1hy     +++|          LMI    T1
03719  M01S03370.1hy     +++|          STIL   T1
03720  M01S03371.1hy     +++| WLB2     LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
03721  M01S03372.1hy     +++|          SHN    -4
03722  M01S03373.1hy     +++|          LPN    17
03723  M01S03374.1hy     +++|          SHN    14          POSITION FOR DATA BUFFER
03724  M01S03375.1hy     +++|          LMM    4,T1
03725  M01S03376.1hy     +++|          STML   4,T1
03726  M01S03377.1hy     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
03727  M01S03378.1hy     +++|*         SHN    0
03728  M01S03379.1hy     +++|          LPN    17
03729  M01S03380.1hy     +++|          SHN    14          POSITION FOR DATA BUFFER
03730  M01S03381.1hy     +++|          LMM    10,T1
03731  M01S03382.1hy     +++|          STML   10,T1
03732  M01S03383.1hy     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
03733  M01S03384.1hy     +++|          LMN    CM+5
03734  M01S03385.1hy     +++|          NJN    WLB1        IF MORE LINKAGE
03735  M01S03386.1hy     +++|          LDC    1S17
03736  M01S03387.1hy     +++|          CWML   SBUF,T5     UPDATE DATA BUFFER
03737  M01S03388.1hy     +++|
03738  M01S03389.1hy     +++| WLB      SUBR               ENTRY/EXIT
03739  M01S03390.1hy     +++|*         LDD    T6
03740  M01S03391.1hy     +++|          UJN    WLB2        MOVE SECTOR LINKAGE
03741  M01S03392.1hy     +++| WMC      SPACE  4,10
03742  M01S03393.1hy     +++|**        WMC - WAIT MAINTENANCE CHANNEL EMPTY.
03743  M01S03394.1hy     +++|*
03744  M01S03395.1hy     +++|*         ENTRY  (A) = 0 IF TRANSFER COMPLETE.
03745  M01S03396.1hy     +++|*                (T5) = 0 IF INITIAL ENTRY.
03746  M01S03397.1hy     +++|*
03747  M01S03398.1hy     +++|*         EXIT   (A) = 0 IF CHANNEL EMPTY.
03748  M01S03399.1hy     +++|*                    = (T5) IF CHANNEL HUNG FULL.
03749  M01S03400.1hy     +++|*
03750  M01S03401.1hy     +++|*         USES   CM - CM+4.
03751  M01S03402.1hy     +++|
03752  M01S03403.1hy     +++|
03753  M01S03404.1hy     +++| WMC3     LDD    T5
03754  M01S03405.1hy     +++|          ZJN    WMCX        IF NO ERRORS
03755  M01S03406.1hy     +++|          LDN    ZERL
03756  M01S03407.1hy     +++|          CRD    CM          CLEAR BUFFER
03757  M01S03408.1hy     +++|          LDD    CP
03758  M01S03409.1hy     +++|          ADN    MS2W        CLEAR CP MESSAGE
03759  M01S03410.1hy     +++|          CWD    CM
03760  M01S03411.1hy     +++|          LDN    0           INDICATE CHANNEL EMPTY
03761  M01S03412.1hy     +++|
03762  M01S03413.1hy     +++| WMC      SUBR               ENTRY/EXIT
03763  M01S03414.1hy     +++|          NJN    WMC2        IF INCOMPLETE TRANSFER
03764  M01S03415.1hy     +++|          LDD    TH
03765  M01S03416.1hy     +++| WMC1     EJM.   WMC3,MR     IF TRANSMISSION COMPLETE
03766  M01S03417.1hy     +++|          SBN    1
03767  M01S03418.1hy     +++|          NJN    WMC1        IF NOT TIMED OUT
03768  M01S03419.1hy     +++| WMC2     DCN.   MR+40
03769  M01S03420.1hy     +++|          CCF.   *+2,MR      CLEAR CHANNEL FLAG
03770  M01S03421.1hy     +++|          LDD    CP
03771  M01S03422.1hy     +++|          ADN    MS2W        STORE CP MESSAGE
03772  M01S03423.1hy     +++|          CWM    WMCA,TR
03773  M01S03424.1hy     +++|          STD    T5
03774  M01S03425.1hy     +++|          UJN    WMCX        RETURN
03775  M01S03426.1hy     +++|
03776  M01S03427.1hy     +++|
03777  M01S03428.1hy     +++| WMCA     DATA   C*MR ERROR.*
03778  M01S03429.1hy     +++| WTC      SPACE  4,10
03779  M01S03430.1hy     +++|**        WTC - WAIT TRANSMISSION COMPLETE.
03780  M01S03431.1hy     +++|*
03781  M01S03432.1hy     +++|*         EXIT   (A) = 0.
03782  M01S03433.1hy     +++|*
03783  M01S03434.1hy     +++|*         ERROR  TO *ERR*.
03784  M01S03435.1hy     +++|*
03785  M01S03436.1hy     +++|*         USES   T1.
03786  M01S03437.1hy     +++|*
03787  M01S03438.1hy     +++|*         CALLS  CFE.
03788  M01S03439.1hy     +++|
03789  M01S03440.1hy     +++|
03790  M01S03441.1hy     +++| WTC3     LDD    T1          CHECK FOR I/O ERROR
03791  M01S03442.1hy     +++|          RJM    CFE
03792  M01S03443.1hy     +++|*         LDN    0           EXIT CONDITION FROM *CFE*
03793  M01S03444.1hy     +++|
03794  M01S03445.1hy     +++| WTC      SUBR               ENTRY/EXIT
03795  M01S03446.1hy     +++|          STD    T1
03796  M01S03447.1hy     +++|          LDN    5           SET TIMEOUT = 5*262 MILLISECONDS
03797  M01S03448.1hy     +++|          STD    T0
03798  M01S03449.1hy     +++| WTC1     LDN    0
03799  M01S03450.1hy     +++| WTC2     EJM    WTC3,CH     IF LAST BYTE TAKEN OFF CHANNEL
03800  M01S03451.1hy     +++|          SBN    1
03801  M01S03452.1hy     +++|          NJN    WTC2        IF NOT TIMED OUT
03802  M01S03453.1hy     +++|          SOD    T0
03803  M01S03454.1hy     +++|          NJN    WTC1        IF NOT TIMEOUT
03804  M01S03455.1hy     +++|          DCN    CH+40
03805  M01S03456.1hy     +++|          LDN    ECHF
03806  M01S03457.1hy     +++|          RJM    ERR         PROCESS CHANNEL ERROR
03807  M01S03458.1hy     +++| WTR      SPACE  4,10
03808  M01S03459.1hy     +++|**        WTR - WRITE *T* REGISTER.
03809  M01S03460.1hy     +++|*
03810  M01S03461.1hy     +++|*         ENTRY  (CB) = *CBT* ORDINAL.
03811  M01S03462.1hy     +++|*                (TO) = TIMEOUT VALUE FOR *FTT*.
03812  M01S03463.1hy     +++|*
03813  M01S03464.1hy     +++|*         CALLS  FCN, STO, SUA, WTC.
03814  M01S03465.1hy     +++|
03815  M01S03466.1hy     +++|
03816  M01S03467.1hy     +++| WTR      SUBR               ENTRY/EXIT
03817  M01S03468.1hy     +++|          LDD    CB
03818  M01S03469.1hy     +++|          RJM    SUA         SET UEM ADDRESS
03819  M01S03470.1hy     +++|          LDD    UA+1
03820  M01S03471.1hy     +++|          SHN    11
03821  M01S03472.1hy     +++|          SCN    7
03822  M01S03473.1hy     +++|          STML   WTRA+2      FORM ABSOLUTE UEM ADDRESS
03823  M01S03474.1hy     +++|          LDD    UA
03824  M01S03475.1hy     +++|          SHN    14
03825  M01S03476.1hy     +++|          LMD    UA+1
03826  M01S03477.1hy     +++|          SHN    11-20       SET IN *T* REGISTER
03827  M01S03478.1hy     +++|          STM    WTRA+1
03828  M01S03479.1hy     +++|          LDC    FCWT        ISSUE WRITE *T* REGISTER FUNCTION
03829  M01S03480.1hy     +++|          RJM    FCN
03830  M01S03481.1hy     +++|          LDN    3           SET BLOCK LENGTH
03831  M01S03482.1hy     +++|          ACN    CH
03832  M01S03483.1hy     +++|          OAM    WTRA,CH     OUTPUT BUFFER PARAMETERS
03833  M01S03484.1hy     +++|          RJM    WTC
03834  M01S03485.1hy     +++|          LDD    TO          SET REQUEST TIMEOUT
03835  M01S03486.1hy     +++|          RJM    STO
03836  M01S03487.1hy     +++|          UJP    WTRX        RETURN
03837  M01S03488.1hy     +++|
03838  M01S03489.1hy     +++|
03839  M01S03490.1hy     +++| WTRA     BSS    0           *T* REGISTER BUFFER
03840  M01S03491.1hy     +++|          CONL   40000       BYTE LENGTH OF I/O TRANSFER
03841  M01S03492.1hy     +++|          CONL   0,0         UEM ADDRESS OF BUFFER
03842  M01S03493.1hy     +++|          TITLE  MISCELLANEOUS.
03843  M01S03494.1hy     +++|          SPACE  4,10
03844  M01S03495.1hy     +++|**        COMMON DECKS.
03845  M01S03496.1hy     +++|
03846  M01S03497.1hy     +++|
03847  M01S03498.1hy     +++|*CALL     COMPC2D
03848  M01S03499.1hy     +++| RND$     EQU    0           DEFINE ROUNDING FOR *COMPDV5*
03849  M01S03500.1hy     +++|*CALL     COMPDV5
03850  M01S00130.ns2769  +++| M8K$     EQU    1           USE LONG INSTRUCTIONS
03851  M01S00131.ns2769  +++|*CALL     COMPIMB
03852  M01S03501.1hy     +++|*CALL     COMPSES
03853  M01S03502.1hy     +++|          SPACE  4,10
03854  M01S03503.1hy     +++|**        BUFFERS.
03855  M01S03504.1hy     +++|
03856  M01S03505.1hy     +++|
03857  M01S03506.1hy     +++| SLST     BSS    0           SLAVE STATUS
03858  M01S03507.1hy     +++| DVST     EQU    SLST+SLSTL  DEVICE STATUS
03859  M01S03508.1hy     +++|

Line S03509 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03860  M02S03509.ns2769  ---| EBUF     EQU    DVST+DVSTL  ERROR MESSAGE ASSEMBLY BUFFER
03861  M01S00132.ns2769  +++| EHDR     EQU    DVST+DVSTL  ERROR MESSAGE HEADER BUFFER
03862  M01S00133.ns2769  +++| EBUF     EQU    EHDR+5*3    ERROR MESSAGE ASSEMBLY BUFFER
03863  M01S03510.1hy     +++| CODE     EQU    EBUF        INITIAL FAULT CODE
03864  M01S03511.1hy     +++| FCS1     EQU    EBUF+1      FAULT CODE - ERROR STEP 1
03865  M01S03512.1hy     +++| FCS2     EQU    EBUF+2      FAULT CODE - ERROR STEP 2
03866  M01S03513.1hy     +++| FCS3     EQU    EBUF+3      FAULT CODE - ERROR STEP 3
03867  M01S03514.1hy     +++| FALT     EQU    EBUF+4      FINAL FAULT CODE
03868  M01S03515.1hy     +++| RSVD     EQU    EBUF+5      RESERVED
03869  M01S03516.1hy     +++| RBCT     EQU    EBUF+6      RESIDUAL BYTE COUNT
03870  M01S03517.1hy     +++| STCT     EQU    EBUF+7      SECTORS TRANSFERED COUNT
03871  M01S03518.1hy     +++| ICYL     EQU    EBUF+10     CYLINDER ON INITIAL SEEK
03872  M01S03519.1hy     +++| ITAS     EQU    EBUF+11     TRACK + SECTOR ON INITIAL SEEK
03873  M01S03520.1hy     +++|
03874  M01S03521.1hy     +++| DBUF     EQU    EBUF+EBUFL  DATA BUFFER
03875  M01S03522.1hy     +++| EXST     EQU    DBUF        EXECUTION STATUS
03876  M01S03523.1hy     +++| IDST     EQU    DBUF+1      IDLE STATUS
03877  M01S03524.1hy     +++| BSRN     EQU    DBUF+2      BIT SIGNIFICANT RESPONSE
03878  M01S03525.1hy     +++| LSCC     EQU    DBUF+3      LAST SLAVE COMMAND
03879  M01S03526.1hy     +++| LCFN     EQU    DBUF+4      LAST CHANNEL FUNCTION
03880  M01S03527.1hy     +++| RBUF     EQU    DBUF+5      REGISTER BUFFER
03881  M01S03528.1hy     +++|

Line S03529 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03882  M02S03529.ns2769  ---| MBUF     EQU    DBUF+DBUFL  MESSAGE ASSEMBLY BUFFER
03883  M01S00134.ns2769  +++| SBUF     EQU    DBUF+DBUFL  SCRATCH BUFFER
03884  M01S03530.1hy     +++|

Line S03531 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03885  M02S03531.ns2769  ---| SBUF     EQU    MBUF-5*3    SCRATCH BUFFER
03886  M01S00135.ns2769  +++| MBUF     EQU    SBUF+5*3    MESSAGE ASSEMBLY BUFFER
03887  M01S03532.1hy     +++|          TITLE  PRESET ROUTINES.
03888  M01S03533.1hy     +++| CCP      SPACE  4,10
03889  M01S03534.1hy     +++|**        CCP - CHECK CALLING PROGRAM.
03890  M01S03535.1hy     +++|*
03891  M01S03536.1hy     +++|*         EXIT   (A) = 0.
03892  M01S03537.1hy     +++|*
03893  M01S03538.1hy     +++|*         USES   CM - CM+4.
03894  M01S03539.1hy     +++|*
03895  M01S03540.1hy     +++|*         CALLS  DFM.
03896  M01S03541.1hy     +++|*
03897  M01S03542.1hy     +++|*         MACROS MONITOR.
03898  M01S03543.1hy     +++|
03899  M01S03544.1hy     +++|
03900  M01S03545.1hy     +++| CCP      SUBR               ENTRY/EXIT
03901  M01S03546.1hy     +++|          LDK    NCPL
03902  M01S03547.1hy     +++|          CRD    CM          GET NUMBER OF CONTROL POINTS
03903  M01S03548.1hy     +++|          AOD    CM+1
03904  M01S03549.1hy     +++|          SHN    7
03905  M01S03550.1hy     +++|          LMD    CP
03906  M01S03551.1hy     +++|          ZJN    CCPX        IF DRIVER AT SYSTEM CP
03907  M01S03552.1hy     +++|          LDC    CCPA
03908  M01S03553.1hy     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
03909  M01S03554.1hy     +++|          MONITOR  ABTM
03910  M01S03555.1hy     +++|          LJM    PPR         EXIT TO PP RESIDENT
03911  M01S03556.1hy     +++|
03912  M01S03557.1hy     +++|
03913  M01S03558.1hy     +++| CCPA     DATA   C* 1HY - UNAUTHORIZED CALL.*
03914  M01S03559.1hy     +++| IST      SPACE  4,15
03915  M01S03560.1hy     +++|**        IST - INITIALIZE DEVICE STATE TABLE.
03916  M01S03561.1hy     +++|*
03917  M01S03562.1hy     +++|*         ENTRY  (PO) = 0.
03918  M01S03563.1hy     +++|*                (RC) = NUMBER OF ENTRIES IN *PUT*.
03919  M01S03564.1hy     +++|*
03920  M01S03565.1hy     +++|*         EXIT   (A) = 0 IF NO DEVICES FOR THIS DRIVER.
03921  M01S03566.1hy     +++|*
03922  M01S03567.1hy     +++|*         USES   DI, PO, CM - CM+4.
03923  M01S03568.1hy     +++|*
03924  M01S03569.1hy     +++|*         MACROS PUTE, SFA.
03925  M01S03570.1hy     +++|
03926  M01S03571.1hy     +++|
03927  M01S03572.1hy     +++| IST6     LDD    DI          DEFINE END OF DEVICES
03928  M01S03573.1hy     +++|          STM    HYDA
03929  M01S03574.1hy     +++|          LMC    DSTB        SET EXIT CONDITION
03930  M01S03575.1hy     +++|
03931  M01S03576.1hy     +++| IST      SUBR               ENTRY/EXIT
03932  M01S03577.1hy     +++|          LDC    DSTBL-1
03933  M01S03578.1hy     +++|          STD    DI
03934  M01S03579.1hy     +++| IST1     LDN    0           CLEAR DEVICE STATE TABLE
03935  M01S03580.1hy     +++|          STI    DI
03936  M01S03581.1hy     +++|          SOD    DI
03937  M01S03582.1hy     +++|          LMC    DSTB
03938  M01S03583.1hy     +++|          NJN    IST1        IF MORE TO CLEAR
03939  M01S03584.1hy     +++| IST2     AOD    PO
03940  M01S03585.1hy     +++|          LMD    RC
03941  M01S03586.1hy     +++|          ZJN    IST6        IF END OF PHYSICAL UNIT TABLE
03942  M01S03587.1hy     +++|          LDD    PO
03943  M01S03588.1hy     +++|          SHN    PUTLS       READ *PUT* ENTRY
03944  M01S03589.1hy     +++|          PUTE   *
03945  M01S03590.1hy     +++|          ADC    UNCT        GET UNIT CONTROL WORD
03946  M01S03591.1hy     +++|          CRD    CM
03947  M01S03592.1hy     +++|          SFA    EST,CM+1    FETCH EST ENTRY
03948  M01S03593.1hy     +++|          ADK    EQDE
03949  M01S03594.1hy     +++|          CRD    CM
03950  M01S03595.1hy     +++|          LDN    CM          INITIALIZE CHANNEL BYTE ADDRESS
03951  M01S03596.1hy     +++|          STD    CM
03952  M01S03597.1hy     +++| IST3     AOD    CM          ADVANCE PATH DESCRIPTOR ADDRESS
03953  M01S03598.1hy     +++|          LMN    CM+3
03954  M01S03599.1hy     +++|          ZJN    IST2        IF TWO POSSIBLE CHANNELS CHECKED
03955  M01S03600.1hy     +++|          LDI    CM
03956  M01S03601.1hy     +++|          ZJN    IST3        IF NULL ACCESS
03957  M01S03602.1hy     +++|          LMD    IR+4
03958  M01S03603.1hy     +++|          LPN    77
03959  M01S03604.1hy     +++| IST4     NJN    IST3        IF NOT THIS DRIVERS CHANNEL
03960  M01S03605.1hy     +++|
03961  M01S03606.1hy     +++| IST5     LDD    PO          SET *PUT* ORDINAL IN STATE TABLE
03962  M01S03607.1hy     +++|          STI    DI
03963  M01S03608.1hy     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
03964  M01S03609.1hy     +++|          LDI    CM
03965  M01S03610.1hy     +++|          LPC    200         SET PORT SELECT IN CONTROL REGISTER
03966  M01S03611.1hy     +++|          SHN    16-7

Line S03612 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03967  M02S03612.ns2769  ---|          STML   CREG
03968  M01S00136.ns2769  +++|          STML   CREG,DI
03969  M01S03613.1hy     +++|          LDN    DSTBE       ADVANCE STATE TABLE ADDRESS
03970  M01S03614.1hy     +++|          RAD    DI
03971  M01S03615.1hy     +++|          LMC    DSTBL
03972  M01S03616.1hy     +++|          NJN    IST4        IF NOT AT BLOCK LIMIT
03973  M01S03617.1hy     +++|          LJM    IST6        SET INITIAL STATE TABLE ADDRESS
03974  M01S03618.1hy     +++| MCI      SPACE  4,10
03975  M01S03619.1hy     +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
03976  M01S03620.1hy     +++|*
03977  M01S03621.1hy     +++|*         ENTRY  (IR+4) = CONCURRENT CHANNEL NUMBER.
03978  M01S03622.1hy     +++|*
03979  M01S03623.1hy     +++|*         EXIT   (A) = 0.
03980  M01S03624.1hy     +++|*
03981  M01S03625.1hy     +++|*         USES   T1, T2.
03982  M01S03626.1hy     +++|
03983  M01S03627.1hy     +++|
03984  M01S03628.1hy     +++| MCI1     RAIL   T2          MODIFY CHANNEL INSTRUCTION
03985  M01S03629.1hy     +++|          AOD    T1
03986  M01S03630.1hy     +++| MCI2     LDM    TCHA,T1     EXTRACT NEXT ADDRESS
03987  M01S03631.1hy     +++|          STD    T2
03988  M01S03632.1hy     +++|          LDD    T0          CHECK END OF LIST
03989  M01S03633.1hy     +++|          CHTL   *
03990  M01S03634.1hy     +++|          SBN    CH
03991  M01S03635.1hy     +++|          NJN    MCI1        IF MORE INSTRUCTIONS TO MODIFY
03992  M01S03636.1hy     +++|
03993  M01S03637.1hy     +++| MCI      SUBR               ENTRY/EXIT
03994  M01S03638.1hy     +++|          LDD    IR+4
03995  M01S03639.1hy     +++|          LPN    37          EXTRACT CHANNEL NUMBER
03996  M01S03640.1hy     +++|          STD    T0
03997  M01S03641.1hy     +++|          LDN    0           INITIALIZE REMOTE TABLE INDEX
03998  M01S03642.1hy     +++|          STD    T1
03999  M01S03643.1hy     +++|          UJN    MCI2        ENTER LOOP
04000  M01S03644.1hy     +++| TCHA     SPACE  4,10
04001  M01S03645.1hy     +++|**        TABLE OF CHANNEL INSTRUCTIONS ADDRESSES.
04002  M01S03646.1hy     +++|
04003  M01S03647.1hy     +++|
04004  M01S03648.1hy     +++| TCHA     CHTB
04005  M01S03649.1hy     +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
04006  M01S03650.1hy     +++| TCBT     SPACE  4,10
04007  M01S03651.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *CBT*.
04008  M01S03652.1hy     +++|
04009  M01S03653.1hy     +++|
04010  M01S03654.1hy     +++| TCBT     BSS    0
04011  M01S03655.1hy     +++| TCBT     HERE
04012  M01S03656.1hy     +++|          CON    0           TERMINATE TABLE
04013  M01S03657.1hy     +++| TCCT     SPACE  4,10
04014  M01S03658.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING ADDRESS OF *CCT* ENTRY.
04015  M01S03659.1hy     +++|
04016  M01S03660.1hy     +++|
04017  M01S03661.1hy     +++| TCCT     BSS    0
04018  M01S03662.1hy     +++| TCCT     HERE
04019  M01S03663.1hy     +++|          CON    0           TERMINATE TABLE
04020  M01S03664.1hy     +++| TCHT     SPACE  4,10
04021  M01S03665.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF CHANNEL TABLE.
04022  M01S03666.1hy     +++|
04023  M01S03667.1hy     +++|
04024  M01S03668.1hy     +++| TCHT     BSS    0
04025  M01S03669.1hy     +++| TCHT     HERE
04026  M01S03670.1hy     +++|          CON    0           TERMINATE TABLE
04027  M01S03671.1hy     +++| TEMB     SPACE  4,10
04028  M01S03672.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *EMB*.
04029  M01S03673.1hy     +++|
04030  M01S03674.1hy     +++|
04031  M01S03675.1hy     +++| TEMB     BSS    0
04032  M01S00137.ns2769  +++|          QUAL   COMPIMB
04033  M01S03676.1hy     +++| TEMB     HERE
04034  M01S00138.ns2769  +++|          QUAL   *
04035  M01S03677.1hy     +++|          CON    0           TERMINATE TABLE
04036  M01S03678.1hy     +++| TEXP     SPACE  4,10
04037  M01S03679.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF PP EXCHANGE PACKAGE.
04038  M01S03680.1hy     +++|
04039  M01S03681.1hy     +++|
04040  M01S03682.1hy     +++| TEXP     BSS    0
04041  M01S03683.1hy     +++| TEXP     HERE
04042  M01S03684.1hy     +++|          CON    0           TERMINATE TABLE
04043  M01S03685.1hy     +++| TFTT     SPACE  4,10
04044  M01S03686.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *FTT*.
04045  M01S03687.1hy     +++|
04046  M01S03688.1hy     +++|
04047  M01S03689.1hy     +++| TFTT     BSS    0
04048  M01S03690.1hy     +++| TFTT     HERE
04049  M01S03691.1hy     +++|          CON    0           TERMINATE TABLE
04050  M01S03692.1hy     +++| TPUT     SPACE  4,10
04051  M01S03693.1hy     +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *PUT*.
04052  M01S03694.1hy     +++|
04053  M01S03695.1hy     +++|
04054  M01S03696.1hy     +++| TPUT     BSS    0
04055  M01S03697.1hy     +++| TPUT     HERE
04056  M01S03698.1hy     +++|          CON    0           TERMINATE TABLE
04057  M01S03699.1hy     +++|          SPACE  4,10
04058  M01S03700.1hy     +++|          ERRPL  *-10000     CODE DEPENDS ON VALUE
04059  M01S03701.1hy     +++| PRS      SPACE  4,20
04060  M01S03702.1hy     +++|**        PRS - PRESET *1HY* FOR PROCESSING.
04061  M01S03703.1hy     +++|*
04062  M01S03704.1hy     +++|*         EXIT   (UC) = 0.
04063  M01S03705.1hy     +++|*
04064  M01S03706.1hy     +++|*         CALLS  CCP, CCR, MCI, IST, PCT, RCR, SPA, STA.
04065  M01S03707.1hy     +++|
04066  M01S03708.1hy     +++|
04067  M01S03709.1hy     +++| PRS      RJM    CCP         CHECK CALLING PROGRAM
04068  M01S03710.1hy     +++|*         LDN    0
04069  M01S03711.1hy     +++|          STD    UC          SET NO UNITS RESERVED
04070  M01S03712.1hy     +++|          STD    PO
04071  M01S03713.1hy     +++|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
04072  M01S03714.1hy     +++|          STD    CR
04073  M01S03715.1hy     +++|          RJM    SPA         SET PP EXCHANGE PACKAGE ADDRESSES
04074  M01S03716.1hy     +++| PRS1     RJM    SCT         SET CHANNEL TABLE ADDRESSES
04075  M01S03717.1hy     +++|          LDK    BIOL
04076  M01S03718.1hy     +++|          CRD    CM          READ BUFFERED I/O POINTERS
04077  M01S03719.1hy     +++|          LDD    CM+1
04078  M01S03720.1hy     +++|          SHN    14
04079  M01S03721.1hy     +++|          LMD    CM+2
04080  M01S03722.1hy     +++|          ADN    FTTP        READ *FTT* POINTER
04081  M01S03723.1hy     +++|          CRD    T6
04082  M01S03724.1hy     +++|          SBN    FTTP-CCTP   READ *CCT* POINTER
04083  M01S03725.1hy     +++|          CRD    T4
04084  M01S03726.1hy     +++|          ADN    PUTP-CCTP   READ *PUT* POINTER
04085  M01S03727.1hy     +++|          CRD    T2
04086  M01S03728.1hy     +++|          ADN    CBTP-PUTP   READ *CBT* POINTER
04087  M01S03729.1hy     +++|          CRD    WB
04088  M01S03730.1hy     +++|          AOD    T2          SET NUMBER OF *PUT* ENTRIES
04089  M01S03731.1hy     +++|          STD    RC
04090  M01S03732.1hy     +++|          LDC    T5*10000+TPUT  SET *PUT* ADDRESSES
04091  M01S03733.1hy     +++|          RJM    STA
04092  M01S03734.1hy     +++|          LDD    IR+2        ADJUST CHANNEL CONTROL TABLE POINTER
04093  M01S03735.1hy     +++|          SHN    CCTLS-6
04094  M01S03736.1hy     +++|          RAD    CM
04095  M01S03737.1hy     +++|          SHN    -14
04096  M01S03738.1hy     +++|          RAD    T7
04097  M01S03739.1hy     +++|          LDC    T7*10000+TCCT  SET *CCT* ADDRESSES
04098  M01S03740.1hy     +++|          RJM    STA
04099  M01S03741.1hy     +++| .CM1     EQU    CM+1
04100  M01S03742.1hy     +++|          LDC    .CM1*10000+TFTT  SET *FTT* ADDRESSES
04101  M01S03743.1hy     +++|          RJM    STA
04102  M01S03744.1hy     +++| .WB3     EQU    WB+3
04103  M01S03745.1hy     +++|          LDC    .WB3*10000+TCBT  SET *CBT* ADDRESSES
04104  M01S03746.1hy     +++|          RJM    STA
04105  M01S03747.1hy     +++|          LDN    EMBP        FETCH *EMB* POINTER
04106  M01S03748.1hy     +++|          CRD    CM
04107  M01S03749.1hy     +++|          LDC    .CM1*10000+TEMB  SET *EMB* ADDRESSES
04108  M01S03750.1hy     +++|          RJM    STA
04109  M01S03751.1hy     +++|          LDK    UEML
04110  M01S03752.1hy     +++|          CRD    CM          READ UEM POINTERS
04111  M01S03753.1hy     +++|          LDD    CM
04112  M01S03754.1hy     +++| PRSA     SHN    11
04113  M01S03755.1hy     +++|*         SHN    11+EMSC
04114  M01S03756.1hy     +++|          SCN    77
04115  M01S03757.1hy     +++|          STM    SUAA        SET FWA OF UEM
04116  M01S03758.1hy     +++|          LDD    CM
04117  M01S03759.1hy     +++| PRSB     SHN    -3
04118  M01S03760.1hy     +++|*         SHN    EMSC-3
04119  M01S03761.1hy     +++|          STM    SUAB
04120  M01S03762.1hy     +++|          LDK    MMFL        FETCH MACHINE ID
04121  M01S03763.1hy     +++|          CRD    CM
04122  M01S03764.1hy     +++|          LDD    CM          SET MAINFRAME ID FOR BML MESSAGES
04123  M01S03765.1hy     +++|          STM    MFID
04124  M01S03766.1hy     +++|          LDC    PRS3        SET RETURN ADDRESS
04125  M01S03767.1hy     +++|          STM    CCR
04126  M01S03768.1hy     +++|          RJM    IST         INITIALIZE DEVICE STATE TABLE
04127  M01S03769.1hy     +++|          ZJN    PRS4        IF NO DEVICES FOR THIS DRIVER
04128  M01S03770.1hy     +++|          LDN    0           CLEAR RESIDUAL BYTE COUNT
04129  M01S03771.1hy     +++|          STM    RBCT
04130  M01S03772.1hy     +++|          LJM    CCR2        RESERVE CHANNEL
04131  M01S03773.1hy     +++|
04132  M01S03774.1hy     +++| PRS3     NJP    RCR+1       IF CHANNEL NOT DOWN
04133  M01S03775.1hy     +++| PRS4     LJM    HYD8        DROP CPP
04134  M01S03776.1hy     +++| SCT      SPACE  4,10
04135  M01S03777.1hy     +++|**        SCT - SET CHANNEL TABLE ENTRY ADDRESSES.
04136  M01S03778.1hy     +++|*
04137  M01S03779.1hy     +++|*         ENTRY  (IR+4) = CHANNEL NUMBER.
04138  M01S03780.1hy     +++|*
04139  M01S03781.1hy     +++|*         USES   T1, T2, CM - CM+4.
04140  M01S03782.1hy     +++|*
04141  M01S03783.1hy     +++|*         CALLS  STA.
04142  M01S03784.1hy     +++|
04143  M01S03785.1hy     +++|
04144  M01S03786.1hy     +++| SCT      SUBR               ENTRY/EXIT
04145  M01S03787.1hy     +++|          LDD    IR+4
04146  M01S03788.1hy     +++|          STD    T1          SET CHANNEL NUMBER
04147  M01S03789.1hy     +++|          STM    RCSA+3
04148  M01S03790.1hy     +++|          RAM    BMLM+2
04149  M01S03791.1hy     +++|*         SHN    6           SAVE RECOVERY CHANNEL FOR *BML*
04150  M01S03792.1hy     +++|*         STM    BMLM+7
04151  M01S03793.1hy     +++|          LCN    0           WORD OFFSET
04152  M01S03794.1hy     +++|          STD    T2
04153  M01S03795.1hy     +++| SCT1     AOD    T2          INCREMENT WORD OFFSET
04154  M01S03796.1hy     +++|          LCN    5
04155  M01S03797.1hy     +++|          RAD    T1
04156  M01S03798.1hy     +++|          PJN    SCT1        IF CHANNEL NOT IN THIS WORD
04157  M01S03799.1hy     +++|          ADN    5
04158  M01S03800.1hy     +++|          STD    T1
04159  M01S03801.1hy     +++|          RAM    RCTA        SET BYTE OFFSET
04160  M01S03802.1hy     +++|          LDD    T1
04161  M01S03803.1hy     +++|          SHN    1           BYTE OFFSET * 2
04162  M01S03804.1hy     +++|          ADD    T1          BYTE OFFSET * 3
04163  M01S03805.1hy     +++|          SHN    2           BYTE OFFSET * 12
04164  M01S03806.1hy     +++|          SBN    59D         (BYTE OFFSET * 12) - 59
04165  M01S03807.1hy     +++|          LMC    -0          59 - (BYTE OFFSET * 12)
04166  M01S03808.1hy     +++|          SBN    2
04167  M01S03809.1hy     +++|          SHN    6
04168  M01S03810.1hy     +++|          STM    SRFA+1      SET DRIVER FLAG BIT POSITION
04169  M01S03811.1hy     +++|          LDK    CHTP
04170  M01S03812.1hy     +++|          CRD    CM
04171  M01S03813.1hy     +++|          LDD    T2          SET ADDRESS OF WORD IN CHANNEL TABLE
04172  M01S03814.1hy     +++|          RAD    CM+3
04173  M01S03815.1hy     +++|          SHN    -14
04174  M01S03816.1hy     +++|          RAD    CM+2
04175  M01S03817.1hy     +++| .CM2     EQU    CM+2
04176  M01S03818.1hy     +++|          LDC    .CM2*10000+TCHT  SET CHANNEL TABLE ADDRESSES
04177  M01S03819.1hy     +++|          RJM    STA
04178  M01S03820.1hy     +++|          LJM    SCTX        RETURN
04179  M01S03821.1hy     +++| SPA      SPACE  4,10
04180  M01S03822.1hy     +++|**        SPA - SET PP EXCHANGE PACKAGE ADDRESSES.
04181  M01S03823.1hy     +++|*
04182  M01S03824.1hy     +++|*         USES   T1 - T5, CM - CM+4.
04183  M01S03825.1hy     +++|*
04184  M01S03826.1hy     +++|*         CALLS  STA.
04185  M01S03827.1hy     +++|
04186  M01S03828.1hy     +++|
04187  M01S03829.1hy     +++| SPA      SUBR               ENTRY/EXIT
04188  M01S03830.1hy     +++|          LDN    PXPP
04189  M01S03831.1hy     +++|          CRD    CM          FETCH FWA OF PP EXCHANGE PACKAGE AREA
04190  M01S03832.1hy     +++|          ADN    1
04191  M01S03833.1hy     +++|          CRM    AMEA,ON     SET FIRST WORD OF PP EXCHANGE PACKAGE
04192  M01S03834.1hy     +++|          ADN    PPCP-PXPP-2
04193  M01S03835.1hy     +++|          CRD    T1          READ PP COMMUNICATION AREA POINTER
04194  M01S03836.1hy     +++|          LDD    IA
04195  M01S03837.1hy     +++|          STM    AMEA+4      SET (B0) NON-ZERO FOR EXCHANGE TEST
04196  M01S03838.1hy     +++|          SBD    T1+4
04197  M01S03839.1hy     +++|          SHN    -3          (A) = CPP NUMBER
04198  M01S03840.1hy     +++|          SBN    24
04199  M01S03841.1hy     +++|          SHN    6
04200  M01S03842.1hy     +++|          STM    BMLM+2      INSERT CPP NUMBER IN BML MESSAGE
04201  M01S03843.1hy     +++|          SHN    -6
04202  M01S03844.1hy     +++|          ADN    24-2
04203  M01S03845.1hy     +++|          STD    T1          CPP NUMBER - 2
04204  M01S03846.1hy     +++|          SHN    4
04205  M01S03847.1hy     +++|          ADD    T1          (CPP NUMBER - 2) * 21B
04206  M01S03848.1hy     +++|          RAD    CM+4
04207  M01S03849.1hy     +++|          SHN    -14
04208  M01S03850.1hy     +++|          RAD    CM+3
04209  M01S03851.1hy     +++| .CM3     EQU    CM+3
04210  M01S03852.1hy     +++|          LDC    .CM3*10000+TEXP  SET EXCHANGE PACKAGE ADDRESSES
04211  M01S03853.1hy     +++|          RJM    STA
04212  M01S03854.1hy     +++|          LJM    SPAX        RETURN
04213  M01S03855.1hy     +++| STA      SPACE  4,10

Line S03856 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
04214  M02S03856.ns2769  ---|**        STA - SET BUFFERED DEVICE TABLE ADDRESSES.
04215  M01S00139.ns2769  +++|**        STA - SET TABLE ADDRESSES.
04216  M01S03857.1hy     +++|*
04217  M01S03858.1hy     +++|*         ENTRY  (A) = 6/ TP, 12/ TA

Line S03859 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
04218  M02S03859.ns2769  ---|*                      TP = BUFFERED DEVICE TABLE POINTER.
04219  M01S00140.ns2769  +++|*                      TP = TABLE POINTER.
04220  M01S03860.1hy     +++|*                      TA = INSTRUCTION TABLE ADDRESS.
04221  M01S03861.1hy     +++|*
04222  M01S03862.1hy     +++|*         EXIT   (A) = 0.
04223  M01S03863.1hy     +++|*
04224  M01S03864.1hy     +++|*         USES   T1, T2, T3.
04225  M01S03865.1hy     +++|
04226  M01S03866.1hy     +++|
04227  M01S03867.1hy     +++| STA1     STD    T2          SET INSTRUCTION ADDRESS
04228  M01S03868.1hy     +++|          LDM    1,T1
04229  M01S03869.1hy     +++|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
04230  M01S03870.1hy     +++|          SHN    -14
04231  M01S03871.1hy     +++|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
04232  M01S00089.271l716 +++|          LPN    37
04233  M01S03872.1hy     +++|          RAI    T2
04234  M01S03873.1hy     +++|          AOD    T3          ADVANCE INSTRUCTION LIST
04235  M01S03874.1hy     +++| STA2     LDI    T3
04236  M01S03875.1hy     +++|          NJN    STA1        IF NOT END OF TABLE
04237  M01S03876.1hy     +++|
04238  M01S03877.1hy     +++| STA      SUBR               ENTRY/EXIT
04239  M01S03878.1hy     +++|          STD    T3
04240  M01S03879.1hy     +++|          SHN    -14         SET ADDRESS POINTER
04241  M01S03880.1hy     +++|          STD    T1
04242  M01S03881.1hy     +++|          UJN    STA2        ENTER LOOP
04243  M01S03882.1hy     +++|
04244  M01S03883.1hy     +++|

Line S03884 Modification History
`M01` (Added by)	`1hy`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
04245  M02S03884.271l716 ---|          OVERFLOW  OHYD
04246  M01S00090.271l716 +++|          OVERFLOW  OHYD,20000
04247  M01S03885.1hy     +++|
04248  M01S03886.1hy     +++|          END