User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1da.009

Deck 1DA Part 009

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
10112  M00S05348.1da     +++|*
10113  M00S05349.1da     +++|*         USES   CM+1 - CM+4.
10114  M00S05350.1da     +++|*
10115  M00S05351.1da     +++|*         CALLS  DCR.
10116  M00S05352.1da     +++|*
10117  M00S05353.1da     +++|*         MACROS MONITOR, CHTE.
10118  M00S05354.1da     +++|
10119  M00S05355.1da     +++|
10120  M00S05356.1da     +++| SRF      SUBR               ENTRY/EXIT
10121  M00S05357.1da     +++|          RJM    DCR         DROP CHANNEL RESERVATION
10122  M00S05358.1da     +++|*         LDN    0
10123  M00S05359.1da     +++|          STD    CM+2        CLEAR UNUSED BYTE
10124  M00S05360.1da     +++|          CHTE   *
10125  M00S05361.1da     +++|          LDC    CTALL*2     ADDRESS OF CHANNEL CONTROLWARE TABLE ENTRY
10126  M00S05362.1da     +++|          STD    CM+4
10127  M00S05363.1da     +++|          SHN    -14
10128  M00S05364.1da     +++|          STD    CM+3
10129  M00S05365.1da     +++|          LDN    1           SET NUMBER OF REQUESTS
10130  M00S05366.1da     +++|          STD    CM+1
10131  M00S05367.1da     +++|          LDD    MA          STORE REQUEST IN MESSAGE BUFFER
10132  M00S05368.1da     +++|          CWM    SRFA,CM+1
10133  M00S05369.1da     +++|          MONITOR  UTEM      SET RELOAD FLAG
10134  M00S05370.1da     +++|*         LDN    0
10135  M00S05371.1da     +++|          UJN    SRFX        RETURN
10136  M00S05372.1da     +++|
Line S00345 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10137  M01S00345.273l780 +++|
10138  M00S05373.1da     +++| SRFA     VFD    1/0,5/0,6/1,6/,42/1
Line S00274 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10139  M01S00274.283l840 +++| SRI      SPACE  4,30
10140  M01S00275.283l840 +++|**        SRI - SET SLAVE RESET INTERLOCK.
10141  M01S00276.283l840 +++|*
10142  M01S00277.283l840 +++|*         IN A MMF ENVIRONMENT, DAS MUST BE CONFIGURED WITH MORE
10143  M01S00278.283l840 +++|*         THAN ONE DRIVER ACCESSING EACH CONTROLLER.  TO PREVENT AN
10144  M01S00279.283l840 +++|*         ENDLESS SEQUENCE OF SLAVE RESETS UNDER SOME ERROR CONDITIONS,
10145  M01S00280.283l840 +++|*         AN EXTENDED MEMORY FLAG REGISTER INTERLOCK IS USED TO ENSURE
10146  M01S00281.283l840 +++|*         THAT ONLY ONE DRIVER TRIES TO PERFORM A SLAVE RESET AT ANY
10147  M01S00282.283l840 +++|*         ONE TIME.  IF *1DA* ATTEMPTS TO SET THIS INTERLOCK AND
10148  M01S00283.283l840 +++|*         DETERMINES THAT IT IS HELD BY ANOTHER DRIVER, IT WILL WAIT
Line S00284 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10149  M02S00284.1da8    ---|*         UNTIL THE INTERLOCK IS CLEAR, AND THEN WILL PERFORM A LOGICAL
10150  M02S00285.1da8    ---|*         RESET RATHER THAN A SLAVE RESET.  THE ERROR COUNT WILL BE
10151  M02S00286.1da8    ---|*         DECREMENTED IN THIS CASE TO ENSURE THAT A SLAVE RESET WILL
10152  M02S00287.1da8    ---|*         BE PERFORMED ON THE NEXT RETRY, SHOULD THE CURRENT RETRY
10153  M02S00288.1da8    ---|*         FAIL.
Line S00508 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10154  M01S00508.1da8    +++|*         UNTIL THE INTERLOCK IS CLEAR, AND THEN CLEAR THE BUFFER COUNT
10155  M01S00509.1da8    +++|*         AND COMPLETE THE CURRENT REQUEST.  THE REQUEST WILL BE
10156  M01S00510.1da8    +++|*         RETRIED ON A SUBSEQUENT PASS THROUGH THE MAIN LOOP.
Line S00289 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10157  M01S00289.283l840 +++|*
10158  M01S00290.283l840 +++|*         ENTRY  (RW) = 0, IF SLAVE RESET.
Line S02280 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10159  M01S02280.ns2783  +++|*                (CRIB) .NE. 0, IF SLAVE RESET INTERLOCK ALREADY SET.
Line S00291 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10160  M01S00291.283l840 +++|*
Line S00292 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10161  M02S00292.1da8    ---|*         EXIT   (RW) = 1, IF ANOTHER SLAVE RESET WAS IN PROGRESS.
10162  M02S00293.1da8    ---|*                (ERCT,DI) DECREMENTED, IF (RW) CHANGED.
10163  M02S00294.1da8    ---|*                INTERLOCK SET, IF FIRST *IFR* CALL SUCCESSFUL.
Line S00511 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10164  M01S00511.1da8    +++|*         EXIT   INTERLOCK SET, IF FIRST *IFR* CALL SUCCESSFUL.
Line S00295 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10165  M02S00295.ns2783  ---|*                (CRIA+1) NONZERO, IF INTERLOCK SET.
Line S00512 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10166  M02S00512.ns2783  ---|*                TO *CMP9*, IF FIRST *IFR* CALL UNSUCCESSFUL.
Line S02281 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10167  M01S02281.ns2783  +++|*                (CRIB) .NE. 0, IF SLAVE RESET INTERLOCK SET.
10168  M01S02282.ns2783  +++|*                TO *CMP10*, IF FIRST *IFR* CALL UNSUCCESSFUL.
Line S00296 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10169  M01S00296.283l840 +++|*
10170  M01S00297.283l840 +++|*         CALLS  IFR.
10171  M01S00298.283l840 +++|*
10172  M01S00299.283l840 +++|*         MACROS DELAY.
10173  M01S00300.283l840 +++|
10174  M01S00301.283l840 +++|
10175  M01S00302.283l840 +++| SRI      SUBR               ENTRY/EXIT
10176  M01S00303.283l840 +++| SRIA     LDD    RW
10177  M01S00304.283l840 +++|*         UJN    SRIX        (NO SHARED BUFFERED DEVICES CONFIGURED)
10178  M01S00305.283l840 +++|          NJN    SRIX        IF NOT SLAVE RESET
10179  M01S00306.283l840 +++|          STM    SRIB        CLEAR *UNSUCCESSFUL IFR CALL* FLAG
Line S02283 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10180  M01S02283.ns2783  +++|          LDM    CRIB
10181  M01S02284.ns2783  +++|          NJN    SRIX        IF SLAVE RESET INTERLOCK ALREADY SET
Line S00307 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10182  M01S00307.283l840 +++| SRI1     LDN    /MMF/DSRI   SET *DAS SLAVE RESET INTERLOCK* FLAG BIT
10183  M01S00308.283l840 +++|          RJM    IFR
10184  M01S00309.283l840 +++|          NJN    SRI3        IF NOT SUCCESSFUL
10185  M01S00310.283l840 +++|          LDC    0
10186  M01S00311.283l840 +++|*         LDC    NONZERO     (AT LEAST ONE UNSUCCESSFUL *IFR* CALL)
10187  M01S00312.283l840 +++| SRIB     EQU    *-1
10188  M01S00313.283l840 +++|          NJN    SRI2        IF NOT SUCCESSFUL ON FIRST TRY
10189  M01S00314.283l840 +++|          LDN    1           SET *SLAVE RESET INTERLOCK SET* FLAG
Line S00315 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10190  M02S00315.ns2783  ---|          STM    CRIA+1
Line S02285 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10191  M01S02285.ns2783  +++|          STM    CRIB
Line S00316 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10192  M01S00316.283l840 +++|          UJN    SRIX        RETURN
10193  M01S00317.283l840 +++|
10194  M01S00318.283l840 +++| SRI2     LCN    /MMF/DSRI   CLEAR *DAS SLAVE RESET INTERLOCK* FLAG BIT
10195  M01S00319.283l840 +++|          RJM    IFR
Line S00320 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10196  M02S00320.1da8    ---|          SOM    ERCT,DI     DECREMENT ERROR COUNT
10197  M02S00321.1da8    ---|          LDN    1           FORCE LOGICAL RATHER THAN SLAVE RESET
10198  M02S00322.1da8    ---|          STD    RW
10199  M02S00323.1da8    ---|          UJN    SRIX        RETURN
Line S00513 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10200  M02S00513.ns2783  ---|          LJM    CMP9        ABANDON REQUEST
Line S02286 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10201  M01S02286.ns2783  +++|          LJM    CMP10       ABANDON REQUEST (RETRY LATER)
Line S00324 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10202  M01S00324.283l840 +++|
10203  M01S00325.283l840 +++| SRI3     STM    SRIB        SET *UNSUCCESSFUL IFR CALL* FLAG
10204  M01S00326.283l840 +++|          DELAY  20B         DELAY TWO MILLISECONDS
10205  M01S00327.283l840 +++|          UJN    SRI1        RETRY INTERLOCK ATTEMPT
10206  M00S05374.1da     +++| SRP      SPACE  4,10
10207  M00S05375.1da     +++|**        SRP - SEARCH RESPONSE PACKET.
10208  M00S05376.1da     +++|*
10209  M00S05377.1da     +++|*         ENTRY  (A) = PARAMETER ID TO SEARCH FOR.
10210  M00S05378.1da     +++|*
10211  M00S05379.1da     +++|*         EXIT   (A) .EQ. 0 IF ID FOUND.
10212  M00S05380.1da     +++|*                (A) .LT. 0 IF ID NOT FOUND.
10213  M00S05381.1da     +++|*                (RPBF+5,T3) .EQ. THE PARAMETER.
10214  M00S05382.1da     +++|*
10215  M00S05383.1da     +++|*         USES   T1 - T3.
10216  M00S05384.1da     +++|
10217  M00S05385.1da     +++|
10218  M00S05386.1da     +++| SRP1     LDML   RPBF+5,T3   EXTRACT PARAMETER BLOCK LENGTH
10219  M00S05387.1da     +++|          SHN    -10-1
10220  M00S05388.1da     +++|          ADN    1           CONVERT OCTET COUNT TO BYTE COUNT
10221  M00S05389.1da     +++|          STD    T0
10222  M00S05390.1da     +++|          RAD    T3          ADVANCE BUFFER INDEX
10223  M00S05391.1da     +++|          LDD    T2
10224  M00S05392.1da     +++|          SBD    T0
10225  M00S05393.1da     +++| SRP2     MJN    SRPX        IF END OF RESPONSE PACKET
10226  M00S05394.1da     +++|          STD    T2
10227  M00S05395.1da     +++|          LDM    RPBF+5,T3   CHECK NEXT PARAMETER BLOCK
10228  M00S05396.1da     +++|          LMD    T1
10229  M00S05397.1da     +++|          LPC    377
10230  M00S05398.1da     +++|          NJN    SRP1        IF NOT REQUESTED ID
10231  M00S05399.1da     +++|
10232  M00S05400.1da     +++| SRP      SUBR               ENTRY/EXIT
10233  M00S05401.1da     +++|          STD    T1
10234  M00S05402.1da     +++|          LDN    0           INITIALIZE INDEX
10235  M00S05403.1da     +++|          STD    T3
10236  M00S05404.1da     +++|          LDM    RPBF+PLN    PACKET LENGTH
10237  M00S05405.1da     +++|          ADN    1
10238  M00S05406.1da     +++|          SHN    -1          CONVERT TO PP WORD COUNT
10239  M00S05407.1da     +++|          SBN    5
10240  M00S05408.1da     +++|          UJN    SRP2        CHECK MINIMUM PACKET LENGTH
Line S05409 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10241  M01S05409.283l840 ---| SSS      SPACE 4,10
Line S00328 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10242  M01S00328.283l840 +++| SSS      SPACE 4,15
10243  M00S05410.1da     +++|**        SSS - SET SUSPECT STATE ON DEVICE.
10244  M00S05411.1da     +++|*
Line S00346 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10245  M01S00346.273l780 +++|*         THIS ROUTINE ALSO SAVES THE FAILING DRIVE IN WORD *PILL*
10246  M01S00347.273l780 +++|*         SO THAT THE ALTERNATE CHANNEL DRIVER CAN INCLUDE THE CORRECT
10247  M01S00348.273l780 +++|*         UNIT NUMBER IN THE BML MESSAGE IF THE ERROR IS RECOVERED.
10248  M01S00349.273l780 +++|*
10249  M00S05412.1da     +++|*         ENTRY  (EO) = EST ORDINAL.
10250  M00S05413.1da     +++|*
Line S05414 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10251  M01S05414.273l780 ---|*         USES   CM+1 - CM+3, CW - CW+4.
Line S00350 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10252  M02S00350.ns2783  ---|*         USES   T6, T7, CM+1 - CM+3, CW - CW+4.
Line S02287 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10253  M01S02287.ns2783  +++|*         USES   T6, T7, CM+1 - CM+4.
10254  M00S05415.1da     +++|*
Line S05416 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10255  M01S05416.273l780 ---|*         MACROS SFA, MONITOR.
Line S00351 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10256  M02S00351.ns2783  ---|*         MACROS MONITOR, PUTE, SFA.
Line S02288 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10257  M01S02288.ns2783  +++|*         CALLS  REE.
10258  M01S02289.ns2783  +++|*
10259  M01S02290.ns2783  +++|*         MACROS MONITOR, PUTE.
10260  M00S05417.1da     +++|
10261  M00S05418.1da     +++|
10262  M00S05419.1da     +++| SSS      SUBR               ENTRY/EXIT
Line S02291 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10263  M01S02291.ns2783  +++|          RJM    REE         READ EST ENTRY
10264  M01S02292.ns2783  +++|          LDD    CM          CHECK DEVICE STATUS
10265  M01S02293.ns2783  +++|          LPN    2
10266  M01S02294.ns2783  +++|          NJN    SSSX        IF DEVICE *OFF* OR *DOWN*
10267  M00S05420.1da     +++|          LDD    EO
10268  M00S05421.1da     +++|          STD    CM+1        SET EST ORDINAL
Line S05422 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10269  M01S05422.ns2783  ---|          SFA    EST
10270  M01S05423.ns2783  ---|          ADK    EQDE        FETCH *EQDE* WORD OF EST ENTRY
10271  M01S05424.ns2783  ---|          CRD    CW
10272  M01S05425.ns2783  ---|          LDD    CW          CHECK DEVICE STATUS
10273  M01S05426.ns2783  ---|          LPN    2
10274  M01S05427.ns2783  ---|          NJN    SSSX        IF DEVICE *OFF* OR *DOWN*
10275  M00S05428.1da     +++|          LDD    IR+4
10276  M00S05429.1da     +++|          STD    CM+3        INSERT CHANNEL NUMBER
10277  M00S05430.1da     +++|          LDN    SSES
10278  M00S05431.1da     +++|          STD    CM+2        SET SUSPECT STATE ON DEVICE
10279  M00S05432.1da     +++|          MONITOR  SEQM
Line S05433 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10280  M01S05433.273l780 ---|          UJN    SSSX        RETURN
Line S00352 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10281  M01S00352.273l780 +++|
10282  M01S00353.273l780 +++|*         SAVE FAILING DRIVE IN WORD *PILL* FOR THE ALTERNATE CHANNEL.
10283  M01S00354.273l780 +++|
10284  M01S00355.273l780 +++|          LDC    PILL*100+6
10285  M01S00356.273l780 +++|          STD    T6          6/WORD, 6/BITS TO CHANGE
10286  M01S00357.273l780 +++|          LDC    52*100
10287  M01S00358.273l780 +++|          STD    T7          LOW ORDER BIT TO CHANGE
10288  M01S00359.273l780 +++|          LDM    PHYD,DI
10289  M01S00360.273l780 +++|          STD    CM+2        NEW VALUE
10290  M01S00361.273l780 +++|          LDD    MA
10291  M01S00362.273l780 +++|          CWD    T6          STORE MESSAGE BUFFER PARAMETERS
10292  M01S00363.273l780 +++|          LDN    1
10293  M01S00364.273l780 +++|          STD    CM+1        PARAMETER WORD COUNT
10294  M01S00365.273l780 +++|          LDI    DI
Line S02295 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10295  M01S02295.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
Line S00366 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10296  M01S00366.273l780 +++|          SHN    PUTLS
10297  M01S00367.273l780 +++|          PUTE   *
10298  M01S00368.273l780 +++|          ADC    0           SET BASE *PUT* ENTRY ADDRESS
10299  M01S00369.273l780 +++|          STD    CM+4
10300  M01S00370.273l780 +++|          SHN    -14
10301  M01S00371.273l780 +++|          STD    CM+3
10302  M01S00372.273l780 +++|          MONITOR  UTEM      SAVE FAILING DRIVE IN *PUT*
10303  M01S00373.273l780 +++|          UJP    SSSX        RETURN
10304  M00S05434.1da     +++| STF      SPACE  4,15
10305  M00S05435.1da     +++|**        STF - REQUEST TRACK FLAW.
10306  M00S05436.1da     +++|*
10307  M00S05437.1da     +++|*         ENTRY  (CB) = CURRENT *CBT* ORDINAL.
10308  M00S05438.1da     +++|*                (EO) = EST ORDINAL.
10309  M00S05439.1da     +++|*                (T4) = CYLINDER NUMBER.
10310  M00S05440.1da     +++|*                (T5) = PHYSICAL TRACK.
10311  M00S05441.1da     +++|*                (T7) = LOGICAL SECTOR WITHIN PHYSICAL TRACK.
10312  M00S05442.1da     +++|*
Line S05443 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10313  M01S05443.284l847 ---|*         USES   CM+1 - CM+3.
Line S00566 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10314  M01S00566.284l847 +++|*         USES   T4, CM - CM+4.
10315  M00S05444.1da     +++|*
Line S05445 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10316  M01S05445.ns2783  ---|*         CALLS  CDA, C2D, IDM.
Line S02296 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10317  M01S02296.ns2783  +++|*         CALLS  CDA, C2D, IDM, REE.
10318  M00S05446.1da     +++|*
10319  M00S05447.1da     +++|*         MACROS MONITOR.
10320  M00S05448.1da     +++|
10321  M00S05449.1da     +++|
10322  M00S05450.1da     +++| STF      SUBR               ENTRY/EXIT
Line S00567 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10323  M02S00567.ns2783  ---|          SFA    EST,EO      GET MST ADDRESS
10324  M02S00568.ns2783  ---|          ADK    EQDE
10325  M02S00569.ns2783  ---|          CRD    CM
Line S02297 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10326  M01S02297.ns2783  +++|          RJM    REE         READ EST ENTRY
Line S00570 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10327  M01S00570.284l847 +++|          LDD    CM+4        GET PARTITION CYLINDER OFFSET
10328  M01S00571.284l847 +++|          SHN    3
10329  M01S00572.284l847 +++|          ADK    SCYL
10330  M01S00573.284l847 +++|          CRD    CM
10331  M01S00574.284l847 +++|          LDD    T4          CONVERT ABSOLUTE TO RELATIVE CYLINDER
10332  M01S00575.284l847 +++|          SBD    CM+2
10333  M01S00576.284l847 +++|          STD    T4
Line S02298 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10334  M01S02298.ns2783  +++|          RJM    CDA         CONVERT DISK ADDRESS
10335  M01S02299.ns2783  +++|          LDD    T6
10336  M01S02300.ns2783  +++|          STD    CM+2        TRACK NUMBER FOR MONITOR REQUEST
10337  M01S02301.ns2783  +++|          RJM    C2D         SET TRACK NUMBER IN MESSAGE
10338  M01S02302.ns2783  +++|          STM    STFB+5
10339  M01S02303.ns2783  +++|          LDD    T6
10340  M01S02304.ns2783  +++|          SHN    -6
10341  M01S02305.ns2783  +++|          RJM    C2D         SET TRACK NUMBER IN MESSAGE
10342  M01S02306.ns2783  +++|          STM    STFB+4
10343  M00S05451.1da     +++|          LDD    EO
10344  M00S05452.1da     +++|          SHN    -3          CONVERT EST ORDINAL
10345  M00S05453.1da     +++|          RJM    C2D
10346  M00S05454.1da     +++|          STM    STFB+1      SET ORDINAL IN MESSAGE
10347  M00S05455.1da     +++|          LDD    EO
10348  M00S05456.1da     +++|          STD    CM+1
10349  M00S05457.1da     +++|          LPN    7
10350  M00S05458.1da     +++|          SHN    6           CONVERT LOW ORDER DIGIT
10351  M00S05459.1da     +++|          ADC    2R0,
10352  M00S05460.1da     +++|          STM    STFB+2
Line S05461 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10353  M01S05461.ns2783  ---|          RJM    CDA         CONVERT DISK ADDRESS
10354  M01S05462.ns2783  ---|          LDD    T6
10355  M01S05463.ns2783  ---|          STD    CM+2        TRACK NUMBER FOR MONITOR REQUEST
10356  M01S05464.ns2783  ---|          RJM    C2D         SET TRACK NUMBER IN MESSAGE
10357  M01S05465.ns2783  ---|          STM    STFB+5
10358  M01S05466.ns2783  ---|          LDD    CM+2
10359  M01S05467.ns2783  ---|          SHN    -6
10360  M01S05468.ns2783  ---|          RJM    C2D         SET TRACK NUMBER IN MESSAGE
10361  M01S05469.ns2783  ---|          STM    STFB+4
10362  M00S05470.1da     +++|          LDK    SFTS        INSERT SUBFUNCTION
10363  M00S05471.1da     +++|          STD    CM+3
10364  M00S05472.1da     +++|          MONITOR  SMDM      SET TRACK FLAW REQUEST IN MST
10365  M00S05473.1da     +++|          LDD    CM+1
10366  M00S05474.1da     +++|          NJN    STF1        IF THIS FLAW ALREADY REQUESTED
10367  M00S05475.1da     +++|          LDC    STFA
10368  M00S05476.1da     +++|          STML   MAD1        ISSUE ERROR LOG MESSAGE
10369  M00S05477.1da     +++|          RJM    IDM
10370  M00S05478.1da     +++| STF1     LJM    STFX        RETURN
Line S00374 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10371  M01S00374.273l780 +++|
10372  M00S05479.1da     +++|
10373  M00S05480.1da     +++| STFA     VFD    24/0        RESERVED
10374  M00S05481.1da     +++|          VFD    12/1        ERRLOG ALERT FLAG
10375  M00S05482.1da     +++|          VFD    12/STFAL    MESSAGE LENGTH
10376  M00S05483.1da     +++|          VFD    12/ELDY     ERRLOG DAYFILE
10377  M00S05484.1da     +++|
10378  M00S05485.1da     +++| STFB     DATA   C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
10379  M00S05486.1da     +++|
10380  M00S05487.1da     +++| .1       SET    *-STFA+4
10381  M00S05488.1da     +++| STFAL    EQU    .1/5
10382  M00S05489.1da     +++| STO      SPACE  4,10
10383  M00S05490.1da     +++|**        STO - SET TIMEOUT.
10384  M00S05491.1da     +++|*
10385  M00S05492.1da     +++|*         ENTRY  (A) = TIMEOUT VALUE (IN SECONDS).
10386  M00S05493.1da     +++|*
Line S05494 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10387  M01S05494.1da8    ---|*         USES   CM - CM+4, T5 - T7.
10388  M01S05495.1da8    ---|*
10389  M01S05496.1da8    ---|*         MACROS FTTE.
Line S00514 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10390  M02S00514.ns2783  ---|*         USES   T6, CM - CM+4.
Line S02307 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10391  M01S02307.ns2783  +++|*         USES   CM - CM+4, T5 - T7.
10392  M01S02308.ns2783  +++|*
10393  M01S02309.ns2783  +++|*         MACROS FTTE.
10394  M00S05497.1da     +++|
10395  M00S05498.1da     +++|
10396  M00S05499.1da     +++| STO      SUBR               ENTRY/EXIT
10397  M00S05500.1da     +++|          STD    T6
10398  M00S05501.1da     +++|          LDC    RTCL        FETCH CURRENT TIME
10399  M00S05502.1da     +++|          CRD    CM
10400  M00S05503.1da     +++|          LDD    T6
Line S05504 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10401  M01S05504.1da8    ---|          RAD    CM+1        SET TIME LIMIT
Line S00515 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10402  M02S00515.ns2783  ---|          ADD    CM+1        SET TIME LIMIT
10403  M02S00516.ns2783  ---|          STM    FTOC+1,DI
Line S02310 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10404  M01S02310.ns2783  +++|          RAD    CM+1        SET TIME LIMIT
10405  M00S05505.1da     +++|          SHN    -14
Line S05506 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10406  M01S05506.1da8    ---|          RAD    CM
10407  M01S05507.1da8    ---|          LDM    STO         SET CALLERS ADDRESS
10408  M01S05508.1da8    ---|          STD    T7
10409  M01S05509.1da8    ---|          LDN    0
10410  M01S05510.1da8    ---|          STD    T5
10411  M01S05511.1da8    ---|          LDI    DI
10412  M01S05512.1da8    ---|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
10413  M01S05513.1da8    ---|          SHK    FTTLS
10414  M01S05514.1da8    ---|          FTTE   *
10415  M01S05515.1da8    ---|          ADC    0           STORE *FTT* ENTRY
10416  M01S05516.1da8    ---|          CWD    T5
Line S00517 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10417  M02S00517.ns2783  ---|          ADD    CM
10418  M02S00518.ns2783  ---|          STM    FTOC,DI
Line S02311 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10419  M01S02311.ns2783  +++|          RAD    CM
10420  M01S02312.ns2783  +++|          LDM    STO         SET CALLERS ADDRESS
10421  M01S02313.ns2783  +++|          STD    T7
10422  M01S02314.ns2783  +++|          LDN    0
10423  M01S02315.ns2783  +++|          STD    T5
10424  M01S02316.ns2783  +++|          LDI    DI
10425  M01S02317.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
10426  M01S02318.ns2783  +++|          SHK    FTTLS
10427  M01S02319.ns2783  +++|          FTTE   *
10428  M01S02320.ns2783  +++|          ADC    0           STORE *FTT* ENTRY
10429  M01S02321.ns2783  +++|          CWD    T5
10430  M00S05517.1da     +++|          UJN    STOX        RETURN
10431  M00S05518.1da     +++| SUA      SPACE  4,10
10432  M00S05519.1da     +++|**        SUA - SET UEM ADDRESS.
10433  M00S05520.1da     +++|*
10434  M00S05521.1da     +++|*         ENTRY  (A) = *CBT* ORDINAL.
10435  M00S05522.1da     +++|*
10436  M00S05523.1da     +++|*         EXIT   (UA - UA+1) = UEM ADDRESS / 100.
10437  M00S05524.1da     +++|*
10438  M00S05525.1da     +++|*         USES   UA, UA+1, CM - CM+4.
10439  M00S05526.1da     +++|*
10440  M00S05527.1da     +++|*         MACROS CBTE.
10441  M00S05528.1da     +++|
10442  M00S05529.1da     +++|
10443  M00S05530.1da     +++| SUA      SUBR               ENTRY/EXIT
10444  M00S05531.1da     +++|          SHN    CBTLS
10445  M00S05532.1da     +++|          CBTE   *
10446  M00S05533.1da     +++|          ADC    IOLK        READ *CBT* ENTRY
10447  M00S05534.1da     +++|          CRD    CM
10448  M00S05535.1da     +++|          LDD    CM+4        EXTRACT RELATIVE UEM ADDRESS
10449  M00S05536.1da     +++|          ADC    0
10450  M00S05537.1da     +++| SUAA     EQU    *-1
10451  M00S05538.1da     +++|          SHN    -6
10452  M00S05539.1da     +++|          STD    UA+1        SET ABSOLUTE ADDRESS / 100
10453  M00S05540.1da     +++|          LDD    CM+3
10454  M00S05541.1da     +++|          ADC    0
10455  M00S05542.1da     +++| SUAB     EQU    *-1
10456  M00S05543.1da     +++|          SHN    6
10457  M00S05544.1da     +++|          RAD    UA+1
10458  M00S05545.1da     +++|          SHN    -14
10459  M00S05546.1da     +++|          STD    UA
10460  M00S05547.1da     +++|          UJN    SUAX        RETURN
10461  M00S05548.1da     +++| SUD      SPACE  4,10
10462  M00S05549.1da     +++|**        SUD - SPIN UP DRIVE.
10463  M00S05550.1da     +++|*
Line S05551 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10464  M01S05551.ns2783  ---|*         ENTRY  (A) = PHYSICAL DRIVE TO SPIN UP.
Line S02322 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10465  M01S02322.ns2783  +++|*         ENTRY  (OUPD,DI) = PHYSICAL DRIVE TO SPIN UP.
Line S05552 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10466  M01S05552.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00519 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10467  M01S00519.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
Line S00329 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
10468  M01S00329.283l840 +++|*                (EO) = EST ORDINAL.
10469  M00S05553.1da     +++|*
10470  M00S05554.1da     +++|*         EXIT   (A) = 0 IF COMMAND SUCCESSFUL.
Line S02323 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10471  M01S02323.ns2783  +++|*                (PHYD,DI) = PHYSICAL DRIVE.
10472  M00S05555.1da     +++|*
Line S05556 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10473  M01S05556.273l780 ---|*         CALLS  ATT, SOU, WCB.
Line S00375 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10474  M02S00375.ns2783  ---|*         USES   CM+2, T7.
10475  M02S00376.ns2783  ---|*
Line S00377 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2767
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10476  M03S00377.ns2783  ---|*         CALLS  ATT, RDO, SOU, UBP, WCB.
Line S00075 Modification History
M01 (Added by) ns2767
M02 (Removed by) 283l840
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10477  M03S00075.ns2783  ---|*         CALLS  ATT, IEM, RDO, SOU, UBP, WCB.
Line S00330 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da7
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10478  M03S00330.ns2783  ---|*         CALLS  ATT, CBD, IEM, RDO, SOU, UBP, WCB.
Line S00225 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10479  M02S00225.ns2783  ---|*         CALLS  ATT, CBD, IEE, IEM, LNU, RDO, SOU, UBP, WCB.
Line S00331 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10480  M02S00331.ns2783  ---|*
10481  M02S00332.ns2783  ---|*         MACROS SMSTF.
Line S02324 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10482  M01S02324.ns2783  +++|*         CALLS  ATT, SOU, WCB.
10483  M00S05557.1da     +++|
10484  M00S05558.1da     +++|
10485  M00S05559.1da     +++| SUD      SUBR               ENTRY/EXIT
Line S05560 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10486  M01S05560.ns2783  ---|          STM    PHYD,DI     PHYSICAL DRIVE
10487  M01S05561.ns2783  ---|          STM    RDRV,DI     DRIVE TO RESTORE
Line S02325 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10488  M01S02325.ns2783  +++|          LDM    OUPD,DI     SET PHYSICAL DRIVE TO SPIN UP
10489  M01S02326.ns2783  +++|          STM    PHYD,DI
10490  M00S05562.1da     +++|          SHN    10
10491  M00S05563.1da     +++|          STML   CPBF+FCP+1  DRIVE TO SPIN UP
Line S00226 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10492  M02S00226.ns2783  ---|          LDN    0
10493  M02S00227.ns2783  ---| SUD0     RJM    LNU         SEARCH FOR LINKED PARTITION USING (EO)
10494  M02S00228.ns2783  ---|          ZJN    SUD1        IF NO MORE PARTITIONS ON THIS *PUT*
Line S00378 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10495  M02S00378.ns2783  ---|          RJM    RDO         REPORT DRIVE OFF-LINE
Line S00076 Modification History
M01 (Added by) ns2767
M02 (Removed by) 1da8
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10496  M03S00076.ns2783  ---|          LDC    IEMC        *EQXXX, UXX, PARITY RESTORE INITIATED.*
Line S00520 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10497  M02S00520.ns2783  ---|          LDC    ERRI        *EQXXX, UXX, PARITY RESTORE INITIATED.*
Line S00077 Modification History
M01 (Added by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10498  M02S00077.ns2783  ---|          RJM    IEM         ISSUE ERROR LOG MESSAGE
Line S00379 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10499  M02S00379.ns2783  ---|          LDN    1           NEW VALUE INDICATES RESTORE IN PROGRESS
10500  M02S00380.ns2783  ---|          STD    CM+2
10501  M02S00381.ns2783  ---|          LDC    64*100      LOW ORDER BIT TO CHANGE TIMES 100
10502  M02S00382.ns2783  ---|          STD    T7
10503  M02S00383.ns2783  ---|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
10504  M02S00384.ns2783  ---|          RJM    UBP         UPDATE *BDLL* PARAMETER
Line S05564 Modification History
M01 (Removed by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10505  M02S05564.ns2783  ---|          LDC    P02D5
Line S00333 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10506  M02S00333.ns2783  ---|          RJM    CBD         CHECK IF BST/BAT PROCESSING DISABLED
Line S00334 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da7
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10507  M03S00334.ns2783  ---|          NJN    SUD1        IF BST/BAT PROCESSING DISABLED
Line S00229 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10508  M02S00229.ns2783  ---|          NJN    SUD0.1      IF BST/BAT PROCESSING DISABLED
Line S00335 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10509  M02S00335.ns2783  ---|          SMSTF  GDUR        SET *RESTORE IN PROGRESS* IN *ACGL*
Line S00336 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da7
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10510  M03S00336.ns2783  ---| SUD1     LDC    P02D5
Line S00230 Modification History
M01 (Added by) 1da7
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10511  M02S00230.ns2783  ---| SUD0.1   LDD    EO
10512  M02S00231.ns2783  ---|          UJN    SUD0        PROCESS NEXT PARTITION
10513  M02S00232.ns2783  ---|
10514  M02S00233.ns2783  ---| SUD1     RJM    IEE         ISSUE E,E EVENT
Line S00234 Modification History
M01 (Added by) 1da7
Seq #  *Modification Id* Act 
----------------------------+
10515  M01S00234.1da7    +++|          LDC    P02D5
10516  M00S05565.1da     +++|          STML   CPBF+FCP    PHYSICAL DRIVE PARAMETER
10517  M00S05566.1da     +++|          LDC    C0301       REPORT CONDITION OPERATION CODE
10518  M00S05567.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
10519  M00S05568.1da     +++|          LDN    12          COMMAND PACKET LENGTH
10520  M00S05569.1da     +++|          RJM    WCB         WRITE COMMAND BLOCK
10521  M00S05570.1da     +++|          LDN    CMSS
10522  M00S05571.1da     +++|          RJM    ATT         PROCESS ATTENTION
Line S05572 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10523  M01S05572.273l780 ---|          NJN    SUDX        IF ERROR
Line S00385 Modification History
M01 (Added by) 273l780
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10524  M02S00385.284l847 ---|          NJP    SUDX        IF ERROR
Line S00577 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10525  M01S00577.284l847 +++|          NJP    SUD2        IF ERROR
10526  M00S05573.1da     +++|          LDML   RPBF+6
10527  M00S05574.1da     +++|          SHN    21-7
Line S05575 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10528  M01S05575.284l847 ---|          MJP    SUDX        IF DRIVE NOT OPERATIONAL
Line S00578 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10529  M01S00578.284l847 +++|          MJN    SUD2        IF DRIVE NOT OPERATIONAL
10530  M00S05576.1da     +++|          LDC    C0700       SET OPERATING MODE OPERATION CODE
10531  M00S05577.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
10532  M00S05578.1da     +++|          LDC    P02D5
10533  M00S05579.1da     +++|          STML   CPBF+FCP    PHYSICAL DRIVE PARAMETER
Line S05580 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10534  M01S05580.ns2783  ---|          LDM    RDRV,DI     PHYSICAL DRIVE
Line S02327 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10535  M01S02327.ns2783  +++|          LDM    OUPD,DI     PHYSICAL DRIVE
10536  M00S05581.1da     +++|          SHN    10
10537  M00S05582.1da     +++|          STML   CPBF+FCP+1  DRIVE TO SPIN UP
10538  M00S05583.1da     +++|          LDC    P0351
10539  M00S05584.1da     +++|          STML   CPBF+FCP+2
10540  M00S05585.1da     +++|          LDC    0#8000
10541  M00S05586.1da     +++|          STML   CPBF+FCP+3  PARAMETER TO SELECT SPIN UP
10542  M00S05587.1da     +++|          LDN    16          COMMAND PACKET LENGTH
10543  M00S05588.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
10544  M00S05589.1da     +++|          LDN    CMSS
10545  M00S05590.1da     +++|          RJM    ATT         PROCESS ATTENTION
Line S05591 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10546  M01S05591.284l847 ---|          UJP    SUDX        RETURN
Line S00579 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10547  M01S00579.284l847 +++| SUD2     UJP    SUDX        RETURN
10548  M00S05592.1da     +++| SUI      SPACE  4,15
10549  M00S05593.1da     +++|**        SUI - SET UNIT INTERLOCK.
10550  M00S05594.1da     +++|*
Line S05595 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10551  M01S05595.1da8    ---|*         ENTRY  (DI) = DEVICE STATUS BLOCK INDEX.
Line S00521 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10552  M01S00521.1da8    +++|*         ENTRY  (DI) = DEVICE STATE TABLE ADDRESS.
10553  M00S05596.1da     +++|*
10554  M00S05597.1da     +++|*         EXIT   (A) = 0 IF *PUT* ENTRY INTERLOCKED.
10555  M00S05598.1da     +++|*                (UC) = UNIT ACTIVITY COUNT INCREMENTED.
10556  M00S05599.1da     +++|*                (CM+1) = *BIOM* STATUS.
10557  M00S05600.1da     +++|*
Line S05601 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10558  M01S05601.ns2783  ---|*         USES   CM+1, CM+2.
Line S02328 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10559  M01S02328.ns2783  +++|*         USES   CM+1, CM+2, UC.
10560  M00S05602.1da     +++|*
10561  M00S05603.1da     +++|*         MACROS MONITOR.
10562  M00S05604.1da     +++|
10563  M00S05605.1da     +++|
Line S05606 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10564  M01S05606.ns2783  ---| SUI1     AOD    UC          ADVANCE UNIT ASSIGNED COUNT
10565  M01S05607.ns2783  ---|          LDC    4000
10566  M01S05608.ns2783  ---| SUI2     STM    RQLN,DI     SET UNIT INTERLOCKED
10567  M01S05609.ns2783  ---|          LDN    0
10568  M01S05610.ns2783  ---|
10569  M00S05611.1da     +++| SUI      SUBR               ENTRY/EXIT
Line S05612 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10570  M01S05612.ns2783  ---|          LDM    RQLN,DI
Line S05613 Modification History
M01 (Removed by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10571  M02S05613.ns2783  ---|          SCN    77
Line S00522 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10572  M02S00522.ns2783  ---|          LPC    4000
Line S05614 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10573  M01S05614.ns2783  ---|          NJN    SUI2        IF UNIT ALREADY INTERLOCKED
10574  M00S05615.1da     +++|          LDI    DI          SET *PUT* ORDINAL
10575  M00S05616.1da     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
10576  M00S05617.1da     +++|          STD    CM+2
10577  M00S05618.1da     +++|          LDN    SUIS        SET SUBFUNCTION
10578  M00S05619.1da     +++|          STD    CM+1
10579  M00S05620.1da     +++|          MONITOR  BIOM      INTERLOCK DEVICE
10580  M00S05621.1da     +++|          LDD    CM+1
Line S05622 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10581  M01S05622.ns2783  ---|          ZJN    SUI1        IF INTERLOCK ACQUIRED
Line S02329 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10582  M01S02329.ns2783  +++|          NJN    SUIX        IF INTERLOCK NOT ACQUIRED
10583  M01S02330.ns2783  +++|          AOD    UC          ADVANCE UNIT ASSIGNED COUNT
10584  M01S02331.ns2783  +++|          LDC    4000
10585  M01S02332.ns2783  +++|          STM    RQLN,DI     SET UNIT INTERLOCKED
10586  M01S02333.ns2783  +++|          LDN    0
10587  M00S05623.1da     +++|          UJN    SUIX        RETURN
10588  M00S05624.1da     +++| TMSE     SPACE  4,10
10589  M00S05625.1da     +++|**        TMSE - TABLE OF MASS STORAGE ERROR CODES.
10590  M00S05626.1da     +++|*
10591  M00S05627.1da     +++|*         INDEXED BY FAULT CODE / 4.
10592  M00S05628.1da     +++|
10593  M00S05629.1da     +++|
10594  M00S05630.1da     +++| TMSE     BSS    0
10595  M00S05631.1da     +++|          LOC    0
10596  M00S05632.1da     +++|
10597  M00S05633.1da     +++|          CON    CHPE        CHANNEL PARITY
10598  M00S05634.1da     +++|          CON    CHFE        CHANNEL FAILURE
10599  M00S05635.1da     +++|          CON    FTOE        FUNCTION TIMEOUT
10600  M00S05636.1da     +++|          CON    PARE        DATA PARITY (MEDIA)
10601  M00S05637.1da     +++|          CON    NRDE        DEVICE NOT READY
10602  M00S05638.1da     +++|          CON    IDTE        DATA TRANSFER
10603  M00S05639.1da     +++|          CON    DSTE        DEVICE STATUS
10604  M00S05640.1da     +++|          CON    DSTE        DEVICE STATUS
10605  M00S05641.1da     +++|          CON    DSTE        DEVICE STATUS
10606  M00S05642.1da     +++|          CON    DSTE        DEVICE STATUS
10607  M00S05643.1da     +++|          CON    DSTE        DEVICE STATUS
10608  M00S05644.1da     +++|          CON    DDFE        DIAGNOSTIC FAILURE
10609  M00S05645.1da     +++|          CON    RAME        CONTROLLER MEMORY
10610  M00S05646.1da     +++|          CON    RAME        CONTROLLER MEMORY
10611  M00S05647.1da     +++|          CON    DRVE        DRIVE RESERVE
10612  M00S05648.1da     +++|          CON    RAME        CONTROLLER MEMORY
10613  M00S05649.1da     +++|          CON    DSTE        DEVICE STATUS
10614  M00S05650.1da     +++|          LOC    *O
10615  M00S05651.1da     +++| TMSK     SPACE  4,10
10616  M00S05652.1da     +++|**        TMSK - TABLE OF CONTROLLER MASKS.
10617  M00S05653.1da     +++|*
10618  M00S05654.1da     +++|*         INDEXED BY CONTROLLER NUMBER.
10619  M00S05655.1da     +++|          SPACE  2
10620  M00S05656.1da     +++| TMSK     BSS    0
10621  M00S05657.1da     +++|          LOC    0
10622  M00S05658.1da     +++|
10623  M00S05659.1da     +++|          CON    001
10624  M00S05660.1da     +++|          CON    002
10625  M00S05661.1da     +++|          CON    004
10626  M00S05662.1da     +++|          CON    010
10627  M00S05663.1da     +++|          CON    020
10628  M00S05664.1da     +++|          CON    040
10629  M00S05665.1da     +++|          CON    100
10630  M00S05666.1da     +++|          CON    200
10631  M00S05667.1da     +++|          LOC    *O
Line S05668 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10632  M01S05668.1da8    ---| TRB      SPACE  4,25
Line S05669 Modification History
M01 (Removed by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10633  M02S05669.1da8    ---|          IFEQ   TE,1        IF SAVING COMMANDS/RESPONSES
Line S00337 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10634  M02S00337.1da8    ---| TRACE$   IFEQ   TE,1        IF SAVING COMMANDS/RESPONSES
Line S05670 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10635  M01S05670.1da8    ---|**        TRB - TRACE BUFFER.
10636  M01S05671.1da8    ---|*
10637  M01S05672.1da8    ---|*         ENTRY  A = 0 IF COMMAND.
10638  M01S05673.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
10639  M01S05674.1da8    ---|*
10640  M01S05675.1da8    ---|*         EXIT - 8 WORDS PER TRACE AS FOLLOWS.
10641  M01S05676.1da8    ---|*                IF PP 5
10642  M01S05677.1da8    ---|*                 THE BUFFER STARTS AT BYTE ADDRESS 2000000(16) IN CM
10643  M01S05678.1da8    ---|*                 THE BUFFER STARTS AT WORD ADDRESS 20000000(8) IN CM
10644  M01S05679.1da8    ---|*                IF NOT PP 5
10645  M01S05680.1da8    ---|*                 THE BUFFER STARTS AT BYTE ADDRESS 4000000(16) IN CM
10646  M01S05681.1da8    ---|*                 THE BUFFER STARTS AT WORD ADDRESS 40000000(8) IN CM
10647  M01S05682.1da8    ---|*
10648  M01S05683.1da8    ---|*            COMMAND         RESPONSE
10649  M01S05684.1da8    ---|*         ----------------------------
10650  M01S05685.1da8    ---|*         0  0000            FFFF
10651  M01S05686.1da8    ---|*         1  CYLN,DI         RPBF+MST
10652  M01S05687.1da8    ---|*         2  TRSN,DI         TRSN,DI
10653  M01S05688.1da8    ---|*         3  CB              IPPS,DI
10654  M01S05689.1da8    ---|*         4  OP CODE         OP CODE
Line S05690 Modification History
M01 (Removed by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10655  M02S05690.1da8    ---|*         5  CBCT,DI         CBCT,DI
Line S00580 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10656  M02S00580.1da8    ---|*         5  CSCT,DI         CSCT,DI
Line S05691 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10657  M01S05691.1da8    ---|*         6  RQLN,DI         RQLN,DI
10658  M01S05692.1da8    ---|*         7  CRN             CRN
10659  M01S05693.1da8    ---|*
10660  M01S05694.1da8    ---|*         NOTE - THIS CODE IS ONLY FOR CHECKOUT.
10661  M01S05695.1da8    ---|
10662  M01S05696.1da8    ---|
10663  M01S05697.1da8    ---| TRB      SUBR               ENTRY/EXIT
10664  M01S05698.1da8    ---|          STML   TRBB
10665  M01S05699.1da8    ---|          NJN    TRB1        IF NOT COMMAND
10666  M01S05700.1da8    ---|          LDML   CYLN,DI
10667  M01S05701.1da8    ---|          STML   TRBB+1
10668  M01S05702.1da8    ---|          LDML   TKSN,DI
10669  M01S05703.1da8    ---|          STML   TRBB+2
10670  M01S05704.1da8    ---|          LDD    CB
10671  M01S05705.1da8    ---|          STML   TRBB+3
10672  M01S05706.1da8    ---|          LDML   CPBF+OPC
10673  M01S05707.1da8    ---|          STML   TRBB+4
10674  M01S05708.1da8    ---|          LDML   CPBF+CRN
Line S05709 Modification History
M01 (Removed by) 273l780
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10675  M02S05709.1da8    ---|          UJP    TRB2        GO SAVE COMMAND REFERENCE NUMBER
Line S00386 Modification History
M01 (Added by) 273l780
M02 (Removed by) 284l847
M03 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10676  M03S00386.1da8    ---|          UJP    TRB2        SAVE COMMAND REFERENCE NUMBER
Line S00581 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10677  M02S00581.1da8    ---|          UJN    TRB2        SAVE COMMAND REFERENCE NUMBER
Line S05710 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10678  M01S05710.1da8    ---|
10679  M01S05711.1da8    ---| TRB1     LDML   RPBF+MST
10680  M01S05712.1da8    ---|          STML   TRBB+1
10681  M01S05713.1da8    ---|          LDML   TKSN,DI
10682  M01S05714.1da8    ---|          STML   TRBB+2
10683  M01S05715.1da8    ---|          LDML   IPPS,DI
10684  M01S05716.1da8    ---|          STML   TRBB+3
10685  M01S05717.1da8    ---|          LDML   RPBF+OPC
10686  M01S05718.1da8    ---|          STML   TRBB+4
10687  M01S05719.1da8    ---|          LDML   RPBF+CRN
10688  M01S05720.1da8    ---| TRB2     STML   TRBB+7
Line S05721 Modification History
M01 (Removed by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10689  M02S05721.1da8    ---|          LDML   CBCT,DI
Line S00582 Modification History
M01 (Added by) 284l847
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10690  M02S00582.1da8    ---|          LDML   CSCT,DI
Line S05722 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10691  M01S05722.1da8    ---|          STML   TRBB+5
10692  M01S05723.1da8    ---|          LDML   RQLN,DI
10693  M01S05724.1da8    ---|          STML   TRBB+6
10694  M01S05725.1da8    ---|          LDM    TRBA
10695  M01S05726.1da8    ---|          STD    T1
10696  M01S05727.1da8    ---|          LDM    TRBA+1
10697  M01S05728.1da8    ---|          STD    T2
10698  M01S05729.1da8    ---|          LRD    T1
10699  M01S05730.1da8    ---|          LDN    2
10700  M01S05731.1da8    ---|          STD    T3
10701  M01S05732.1da8    ---|          LDM    TRBA+2
10702  M01S05733.1da8    ---|          LMC    1S17
10703  M01S05734.1da8    ---|          CWML   TRBB,T3     WRITE BUFFER TO CENTRAL MEMORY
10704  M01S05735.1da8    ---|          LDN    2
10705  M01S05736.1da8    ---|          RAM    TRBA+2
10706  M01S05737.1da8    ---|          SHN    -6
10707  M01S05738.1da8    ---|          RAM    TRBA+1
10708  M01S05739.1da8    ---|          SHN    -14
10709  M01S05740.1da8    ---|          RAM    TRBA
10710  M01S05741.1da8    ---|          LPN    10
10711  M01S05742.1da8    ---|          ZJN    TRB4        IF NOT END OF CM BUFFER
10712  M01S05743.1da8    ---| TRB3     LDN    20          INSTRUCTION MODIFIED
10713  M01S05744.1da8    ---|          STM    TRBA
10714  M01S05745.1da8    ---|          LDN    0
10715  M01S05746.1da8    ---|          STM    TRBA+1
10716  M01S05747.1da8    ---|          STM    TRBA+2
10717  M01S05748.1da8    ---| TRB4     LDM    TRBA+2
10718  M01S05749.1da8    ---|          LPN    77
10719  M01S05750.1da8    ---|          STM    TRBA+2
10720  M01S05751.1da8    ---|          LJM    TRBX        RETURN
10721  M01S05752.1da8    ---|
10722  M01S05753.1da8    ---| TRBA     CON    20,0,0      STARTING ADDRESS OF TRACE BUFFER
10723  M01S05754.1da8    ---| TRBB     BSS    10
Line S05755 Modification History
M01 (Removed by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10724  M02S05755.1da8    ---|          ENDIF
Line S00338 Modification History
M01 (Added by) 283l840
M02 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10725  M02S00338.1da8    ---| TRACE$   ENDIF
Line S00387 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10726  M01S00387.273l780 +++| UBP      SPACE  4,20
10727  M01S00388.273l780 +++|**        UBP - UPDATE *BDLL* PARAMETER.
10728  M01S00389.273l780 +++|*
Line S00390 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
10729  M02S00390.ns2750  ---|*         THIS ROUTINE CHANGES BITS IN WORD *BDLL* OF THE MST.  WHEN
10730  M02S00391.ns2750  ---|*         VIEWING THE E,E DISPLAY THE STATUS OF THESE BITS IS
10731  M02S00392.ns2750  ---|*         DISPLAYED.  BIT DEFINITIONS 59 - 51 ARE -
10732  M02S00393.ns2750  ---|*                6/0  FAILING DRIVE.
10733  M02S00394.ns2750  ---|*                1/1  PARITY PROTECTION DISABLED.
10734  M02S00395.ns2750  ---|*                1/1  RESTORE IN PROGRESS.
10735  M02S00396.ns2750  ---|*                1/1  CONTROLLER OVER TEMPERATURE.
Line S00207 Modification History
M01 (Added by) ns2750
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10736  M02S00207.ns2783  ---|*         THIS ROUTINE CHANGES A BIT/FIELD IN WORD *BDLL* OF THE MST.
Line S02334 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10737  M01S02334.ns2783  +++|*         THIS ROUTINE CHANGES A BIT IN WORD *BDLL* OF THE MST.
Line S00397 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10738  M01S00397.273l780 +++|*
Line S00398 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10739  M02S00398.ns2783  ---|*         ENTRY  (A) = 6/WORD, 6/BITS TO CHANGE.
Line S02335 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10740  M01S02335.ns2783  +++|*         ENTRY  (A) = BIT TO CHANGE.
Line S00399 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10741  M01S00399.273l780 +++|*                (EO) = EST ORDINAL.
10742  M01S00400.273l780 +++|*                (CM+2) = NEW VALUE.
Line S00401 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10743  M02S00401.ns2783  ---|*                (T7) = LOW ORDER BIT TO CHANGE TIMES 100.
Line S00402 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10744  M01S00402.273l780 +++|*
Line S00403 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10745  M02S00403.ns2783  ---|*         USES   T6, CM - CM+4.
Line S02336 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10746  M01S02336.ns2783  +++|*         USES   T6, T7, CM - CM+4.
Line S00404 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10747  M01S00404.273l780 +++|*
Line S00405 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10748  M02S00405.ns2783  ---|*         MACROS MONITOR, SFA.
Line S02337 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10749  M01S02337.ns2783  +++|*         CALLS  REE.
10750  M01S02338.ns2783  +++|*
10751  M01S02339.ns2783  +++|*         MACROS MONITOR.
Line S00406 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10752  M01S00406.273l780 +++|
10753  M01S00407.273l780 +++|
10754  M01S00408.273l780 +++| UBP      SUBR               ENTRY/EXIT
Line S00409 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10755  M02S00409.ns2783  ---|          STD    T6
Line S02340 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10756  M01S02340.ns2783  +++|          SHN    6
10757  M01S02341.ns2783  +++|          STD    T7          BIT NUMBER * 100B
10758  M01S02342.ns2783  +++|          LDN    1
10759  M01S02343.ns2783  +++|          STD    T6          NUMBER OF BITS TO CHANGE
Line S00410 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10760  M01S00410.273l780 +++|          LDD    MA
10761  M01S00411.273l780 +++|          CWD    T6          STORE MESSAGE BUFFER PARAMETERS
Line S00412 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10762  M02S00412.ns2783  ---|          SFA    EST,EO      CALCULATE EST ADDRESS
10763  M02S00413.ns2783  ---|          ADK    EQDE
10764  M02S00414.ns2783  ---|          CRD    CM
Line S02344 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10765  M01S02344.ns2783  +++|          RJM    REE         READ EST ENTRY
Line S00415 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10766  M01S00415.273l780 +++|          LDD    CM+4
10767  M01S00416.273l780 +++|          SHN    3
Line S00417 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10768  M02S00417.ns2783  ---|          STD    CM+4        SET BASE *MST* ENTRY ADDRESS
Line S02345 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10769  M01S02345.ns2783  +++|          ADN    BDLL        SET ADDRESS OF *BDLL*
10770  M01S02346.ns2783  +++|          STD    CM+4
Line S00418 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
10771  M01S00418.273l780 +++|          SHN    -14
10772  M01S00419.273l780 +++|          STD    CM+3
10773  M01S00420.273l780 +++|          LDN    1
10774  M01S00421.273l780 +++|          STD    CM+1        PARAMETER WORD COUNT
10775  M01S00422.273l780 +++|          MONITOR  UTEM
10776  M01S00423.273l780 +++|          UJN    UBPX        RETURN
10777  M00S05756.1da     +++| UEC      SPACE  4,15
10778  M00S05757.1da     +++|**        UEC - UPDATE MST ERROR COUNT.
10779  M00S05758.1da     +++|*
10780  M00S05759.1da     +++|*         ENTRY  (EO) = EST ORDINAL.
10781  M00S05760.1da     +++|*                (BMLM+1) = BML MESSAGE SYMPTOM CODE.
10782  M00S05761.1da     +++|*                (MISC - BIT 0) = 1 IF UNRECOVERED ERROR.
10783  M00S05762.1da     +++|*
10784  M00S05763.1da     +++|*         USES   CM+1 - CM+3.
10785  M00S05764.1da     +++|*
10786  M00S05765.1da     +++|*         MACROS MONITOR.
10787  M00S05766.1da     +++|
10788  M00S05767.1da     +++|
10789  M00S05768.1da     +++| UEC      SUBR               ENTRY/EXIT
10790  M00S05769.1da     +++|          LDM    BMLM+1
10791  M00S05770.1da     +++|          LMC    D"DN"*400+HD0111
10792  M00S05771.1da     +++|          NJN    UECX        IF NOT COMPLETION MESSAGE
10793  M00S05772.1da     +++|          LDD    EO
10794  M00S05773.1da     +++|          STD    CM+1        SET EST ORDINAL
10795  M00S05774.1da     +++|          LDM    MISC
10796  M00S05775.1da     +++|          LPN    1           SET BYTE NUMBER
10797  M00S05776.1da     +++|          ADN    3
10798  M00S05777.1da     +++|          STD    CM+2
10799  M00S05778.1da     +++|          LDN    ICTS        INCREMENT ERROR COUNT
10800  M00S05779.1da     +++|          STD    CM+3
10801  M00S05780.1da     +++|          MONITOR  SMDM
10802  M00S05781.1da     +++|          UJN    UECX        RETURN
10803  M00S05782.1da     +++| UHD      SPACE  4,15
10804  M00S05783.1da     +++|**        UHD - UNPACK HEX DATA.
10805  M00S05784.1da     +++|*
10806  M00S05785.1da     +++|*         STATUS READ FROM THE IPI CHANNEL AND RESPONSES RECEIVED
10807  M00S05786.1da     +++|*         FROM THE CONTROLLER ARE IN 16-BIT WORDS.  THIS ROUTINE
10808  M00S05787.1da     +++|*         MOVES CONSECUTIVE 16-BIT WORDS TO CONSECUTIVE 12-BIT
10809  M00S05788.1da     +++|*         WORDS.  THUS, 3 16-BIT WORDS WOULD BE UNPACKED AND STORED
10810  M00S05789.1da     +++|*         IN 4 12-BIT WORDS IN PP MEMORY.
10811  M00S05790.1da     +++|*
10812  M00S05791.1da     +++|*         ENTRY  (A) = DESTINATION DATA ADDRESS.
10813  M00S05792.1da     +++|*                (T2) = SOURCE DATA ADDRESS.
10814  M00S05793.1da     +++|*                (T4) = 16-BIT WORD COUNT OF HEX DATA.
10815  M00S05794.1da     +++|*
10816  M00S05795.1da     +++|*         EXIT   (A) = CM WORD COUNT OF 12 BIT DATA.
10817  M00S05796.1da     +++|*
10818  M00S05797.1da     +++|*         USES   T2 - T5.
10819  M00S05798.1da     +++|*
10820  M00S05799.1da     +++|*         CALLS  DV5.
10821  M00S05800.1da     +++|
10822  M00S05801.1da     +++|
10823  M00S05802.1da     +++| UHD3     AODL   T3          SET END OF 12 BIT DATA
10824  M00S05803.1da     +++|          STML   UHDA
10825  M00S05804.1da     +++|          LDN    ZERL        ENSURE ZERO FILL TO CM WORD BOUNDARY
10826  M00S05805.1da     +++|          CRM    *,ON
10827  M00S05806.1da     +++| UHDA     EQU    *-1
10828  M00S05807.1da     +++|          LDDL   T3          SET BYTE COUNT OF 12 BIT DATA
10829  M00S05808.1da     +++|          SBDL   T5
10830  M00S05809.1da     +++|          RJM    DV5         CONVERT TO CM WORD COUNT
10831  M00S05810.1da     +++|
10832  M00S05811.1da     +++| UHD      SUBR               ENTRY/EXIT
10833  M00S05812.1da     +++|          STDL   T3
10834  M00S05813.1da     +++|          STDL   T5          PRESERVE DESTINATION BUFFER ADDRESS
10835  M00S05814.1da     +++| UHD1     LDIL   T2
10836  M00S05815.1da     +++|          SHN    16
10837  M00S05816.1da     +++|          STI    T3          UNPACK N+3RD BYTE
10838  M00S05817.1da     +++|          SHN    -6
10839  M00S05818.1da     +++|          SCN    77
10840  M00S05819.1da     +++|          STM    1,T3
10841  M00S05820.1da     +++|          AODL   T3
10842  M00S05821.1da     +++|          SOD    T4
10843  M00S05822.1da     +++| UHD2     ZJN    UHD3        IF END OF HEX DATA
10844  M00S05823.1da     +++|          AODL   T2
10845  M00S05824.1da     +++|          LDIL   T2
10846  M00S05825.1da     +++|          SHN    -10
10847  M00S05826.1da     +++|          RAI    T3          UNPACK N+4TH BYTE
10848  M00S05827.1da     +++|          AODL   T3
10849  M00S05828.1da     +++|          LDIL   T2
10850  M00S05829.1da     +++|          SHN    4
10851  M00S05830.1da     +++|          SCN    17
10852  M00S05831.1da     +++|          STI    T3
10853  M00S05832.1da     +++|          SOD    T4
10854  M00S05833.1da     +++|          ZJN    UHD2        IF END OF HEX DATA
10855  M00S05834.1da     +++|          AODL   T2
10856  M00S05835.1da     +++|          LDIL   T2
10857  M00S05836.1da     +++|          STM    1,T3
10858  M00S05837.1da     +++|          SHN    -14
10859  M00S05838.1da     +++|          RAI    T3          UNPACK N+5TH BYTE
10860  M00S05839.1da     +++|          AODL   T3
10861  M00S05840.1da     +++|          SOD    T4
10862  M00S05841.1da     +++|          ZJN    UHD2        IF END OF HEX DATA
10863  M00S05842.1da     +++|          AODL   T2
10864  M00S05843.1da     +++|          AODL   T3
10865  M00S05844.1da     +++|          UJP    UHD1        CONTINUE UNPACK
Line S05845 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10866  M01S05845.ns2783  ---| UPD      SPACE  4,15
Line S02347 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10867  M01S02347.ns2783  +++| UPD      SPACE  4,25
10868  M00S05846.1da     +++|**        UPD - UDPATE PHYSICAL DRIVE NUMBER.
10869  M00S05847.1da     +++|*
10870  M00S05848.1da     +++|*         THIS ROUTINE UPDATES (PHYD,DI) TO THE NEXT PHYSICAL DRIVE
Line S05849 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10871  M01S05849.284l847 ---|*         OF THE LOGICAL UNIT.  FOR EXAMPLE, THE SEQUENCE OF UPDATES
10872  M01S05850.284l847 ---|*         FOR A 5833_2P UNIT IS 0, 10, 30 OCTAL.
Line S00583 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10873  M01S00583.284l847 +++|*         OF THE LOGICAL UNIT.  THE PHYSICAL DRIVE PROGRESSION IS AS
10874  M01S00584.284l847 +++|*         FOLLOWS, WHERE X IS THE CABINET RANK.
10875  M01S00585.284l847 +++|*
10876  M01S00586.284l847 +++|*         TYPE    PROGRESSION
10877  M01S00587.284l847 +++|*
10878  M01S00588.284l847 +++|*          1      NX. (N = 0-3)
10879  M01S00589.284l847 +++|*          1P     0X, 3X.
10880  M01S00590.284l847 +++|*          2      0X, 1X.
10881  M01S00591.284l847 +++|*          2P     0X, 1X, 3X.
10882  M01S00592.284l847 +++|*          3      0X, 1X, 2X.
10883  M01S00593.284l847 +++|*          3P     0X, 1X, 2X, 3X.
10884  M01S00594.284l847 +++|*          4      0X, 1X, 2X, 3X.
10885  M00S05851.1da     +++|*
10886  M00S05852.1da     +++|*         ENTRY  (DT) = DRIVE TYPE.
Line S05853 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10887  M01S05853.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00523 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
10888  M01S00523.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
Line S02348 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10889  M01S02348.ns2783  +++|*                (DD) = NUMBER OF DATA DRIVES IN DEVICE.
10890  M01S02349.ns2783  +++|*                (PD) = NUMBER OF PARITY DRIVES IN DEVICE.
10891  M00S05854.1da     +++|*
10892  M00S05855.1da     +++|*         EXIT   (A) = 0 IF (PHYD,DI) IS THE LAST PHYSICAL
10893  M00S05856.1da     +++|*                      DRIVE OF THE LOGICAL UNIT.  NO UPDATE IS
10894  M00S05857.1da     +++|*                      MADE IN THIS CASE.
10895  M00S05858.1da     +++|
10896  M00S05859.1da     +++|
Line S00595 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10897  M01S00595.284l847 +++| UPD2     LDN    0           EXIT WITH NO UPDATE
10898  M01S00596.284l847 +++|
10899  M00S05860.1da     +++| UPD      SUBR               ENTRY/EXIT
Line S05861 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10900  M01S05861.284l847 ---|          LDD    DT
Line S05862 Modification History
M01 (Removed by) 273l780
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10901  M02S05862.284l847 ---|*         SBN    DTEA
Line S00424 Modification History
M01 (Added by) 273l780
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10902  M02S00424.284l847 ---|          SBK    DTEA
Line S05863 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10903  M01S05863.284l847 ---|          ZJN    UPDX        IF NO UPDATE NECESSARY (5832_1)
10904  M01S05864.284l847 ---|          SBN    DTEC-DTEA
10905  M01S05865.284l847 ---|          ZJN    UPDX        IF NO UPDATE NECESSARY (5833_1)
Line S00150 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10906  M02S00150.284l847 ---|          SBN    DTEG-DTEC
10907  M02S00151.284l847 ---|          ZJN    UPDX        IF NO UPDATE NECESSARY (5838_1)
10908  M00S05866.1da     +++|          LDM    PHYD,DI
10909  M00S05867.1da     +++|          SHN    -3
Line S05868 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10910  M01S05868.284l847 ---|          SBN    3
Line S00597 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10911  M01S00597.284l847 +++|          ADN    1
Line S00598 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10912  M02S00598.ns2783  ---|          SBM    DD,DT
Line S02350 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10913  M01S02350.ns2783  +++|          SBD    DD
Line S00599 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10914  M01S00599.284l847 +++|          MJN    UPD4        IF NORMAL UPDATE
10915  M01S00600.284l847 +++|          NJN    UPD2        IF NO UPDATE NECESSARY
Line S00601 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10916  M02S00601.ns2783  ---|          LDM    PD,DT
Line S02351 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10917  M01S02351.ns2783  +++|          LDD    PD
10918  M00S05869.1da     +++|          ZJN    UPDX        IF NO UPDATE NECESSARY
Line S05870 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10919  M01S05870.284l847 ---|          LDD    DT
10920  M01S05871.284l847 ---|          SBN    DTEE-DTEA
10921  M01S05872.284l847 ---|          ZJN    UPD1        IF 5833_2
10922  M01S05873.284l847 ---|          ADN    DTEE-DTEB
10923  M01S05874.284l847 ---|          NJN    UPD2        IF NOT 5832_2
10924  M01S05875.284l847 ---| UPD1     LDM    PHYD,DI
10925  M01S05876.284l847 ---|          SHN    -3
10926  M01S05877.284l847 ---|          SBN    1
10927  M01S05878.284l847 ---|          ZJN    UPDX        IF NO UPDATE NECESSARY
10928  M01S05879.284l847 ---|          UJN    UPD4        UPDATE TO NEXT STRING
10929  M01S05880.284l847 ---|
10930  M01S05881.284l847 ---| UPD2     SBN    DTED-DTEB
Line S05882 Modification History
M01 (Removed by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10931  M02S05882.284l847 ---|          NJN    UPD3        IF NOT 5833_1P
10932  M02S05883.284l847 ---|          LDN    30B         STRING 3
Line S00152 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10933  M02S00152.284l847 ---|          ZJN    UPD2.1      IF 5833_1P
10934  M02S00153.284l847 ---|          SBN    DTEH-DTED
10935  M02S00154.284l847 ---|          NJN    UPD3        IF NOT 5838_1P
10936  M02S00155.284l847 ---| UPD2.1   LDN    30B         STRING 3
Line S00602 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10937  M01S00602.284l847 +++|          LDN    4
Line S00603 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10938  M02S00603.ns2783  ---|          SBM    DD,DT
Line S02352 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
10939  M01S02352.ns2783  +++|          SBD    DD
Line S00604 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10940  M01S00604.284l847 +++|          SHN    3
10941  M00S05884.1da     +++|          UJN    UPD5        UPDATE TO PARITY DRIVE
Line S05885 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
10942  M01S05885.284l847 ---|
10943  M01S05886.284l847 ---| UPD3     LDM    PHYD,DI
10944  M01S05887.284l847 ---|          SHN    -3
10945  M01S05888.284l847 ---|          SBN    1
10946  M01S05889.284l847 ---|          NJN    UPD4        IF NOT STRING 1
10947  M01S05890.284l847 ---|          LDN    20B
10948  M01S05891.284l847 ---|          UJN    UPD5        UPDATE TO STRING 3
10949  M00S05892.1da     +++|
10950  M00S05893.1da     +++| UPD4     LDN    10B         UPDATE TO NEXT STRING
10951  M00S05894.1da     +++| UPD5     RAM    PHYD,DI
10952  M00S05895.1da     +++|          UJP    UPDX        RETURN
10953  M00S05896.1da     +++| VDA      SPACE  4,10
10954  M00S05897.1da     +++|**        VDA - VERIFY DRIVE ATTRIBUTES.
10955  M00S05898.1da     +++|*
10956  M00S05899.1da     +++|*         ENTRY  (DT) = DRIVE TYPE.
10957  M00S05900.1da     +++|*
10958  M00S05901.1da     +++|*         EXIT   TO *ERR* IF ERROR.
10959  M00S05902.1da     +++|*
10960  M00S05903.1da     +++|*         USES   T1.
10961  M00S05904.1da     +++|*
10962  M00S05905.1da     +++|*         CALLS  ATT, IDT, SOU, WCB.
10963  M00S05906.1da     +++|
10964  M00S05907.1da     +++|
10965  M00S05908.1da     +++| VDA11    RJM    ATT         WAIT FOR COMPLETION RESPONSE
10966  M00S05909.1da     +++|
10967  M00S05910.1da     +++| VDA      SUBR               ENTRY/EXIT
10968  M00S05911.1da     +++|
10969  M00S05912.1da     +++|*         RESTORE DRIVE ATTRIBUTES.
10970  M00S05913.1da     +++|
10971  M00S05914.1da     +++|          LDC    C0202       RESTORE ATTRIBUTES OPERATION CODE
10972  M00S05915.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
10973  M00S05916.1da     +++|          LDN    6           COMMAND PACKET LENGTH
10974  M00S05917.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
10975  M00S05918.1da     +++|          LDN    CMSS
10976  M00S05919.1da     +++|          RJM    ATT         PROCESS ATTENTION
10977  M00S05920.1da     +++|          NJP    VDA10       IF NOT SUCCESSFUL
10978  M00S05921.1da     +++|
10979  M00S05922.1da     +++|*         CHECK ATTRIBUTE 6E.
10980  M00S05923.1da     +++|
10981  M00S05924.1da     +++|          LDC    C0200       REPORT ATTRIBUTE OPERATION CODE
10982  M00S05925.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
10983  M00S05926.1da     +++|          LDC    P036C
10984  M00S05927.1da     +++|          STML   CPBF+FCP    REPORT ATTRIBUTE 6E
10985  M00S05928.1da     +++|          LDC    0#806E
10986  M00S05929.1da     +++|          STML   CPBF+FCP+1
10987  M00S05930.1da     +++|          LDN    12          COMMAND PACKET LENGTH
10988  M00S05931.1da     +++|          RJM    IDT         INPUT DATA TO PP
10989  M00S05932.1da     +++|          LDML   ATTB+1
10990  M00S05933.1da     +++|          LMC    0#C080
10991  M00S05934.1da     +++|          NJN    VDA1        IF ATTRIBUTE INCORRECT
10992  M00S05935.1da     +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
10993  M00S05936.1da     +++|          UJP    VDA3        CHECK ATTRIBUTE 6F
10994  M00S05937.1da     +++|
10995  M00S05938.1da     +++| VDA1     RJM    ATT         WAIT FOR COMPLETION RESPONSE
10996  M00S05939.1da     +++|          LDC    C0209       LOAD ATTRIBUTE OPERATION CODE
10997  M00S05940.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
10998  M00S05941.1da     +++|          LDC    0#46E
10999  M00S05942.1da     +++|          STML   CPBF+FCP    PARAMETER 6E
11000  M00S05943.1da     +++|          LDC    0#C080      FOR PARITY DRIVES THIS ENABLES PARITY
11001  M00S05944.1da     +++|          STML   CPBF+FCP+1   CORRECTION BEFORE ECC CORRECTION
11002  M00S05945.1da     +++|          LDN    0
11003  M00S05946.1da     +++|          STML   CPBF+FCP+2
11004  M00S05947.1da     +++|          LDN    14          COMMAND PACKET LENGTH
11005  M00S05948.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11006  M00S05949.1da     +++|          LDN    CMSS
11007  M00S05950.1da     +++|          RJM    ATT         PROCESS ATTENTION
11008  M00S05951.1da     +++|          NJN    VDA2        IF NOT SUCCESSFUL
11009  M00S05952.1da     +++|          LDC    C020A       SAVE ATTRIBUTE OPERATION CODE
11010  M00S05953.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11011  M00S05954.1da     +++|          LDN    6           COMMAND PACKET LENGTH
11012  M00S05955.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11013  M00S05956.1da     +++|          LDN    CMSS
11014  M00S05957.1da     +++|          RJM    ATT         PROCESS ATTENTION
11015  M00S05958.1da     +++| VDA2     NJP    VDA10       IF NOT SUCCESSFUL
11016  M00S05959.1da     +++|
11017  M00S05960.1da     +++|*         CHECK ATTRIBUTE PARAMETER 6F.
11018  M00S05961.1da     +++|
11019  M00S05962.1da     +++| VDA3     LDC    C0200
11020  M00S05963.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11021  M00S05964.1da     +++|          LDC    P036C
11022  M00S05965.1da     +++|          STML   CPBF+FCP    REPORT ATTRIBUTE 6F
11023  M00S05966.1da     +++|          LDC    0#806F
11024  M00S05967.1da     +++|          STML   CPBF+FCP+1
11025  M00S05968.1da     +++|          LDN    12          COMMAND PACKET LENGTH
11026  M00S05969.1da     +++|          RJM    IDT         INPUT DATA TO PP
11027  M00S05970.1da     +++|          LDML   ATTB+13
Line S05971 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11028  M01S05971.284l847 ---|          LMC    BPS
Line S00605 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11029  M01S00605.284l847 +++|          LMC    BPB
11030  M00S05972.1da     +++|          NJN    VDA4        IF BURST SIZE NOT CORRECT
11031  M00S05973.1da     +++|          RJM    ATT         WAIT FOR COMPLETION RESPONSE
11032  M00S05974.1da     +++|          UJP    VDA7        CHECK ATTRIBUTE D8
11033  M00S05975.1da     +++|
11034  M00S05976.1da     +++| VDA4     RJM    ATT         WAIT FOR COMPLETION RESPONSE
11035  M00S05977.1da     +++|          LDN    0
11036  M00S05978.1da     +++|          STD    T1
11037  M00S05979.1da     +++| VDA5     LCN    0           PARAMETERS WITH FFFF WILL NOT BE CHANGED
11038  M00S05980.1da     +++|          STML   CPBF+FCP,T1
11039  M00S05981.1da     +++|          AOD    T1
11040  M00S05982.1da     +++|          LMN    24
11041  M00S05983.1da     +++|          NJN    VDA5        IF MORE WORDS TO INITIALIZE
11042  M00S05984.1da     +++|          STM    CPBF+FCP+10
11043  M00S05985.1da     +++|          STM    CPBF+FCP+12
Line S05986 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11044  M01S05986.284l847 ---|          LDC    BPS         SET INTERRUPT AND BURST SIZE
Line S00606 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11045  M01S00606.284l847 +++|          LDC    BPB*2       SET INTERRUPT SIZE
11046  M00S05987.1da     +++|          STML   CPBF+FCP+11
Line S00607 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11047  M01S00607.284l847 +++|          SHN    -1          SET BURST SIZE
11048  M00S05988.1da     +++|          STML   CPBF+FCP+13
11049  M00S05989.1da     +++|          LDC    C0209       LOAD ATTRIBUTE OPERATION CODE
11050  M00S05990.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11051  M00S05991.1da     +++|          LDC    0#276F
11052  M00S05992.1da     +++|          STML   CPBF+FCP    PARAMETER 6F
11053  M00S05993.1da     +++|          LDN    46D         COMMAND PACKET LENGTH
11054  M00S05994.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11055  M00S05995.1da     +++|          LDN    CMSS
11056  M00S05996.1da     +++|          RJM    ATT         PROCESS ATTENTION
11057  M00S05997.1da     +++|          NJN    VDA6        IF NOT SUCCESSFUL
11058  M00S05998.1da     +++|          LDC    C020A       SAVE ATTRIBUTE OPERATION CODE
11059  M00S05999.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNT
11060  M00S06000.1da     +++|          LDN    6           COMMAND PACKET LENGTH
11061  M00S06001.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11062  M00S06002.1da     +++|          LDN    CMSS
11063  M00S06003.1da     +++|          RJM    ATT         PROCESS ATTENTION
11064  M00S06004.1da     +++| VDA6     NJN    VDA8        IF NOT SUCCESSFUL
11065  M00S06005.1da     +++|
11066  M00S06006.1da     +++|*         CHECK ATTRIBUTE D8.
11067  M00S06007.1da     +++|
11068  M00S06008.1da     +++| VDA7     LDD    DT
Line S06009 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11069  M01S06009.284l847 ---|          SBN    DTEC-DTEA
Line S00608 Modification History
M01 (Added by) 284l847
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  M00S06010.1da     +++|          MJP    VDAX        IF INTERRUPT SIZE NOT USED
Line S06011 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11075  M01S06011.284l847 ---|          LDC    C0200       REPORT ATTRIBUTE OPERATION CODE
Line S00612 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11076  M01S00612.284l847 +++| VDA7.1   LDC    C0200       REPORT ATTRIBUTE OPERATION CODE
11077  M00S06012.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11078  M00S06013.1da     +++|          LDC    P036C       REPORT PARAMETER D8
11079  M00S06014.1da     +++|          STML   CPBF+FCP
11080  M00S06015.1da     +++|          LDC    0#80D8
11081  M00S06016.1da     +++|          STML   CPBF+FCP+1
11082  M00S06017.1da     +++|          LDN    12          COMMAND PACKET LENGTH
11083  M00S06018.1da     +++|          RJM    IDT         INPUT DATA TO PP
11084  M00S06019.1da     +++|          LDML   ATTB
11085  M00S06020.1da     +++|          LMC    0#9D8
11086  M00S06021.1da     +++| VDA8     NJP    VDA10       IF RESPONSE INCORRECT
Line S06022 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11087  M01S06022.284l847 ---|          LDML   ATTB+2
11088  M01S06023.284l847 ---|          LMC    BPS*2
Line S00613 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11089  M01S00613.284l847 +++|          LDC    BPB         SET INTERRUPT SIZE
11090  M01S00614.284l847 +++|          LMML   ATTB+2
11091  M00S06024.1da     +++|          NJN    VDA9        IF INTERRUPT SIZE WRONG
11092  M00S06025.1da     +++|          LDML   ATTB+4
Line S06026 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11093  M01S06026.284l847 ---|          LMC    BPS
Line S00615 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11094  M01S00615.284l847 +++|          LMC    BPB
11095  M00S06027.1da     +++|          ZJP    VDA11       IF BURST SIZE CORRECT
11096  M00S06028.1da     +++| VDA9     RJM    ATT         WAIT FOR COMPLETION RESPONSE
11097  M00S06029.1da     +++|          LDN    0
11098  M00S06030.1da     +++|          STML   CPBF+FCP+1
11099  M00S06031.1da     +++|          STML   CPBF+FCP+3
Line S06032 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11100  M01S06032.284l847 ---|          LDC    BPS*2
11101  M01S06033.284l847 ---|          STML   CPBF+FCP+2  SET INTERRUPT AND BURST SIZE
11102  M01S06034.284l847 ---|          SHN    -1
Line S00616 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
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  M00S06035.1da     +++|          STML   CPBF+FCP+4
11107  M00S06036.1da     +++|          LDC    0#09D8
11108  M00S06037.1da     +++|          STML   CPBF+FCP    PARAMETER D8
11109  M00S06038.1da     +++|          LDC    C0209       LOAD ATTRIBUTE OPERATION CODE
11110  M00S06039.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11111  M00S06040.1da     +++|          LDN    20          COMMAND PACKET LENGTH
11112  M00S06041.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11113  M00S06042.1da     +++|          LDN    CMSS
11114  M00S06043.1da     +++|          RJM    ATT         PROCESS ATTENTION
11115  M00S06044.1da     +++|          NJN    VDA10       IF NOT SUCCESSFUL
11116  M00S06045.1da     +++|          LDC    C020A       SAVE ATTRIBUTES OPERATION CODE
11117  M00S06046.1da     +++|          RJM    SOU         SET OPERATION CODE AND UNIT
11118  M00S06047.1da     +++|          LDN    6           COMMAND PACKET LENGTH
11119  M00S06048.1da     +++|          RJM    WCB         WRITE COMMAND PACKET
11120  M00S06049.1da     +++|          LDN    CMSS
11121  M00S06050.1da     +++|          RJM    ATT         PROCESS ATTENTION
11122  M00S06051.1da     +++|          NJN    VDA10       IF NOT SUCCESSFUL
11123  M00S06052.1da     +++|          LJM    VDAX        RETURN
11124  M00S06053.1da     +++|
Line S06054 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11125  M01S06054.283l840 ---| VDA10    LCN    ERDA
Line S00339 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11126  M01S00339.283l840 +++| VDA10    LCN    ERDA        REPORT DRIVE ATTRIBUTES ERROR
11127  M00S06055.1da     +++|          RJM    ERR         PROCESS ERROR
11128  M00S06056.1da     +++| VIS      SPACE  4,15
11129  M00S06057.1da     +++|**        VIS - VERIFY INTERRUPT SOURCE.
11130  M00S06058.1da     +++|*
11131  M00S06059.1da     +++|*         ENTRY  (A) .LT. 0 IF ASYNC INTERRUPT FROM CONTROLLER.
11132  M00S06060.1da     +++|*
11133  M00S06061.1da     +++|*         EXIT   (A) = 0 IF INTERRUPT FOR INACTIVE DRIVE.
11134  M00S06062.1da     +++|*                    = RETURN ADDRESS TO PROCESSOR.
Line S06063 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11135  M01S06063.1da8    ---|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
Line S00524 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11136  M01S00524.1da8    +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
11137  M00S06064.1da     +++|*
11138  M00S06065.1da     +++|*         USES   DI.
11139  M00S06066.1da     +++|*
Line S06067 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11140  M01S06067.273l780 ---|*         CALLS  DCM, LDP.
Line S00425 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11141  M01S00425.273l780 +++|*         CALLS  CCO, DCM, LDP.
11142  M00S06068.1da     +++|
11143  M00S06069.1da     +++|
Line S06070 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11144  M01S06070.273l780 ---| VIS4     LDM    SRSA
Line S00426 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11145  M01S00426.273l780 +++| VIS4     RJM    CCO         CHECK FOR CONTROLLER OVER TEMPERATURE
11146  M01S00427.273l780 +++|          LDM    SRSA
11147  M00S06071.1da     +++|          ZJN    VISX        IF NO RESET IN PROGRESS
11148  M00S06072.1da     +++|          STD    DI
Line S06073 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11149  M01S06073.273l780 ---|          UJN    VIS1        GO LOAD DEVICE PARAMETERS
Line S00428 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11150  M01S00428.273l780 +++|          UJN    VIS1        LOAD DEVICE PARAMETERS
11151  M00S06074.1da     +++|
11152  M00S06075.1da     +++| VIS      SUBR               ENTRY/EXIT
11153  M00S06076.1da     +++|          MJN    VIS4        IF ASYNCH FOR CONTROLLER
11154  M00S06077.1da     +++|          LDM    RPBF+CRN    CHECK COMMAND NUMBER
11155  M00S06078.1da     +++|          STD    DI
11156  M00S06079.1da     +++| VIS1     RJM    LDP         LOAD DEVICE PARAMETERS
11157  M00S06080.1da     +++|          LDM    RQLN,DI
Line S06081 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11158  M01S06081.1da8    ---|          SCN    77
11159  M01S06082.1da8    ---|          ZJN    VIS2        IF UNIT NOT INTERLOCKED
Line S00525 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11160  M01S00525.1da8    +++|          SHN    21-13
11161  M01S00526.1da8    +++|          PJN    VIS2        IF UNIT NOT INTERLOCKED
11162  M00S06083.1da     +++|          LDML   ATTN,DI
11163  M00S06084.1da     +++|          NJN    VISX        IF EXPECTED RESPONSE
11164  M00S06085.1da     +++| VIS2     LDDL   RT
11165  M00S06086.1da     +++|          LMN    XFNT
11166  M00S06087.1da     +++|          NJN    VIS3        IF NOT TRANSFER NOTIFICATION
11167  M00S06088.1da     +++|          RJM    DCM         DESELECT CONTROLLER
11168  M00S06089.1da     +++| VIS3     LDN    0
11169  M00S06090.1da     +++|          UJN    VISX        RETURN
Line S00527 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11177  M02S00534.ns2783  ---|*                (IPPS,DI) = VALUE OF (CB) ON ENTRY TO *SEP*.
11178  M02S00535.ns2783  ---|*                (SEPA,DI) = VALUE OF (PA) ON ENTRY TO *SEP*.
11179  M02S00536.ns2783  ---|*                (SEAD,DI) = VALUE OF (ADDR,DI) ON ENTRY TO *SEP*.
Line S00537 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11180  M01S00537.1da8    +++|*
Line S00538 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11181  M02S00538.ns2783  ---|*         EXIT   (PA) RESTORED TO VALUE ON ENTRY TO *SEP*.
11182  M02S00539.ns2783  ---|*                (ADDR,DI) RESTORED TO VALUE ON ENTRY TO *SEP*.
Line S02353 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11183  M01S02353.ns2783  +++|*         USES   DI, T1.
Line S00540 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11184  M01S00540.1da8    +++|*
Line S00541 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11185  M02S00541.ns2783  ---|*         USES   CB, DI, PA, T1.
11186  M02S00542.ns2783  ---|*
Line S00543 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11187  M01S00543.1da8    +++|*         CALLS  LND, LDP.
Line S00544 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11188  M02S00544.ns2783  ---|*
11189  M02S00545.ns2783  ---|*         NOTE - THE VALUES OF (CB), (PA) AND (ADDR,DI) ARE SAVED
11190  M02S00546.ns2783  ---|*                IN THE DEVICE STATE TABLE ON ENTRY TO *SEP*.  THESE
11191  M02S00547.ns2783  ---|*                VALUES ARE RESTORED ON EXIT FROM THIS ROUTINE.  IT IS
11192  M02S00548.ns2783  ---|*                REQUIRED THAT NO PROCESSING WHICH WILL INVALIDATE
11193  M02S00549.ns2783  ---|*                THESE VALUES BE PERFORMED BETWEEN THE CALL TO *SEP*
11194  M02S00550.ns2783  ---|*                AND THE CALL TO *WAC*.
Line S00551 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11216  M02S00572.ns2783  ---| WAC3     LDML   SEPA,DI     RESTORE (PA)
11217  M02S00573.ns2783  ---|          STDL   PA
11218  M02S00574.ns2783  ---|          LDM    IPPS,DI     RESTORE (CB)
11219  M02S00575.ns2783  ---|          STD    CB
11220  M02S00576.ns2783  ---|          LDML   SEAD,DI     RESTORE (ADDR,DI)
11221  M02S00577.ns2783  ---|          STML   ADDR,DI
11222  M02S00578.ns2783  ---|          LDML   SEPR,DI     GET RETURN ADDRESS
Line S02354 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
11223  M01S02354.ns2783  +++| WAC3     LDML   SEPR,DI     GET RETURN ADDRESS
Line S00579 Modification History
M01 (Added by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
11224  M01S00579.1da8    +++|          STDL   T1
11225  M01S00580.1da8    +++|          LJM    0,T1        RETURN
11226  M00S06091.1da     +++| WLB      SPACE  4,10
11227  M00S06092.1da     +++|**        WLB - WRITE LINKAGE BITS.
11228  M00S06093.1da     +++|*
11229  M00S06094.1da     +++|*         ENTRY  (T6) = ADDRESS FOR LINKAGE.
11230  M00S06095.1da     +++|*                (T1) = DATA BUFFER ADDRESS.
11231  M00S06096.1da     +++|*                (T5) = NUMBER OF WORDS TO WRITE.
11232  M00S06097.1da     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
11233  M00S06098.1da     +++|*
11234  M00S06099.1da     +++|*         EXIT   SECTOR LINKAGE SET IN DATA BUFFER.
11235  M00S06100.1da     +++|*
11236  M00S06101.1da     +++|*         USES   T1, T6.
11237  M00S06102.1da     +++|
11238  M00S06103.1da     +++|
11239  M00S06104.1da     +++| WLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
11240  M00S06105.1da     +++|          RADL   T1
11241  M00S06106.1da     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
11242  M00S06107.1da     +++|          SHN    -10
11243  M00S06108.1da     +++|*         LPN    17
11244  M00S06109.1da     +++|          SHN    14          POSITION FOR DATA BUFFER
11245  M00S06110.1da     +++|          LMI    T1
11246  M00S06111.1da     +++|          STIL   T1
11247  M00S06112.1da     +++| WLB2     LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
11248  M00S06113.1da     +++|          SHN    -4
11249  M00S06114.1da     +++|          LPN    17
11250  M00S06115.1da     +++|          SHN    14          POSITION FOR DATA BUFFER
11251  M00S06116.1da     +++|          LMM    4,T1
11252  M00S06117.1da     +++|          STML   4,T1
11253  M00S06118.1da     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
11254  M00S06119.1da     +++|*         SHN    0
11255  M00S06120.1da     +++|          LPN    17
11256  M00S06121.1da     +++|          SHN    14          POSITION FOR DATA BUFFER
11257  M00S06122.1da     +++|          LMM    10,T1
11258  M00S06123.1da     +++|          STML   10,T1
11259  M00S06124.1da     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
11260  M00S06125.1da     +++|          LMN    CM+5
11261  M00S06126.1da     +++|          NJN    WLB1        IF MORE LINKAGE
11262  M00S06127.1da     +++|          LDC    1S17
11263  M00S06128.1da     +++|          CWML   SBUF,T5     UPDATE DATA BUFFER
11264  M00S06129.1da     +++|
11265  M00S06130.1da     +++| WLB      SUBR               ENTRY/EXIT
11266  M00S06131.1da     +++|          UJN    WLB2        MOVE SECTOR LINKAGE
11267  M00S06132.1da     +++| WMC      SPACE  4,10
11268  M00S06133.1da     +++|**        WMC - WAIT MAINTENANCE CHANNEL EMPTY.
11269  M00S06134.1da     +++|*
11270  M00S06135.1da     +++|*         EXIT   (A) .EQ. 0 IF CHANNEL EMPTY.
11271  M00S06136.1da     +++|*                (A) .NE. 0 IF CHANNEL HUNG FULL.
11272  M00S06137.1da     +++|
11273  M00S06138.1da     +++|
11274  M00S06139.1da     +++| WMC2     LDN    0           INDICATE CHANNEL EMPTY
11275  M00S06140.1da     +++|
11276  M00S06141.1da     +++| WMC      SUBR               ENTRY/EXIT
11277  M00S06142.1da     +++|          LDD    TH
11278  M00S06143.1da     +++| WMC1     EJM.   WMC2,MR     IF TRANSMISSION COMPLETE
11279  M00S06144.1da     +++|          SBN    1
11280  M00S06145.1da     +++|          NJN    WMC1        IF NOT TIMED OUT
11281  M00S06146.1da     +++|          DCN.   MR+40
11282  M00S06147.1da     +++|          CCF.   *+2,MR      CLEAR CHANNEL FLAG
11283  M00S06148.1da     +++|          LDD    CP
11284  M00S06149.1da     +++|          ADN    MS2W        STORE CP MESSAGE
11285  M00S06150.1da     +++|          CWM    WMCA,TR
11286  M00S06151.1da     +++|          UJN    WMCX        RETURN
11287  M00S06152.1da     +++|
Line S00429 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
11288  M01S00429.273l780 +++|
11289  M00S06153.1da     +++| WMCA     DATA   C*MR ERROR.*
11290  M00S06154.1da     +++|          TITLE  CHANNEL SUBROUTINES.
11291  M00S06155.1da     +++| BCS      SPACE  4,10
11292  M00S06156.1da     +++|**        BCS - DEFINE INFORMATION TRANSFER.
11293  M00S06157.1da     +++|*
11294  M00S06158.1da     +++|*         ENTRY  (A) = BUS *A* BITS 7 AND 6.
11295  M00S06159.1da     +++|*
11296  M00S06160.1da     +++|*         EXIT   TO *ERR* IF ERROR.
11297  M00S06161.1da     +++|*
11298  M00S06162.1da     +++|*         CALLS  RSR.
11299  M00S06163.1da     +++|
11300  M00S06164.1da     +++|
11301  M00S06165.1da     +++| BCS1     LDDL   LF          FETCH LAST FUNCTION
11302  M00S06166.1da     +++|          LMN    0#32
11303  M00S06167.1da     +++|          RJM    RSR         DROP SYNC OUT
11304  M00S06168.1da     +++|
11305  M00S06169.1da     +++| BCS      SUBR               ENTRY/EXIT
11306  M00S06170.1da     +++|          SHN    17-1
Line S06171 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11307  M01S06171.284l847 ---|          ADC    F005B       SET SYNC OUT
Line S00619 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
11308  M01S00619.284l847 +++|          ADK    F005B       SET SYNC OUT
11309  M00S06172.1da     +++|          RJM    RSR         READ SLAVE RESPONSE
11310  M00S06173.1da     +++|          LPC    377
11311  M00S06174.1da     +++|          ZJN    BCS1        IF BUS ACKNOWLEDGE CORRECT
Line S06175 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11312  M01S06175.283l840 ---|          LDN    EBAE
Line S00340 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11313  M01S00340.283l840 +++|          LDN    EBAE        BUS ACKNOWLEDGE ERROR
11314  M00S06176.1da     +++|          RJM    ERR         PROCESS ERROR
11315  M00S06177.1da     +++| CFE      SPACE  4,10
11316  M00S06178.1da     +++|**        CFE - CHECK FOR I/O ERROR.
11317  M00S06179.1da     +++|*
11318  M00S06180.1da     +++|*         ENTRY  (A) = RESIDUAL WORD COUNT.
11319  M00S06181.1da     +++|*                AT *CFE1* FROM *DCT* IF ERROR FLAG SET.
11320  M00S06182.1da     +++|*
11321  M00S06183.1da     +++|*         EXIT   (A) = 0.
11322  M00S06184.1da     +++|*                TO *ERR* IF ERROR.
11323  M00S06185.1da     +++|
11324  M00S06186.1da     +++|
11325  M00S06187.1da     +++| CFE4     NJN    CFE3        IF INCOMPLETE DATA TRANSFER
11326  M00S06188.1da     +++|
11327  M00S06189.1da     +++| CFE      SUBR               ENTRY/EXIT
11328  M00S06190.1da     +++|          CFM    CFE4,CH     IF CHANNEL ERROR FLAG CLEAR
Line S06191 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11329  M01S06191.283l840 ---| CFE1     LDN    ECIE
Line S00341 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11330  M01S00341.283l840 +++| CFE1     LDN    ECIE        IPI CHANNEL ERROR FLAG
11331  M00S06192.1da     +++| CFE2     RJM    ERR         PROCESS CHANNEL ERROR
11332  M00S06193.1da     +++|
Line S06194 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11333  M01S06194.283l840 ---| CFE3     LDN    EIDT
Line S00342 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11334  M01S00342.283l840 +++| CFE3     LDN    EIDT        INCOMPLETE DATA TRANSFER
11335  M00S06195.1da     +++|          UJN    CFE2        PROCESS ERROR
11336  M00S06196.1da     +++| CRC      SPACE  4,10
11337  M00S06197.1da     +++|**        CRC - COMMON READ CODE.
11338  M00S06198.1da     +++|*
11339  M00S06199.1da     +++|*         ENTRY  (A) = LENGTH FOR INPUT.
11340  M00S06200.1da     +++|*                (T0) = WORDS NOT TRANSFERRED.
11341  M00S06201.1da     +++|*
11342  M00S06202.1da     +++|*         EXIT   TO *ERR* IF ERROR.
11343  M00S06203.1da     +++|*
11344  M00S06204.1da     +++|*         USES   T1.
11345  M00S06205.1da     +++|*
11346  M00S06206.1da     +++|*         CALLS  GSS.
11347  M00S06207.1da     +++|
11348  M00S06208.1da     +++|
11349  M00S06209.1da     +++| CRC2     LDN    0
11350  M00S06210.1da     +++|          RJM    GSS         GET ENDING STATUS
11351  M00S06211.1da     +++|
11352  M00S06212.1da     +++| CRC      SUBR               ENTRY/EXIT
11353  M00S06213.1da     +++|          SBD    T0
11354  M00S06214.1da     +++|          STD    T1          WORDS NOT TRANSFERRED
11355  M00S06215.1da     +++|          LDC    50000D
11356  M00S06216.1da     +++| CRC1     IJM    CRC2,CH     IF SLAVE IN
11357  M00S06217.1da     +++|          SBN    1
11358  M00S06218.1da     +++|          NJN    CRC1        IF TIMEOUT NOT EXPIRED
Line S06219 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11359  M01S06219.283l840 ---|          LCN    ECNR
Line S00343 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
11360  M01S00343.283l840 +++|          LCN    ECNR        SLAVE/SYNC IN SIGNAL ERROR
11361  M00S06220.1da     +++|          RJM    ERR         PROCESS ERROR
11362  M00S06221.1da     +++| CTC      SPACE  4,15
11363  M00S06222.1da     +++|**        CTC - CHECK TRANSFER COMPLETE.
11364  M00S06223.1da     +++|*
11365  M00S06224.1da     +++|*         ENTRY  (RW) = 0 IF READ.
11366  M00S06225.1da     +++|*
11367  M00S06226.1da     +++|*         EXIT   (A) = 0 TO CALLER IF NO ERROR.
11368  M00S06227.1da     +++|*                TO *PIO2* IF ENDING STATUS INDICATES PAUSE AND
11369  M00S06228.1da     +++|*                   NO DATA WAS READ.
11370  M00S06229.1da     +++|*                TO *PIO6* IF ENDING STATUS INDICATES NO MORE DATA
11371  M00S06230.1da     +++|*                   AND NOT ALL DATA WAS TRANSFERRED.
11372  M00S06231.1da     +++|*                TO *ERR* IF ERROR.
11373  M00S06232.1da     +++|*
11374  M00S06233.1da     +++|*         USES   T1.
11375  M00S06234.1da     +++|*
11376  M00S06235.1da     +++|*         CALLS  DCM, FAN, FCN, GSS, RCR, RDR, RTR, SCD.
11377  M00S06236.1da     +++|
11378  M00S06237.1da     +++|
11379  M00S06238.1da     +++| CTC      SUBR               ENTRY/EXIT
11380  M00S06239.1da     +++|          LDC    7700D
11381  M00S06240.1da     +++|          STDL   T1
11382  M00S06241.1da     +++| CTC1     LDC    F0700
11383  M00S06242.1da     +++|          RJM    FCN         REQUEST OPERATIONAL STATUS
11384  M00S06243.1da     +++|          ACN    CH
11385  M00S06244.1da     +++|          EJM    CTC2,CH     IF ERROR
11386  M00S06245.1da     +++|          IAN    CH          READ STATUS
11387  M00S06246.1da     +++|          LPN    1
11388  M00S06247.1da     +++|          ZJN    CTCX        IF TRANSFER COMPLETE
11389  M00S06248.1da     +++| CTC2     SODL   T1
11390  M00S06249.1da     +++|          NJN    CTC1        IF NOT TIMEOUT
11391  M00S06250.1da     +++|          RJM    RTR         READ T REGISTER
11392  M00S06251.1da     +++|          LDD    CT
11393  M00S06252.1da     +++|          ZJN    CTC2.1      IF 10 MB CHANNEL
11394  M00S06253.1da     +++|
11395  M00S06254.1da     +++|*         THE DMA TERMINATE FUNCTION DOES NOT CLEAR DMA MODE
11396  M00S06255.1da     +++|*         IN THE 25 MB CHANNEL.
11397  M00S06256.1da     +++|
Line S06257 Modification History
M01 (Removed by) 1da10
Seq #  *Modification Id* Act 
----------------------------+
11398  M01S06257.1da10   ---|          LDC    F0E00
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/1da.009.txt ยท Last modified: (external edit)