Deck 6DP

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.6dp     +++|          IDENT  6DP,MSFW
00002  M00S00002.6dp     +++|          PERIPH
00003  M00S00003.6dp     +++|          BASE   MIXED
00004  M00S00004.6dp     +++|          SST
00005  M00S00005.6dp     +++|*COMMENT  6DP - DDP/ECS DRIVER.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.6dp     +++|          TITLE  6DP - DDP/ECS DRIVER.
00009  M00S00008.6dp     +++|          SPACE  4
00010  M00S00009.6dp     +++|***       6DP - DDP/ECS DRIVER.
00011  M00S00010.6dp     +++|*         R. A. LARSEN.      72/10/01.
00012  M00S00011.6dp     +++|*         R. E. TATE.        73/10/17.
00013  M00S00012.6dp     +++|*         L. L. CLINTON      78/07/28.
00014  M00S00013.6dp     +++|          SPACE  4
00015  M00S00014.6dp     +++|***              *6DP* PROVIDES THE CAPABILITY TO ACCESS THE ECS I
00016  M00S00015.6dp     +++|*         AND ECS II SECONDARY STORAGE DEVICES VIA THE DC135 OR
00017  M00S00016.6dp     +++|*         THE PARITY ENHANCED DC145 DDP.
00018  M00S00017.6dp     +++|          SPACE  4
00019  M00S00018.6dp     +++|***       ORGANIZATION OF ECS I SUBSYSTEM.
00020  M00S00019.6dp     +++|*
00021  M00S00020.6dp     +++|*         EQUIPMENT TYPE = *DP*
00022  M00S00021.6dp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00022.252l678 ---|*         SECTORS/TRACK = 16

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00001.252l678 +++|*         SECTORS/TRACK = *SLDE* (20B, 40B, 100B, 200B).
00025  M00S00023.6dp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00024.252l678 ---|*         TRACKS PER DEVICE =  121 FOR  125K ECS I.
00027  M01S00025.252l678 ---|*                              242 FOR  250K ECS I.
00028  M01S00026.252l678 ---|*                              484 FOR  500K ECS I.
00029  M01S00027.252l678 ---|*                              968 FOR 1000K ECS I.
00030  M01S00028.252l678 ---|*                             1937 FOR 2000K ECS I.
00031  M01S00029.252l678 ---|*
00032  M00S00030.6dp     +++|*         WORDS PER DEVICE =   131,072 FOR  131K ECS I.
00033  M00S00031.6dp     +++|*                              262,144 FOR  262K ECS I.
00034  M00S00032.6dp     +++|*                              524,288 FOR  524K ECS I.
00035  M00S00033.6dp     +++|*                            1,048,576 FOR 1048K ECS I.
00036  M00S00034.6dp     +++|*                            2,097,152 FOR 2096K ECS I.
00037  M00S00035.6dp     +++|*
00038  M00S00036.6dp     +++|*         MAXIMUM DATA RATE = 80K WORDS PER SECOND. FOR PP/CM TRANSFER.
00039  M00S00037.6dp     +++|          SPACE  4
00040  M00S00038.6dp     +++|***       ORGANIZATION OF ECS II SUBSYSTEM.
00041  M00S00039.6dp     +++|*
00042  M00S00040.6dp     +++|*         EQUIPMENT TYPE = *DP*.
00043  M00S00041.6dp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00042.252l678 ---|*         SECTORS PER TRACK = 16.

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00002.252l678 +++|*         SECTORS/TRACK = *SLDE* (20B, 40B, 100B, 200B).
00046  M00S00043.6dp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00044.252l678 ---|*         TRACKS PER DEVICE =  126 FOR  131K ECS II.
00048  M01S00045.252l678 ---|*                              252 FOR  262K ECS II.
00049  M01S00046.252l678 ---|*                              504 FOR  524K ECS II.
00050  M01S00047.252l678 ---|*                             1008 FOR 1048K ECS II.
00051  M01S00048.252l678 ---|*                             2016 FOR 2096K ECS II.
00052  M01S00049.252l678 ---|*
00053  M00S00050.6dp     +++|*         WORDS PER DEVICE =   131,072 FOR  131K ECS II.
00054  M00S00051.6dp     +++|*                              262,144 FOR  262K ECS II.
00055  M00S00052.6dp     +++|*                              524,288 FOR  524K ECS II.
00056  M00S00053.6dp     +++|*                            1,048,576 FOR 1048K ECS II.
00057  M00S00054.6dp     +++|*                            2,097,152 FOR 2096K ECS II.
00058  M00S00055.6dp     +++|*
00059  M00S00056.6dp     +++|*         MAXIMUM DATA RATE = 160K WORDS PER SECOND FOR 2X PPS.
00060  M00S00057.6dp     +++|          SPACE  4
00061  M00S00058.6dp     +++|**        ENTRY CONDITIONS.
00062  M00S00059.6dp     +++|*
00063  M00S00060.6dp     +++|*
00064  M00S00061.6dp     +++|*         (T4) = CHANNEL, IF PREVIOUSLY RESERVED.
00065  M00S00062.6dp     +++|*         (T5) = EST ORDINAL.
00066  M00S00063.6dp     +++|*         (T6) = TRACK.
00067  M00S00064.6dp     +++|*         (T7) = SECTOR.
00068  M00S00065.6dp     +++|          SPACE  4
00069  M00S00066.6dp     +++|*CALL     COMPMAC
00070  M00S00067.6dp     +++|*CALL     COMPCHI
00071  M00S00068.6dp     +++|*CALL     COMSDFS
00072  M00S00069.6dp     +++|*CALL     COMSMSP
00073  M00S00070.6dp     +++|*CALL     COMSPIM
00074  M00S00071.6dp     +++|          SPACE  4
00075  M00S00072.6dp     +++|*         ASSEMBLY CONSTANTS.
00076  M00S00073.6dp     +++|
00077  M00S00074.6dp     +++|
00078  M00S00075.6dp     +++| CH       EQU    0           DDP CHANNEL
00079  M00S00076.6dp     +++| SC       EQU    5000        DDP SELECT CODE
00080  M00S00077.6dp     +++| DEC      MICRO  1,, 6DP     DECK NAME
00081  M00S00078.6dp     +++|          TITLE
00082  M00S00079.6dp     +++|**        ENTRY POINT TRANSFERS.
00083  M00S00080.6dp     +++|
00084  M00S00081.6dp     +++|
00085  M00S00082.6dp     +++|          ORG    MSFW
00086  M00S00083.6dp     +++|
00087  M00S00084.6dp     +++|          CON    PRS         PRESET ADDRESS
00088  M00S00085.6dp     +++|
00089  M00S00086.6dp     +++|
00090  M00S00087.6dp     +++| RDS      CON    0           ENTRY
00091  M00S00088.6dp     +++|          UJN    RDS.        ENTER DRIVER
00092  M00S00089.6dp     +++|
00093  M00S00090.6dp     +++|
00094  M00S00091.6dp     +++| WDS      CON    0           ENTRY
00095  M00S00092.6dp     +++|          UJN    WDS.
00096  M00S00093.6dp     +++| EMS      SPACE  4,10
00097  M00S00094.6dp     +++|**        EMS - END MASS STORAGE OPERATION.
00098  M00S00095.6dp     +++|*
00099  M00S00096.6dp     +++|*         ENTRY  (T4) = CHANNEL, IF PREVIOUSLY RESERVED.
00100  M00S00097.6dp     +++|*                (T5) = EQUIPMENT.
00101  M00S00098.6dp     +++|*
00102  M00S00099.6dp     +++|*         EXIT   (A) = 0.
00103  M00S00100.6dp     +++|*
00104  M00S00101.6dp     +++|*         NOTE - THE *.EMS* ENTRY POINT IS SUPPORTED ONLY VIA THE
00105  M00S00102.6dp     +++|*         *ENDMS* MACRO DEFINED IN *COMPMAC*.  IF THIS LOCATION
00106  M00S00103.6dp     +++|*         CHANGES, THE DEFINITION OF *.EMS* MUST BE CHANGED IN
00107  M00S00104.6dp     +++|*         *PPCOM* AND ALL PROGRAMS USING THE *ENDMS*
00108  M00S00105.6dp     +++|*         MACRO MUST BE REASSEMBLED.
00109  M00S00106.6dp     +++|
00110  M00S00107.6dp     +++|
00111  M00S00108.6dp     +++| .EMS     SUBR               ENTRY/EXIT - END MASS STORAGE OPERATION
00112  M00S00109.6dp     +++|          LDN    0
00113  M00S00110.6dp     +++|          RJM    DSW         *DSWM* PROCESSING
00114  M00S00111.6dp     +++|          UJN    .EMSX       RETURN
00115  M00S00112.6dp     +++| RDS      SPACE  4
00116  M00S00113.6dp     +++|**        RDS - READ SECTOR.
00117  M00S00114.6dp     +++|*
00118  M00S00115.6dp     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00119  M00S00116.6dp     +++|*
00120  M00S00117.6dp     +++|*         EXIT   (A) < 0, IF UNRECOVERABLE PARITY ERROR.
00121  M00S00118.6dp     +++|*
00122  M00S00119.6dp     +++|*         CALLS  LDE.
00123  M00S00120.6dp     +++|
00124  M00S00121.6dp     +++|
00125  M00S00122.6dp     +++| RDS.     STM    RDSA        SET BUFFER ADDRESS
00126  M00S00123.6dp     +++|          LDC    50S12+RDS
00127  M00S00124.6dp     +++|          UJN    LDE         REQUEST READ
00128  M00S00125.6dp     +++| WDS      SPACE  4
00129  M00S00126.6dp     +++|**        WDS - WRITE SECTOR.
00130  M00S00127.6dp     +++|*
00131  M00S00128.6dp     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00132  M00S00129.6dp     +++|*
00133  M00S00130.6dp     +++|*         EXIT   (A) < 0, IF UNRECOVERABLE PARITY ERROR.
00134  M00S00131.6dp     +++|*
00135  M00S00132.6dp     +++|*         CALLS  LDE.
00136  M00S00133.6dp     +++|
00137  M00S00134.6dp     +++|
00138  M00S00135.6dp     +++| WDS.     STM    WDSA        SET BUFFER ADDRESS
00139  M00S00136.6dp     +++|          LDC    51S12+WDS
00140  M00S00137.6dp     +++|*         UJN    LDE         REQUEST WRITE
00141  M00S00138.6dp     +++| LDE      SPACE  4,10
00142  M00S00139.6dp     +++|**        LDE - TRANSFER DATA TO/FROM ECS.
00143  M00S00140.6dp     +++|*
00144  M00S00141.6dp     +++|*         ENTRY  (A) = 6/ OPTION,12/ ENTRY
00145  M00S00142.6dp     +++|*                      50 = READ.
00146  M00S00143.6dp     +++|*                      51 = WRITE.

Seq #  *Modification Id* Act 
----------------------------+
00147  M01S00003.252l678 +++|*                (LDEF) = EM TRACK SHIFT COUNT.
00148  M00S00144.6dp     +++|*                (RDSA) = BUFFER ADDRESS IF READ.
00149  M00S00145.6dp     +++|*                (WDSA) = BUFFER ADDRESS IF WRITE.
00150  M00S00146.6dp     +++|*
00151  M00S00147.6dp     +++|*         EXIT   TO *RDSX*/*WDSX* WITH (A) =0 IF NO ERROR.
00152  M00S00148.6dp     +++|*                TO *ERR* IF ERROR.
00153  M00S00149.6dp     +++|*
00154  M00S00150.6dp     +++|*         CALLS  SFN, STS.
00155  M00S00151.6dp     +++|
00156  M00S00152.6dp     +++|
00157  M00S00153.6dp     +++| LDE      STD    T0          SAVE ENTRY ADDRESS
00158  M00S00154.6dp     +++|          SHN    -14
00159  M00S00155.6dp     +++|          STI    D1          SET OPERATION
00160  M00S00156.6dp     +++| LDEA     SBN    50
00161  M00S00157.6dp     +++|*         SBN    51          (DRIVER SET FOR WRITE)
00162  M00S00158.6dp     +++|          ZJN    LDE0        IF DRIVER SET FOR REQUESTED OPERATION
00163  M00S00159.6dp     +++|          RAM    LDEA
00164  M00S00160.6dp     +++|          LDM    LDED        SET PROPER JUMP
00165  M00S00161.6dp     +++|          LMN    .A&.B
00166  M00S00162.6dp     +++|          ERRPL  LDE3.1-LDED-40  JUMP OUT OF RANGE
00167  M00S00163.6dp     +++|          ERRPL  LDE5-LDED-40  JUMP OUT OF RANGE
00168  M00S00164.6dp     +++|          STM    LDED
00169  M00S00165.6dp     +++| LDE0     LDI    T0          SET RETURN ADDRESS
00170  M00S00166.6dp     +++|          STM    LDEE
00171  M00S00167.6dp     +++|
00172  M00S00168.6dp     +++|*         REENTER HERE FOR ERROR RETRY.
00173  M00S00169.6dp     +++|
00174  M00S00170.6dp     +++| LDE1     LDN    1
00175  M00S00171.6dp     +++|          RJM    DSW         CHECK FOR CHANNEL RESERVED
00176  M00S00172.6dp     +++|          LDD    T6          COMPUTE HEADER ADDRESS
00177  M00S00173.6dp     +++|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00174.252l678 ---|          SHN    4

Seq #  *Modification Id* Act 
----------------------------+
00179  M01S00004.252l678 +++| LDEF     SHN    4
00180  M01S00005.252l678 +++|*         SHN    4+EMTS      (EMTS = EM TRACK SHIFT COUNT)
00181  M00S00175.6dp     +++|          STD    CM+1
00182  M00S00176.6dp     +++|          SHN    -6
00183  M00S00177.6dp     +++|          STD    CM
00184  M00S00178.6dp     +++|          SHN    -6
00185  M00S00179.6dp     +++|          RAD    CM
00186  M00S00180.6dp     +++|          LDC    **          LARGEST TRACK VALUE
00187  M00S00181.6dp     +++| LDEB     EQU    *-1
00188  M00S00182.6dp     +++|          SBD    T6

Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00183.252l678 ---|          MJN    LDE2        IF TRACK TOO LARGE
00190  M01S00184.252l678 ---|          LDN    SLDP-1
00191  M01S00185.252l678 ---|          SBD    T7
00192  M01S00186.252l678 ---| LDE2     MJN    LDE4        IF SECTOR TOO LARGE

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00006.252l678 +++|          MJN    LDE4        IF TRACK TOO LARGE
00194  M01S00007.252l678 +++|          LDD    T7
00195  M01S00008.252l678 +++|          SBM    SLM
00196  M01S00009.252l678 +++|          PJN    LDE4        IF SECTOR TOO LARGE
00197  M00S00187.6dp     +++|          LDD    CM+1
00198  M00S00188.6dp     +++|          LPN    77
00199  M00S00189.6dp     +++|          SHN    6
00200  M00S00190.6dp     +++|          ADD    T7
00201  M00S00191.6dp     +++| LDE3     RAD    CM+1
00202  M00S00192.6dp     +++|          SHN    -14
00203  M00S00193.6dp     +++|          RAD    CM
00204  M00S00194.6dp     +++|          LDI    D1          LOAD READ OR WRITE FUNCTION
00205  M00S00195.6dp     +++|          LPN    7
00206  M00S00196.6dp     +++|          RJM    SFN         SEND FUNCTION
00207  M00S00197.6dp     +++|          LDN    2
00208  M00S00198.6dp     +++|          OAM    CM,CH       OUTPUT ADDRESS
00209  M00S00199.6dp     +++|          LDI    D1          SET WORD COUNT
00210  M00S00200.6dp     +++|          SHN    -3
00211  M00S00201.6dp     +++| LDED     UJN    LDE3.1      READ OPERATION
00212  M00S00202.6dp     +++|*         UJN    LDE5        (WRITE OPERATION)
00213  M00S00203.6dp     +++|
00214  M00S00204.6dp     +++| LDE3.1   IAM    *,CH
00215  M00S00205.6dp     +++| RDSA     EQU    *-1         READ BUFFER ADDRESS
00216  M00S00206.6dp     +++| .A       EQU    LDE3.1-LDED
00217  M00S00207.6dp     +++|          UJN    LDE6        CHECK STATUS
00218  M00S00208.6dp     +++|
00219  M00S00209.6dp     +++| LDE4     LDN    ADDE        SET ADDRESS ERROR
00220  M00S00210.6dp     +++|          UJN    LDE10       PROCESS ERROR
00221  M00S00211.6dp     +++|
00222  M00S00212.6dp     +++| LDE5     OAM    *,CH
00223  M00S00213.6dp     +++| WDSA     EQU    *-1
00224  M00S00214.6dp     +++| .B       EQU    LDE5-LDED
00225  M00S00215.6dp     +++|          FJM    *,CH        IF DATA NOT ACCEPTED BY CONTROLLER
00226  M00S00216.6dp     +++| LDE6     STM    ERRB        SAVE BYTE COUNT
00227  M00S00217.6dp     +++|          DCN    CH+40
00228  M00S00218.6dp     +++|
00229  M00S00219.6dp     +++|*         (T0) = P ADDRESS OF IAM/OAM INSTRUCTION.
00230  M00S00220.6dp     +++|
00231  M00S00221.6dp     +++| LDE7     SOD    T0
00232  M00S00222.6dp     +++|          ZJN    LDE9        IF TIME OUT
00233  M00S00223.6dp     +++|          LDN    4-1         SELECT STATUS
00234  M00S00224.6dp     +++|          RJM    SFN         SELECT FUNCTION
00235  M00S00225.6dp     +++|          IAN    CH+40
00236  M00S00226.6dp     +++|          DCN    CH+40
00237  M00S00227.6dp     +++|          STM    STSA
00238  M00S00228.6dp     +++|          LMN    2
00239  M00S00229.6dp     +++|          NJN    LDE7.1      IF NOT ACCEPT STATUS
00240  M00S00230.6dp     +++|          LDC    **          CHECK REMAINING BYTE COUNT
00241  M00S00231.6dp     +++| ERRB     EQU    *-1
00242  M00S00232.6dp     +++|          NJN    LDE8        IF INCOMPLETE TRANSFER
00243  M00S00233.6dp     +++|          LDI    D1
00244  M00S00234.6dp     +++|          LPN    70
00245  M00S00235.6dp     +++|          NJN    LDE12       IF HEADER OPERATION
00246  M00S00236.6dp     +++|          LJM    *           RETURN
00247  M00S00237.6dp     +++| LDEE     EQU    *-1
00248  M00S00238.6dp     +++|
00249  M00S00239.6dp     +++| LDE7.1   SCN    13
00250  M00S00240.6dp     +++|          ZJN    LDE7        IF NO PARITY ERROR
00251  M00S00241.6dp     +++| LDE8     LDN    PARE&DSTE
00252  M00S00242.6dp     +++| LDE9     LMN    DSTE
00253  M00S00243.6dp     +++| LDE10    UJN    ERR         PROCESS ERROR
00254  M00S00244.6dp     +++|
00255  M00S00245.6dp     +++| LDE12    LDC    5000-50     SET DATA WORD COUNT
00256  M00S00246.6dp     +++|          RAI    D1
00257  M00S00247.6dp     +++|          LDN    2           SET DATA BUFFER ADDRESS
00258  M00S00248.6dp     +++|          RAM    RDSA
00259  M00S00249.6dp     +++|          LDN    2
00260  M00S00250.6dp     +++|          RAM    WDSA
00261  M00S00251.6dp     +++|          LDD    T7
00262  M00S00252.6dp     +++|          SHN    6
00263  M00S00253.6dp     +++|          SBD    T7

Seq #  *Modification Id* Act 
----------------------------+
00264  M01S00254.252l678 ---|          ADN    SLDP

Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00010.252l678 +++|          ADM    SLM
00266  M00S00255.6dp     +++|          LJM    LDE3        PROCESS DATA
00267  M00S00256.6dp     +++| SFN      SPACE  4,10
00268  M00S00257.6dp     +++|**        SFN - SELECT FUNCTION.
00269  M00S00258.6dp     +++|*
00270  M00S00259.6dp     +++|*         ENTRY  (A) = FUNCTION CODE - 1.
00271  M00S00260.6dp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00272  M01S00261.6dp2    ---|*         EXIT   FUNCTION SELECTED OR (FTNA) = FUNCTION SELECTED.

Seq #  *Modification Id* Act 
----------------------------+
00273  M01S00001.6dp2    +++|*         EXIT   FUNCTION SELECTED.
00274  M00S00262.6dp     +++|*                TO *ERR* IF FUNCTION TIMEOUT.
00275  M00S00263.6dp     +++|
00276  M00S00264.6dp     +++|
00277  M00S00265.6dp     +++| SFN2     ACN    CH
00278  M00S00266.6dp     +++|
00279  M00S00267.6dp     +++| SFN      SUBR               ENTRY/EXIT
00280  M00S00268.6dp     +++|          ADC    SC+1

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00269.6dp2    ---|          STM    FTNA        SAVE FUNCTION
00282  M00S00270.6dp     +++|          FAN    CH+40
00283  M00S00271.6dp     +++| SFN1     IJM    SFN2,CH     IF SELECT ACCEPTED
00284  M00S00272.6dp     +++|          SBN    1
00285  M00S00273.6dp     +++|          NJN    SFN1        IF NOT TIMED OUT
00286  M00S00274.6dp     +++|          LDN    FTOE
00287  M00S00275.6dp     +++|*         UJN    ERR         PROCESS ERROR
00288  M00S00276.6dp     +++| ERR      SPACE  4,10
00289  M00S00277.6dp     +++|**        ERR -  ERROR PROCESSOR.
00290  M00S00278.6dp     +++|*
00291  M00S00279.6dp     +++|*         ENTRY  (A) = ERROR CODE, IF ENTRY AT *ERR*.
00292  M00S00280.6dp     +++|*                      PARE = PARITY ERROR.
00293  M00S00281.6dp     +++|*                      ADDE = ADDRESS ERROR.
00294  M00S00282.6dp     +++|*                      DSTE = WRITE TIMEOUT. (STATUS ERROR)
00295  M00S00283.6dp     +++|*                      FTOE = FUNCTION TIMEOUT.
00296  M00S00284.6dp     +++|*         EXIT   TO *7DP* IF ENTRY AT *ERR*.
00297  M00S00285.6dp     +++|*                TO *7SP* IF ENTRY AT *ERR2*.
00298  M00S00286.6dp     +++|
00299  M00S00287.6dp     +++|
00300  M00S00288.6dp     +++| ERR      DCN    CH+40
00301  M00S00289.6dp     +++|          STM    ERRA        SAVE ERROR CODE
00302  M00S00290.6dp     +++| ERR1     MSERR  7DP,*
00303  M00S00291.6dp     +++|          UJN    ERR3        LOAD *7DP*
00304  M00S00292.6dp     +++|
00305  M00S00293.6dp     +++| ERR2     MSERR  7SP,*
00306  M00S00294.6dp     +++| ERR3     LJM    LEP1        LOAD ERROR PROCESSOR
00307  M00S00295.6dp     +++| DSW      SPACE  4,10
00308  M00S00296.6dp     +++|**        DSW - DRIVER SERVICE PROCESSING.
00309  M00S00297.6dp     +++|*
00310  M00S00298.6dp     +++|*         ENTRY  (A) = 1,  CHECK IF CHANNEL RESERVED.
00311  M00S00299.6dp     +++|*                (A) = 0,  RELEASE CHANNEL.
00312  M00S00300.6dp     +++|*
00313  M00S00301.6dp     +++|*         EXIT   (A) = 0.

Seq #  *Modification Id* Act 
----------------------------+
00314  M01S00011.252l678 +++|*                (LDEF) = EM TRACK SHIFT COUNT.
00315  M01S00012.252l678 +++|*                (MSEA) = EM TRACK SHIFT COUNT.
00316  M00S00302.6dp     +++|*
00317  M00S00303.6dp     +++|*         USES   T0, T1, CM - CM+4.
00318  M00S00304.6dp     +++|*
00319  M00S00305.6dp     +++|*         MACROS MONITOR.
00320  M00S00306.6dp     +++|
00321  M00S00307.6dp     +++|
00322  M00S00308.6dp     +++| DSW2     RAI    T0
00323  M00S00309.6dp     +++|          AOD    CM+2
00324  M00S00310.6dp     +++| DSW3     LDM    TCHS-12,CM+2
00325  M00S00311.6dp     +++|          STD    T0
00326  M00S00312.6dp     +++|          LDD    T4
00327  M00S00313.6dp     +++| DSWA     SBN    CH
00328  M00S00314.6dp     +++|          NJN    DSW2        IF MORE INSTRUCTIONS TO MODIFY
00329  M00S00315.6dp     +++|
00330  M00S00316.6dp     +++| DSW      SUBR               ENTRY/EXIT
00331  M00S00317.6dp     +++|          STD    CM+3        SET *DSWM* REQUEST CODE
00332  M00S00318.6dp     +++|          LMM    CHRV
00333  M00S00319.6dp     +++|          LPN    1
00334  M00S00320.6dp     +++|          ZJN    DSWX        IF CORRECT CHANNEL STATUS
00335  M00S00321.6dp     +++|          LDM    CHRV        SET CHANNEL STATUS AND FLAGS FOR *DSWM*
00336  M00S00322.6dp     +++|          STD    CM
00337  M00S00323.6dp     +++| DSW1     LDD    OA

Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00324.6dp2    ---|          CRM    PRSA,ON
00339  M01S00325.6dp2    ---|          LDM    PRSA

Seq #  *Modification Id* Act 
----------------------------+
00340  M01S00002.6dp2    +++|          CRM    SBUF,ON
00341  M01S00003.6dp2    +++|          LDM    SBUF
00342  M00S00326.6dp     +++|          NJN    DSW1        IF OUTPUT REGISTER BUSY
00343  M00S00327.6dp     +++|          LDD    MA          WRITE *DSWM* PARAMETERS
00344  M00S00328.6dp     +++|          CWD    T4
00345  M00S00329.6dp     +++|          MONITOR  DSWM
00346  M00S00330.6dp     +++|          LDD    MA          READ UPDATED CHANNEL
00347  M00S00331.6dp     +++|          CRD    T4
00348  M00S00332.6dp     +++|          LDD    CM+3        SET CHANNEL STATUS
00349  M00S00333.6dp     +++|          STM    CHRV
00350  M00S00334.6dp     +++|          LJM    DSW3        MODIFY INSTRUCTIONS
00351  M00S00335.6dp     +++|          SPACE  4
00352  M00S00336.6dp     +++|**        CHANNEL TABLE.
00353  M00S00337.6dp     +++|
00354  M00S00338.6dp     +++|
00355  M00S00339.6dp     +++|          CHTL   DSWA        TERMINATE CHANNEL TABLE
00356  M00S00340.6dp     +++| TCHS     CHTB
00357  M00S00341.6dp     +++|
00358  M00S00342.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00343.6dp2    ---| FTNA     CON    0           FUNCTION LAST ISSUED

Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00004.6dp2    +++| SBUF     BSS    5           SCRATCH BUFFER
00361  M00S00344.6dp     +++| PRS      SPACE  4
00362  M00S00345.6dp     +++|**        PRS - PRESET DRIVER.
00363  M00S00346.6dp     +++|*
00364  M00S00347.6dp     +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00365  M00S00348.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00366  M01S00349.6dp2    ---| PRS      LDD    CM+4        READ TDGL OF MST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00367  M01S00005.6dp2    +++| PRS      LDD    CM+4        GET MAXIMUM TRACK
00368  M00S00350.6dp     +++|          SHN    3
00369  M00S00351.6dp     +++|          ADK    TDGL

Seq #  *Modification Id* Act 
----------------------------+
00370  M01S00352.6dp2    ---|          CRM    PRSA,ON
00371  M01S00353.6dp2    ---|          SOM    PRSA

Seq #  *Modification Id* Act 
----------------------------+
00372  M01S00006.6dp2    +++|          CRM    SBUF,ON
00373  M01S00007.6dp2    +++|          SOM    SBUF
00374  M00S00354.6dp     +++|          ADC    4000
00375  M00S00355.6dp     +++|          STM    LDEB

Seq #  *Modification Id* Act 
----------------------------+
00376  M01S00013.252l678 +++|          LDI    D1          GET EM TRACK SHIFT COUNT
00377  M01S00014.252l678 +++|          SHN    -6
00378  M01S00015.252l678 +++|          LPN    3
00379  M01S00016.252l678 +++|          ADC    SHNI+4
00380  M01S00017.252l678 +++|          STM    LDEF
00381  M00S00356.6dp     +++|          LJM    SMSX        RETURN
00382  M00S00357.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00358.6dp2    ---| PRSA     BSS    0           FIVE BYTES FOR READING LARGEST TRACK

Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00359.6dp2    ---|          ERRNG  PPFW-5-*-5  OVERFLOW OF PRSA

Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00001.6dp2    ---| .1       SET    *+5+4-MSFW  CHECK FOR OVERFLOW
00386  M02S00002.6dp2    ---| .1       SET    .1/5
00387  M02S00003.6dp2    ---| .1       SET    MSFW+.1*5
00388  M02S00004.6dp2    ---| .2       SET    PPFW-5-*-5  BYTES AVAILABLE BEFORE OVERFLOW
00389  M02S00005.6dp2    ---|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5

Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00008.6dp2    +++|
00391  M01S00009.6dp2    +++|          OVERFLOW  MSFW,PPFW-5,CMR

Seq #  *Modification Id* Act 
----------------------------+
00392  M01S00360.252l678 ---| 7DP      MSOVL  7524,T2,EPFW-1,(DDP/ECS ERROR PROCESSOR.)

Seq #  *Modification Id* Act 
----------------------------+
00393  M01S00018.252l678 +++| 7DP      MSOVL  7512,T2,EPFW-1,(DDP/ECS ERROR PROCESSOR.)
00394  M00S00361.6dp     +++|          SPACE  4,10
00395  M00S00362.6dp     +++|*****     7DP - DDP/ECS ERROR PROCESSOR.
00396  M00S00363.6dp     +++|*         W. E. GOEBEL       78/10/18.
00397  M00S00364.6dp     +++|*
00398  M00S00365.6dp     +++|          SPACE  4
00399  M00S00366.6dp     +++|***       *7DP* IS CALLED WHEN AN UNRECOVERED ECS ABORT HAS OCCURRED.
00400  M00S00367.6dp     +++|*         *7RP* IS CALLED TO COMPLETE THE INITIAL DATA TRANSFER AFTER
00401  M00S00368.6dp     +++|*         AN ECS PARITY ERROR HAS OCCURRED DURING AN ECS READ FUNCTION.
00402  M00S00369.6dp     +++|*         FOR AN ECS PARITY ERROR DURING A ECS READ OR WRITE FUNCTION
00403  M00S00370.6dp     +++|*         *7DP* CALLS *7SP* TO PERFORM SINGLE WORD REREAD/REWRITE OF THE
00404  M00S00371.6dp     +++|*         BLOCK IN AN ATTEMPT TO RECOVER FROM THE ERROR.  *7DP* EXITS
00405  M00S00372.6dp     +++|*         TO CALL *7ER* OR *7ES* TO ISSUE APPROPRIATE FINAL ERROR
00406  M00S00373.6dp     +++|*         MESSAGES.
00407  M00S00374.6dp     +++| MSE      SPACE  4
00408  M00S00375.6dp     +++|          QUAL
00409  M00S00376.6dp     +++| BEGIN    BSSN   PRS
00410  M00S00377.6dp     +++| ERRA     BSSN   1           ERROR FLAG WORD
00411  M00S00378.6dp     +++| ADDR     BSSN   1           BUFFER ADDRESS
00412  M00S00379.6dp     +++| ECSA     BSSN   2           ECS ADDRESS (2 BYTES)
00413  M00S00380.6dp     +++| WDCT     BSSN   1           WORD COUNT OF BLOCK
00414  M00S00381.6dp     +++| RECF     BSSN   1           ERROR TYPE FLAG
00415  M00S00382.6dp     +++| SPSA     BSSN   1           *7SP* STATUS
00416  M00S00383.6dp     +++|          ERRNG  DEFW-*      *7DP*/COMMON ERROR PROCESSOR CONFLICT
00417  M00S00384.6dp     +++| END      BSSN
00418  M00S00385.6dp     +++|          QUAL   *
00419  M00S00386.6dp     +++| MSE      SPACE  4,10
00420  M00S00387.6dp     +++|**        MSE - MASS STORAGE ERROR PROCESSOR.
00421  M00S00388.6dp     +++|*
00422  M00S00389.6dp     +++|*         ENTRY  (T1) = ERRA.
00423  M00S00390.6dp     +++|*                (T2) = RDCT.
00424  M00S00391.6dp     +++|*                (T4 - T7) = DRIVER PARAMETERS.
00425  M00S00392.6dp     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.

Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00393.253l688 ---|*                         BIT 4 = 0 IF FIRST RETRY ATTEMPT.

Seq #  *Modification Id* Act 
----------------------------+
00427  M01S00001.253l688 +++|*                         BIT 6 = 0 IF FIRST RETRY ATTEMPT.
00428  M00S00394.6dp     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
00429  M00S00395.6dp     +++|*                         BIT 12 = 1 IF *7MP* IS REPORTING AN
00430  M00S00396.6dp     +++|*                                  UNRECOVERED PARITY ERROR.
00431  M00S00397.6dp     +++|*                ((D1)) BIT 0 = 0 IF READ, 1 IF WRITE.
00432  M00S00398.6dp     +++|*                ((D1)) BITS 3-11 = TOTAL BYTE COUNT (5 FOR HEADER
00433  M00S00399.6dp     +++|*                OPERATION, 500 FOR DATA OPERATION).

Seq #  *Modification Id* Act 
----------------------------+
00434  M01S00400.253l688 ---|*T ERRA   2/ OP,1/ D,2/ 0,1/ R,1/ A,1/ S,4/ EC

Figure ERRA

Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00002.253l688 +++|*T ERRA   2/ OP,1/ D,1/ A,1/ S,1/ R,6/ EC

Figure ERRA

00436  M00S00401.6dp     +++|*                OP = OPERATION.
00437  M00S00402.6dp     +++|*                    0 = READ HEADER.
00438  M00S00403.6dp     +++|*                    1 = READ DATA.
00439  M00S00404.6dp     +++|*                    2 = WRITE HEADER.
00440  M00S00405.6dp     +++|*                    3 = WRITE DATA.
00441  M00S00406.6dp     +++|*                D = DDP TYPE.
00442  M00S00407.6dp     +++|*                    0 = DC145.
00443  M00S00408.6dp     +++|*                    1 = DC135.

Seq #  *Modification Id* Act 
----------------------------+
00444  M01S00003.253l688 +++|*                A = *7RP*/*7SP* ABORT FLAG.
00445  M01S00004.253l688 +++|*                S = *7SP* CALL FLAG (SET IF CALLED).
00446  M00S00409.6dp     +++|*                R = *7RP* CALL FLAG (SET IF CALLED)

Seq #  *Modification Id* Act 
----------------------------+
00447  M01S00410.253l688 ---|*                A = *7RP*/*7SP* ABORT FLAG.
00448  M01S00411.253l688 ---|*                S = *7SP* CALL FLAG (SET IF CALLED)
00449  M00S00412.6dp     +++|*                EC = ERROR CODE AS DEFINED IN *COMSMSP*.
00450  M00S00413.6dp     +++|*         (ERRB) = BYTES LEFT TO BE TRANSFERED IF DISCONNECT ON I/O.
00451  M00S00414.6dp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00452  M01S00415.252l678 ---|*         EXIT   (DEDT) = 8/0, 4/*6DP* DRIVER TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00453  M01S00019.252l678 +++|*         EXIT   (DEDT) = ERROR PROCESSING CONTROL WORD.
00454  M01S00020.252l678 +++|*                         BITS AFFECTED BY THIS OVERLAY -
00455  M01S00021.252l678 +++|*                         BITS 3 - 0 = *6DP* DRIVER TYPE.
00456  M01S00022.252l678 +++|*                         BIT 4 = 1 IF RETURN TO *7SP*.
00457  M00S00416.6dp     +++|*                (DEEC) = ERROR CODE.
00458  M00S00417.6dp     +++|*                (DENR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00459  M00S00418.6dp     +++|*                (DERC) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00460  M00S00419.6dp     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
00461  M00S00420.6dp     +++|*                (DEST) = 0.
00462  M00S00421.6dp     +++|*                (DEWR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00463  M00S00422.6dp     +++|*                (DEXA) = EXIT ADDRESS.
00464  M00S00423.6dp     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.

Seq #  *Modification Id* Act 
----------------------------+
00465  M01S00424.253l688 ---|*                         BIT 4 = 1.

Seq #  *Modification Id* Act 
----------------------------+
00466  M01S00005.253l688 +++|*                         BIT 6 = 1.
00467  M00S00425.6dp     +++|*
00468  M00S00426.6dp     +++|*         USES   CM - CM+4, T0 - T2.
00469  M00S00427.6dp     +++|*
00470  M00S00428.6dp     +++|*         MACROS ENDMS, MSERR.
00471  M00S00429.6dp     +++|
00472  M00S00430.6dp     +++|
00473  M00S00431.6dp     +++| DDP      ENTRY              *7DP* ENTRY
00474  M00S00432.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00023.252l678 +++|          LDM    LDEF
00476  M01S00024.252l678 +++|          STM    MSEA        USE EXISTING INSTRUCTION TO SAVE SPACE
00477  M00S00433.6dp     +++|          SFA    EST,T5      READ EST ENTRY
00478  M00S00434.6dp     +++|          ADK    EQDE
00479  M00S00435.6dp     +++|          CRD    CM
00480  M00S00436.6dp     +++|          LDD    CM+4        READ DILL OF MST ENTRY
00481  M00S00437.6dp     +++|          SHN    3
00482  M00S00438.6dp     +++|          ADN    DILL
00483  M00S00439.6dp     +++|          CRD    CM
00484  M00S00440.6dp     +++|          SOD    CM+3        SET DDP TYPE
00485  M00S00441.6dp     +++|          LPN    1
00486  M00S00442.6dp     +++|          STD    CM+2
00487  M00S00443.6dp     +++|          LDI    D1          SET READ WRITE FLAG
00488  M00S00444.6dp     +++|          LPN    1
00489  M00S00445.6dp     +++|          STM    DERW
00490  M00S00446.6dp     +++|          ERRPL  DERW-*      STORE DESTROYS CODE
00491  M00S00447.6dp     +++|          ERRNZ  REDP        CODE DEPENDS OF VALUE OF *REDP*
00492  M00S00448.6dp     +++|          ERRNZ  WRIP-1      CODE DEPENDS OF VALUE OF *WRIP*
00493  M00S00449.6dp     +++|          ZJN    MSE1        IF READ OPERATION
00494  M00S00450.6dp     +++|          SHN    2
00495  M00S00451.6dp     +++|          RAD    CM+2        SET WRITE OPERATION
00496  M00S00452.6dp     +++|          LDN    WDSA-RDSA
00497  M00S00453.6dp     +++| MSE1     ADC    RDSA        SET BUFFER LOCATION
00498  M00S00454.6dp     +++|          STD    CM
00499  M00S00455.6dp     +++|          LDC    LDE1        SAVE ERROR EXIT RETURN ADDRESS
00500  M00S00456.6dp     +++|          STM    DEXA
00501  M00S00457.6dp     +++|          ERRPL  DEXA-*      STORE DESTROYS CODE
00502  M00S00458.6dp     +++|          LDI    T2

Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00459.253l688 ---|          LPN    20

Seq #  *Modification Id* Act 
----------------------------+
00504  M01S00006.253l688 +++|          LPC    100
00505  M00S00460.6dp     +++|          NJN    MSE1.1      IF NOT FIRST RETRY ATTEMPT
00506  M00S00461.6dp     +++|          STM    DENR        INITIALIZE *NON-RECOVERABLE ERROR* FLAG
00507  M00S00462.6dp     +++|          STM    DERC        INITIALIZE RETRY COUNT
00508  M00S00463.6dp     +++|          STM    DEWR        INITIALIZE *DATA WRITTEN/READ* FLAG

Seq #  *Modification Id* Act 
----------------------------+
00509  M01S00464.253l688 ---|          LDN    20          SET *ERROR RECOVERY IN PROGRESS* FLAG

Seq #  *Modification Id* Act 
----------------------------+
00510  M01S00007.253l688 +++|          LDD    HN          SET RECOVERY IN PROGRESS FLAG
00511  M00S00465.6dp     +++|          STI    T2
00512  M00S00466.6dp     +++|          LDD    T4          SAVE INITIAL CHANNEL
00513  M00S00467.6dp     +++|          STM    MSFW

Seq #  *Modification Id* Act 
----------------------------+
00514  M01S00468.ns2741  ---| MSE1.1   LDK    /COMSDFS/D6DP  SAVE DRIVER TYPE FOR *7EL*

Seq #  *Modification Id* Act 
----------------------------+
00515  M01S00001.ns2741  +++| MSE1.1   LDK    /COMSDFS/D6DP  SAVE DRIVER TYPE FOR *7EK*
00516  M00S00469.6dp     +++|          STM    DEDT
00517  M00S00470.6dp     +++|          ERRPL  DEDT-*      STORE DESTROYS CODE
00518  M00S00471.6dp     +++|          LDI    T1

Seq #  *Modification Id* Act 
----------------------------+
00519  M01S00472.253l688 ---|          SCN    17

Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00008.253l688 +++|          SCN    77
00521  M00S00473.6dp     +++|          NJN    MSE3        IF CALLED FROM *7RP* OR *7SP*
00522  M00S00474.6dp     +++|          STM    DEST        INITIALIZE ERROR PROCESSING CONTROL WORD
00523  M00S00475.6dp     +++|          ERRPL  DEST-*      CODE DESTROYED
00524  M00S00476.6dp     +++|          LDI    CM
00525  M00S00477.6dp     +++|          STM    ADDR        SET BUFFER ADDRESS
00526  M00S00478.6dp     +++|          LDI    D1
00527  M00S00479.6dp     +++|          SHN    -5
00528  M00S00480.6dp     +++|          SCN    76
00529  M00S00481.6dp     +++|          STM    WDCT
00530  M00S00482.6dp     +++|          SHN    -6
00531  M00S00483.6dp     +++|          ZJN    MSE2        IF HEADER OPERATION
00532  M00S00484.6dp     +++|          LCN    2
00533  M00S00485.6dp     +++|          RAI    CM
00534  M00S00486.6dp     +++|          LDC    50-5000     RESET DRIVER FOR HEADER OPERATION
00535  M00S00487.6dp     +++|          RAI    D1
00536  M00S00488.6dp     +++|          LDN    2           FLAG ERROR IN DATA OPERATION
00537  M00S00489.6dp     +++| MSE2     LMD    CM+2
00538  M00S00490.6dp     +++|          SHN    13-2        APPEND STATUS FLAGS TO *ERRA*
00539  M00S00491.6dp     +++|          RAI    T1
00540  M00S00492.6dp     +++| MSE3     LPC    2000
00541  M00S00493.6dp     +++|          ZJN    MSE4        IF HEADER OPERATION

Seq #  *Modification Id* Act 
----------------------------+
00542  M01S00494.252l678 ---|          LDD    T7          DATA ADDRESS = HEADER + 20 + 77 * SECTOR

Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00025.252l678 +++|
00544  M01S00026.252l678 +++|*         DATA ADDRESS = HEADER ADDRESS + SECTOR LIMIT + 77 * SECTOR
00545  M01S00027.252l678 +++|
00546  M01S00028.252l678 +++|          LDD    T7
00547  M00S00495.6dp     +++|          SHN    6
00548  M00S00496.6dp     +++|          SBD    T7

Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00497.252l678 ---|          ADN    SLDP
00550  M01S00498.252l678 ---| MSE4     STD    T0
00551  M01S00499.252l678 ---|          LDD    T6          HEADER ADDRESS = TRACK * 2020 + SECTOR

Seq #  *Modification Id* Act 
----------------------------+
00552  M01S00029.252l678 +++|          ADM    SLM
00553  M01S00030.252l678 +++| MSE4     STD    T2
00554  M01S00031.252l678 +++|          SHN    -14
00555  M01S00032.252l678 +++|          STD    T0
00556  M01S00033.252l678 +++|
00557  M01S00034.252l678 +++|*         HEADER ADDRESS = TRACK * SECTOR LIMIT * 101 + SECTOR
00558  M01S00035.252l678 +++|
00559  M01S00036.252l678 +++|          LDD    T6
00560  M00S00500.6dp     +++|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
00561  M01S00501.252l678 ---|          SHN    4

Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00037.252l678 +++| MSEA     SHN    4
00563  M01S00038.252l678 +++|*         SHN    4+EMTS      (EMTS = EM TRACK SHIFT COUNT)
00564  M00S00502.6dp     +++|          STD    CM+4
00565  M00S00503.6dp     +++|          SHN    -6
00566  M00S00504.6dp     +++|          STD    CM+3
00567  M00S00505.6dp     +++|          SHN    -6
00568  M00S00506.6dp     +++|          RAD    CM+3
00569  M00S00507.6dp     +++|          LDD    CM+4
00570  M00S00508.6dp     +++|          LPN    77
00571  M00S00509.6dp     +++|          SHN    6
00572  M00S00510.6dp     +++|          ADD    T7

Seq #  *Modification Id* Act 
----------------------------+
00573  M01S00511.252l678 ---|          ADD    T0

Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00039.252l678 +++|          ADD    T2
00575  M00S00512.6dp     +++|          RAD    CM+4
00576  M00S00513.6dp     +++|          STM    ECSA+1
00577  M00S00514.6dp     +++|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
00578  M01S00040.252l678 +++|          ADD    T0
00579  M00S00515.6dp     +++|          RAD    CM+3
00580  M00S00516.6dp     +++|          STM    ECSA

Seq #  *Modification Id* Act 
----------------------------+
00581  M01S00517.ns2741  ---|          LDI    CM          SAVE BUFFER ADDRESS FOR *7EL*

Seq #  *Modification Id* Act 
----------------------------+
00582  M01S00002.ns2741  +++|          LDI    CM          SAVE BUFFER ADDRESS FOR *7EK*
00583  M00S00518.6dp     +++|          STD    T2
00584  M00S00519.6dp     +++|          LDN    0           DEFAULT IS NO FIRST OR SECOND WORD PRESENT
00585  M00S00520.6dp     +++|          STD    CM

Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00521.6dp2    ---|          STD    CM+1        DEFAULT IS NO DDP FUNCTION STATUS PRESENT

Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00010.6dp2    +++|          LDM    STSA        DEFAULT STATUS IS LAST STATUS
00588  M01S00011.6dp2    +++|          STD    CM+1
00589  M00S00522.6dp     +++|          LDM    WDCT        ADD WORD COUNT TO MESSAGE
00590  M00S00523.6dp     +++|          STD    CM+2
00591  M00S00524.6dp     +++|          LDI    T1          SAVE ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00525.253l688 ---|          LPN    17

Seq #  *Modification Id* Act 
----------------------------+
00593  M01S00009.253l688 +++|          LPN    77
00594  M00S00526.6dp     +++|          STM    DEEC
00595  M00S00527.6dp     +++|          ERRPL  DEEC-*      CODE DESTROYED
00596  M00S00528.6dp     +++|          LMK    PARE
00597  M00S00529.6dp     +++|          NJN    MSE8        IF NOT PARITY ERROR
00598  M00S00530.6dp     +++|          LDD    T2
00599  M00S00531.6dp     +++|          SBK    EPFW+1-502
00600  M00S00532.6dp     +++|          PJN    MSE8        IF BUFFER OVERLAYS ERROR PROCESSOR AREA
00601  M00S00533.6dp     +++|          LDI    T1
00602  M00S00534.6dp     +++|          SHN    21-13
00603  M00S00535.6dp     +++|          MJN    MSE6        IF WRITE OPERATION
00604  M00S00536.6dp     +++|          SHN    13-6
00605  M00S00537.6dp     +++|          MJN    MSE6        IF *7RP* ALREADY CALLED
00606  M00S00538.6dp     +++|          MSERR  7RP,*
00607  M00S00539.6dp     +++|          UJN    MSE9        EXECUTE *7RP*
00608  M00S00540.6dp     +++|
00609  M00S00541.6dp     +++| MSE6     LDI    T1

Seq #  *Modification Id* Act 
----------------------------+
00610  M01S00542.253l688 ---|          SHN    21-5

Seq #  *Modification Id* Act 
----------------------------+
00611  M01S00010.253l688 +++|          SHN    21-10
00612  M00S00543.6dp     +++|          MJN    MSE8        IF *7RP* OR *7SP* ABORTED

Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00544.253l688 ---|          SHN    5-4

Seq #  *Modification Id* Act 
----------------------------+
00614  M01S00011.253l688 +++|          SHN    10-7
00615  M00S00545.6dp     +++|          MJN    MSE10       IF *7SP* ALREADY CALLED
00616  M00S00546.6dp     +++|          LPN    20          SET SINGLE WORD READ FOR DC135
00617  M00S00547.6dp     +++|          SHN    12-4
00618  M00S00548.6dp     +++|          RAM    ECSA
00619  M00S00549.6dp     +++|          LDC    ERR2        SET RETURN ADDRESS TO *7SP*
00620  M00S00550.6dp     +++|          STM    DEXA

Seq #  *Modification Id* Act 
----------------------------+
00621  M01S00041.252l678 +++|          LDN    20          SET RETURN TO ERROR PROCESSOR
00622  M01S00042.252l678 +++|          RAM    DEDT

Seq #  *Modification Id* Act 
----------------------------+
00623  M01S00551.ns2741  ---| MSE8     LDD    MA          STORE *7EL* PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
00624  M01S00003.ns2741  +++| MSE8     LDD    MA          STORE *7EK* PARAMETERS
00625  M00S00552.6dp     +++|          ADN    2
00626  M00S00553.6dp     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
00627  M01S00554.ns2741  ---|          MSERR  7EL,*

Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00004.ns2741  +++|          MSERR  7EK,*
00629  M00S00555.6dp     +++| MSE9     LJM    LEP1        LOAD ERROR PROCESSOR
00630  M00S00556.6dp     +++|
00631  M00S00557.6dp     +++| MSE10    LDM    DEST
00632  M00S00558.6dp     +++|          SHN    21-12
00633  M00S00559.6dp     +++|          MJN    MSE11       IF AT LEAST ONE ERROR WAS UNRECOVERED
00634  M00S00560.6dp     +++|          LDI    T1
00635  M00S00561.6dp     +++|          SHN    21-12
00636  M00S00562.6dp     +++|          PJN    MSE12       IF A HEADER OPERATION
00637  M00S00563.6dp     +++|          ENDMS

Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00564.6dp2    ---|          MSERR  7ES         EXECUTE *7ES*

Seq #  *Modification Id* Act 
----------------------------+
00639  M01S00012.6dp2    +++|          MSERR  7ES,*
00640  M01S00013.6dp2    +++|          UJN    MSE9        LOAD ERROR PROCESSOR
00641  M00S00565.6dp     +++|
00642  M00S00566.6dp     +++| MSE11    ENDMS              ISSUE ERRLOG AND DAYFILE MESSAGES

Seq #  *Modification Id* Act 
----------------------------+
00643  M01S00567.6dp2    ---|          MSERR  7ER         EXECUTE *7ER*

Seq #  *Modification Id* Act 
----------------------------+
00644  M01S00014.6dp2    +++|          MSERR  7ER,*
00645  M01S00015.6dp2    +++|          UJN    MSE9        LOAD ERROR PROCESSOR
00646  M00S00568.6dp     +++|
00647  M00S00569.6dp     +++| MSE12    LDN    0           CLEAR MESSAGE FROM *MS2W*
00648  M00S00570.6dp     +++|          STD    T1
00649  M00S00571.6dp     +++|          LDD    CP
00650  M00S00572.6dp     +++|          ADK    MS2W
00651  M00S00573.6dp     +++|          CWD    T1
00652  M00S00574.6dp     +++|          LJM    LDE1        RETRY THE OPERATION
00653  M00S00575.6dp     +++|
00654  M00S00576.6dp     +++|
00655  M00S00577.6dp     +++|          HERE
00656  M00S00578.6dp     +++|          SPACE  4
00657  M00S00579.6dp     +++|          ERRNG  10000-*     *7DP* HAS OVERFLOWED
00658  M00S00580.6dp     +++|          BSS    10000-*     SPARES (ADJUST ORIGIN BY 5 AS REQUIRED)
00659  M00S00581.6dp     +++|          CON    DDP-1       (T0) = ENTRY ADDRESS - 1
00660  M00S00582.6dp     +++|          CON    ERRA        (T1) = ERROR FLAG WORD
00661  M00S00583.6dp     +++|          CON    RDCT        (T2) = RDCT
00662  M00S00584.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
00663  M00S00585.6dp     +++|          QUAL   *
00664  M00S00586.6dp     +++| 7RP      MSOVL  7613,T2,EPFW-1,(DDP/ECS READ ERROR PROCESSOR.)
00665  M00S00587.6dp     +++|          SPACE  4,10
00666  M00S00588.6dp     +++|*****     7RP - DDP/ECS REMAINING BLOCK ERROR PROCESSOR.
00667  M00S00589.6dp     +++|*
00668  M00S00590.6dp     +++|*         J. L. LARSON.      78/07/28.
00669  M00S00591.6dp     +++|          SPACE  4,10
00670  M00S00592.6dp     +++|***       *7RP* IS CALLED BY *7DP* WHEN A ECS PARITY ERROR HAS
00671  M00S00593.6dp     +++|*         OCCURRED DURING AN ECS READ FUNCTION.  *7RP* RETRIEVES THE
00672  M00S00594.6dp     +++|*         DATA IN ERROR FROM THE DDP PORT AND COMPLETES THE READ OF
00673  M00S00595.6dp     +++|*         THE REMAINING ECS WORDS.
00674  M00S00596.6dp     +++|          SPACE  4,10
00675  M00S00597.6dp     +++|***       ENTRY CONDITIONS.
00676  M00S00598.6dp     +++|*
00677  M00S00599.6dp     +++|*                (T4) = CHANNEL NUMBER.
00678  M00S00600.6dp     +++|*                (T5) = ECS EST ORDINAL.
00679  M00S00601.6dp     +++|*                CHANNEL RESERVED.
00680  M00S00602.6dp     +++|*                (WDCT) = TOTAL WORD COUNT (1 OR 100B).
00681  M00S00603.6dp     +++|*                (ERRA) = AS DOCUMENTED IN *7DP*.
00682  M00S00604.6dp     +++|*                (ERRB) = REMAINING BYTE COUNT.
00683  M00S00605.6dp     +++|*                (ECSA - ECSA+1) = ECS FWA.
00684  M00S00606.6dp     +++|*                (ADDR) = PP BUFFER FWA.
00685  M00S00607.6dp     +++|          SPACE  4,10
00686  M00S00608.6dp     +++|***       EXIT CONDITIONS.
00687  M00S00609.6dp     +++|*
00688  M00S00610.6dp     +++|*                (ERRA) BIT 6 SET TO INDICATE *7RP* CALLED.

Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00611.253l688 ---|*                (ERRA) BIT 5 SET IF *7RP* ABORT.

Seq #  *Modification Id* Act 
----------------------------+
00690  M01S00012.253l688 +++|*                (ERRA) BIT 10 SET IF *7RP* ABORT.
00691  M00S00612.6dp     +++|*                (ECSA - ECSA+1) = UNCHANGED.
00692  M00S00613.6dp     +++|*                (ADDR) = UNCHANGED.
00693  M00S00614.6dp     +++|*                (WDCT) = UNCHANGED.
00694  M00S00615.6dp     +++|          SPACE  4,10
00695  M00S00616.6dp     +++|**        COMMON DECKS.
00696  M00S00617.6dp     +++|
00697  M00S00618.6dp     +++|
00698  M00S00619.6dp     +++| FWDL$    EQU    1           SELECT FORWARD LINKED LIST
00699  M00S00620.6dp     +++|*CALL     COMPCHL
00700  M00S00621.6dp     +++| RRP      SPACE  4,10
00701  M00S00622.6dp     +++|**        RRP - DDP/ECS REMAINING BLOCK ERROR PROCESSOR.
00702  M00S00623.6dp     +++|
00703  M00S00624.6dp     +++|
00704  M00S00625.6dp     +++| DRP      ENTRY              *7RP* ENTRY
00705  M00S00626.6dp     +++|
00706  M00S00627.6dp     +++|*         MODIFY CHANNEL INSTRUCTIONS.
00707  M00S00628.6dp     +++|
00708  M00S00629.6dp     +++|          LDN    0
00709  M00S00630.6dp     +++| RRP1     RAD    T1
00710  M00S00631.6dp     +++|          LDI    T1          SAVE LINK TO NEXT INSTRUCTION
00711  M00S00632.6dp     +++|          LPN    37
00712  M00S00633.6dp     +++|          STD    CM
00713  M00S00634.6dp     +++|          LDD    T4          MODIFY CHANNEL INSTRUCTION
00714  M00S00635.6dp     +++|          SBD    CM
00715  M00S00636.6dp     +++|          RAI    T1
00716  M00S00637.6dp     +++|          LDD    CM
00717  M00S00638.6dp     +++|          NJN    RRP1        IF MORE CHANNEL INSTRUCTIONS
00718  M00S00639.6dp     +++|
00719  M00S00640.6dp     +++|*         READ ERROR DATA FROM DDP PORT.
00720  M00S00641.6dp     +++|
00721  M00S00642.6dp     +++| RRP2     LDI    T2          CALCULATE NUMBER OF BYTES TO INPUT
00722  M00S00643.6dp     +++|          ZJN    RRP5        IF NO BYTES TO INPUT
00723  M00S00644.6dp     +++|          STD    CM+2
00724  M00S00645.6dp     +++|          SBN    10*5
00725  M00S00646.6dp     +++|          MJN    RRP3        IF NOT FULL RECORD TO BE READ
00726  M00S00647.6dp     +++|          LDN    10*5
00727  M00S00648.6dp     +++|          STD    CM+2
00728  M00S00649.6dp     +++| RRP3     LDM    ERRA        CHECK DDP TYPE (1 = DC135, 0 = DC145)
00729  M00S00650.6dp     +++|          LPC    1000
00730  M00S00651.6dp     +++|          STD    CM          SET MAINTENANCE MODE ADDRESS BIT
00731  M00S00652.6dp     +++|          SHN    4-11
00732  M00S00653.6dp     +++|          LMN    20
00733  M00S00654.6dp     +++|          RJM    RED         READ ECS DATA
00734  M00S00655.6dp     +++|          NJN    ABT         IF ERROR DATA NOT SUCCESSFULLY READ
00735  M00S00656.6dp     +++|          STD    CM
00736  M00S00657.6dp     +++|          SBD    CM+2        DECREMENT REMAINING BYTE COUNT
00737  M00S00658.6dp     +++|          RAI    T2
00738  M00S00659.6dp     +++|          ZJN    END         IF NO MORE ECS WORDS TO READ
00739  M00S00660.6dp     +++|
00740  M00S00661.6dp     +++|*         READ REMAINING ECS WORDS.
00741  M00S00662.6dp     +++|
00742  M00S00663.6dp     +++|          STD    CM+2        SET BYTES TO INPUT
00743  M00S00664.6dp     +++|          LDN    7           MASTER CLEAR PORT
00744  M00S00665.6dp     +++|          RJM    SFC
00745  M00S00666.6dp     +++|          DCN    CH+40
00746  M00S00667.6dp     +++|          LDN    0
00747  M00S00668.6dp     +++|          RJM    RED         READ ECS DATA
00748  M00S00669.6dp     +++|          STI    T2          SAVE REMAINING BYTE COUNT
00749  M00S00670.6dp     +++|          NJN    RRP2        IF NOT ALL DATA TRANSFERRED SUCCESSFULLY
00750  M00S00671.6dp     +++| RRP5     UJN    END         RETURN TO *7DP*
00751  M00S00672.6dp     +++| SFC      SPACE  4,10
00752  M00S00673.6dp     +++|**        SFC - SELECT FUNCTION.
00753  M00S00674.6dp     +++|*
00754  M00S00675.6dp     +++|*         ENTRY  (A) = FUNCTION CODE - 1.
00755  M00S00676.6dp     +++|*
00756  M00S00677.6dp     +++|*         EXIT   CHANNEL ACTIVATED.
00757  M00S00678.6dp     +++|*                TO *ABT*, IF CHANNEL PREVIOUSLY ACTIVE, OR FUNCTION
00758  M00S00679.6dp     +++|*                TIMEOUT.
00759  M00S00680.6dp     +++|
00760  M00S00681.6dp     +++|
00761  M00S00682.6dp     +++| SFC2     ACN    CH
00762  M00S00683.6dp     +++|
00763  M00S00684.6dp     +++| SFC      SUBR               ENTRY/EXIT
00764  M00S00685.6dp     +++|          ADC    SC+1
00765  M00S00686.6dp     +++|          AJM    ABT,CH      IF ILLEGAL CHANNEL STATE
00766  M00S00687.6dp     +++|          FAN    CH
00767  M00S00688.6dp     +++| SFC1     IJM    SFC2,CH     IF SELECT ACCEPTED
00768  M00S00689.6dp     +++|          SBN    1
00769  M00S00690.6dp     +++|          NJN    SFC1        IF NOT FUNCTION TIMEOUT
00770  M00S00691.6dp     +++|*         UJN    ABT         ABORT
00771  M00S00692.6dp     +++| ABT      SPACE  4,10
00772  M00S00693.6dp     +++|**        ABT - ABORT PROCESSOR.
00773  M00S00694.6dp     +++|
00774  M00S00695.6dp     +++|
00775  M00S00696.6dp     +++| ABT      DCN    CH+40

Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00697.253l688 ---|          LDN    40          SET *7RP* ABORT FLAG

Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00013.253l688 +++|          LDC    400         SET *7RP* ABORT FLAG
00778  M00S00698.6dp     +++|*         UJN    END         RETURN TO *7DP*
00779  M00S00699.6dp     +++| END      SPACE  4,10
00780  M00S00700.6dp     +++|**        END - END PROCESSOR.
00781  M00S00701.6dp     +++|
00782  M00S00702.6dp     +++|
00783  M00S00703.6dp     +++| END      ADD    HN          INDICATE *7RP* CALLED
00784  M00S00704.6dp     +++|          RAM    ERRA
00785  M00S00705.6dp     +++|          LJM    ERR1        RETURN TO *7DP*
00786  M00S00706.6dp     +++| RED      SPACE  4,10
00787  M00S00707.6dp     +++|**        RED - READ ECS DATA.
00788  M00S00708.6dp     +++|*
00789  M00S00709.6dp     +++|*         ENTRY  (A) = FUNCTION CODE (NORMAL OR MAINTENANCE MODE READ).
00790  M00S00710.6dp     +++|*                (CM) = ADDRESS BIT FOR MAINTENANCE MODE READ.
00791  M00S00711.6dp     +++|*                (CM+2) = NUMBER OF BYTES TO INPUT.
00792  M00S00712.6dp     +++|*
00793  M00S00713.6dp     +++|*         EXIT   (A) = BYTE COUNT REMAINING AFTER INPUT.
00794  M00S00714.6dp     +++|*                TO *ABT*, IF ECS ADDRESS NOT ACCEPTED.
00795  M00S00715.6dp     +++|*
00796  M00S00716.6dp     +++|*         USES   T1, CM, CM+1, CM+3.
00797  M00S00717.6dp     +++|*
00798  M00S00718.6dp     +++|*         CALLS  SFC.
00799  M00S00719.6dp     +++|
00800  M00S00720.6dp     +++|
00801  M00S00721.6dp     +++| RED1     LDN    10          INCREMENT ECS ADDRESS OFFSET
00802  M00S00722.6dp     +++|          RAD    CM+1
00803  M00S00723.6dp     +++|          LCN    10*5        DECREMENT BYTE COUNT
00804  M00S00724.6dp     +++|          RAD    T1
00805  M00S00725.6dp     +++| RED2     NJN    RED1        IF MORE BYTES TO COUNT
00806  M00S00726.6dp     +++|          LDM    ECSA+1      CALCULATE ECS ADDRESS FOR NEW READ
00807  M00S00727.6dp     +++|          RAD    CM+1
00808  M00S00728.6dp     +++|          SHN    -14
00809  M00S00729.6dp     +++|          ADM    ECSA
00810  M00S00730.6dp     +++|          RAD    CM
00811  M00S00731.6dp     +++|          LDD    CM+3        SELECT READ FUNCTION
00812  M00S00732.6dp     +++|          RJM    SFC
00813  M00S00733.6dp     +++|          LDN    2           OUTPUT ECS ADDRESS
00814  M00S00734.6dp     +++|          OAM    CM,CH
00815  M00S00735.6dp     +++|          NJN    ABT         IF ADDRESS NOT ACCEPTED
00816  M00S00736.6dp     +++|          LDD    CM+2        INPUT ECS DATA
00817  M00S00737.6dp     +++|          IAM    *,CH
00818  M00S00738.6dp     +++| REDA     EQU    *-1
00819  M00S00739.6dp     +++|          DCN    CH+40
00820  M00S00740.6dp     +++|          STD    T1
00821  M00S00741.6dp     +++|          LDN    4-1         SELECT STATUS
00822  M00S00742.6dp     +++|          RJM    SFC
00823  M00S00743.6dp     +++|          IAN    CH+40
00824  M00S00744.6dp     +++|          DCN    CH+40
00825  M00S00745.6dp     +++|          LDD    T1          RETURN BYTE COUNT AFTER INPUT
00826  M00S00746.6dp     +++|
00827  M00S00747.6dp     +++| RED      SUBR               ENTRY/EXIT
00828  M00S00748.6dp     +++|          STD    CM+3
00829  M00S00749.6dp     +++|          LDM    WDCT        CALCULATE BYTE COUNT ALREADY READ
00830  M00S00750.6dp     +++|          SHN    2
00831  M00S00751.6dp     +++|          ADM    WDCT
00832  M00S00752.6dp     +++|          SBI    T2
00833  M00S00753.6dp     +++|          STD    T1
00834  M00S00754.6dp     +++|          ADM    ADDR        SET PP BUFFER ADDRESS FOR NEW READ
00835  M00S00755.6dp     +++|          STM    REDA
00836  M00S00756.6dp     +++|          LDN    0
00837  M00S00757.6dp     +++|          STD    CM+1
00838  M00S00758.6dp     +++|          LDD    T1
00839  M00S00759.6dp     +++|          SCN    7
00840  M00S00760.6dp     +++|          LJM    RED2        CALCULATE ECS ADDRESS OFFSET
00841  M00S00761.6dp     +++|          SPACE  4,10
00842  M00S00762.6dp     +++|          HERE               TERMINATE LINKED CHANNEL INSTRUCTIONS
00843  M00S00763.6dp     +++|          SPACE  4,10
00844  M00S00764.6dp     +++|          ERRNG  10000-*     *7RP* HAS OVERFLOWED
00845  M00S00765.6dp     +++|          BSS    10000-*     SPARES
00846  M00S00766.6dp     +++|          CON    DRP-1       (T0) = ENTRY ADDRESS - 1
00847  M00S00767.6dp     +++|          CON    CH01$       (T1) = FIRST CHANNEL INSTRUCTION ADDRESS
00848  M00S00768.6dp     +++|          CON    ERRB        (T2) = POINTER TO REMAINING BYTE COUNT
00849  M00S00769.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
00850  M00S00770.6dp     +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00851  M01S00771.6dp1    ---| 7SP      MSOVL  7567,T2,HEDR+11,(DDP/ECS SINGLE WORD RETRY PROCESSOR.)

Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00001.252l678 ---| 7SP      MSOVL  7555,T2,HEDR+11,(DDP/ECS SINGLE WORD RETRY PROCESSOR.)

Seq #  *Modification Id* Act 
----------------------------+
00853  M01S00043.252l678 +++| 7SP      MSOVL  7555,T2,DDMD+4,(DDP/ECS SINGLE WORD RETRY PROCESSOR.)
00854  M00S00772.6dp     +++|          SPACE  4
00855  M00S00773.6dp     +++|*****     SINGLE WORD RETRY ERROR PROCESSOR.
00856  M00S00774.6dp     +++|*
00857  M00S00775.6dp     +++|*         L. L. CLINTON      78/07/28.
00858  M00S00776.6dp     +++|          SPACE  4,10
00859  M00S00777.6dp     +++|***       *7SP* IS INITIALLY CALLED BY *7DP* WHEN AN ECS PARITY ERROR
00860  M00S00778.6dp     +++|*         HAS OCCURRED DURING AN ECS READ OR WRITE FUNCTION.
00861  M00S00779.6dp     +++|*         *7SP* REREADS OR REWRITES THE DATA ONE WORD AT A TIME
00862  M00S00780.6dp     +++|*         AND COMPARES PREVIOUSLY READ DATA WITH THE NEW DATA.
00863  M00S00781.6dp     +++|*         *7SP* CALLS *7MP* TO ISSUE AN ERROR MESSAGE WHENEVER A
00864  M00S00782.6dp     +++|*         SINGLE WORD READ OR WRITE FUNCTION IS UNSUCCESSFUL AND
00865  M00S00783.6dp     +++|*         WHENEVER THE DATA READ DOES NOT COMPARE.  AFTER ISSUING
00866  M00S00784.6dp     +++|*         THE ERROR MESSAGE, *7MP* RECALLS *7SP* TO CONTINUE THE
00867  M00S00785.6dp     +++|*         SINGLE WORD READ OR WRITE ERROR RECOVERY.
00868  M00S00786.6dp     +++|          SPACE  4,10
00869  M00S00787.6dp     +++|***       ENTRY CONDITIONS.
00870  M00S00788.6dp     +++|*
00871  M00S00789.6dp     +++|*                (ADDR) = PP BUFFER FWA.
00872  M00S00790.6dp     +++|*                (ECSA - ECSA+1) = ECS FWA.
00873  M00S00791.6dp     +++|*                (ERRA) = AS DOCUMENTED IN *7DP*.
00874  M00S00792.6dp     +++|*                (WDCT) = TOTAL WORD COUNT (1 OR 100B).
00875  M00S00793.6dp     +++|          SPACE  4,10
00876  M00S00794.6dp     +++|***       EXIT CONDITIONS.
00877  M00S00795.6dp     +++|*
00878  M00S00796.6dp     +++|*         FOR *7DP* -

Seq #  *Modification Id* Act 
----------------------------+
00879  M01S00797.253l688 ---|*                (ERRA) BIT 4 SET TO INDICATE *7SP* CALLED.
00880  M01S00798.253l688 ---|*                (ERRA) BIT 5 SET IF *7SP* ABORT.

Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00014.253l688 +++|*                (ERRA) BIT 7 SET TO INDICATE *7SP* CALLED.
00882  M01S00015.253l688 +++|*                (ERRA) BIT 10 SET IF *7SP* ABORT.
00883  M00S00799.6dp     +++|*
00884  M00S00800.6dp     +++|*         FOR *7MP* -
00885  M00S00801.6dp     +++|*                (RECF) BIT 0 SET IF DATA DID NOT COMPARE.
00886  M00S00802.6dp     +++|*                (RECF) BIT 1 SET IF ECS ERROR ON REREAD/REWRITE.
00887  M00S00803.6dp     +++|*                (SWBF - SWBF+4) = DATA FROM SINGLE WORD REREAD.
00888  M00S00804.6dp     +++|          SPACE  4,10
00889  M00S00805.6dp     +++|**        COMMON DECKS.
00890  M00S00806.6dp     +++|
00891  M00S00807.6dp     +++|
00892  M00S00808.6dp     +++| FWDL$    EQU    1           SELECT FORWARD LINKED LIST
00893  M00S00809.6dp     +++|*CALL     COMPCHL
00894  M00S00810.6dp     +++| 7SP      SPACE  4,10
00895  M00S00811.6dp     +++|          QUAL
00896  M00S00812.6dp     +++| SWBF     EQU    /7SP/OFFW   SINGLE WORD RETRY BUFFER
00897  M00S00813.6dp     +++|          QUAL   *
00898  M00S00814.6dp     +++|          ERRPL  SWBF+4-*    RETRY BUFFER OVERLAYS CODE
00899  M00S00815.6dp     +++| MSW      SPACE  4,10
00900  M00S00816.6dp     +++|**        MSW - MOVE SINGLE WORD FROM PP BUFFER TO SINGLE WORD BUFFER.
00901  M00S00817.6dp     +++|*
00902  M00S00818.6dp     +++|*         ENTRY  (MSWA)  PP BUFFER ADDRESS FOR MOVE.
00903  M00S00819.6dp     +++|
00904  M00S00820.6dp     +++|
00905  M00S00821.6dp     +++| MSW      SUBR               ENTRY/EXIT
00906  M00S00822.6dp     +++|          LDD    MA
00907  M00S00823.6dp     +++|          CWM    **,ON
00908  M00S00824.6dp     +++| MSWA     EQU    *-1
00909  M00S00825.6dp     +++|          SBN    1
00910  M00S00826.6dp     +++|          CRM    SWBF,ON
00911  M00S00827.6dp     +++|          UJN    MSWX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00002.6dp1    +++| STS      SPACE  4,10
00913  M01S00003.6dp1    +++|**        STS - GET DDP STATUS.
00914  M01S00004.6dp1    +++|*
00915  M01S00005.6dp1    +++|*         EXIT   (SPSA) = DDP STATUS.
00916  M01S00006.6dp1    +++|*
00917  M01S00007.6dp1    +++|*         CALLS  SFC.
00918  M01S00008.6dp1    +++|
00919  M01S00009.6dp1    +++|
00920  M01S00010.6dp1    +++| STS      SUBR               ENTRY/EXIT
00921  M01S00011.6dp1    +++| STS1     LDN    4-1         ISSUE STATUS FUNCTION
00922  M01S00012.6dp1    +++|          RJM    SFC
00923  M01S00013.6dp1    +++|          IAN    CH+40
00924  M01S00014.6dp1    +++|          STM    SPSA        SAVE DDP STATUS
00925  M01S00015.6dp1    +++|          LPN    2
00926  M01S00016.6dp1    +++|          DCN    CH+40
00927  M01S00017.6dp1    +++|          NJN    STSX        IF FUNCTION ACCEPTED
00928  M01S00018.6dp1    +++|          UJN    STS1        RETRY
00929  M00S00828.6dp     +++| SFC      SPACE  4,10
00930  M00S00829.6dp     +++|**        SFC - SELECT FUNCTION AND OUTPUT ECS ADDRESS.
00931  M00S00830.6dp     +++|*
00932  M00S00831.6dp     +++|*         ENTRY  (A) = FUNCTION CODE-1.
00933  M00S00832.6dp     +++|*                (CM - CM+1) = ECS ADDRESS TO OUTPUT.
00934  M00S00833.6dp     +++|*
00935  M00S00834.6dp     +++|*         EXIT   (A) = 2.
00936  M00S00835.6dp     +++|*                TO *ABT*, IF FUNCTION TIMEOUT OR ADDRESS NOT
00937  M00S00836.6dp     +++|*                ACCEPTED.
00938  M00S00837.6dp     +++|
00939  M00S00838.6dp     +++|
00940  M00S00839.6dp     +++| SFC2     ACN    CH
00941  M00S00840.6dp     +++|          LDN    2
00942  M00S00841.6dp     +++|
00943  M00S00842.6dp     +++| SFC      SUBR               ENTRY/EXIT
00944  M00S00843.6dp     +++|          ADC    SC+1
00945  M00S00844.6dp     +++|          AJM    ABT,CH      IF ILLEGAL CHANNEL STATUS
00946  M00S00845.6dp     +++|          FAN    CH
00947  M00S00846.6dp     +++| SFC1     IJM    SFC2,CH     IF SELECT ACCEPTED
00948  M00S00847.6dp     +++|          SBN    1
00949  M00S00848.6dp     +++|          NJN    SFC1        IF NOT TIMEOUT
00950  M00S00849.6dp     +++|*         UJN    ABT         ABORT
00951  M00S00850.6dp     +++| ABT      SPACE  4,10
00952  M00S00851.6dp     +++|**        ABT - ABORT *7SP*.
00953  M00S00852.6dp     +++|
00954  M00S00853.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00854.253l688 ---| ABT      LDN    40-1        SET *7SP* ABORT FLAG

Seq #  *Modification Id* Act 
----------------------------+
00956  M01S00016.253l688 +++| ABT      LDC    400-1       SET *7SP* ABORT FLAG
00957  M00S00855.6dp     +++|          DCN    CH+40
00958  M00S00856.6dp     +++|*         UJN    END         RETURN TO *7DP*
00959  M00S00857.6dp     +++| END      SPACE  4,10
00960  M00S00858.6dp     +++|**        END - END *7SP*.
00961  M00S00859.6dp     +++|
00962  M00S00860.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00861.253l688 ---| END      ADN    20+1        SET *7SP* CALL FLAG

Seq #  *Modification Id* Act 
----------------------------+
00964  M01S00017.253l688 +++| END      ADC    200+1       SET *7SP* CALLED FLAG
00965  M00S00862.6dp     +++|          RAI    T2
00966  M00S00863.6dp     +++|          LJM    ERR1        RETURN TO *7DP*
00967  M00S00864.6dp     +++|          SPACE  4,10
00968  M00S00865.6dp     +++| DSP      ENTRY              *7SP* ENTRY
00969  M00S00866.6dp     +++|
00970  M00S00867.6dp     +++| SSP      LDN    1           RESERVE CHANNEL
00971  M00S00868.6dp     +++|          RJM    DSW
00972  M00S00869.6dp     +++|*         LDN    0
00973  M00S00870.6dp     +++|
00974  M00S00871.6dp     +++|*         SET CHANNEL INSTRUCTIONS.
00975  M00S00872.6dp     +++|
00976  M00S00873.6dp     +++| SSP1     RAD    T1          LINK TO NEXT CHANNEL INSTRUCTION
00977  M00S00874.6dp     +++|          LDI    T1          SAVE LINK TO NEXT CHANNEL INSTRUCTION
00978  M00S00875.6dp     +++|          LPN    37
00979  M00S00876.6dp     +++|          STD    CM
00980  M00S00877.6dp     +++|          LDD    T4          MODIFY CHANNEL INSTRUCTION
00981  M00S00878.6dp     +++|          SBD    CM
00982  M00S00879.6dp     +++|          RAI    T1
00983  M00S00880.6dp     +++|          LDD    CM
00984  M00S00881.6dp     +++|          NJN    SSP1        IF MORE CHANNELS TO MODIFY
00985  M00S00882.6dp     +++|          STM    RECF
00986  M00S00883.6dp     +++| SSP2     SOM    WDCT        CHECK WORD COUNT
00987  M00S00884.6dp     +++|          MJN    END         IF ALL WORDS PROCESSED
00988  M00S00885.6dp     +++|          LDN    7           MASTER CLEAR PORT
00989  M00S00886.6dp     +++|          RJM    SFC
00990  M00S00887.6dp     +++|          DCN    CH+40
00991  M00S00888.6dp     +++|          LDI    D1          CHECK FUNCTION
00992  M00S00889.6dp     +++|          LPN    1
00993  M00S00890.6dp     +++|          NJN    SSP3        IF WRITE
00994  M00S00891.6dp     +++|          LDI    T2          SET SINGLE WORD READ FUNCTION FOR DC145
00995  M00S00892.6dp     +++|          SHN    5-11
00996  M00S00893.6dp     +++|          LPN    40
00997  M00S00894.6dp     +++|          LMN    40
00998  M00S00895.6dp     +++| SSP3     RJM    SFC         SELECT FUNCTION
00999  M00S00896.6dp     +++|          OAM    ECSA,CH     OUTPUT ADDRESS
01000  M00S00897.6dp     +++|          LDM    ADDR
01001  M00S00898.6dp     +++|          STM    MSWA
01002  M00S00899.6dp     +++|          STM    SSPB
01003  M00S00900.6dp     +++|          RJM    MSW         MOVE SINGLE WORD
01004  M00S00901.6dp     +++|          LDI    D1
01005  M00S00902.6dp     +++|          LPN    1
01006  M00S00903.6dp     +++|          NJN    SSP4        IF WRITE
01007  M00S00904.6dp     +++|          LDN    5
01008  M00S00905.6dp     +++|          IAM    SWBF,CH     INPUT DATA
01009  M00S00906.6dp     +++|          UJN    SSP5        CHECK STATUS
01010  M00S00907.6dp     +++|
01011  M00S00908.6dp     +++| SSP4     LDN    5
01012  M00S00909.6dp     +++|          OAM    SWBF,CH     OUTPUT DATA
01013  M00S00910.6dp     +++|          FJM    *,CH        IF DATA NOT ACCEPTED
01014  M00S00911.6dp     +++| SSP5     STD    CM          SAVE REMAINING BYTE COUNT
01015  M00S00912.6dp     +++|          DCN    CH+40
01016  M00S00913.6dp     +++|          ZJN    SSP6        IF DATA TRANSFERED
01017  M00S00914.6dp     +++|          RJM    MSW         RESTORE DATA FROM PP BUFFER
01018  M00S00915.6dp     +++| SSP6     LDN    5
01019  M00S00916.6dp     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00917.6dp1    ---|          LDN    4-1
01021  M01S00918.6dp1    ---|          RJM    SFC         ISSUE STATUS FUNCTION
01022  M01S00919.6dp1    ---|          IAN    CH+40
01023  M01S00920.6dp1    ---|          STM    SPSA        SAVE STATUS FOR *7MP*
01024  M01S00921.6dp1    ---|          LPN    2
01025  M01S00922.6dp1    ---|          DCN    CH+40
01026  M01S00923.6dp1    ---|          ZJN    SSP6        IF STATUS NOT COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
01027  M01S00019.6dp1    +++|          RJM    STS         GET STATUS
01028  M00S00924.6dp     +++|          LDD    CM
01029  M00S00925.6dp     +++|          NJN    SSP9        IF DATA NOT TRANSFERED
01030  M00S00926.6dp     +++|
01031  M00S00927.6dp     +++|*         COMPARE DATA.
01032  M00S00928.6dp     +++|
01033  M00S00929.6dp     +++| SSP7     SOD    T1
01034  M00S00930.6dp     +++|          MJN    SSP8        IF END OF COMPARE
01035  M00S00931.6dp     +++|          LDM    **,T1
01036  M00S00932.6dp     +++| SSPB     EQU    *-1
01037  M00S00933.6dp     +++|          LMM    SWBF,T1
01038  M00S00934.6dp     +++|          ZJN    SSP7        IF DATA COMPARES
01039  M00S00935.6dp     +++|          AOM    RECF
01040  M00S00936.6dp     +++| SSP8     LDM    SPSA
01041  M00S00937.6dp     +++|          SCN    2
01042  M00S00938.6dp     +++|          ZJN    SSP10       IF NO ERROR IN STATUS

Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00020.6dp1    +++|          SCN    10
01044  M01S00021.6dp1    +++|          NJN    SSP9        IF NOT *WRITE BUSY*
01045  M01S00022.6dp1    +++|          RJM    STS         GET STATUS
01046  M01S00023.6dp1    +++|          UJN    SSP8        RECHECK STATUS
01047  M01S00024.6dp1    +++|
01048  M00S00939.6dp     +++| SSP9     LDN    2
01049  M00S00940.6dp     +++| SSP10    RAM    RECF
01050  M00S00941.6dp     +++|          ZJN    SSP11       IF NO ERROR MESSAGE
01051  M00S00942.6dp     +++|          ENDMS
01052  M00S00943.6dp     +++|          MSERR  7MP         CALL *7MP* TO ISSUE ERROR MESSAGE
01053  M00S00944.6dp     +++|
01054  M00S00945.6dp     +++| SSP11    AOM    ECSA+1      INCREMENT EXTENDED MEMORY ADDRESS
01055  M00S00946.6dp     +++|          SHN    -14
01056  M00S00947.6dp     +++|          RAM    ECSA
01057  M00S00948.6dp     +++|          LDN    5           INCREMENT PP BUFFER ADDRESS
01058  M00S00949.6dp     +++|          RAM    ADDR
01059  M00S00950.6dp     +++|          LJM    SSP2        READ NEXT WORD
01060  M00S00951.6dp     +++| 7SP      SPACE  4,10
01061  M00S00952.6dp     +++|          HERE               TERMINATE LINKED CHANNEL INSTRUCTIONS.
01062  M00S00953.6dp     +++|          SPACE  4,10
01063  M00S00954.6dp     +++|          ERRNG  10000-*     *7SP* HAS OVERFLOWED
01064  M00S00955.6dp     +++|          BSS    10000-*     SPARES
01065  M00S00956.6dp     +++|          CON    DSP-1       (T0) = ENTRY ADDRESS - 1
01066  M00S00957.6dp     +++|          CON    CH01$       (T1) = FIRST CHANNEL INSTRUCTION ADDRESS
01067  M00S00958.6dp     +++|          CON    ERRA        (T2) = POINTER TO ERROR FLAG WORD
01068  M00S00959.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
01069  M00S00960.6dp     +++|          QUAL   *
01070  M00S00961.6dp     +++| 7MP      MSOVL  7656,T2,SWBF+4,(DDP/ECS ERROR MESSAGE PROCESSOR.)
01071  M00S00962.6dp     +++|          SPACE  4,10
01072  M00S00963.6dp     +++|*****     ERROR MESSAGE PROCESSOR.
01073  M00S00964.6dp     +++|*
01074  M00S00965.6dp     +++|*         L. L. CLINTON      78/08/15.
01075  M00S00966.6dp     +++|          SPACE  4,10
01076  M00S00967.6dp     +++|***       *7MP* IS CALLED BY *7SP* TO ISSUE INTERMEDIATE ECS ERROR
01077  M00S00968.6dp     +++|*         MESSAGES WHEN A SINGLE WORD REREAD OR REWRITE IS
01078  M00S00969.6dp     +++|*         UNSUCCESSFUL OR WHEN THE DATA READ DOES NOT COMPARE WITH
01079  M00S00970.6dp     +++|*         THE PREVIOUSLY READ DATA.  AFTER ISSUING THE ERROR
01080  M00S00971.6dp     +++|*         MESSAGES, *7MP* RECALLS *7SP* TO CONTINUE THE SINGLE WORD
01081  M00S00972.6dp     +++|*         READ OR WRITE ERROR RECOVERY.
01082  M00S00973.6dp     +++|          SPACE  4,10
01083  M00S00974.6dp     +++| 7MP      SPACE  4,10
01084  M00S00975.6dp     +++|**        DMP - DAYFILE MESSAGE PROCESSOR.
01085  M00S00976.6dp     +++|*
01086  M00S00977.6dp     +++|*         ENTRY  (ADDR) = ADDRESS OF WORD IN BUFFER.
01087  M00S00978.6dp     +++|*                (STSB) = LAST READ/WRITE DDP FUNCTION STATUS.
01088  M00S00979.6dp     +++|*                (RECF) = 9/, 1/R, 1/C.
01089  M00S00980.6dp     +++|*                         R = 1, IF REREAD/REWRITE FAILED TO COMPLETE
01090  M00S00981.6dp     +++|*                                OR IF THE STATUS TAKEN AFTER THE
01091  M00S00982.6dp     +++|*                                REREAD/REWRITE INDICATES AN ERROR.
01092  M00S00983.6dp     +++|*                         C = 1, IF DATA RECEIVED ON READ RETRY DID
01093  M00S00984.6dp     +++|*                                NOT COMPARE WITH THE DATA RECEIVED
01094  M00S00985.6dp     +++|*                                THE FIRST TIME.
01095  M00S00986.6dp     +++|*                (SWBF - SWBF+4) = DATA FROM SINGLE WORD RE-READ.
01096  M00S00987.6dp     +++|*                (ECSA - ECSA+1) = EXTENDED MEMORY ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00044.252l678 +++|*                (MSGH - MSGH+4) = *EMB* MESSAGE HEADER.
01098  M00S00988.6dp     +++|*                (HEDR - HEDR+11) = BML MESSAGE HEADER, PREPARED BY

Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00989.ns2741  ---|*                                   *7EL* THROUGH *7EP*.

Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00005.ns2741  +++|*                                   *7EK* THROUGH *7EP*.

Seq #  *Modification Id* Act 
----------------------------+
01101  M01S00990.252l678 ---|*
01102  M01S00991.252l678 ---|*         EXIT   (RDCT) = (DEST), IF BIT 1 OF RECF WAS SET.

Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00045.252l678 +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
01104  M00S00992.6dp     +++|
01105  M00S00993.6dp     +++|

Seq #  *Modification Id* Act 
----------------------------+
01106  M01S00994.252l678 ---| DMP2     LDM    ADDR

Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00046.252l678 +++| DMP      ENTRY              *7MP* ENTRY
01108  M01S00047.252l678 +++|
01109  M01S00048.252l678 +++|          LDM    DERW        CALCULATE DRIVER ENTRY POINT
01110  M01S00049.252l678 +++|          SHN    1
01111  M01S00050.252l678 +++|          ADC    RDS
01112  M01S00051.252l678 +++|          ERRNZ  RDS+2-WDS   CODE DEPENDS ON VALUE
01113  M01S00052.252l678 +++|          STD    T0
01114  M01S00053.252l678 +++|          LDI    T2
01115  M01S00054.252l678 +++|          ZJN    DMP1        IF NO EXIT ADDRESS SET
01116  M01S00055.252l678 +++|          STI    T0
01117  M01S00056.252l678 +++| DMP1     LDC    ERR2        SET RETURN TO *7SP*
01118  M01S00057.252l678 +++|          STI    T2
01119  M01S00058.252l678 +++|          LDI    T1
01120  M01S00059.252l678 +++|          ZJN    DMP2        IF RECOVERED ERROR
01121  M01S00060.252l678 +++|          LDM    DEST
01122  M01S00061.252l678 +++|          LPC    -2000
01123  M01S00062.252l678 +++|          LMC    2000        SET *UNRECOVERED ERROR* FLAG
01124  M01S00063.252l678 +++|          STM    DEST
01125  M01S00064.252l678 +++|          LDC    1S17
01126  M01S00065.252l678 +++| DMP2     LMM    DERW        SET READ/WRITE FLAG IN MESSAGE
01127  M01S00066.252l678 +++|          SHN    1
01128  M01S00067.252l678 +++|          LMD    HN          APPEND RETRY COUNT
01129  M01S00068.252l678 +++|          STM    HEDR+6
01130  M01S00069.252l678 +++|          LDN    5           SET BML MESSAGE LENGTH
01131  M01S00070.252l678 +++|          STM    MSGH+3
01132  M01S00071.252l678 +++|          LDM    ADDR
01133  M00S00995.6dp     +++|          STM    DMPA
01134  M00S00996.6dp     +++|          STM    DMPB
01135  M00S00997.6dp     +++|          LDD    MA

Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00072.252l678 +++|          ADN    3
01137  M00S00998.6dp     +++|          CWM    **,ON
01138  M00S00999.6dp     +++| DMPA     EQU    *-1
01139  M00S01000.6dp     +++|          CWM    SWBF,ON

Seq #  *Modification Id* Act 
----------------------------+
01140  M01S01001.252l678 ---|          LDD    MA
01141  M01S01002.252l678 ---|          CRM    HEDR+17,T2
01142  M01S01003.252l678 ---|          ERRPL  HEDR+30-*   DATA READ IN DESTROYS CODE
01143  M01S01004.252l678 ---|          LDN    5*5         SET BML MESSAGE LENGTH
01144  M01S01005.252l678 ---|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
01145  M01S00073.252l678 +++|          LDM    SPSA
01146  M01S00074.252l678 +++|          STM    DSFA+1      SET FUNCTION STATUS IN MESSAGE
01147  M01S00075.252l678 +++|          LDM    ECSA
01148  M01S00076.252l678 +++|          STM    DSFA+3      ADD XM ADDRESS TO MESSAGE
01149  M01S00077.252l678 +++|          LDM    ECSA+1
01150  M01S00078.252l678 +++|          STM    DSFA+4
01151  M01S00079.252l678 +++|          LDN    1           APPEND WORD COUNT TO MESSAGE
01152  M01S00080.252l678 +++|          STM    DSFA+2
01153  M01S00081.252l678 +++|          STM    DSFA        INDICATE FIRST DATA WORD PRESENT
01154  M00S01006.6dp     +++|          LDI    T1
01155  M00S01007.6dp     +++|          LMN    2
01156  M00S01008.6dp     +++|          ZJN    DMP3        IF ONLY ONE WORD TO BE REPORTED

Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00082.252l678 +++|          AOM    MSGH+3

Seq #  *Modification Id* Act 
----------------------------+
01158  M01S01009.252l678 ---|          LDN    2           SET FLAG FOR SECOND DATA WORD PRESENT
01159  M01S01010.252l678 ---|          RAM    HEDR+12

Seq #  *Modification Id* Act 
----------------------------+
01160  M01S00083.252l678 +++|          LDN    2
01161  M01S00084.252l678 +++|          RAM    DSFA        INDICATE SECOND DATA WORD PRESENT
01162  M00S01011.6dp     +++|          LDI    T1
01163  M00S01012.6dp     +++|          LMN    1
01164  M00S01013.6dp     +++|          NJN    DMP3        IF WORD NOT TO BE TRANSFERED
01165  M00S01014.6dp     +++|          LDD    MA

Seq #  *Modification Id* Act 
----------------------------+
01166  M01S01015.252l678 ---|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
01167  M01S00085.252l678 +++|          ADN    4
01168  M00S01016.6dp     +++|          CRM    **,ON
01169  M00S01017.6dp     +++| DMPB     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
01170  M01S01018.252l678 ---| DMP3     LDC    HEDR+BMLN   ISSUE BML MESSAGE
01171  M01S01019.252l678 ---|          RJM    DFM
01172  M01S01020.252l678 ---|          LJM    ERR2        RECALL *7SP*
01173  M01S01021.252l678 ---|
01174  M01S01022.252l678 ---|*         THE FOLLOWING CODE MAY BE OVERLAYED BY THE DAYFILE DUMP
01175  M01S01023.252l678 ---|*         BOOTSTRAP LOADER.  THE REST OF *7MP* MUST BE SAVED AND
01176  M01S01024.252l678 ---|*         RESTORED BY *1DD*.
01177  M01S01025.252l678 ---|
01178  M01S01026.252l678 ---|          ERRNG  10003-3*5-*
01179  M01S01027.252l678 ---|
01180  M01S01028.252l678 ---| DMP      ENTRY              *7MP* ENTRY
01181  M01S01029.252l678 ---|
01182  M01S01030.252l678 ---|          LDI    T1
01183  M01S01031.252l678 ---|          LPN    2
01184  M01S01032.252l678 ---|          ZJN    DMP1        IF ERROR WAS RECOVERED
01185  M01S01033.252l678 ---|          LDM    DEST        SET *UNRECOVERED ERROR* FLAG
01186  M01S01034.252l678 ---|          LPC    -2000
01187  M01S01035.252l678 ---|          LMC    2000
01188  M01S01036.252l678 ---|          STM    DEST
01189  M01S01037.252l678 ---|          LDN    1           SET UNRECOVERED IN MESSAGE HEADER
01190  M01S01038.252l678 ---| DMP1     LMD    HN          ADD RETRY COUNT TO BML MESSAGE
01191  M01S01039.252l678 ---|          STM    HEDR+6
01192  M01S01040.252l678 ---|          LDM    DERW        SET READ/WRITE FLAG IN MESSAGE
01193  M01S01041.252l678 ---|          SHN    1
01194  M01S01042.252l678 ---|          RAM    HEDR+6
01195  M01S01043.252l678 ---|          LDM    SPSA        ADD DDP FUNCTION STATUS TO MESSAGE
01196  M01S01044.252l678 ---|          STM    HEDR+13
01197  M01S01045.252l678 ---|          LDM    ECSA        ADD EXTENDED MEMORY ADDRESS TO MESSAGE
01198  M01S01046.252l678 ---|          STM    HEDR+15
01199  M01S01047.252l678 ---|          LDM    ECSA+1
01200  M01S01048.252l678 ---|          STM    HEDR+16
01201  M01S01049.252l678 ---|          LDN    1
01202  M01S01050.252l678 ---|          STM    HEDR+14     ADD WORD COUNT TO MESSAGE
01203  M01S01051.252l678 ---|          STM    HEDR+12     INDICATE FIRST DATA WORD PRESENT
01204  M01S01052.252l678 ---|          LJM    DMP2        CONTINUE

Seq #  *Modification Id* Act 
----------------------------+
01205  M01S00086.252l678 +++| DMP3     LJM    LEP         CALL *7EQ* TO ISSUE BML MESSAGE
01206  M00S01053.6dp     +++|          SPACE  4,10
01207  M00S01054.6dp     +++|          ERRNG  10000-*     *7MP* HAS OVERFLOWED
01208  M00S01055.6dp     +++|          BSS    10000-*     (SPARES)
01209  M00S01056.6dp     +++|          CON    DMP-1       (T0) = ENTRY ADDRESS - 1
01210  M00S01057.6dp     +++|          CON    RECF        (T1) = RECF

Seq #  *Modification Id* Act 
----------------------------+
01211  M01S01058.252l678 ---|          CON    2           (T2) = 2

Seq #  *Modification Id* Act 
----------------------------+
01212  M01S00087.252l678 +++|          CON    ERXA        (T2) = ERXA
01213  M00S01059.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
01214  M00S01060.6dp     +++|          QUAL   *
01215  M00S01061.6dp     +++|          SPACE  4
01216  M00S01062.6dp     +++|          END