User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1da.012

Deck 1DA Part 012

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
11070  M01S00608.284l847 +++|          IFNE   EQEA,0,2
11071  M01S00609.284l847 +++|          SBN    EQEA
11072  M01S00610.284l847 +++|          MJN    VDA7.1      IF NOT SOLID STATE 5832
11073  M01S00611.284l847 +++|          SBN    EQEC-EQEA
11074  M01S06010.1da     +++|          MJP    VDAX        IF INTERRUPT SIZE NOT USED
Line S06011 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11075  M02S06011.284l847 ---|          LDC    C0200       REPORT ATTRIBUTE OPERATION CODE
11076  M01S00612.284l847 +++| VDA7.1   LDC    C0200       REPORT ATTRIBUTE OPERATION CODE
11077  M01S06012.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11078  M01S06013.1da     +++|          LDC    P036C       REPORT PARAMETER D8
11079  M01S06014.1da     +++|          STML   CPBF+FCP
11080  M01S06015.1da     +++|          LDC    0#80D8
11081  M01S06016.1da     +++|          STML   CPBF+FCP+1
11082  M01S06017.1da     +++|          LDN    12          COMMAND PACKET LENGTH
11083  M01S06018.1da     +++|          RJM    IDT         INPUT DATA TO PP
11084  M01S06019.1da     +++|          LDML   ATTB
11085  M01S06020.1da     +++|          LMC    0#9D8
11086  M01S06021.1da     +++| VDA8     NJP    VDA10       IF RESPONSE INCORRECT
Line S06022 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11087  M02S06022.284l847 ---|          LDML   ATTB+2
Line S06023 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11088  M02S06023.284l847 ---|          LMC    BPS*2
11089  M01S00613.284l847 +++|          LDC    BPB         SET INTERRUPT SIZE
11090  M01S00614.284l847 +++|          LMML   ATTB+2
11091  M01S06024.1da     +++|          NJN    VDA9        IF INTERRUPT SIZE WRONG
11092  M01S06025.1da     +++|          LDML   ATTB+4
Line S06026 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11093  M02S06026.284l847 ---|          LMC    BPS
11094  M01S00615.284l847 +++|          LMC    BPB
11095  M01S06027.1da     +++|          ZJP    VDA11       IF BURST SIZE CORRECT
11096  M01S06028.1da     +++| VDA9     RJM    ATT         WAIT FOR COMPLETION RESPONSE
11097  M01S06029.1da     +++|          LDN    0
11098  M01S06030.1da     +++|          STML   CPBF+FCP+1
11099  M01S06031.1da     +++|          STML   CPBF+FCP+3
Line S06032 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11100  M02S06032.284l847 ---|          LDC    BPS*2
Line S06033 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11101  M02S06033.284l847 ---|          STML   CPBF+FCP+2  SET INTERRUPT AND BURST SIZE
Line S06034 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11102  M02S06034.284l847 ---|          SHN    -1
11103  M01S00616.284l847 +++|          LDC    BPB*2       SELECT INTERRUPT SIZE
11104  M01S00617.284l847 +++|          STML   CPBF+FCP+2
11105  M01S00618.284l847 +++|          SHN    -1          SET BURST SIZE
11106  M01S06035.1da     +++|          STML   CPBF+FCP+4
11107  M01S06036.1da     +++|          LDC    0#09D8
11108  M01S06037.1da     +++|          STML   CPBF+FCP    PARAMETER D8
11109  M01S06038.1da     +++|          LDC    C0209       LOAD ATTRIBUTE OPERATION CODE
11110  M01S06039.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11111  M01S06040.1da     +++|          LDN    20          COMMAND PACKET LENGTH
11112  M01S06041.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11113  M01S06042.1da     +++|          LDN    CMSS
11114  M01S06043.1da     +++|          RJM    ATT         PROCESS ATTENTION
11115  M01S06044.1da     +++|          NJN    VDA10       IF NOT SUCCESSFUL
11116  M01S06045.1da     +++|          LDC    C020A       SAVE ATTRIBUTES OPERATION CODE
11117  M01S06046.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11118  M01S06047.1da     +++|          LDN    6           COMMAND PACKET LENGTH
11119  M01S06048.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11120  M01S06049.1da     +++|          LDN    CMSS
11121  M01S06050.1da     +++|          RJM    ATT         PROCESS ATTENTION
11122  M01S06051.1da     +++|          NJN    VDA10       IF NOT SUCCESSFUL
11123  M01S06052.1da     +++|          LJM    VDAX        RETURN
11124  M01S06053.1da     +++|
Line S06054 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11125  M02S06054.283l840 ---| VDA10    LCN    ERDA
11126  M01S00339.283l840 +++| VDA10    LCN    ERDA        REPORT DRIVE ATTRIBUTES ERROR
11127  M01S06055.1da     +++|          RJM    ERR         PROCESS ERROR
11128  M01S06056.1da     +++| VIS      SPACE  4,15
11129  M01S06057.1da     +++|**        VIS - VERIFY INTERRUPT SOURCE.
11130  M01S06058.1da     +++|*
11131  M01S06059.1da     +++|*         ENTRY  (A) .LT. 0 IF ASYNC INTERRUPT FROM CONTROLLER.
11132  M01S06060.1da     +++|*
11133  M01S06061.1da     +++|*         EXIT   (A) = 0 IF INTERRUPT FOR INACTIVE DRIVE.
11134  M01S06062.1da     +++|*                    = RETURN ADDRESS TO PROCESSOR.
Line S06063 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11135  M02S06063.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
11136  M01S00524.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
11137  M01S06064.1da     +++|*
11138  M01S06065.1da     +++|*         USES   DI.
11139  M01S06066.1da     +++|*
Line S06067 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11140  M02S06067.273l780 ---|*         CALLS  DCM, LDP.
11141  M01S00425.273l780 +++|*         CALLS  CCO, DCM, LDP.
11142  M01S06068.1da     +++|
11143  M01S06069.1da     +++|
Line S06070 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11144  M02S06070.273l780 ---| VIS4     LDM    SRSA
11145  M01S00426.273l780 +++| VIS4     RJM    CCO         CHECK FOR CONTROLLER OVER TEMPERATURE
11146  M01S00427.273l780 +++|          LDM    SRSA
11147  M01S06071.1da     +++|          ZJN    VISX        IF NO RESET IN PROGRESS
11148  M01S06072.1da     +++|          STD    DI
Line S06073 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11149  M02S06073.273l780 ---|          UJN    VIS1        GO LOAD DEVICE PARAMETERS
11150  M01S00428.273l780 +++|          UJN    VIS1        LOAD DEVICE PARAMETERS
11151  M01S06074.1da     +++|
11152  M01S06075.1da     +++| VIS      SUBR               ENTRY/EXIT
11153  M01S06076.1da     +++|          MJN    VIS4        IF ASYNCH FOR CONTROLLER
11154  M01S06077.1da     +++|          LDM    RPBF+CRN    CHECK COMMAND NUMBER
11155  M01S06078.1da     +++|          STD    DI
11156  M01S06079.1da     +++| VIS1     RJM    LDP         LOAD DEVICE PARAMETERS
11157  M01S06080.1da     +++|          LDM    RQLN,DI
Line S06081 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11158  M02S06081.1da8    ---|          SCN    77
Line S06082 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11159  M02S06082.1da8    ---|          ZJN    VIS2        IF UNIT NOT INTERLOCKED
11160  M01S00525.1da8    +++|          SHN    21-13
11161  M01S00526.1da8    +++|          PJN    VIS2        IF UNIT NOT INTERLOCKED
11162  M01S06083.1da     +++|          LDML   ATTN,DI
11163  M01S06084.1da     +++|          NJN    VISX        IF EXPECTED RESPONSE
11164  M01S06085.1da     +++| VIS2     LDDL   RT
11165  M01S06086.1da     +++|          LMN    XFNT
11166  M01S06087.1da     +++|          NJN    VIS3        IF NOT TRANSFER NOTIFICATION
11167  M01S06088.1da     +++|          RJM    DCM         DESELECT CONTROLLER
11168  M01S06089.1da     +++| VIS3     LDN    0
11169  M01S06090.1da     +++|          UJN    VISX        RETURN
11170  M01S00527.1da8    +++| WAC      SPACE  4,25
11171  M01S00528.1da8    +++|**        WAC - WAIT FOR OTHER ACTIVITY TO COMPLETE.
11172  M01S00529.1da8    +++|*
11173  M01S00530.1da8    +++|*         WAIT UNTIL ALL OTHER ACTIVITY ON THIS CONTROLLER IS COMPLETE.
11174  M01S00531.1da8    +++|*         THE FACT THAT *ERFL* IS SET WILL PREVENT NEW ACTIVITY.
11175  M01S00532.1da8    +++|*
11176  M01S00533.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
Line S00534 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11177  M02S00534.ns2783  ---|*                (IPPS,DI) = VALUE OF (CB) ON ENTRY TO *SEP*.
Line S00535 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11178  M02S00535.ns2783  ---|*                (SEPA,DI) = VALUE OF (PA) ON ENTRY TO *SEP*.
Line S00536 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11179  M02S00536.ns2783  ---|*                (SEAD,DI) = VALUE OF (ADDR,DI) ON ENTRY TO *SEP*.
11180  M01S00537.1da8    +++|*
Line S00538 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11181  M02S00538.ns2783  ---|*         EXIT   (PA) RESTORED TO VALUE ON ENTRY TO *SEP*.
Line S00539 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11182  M02S00539.ns2783  ---|*                (ADDR,DI) RESTORED TO VALUE ON ENTRY TO *SEP*.
11183  M01S02353.ns2783  +++|*         USES   DI, T1.
11184  M01S00540.1da8    +++|*
Line S00541 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11185  M02S00541.ns2783  ---|*         USES   CB, DI, PA, T1.
Line S00542 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11186  M02S00542.ns2783  ---|*
11187  M01S00543.1da8    +++|*         CALLS  LND, LDP.
Line S00544 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11188  M02S00544.ns2783  ---|*
Line S00545 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11189  M02S00545.ns2783  ---|*         NOTE - THE VALUES OF (CB), (PA) AND (ADDR,DI) ARE SAVED
Line S00546 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11190  M02S00546.ns2783  ---|*                IN THE DEVICE STATE TABLE ON ENTRY TO *SEP*.  THESE
Line S00547 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11191  M02S00547.ns2783  ---|*                VALUES ARE RESTORED ON EXIT FROM THIS ROUTINE.  IT IS
Line S00548 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11192  M02S00548.ns2783  ---|*                REQUIRED THAT NO PROCESSING WHICH WILL INVALIDATE
Line S00549 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11193  M02S00549.ns2783  ---|*                THESE VALUES BE PERFORMED BETWEEN THE CALL TO *SEP*
Line S00550 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11194  M02S00550.ns2783  ---|*                AND THE CALL TO *WAC*.
11195  M01S00551.1da8    +++|
11196  M01S00552.1da8    +++|
11197  M01S00553.1da8    +++| WAC      CON    0           ENTRY
11198  M01S00554.1da8    +++|          LDML   WAC         SAVE RETURN ADDRESS
11199  M01S00555.1da8    +++|          STML   SEPR,DI
11200  M01S00556.1da8    +++|          LDC    WAC1
11201  M01S00557.1da8    +++|          STML   ADDR,DI     RETURN ADDRESS IF NO RESPONSE
11202  M01S00558.1da8    +++| WAC1     LDN    1
11203  M01S00559.1da8    +++| WAC2     LMN    1
11204  M01S00560.1da8    +++|          RJM    LND         LOCATE DRIVE
11205  M01S00561.1da8    +++|          ZJN    WAC3        IF NO MORE DRIVES ON CONTROLLER
11206  M01S00562.1da8    +++|          LDML   ADDR,T7
11207  M01S00563.1da8    +++|          ZJN    WAC2        IF NO ACTIVITY ON DRIVE
11208  M01S00564.1da8    +++|          LDD    T7
11209  M01S00565.1da8    +++|          LMD    DI
11210  M01S00566.1da8    +++|          ZJN    WAC2        IF CURRENT DRIVE
11211  M01S00567.1da8    +++|          LDD    T7
11212  M01S00568.1da8    +++|          STD    DI
11213  M01S00569.1da8    +++|          RJM    LDP         LOAD DEVICE PARAMETERS
11214  M01S00570.1da8    +++|          LJM    0,PA        CHECK FOR TIMEOUT ON ACTIVE DRIVE
11215  M01S00571.1da8    +++|
Line S00572 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11216  M02S00572.ns2783  ---| WAC3     LDML   SEPA,DI     RESTORE (PA)
Line S00573 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11217  M02S00573.ns2783  ---|          STDL   PA
Line S00574 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11218  M02S00574.ns2783  ---|          LDM    IPPS,DI     RESTORE (CB)
Line S00575 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11219  M02S00575.ns2783  ---|          STD    CB
Line S00576 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11220  M02S00576.ns2783  ---|          LDML   SEAD,DI     RESTORE (ADDR,DI)
Line S00577 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11221  M02S00577.ns2783  ---|          STML   ADDR,DI
Line S00578 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11222  M02S00578.ns2783  ---|          LDML   SEPR,DI     GET RETURN ADDRESS
11223  M01S02354.ns2783  +++| WAC3     LDML   SEPR,DI     GET RETURN ADDRESS
11224  M01S00579.1da8    +++|          STDL   T1
11225  M01S00580.1da8    +++|          LJM    0,T1        RETURN
11226  M01S06091.1da     +++| WLB      SPACE  4,10
11227  M01S06092.1da     +++|**        WLB - WRITE LINKAGE BITS.
11228  M01S06093.1da     +++|*
11229  M01S06094.1da     +++|*         ENTRY  (T6) = ADDRESS FOR LINKAGE.
11230  M01S06095.1da     +++|*                (T1) = DATA BUFFER ADDRESS.
11231  M01S06096.1da     +++|*                (T5) = NUMBER OF WORDS TO WRITE.
11232  M01S06097.1da     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
11233  M01S06098.1da     +++|*
11234  M01S06099.1da     +++|*         EXIT   SECTOR LINKAGE SET IN DATA BUFFER.
11235  M01S06100.1da     +++|*
11236  M01S06101.1da     +++|*         USES   T1, T6.
11237  M01S06102.1da     +++|
11238  M01S06103.1da     +++|
11239  M01S06104.1da     +++| WLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
11240  M01S06105.1da     +++|          RADL   T1
11241  M01S06106.1da     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
11242  M01S06107.1da     +++|          SHN    -10
11243  M01S06108.1da     +++|*         LPN    17
11244  M01S06109.1da     +++|          SHN    14          POSITION FOR DATA BUFFER
11245  M01S06110.1da     +++|          LMI    T1
11246  M01S06111.1da     +++|          STIL   T1
11247  M01S06112.1da     +++| WLB2     LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
11248  M01S06113.1da     +++|          SHN    -4
11249  M01S06114.1da     +++|          LPN    17
11250  M01S06115.1da     +++|          SHN    14          POSITION FOR DATA BUFFER
11251  M01S06116.1da     +++|          LMM    4,T1
11252  M01S06117.1da     +++|          STML   4,T1
11253  M01S06118.1da     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
11254  M01S06119.1da     +++|*         SHN    0
11255  M01S06120.1da     +++|          LPN    17
11256  M01S06121.1da     +++|          SHN    14          POSITION FOR DATA BUFFER
11257  M01S06122.1da     +++|          LMM    10,T1
11258  M01S06123.1da     +++|          STML   10,T1
11259  M01S06124.1da     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
11260  M01S06125.1da     +++|          LMN    CM+5
11261  M01S06126.1da     +++|          NJN    WLB1        IF MORE LINKAGE
11262  M01S06127.1da     +++|          LDC    1S17
11263  M01S06128.1da     +++|          CWML   SBUF,T5     UPDATE DATA BUFFER
11264  M01S06129.1da     +++|
11265  M01S06130.1da     +++| WLB      SUBR               ENTRY/EXIT
11266  M01S06131.1da     +++|          UJN    WLB2        MOVE SECTOR LINKAGE
11267  M01S06132.1da     +++| WMC      SPACE  4,10
11268  M01S06133.1da     +++|**        WMC - WAIT MAINTENANCE CHANNEL EMPTY.
11269  M01S06134.1da     +++|*
11270  M01S06135.1da     +++|*         EXIT   (A) .EQ. 0 IF CHANNEL EMPTY.
11271  M01S06136.1da     +++|*                (A) .NE. 0 IF CHANNEL HUNG FULL.
11272  M01S06137.1da     +++|
11273  M01S06138.1da     +++|
11274  M01S06139.1da     +++| WMC2     LDN    0           INDICATE CHANNEL EMPTY
11275  M01S06140.1da     +++|
11276  M01S06141.1da     +++| WMC      SUBR               ENTRY/EXIT
11277  M01S06142.1da     +++|          LDD    TH
11278  M01S06143.1da     +++| WMC1     EJM.   WMC2,MR     IF TRANSMISSION COMPLETE
11279  M01S06144.1da     +++|          SBN    1
11280  M01S06145.1da     +++|          NJN    WMC1        IF NOT TIMED OUT
11281  M01S06146.1da     +++|          DCN.   MR+40
11282  M01S06147.1da     +++|          CCF.   *+2,MR      CLEAR CHANNEL FLAG
11283  M01S06148.1da     +++|          LDD    CP
11284  M01S06149.1da     +++|          ADN    MS2W        STORE CP MESSAGE
11285  M01S06150.1da     +++|          CWM    WMCA,TR
11286  M01S06151.1da     +++|          UJN    WMCX        RETURN
11287  M01S06152.1da     +++|
11288  M01S00429.273l780 +++|
11289  M01S06153.1da     +++| WMCA     DATA   C*MR ERROR.*
11290  M01S06154.1da     +++|          TITLE  CHANNEL SUBROUTINES.
11291  M01S06155.1da     +++| BCS      SPACE  4,10
11292  M01S06156.1da     +++|**        BCS - DEFINE INFORMATION TRANSFER.
11293  M01S06157.1da     +++|*
11294  M01S06158.1da     +++|*         ENTRY  (A) = BUS *A* BITS 7 AND 6.
11295  M01S06159.1da     +++|*
11296  M01S06160.1da     +++|*         EXIT   TO *ERR* IF ERROR.
11297  M01S06161.1da     +++|*
11298  M01S06162.1da     +++|*         CALLS  RSR.
11299  M01S06163.1da     +++|
11300  M01S06164.1da     +++|
11301  M01S06165.1da     +++| BCS1     LDDL   LF          FETCH LAST FUNCTION
11302  M01S06166.1da     +++|          LMN    0#32
11303  M01S06167.1da     +++|          RJM    RSR         DROP SYNC OUT
11304  M01S06168.1da     +++|
11305  M01S06169.1da     +++| BCS      SUBR               ENTRY/EXIT
11306  M01S06170.1da     +++|          SHN    17-1
Line S06171 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11307  M02S06171.284l847 ---|          ADC    F005B       SET SYNC OUT
11308  M01S00619.284l847 +++|          ADK    F005B       SET SYNC OUT
11309  M01S06172.1da     +++|          RJM    RSR         READ SLAVE RESPONSE
11310  M01S06173.1da     +++|          LPC    377
11311  M01S06174.1da     +++|          ZJN    BCS1        IF BUS ACKNOWLEDGE CORRECT
Line S06175 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11312  M02S06175.283l840 ---|          LDN    EBAE
11313  M01S00340.283l840 +++|          LDN    EBAE        BUS ACKNOWLEDGE ERROR
11314  M01S06176.1da     +++|          RJM    ERR         PROCESS ERROR
11315  M01S06177.1da     +++| CFE      SPACE  4,10
11316  M01S06178.1da     +++|**        CFE - CHECK FOR I/O ERROR.
11317  M01S06179.1da     +++|*
11318  M01S06180.1da     +++|*         ENTRY  (A) = RESIDUAL WORD COUNT.
11319  M01S06181.1da     +++|*                AT *CFE1* FROM *DCT* IF ERROR FLAG SET.
11320  M01S06182.1da     +++|*
11321  M01S06183.1da     +++|*         EXIT   (A) = 0.
11322  M01S06184.1da     +++|*                TO *ERR* IF ERROR.
11323  M01S06185.1da     +++|
11324  M01S06186.1da     +++|
11325  M01S06187.1da     +++| CFE4     NJN    CFE3        IF INCOMPLETE DATA TRANSFER
11326  M01S06188.1da     +++|
11327  M01S06189.1da     +++| CFE      SUBR               ENTRY/EXIT
11328  M01S06190.1da     +++|          CFM    CFE4,CH     IF CHANNEL ERROR FLAG CLEAR
Line S06191 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11329  M02S06191.283l840 ---| CFE1     LDN    ECIE
11330  M01S00341.283l840 +++| CFE1     LDN    ECIE        IPI CHANNEL ERROR FLAG
11331  M01S06192.1da     +++| CFE2     RJM    ERR         PROCESS CHANNEL ERROR
11332  M01S06193.1da     +++|
Line S06194 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11333  M02S06194.283l840 ---| CFE3     LDN    EIDT
11334  M01S00342.283l840 +++| CFE3     LDN    EIDT        INCOMPLETE DATA TRANSFER
11335  M01S06195.1da     +++|          UJN    CFE2        PROCESS ERROR
11336  M01S06196.1da     +++| CRC      SPACE  4,10
11337  M01S06197.1da     +++|**        CRC - COMMON READ CODE.
11338  M01S06198.1da     +++|*
11339  M01S06199.1da     +++|*         ENTRY  (A) = LENGTH FOR INPUT.
11340  M01S06200.1da     +++|*                (T0) = WORDS NOT TRANSFERRED.
11341  M01S06201.1da     +++|*
11342  M01S06202.1da     +++|*         EXIT   TO *ERR* IF ERROR.
11343  M01S06203.1da     +++|*
11344  M01S06204.1da     +++|*         USES   T1.
11345  M01S06205.1da     +++|*
11346  M01S06206.1da     +++|*         CALLS  GSS.
11347  M01S06207.1da     +++|
11348  M01S06208.1da     +++|
11349  M01S06209.1da     +++| CRC2     LDN    0
11350  M01S06210.1da     +++|          RJM    GSS         GET ENDING STATUS
11351  M01S06211.1da     +++|
11352  M01S06212.1da     +++| CRC      SUBR               ENTRY/EXIT
11353  M01S06213.1da     +++|          SBD    T0
11354  M01S06214.1da     +++|          STD    T1          WORDS NOT TRANSFERRED
11355  M01S06215.1da     +++|          LDC    50000D
11356  M01S06216.1da     +++| CRC1     IJM    CRC2,CH     IF SLAVE IN
11357  M01S06217.1da     +++|          SBN    1
11358  M01S06218.1da     +++|          NJN    CRC1        IF TIMEOUT NOT EXPIRED
Line S06219 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11359  M02S06219.283l840 ---|          LCN    ECNR
11360  M01S00343.283l840 +++|          LCN    ECNR        SLAVE/SYNC IN SIGNAL ERROR
11361  M01S06220.1da     +++|          RJM    ERR         PROCESS ERROR
11362  M01S06221.1da     +++| CTC      SPACE  4,15
11363  M01S06222.1da     +++|**        CTC - CHECK TRANSFER COMPLETE.
11364  M01S06223.1da     +++|*
11365  M01S06224.1da     +++|*         ENTRY  (RW) = 0 IF READ.
11366  M01S06225.1da     +++|*
11367  M01S06226.1da     +++|*         EXIT   (A) = 0 TO CALLER IF NO ERROR.
11368  M01S06227.1da     +++|*                TO *PIO2* IF ENDING STATUS INDICATES PAUSE AND
11369  M01S06228.1da     +++|*                   NO DATA WAS READ.
11370  M01S06229.1da     +++|*                TO *PIO6* IF ENDING STATUS INDICATES NO MORE DATA
11371  M01S06230.1da     +++|*                   AND NOT ALL DATA WAS TRANSFERRED.
11372  M01S06231.1da     +++|*                TO *ERR* IF ERROR.
11373  M01S06232.1da     +++|*
11374  M01S06233.1da     +++|*         USES   T1.
11375  M01S06234.1da     +++|*
11376  M01S06235.1da     +++|*         CALLS  DCM, FAN, FCN, GSS, RCR, RDR, RTR, SCD.
11377  M01S06236.1da     +++|
11378  M01S06237.1da     +++|
11379  M01S06238.1da     +++| CTC      SUBR               ENTRY/EXIT
11380  M01S06239.1da     +++|          LDC    7700D
11381  M01S06240.1da     +++|          STDL   T1
11382  M01S06241.1da     +++| CTC1     LDC    F0700
11383  M01S06242.1da     +++|          RJM    FCN         REQUEST OPERATIONAL STATUS
11384  M01S06243.1da     +++|          ACN    CH
11385  M01S06244.1da     +++|          EJM    CTC2,CH     IF ERROR
11386  M01S06245.1da     +++|          IAN    CH          READ STATUS
11387  M01S06246.1da     +++|          LPN    1
11388  M01S06247.1da     +++|          ZJN    CTCX        IF TRANSFER COMPLETE
11389  M01S06248.1da     +++| CTC2     SODL   T1
11390  M01S06249.1da     +++|          NJN    CTC1        IF NOT TIMEOUT
11391  M01S06250.1da     +++|          RJM    RTR         READ T REGISTER
11392  M01S06251.1da     +++|          LDD    CT
11393  M01S06252.1da     +++|          ZJN    CTC2.1      IF 10 MB CHANNEL
11394  M01S06253.1da     +++|
11395  M01S06254.1da     +++|*         THE DMA TERMINATE FUNCTION DOES NOT CLEAR DMA MODE
11396  M01S06255.1da     +++|*         IN THE 25 MB CHANNEL.
11397  M01S06256.1da     +++|
Line S06257 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da10
Seq #  *Modification Id* Act 
----------------------------+
11398  M02S06257.1da10   ---|          LDC    F0E00
11399  M01S00001.1da10   +++|          SFM    CTC2.0,CH   CLEAR ERROR FLAG ON 25MB CHANNEL
11400  M01S00002.1da10   +++| CTC2.0   LDC    F0E00
11401  M01S06258.1da     +++|          RJM    FAN         CLEAR T REGISTER
11402  M01S06259.1da     +++| CTC2.1   LDC    F0800       DMA TERMINATE FUNCTION
11403  M01S06260.1da     +++|          RJM    FAN         SEND THE FUNCTION
11404  M01S06261.1da     +++|          LDC    F00E1       READ STATUS REGISTER FUNCTION
11405  M01S06262.1da     +++|          RJM    RDR         READ REGISTER
11406  M01S06263.1da     +++|          SHN    6
11407  M01S06264.1da     +++|          PJN    CTC3        IF SLAVE IN DROPPED
Line S06265 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11408  M02S06265.283l840 ---|          LDN    ECNR
11409  M01S00344.283l840 +++|          LDN    ECNR        SLAVE/SYNC IN SIGNAL ERROR
11410  M01S06266.1da     +++|          RJM    ERR         PROCESS ERROR
11411  M01S06267.1da     +++|
11412  M01S06268.1da     +++| CTC3     LDN    0           NO MASTER TERMINATE
11413  M01S06269.1da     +++|*         STD    T1          SO LENGTH ERROR NOT REPORTED IN *CFE*
11414  M01S06270.1da     +++|          RJM    GSS         GET ENDING STATUS
11415  M01S06271.1da     +++|          LPN    60B
11416  M01S06272.1da     +++|          LMN    20B
11417  M01S06273.1da     +++|          ZJN    CTC5        IF NO MORE DATA
11418  M01S06274.1da     +++|
11419  M01S06275.1da     +++|*         IF MULTIPLE PHYSICAL DRIVES PER LOGICAL UNIT, AND THERE
11420  M01S06276.1da     +++|*         IS A MEDIA ERROR FOR AT LEAST 2 DRIVES AT THE SAME SECTOR,
11421  M01S06277.1da     +++|*         THE CONTROLLER WILL TRANSFER NO DATA THEN RETURN AN ENDING
11422  M01S06278.1da     +++|*         STATUS INDICATING PAUSE, AND EXPECT THE HOST TO REREAD
11423  M01S06279.1da     +++|*         THE DATA IF IT SENDS A TRANSFER NOTIFICATION RESPONSE.
11424  M01S06280.1da     +++|
11425  M01S06281.1da     +++|          LDDL   RW
11426  M01S06282.1da     +++|          NJN    CTC4        IF WRITE
11427  M01S06283.1da     +++|          LDML   EDBF+TREG
Line S06284 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11428  M02S06284.284l847 ---|          LMC    BPS
11429  M01S00620.284l847 +++|          LMC    BPB
11430  M01S06285.1da     +++|          NJN    CTC4        IF NOT 0-BYTE TRANSFER
11431  M01S06286.1da     +++|          RJM    RCR         RESET CHANNEL REGISTERS
Line S06287 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11432  M02S06287.273l780 ---|          LJM    PIO2        GO WAIT FOR ANOTHER RESPONSE
11433  M01S00430.273l780 +++|          LJM    PIO2        WAIT FOR ANOTHER RESPONSE
11434  M01S06288.1da     +++|
Line S06289 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11435  M02S06289.283l840 ---| CTC4     LDN    EIDT
11436  M01S00345.283l840 +++| CTC4     LDN    EIDT        INCOMPLETE DATA TRANSFER
11437  M01S06290.1da     +++|          RJM    ERR         PROCESS ERROR
11438  M01S06291.1da     +++|
11439  M01S06292.1da     +++|*         THE CONTROLLER MAY DROP SLAVE IN ANYTIME DURING THE TRANSFER
11440  M01S06293.1da     +++|*         AND RETURN 90 HEX AS ENDING STATUS.  THIS INDICATES COMMAND
11441  M01S06294.1da     +++|*         COMPLETE.  THE RESPONSE PACKET SHOULD REPORT AN ERROR.
11442  M01S06295.1da     +++|
11443  M01S06296.1da     +++|*CTC5     LDN    0
11444  M01S06297.1da     +++| CTC5     RJM    SCD         CLEAR CHANNEL ACTIVE FOR *CPD*
11445  M01S06298.1da     +++|          RJM    DCM         DESELECT THE CONTROLLER
11446  M01S06299.1da     +++|          LCN    0           TO GUARANTEE AN ERROR IS REPORTED
Line S06300 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11447  M02S06300.273l780 ---|          LJM    PIO6        GO WAIT FOR A RESPONSE
11448  M01S00431.273l780 +++|          LJM    PIO6        WAIT FOR A RESPONSE
11449  M01S06301.1da     +++| DCM      SPACE  4,10
11450  M01S06302.1da     +++|**        DCM - DESELECT CONTROLLER.
11451  M01S06303.1da     +++|*
Line S06304 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da2
Seq #  *Modification Id* Act 
----------------------------+
11452  M02S06304.1da2    ---|*         CALLS  RSR.
11453  M01S00002.1da2    +++|*         CALLS  FCN, RSR.
11454  M01S06305.1da     +++|
11455  M01S06306.1da     +++|
11456  M01S06307.1da     +++| DCM      SUBR               ENTRY/EXIT
11457  M01S06308.1da     +++|          LDC    F0071
11458  M01S06309.1da     +++|          RJM    RSR         WAIT FOR SLAVE IN TO DROP
11459  M01S00003.1da2    +++|          CFM    DCMX,CH     IF ERROR FLAG NOT SET
11460  M01S00004.1da2    +++|
11461  M01S00005.1da2    +++|*         ON A 25 MB IPI CHANNEL, A DESELECT SEQUENCE COULD RESULT
11462  M01S00006.1da2    +++|*         IN A CHANNEL SEQUENCE ERROR.  THE FOLLOWING CODE CLEARS
11463  M01S00007.1da2    +++|*         SUCH AN ERROR STATUS.
11464  M01S00008.1da2    +++|
11465  M01S00009.1da2    +++|          LDC    F0100
11466  M01S00010.1da2    +++|          RJM    FCN         CLEAR THE DMA ERROR
11467  M01S06310.1da     +++|          UJN    DCMX        RETURN
11468  M01S06311.1da     +++| DCT      SPACE  4,10
11469  M01S06312.1da     +++|**        DCT - DETERMINE CHANNEL TYPE.
11470  M01S06313.1da     +++|*
11471  M01S06314.1da     +++|*         EXIT   (CT) = 0 IF 10 MB CHANNEL.
11472  M01S06315.1da     +++|*                       1 IF 25 MB CHANNEL.
11473  M01S06316.1da     +++|*
11474  M01S06317.1da     +++|*         CALLS  FCN.
11475  M01S06318.1da     +++|
11476  M01S06319.1da     +++|
11477  M01S06320.1da     +++| DCT1     STDL   CT
11478  M01S06321.1da     +++| DCT      SUBR               ENTRY/EXIT
11479  M01S06322.1da     +++|          LDC    F0102
11480  M01S06323.1da     +++|          RJM    FCN         READ IPI REVISION REGISTER
11481  M01S06324.1da     +++|          ACN    CH
11482  M01S06325.1da     +++|          LDN    0
11483  M01S06326.1da     +++|          EJM    DCT1,CH     IF 10 MB/S IPI CHANNEL
11484  M01S06327.1da     +++|          LDN    1
11485  M01S06328.1da     +++|          UJN    DCT1        RETURN
11486  M01S06329.1da     +++| DTM      SPACE  4,15
11487  M01S06330.1da     +++|**        DTM - DETERMINE TRANSFER MODE.
11488  M01S06331.1da     +++|*
11489  M01S06332.1da     +++|*         ENTRY  (A) = CONTROLLER NUMBER.
11490  M01S06333.1da     +++|*                (T6) = 0 IF STREAMING COMMANDS/RESPONSES.
11491  M01S06334.1da     +++|*                (T6) = 200(16) IF INTERLOCKING COMMANDS/RESPONSES.
11492  M01S06335.1da     +++|*
11493  M01S06336.1da     +++|*         EXIT   (A) = CONTROLLER NUMBER + TRANSFER MODE CHANGE.
11494  M01S06337.1da     +++|*
11495  M01S06338.1da     +++|*         USES   T4.
11496  M01S06339.1da     +++|*
Line S06340 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da2
Seq #  *Modification Id* Act 
----------------------------+
11497  M02S06340.1da2    ---|*         CALLS  RSR.
11498  M01S00011.1da2    +++|*         CALLS  FCN, RSR.
11499  M01S06341.1da     +++|
11500  M01S06342.1da     +++|
11501  M01S06343.1da     +++| DTM      SUBR               ENTRY/EXIT
11502  M01S06344.1da     +++|          SHN    14
11503  M01S06345.1da     +++|          STDL   T4          SET CONTROLLER NUMBER IN RESPONSE
11504  M01S06346.1da     +++|          LMC    F8025
11505  M01S06347.1da     +++|          RJM    RSR         REQUEST TRANSFER SETTINGS
11506  M01S06348.1da     +++|          LPN    0#10
11507  M01S06349.1da     +++|          LMN    0#10        COMPLEMENT TRANSFER MODE
11508  M01S06350.1da     +++|          SHN    11-4
11509  M01S06351.1da     +++|          LMDL   T6          MASK FOR INTERLOCK DATA
11510  M01S06352.1da     +++|          SHN    2
11511  M01S06353.1da     +++|          RADL   T4          APPEND TRANSFER MODE TO RESPONSE
11512  M01S06354.1da     +++|          SFM    CFE1,CH     IF ERROR FLAG SET
11513  M01S06355.1da     +++|          LDDL   LF
11514  M01S06356.1da     +++|          LMC    0#54        DROP MASTER OUT
11515  M01S06357.1da     +++|          RJM    RSR         ENSURE SLAVE IN DROPPED
Line S06358 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da2
Seq #  *Modification Id* Act 
----------------------------+
11516  M02S06358.1da2    ---|          LDDL   T4
11517  M01S00012.1da2    +++|          CFM    DTM1,CH     IF ERROR FLAG NOT SET
11518  M01S00013.1da2    +++|
11519  M01S00014.1da2    +++|*         ON A 25 MB IPI CHANNEL, A REQUEST TRANSFER SETTINGS SEQUENCE
11520  M01S00015.1da2    +++|*         COULD RESULT IN A CHANNEL SEQUENCE ERROR.  THE FOLLOWING CODE
11521  M01S00016.1da2    +++|*         CLEARS SUCH AN ERROR STATUS.
11522  M01S00017.1da2    +++|
11523  M01S00018.1da2    +++|          LDC    F0100
11524  M01S00019.1da2    +++|          RJM    FCN         CLEAR THE DMA ERROR
11525  M01S00020.1da2    +++| DTM1     LDDL   T4
11526  M01S06359.1da     +++|          UJP    DTMX        RETURN
11527  M01S06360.1da     +++| FAN      SPACE  4,10
11528  M01S06361.1da     +++|**        FAN - SEND A FUNCTION TO THE IPI CHANNEL.
11529  M01S06362.1da     +++|*
11530  M01S06363.1da     +++|*         NOTE - THE CHANNEL MAY HAVE BEEN LEFT ACTIVE BY A MASTER
11531  M01S06364.1da     +++|*                CLEAR, A ROUTINE SUCH AS DCM, OR AFTER A REPORTED
11532  M01S06365.1da     +++|*                ERROR.
11533  M01S06366.1da     +++|*
11534  M01S06367.1da     +++|*         ENTRY  (A) = FUNCTION TO ISSUE.
11535  M01S06368.1da     +++|
11536  M01S06369.1da     +++|
11537  M01S06370.1da     +++| FAN      SUBR               ENTRY/EXIT
11538  M01S06371.1da     +++|          DCN    CH+40       ENSURE THE CHANNEL IS INACTIVE
11539  M01S06372.1da     +++|          FAN    CH          SEND THE FUNCTION
11540  M01S06373.1da     +++|          UJN    FANX        RETURN
11541  M01S06374.1da     +++| FCN      SPACE  4,10
11542  M01S06375.1da     +++|**        FCN - ISSUE FUNCTION.
11543  M01S06376.1da     +++|*
11544  M01S06377.1da     +++|*         ENTRY  (A) = FUNCTION CODE.
11545  M01S06378.1da     +++|*
11546  M01S06379.1da     +++|*         EXIT   (A) .NE. 0.
11547  M01S06380.1da     +++|*                (LF) = FUNCTION CODE.
11548  M01S06381.1da     +++|*                TO *ERR* IF FUNCTION TIMEOUT.
11549  M01S06382.1da     +++|
11550  M01S06383.1da     +++|
11551  M01S06384.1da     +++| FCN      SUBR               ENTRY/EXIT
11552  M01S06385.1da     +++|          DCN    CH+40
11553  M01S06386.1da     +++|          FAN    CH          ISSUE FUNCTION
11554  M01S06387.1da     +++|          STDL   LF
11555  M01S06388.1da     +++|          IJM    FCNX,CH     IF FUNCTION ACCEPTED
11556  M01S06389.1da     +++|          RJM    LDP         LOAD DEVICE PARAMETERS
Line S06390 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11557  M02S06390.283l840 ---|          LDN    ETFN
11558  M01S00346.283l840 +++|          LDN    ETFN        CHANNEL FUNCTION TIMEOUT
11559  M01S06391.1da     +++|          RJM    ERR         PROCESS ERROR
11560  M01S06392.1da     +++| GIS      SPACE  4,10
11561  M01S06393.1da     +++|**        GIS - GET INTERRUPT STATUS.
11562  M01S06394.1da     +++|*
11563  M01S06395.1da     +++|*         EXIT   (A) = (GISA) = INTERRUPT STATUS.
11564  M01S06396.1da     +++|*
11565  M01S06397.1da     +++|*         CALLS  FCN.
11566  M01S06398.1da     +++|
11567  M01S06399.1da     +++|
11568  M01S06400.1da     +++|*         INTERRUPTS MUST BE ENABLED AT LEAST 6 MICROSECONDS BEFORE
11569  M01S06401.1da     +++|*         THE FOLLOWING INPUT.
11570  M01S06402.1da     +++|
11571  M01S06403.1da     +++| GIS1     IAN    CH          READ INTERRUPT STATUS
11572  M01S06404.1da     +++| GIS2     STML   GISA
11573  M01S06405.1da     +++|          LDC    F0711       NEGATE MASTER OUT
11574  M01S06406.1da     +++|          RJM    FCN
11575  M01S06407.1da     +++|          LDML   GISA        RETURN WITH (A) = STATUS
11576  M01S06408.1da     +++|
11577  M01S06409.1da     +++| GIS      SUBR               ENTRY/EXIT
11578  M01S06410.1da     +++|          ACN    CH+40
11579  M01S06411.1da     +++|          FJM    GIS1,CH
11580  M01S06412.1da     +++|          LDN    0
11581  M01S06413.1da     +++|          UJN    GIS2        SET NULL STATUS
11582  M01S06414.1da     +++|
11583  M01S00432.273l780 +++|
11584  M01S06415.1da     +++| GISA     CON    0
11585  M01S06416.1da     +++| GSS      SPACE  4,15
11586  M01S06417.1da     +++|**        GSS - GET SLAVE STATUS.
11587  M01S06418.1da     +++|*
11588  M01S06419.1da     +++|*         ENTRY  (A) = 0 IF STATUS W/O MASTER TERMINATE.
11589  M01S06420.1da     +++|*                    = MASTER TERMINATE OPTION.
11590  M01S06421.1da     +++|*                (T1) = RESIDUAL BYTE COUNT.
11591  M01S06422.1da     +++|*
Line S06423 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11592  M02S06423.ns2783  ---|*         EXIT   (A) = (PT) = ENDING STATUS IF TRANSFER SUCCESSFUL.
11593  M01S02355.ns2783  +++|*         EXIT   (A) = (PIOC) = ENDING STATUS IF TRANSFER SUCCESSFUL.
11594  M01S06424.1da     +++|*                (GSSA) = ENDING STATUS AS READ FROM CONTROLLER.
Line S06425 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11595  M02S06425.273l780 ---|*                TO *ERR* IF ENDING STATUS INDICATES AN ERROR.
11596  M01S00433.273l780 +++|*                TO *ERR* IF ERROR.
11597  M01S06426.1da     +++|*
Line S06427 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11598  M02S06427.273l780 ---|*         CALLS  CFE, RSR.
Line S00434 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11599  M02S00434.ns2783  ---|*         USES   PT.
Line S00435 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11600  M02S00435.ns2783  ---|*
11601  M01S00436.273l780 +++|*         CALLS  RRP, RSR.
11602  M01S06428.1da     +++|
11603  M01S06429.1da     +++|
Line S06430 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11604  M02S06430.273l780 ---| GSS1     SHN    10          REALIGN ENDING STATUS
11605  M01S00437.273l780 +++| GSS5     LDML   GSSA        ENDING STATUS
Line S06431 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11606  M02S06431.ns2783  ---|          STDL   PT
11607  M01S02356.ns2783  +++|          STML   PIOC
11608  M01S06432.1da     +++|
11609  M01S06433.1da     +++| GSS      SUBR               ENTRY/EXIT
11610  M01S06434.1da     +++|          SHN    10
11611  M01S06435.1da     +++|          ADC    F8039       INDICATE TRANSFER SUCCESSFUL
11612  M01S06436.1da     +++|          RJM    RSR         GET ENDING STATUS
11613  M01S06437.1da     +++|          STML   GSSA
Line S06438 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11614  M02S06438.273l780 ---|          LDD    T1          CHECK CHANNEL ERROR
Line S06439 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11615  M02S06439.273l780 ---|          RJM    CFE
Line S06440 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11616  M02S06440.273l780 ---|          LDML   GSSA        REVIEW ENDING STATUS
11617  M01S00438.273l780 +++|          SFM    GSS3,CH     IF ERROR FLAG SET
11618  M01S06441.1da     +++|          SHN    21-7
Line S06442 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11619  M02S06442.273l780 ---|          MJN    GSS1        IF TRANSFER SUCCESSFUL
Line S06443 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11620  M02S06443.273l780 ---|          LDN    EUST
Line S06444 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11621  M02S06444.273l780 ---|          RJM    ERR         PROCESS ERROR
11622  M01S00439.273l780 +++|          PJN    GSS1        IF TRANSFER NOT SUCCESSFUL
11623  M01S00440.273l780 +++|          LDD    T1
11624  M01S00441.273l780 +++|          ZJN    GSS5        IF ALL WORDS TRANSFERRED
Line S00442 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11625  M02S00442.283l840 ---|          LDN    EIDT
11626  M01S00347.283l840 +++|          LDN    EIDT        INCOMPLETE DATA TRANSFER
11627  M01S00443.273l780 +++|          UJN    GSS4        PROCESS ERROR
11628  M01S00444.273l780 +++|
11629  M01S00445.273l780 +++| GSS1     SHN    10
11630  M01S00446.273l780 +++|          LPC    117
11631  M01S00447.273l780 +++|          LMN    3
11632  M01S00448.273l780 +++|          NJN    GSS2        IF NOT COMMAND REJECT
11633  M01S00449.273l780 +++|
11634  M01S00450.273l780 +++|*         IF CONTROLLER OVER TEMPERATURE OCCURS BEFORE THE COMMAND IS
11635  M01S00451.273l780 +++|*         ISSUED, A COMMAND REJECT ERROR COULD OCCUR.  A LOGICAL RESET
11636  M01S00452.273l780 +++|*         WOULD CAUSE THE OVER TEMPERATURE STATUS TO BE LOST.
11637  M01S00453.273l780 +++|
11638  M01S00454.273l780 +++|          RJM    RRP         READ RESPONSE PACKET
Line S00455 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11639  M02S00455.283l840 ---|          LCN    EUST
11640  M01S00348.283l840 +++|          LCN    EUST        SUCCESSFUL NOT SET IN ENDING STATUS
11641  M01S00456.273l780 +++|          UJN    GSS4        PROCESS ERROR
11642  M01S00457.273l780 +++|
Line S00458 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11643  M02S00458.283l840 ---| GSS2     LDN    EUST
11644  M01S00349.283l840 +++| GSS2     LDN    EUST        SUCCESSFUL NOT SET IN ENDING STATUS
11645  M01S00459.273l780 +++|          UJN    GSS4        PROCESS ERROR
11646  M01S00460.273l780 +++|
Line S00461 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11647  M02S00461.283l840 ---| GSS3     LDN    ECIE
11648  M01S00350.283l840 +++| GSS3     LDN    ECIE        IPI CHANNEL ERROR FLAG
11649  M01S00462.273l780 +++| GSS4     RJM    ERR         PROCESS ERROR
11650  M01S00463.273l780 +++|
11651  M01S06445.1da     +++|
11652  M01S06446.1da     +++| GSSA     CON    0           ENDING STATUS
11653  M01S06447.1da     +++| IDT      SPACE  4,15
11654  M01S06448.1da     +++|**        IDT - INPUT DATA TO PP.
11655  M01S06449.1da     +++|*
11656  M01S06450.1da     +++|*         ENTRY  (A) = COMMAND PACKET LENGTH.
11657  M01S06451.1da     +++|*                (TM) = TRANSFER MODE.
Line S06452 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11658  M02S06452.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
11659  M01S00581.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
11660  M01S06453.1da     +++|*
11661  M01S06454.1da     +++|*         EXIT   ATTRIBUTE DATA STARTS AT ATTB.
11662  M01S06455.1da     +++|*
11663  M01S06456.1da     +++|*         USES   T1.
11664  M01S06457.1da     +++|*
11665  M01S06458.1da     +++|*         CALLS  ATT, BCS, CRC, DCM, FCN, WCB.
11666  M01S06459.1da     +++|
11667  M01S06460.1da     +++|
Line S06461 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11668  M02S06461.283l840 ---| IDT1     LCN    ERDA
11669  M01S00351.283l840 +++| IDT1     LCN    ERDA        REPORT DRIVE ATTRIBUTES ERROR
11670  M01S06462.1da     +++|          RJM    ERR         PROCESS ERROR
11671  M01S06463.1da     +++|
11672  M01S06464.1da     +++| IDT      CON    0           ENTRY
11673  M01S06465.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11674  M01S06466.1da     +++|          LDML   IDT
11675  M01S06467.1da     +++|          STML   IDTR,DI     SAVE RETURN ADDRESS
11676  M01S06468.1da     +++|          LDN    XFNT        EXPECT TRANSFER NOTIFICATION RESPONSE
11677  M01S06469.1da     +++|          RJM    ATT         PROCESS ATTENTION
11678  M01S06470.1da     +++|          NJP    IDT1        IF ERROR
11679  M01S06471.1da     +++|          LDN    DAIN        DATA TRANSFER IN
11680  M01S06472.1da     +++|          RJM    BCS         BUS CONTROL SEQUENCE
11681  M01S00003.1da10   +++|          LDI    T0          DELAY 750 NANOSECONDS
11682  M01S06473.1da     +++|          LDDL   TM          TRANSFER MODE
11683  M01S06474.1da     +++|          SHN    11-0
11684  M01S06475.1da     +++|          LMC    F0281
11685  M01S06476.1da     +++|          RJM    FCN         TELL DMA LOGIC TO READ
11686  M01S06477.1da     +++|          ACN    CH
11687  M01S06478.1da     +++|          LDC    ATTBL
11688  M01S06479.1da     +++|          IAM    ATTB,CH     INPUT ATTRIBUTE DATA
11689  M01S06480.1da     +++|          STD    T0          WORDS NOT TRANSFERRED
11690  M01S06481.1da     +++|          LDM    RPBF+MST+3  BYTE LENGTH OF TRANSFER
11691  M01S06482.1da     +++|          ADN    1           IN CASE OF ODD BYTE LENGTH
11692  M01S06483.1da     +++|          SHN    -1          EXPECTED WORDS TO TRANSFER
11693  M01S06484.1da     +++|          RAD    T0
11694  M01S06485.1da     +++|          LDC    ATTBL
11695  M01S06486.1da     +++|          RJM    CRC         COMMON READ CODE
11696  M01S06487.1da     +++|          RJM    DCM         DESELECT CONTROLLER
11697  M01S06488.1da     +++|          LDML   IDTR,DI
11698  M01S06489.1da     +++|          STDL   T1
11699  M01S06490.1da     +++|          LJM    0,T1        RETURN TO CALLER
11700  M01S06491.1da     +++| RCR      SPACE  4,10
11701  M01S06492.1da     +++|**        RCR - RESET CHANNEL REGISTERS.  THIS LEAVES THE IPI
11702  M01S06493.1da     +++|*               CHANNEL IN AN IDLE STATE.
11703  M01S06494.1da     +++|*
11704  M01S06495.1da     +++|*         ENTRY  (MF) = 0 IF PREVIOUS MASTER CLEAR SUCCESSFUL.
11705  M01S06496.1da     +++|*
11706  M01S06497.1da     +++|*         USES   MF, T1.
11707  M01S06498.1da     +++|*
11708  M01S06499.1da     +++|*         CALLS  DCT, FCN, WTC.
11709  M01S06500.1da     +++|*
11710  M01S06501.1da     +++|*         MACROS WAIT.
11711  M01S06502.1da     +++|
11712  M01S06503.1da     +++|
11713  M01S00621.284l847 +++| RCR2     LDN    0
11714  M01S00622.284l847 +++|          STD    MF          INDICATE MASTER CLEAR COMPLETE
11715  M01S00623.284l847 +++|
11716  M01S06504.1da     +++| RCR      SUBR               ENTRY/EXIT
11717  M01S06505.1da     +++|          LDD    MF
Line S06506 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11718  M02S06506.284l847 ---|          NJP    RCR2        IF MASTER CLEAR FAILED
11719  M01S00624.284l847 +++|          NJN    RCR2        IF MASTER CLEAR FAILED
11720  M01S06507.1da     +++|          AOD    MF
11721  M01S06508.1da     +++|          LDN    F0000
11722  M01S06509.1da     +++|          RJM    FCN         MASTER CLEAR THE ADAPTER
11723  M01S06510.1da     +++|          WAIT   100
11724  M01S06511.1da     +++|
11725  M01S06512.1da     +++|*         MASTER CLEAR DOES NOT CLEAR ERROR FLAG ON THE 25 MB CHANNEL,
11726  M01S06513.1da     +++|*         SO THE SFM INSTRUCTION MUST BE USED TO CLEAR IT.
11727  M01S06514.1da     +++|
11728  M01S06515.1da     +++|          SFM    RCR1,CH
11729  M01S06516.1da     +++|*RCR1     LDN    0           SET DEVICE NOT SELECTED
11730  M01S06517.1da     +++| RCR1     ADK    F0000-0     ENSURE NO SEQUENCE ERROR
11731  M01S06518.1da     +++|          RJM    FCN
11732  M01S06519.1da     +++|          RJM    DCT         DETERMINE CHANNEL TYPE
11733  M01S06520.1da     +++|          LDML   TRAT,CT
11734  M01S06521.1da     +++|          RJM    FCN         SET IPI CHANNEL TRANSFER RATE
11735  M01S06522.1da     +++|          LDC    F0300
11736  M01S06523.1da     +++|          RJM    FCN         WRITE CONTROL REGISTER FUNCTION
11737  M01S06524.1da     +++|          ACN    CH
11738  M01S06525.1da     +++|          LDML   EDC,CT      ENABLE DOUBLE CMI SLOT IF 25 MB CHANNEL
11739  M01S06526.1da     +++|          STDL   T1
11740  M01S06527.1da     +++|          LDN    1
11741  M01S06528.1da     +++|          OAM    T1,CH
11742  M01S06529.1da     +++|          RJM    WTC         WAIT TRANSFER COMPLETE
Line S06530 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11743  M02S06530.284l847 ---| RCR2     LDN    0
Line S06531 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11744  M02S06531.284l847 ---|          STD    MF          INDICATE MASTER CLEAR COMPLETE
Line S06532 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11745  M02S06532.284l847 ---|          UJP    RCRX        RETURN
11746  M01S00625.284l847 +++|          UJP    RCR2        SET COMPLETE AND RETURN
11747  M01S06533.1da     +++| RDR      SPACE  4,10
11748  M01S06534.1da     +++|**        RDR - READ REGISTER.
11749  M01S06535.1da     +++|*
11750  M01S06536.1da     +++|*         ENTRY  (A) = FUNCTION CODE.
11751  M01S06537.1da     +++|*
11752  M01S06538.1da     +++|*         EXIT   (A) = VALUE OF REGISTER OR 0 IF ERROR.
11753  M01S06539.1da     +++|*
11754  M01S06540.1da     +++|*         CALLS  FAN.
11755  M01S06541.1da     +++|
11756  M01S06542.1da     +++|
11757  M01S06543.1da     +++| RDR1     LDN    0
11758  M01S06544.1da     +++| RDR      SUBR               ENTRY/EXIT
11759  M01S06545.1da     +++|          RJM    FAN         SEND FUNCTION
11760  M01S06546.1da     +++|          AJM    RDR1,CH     IF NO FUNCTION REPLY
11761  M01S06547.1da     +++|          ACN    CH+40B
11762  M01S06548.1da     +++|          EJM    RDR1,CH     IF WORD COULD NOT BE READ
11763  M01S06549.1da     +++|          IAN    CH
11764  M01S06550.1da     +++|          UJN    RDRX        RETURN
11765  M01S06551.1da     +++| RIF      SPACE  4,15
11766  M01S06552.1da     +++|**        RIF - RESET INTERFACE.
11767  M01S06553.1da     +++|*
11768  M01S06554.1da     +++|*         ENTRY  (RW) = 0 TO RESET SLAVE INTERFACE.
11769  M01S06555.1da     +++|*                     = 1 TO RESET LOGICAL INTERFACE.
11770  M01S06556.1da     +++|*                (CN) = CONTROLLER NUMBER.
11771  M01S06557.1da     +++|*
11772  M01S06558.1da     +++|*         EXIT   (RF) = 1.
11773  M01S06559.1da     +++|*
11774  M01S06560.1da     +++|*         USES   RF.
11775  M01S06561.1da     +++|*
11776  M01S06562.1da     +++|*         CALLS  FCN, RCR, SAP.
11777  M01S06563.1da     +++|*
11778  M01S06564.1da     +++|*         MACROS WAIT.
11779  M01S06565.1da     +++|
11780  M01S06566.1da     +++|
11781  M01S06567.1da     +++| RIF      SUBR               ENTRY/EXIT
11782  M01S06568.1da     +++|          AOD    RF          FLAG RESET IN PROGRESS
11783  M01S06569.1da     +++|          RJM    RCR         RESET CHANNEL
11784  M01S06570.1da     +++|          RJM    SAP         SELECT ADAPTER PORT
11785  M01S06571.1da     +++|          LDD    CN
11786  M01S06572.1da     +++|          SHN    14          FORM RESET FUNCTION
11787  M01S06573.1da     +++|          LMML   RIFA,RW
11788  M01S06574.1da     +++|          RJM    FCN         ISSUE LOGICAL RESET
11789  M01S06575.1da     +++|          WAIT   20
11790  M01S06576.1da     +++|          LDDL   LF
11791  M01S06577.1da     +++|          LMN    2           SET SYNC OUT
11792  M01S06578.1da     +++|          RJM    FCN
11793  M01S06579.1da     +++|          WAIT   10
11794  M01S06580.1da     +++|          LDDL   LF          NEGATE SYNC OUT
11795  M01S06581.1da     +++|          SCN    2
11796  M01S06582.1da     +++|          RJM    FCN
11797  M01S06583.1da     +++|          LDDL   LF          CLEAR MASTER OUT
11798  M01S06584.1da     +++|          SCN    4
11799  M01S06585.1da     +++|          RJM    FCN
11800  M01S06586.1da     +++|          UJP    RIFX        RETURN
11801  M01S06587.1da     +++|
11802  M01S00464.273l780 +++|
11803  M01S06588.1da     +++| RIFA     BSS    0           RESET FUNCTION CODES
11804  M01S06589.1da     +++|          CONL   F8415
11805  M01S06590.1da     +++|          CONL   F8215
11806  M01S06591.1da     +++| RRP      SPACE  4,10
11807  M01S06592.1da     +++|**        RRP - READ RESPONSE PACKET.
11808  M01S06593.1da     +++|*
11809  M01S06594.1da     +++|*         ENTRY  (T6) = 0 IF STREAMING MODE FOR RESPONSES.
11810  M01S06595.1da     +++|*
11811  M01S06596.1da     +++|*         CALLS  BCS, CRC, FCN.
11812  M01S06597.1da     +++|
11813  M01S06598.1da     +++|
11814  M01S06599.1da     +++| RRP      SUBR               ENTRY/EXIT
11815  M01S06600.1da     +++|          LDN    RIIN
11816  M01S06601.1da     +++|          RJM    BCS         INITIATE BUS EXCHANGE (RESPONSE IN)
11817  M01S06602.1da     +++|          LDDL   T6          STREAMING OR INTERLOCK MODE
11818  M01S06603.1da     +++|          LMC    F0281       READ
11819  M01S06604.1da     +++|          RJM    FCN         RAISE MASTER OUT
11820  M01S06605.1da     +++|          ACN    CH
11821  M01S06606.1da     +++|          LDN    RPBFL       TRANSFER RESPONSE PACKET
11822  M01S06607.1da     +++|          IAM    RPBF,CH
11823  M01S06608.1da     +++|          STD    T0          SAVE RESIDUE
11824  M01S06609.1da     +++|          SBN    RPBFL-4
11825  M01S06610.1da     +++|          PJN    RRP1        IF INVALID PACKET LENGTH
11826  M01S06611.1da     +++|          LDM    RPBF+PLN
11827  M01S06612.1da     +++|          ADN    3           CONVERT OCTET COUNT TO BYTE COUNT
11828  M01S06613.1da     +++|          SHN    -1
11829  M01S06614.1da     +++|          RAD    T0
11830  M01S06615.1da     +++| RRP1     LDK    RPBFL       COMPARE LENGTH WITH DATA READ
11831  M01S06616.1da     +++|          RJM    CRC         COMMON READ CODE
11832  M01S06617.1da     +++|          UJN    RRPX        RETURN
11833  M01S06618.1da     +++| RSR      SPACE  4,10
11834  M01S06619.1da     +++|**        RSR - READ SLAVE RESPONSE.
11835  M01S06620.1da     +++|*
11836  M01S06621.1da     +++|*         ENTRY  (A) = FUNCTION TO ISSUE.
11837  M01S06622.1da     +++|*
11838  M01S06623.1da     +++|*         EXIT   (A) = SLAVE RESPONSE.
11839  M01S06624.1da     +++|*                TO *ERR* IF ERROR.
11840  M01S06625.1da     +++|*
11841  M01S06626.1da     +++|*         CALLS  FCN.
11842  M01S06627.1da     +++|
11843  M01S06628.1da     +++|
11844  M01S06629.1da     +++| RSR2     IAN    CH          READ SLAVE RESPONSE
11845  M01S06630.1da     +++|
11846  M01S06631.1da     +++| RSR      SUBR               ENTRY/EXIT
11847  M01S06632.1da     +++|          RJM    FCN
11848  M01S06633.1da     +++|          LDC    2000
11849  M01S06634.1da     +++|          ACN    CH
11850  M01S06635.1da     +++| RSR1     FJM    RSR2,CH     IF SLAVE IN DROPPED
11851  M01S06636.1da     +++|          SBN    1
11852  M01S06637.1da     +++|          NJN    RSR1        IF NOT TIMED OUT
Line S06638 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11853  M02S06638.283l840 ---|          LDN    ECNR
11854  M01S00352.283l840 +++|          LDN    ECNR        SLAVE/SYNC IN SIGNAL ERROR
11855  M01S06639.1da     +++|          RJM    ERR         PROCESS ERROR
11856  M01S06640.1da     +++| RTR      SPACE  4,10
11857  M01S06641.1da     +++|**        RTR - READ T REGISTER.
11858  M01S06642.1da     +++|*
11859  M01S06643.1da     +++|*         USES   T2, T3.
11860  M01S06644.1da     +++|*
11861  M01S06645.1da     +++|*         CALLS  FAN.
11862  M01S06646.1da     +++|
11863  M01S06647.1da     +++|
11864  M01S06648.1da     +++| RTR      SUBR               ENTRY/EXIT
11865  M01S06649.1da     +++|          LDC    F0A00       READ T REGISTER FUNCTION
11866  M01S06650.1da     +++|          STD    T2
11867  M01S06651.1da     +++|          RJM    FAN
11868  M01S06652.1da     +++|          LDN    0
11869  M01S06653.1da     +++|          STML   EDBF+TREG
11870  M01S06654.1da     +++|          STML   EDBF+TREG+1  CLEAR T REGISTER BUFFER
11871  M01S06655.1da     +++|          STML   EDBF+TREG+2
11872  M01S06656.1da     +++|          STD    T3
11873  M01S06657.1da     +++|          ACN    CH+40B      ACTIVATE CHANNEL
11874  M01S06658.1da     +++|
11875  M01S06659.1da     +++|*         THE ONE WORD INPUT IS NECESSARY TO PREVENT THE CHANNEL
11876  M01S06660.1da     +++|*         FROM HANGING ON A 170 DMA CHANNEL.
11877  M01S06661.1da     +++|
11878  M01S06662.1da     +++| RTR1     SOD    T2
11879  M01S06663.1da     +++|          ZJN    RTRX        IF TIMEOUT
11880  M01S06664.1da     +++|          IJM    RTRX,CH     IF ERROR
11881  M01S06665.1da     +++|          EJM    RTR1,CH     IF CHANNEL NOT FULL YET
11882  M01S06666.1da     +++|          IAN    CH
11883  M01S06667.1da     +++|          STML   EDBF+TREG,T3  SAVE WORD FROM T REGISTER
11884  M01S06668.1da     +++|          AOD    T3
11885  M01S06669.1da     +++|          LMN    3
11886  M01S06670.1da     +++|          ZJN    RTRX        IF TRANSFER COMPLETE
Line S06671 Modification History
M01 (Added by) 1da
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11887  M02S06671.273l780 ---|          UJN    RTR1        GO INPUT NEXT WORD
11888  M01S00465.273l780 +++|          UJN    RTR1        INPUT NEXT WORD
11889  M01S06672.1da     +++| SAP      SPACE  4,10
11890  M01S06673.1da     +++|**        SAP - SELECT ADAPTER PORT.
11891  M01S06674.1da     +++|*
Line S06675 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11892  M02S06675.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
11893  M01S00582.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
11894  M01S06676.1da     +++|*                (CT) = 0 IF 10 MB CHANNEL.
11895  M01S06677.1da     +++|*
11896  M01S06678.1da     +++|*         CALLS  FCN.
11897  M01S06679.1da     +++|
11898  M01S06680.1da     +++|
11899  M01S06681.1da     +++| SAP      SUBR               ENTRY/EXIT
11900  M01S06682.1da     +++|          LDM    PNUN,DI
11901  M01S06683.1da     +++|          SHN    0-11        ISOLATE PORT NUMBER
11902  M01S06684.1da     +++|          SHN    13-0
11903  M01S06685.1da     +++|          ERRNZ  F0062+4000-F0862  CODE DEPENDS ON VALUE
11904  M01S06686.1da     +++|          ADML   PAS,CT
11905  M01S06687.1da     +++|          RJM    FCN
11906  M01S06688.1da     +++|          UJN    SAPX        RETURN
11907  M01S06689.1da     +++| SCM      SPACE  4,15
11908  M01S06690.1da     +++|**        SCM - SELECT CONTROLLER.
11909  M01S06691.1da     +++|*
11910  M01S06692.1da     +++|*         ENTRY  (SF) = 1 IF DEVICE PREVIOUSLY SELECTED.
11911  M01S00583.1da8    +++|*                (CI) = CONTROLLER STATE TABLE INDEX.
11912  M01S06693.1da     +++|*                (CN) = CONTROLLER NUMBER.
11913  M01S00584.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
11914  M01S06694.1da     +++|*                (T6) = 0 IF STREAMING COMMANDS/RESPONSES.
Line S06695 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11915  M02S06695.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
11916  M01S06696.1da     +++|*
11917  M01S06697.1da     +++|*         EXIT   TO *ERR* IF ERROR.
11918  M01S06698.1da     +++|*
Line S06699 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11919  M02S06699.1da8    ---|*         USES   T5, T6.
11920  M01S00585.1da8    +++|*         USES   T6.
11921  M01S06700.1da     +++|*
11922  M01S06701.1da     +++|*         CALLS  DTM, RSR, SAP.
11923  M01S06702.1da     +++|
11924  M01S06703.1da     +++|
11925  M01S06704.1da     +++| SCM      SUBR               ENTRY/EXIT
11926  M01S06705.1da     +++|          RJM    SAP         SELECT ADAPTER PORT
Line S06706 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11927  M02S06706.1da8    ---|          LDML   PNUN,DI
Line S06707 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11928  M02S06707.1da8    ---|          SHN    -6
Line S06708 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11929  M02S06708.1da8    ---|          STDL   T5
Line S06709 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11930  M02S06709.1da8    ---|          LDML   CSTB,T5
Line S06710 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11931  M02S06710.1da8    ---|          SHN    -16
Line S00586 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11932  M02S00586.ns2783  ---|          LDML   CSTB,CI
11933  M01S02357.ns2783  +++|          LDML   CTST,CI
11934  M01S00587.1da8    +++|          SHN    -15
11935  M01S06711.1da     +++|          ZJN    SCM1        IF STREAMING COMMANDS/RESPONSES
11936  M01S06712.1da     +++|          LDC    0#200
11937  M01S06713.1da     +++| SCM1     STDL   T6
11938  M01S06714.1da     +++|          LDD    CN
11939  M01S06715.1da     +++|          RJM    DTM         DETERMINE TRANSFER MODE
11940  M01S06716.1da     +++|          LMN    F0029       SET SELECT OUT
11941  M01S06717.1da     +++|          RJM    RSR         READ BIT SIGNIFICANT RESPONSE
11942  M01S06718.1da     +++|          LPML   TMSK,CN
11943  M01S06719.1da     +++|          NJN    SCMX        IF CORRECT CONTROLLER
Line S06720 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11944  M02S06720.283l840 ---|          LDN    ETSL
11945  M01S00353.283l840 +++|          LDN    ETSL        SELECT TIMEOUT
11946  M01S06721.1da     +++|          RJM    ERR         PROCESS ERROR
11947  M01S06722.1da     +++| WCB      SPACE  4,15
11948  M01S06723.1da     +++|**        WCB - WRITE COMMAND BLOCK (PACKET).
11949  M01S06724.1da     +++|*
11950  M01S06725.1da     +++|*         ENTRY  (A) = COMMAND PACKET LENGTH.
Line S06726 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11951  M02S06726.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
11952  M01S00588.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
11953  M01S06727.1da     +++|*                (T6) = 0 IF STREAMING MODE.
11954  M01S06728.1da     +++|*                (DT) = DRIVE TYPE.
11955  M01S06729.1da     +++|*
11956  M01S06730.1da     +++|*         EXIT   TO *ERR* IF ERROR.
11957  M01S06731.1da     +++|*
11958  M01S06732.1da     +++|*         USES   T1.
11959  M01S06733.1da     +++|*
11960  M01S06734.1da     +++|*         CALLS  BCS, DCM, FCN, GSS, SCM, STO.
11961  M01S06735.1da     +++|
11962  M01S06736.1da     +++|
11963  M01S06737.1da     +++| WCB2     LDN    0           GET STATUS
11964  M01S06738.1da     +++|          RJM    GSS
11965  M01S06739.1da     +++|          RJM    DCM         DESELECT CONTROLLER
11966  M01S06740.1da     +++|          LDML   CPBF+OPC    OPERATION CODE
11967  M01S06741.1da     +++|          SHN    -10
11968  M01S06742.1da     +++|          SBN    7
11969  M01S06743.1da     +++|          NJN    WCB3        IF NOT SPIN UP/DOWN
Line S06744 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da4
Seq #  *Modification Id* Act 
----------------------------+
11970  M02S06744.1da4    ---|          LDML   ST,DT       GET SPIN UP TIMEOUT
11971  M01S00007.1da4    +++|          LDC    SUTO        SPIN UP TIMEOUT
11972  M01S06745.1da     +++|          UJN    WCB5        SET COMMAND TIMEOUT
11973  M01S06746.1da     +++|
11974  M01S06747.1da     +++| WCB3     SBN    0#28-7
11975  M01S06748.1da     +++|          NJN    WCB4        IF NOT FORMAT
11976  M01S06749.1da     +++|          LDML   CPBF
11977  M01S06750.1da     +++|          LMN    0#E
11978  M01S06751.1da     +++|          ZJN    WCB4        IF NOT FULL PACK FORMAT
Line S06752 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11979  M02S06752.284l847 ---|          LDC    6*60D
11980  M01S00626.284l847 +++|          LDC    FMTO
11981  M01S06753.1da     +++|          UJN    WCB5        SET COMMAND TIMEOUT
11982  M01S06754.1da     +++|
Line S06755 Modification History
M01 (Added by) 1da
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11983  M02S06755.284l847 ---| WCB4     LDN    30D
Line S00627 Modification History
M01 (Added by) 284l847
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11984  M02S00627.ns2783  ---| WCB4     LDN    CBTO
11985  M01S02358.ns2783  +++| WCB4     LDC    CBTO
11986  M01S06756.1da     +++| WCB5     RJM    STO         SET TIMEOUT
Line S06757 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11987  M02S06757.1da8    ---|
Line S06758 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
M03 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11988  M03S06758.1da8    ---|          IFEQ   TE,1        IF TRACE ENABLED
Line S00354 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11989  M02S00354.1da8    ---| TRACE$   IFEQ   TE,1        IF TRACE ENABLED
Line S06759 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11990  M02S06759.1da8    ---|          LDN    0
Line S06760 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11991  M02S06760.1da8    ---|          RJM    TRB         SAVE COMMAND IN TRACE BUFFER
Line S06761 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
M03 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11992  M03S06761.1da8    ---|          ENDIF
Line S00355 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11993  M02S00355.1da8    ---| TRACE$   ENDIF
11994  M01S06762.1da     +++|
11995  M01S06763.1da     +++| WCB      SUBR               ENTRY/EXIT
11996  M01S06764.1da     +++|          STM    CPBF+PLN
11997  M01S06765.1da     +++|          LDML   CPBF+OPC
11998  M01S06766.1da     +++|          STML   LCMD,DI     SAVE LAST COMMAND
11999  M01S06767.1da     +++|          LDD    DI          SET COMMAND REFERENCE NUMBER
12000  M01S06768.1da     +++|          STM    CPBF+CRN
12001  M01S06769.1da     +++|          RJM    SCM         SELECT CONTROLLER
12002  M01S06770.1da     +++|          LDN    CIOT
12003  M01S06771.1da     +++|          RJM    BCS         INITIATE BUS EXCHANGE (COMMAND OUT)
12004  M01S06772.1da     +++|          LDDL   T6          STREAM OR INTERLOCK MODE
12005  M01S06773.1da     +++|          LMC    F0381       WRITE
12006  M01S06774.1da     +++|          RJM    FCN         RAISE MASTER OUT
12007  M01S06775.1da     +++|          ACN    CH
12008  M01S06776.1da     +++|          LDM    CPBF+PLN    CONVERT OCTET COUNT TO BYTE COUNT
12009  M01S06777.1da     +++|          ADN    3
12010  M01S06778.1da     +++|          SHN    -1          TRANSFER COMMAND PACKET
12011  M01S06779.1da     +++|          OAM    CPBF,CH
12012  M01S06780.1da     +++|          STD    T1          SAVE RESIDUAL BYTE COUNT FOR *GSS*
12013  M01S06781.1da     +++|          LDC    50000D
12014  M01S06782.1da     +++| WCB1     IJM    WCB2,CH     IF SLAVE IN DROPPED
12015  M01S06783.1da     +++|          SBN    1
12016  M01S06784.1da     +++|          NJN    WCB1        IF NOT TIMED OUT
Line S06785 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12017  M02S06785.283l840 ---|          LDN    ECNR
12018  M01S00356.283l840 +++|          LDN    ECNR        SLAVE/SYNC IN SIGNAL ERROR
12019  M01S06786.1da     +++|          RJM    ERR         PROCESS ERROR
12020  M01S06787.1da     +++| WTC      SPACE  4,10
12021  M01S06788.1da     +++|**        WTC - WAIT TRANSMISSION COMPLETE.
12022  M01S06789.1da     +++|*
12023  M01S06790.1da     +++|*         EXIT   TO *ERR* IF ERROR.
12024  M01S06791.1da     +++|*
12025  M01S06792.1da     +++|*         CALLS  CFE.
12026  M01S06793.1da     +++|
12027  M01S06794.1da     +++|
12028  M01S06795.1da     +++| WTC1     DCN    CH+40       DEACTIVATE CHANNEL
12029  M01S06796.1da     +++|
12030  M01S06797.1da     +++| WTC      SUBR               ENTRY/EXIT
12031  M01S06798.1da     +++|          RJM    CFE         CHECK FOR ERROR
12032  M01S06799.1da     +++|          EJM    WTC1,CH     IF LAST WORD TAKEN OFF CHANNEL
Line S06800 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12033  M02S06800.283l840 ---|          LDN    ECHF
12034  M01S00357.283l840 +++|          LDN    ECHF        CHANNEL HUNG FULL
12035  M01S06801.1da     +++|          RJM    ERR         PROCESS CHANNEL ERROR
12036  M01S06802.1da     +++| WTR      SPACE  4,10
12037  M01S06803.1da     +++|**        WTR - WRITE T REGISTER.
12038  M01S06804.1da     +++|*
12039  M01S06805.1da     +++|*         ENTRY  (CB) = *CBT* ORDINAL.
12040  M01S06806.1da     +++|*                (RW) = 0 IF READ.
12041  M01S06807.1da     +++|*
12042  M01S06808.1da     +++|*         CALLS  FCN, SLB, SUA, WTC.
12043  M01S06809.1da     +++|
12044  M01S06810.1da     +++|
12045  M01S06811.1da     +++| WTR      SUBR               ENTRY/EXIT
12046  M01S06812.1da     +++|          LDD    RW
12047  M01S06813.1da     +++|          ZJN    WTR1        IF READ REQUEST
12048  M01S06814.1da     +++|          LDD    CB
12049  M01S06815.1da     +++|          RJM    SLB         SET LINKAGE BITS
12050  M01S06816.1da     +++| WTR1     LDD    CB
12051  M01S06817.1da     +++|          RJM    SUA         GET UEM BUFFER ADDRESS
12052  M01S06818.1da     +++|          LDD    UA+1
12053  M01S06819.1da     +++|          SHN    11          FORMAT ADDRESS
12054  M01S06820.1da     +++|          SCN    7
12055  M01S06821.1da     +++|          STML   WTRA+2      SET ABSOLUTE ADDRESS
12056  M01S06822.1da     +++|          LDD    UA
12057  M01S06823.1da     +++|          SHN    14          COMPLETE BUFFER ADDRESS
12058  M01S06824.1da     +++|          LMD    UA+1
12059  M01S06825.1da     +++|          SHN    11-20       INSERT IN REGISTER IMAGE
12060  M01S06826.1da     +++|          STM    WTRA+1
12061  M01S06827.1da     +++|          LDML   WTRB,RW     ISSUE DMA FUNCTION
12062  M01S06828.1da     +++|          RJM    FCN
12063  M01S06829.1da     +++|          LDN    3           SET BLOCK LENGTH
12064  M01S06830.1da     +++|          ACN    CH
12065  M01S06831.1da     +++|          OAM    WTRA,CH     OUTPUT BUFFER PARAMETERS
12066  M01S06832.1da     +++|          RJM    WTC
12067  M01S06833.1da     +++|          UJP    WTRX        RETURN
12068  M01S06834.1da     +++|
12069  M01S00466.273l780 +++|
12070  M01S06835.1da     +++| WTRA     BSS    0           T REGISTER BUFFER
Line S06836 Modification History
M01 (Added by) 1da
M02 (Updated by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
12071  M02S06836.1da7    ---|          CONL   40000       BYTE LENGTH OF I/O TRANSFER
12072  M01S00235.1da7    +++|          CONL   BPB         BYTE LENGTH OF I/O TRANSFER
12073  M01S06837.1da     +++|          CONL   0,0         UEM ADDRESS OF BUFFER
12074  M01S06838.1da     +++|
12075  M01S06839.1da     +++| WTRB     BSS    0           DMA I/O FUNCTIONS
12076  M01S06840.1da     +++|          CONL   F0C00
12077  M01S06841.1da     +++|          CONL   F0D00
Line S06842 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12078  M02S06842.ns2783  ---|          TITLE  MISCELLANEOUS.
12079  M01S02359.ns2783  +++|          TITLE  COMMON DECKS.
12080  M01S06843.1da     +++|          SPACE  4,10
12081  M01S06844.1da     +++|**        COMMON DECKS.
12082  M01S06845.1da     +++|
12083  M01S06846.1da     +++|
12084  M01S06847.1da     +++|*CALL     COMPCHD
12085  M01S06848.1da     +++|*CALL     COMPC2D
12086  M01S06849.1da     +++| RND$     EQU    0           DEFINE ROUNDING FOR *COMPDV5*
12087  M01S06850.1da     +++|*CALL     COMPDV5
12088  M01S02360.ns2783  +++| EST$     EQU    0           ASSEMBLE *EST* ACCESS ROUTINE
12089  M01S02361.ns2783  +++| IFP$     EQU    0           FORCE REMOTE ASSEMBLY OF *IFP*
12090  M01S02362.ns2783  +++|*CALL     COMPGFP
12091  M01S00358.283l840 +++|*CALL     COMPIFR
12092  M01S00009.ns2769  +++| M8K$     EQU    1           USE LONG INSTRUCTIONS
12093  M01S00010.ns2769  +++|*CALL     COMPIMB
Line S06851 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12094  M02S06851.ns2783  ---|          QUAL   SES
Line S06852 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12095  M02S06852.ns2783  ---| QUAL$    EQU    0           DO NOT FURTHER QUALIFY *SES*
Line S06853 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12096  M02S06853.ns2783  ---| T5       EQU    EO
Line S06854 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12097  M02S06854.ns2783  ---|*CALL     COMPSES
12098  M01S02363.ns2783  +++|          QUAL   TEO
12099  M01S02364.ns2783  +++| QUAL$    EQU    0           DO NOT FURTHER QUALIFY COMMON DECKS
12100  M01S02365.ns2783  +++| T5       EQU    EO          USE *EO* FOR EST ORDINAL IN COMMON DECKS
12101  M01S02366.ns2783  +++|*CALL     COMPTGB
12102  M01S02367.ns2783  +++|*CALL     COMPTLB
12103  M01S06855.1da     +++|          QUAL   *
Line S06856 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12104  M02S06856.ns2783  ---| SES      EQU    /SES/SES
Line S00359 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12105  M02S00359.ns2783  ---|*CALL     COMPTGB
Line S06857 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12106  M02S06857.ns2783  ---|*CALL     COMPTLB
12107  M01S02368.ns2783  +++| TGB      EQU    /TEO/TGB
12108  M01S02369.ns2783  +++| TLB      EQU    /TEO/TLB
12109  M01S02370.ns2783  +++|          TITLE  BUFFERS.
12110  M01S06858.1da     +++|          SPACE  4,10
12111  M01S06859.1da     +++|**        BUFFERS.
12112  M01S06860.1da     +++|
12113  M01S06861.1da     +++|
12114  M01S06862.1da     +++| RPBF     BSS    0           RESPONSE PACKET BUFFER
12115  M01S06863.1da     +++|
12116  M01S06864.1da     +++| CPBF     EQU    RPBF+1      COMMAND PACKET BUFFER
12117  M01S06865.1da     +++| ATTB     EQU    RPBF+10     ATTRIBUTE BUFFER
12118  M01S06866.1da     +++| ATTBL    EQU    0#8A
12119  M01S06867.1da     +++|
12120  M01S06868.1da     +++| RBUF     EQU    ATTB+ATTBL  REGISTER BUFFER
12121  M01S06869.1da     +++| RBUFL    EQU    2*4
12122  M01S06870.1da     +++|
12123  M01S06871.1da     +++| SBUF     EQU    RBUF+RBUFL  SCRATCH BUFFER
12124  M01S06872.1da     +++| SBUFL    EQU    4*5
12125  M01S06873.1da     +++|
12126  M01S06874.1da     +++| EDBF     EQU    20000-400-RTEDL  ERROR DATA BUFFER
12127  M01S06875.1da     +++|          ERRNG  400-EDBFL+RTEDL  CODE DEPENDS ON VALUE
Line S06876 Modification History
M01 (Added by) 1da
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12128  M02S06876.ns2783  ---|          ERRPL  SBUF+SBUFL-EDBF  BUFFER OVERLAP
12129  M01S06877.1da     +++|
12130  M01S06878.1da     +++| MSGP     EQU    EDBF+EMBF   MESSAGE PREFIX
12131  M01S06879.1da     +++| MSGL     EQU    MSGP+2      MESSAGE LENGTH
12132  M01S06880.1da     +++| MSGT     EQU    MSGL+2      MESSAGE TYPE
12133  M01S06881.1da     +++|
12134  M01S06882.1da     +++| BMLM     EQU    MSGT+1      BML MESSAGE HEADER
12135  M01S06883.1da     +++| MSID     EQU    BMLM        MESSAGE ID
Line S06884 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12136  M02S06884.283l840 ---| UNIT     EQU    MSID+3      UNIT NUMBER
12137  M01S00360.283l840 +++| PPCH     EQU    MSID+2      PP NUMBER / CHANNEL NUMBER
12138  M01S00361.283l840 +++| UNIT     EQU    PPCH+1      UNIT NUMBER
12139  M01S06885.1da     +++| PORT     EQU    UNIT+1      PORT NUMBER
12140  M01S06886.1da     +++| ESTO     EQU    PORT+1      EST ORDINAL
12141  M01S06887.1da     +++| MISC     EQU    ESTO+1      RETRY COUNT / WRITE + RECOVERY FLAGS
12142  M01S06888.1da     +++| MFID     EQU    MISC+2      MAINFRAME ID
12143  M01S02371.ns2783  +++|          SPACE  4,10
12144  M01S02372.ns2783  +++|*         CHECK FOR BUFFER OVERLAP.
12145  M01S02373.ns2783  +++|
12146  M01S02374.ns2783  +++|
12147  M01S02375.ns2783  +++|          ERRNG  EDBF-SBUF-SBUFL  *SBUF* OVERFLOWS INTO *EDBF*
Line S06889 Modification History
M01 (Added by) 1da
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
12148  M02S06889.283l840 ---|          TITLE  PRESET ROUTINES.
12149  M01S00362.283l840 +++|          TITLE  PRESET.
12150  M01S02376.ns2783  +++|*         PRESET DATA LOCATIONS.
12151  M01S02377.ns2783  +++|
12152  M01S02378.ns2783  +++|
12153  M01S02379.ns2783  +++| CPCH     CON    0           6/CPP NUMBER, 6/CHANNEL NUMBER
12154  M01S02380.ns2783  +++| PUTA     CON    0,0         FWA OF *PUT*
12155  M01S02381.ns2783  +++| PUTN     CON    0           NUMBER OF *PUT* ENTRIES
12156  M01S02382.ns2783  +++|
12157  M01S02383.ns2783  +++| OVLP     EQU    *+5         ORIGIN FOR OVERLAY *3DZ*
12158  M01S00363.283l840 +++| PRS      SPACE  4,15
12159  M01S00364.283l840 +++|**        PRS - PRESET DRIVER FOR PROCESSING.
12160  M01S00365.283l840 +++|*
12161  M01S00366.283l840 +++|*         ENTRY  AT *PRS* WHEN DRIVER LOADED.
12162  M01S00367.283l840 +++|*
Line S00368 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12163  M02S00368.ns2783  ---|*         EXIT   TO *MRS+1* WHEN PRESET COMPLETE.
Line S00369 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12164  M02S00369.ns2783  ---|*                (UC) = 0.
Line S00370 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12165  M02S00370.ns2783  ---|*                TO *DAS5* IF CHANNEL DOWN.
12166  M01S02384.ns2783  +++|*         EXIT   TO *3DZ*.
12167  M01S00371.283l840 +++|*
Line S00372 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12168  M02S00372.ns2783  ---|*         USES   CT, PA, PT, UC, CM - CM+4, T2 - T7, WB - WB+4.
12169  M01S02385.ns2783  +++|*         USES   CR, CT, PA, UC, CM - CM+4, T2 - T7, WB - WB+4.
12170  M01S00373.283l840 +++|*
Line S00374 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12171  M02S00374.ns2783  ---|*         CALLS  CCP, IST, MCI, SCT, SPA, STA.
12172  M01S02386.ns2783  +++|*         CALLS  CCP, IFP, MCI, SCT, SPA, STA.
12173  M01S02387.ns2783  +++|*
12174  M01S02388.ns2783  +++|*         MACROS EXECUTE.
12175  M01S00375.283l840 +++|
12176  M01S00376.283l840 +++|
12177  M01S00377.283l840 +++| PRS      BSS    0           ENTRY
12178  M01S00378.283l840 +++|          LDD    IR+2        SAVE *CCT* ORDINAL
12179  M01S00379.283l840 +++|          STM    PRSA
Line S00380 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12180  M02S00380.ns2783  ---|          RJM    CCP         CHECK CALLING PROGRAM
Line S00381 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12181  M02S00381.ns2783  ---|*         LDN    0
12182  M01S02389.ns2783  +++|          RJM    IFP         INITIALIZE *COMPGFP*
12183  M01S02390.ns2783  +++|          LDN    0
12184  M01S00382.283l840 +++|          STD    UC          SET NO UNITS RESERVED
12185  M01S00383.283l840 +++|          STD    PA          SET NO REQUEST IN PROGRESS
12186  M01S00384.283l840 +++|          STD    CT          DEFAULT TO 10 MB CHANNEL
12187  M01S00385.283l840 +++|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
12188  M01S00386.283l840 +++|*         LDN    0
12189  M01S00387.283l840 +++|          STD    CR          SET CHANNEL NOT RESERVED
12190  M01S00388.283l840 +++|          RJM    SPA         SET PP EXCHANGE PACKAGE ADDRESSES
12191  M01S02391.ns2783  +++|
12192  M01S02392.ns2783  +++|*         SET TIME FOR NEXT GLOBAL MST CHECK, BASED ON CPP NUMBER.
12193  M01S02393.ns2783  +++|
12194  M01S02394.ns2783  +++|          LDK    RTCL        GET CURRENT CLOCK
12195  M01S02395.ns2783  +++|          CRD    CM
12196  M01S02396.ns2783  +++|          LDD    CM+1        CURRENT TIME (SECONDS)
12197  M01S02397.ns2783  +++|          SBD    T4          ADJUST BY CPP NUMBER
12198  M01S02398.ns2783  +++|          PJN    PRS1        IF NO UNDERFLOW
12199  M01S02399.ns2783  +++|          LDD    T4
12200  M01S02400.ns2783  +++| PRS1     STM    CETB        PRESET TIME OF PREVIOUS GLOBAL MST CHECK
Line S00389 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12201  M02S00389.1da8    ---| TRACE$   IFEQ   TE,1        IF TRACE ENABLED
Line S00390 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12202  M02S00390.1da8    ---|          LDM    PRSB
Line S00391 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12203  M02S00391.1da8    ---|          SHN    -6
Line S00392 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12204  M02S00392.1da8    ---|          LPN    17
Line S00393 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12205  M02S00393.1da8    ---|          SBN    5
Line S00394 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12206  M02S00394.1da8    ---|          ZJN    PRS1        IF PP5
Line S00395 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12207  M02S00395.1da8    ---|          LDN    20
Line S00396 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12208  M02S00396.1da8    ---| PRS1     ADN    20
Line S00397 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12209  M02S00397.1da8    ---|          STM    TRBA        TRACE STARTING ADDRESS
Line S00398 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12210  M02S00398.1da8    ---|          ADC    1400
Line S00399 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12211  M02S00399.1da8    ---|          STM    TRB3
Line S00400 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12212  M02S00400.1da8    ---| TRACE$   ENDIF
12213  M01S00401.283l840 +++|          RJM    SCT         SET CHANNEL TABLE ADDRESSES
12214  M01S00402.283l840 +++|          LDK    BIOL
12215  M01S00403.283l840 +++|          CRD    CM          READ BUFFERED I/O POINTERS
12216  M01S00404.283l840 +++|          LDD    CM+1
12217  M01S00405.283l840 +++|          SHN    14
12218  M01S00406.283l840 +++|          LMD    CM+2
Line S00407 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12219  M02S00407.1da8    ---|          ADN    FTTP        READ *FTT* POINTER
Line S00408 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12220  M02S00408.1da8    ---|          CRD    T6
Line S00409 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12221  M02S00409.1da8    ---|          SBN    FTTP-CCTP   READ *CCT* POINTER
Line S00589 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12222  M02S00589.ns2783  ---|          ADN    CCTP        READ *CCT* POINTER
12223  M01S02401.ns2783  +++|          ADN    FTTP        READ *FTT* POINTER
12224  M01S02402.ns2783  +++|          CRD    T6
12225  M01S02403.ns2783  +++|          SBN    FTTP-CCTP   READ *CCT* POINTER
12226  M01S00410.283l840 +++|          CRD    T4
12227  M01S00411.283l840 +++|          ADN    CBTP-CCTP   READ *CBT* POINTER
12228  M01S00412.283l840 +++|          CRD    WB
12229  M01S00413.283l840 +++|          SBN    CBTP-PUTP   READ *PUT* POINTER
12230  M01S00414.283l840 +++|          CRD    T2
Line S00415 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12231  M02S00415.ns2783  ---|          AOD    T2          SET NUMBER OF *PUT* ENTRIES
Line S00416 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12232  M02S00416.ns2783  ---|          STD    PT
12233  M01S02404.ns2783  +++|          LDD    T2+3        SAVE *PUT* ADDRESS
12234  M01S02405.ns2783  +++|          LPN    77
12235  M01S02406.ns2783  +++|          STM    PUTA
12236  M01S02407.ns2783  +++|          LDD    T2+4
12237  M01S02408.ns2783  +++|          STM    PUTA+1
12238  M01S02409.ns2783  +++|          AOD    T2
12239  M01S02410.ns2783  +++|          STM    PUTN        SAVE NUMBER OF *PUT* ENTRIES
12240  M01S00417.283l840 +++|          LDC    T5*20000+TPUT  SET *PUT* ADDRESSES
12241  M01S00418.283l840 +++|          RJM    STA
12242  M01S00419.283l840 +++|          LDC    **          ADJUST CHANNEL CONTROL TABLE POINTER
12243  M01S00420.283l840 +++| PRSA     EQU    *-1
12244  M01S00421.283l840 +++|          SCN    77
12245  M01S00422.283l840 +++|          SHN    CCTLS-6
12246  M01S00423.283l840 +++|          RAD    CM
12247  M01S00424.283l840 +++|          SHN    -14
12248  M01S00425.283l840 +++|          RAD    T7
12249  M01S00426.283l840 +++|          LDC    T7*20000+TCCT  SET *CCT* ADDRESSES
12250  M01S00427.283l840 +++|          RJM    STA
12251  M01S02411.ns2783  +++| .CM1     EQU    CM+1
12252  M01S02412.ns2783  +++|          LDC    .CM1*20000+TFTT  SET *FTT* ADDRESSES
12253  M01S02413.ns2783  +++|          RJM    STA
Line S00428 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12254  M02S00428.1da8    ---| .CM1     EQU    CM+1
Line S00429 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12255  M02S00429.1da8    ---|          LDC    .CM1*20000+TFTT  SET *FTT* ADDRESSES
Line S00430 Modification History
M01 (Added by) 283l840
M02 (Updated by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12256  M02S00430.1da8    ---|          RJM    STA
12257  M01S00431.283l840 +++| .WB3     EQU    WB+3
12258  M01S00432.283l840 +++|          LDC    .WB3*20000+TCBT  SET *CBT* ADDRESSES
12259  M01S00433.283l840 +++|          RJM    STA
12260  M01S00434.283l840 +++|          LDN    EMBP        FETCH *EMB* POINTER
12261  M01S00435.283l840 +++|          CRD    CM
Line S00590 Modification History
M01 (Added by) 1da8
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12262  M02S00590.ns2783  ---| .CM1     EQU    CM+1
12263  M01S00436.283l840 +++|          LDC    .CM1*20000+TEMB  SET *EMB* ADDRESSES
12264  M01S00437.283l840 +++|          RJM    STA
12265  M01S00236.1da7    +++|          LDK    ESTP        SET ENDING EST ORDINAL FOR EST SEARCH
12266  M01S00237.1da7    +++|          CRD    CM
12267  M01S00238.1da7    +++|          LDD    CM+3
12268  M01S00239.1da7    +++|          STM    LNEA
12269  M01S00438.283l840 +++|          LDK    UEML
12270  M01S00439.283l840 +++|          CRD    CM          READ UEM POINTERS
12271  M01S00440.283l840 +++|          LDD    CM
12272  M01S00441.283l840 +++|          SHN    11
12273  M01S00442.283l840 +++|*         SHN    11+EMSC
12274  M01S00443.283l840 +++|          SCN    77
12275  M01S00444.283l840 +++|          STM    SUAA        SET FWA OF UEM
12276  M01S00445.283l840 +++|          LDD    CM
12277  M01S00446.283l840 +++|          SHN    -3
12278  M01S00447.283l840 +++|*         SHN    EMSC-3
12279  M01S00448.283l840 +++|          STM    SUAB
Line S00449 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12280  M02S00449.ns2783  ---|          RJM    IST         INITIALIZE DEVICE STATE TABLE
Line S00450 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12281  M02S00450.ns2783  ---|          STM    PRSC        SAVE *IST* RETURN STATUS
12282  M01S02414.ns2783  +++|          RJM    CCP         CHECK CALLING PROGRAM
12283  M01S02415.ns2783  +++|          EXECUTE  3DZ       CONTINUE PRESET
12284  M01S02416.ns2783  +++|          TITLE  PRESET SUBROUTINES.
12285  M01S02417.ns2783  +++| CCP      SPACE  4,10
12286  M01S02418.ns2783  +++|**        CCP - CHECK CALLING PROGRAM.
12287  M01S02419.ns2783  +++|*
12288  M01S02420.ns2783  +++|*         EXIT   (A) = 0.
12289  M01S02421.ns2783  +++|*                TO *PPR* IF UNAUTHORIZED CALL.
12290  M01S02422.ns2783  +++|*
12291  M01S02423.ns2783  +++|*         USES   CM - CM+4.
12292  M01S02424.ns2783  +++|*
12293  M01S02425.ns2783  +++|*         CALLS  DFM.
12294  M01S02426.ns2783  +++|*
12295  M01S02427.ns2783  +++|*         MACROS MONITOR.
12296  M01S02428.ns2783  +++|
12297  M01S02429.ns2783  +++|
12298  M01S02430.ns2783  +++| CCP      SUBR               ENTRY/EXIT
12299  M01S02431.ns2783  +++|          LDK    NCPL
12300  M01S02432.ns2783  +++|          CRD    CM          GET NUMBER OF CONTROL POINTS
12301  M01S02433.ns2783  +++|          AOD    CM+1
12302  M01S02434.ns2783  +++|          SHN    7
12303  M01S02435.ns2783  +++|          LMD    CP
12304  M01S02436.ns2783  +++|          ZJN    CCPX        IF DRIVER AT SYSTEM CP
12305  M01S02437.ns2783  +++|          LDD    MA          MOVE MESSAGE BELOW ADDRESS 10000
12306  M01S02438.ns2783  +++|          CWM    CCPA,TR
12307  M01S02439.ns2783  +++|          LDD    MA
12308  M01S02440.ns2783  +++|          CRM    CSTB,TR
12309  M01S02441.ns2783  +++|          ERRNG  10000-CSTB  MESSAGE BUFFER MUST BE IN FIRST 4K OF PP
12310  M01S02442.ns2783  +++|          ERRNG  CSTB-MSFW   MESSAGE BUFFER MUST NOT DESTROY PPR
12311  M01S02443.ns2783  +++|          LDC    CSTB
12312  M01S02444.ns2783  +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
12313  M01S02445.ns2783  +++|          MONITOR  ABTM
12314  M01S02446.ns2783  +++|          LJM    PPR         EXIT TO PP RESIDENT
12315  M01S02447.ns2783  +++|
12316  M01S02448.ns2783  +++|
12317  M01S02449.ns2783  +++| CCPA     DATA   C* 1DA - UNAUTHORIZED CALL.*
12318  M01S02450.ns2783  +++| IFP      SPACE  4,10
12319  M01S02451.ns2783  +++|**        IFP - INITIALIZE MANAGED TABLE PROCESSORS.
12320  M01S02452.ns2783  +++|
12321  M01S02453.ns2783  +++|
12322  M01S02454.ns2783  +++|          LIST   G
12323  M01S02455.ns2783  +++| IFP      HERE
12324  M01S02456.ns2783  +++|          LIST   *
12325  M01S02457.ns2783  +++| MCI      SPACE  4,15
12326  M01S02458.ns2783  +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
12327  M01S02459.ns2783  +++|*
12328  M01S02460.ns2783  +++|*         ENTRY  (IR+4) = CONCURRENT CHANNEL NUMBER.
12329  M01S02461.ns2783  +++|*
12330  M01S02462.ns2783  +++|*         EXIT   (A) = 0.
12331  M01S02463.ns2783  +++|*
12332  M01S02464.ns2783  +++|*         USES   T1 - T3.
12333  M01S02465.ns2783  +++|*
12334  M01S02466.ns2783  +++|*         CALLS  C2D.
12335  M01S02467.ns2783  +++|*
12336  M01S02468.ns2783  +++|*         MACROS CHTL.
12337  M01S02469.ns2783  +++|
12338  M01S02470.ns2783  +++|
12339  M01S02471.ns2783  +++| MCI1     RAIL   T2          MODIFY CHANNEL INSTRUCTION
12340  M01S02472.ns2783  +++|          AOD    T1
12341  M01S02473.ns2783  +++| MCI2     LDML   TCHA,T1     EXTRACT NEXT ADDRESS
12342  M01S02474.ns2783  +++|          STDL   T2
12343  M01S02475.ns2783  +++|          LDD    T3          CHECK END OF LIST
12344  M01S02476.ns2783  +++|          CHTL   *
12345  M01S02477.ns2783  +++|          SBN    CH
12346  M01S02478.ns2783  +++|          NJN    MCI1        IF MORE INSTRUCTIONS TO MODIFY
12347  M01S02479.ns2783  +++|
12348  M01S02480.ns2783  +++| MCI      SUBR               ENTRY/EXIT
12349  M01S02481.ns2783  +++|          LDD    IR+4
12350  M01S02482.ns2783  +++|          LPN    37          EXTRACT CHANNEL NUMBER
12351  M01S02483.ns2783  +++|          STD    T3
12352  M01S02484.ns2783  +++|          RJM    C2D         CONVERT FOR OPERATOR MESSAGES
12353  M01S02485.ns2783  +++|          STM    SRSG+13
12354  M01S02486.ns2783  +++|          STM    ERCR+10
12355  M01S02487.ns2783  +++|          STM    ERCD+16
12356  M01S02488.ns2783  +++|          STM    ERCE+16
12357  M01S02489.ns2783  +++|          LDN    0           INITIALIZE REMOTE TABLE INDEX
12358  M01S02490.ns2783  +++|          STD    T1
12359  M01S02491.ns2783  +++|          UJN    MCI2        ENTER LOOP
12360  M01S02492.ns2783  +++| SCT      SPACE  4,10
12361  M01S02493.ns2783  +++|**        SCT - SET CHANNEL TABLE ENTRY ADDRESSES.
12362  M01S02494.ns2783  +++|*
12363  M01S02495.ns2783  +++|*         ENTRY  (IR+4) = CHANNEL NUMBER.
12364  M01S02496.ns2783  +++|*
12365  M01S02497.ns2783  +++|*         USES   T1, T2, CM - CM+4.
12366  M01S02498.ns2783  +++|*
12367  M01S02499.ns2783  +++|*         CALLS  C2D, STA.
12368  M01S02500.ns2783  +++|
12369  M01S02501.ns2783  +++|
12370  M01S02502.ns2783  +++| SCT      SUBR               ENTRY/EXIT
12371  M01S02503.ns2783  +++|          LDD    IR+4
12372  M01S02504.ns2783  +++|          STD    T1          SET CHANNEL NUMBER
12373  M01S02505.ns2783  +++|          STM    DCEB+3
12374  M01S02506.ns2783  +++|          RAM    CPCH
12375  M01S02507.ns2783  +++|          RJM    C2D         CONVERT FOR ERROR MESSAGE
12376  M01S02508.ns2783  +++|          STM    LMRA+6
12377  M01S02509.ns2783  +++|          LCN    0           WORD OFFSET
12378  M01S02510.ns2783  +++|          STD    T2
12379  M01S02511.ns2783  +++| SCT1     AOD    T2          INCREMENT WORD OFFSET
12380  M01S02512.ns2783  +++|          LCN    5
12381  M01S02513.ns2783  +++|          RAD    T1
12382  M01S02514.ns2783  +++|          PJN    SCT1        IF CHANNEL NOT IN THIS WORD
12383  M01S02515.ns2783  +++|          ADN    5
12384  M01S02516.ns2783  +++|          STD    T1
12385  M01S02517.ns2783  +++|          RAM    RCTA        SET BYTE OFFSET
12386  M01S02518.ns2783  +++|          LDD    T1
12387  M01S02519.ns2783  +++|          SHN    1           BYTE OFFSET * 2
12388  M01S02520.ns2783  +++|          ADD    T1          BYTE OFFSET * 3
12389  M01S02521.ns2783  +++|          SHN    2           BYTE OFFSET * 12
12390  M01S02522.ns2783  +++|          SBN    59D         (BYTE OFFSET * 12) - 59
12391  M01S02523.ns2783  +++|          LMC    -0          59 - (BYTE OFFSET * 12)
12392  M01S02524.ns2783  +++|          SBN    2
12393  M01S02525.ns2783  +++|          SHN    6
12394  M01S02526.ns2783  +++|          STM    SRFA+1      SET DRIVER FLAG BIT POSITION
12395  M01S02527.ns2783  +++|          LDK    CHTP
12396  M01S02528.ns2783  +++|          CRD    CM
12397  M01S02529.ns2783  +++|          LDD    T2          SET ADDRESS OF WORD IN CHANNEL TABLE
12398  M01S02530.ns2783  +++|          RAD    CM+3
12399  M01S02531.ns2783  +++|          SHN    -14
12400  M01S02532.ns2783  +++|          RAD    CM+2
12401  M01S02533.ns2783  +++| .CM2     EQU    CM+2
12402  M01S02534.ns2783  +++|          LDC    .CM2*20000+TCHT  SET CHANNEL TABLE ADDRESSES
12403  M01S02535.ns2783  +++|          RJM    STA
12404  M01S02536.ns2783  +++|          LJM    SCTX        RETURN
12405  M01S02537.ns2783  +++| SPA      SPACE  4,10
12406  M01S02538.ns2783  +++|**        SPA - SET PP EXCHANGE PACKAGE ADDRESSES.
12407  M01S02539.ns2783  +++|*
12408  M01S02540.ns2783  +++|*         EXIT   (T4) = CPP NUMBER.
12409  M01S02541.ns2783  +++|*
12410  M01S02542.ns2783  +++|*         USES   CM - CM+4, T1 - T5.
12411  M01S02543.ns2783  +++|*
12412  M01S02544.ns2783  +++|*         CALLS  STA.
12413  M01S02545.ns2783  +++|
12414  M01S02546.ns2783  +++|
12415  M01S02547.ns2783  +++| SPA      SUBR               ENTRY/EXIT
12416  M01S02548.ns2783  +++|          LDN    PXPP
12417  M01S02549.ns2783  +++|          CRD    CM          FETCH FWA OF PP EXCHANGE PACKAGE AREA
12418  M01S02550.ns2783  +++|          ADN    1
12419  M01S02551.ns2783  +++|          CRM    AMEA,ON     SET FIRST WORD OF PP EXCHANGE PACKAGE
12420  M01S02552.ns2783  +++|          ADN    PPCP-PXPP-2
12421  M01S02553.ns2783  +++|          CRD    T1          READ PP COMMUNICATION AREA POINTER
12422  M01S02554.ns2783  +++|          LDD    IA
12423  M01S02555.ns2783  +++|          STM    AMEA+4      SET (B0) NON-ZERO FOR EXCHANGE TEST
12424  M01S02556.ns2783  +++|          SBD    T1+4
12425  M01S02557.ns2783  +++|          SHN    -3          PP NUMBER
12426  M01S02558.ns2783  +++|          SBN    24          CPP NUMBER
12427  M01S02559.ns2783  +++|          STD    T4
12428  M01S02560.ns2783  +++|          SHN    6
12429  M01S02561.ns2783  +++|          STM    CPCH        SAVE CPP NUMBER FOR BML MESSAGE
12430  M01S02562.ns2783  +++|          SHN    -6
12431  M01S02563.ns2783  +++|          ADN    24-2
12432  M01S02564.ns2783  +++|          STD    T1          PP NUMBER - 2
12433  M01S02565.ns2783  +++|          SHN    4
12434  M01S02566.ns2783  +++|          ADD    T1          (PP NUMBER - 2) * 21B
12435  M01S02567.ns2783  +++|          RAD    CM+4
12436  M01S02568.ns2783  +++|          SHN    -14
12437  M01S02569.ns2783  +++|          RAD    CM+3
12438  M01S02570.ns2783  +++| .CM3     EQU    CM+3
12439  M01S02571.ns2783  +++|          LDC    .CM3*20000+TEXP  SET EXCHANGE PACKAGE ADDRESSES
12440  M01S02572.ns2783  +++|          RJM    STA
12441  M01S02573.ns2783  +++|          LJM    SPAX        RETURN
12442  M01S02574.ns2783  +++| STA      SPACE  4,10
12443  M01S02575.ns2783  +++|**        STA - SET TABLE ADDRESSES.
12444  M01S02576.ns2783  +++|*
12445  M01S02577.ns2783  +++|*         ENTRY  (A) = 5/ TP, 13/ TA.
12446  M01S02578.ns2783  +++|*                (TP) = TABLE POINTER.
12447  M01S02579.ns2783  +++|*                (TA) = INSTRUCTION TABLE ADDRESS.
12448  M01S02580.ns2783  +++|*
12449  M01S02581.ns2783  +++|*         EXIT   (A) = 0.
12450  M01S02582.ns2783  +++|*
12451  M01S02583.ns2783  +++|*         USES   T1 - T3.
12452  M01S02584.ns2783  +++|
12453  M01S02585.ns2783  +++|
12454  M01S02586.ns2783  +++| STA1     STDL   T2          SET INSTRUCTION ADDRESS
12455  M01S02587.ns2783  +++|          LDM    1,T1
12456  M01S02588.ns2783  +++|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
12457  M01S02589.ns2783  +++|          SHN    -14
12458  M01S02590.ns2783  +++|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
12459  M01S02591.ns2783  +++|          LPN    37
12460  M01S02592.ns2783  +++|          RAI    T2
12461  M01S02593.ns2783  +++|          AODL   T3          ADVANCE INSTRUCTION LIST
12462  M01S02594.ns2783  +++| STA2     LDIL   T3
12463  M01S02595.ns2783  +++|          NJN    STA1        IF NOT END OF TABLE
12464  M01S02596.ns2783  +++|
12465  M01S02597.ns2783  +++| STA      SUBR               ENTRY/EXIT
12466  M01S02598.ns2783  +++|          STDL   T3
12467  M01S02599.ns2783  +++|          SHN    -15         SET ADDRESS POINTER
12468  M01S02600.ns2783  +++|          STD    T1
12469  M01S02601.ns2783  +++|          LDDL   T3
12470  M01S02602.ns2783  +++|          LPC    17777
12471  M01S02603.ns2783  +++|          STDL   T3
12472  M01S02604.ns2783  +++|          UJN    STA2        ENTER LOOP
12473  M01S02605.ns2783  +++|          TITLE  INSTRUCTION MODIFICATION TABLES.
12474  M01S02606.ns2783  +++| TCHA     SPACE  4,10
12475  M01S02607.ns2783  +++|**        TABLE OF CHANNEL INSTRUCTIONS ADDRESSES.
12476  M01S02608.ns2783  +++|
12477  M01S02609.ns2783  +++|
12478  M01S02610.ns2783  +++| TCHA     CHTB
12479  M01S02611.ns2783  +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
12480  M01S02612.ns2783  +++| TCBT     SPACE  4,10
12481  M01S02613.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *CBT*.
12482  M01S02614.ns2783  +++|
12483  M01S02615.ns2783  +++|
12484  M01S02616.ns2783  +++| TCBT     BSS    0
12485  M01S02617.ns2783  +++| TCBT     HERE
12486  M01S02618.ns2783  +++|          CON    0           TERMINATE TABLE
12487  M01S02619.ns2783  +++| TCCT     SPACE  4,10
12488  M01S02620.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING ADDRESS OF *CCT* ENTRY.
12489  M01S02621.ns2783  +++|
12490  M01S02622.ns2783  +++|
12491  M01S02623.ns2783  +++| TCCT     BSS    0
12492  M01S02624.ns2783  +++| TCCT     HERE
12493  M01S02625.ns2783  +++|          CON    0           TERMINATE TABLE
12494  M01S02626.ns2783  +++| TCHT     SPACE  4,10
12495  M01S02627.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF CHANNEL TABLE.
12496  M01S02628.ns2783  +++|
12497  M01S02629.ns2783  +++|
12498  M01S02630.ns2783  +++| TCHT     BSS    0
12499  M01S02631.ns2783  +++| TCHT     HERE
12500  M01S02632.ns2783  +++|          CON    0           TERMINATE TABLE
12501  M01S02633.ns2783  +++| TEMB     SPACE  4,10
12502  M01S02634.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *EMB*.
12503  M01S02635.ns2783  +++|
12504  M01S02636.ns2783  +++|
12505  M01S02637.ns2783  +++| TEMB     BSS    0
12506  M01S02638.ns2783  +++|          QUAL   COMPIMB
12507  M01S02639.ns2783  +++| TEMB     HERE
12508  M01S02640.ns2783  +++|          QUAL   *
12509  M01S02641.ns2783  +++|          CON    0           TERMINATE TABLE
12510  M01S02642.ns2783  +++| TEXP     SPACE  4,10
12511  M01S02643.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF PP EXCHANGE PACKAGE.
12512  M01S02644.ns2783  +++|
12513  M01S02645.ns2783  +++|
12514  M01S02646.ns2783  +++| TEXP     BSS    0
12515  M01S02647.ns2783  +++| TEXP     HERE
12516  M01S02648.ns2783  +++|          CON    0           TERMINATE TABLE
12517  M01S02649.ns2783  +++| TFTT     SPACE  4,10
12518  M01S02650.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *FTT*.
12519  M01S02651.ns2783  +++|
12520  M01S02652.ns2783  +++|
12521  M01S02653.ns2783  +++| TFTT     BSS    0
12522  M01S02654.ns2783  +++| TFTT     HERE
12523  M01S02655.ns2783  +++|          CON    0           TERMINATE TABLE
12524  M01S02656.ns2783  +++| TPUT     SPACE  4,10
12525  M01S02657.ns2783  +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *PUT*.
12526  M01S02658.ns2783  +++|
12527  M01S02659.ns2783  +++|
12528  M01S02660.ns2783  +++| TPUT     BSS    0
12529  M01S02661.ns2783  +++| TPUT     HERE
12530  M01S02662.ns2783  +++|          CON    0           TERMINATE TABLE
12531  M01S02663.ns2783  +++|          SPACE  4,10
12532  M01S02664.ns2783  +++|*         CHECK FOR OVERFLOW.
12533  M01S02665.ns2783  +++|
12534  M01S02666.ns2783  +++|
12535  M01S02667.ns2783  +++|          ERRNG  17777-*-5   OVERFLOW PAST END OF PP
12536  M01S02668.ns2783  +++|          SPACE  4,10
12537  M01S02669.ns2783  +++|          TTL    1DA/3DZ - *DAS* DRIVER PRESET (PART 2).
12538  M01S02670.ns2783  +++|          TITLE
12539  M01S02671.ns2783  +++|          IDENT  3DZ,OVLP    *DAS* DRIVER PRESET (PART 2).
12540  M01S02672.ns2783  +++|
12541  M01S02673.ns2783  +++|
12542  M01S02674.ns2783  +++|*COMMENT  1DA - *DAS* DRIVER PRESET (PART 2).
12543  M01S02675.ns2783  +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1995.
12544  M01S02676.ns2783  +++|
12545  M01S02677.ns2783  +++|
12546  M01S02678.ns2783  +++|          ORG    OVLP
12547  M01S02679.ns2783  +++|          QUAL   3DZ
12548  M01S02680.ns2783  +++| BST      SPACE  4,15
12549  M01S02681.ns2783  +++|**        BST - BUILD STATE TABLES AND BML ERROR MESSAGE BUFFER.
12550  M01S02682.ns2783  +++|*
12551  M01S02683.ns2783  +++|*         ENTRY  (CPCH) = CPP NUMBER AND CHANNEL NUMBER.
12552  M01S02684.ns2783  +++|*                (PUTA - PUTA+1) = ADDRESS OF *PUT*.
12553  M01S02685.ns2783  +++|*                (PUTN) = NUMBER OF *PUT* ENTRIES.
12554  M01S02686.ns2783  +++|*
12555  M01S02687.ns2783  +++|*         EXIT   TO *MRS* WHEN PRESET COMPLETE.
12556  M01S02688.ns2783  +++|*                TO *DAS6* IF CHANNEL DOWN.
12557  M01S02689.ns2783  +++|*
12558  M01S02690.ns2783  +++|*         USES   T4.
12559  M01S02691.ns2783  +++|*
12560  M01S02692.ns2783  +++|*         CALLS  CFD, DHE, IST, SMC.
12561  M01S02693.ns2783  +++|
12562  M01S02694.ns2783  +++|
12563  M01S02695.ns2783  +++| BST      SUBR               ENTRY
12564  M01S02696.ns2783  +++|
12565  M01S02697.ns2783  +++|*         NOTE - THE FOLLOWING CALL TO *IST* DESTROYS *PPR* IN THIS PP.
12566  M01S02698.ns2783  +++|*         NO CALLS TO *PPR* MAY BE MADE AFTER THIS POINT.
12567  M01S02699.ns2783  +++|
12568  M01S02700.ns2783  +++|          RJM    IST         INITIALIZE DEVICE/CONTROLLER STATE TABLES
12569  M01S02701.ns2783  +++|          RJM    DHE         DETERMINE HIGHEST EST ORDINAL
12570  M01S02702.ns2783  +++|          RJM    SMC         SET MMF CONSTANTS
12571  M01S02703.ns2783  +++|          RJM    CFD         CLEAR FLAGS AT DEADSTART
12572  M01S00451.283l840 +++|
12573  M01S00452.283l840 +++|*         PRESET BML ERROR MESSAGE BUFFER.
12574  M01S00453.283l840 +++|
12575  M01S00454.283l840 +++|          LDC    EDBF
12576  M01S00455.283l840 +++|          STDL   T4
12577  M01S00456.283l840 +++|          LDN    0
Line S00457 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12578  M02S00457.ns2783  ---| PRS2     STI    T4
12579  M01S02704.ns2783  +++| BST1     STI    T4
12580  M01S00458.283l840 +++|          AODL   T4          ADVANCE BUFFER ADDRESS
12581  M01S00459.283l840 +++|          SHN    0-15
Line S00460 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12582  M02S00460.ns2783  ---|          ZJN    PRS2        IF NOT END OF BUFFER
Line S00461 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12583  M02S00461.ns2783  ---|          LDC    **          (CPP NUMBER AND CHANNEL NUMBER)
Proceed to Part 13
cdc/nos2.source/opl.opl871/deck/1da.012.txt ยท Last modified: by 127.0.0.1