User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:6dp

Deck 6DP

7 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.6dp     +++|          IDENT  6DP,MSFW
00002  M01S00002.6dp     +++|          PERIPH
00003  M01S00003.6dp     +++|          BASE   MIXED
00004  M01S00004.6dp     +++|          SST
00005  M01S00005.6dp     +++|*COMMENT  6DP - DDP/ECS DRIVER.
Line S00006 Modification History
M01 (Added by) 6dp
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.6dp     +++|          TITLE  6DP - DDP/ECS DRIVER.
00009  M01S00008.6dp     +++|          SPACE  4
00010  M01S00009.6dp     +++|***       6DP - DDP/ECS DRIVER.
00011  M01S00010.6dp     +++|*         R. A. LARSEN.      72/10/01.
00012  M01S00011.6dp     +++|*         R. E. TATE.        73/10/17.
00013  M01S00012.6dp     +++|*         L. L. CLINTON      78/07/28.
00014  M01S00013.6dp     +++|          SPACE  4
00015  M01S00014.6dp     +++|***              *6DP* PROVIDES THE CAPABILITY TO ACCESS THE ECS I
00016  M01S00015.6dp     +++|*         AND ECS II SECONDARY STORAGE DEVICES VIA THE DC135 OR
00017  M01S00016.6dp     +++|*         THE PARITY ENHANCED DC145 DDP.
00018  M01S00017.6dp     +++|          SPACE  4
00019  M01S00018.6dp     +++|***       ORGANIZATION OF ECS I SUBSYSTEM.
00020  M01S00019.6dp     +++|*
00021  M01S00020.6dp     +++|*         EQUIPMENT TYPE = *DP*
00022  M01S00021.6dp     +++|*
Line S00022 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00022.252l678 ---|*         SECTORS/TRACK = 16
00024  M01S00001.252l678 +++|*         SECTORS/TRACK = *SLDE* (20B, 40B, 100B, 200B).
00025  M01S00023.6dp     +++|*
Line S00024 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00024.252l678 ---|*         TRACKS PER DEVICE =  121 FOR  125K ECS I.
Line S00025 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00025.252l678 ---|*                              242 FOR  250K ECS I.
Line S00026 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00026.252l678 ---|*                              484 FOR  500K ECS I.
Line S00027 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00027.252l678 ---|*                              968 FOR 1000K ECS I.
Line S00028 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00028.252l678 ---|*                             1937 FOR 2000K ECS I.
Line S00029 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00029.252l678 ---|*
00032  M01S00030.6dp     +++|*         WORDS PER DEVICE =   131,072 FOR  131K ECS I.
00033  M01S00031.6dp     +++|*                              262,144 FOR  262K ECS I.
00034  M01S00032.6dp     +++|*                              524,288 FOR  524K ECS I.
00035  M01S00033.6dp     +++|*                            1,048,576 FOR 1048K ECS I.
00036  M01S00034.6dp     +++|*                            2,097,152 FOR 2096K ECS I.
00037  M01S00035.6dp     +++|*
00038  M01S00036.6dp     +++|*         MAXIMUM DATA RATE = 80K WORDS PER SECOND. FOR PP/CM TRANSFER.
00039  M01S00037.6dp     +++|          SPACE  4
00040  M01S00038.6dp     +++|***       ORGANIZATION OF ECS II SUBSYSTEM.
00041  M01S00039.6dp     +++|*
00042  M01S00040.6dp     +++|*         EQUIPMENT TYPE = *DP*.
00043  M01S00041.6dp     +++|*
Line S00042 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00042.252l678 ---|*         SECTORS PER TRACK = 16.
00045  M01S00002.252l678 +++|*         SECTORS/TRACK = *SLDE* (20B, 40B, 100B, 200B).
00046  M01S00043.6dp     +++|*
Line S00044 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00044.252l678 ---|*         TRACKS PER DEVICE =  126 FOR  131K ECS II.
Line S00045 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00045.252l678 ---|*                              252 FOR  262K ECS II.
Line S00046 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00046.252l678 ---|*                              504 FOR  524K ECS II.
Line S00047 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00047.252l678 ---|*                             1008 FOR 1048K ECS II.
Line S00048 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00048.252l678 ---|*                             2016 FOR 2096K ECS II.
Line S00049 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00049.252l678 ---|*
00053  M01S00050.6dp     +++|*         WORDS PER DEVICE =   131,072 FOR  131K ECS II.
00054  M01S00051.6dp     +++|*                              262,144 FOR  262K ECS II.
00055  M01S00052.6dp     +++|*                              524,288 FOR  524K ECS II.
00056  M01S00053.6dp     +++|*                            1,048,576 FOR 1048K ECS II.
00057  M01S00054.6dp     +++|*                            2,097,152 FOR 2096K ECS II.
00058  M01S00055.6dp     +++|*
00059  M01S00056.6dp     +++|*         MAXIMUM DATA RATE = 160K WORDS PER SECOND FOR 2X PPS.
00060  M01S00057.6dp     +++|          SPACE  4
00061  M01S00058.6dp     +++|**        ENTRY CONDITIONS.
00062  M01S00059.6dp     +++|*
00063  M01S00060.6dp     +++|*
00064  M01S00061.6dp     +++|*         (T4) = CHANNEL, IF PREVIOUSLY RESERVED.
00065  M01S00062.6dp     +++|*         (T5) = EST ORDINAL.
00066  M01S00063.6dp     +++|*         (T6) = TRACK.
00067  M01S00064.6dp     +++|*         (T7) = SECTOR.
00068  M01S00065.6dp     +++|          SPACE  4
00069  M01S00066.6dp     +++|*CALL     COMPMAC
00070  M01S00067.6dp     +++|*CALL     COMPCHI
00071  M01S00068.6dp     +++|*CALL     COMSDFS
00072  M01S00069.6dp     +++|*CALL     COMSMSP
00073  M01S00070.6dp     +++|*CALL     COMSPIM
00074  M01S00071.6dp     +++|          SPACE  4
00075  M01S00072.6dp     +++|*         ASSEMBLY CONSTANTS.
00076  M01S00073.6dp     +++|
00077  M01S00074.6dp     +++|
00078  M01S00075.6dp     +++| CH       EQU    0           DDP CHANNEL
00079  M01S00076.6dp     +++| SC       EQU    5000        DDP SELECT CODE
00080  M01S00077.6dp     +++| DEC      MICRO  1,, 6DP     DECK NAME
00081  M01S00078.6dp     +++|          TITLE
00082  M01S00079.6dp     +++|**        ENTRY POINT TRANSFERS.
00083  M01S00080.6dp     +++|
00084  M01S00081.6dp     +++|
00085  M01S00082.6dp     +++|          ORG    MSFW
00086  M01S00083.6dp     +++|
00087  M01S00084.6dp     +++|          CON    PRS         PRESET ADDRESS
00088  M01S00085.6dp     +++|
00089  M01S00086.6dp     +++|
00090  M01S00087.6dp     +++| RDS      CON    0           ENTRY
00091  M01S00088.6dp     +++|          UJN    RDS.        ENTER DRIVER
00092  M01S00089.6dp     +++|
00093  M01S00090.6dp     +++|
00094  M01S00091.6dp     +++| WDS      CON    0           ENTRY
00095  M01S00092.6dp     +++|          UJN    WDS.
00096  M01S00093.6dp     +++| EMS      SPACE  4,10
00097  M01S00094.6dp     +++|**        EMS - END MASS STORAGE OPERATION.
00098  M01S00095.6dp     +++|*
00099  M01S00096.6dp     +++|*         ENTRY  (T4) = CHANNEL, IF PREVIOUSLY RESERVED.
00100  M01S00097.6dp     +++|*                (T5) = EQUIPMENT.
00101  M01S00098.6dp     +++|*
00102  M01S00099.6dp     +++|*         EXIT   (A) = 0.
00103  M01S00100.6dp     +++|*
00104  M01S00101.6dp     +++|*         NOTE - THE *.EMS* ENTRY POINT IS SUPPORTED ONLY VIA THE
00105  M01S00102.6dp     +++|*         *ENDMS* MACRO DEFINED IN *COMPMAC*.  IF THIS LOCATION
00106  M01S00103.6dp     +++|*         CHANGES, THE DEFINITION OF *.EMS* MUST BE CHANGED IN
00107  M01S00104.6dp     +++|*         *PPCOM* AND ALL PROGRAMS USING THE *ENDMS*
00108  M01S00105.6dp     +++|*         MACRO MUST BE REASSEMBLED.
00109  M01S00106.6dp     +++|
00110  M01S00107.6dp     +++|
00111  M01S00108.6dp     +++| .EMS     SUBR               ENTRY/EXIT - END MASS STORAGE OPERATION
00112  M01S00109.6dp     +++|          LDN    0
00113  M01S00110.6dp     +++|          RJM    DSW         *DSWM* PROCESSING
00114  M01S00111.6dp     +++|          UJN    .EMSX       RETURN
00115  M01S00112.6dp     +++| RDS      SPACE  4
00116  M01S00113.6dp     +++|**        RDS - READ SECTOR.
00117  M01S00114.6dp     +++|*
00118  M01S00115.6dp     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00119  M01S00116.6dp     +++|*
00120  M01S00117.6dp     +++|*         EXIT   (A) < 0, IF UNRECOVERABLE PARITY ERROR.
00121  M01S00118.6dp     +++|*
00122  M01S00119.6dp     +++|*         CALLS  LDE.
00123  M01S00120.6dp     +++|
00124  M01S00121.6dp     +++|
00125  M01S00122.6dp     +++| RDS.     STM    RDSA        SET BUFFER ADDRESS
00126  M01S00123.6dp     +++|          LDC    50S12+RDS
00127  M01S00124.6dp     +++|          UJN    LDE         REQUEST READ
00128  M01S00125.6dp     +++| WDS      SPACE  4
00129  M01S00126.6dp     +++|**        WDS - WRITE SECTOR.
00130  M01S00127.6dp     +++|*
00131  M01S00128.6dp     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00132  M01S00129.6dp     +++|*
00133  M01S00130.6dp     +++|*         EXIT   (A) < 0, IF UNRECOVERABLE PARITY ERROR.
00134  M01S00131.6dp     +++|*
00135  M01S00132.6dp     +++|*         CALLS  LDE.
00136  M01S00133.6dp     +++|
00137  M01S00134.6dp     +++|
00138  M01S00135.6dp     +++| WDS.     STM    WDSA        SET BUFFER ADDRESS
00139  M01S00136.6dp     +++|          LDC    51S12+WDS
00140  M01S00137.6dp     +++|*         UJN    LDE         REQUEST WRITE
00141  M01S00138.6dp     +++| LDE      SPACE  4,10
00142  M01S00139.6dp     +++|**        LDE - TRANSFER DATA TO/FROM ECS.
00143  M01S00140.6dp     +++|*
00144  M01S00141.6dp     +++|*         ENTRY  (A) = 6/ OPTION,12/ ENTRY
00145  M01S00142.6dp     +++|*                      50 = READ.
00146  M01S00143.6dp     +++|*                      51 = WRITE.
00147  M01S00003.252l678 +++|*                (LDEF) = EM TRACK SHIFT COUNT.
00148  M01S00144.6dp     +++|*                (RDSA) = BUFFER ADDRESS IF READ.
00149  M01S00145.6dp     +++|*                (WDSA) = BUFFER ADDRESS IF WRITE.
00150  M01S00146.6dp     +++|*
00151  M01S00147.6dp     +++|*         EXIT   TO *RDSX*/*WDSX* WITH (A) =0 IF NO ERROR.
00152  M01S00148.6dp     +++|*                TO *ERR* IF ERROR.
00153  M01S00149.6dp     +++|*
00154  M01S00150.6dp     +++|*         CALLS  SFN, STS.
00155  M01S00151.6dp     +++|
00156  M01S00152.6dp     +++|
00157  M01S00153.6dp     +++| LDE      STD    T0          SAVE ENTRY ADDRESS
00158  M01S00154.6dp     +++|          SHN    -14
00159  M01S00155.6dp     +++|          STI    D1          SET OPERATION
00160  M01S00156.6dp     +++| LDEA     SBN    50
00161  M01S00157.6dp     +++|*         SBN    51          (DRIVER SET FOR WRITE)
00162  M01S00158.6dp     +++|          ZJN    LDE0        IF DRIVER SET FOR REQUESTED OPERATION
00163  M01S00159.6dp     +++|          RAM    LDEA
00164  M01S00160.6dp     +++|          LDM    LDED        SET PROPER JUMP
00165  M01S00161.6dp     +++|          LMN    .A&.B
00166  M01S00162.6dp     +++|          ERRPL  LDE3.1-LDED-40  JUMP OUT OF RANGE
00167  M01S00163.6dp     +++|          ERRPL  LDE5-LDED-40  JUMP OUT OF RANGE
00168  M01S00164.6dp     +++|          STM    LDED
00169  M01S00165.6dp     +++| LDE0     LDI    T0          SET RETURN ADDRESS
00170  M01S00166.6dp     +++|          STM    LDEE
00171  M01S00167.6dp     +++|
00172  M01S00168.6dp     +++|*         REENTER HERE FOR ERROR RETRY.
00173  M01S00169.6dp     +++|
00174  M01S00170.6dp     +++| LDE1     LDN    1
00175  M01S00171.6dp     +++|          RJM    DSW         CHECK FOR CHANNEL RESERVED
00176  M01S00172.6dp     +++|          LDD    T6          COMPUTE HEADER ADDRESS
00177  M01S00173.6dp     +++|          LPC    3777
Line S00174 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00174.252l678 ---|          SHN    4
00179  M01S00004.252l678 +++| LDEF     SHN    4
00180  M01S00005.252l678 +++|*         SHN    4+EMTS      (EMTS = EM TRACK SHIFT COUNT)
00181  M01S00175.6dp     +++|          STD    CM+1
00182  M01S00176.6dp     +++|          SHN    -6
00183  M01S00177.6dp     +++|          STD    CM
00184  M01S00178.6dp     +++|          SHN    -6
00185  M01S00179.6dp     +++|          RAD    CM
00186  M01S00180.6dp     +++|          LDC    **          LARGEST TRACK VALUE
00187  M01S00181.6dp     +++| LDEB     EQU    *-1
00188  M01S00182.6dp     +++|          SBD    T6
Line S00183 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00183.252l678 ---|          MJN    LDE2        IF TRACK TOO LARGE
Line S00184 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00184.252l678 ---|          LDN    SLDP-1
Line S00185 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00185.252l678 ---|          SBD    T7
Line S00186 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00186.252l678 ---| LDE2     MJN    LDE4        IF SECTOR TOO LARGE
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  M01S00187.6dp     +++|          LDD    CM+1
00198  M01S00188.6dp     +++|          LPN    77
00199  M01S00189.6dp     +++|          SHN    6
00200  M01S00190.6dp     +++|          ADD    T7
00201  M01S00191.6dp     +++| LDE3     RAD    CM+1
00202  M01S00192.6dp     +++|          SHN    -14
00203  M01S00193.6dp     +++|          RAD    CM
00204  M01S00194.6dp     +++|          LDI    D1          LOAD READ OR WRITE FUNCTION
00205  M01S00195.6dp     +++|          LPN    7
00206  M01S00196.6dp     +++|          RJM    SFN         SEND FUNCTION
00207  M01S00197.6dp     +++|          LDN    2
00208  M01S00198.6dp     +++|          OAM    CM,CH       OUTPUT ADDRESS
00209  M01S00199.6dp     +++|          LDI    D1          SET WORD COUNT
00210  M01S00200.6dp     +++|          SHN    -3
00211  M01S00201.6dp     +++| LDED     UJN    LDE3.1      READ OPERATION
00212  M01S00202.6dp     +++|*         UJN    LDE5        (WRITE OPERATION)
00213  M01S00203.6dp     +++|
00214  M01S00204.6dp     +++| LDE3.1   IAM    *,CH
00215  M01S00205.6dp     +++| RDSA     EQU    *-1         READ BUFFER ADDRESS
00216  M01S00206.6dp     +++| .A       EQU    LDE3.1-LDED
00217  M01S00207.6dp     +++|          UJN    LDE6        CHECK STATUS
00218  M01S00208.6dp     +++|
00219  M01S00209.6dp     +++| LDE4     LDN    ADDE        SET ADDRESS ERROR
00220  M01S00210.6dp     +++|          UJN    LDE10       PROCESS ERROR
00221  M01S00211.6dp     +++|
00222  M01S00212.6dp     +++| LDE5     OAM    *,CH
00223  M01S00213.6dp     +++| WDSA     EQU    *-1
00224  M01S00214.6dp     +++| .B       EQU    LDE5-LDED
00225  M01S00215.6dp     +++|          FJM    *,CH        IF DATA NOT ACCEPTED BY CONTROLLER
00226  M01S00216.6dp     +++| LDE6     STM    ERRB        SAVE BYTE COUNT
00227  M01S00217.6dp     +++|          DCN    CH+40
00228  M01S00218.6dp     +++|
00229  M01S00219.6dp     +++|*         (T0) = P ADDRESS OF IAM/OAM INSTRUCTION.
00230  M01S00220.6dp     +++|
00231  M01S00221.6dp     +++| LDE7     SOD    T0
00232  M01S00222.6dp     +++|          ZJN    LDE9        IF TIME OUT
00233  M01S00223.6dp     +++|          LDN    4-1         SELECT STATUS
00234  M01S00224.6dp     +++|          RJM    SFN         SELECT FUNCTION
00235  M01S00225.6dp     +++|          IAN    CH+40
00236  M01S00226.6dp     +++|          DCN    CH+40
00237  M01S00227.6dp     +++|          STM    STSA
00238  M01S00228.6dp     +++|          LMN    2
00239  M01S00229.6dp     +++|          NJN    LDE7.1      IF NOT ACCEPT STATUS
00240  M01S00230.6dp     +++|          LDC    **          CHECK REMAINING BYTE COUNT
00241  M01S00231.6dp     +++| ERRB     EQU    *-1
00242  M01S00232.6dp     +++|          NJN    LDE8        IF INCOMPLETE TRANSFER
00243  M01S00233.6dp     +++|          LDI    D1
00244  M01S00234.6dp     +++|          LPN    70
00245  M01S00235.6dp     +++|          NJN    LDE12       IF HEADER OPERATION
00246  M01S00236.6dp     +++|          LJM    *           RETURN
00247  M01S00237.6dp     +++| LDEE     EQU    *-1
00248  M01S00238.6dp     +++|
00249  M01S00239.6dp     +++| LDE7.1   SCN    13
00250  M01S00240.6dp     +++|          ZJN    LDE7        IF NO PARITY ERROR
00251  M01S00241.6dp     +++| LDE8     LDN    PARE&DSTE
00252  M01S00242.6dp     +++| LDE9     LMN    DSTE
00253  M01S00243.6dp     +++| LDE10    UJN    ERR         PROCESS ERROR
00254  M01S00244.6dp     +++|
00255  M01S00245.6dp     +++| LDE12    LDC    5000-50     SET DATA WORD COUNT
00256  M01S00246.6dp     +++|          RAI    D1
00257  M01S00247.6dp     +++|          LDN    2           SET DATA BUFFER ADDRESS
00258  M01S00248.6dp     +++|          RAM    RDSA
00259  M01S00249.6dp     +++|          LDN    2
00260  M01S00250.6dp     +++|          RAM    WDSA
00261  M01S00251.6dp     +++|          LDD    T7
00262  M01S00252.6dp     +++|          SHN    6
00263  M01S00253.6dp     +++|          SBD    T7
Line S00254 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00254.252l678 ---|          ADN    SLDP
00265  M01S00010.252l678 +++|          ADM    SLM
00266  M01S00255.6dp     +++|          LJM    LDE3        PROCESS DATA
00267  M01S00256.6dp     +++| SFN      SPACE  4,10
00268  M01S00257.6dp     +++|**        SFN - SELECT FUNCTION.
00269  M01S00258.6dp     +++|*
00270  M01S00259.6dp     +++|*         ENTRY  (A) = FUNCTION CODE - 1.
00271  M01S00260.6dp     +++|*
Line S00261 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00261.6dp2    ---|*         EXIT   FUNCTION SELECTED OR (FTNA) = FUNCTION SELECTED.
00273  M01S00001.6dp2    +++|*         EXIT   FUNCTION SELECTED.
00274  M01S00262.6dp     +++|*                TO *ERR* IF FUNCTION TIMEOUT.
00275  M01S00263.6dp     +++|
00276  M01S00264.6dp     +++|
00277  M01S00265.6dp     +++| SFN2     ACN    CH
00278  M01S00266.6dp     +++|
00279  M01S00267.6dp     +++| SFN      SUBR               ENTRY/EXIT
00280  M01S00268.6dp     +++|          ADC    SC+1
Line S00269 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00269.6dp2    ---|          STM    FTNA        SAVE FUNCTION
00282  M01S00270.6dp     +++|          FAN    CH+40
00283  M01S00271.6dp     +++| SFN1     IJM    SFN2,CH     IF SELECT ACCEPTED
00284  M01S00272.6dp     +++|          SBN    1
00285  M01S00273.6dp     +++|          NJN    SFN1        IF NOT TIMED OUT
00286  M01S00274.6dp     +++|          LDN    FTOE
00287  M01S00275.6dp     +++|*         UJN    ERR         PROCESS ERROR
00288  M01S00276.6dp     +++| ERR      SPACE  4,10
00289  M01S00277.6dp     +++|**        ERR -  ERROR PROCESSOR.
00290  M01S00278.6dp     +++|*
00291  M01S00279.6dp     +++|*         ENTRY  (A) = ERROR CODE, IF ENTRY AT *ERR*.
00292  M01S00280.6dp     +++|*                      PARE = PARITY ERROR.
00293  M01S00281.6dp     +++|*                      ADDE = ADDRESS ERROR.
00294  M01S00282.6dp     +++|*                      DSTE = WRITE TIMEOUT. (STATUS ERROR)
00295  M01S00283.6dp     +++|*                      FTOE = FUNCTION TIMEOUT.
00296  M01S00284.6dp     +++|*         EXIT   TO *7DP* IF ENTRY AT *ERR*.
00297  M01S00285.6dp     +++|*                TO *7SP* IF ENTRY AT *ERR2*.
00298  M01S00286.6dp     +++|
00299  M01S00287.6dp     +++|
00300  M01S00288.6dp     +++| ERR      DCN    CH+40
00301  M01S00289.6dp     +++|          STM    ERRA        SAVE ERROR CODE
00302  M01S00290.6dp     +++| ERR1     MSERR  7DP,*
00303  M01S00291.6dp     +++|          UJN    ERR3        LOAD *7DP*
00304  M01S00292.6dp     +++|
00305  M01S00293.6dp     +++| ERR2     MSERR  7SP,*
00306  M01S00294.6dp     +++| ERR3     LJM    LEP1        LOAD ERROR PROCESSOR
00307  M01S00295.6dp     +++| DSW      SPACE  4,10
00308  M01S00296.6dp     +++|**        DSW - DRIVER SERVICE PROCESSING.
00309  M01S00297.6dp     +++|*
00310  M01S00298.6dp     +++|*         ENTRY  (A) = 1,  CHECK IF CHANNEL RESERVED.
00311  M01S00299.6dp     +++|*                (A) = 0,  RELEASE CHANNEL.
00312  M01S00300.6dp     +++|*
00313  M01S00301.6dp     +++|*         EXIT   (A) = 0.
00314  M01S00011.252l678 +++|*                (LDEF) = EM TRACK SHIFT COUNT.
00315  M01S00012.252l678 +++|*                (MSEA) = EM TRACK SHIFT COUNT.
00316  M01S00302.6dp     +++|*
00317  M01S00303.6dp     +++|*         USES   T0, T1, CM - CM+4.
00318  M01S00304.6dp     +++|*
00319  M01S00305.6dp     +++|*         MACROS MONITOR.
00320  M01S00306.6dp     +++|
00321  M01S00307.6dp     +++|
00322  M01S00308.6dp     +++| DSW2     RAI    T0
00323  M01S00309.6dp     +++|          AOD    CM+2
00324  M01S00310.6dp     +++| DSW3     LDM    TCHS-12,CM+2
00325  M01S00311.6dp     +++|          STD    T0
00326  M01S00312.6dp     +++|          LDD    T4
00327  M01S00313.6dp     +++| DSWA     SBN    CH
00328  M01S00314.6dp     +++|          NJN    DSW2        IF MORE INSTRUCTIONS TO MODIFY
00329  M01S00315.6dp     +++|
00330  M01S00316.6dp     +++| DSW      SUBR               ENTRY/EXIT
00331  M01S00317.6dp     +++|          STD    CM+3        SET *DSWM* REQUEST CODE
00332  M01S00318.6dp     +++|          LMM    CHRV
00333  M01S00319.6dp     +++|          LPN    1
00334  M01S00320.6dp     +++|          ZJN    DSWX        IF CORRECT CHANNEL STATUS
00335  M01S00321.6dp     +++|          LDM    CHRV        SET CHANNEL STATUS AND FLAGS FOR *DSWM*
00336  M01S00322.6dp     +++|          STD    CM
00337  M01S00323.6dp     +++| DSW1     LDD    OA
Line S00324 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00324.6dp2    ---|          CRM    PRSA,ON
Line S00325 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00325.6dp2    ---|          LDM    PRSA
00340  M01S00002.6dp2    +++|          CRM    SBUF,ON
00341  M01S00003.6dp2    +++|          LDM    SBUF
00342  M01S00326.6dp     +++|          NJN    DSW1        IF OUTPUT REGISTER BUSY
00343  M01S00327.6dp     +++|          LDD    MA          WRITE *DSWM* PARAMETERS
00344  M01S00328.6dp     +++|          CWD    T4
00345  M01S00329.6dp     +++|          MONITOR  DSWM
00346  M01S00330.6dp     +++|          LDD    MA          READ UPDATED CHANNEL
00347  M01S00331.6dp     +++|          CRD    T4
00348  M01S00332.6dp     +++|          LDD    CM+3        SET CHANNEL STATUS
00349  M01S00333.6dp     +++|          STM    CHRV
00350  M01S00334.6dp     +++|          LJM    DSW3        MODIFY INSTRUCTIONS
00351  M01S00335.6dp     +++|          SPACE  4
00352  M01S00336.6dp     +++|**        CHANNEL TABLE.
00353  M01S00337.6dp     +++|
00354  M01S00338.6dp     +++|
00355  M01S00339.6dp     +++|          CHTL   DSWA        TERMINATE CHANNEL TABLE
00356  M01S00340.6dp     +++| TCHS     CHTB
00357  M01S00341.6dp     +++|
00358  M01S00342.6dp     +++|
Line S00343 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00343.6dp2    ---| FTNA     CON    0           FUNCTION LAST ISSUED
00360  M01S00004.6dp2    +++| SBUF     BSS    5           SCRATCH BUFFER
00361  M01S00344.6dp     +++| PRS      SPACE  4
00362  M01S00345.6dp     +++|**        PRS - PRESET DRIVER.
00363  M01S00346.6dp     +++|*
00364  M01S00347.6dp     +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00365  M01S00348.6dp     +++|
Line S00349 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00349.6dp2    ---| PRS      LDD    CM+4        READ TDGL OF MST ENTRY
00367  M01S00005.6dp2    +++| PRS      LDD    CM+4        GET MAXIMUM TRACK
00368  M01S00350.6dp     +++|          SHN    3
00369  M01S00351.6dp     +++|          ADK    TDGL
Line S00352 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00352.6dp2    ---|          CRM    PRSA,ON
Line S00353 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00353.6dp2    ---|          SOM    PRSA
00372  M01S00006.6dp2    +++|          CRM    SBUF,ON
00373  M01S00007.6dp2    +++|          SOM    SBUF
00374  M01S00354.6dp     +++|          ADC    4000
00375  M01S00355.6dp     +++|          STM    LDEB
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  M01S00356.6dp     +++|          LJM    SMSX        RETURN
00382  M01S00357.6dp     +++|
Line S00358 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00358.6dp2    ---| PRSA     BSS    0           FIVE BYTES FOR READING LARGEST TRACK
Line S00359 Modification History
M01 (Added by) 6dp
M02 (Updated by) ns2352
M03 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00384  M03S00359.6dp2    ---|          ERRNG  PPFW-5-*-5  OVERFLOW OF PRSA
Line S00001 Modification History
M01 (Added by) ns2352
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00001.6dp2    ---| .1       SET    *+5+4-MSFW  CHECK FOR OVERFLOW
Line S00002 Modification History
M01 (Added by) ns2352
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00002.6dp2    ---| .1       SET    .1/5
Line S00003 Modification History
M01 (Added by) ns2352
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00003.6dp2    ---| .1       SET    MSFW+.1*5
Line S00004 Modification History
M01 (Added by) ns2352
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00004.6dp2    ---| .2       SET    PPFW-5-*-5  BYTES AVAILABLE BEFORE OVERFLOW
Line S00005 Modification History
M01 (Added by) ns2352
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00005.6dp2    ---|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5
00390  M01S00008.6dp2    +++|
00391  M01S00009.6dp2    +++|          OVERFLOW  MSFW,PPFW-5,CMR
Line S00360 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00360.252l678 ---| 7DP      MSOVL  7524,T2,EPFW-1,(DDP/ECS ERROR PROCESSOR.)
00393  M01S00018.252l678 +++| 7DP      MSOVL  7512,T2,EPFW-1,(DDP/ECS ERROR PROCESSOR.)
00394  M01S00361.6dp     +++|          SPACE  4,10
00395  M01S00362.6dp     +++|*****     7DP - DDP/ECS ERROR PROCESSOR.
00396  M01S00363.6dp     +++|*         W. E. GOEBEL       78/10/18.
00397  M01S00364.6dp     +++|*
00398  M01S00365.6dp     +++|          SPACE  4
00399  M01S00366.6dp     +++|***       *7DP* IS CALLED WHEN AN UNRECOVERED ECS ABORT HAS OCCURRED.
00400  M01S00367.6dp     +++|*         *7RP* IS CALLED TO COMPLETE THE INITIAL DATA TRANSFER AFTER
00401  M01S00368.6dp     +++|*         AN ECS PARITY ERROR HAS OCCURRED DURING AN ECS READ FUNCTION.
00402  M01S00369.6dp     +++|*         FOR AN ECS PARITY ERROR DURING A ECS READ OR WRITE FUNCTION
00403  M01S00370.6dp     +++|*         *7DP* CALLS *7SP* TO PERFORM SINGLE WORD REREAD/REWRITE OF THE
00404  M01S00371.6dp     +++|*         BLOCK IN AN ATTEMPT TO RECOVER FROM THE ERROR.  *7DP* EXITS
00405  M01S00372.6dp     +++|*         TO CALL *7ER* OR *7ES* TO ISSUE APPROPRIATE FINAL ERROR
00406  M01S00373.6dp     +++|*         MESSAGES.
00407  M01S00374.6dp     +++| MSE      SPACE  4
00408  M01S00375.6dp     +++|          QUAL
00409  M01S00376.6dp     +++| BEGIN    BSSN   PRS
00410  M01S00377.6dp     +++| ERRA     BSSN   1           ERROR FLAG WORD
00411  M01S00378.6dp     +++| ADDR     BSSN   1           BUFFER ADDRESS
00412  M01S00379.6dp     +++| ECSA     BSSN   2           ECS ADDRESS (2 BYTES)
00413  M01S00380.6dp     +++| WDCT     BSSN   1           WORD COUNT OF BLOCK
00414  M01S00381.6dp     +++| RECF     BSSN   1           ERROR TYPE FLAG
00415  M01S00382.6dp     +++| SPSA     BSSN   1           *7SP* STATUS
00416  M01S00383.6dp     +++|          ERRNG  DEFW-*      *7DP*/COMMON ERROR PROCESSOR CONFLICT
00417  M01S00384.6dp     +++| END      BSSN
00418  M01S00385.6dp     +++|          QUAL   *
00419  M01S00386.6dp     +++| MSE      SPACE  4,10
00420  M01S00387.6dp     +++|**        MSE - MASS STORAGE ERROR PROCESSOR.
00421  M01S00388.6dp     +++|*
00422  M01S00389.6dp     +++|*         ENTRY  (T1) = ERRA.
00423  M01S00390.6dp     +++|*                (T2) = RDCT.
00424  M01S00391.6dp     +++|*                (T4 - T7) = DRIVER PARAMETERS.
00425  M01S00392.6dp     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
Line S00393 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00393.253l688 ---|*                         BIT 4 = 0 IF FIRST RETRY ATTEMPT.
00427  M01S00001.253l688 +++|*                         BIT 6 = 0 IF FIRST RETRY ATTEMPT.
00428  M01S00394.6dp     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
00429  M01S00395.6dp     +++|*                         BIT 12 = 1 IF *7MP* IS REPORTING AN
00430  M01S00396.6dp     +++|*                                  UNRECOVERED PARITY ERROR.
00431  M01S00397.6dp     +++|*                ((D1)) BIT 0 = 0 IF READ, 1 IF WRITE.
00432  M01S00398.6dp     +++|*                ((D1)) BITS 3-11 = TOTAL BYTE COUNT (5 FOR HEADER
00433  M01S00399.6dp     +++|*                OPERATION, 500 FOR DATA OPERATION).
Line S00400 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00400.253l688 ---|*T ERRA   2/ OP,1/ D,2/ 0,1/ R,1/ A,1/ S,4/ EC
Figure ERRA

034567891011 EC S A R 0 D OP

00435  M01S00002.253l688 +++|*T ERRA   2/ OP,1/ D,1/ A,1/ S,1/ R,6/ EC
Figure ERRA

0567891011 EC R S A D OP

00436  M01S00401.6dp     +++|*                OP = OPERATION.
00437  M01S00402.6dp     +++|*                    0 = READ HEADER.
00438  M01S00403.6dp     +++|*                    1 = READ DATA.
00439  M01S00404.6dp     +++|*                    2 = WRITE HEADER.
00440  M01S00405.6dp     +++|*                    3 = WRITE DATA.
00441  M01S00406.6dp     +++|*                D = DDP TYPE.
00442  M01S00407.6dp     +++|*                    0 = DC145.
00443  M01S00408.6dp     +++|*                    1 = DC135.
00444  M01S00003.253l688 +++|*                A = *7RP*/*7SP* ABORT FLAG.
00445  M01S00004.253l688 +++|*                S = *7SP* CALL FLAG (SET IF CALLED).
00446  M01S00409.6dp     +++|*                R = *7RP* CALL FLAG (SET IF CALLED)
Line S00410 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00410.253l688 ---|*                A = *7RP*/*7SP* ABORT FLAG.
Line S00411 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00411.253l688 ---|*                S = *7SP* CALL FLAG (SET IF CALLED)
00449  M01S00412.6dp     +++|*                EC = ERROR CODE AS DEFINED IN *COMSMSP*.
00450  M01S00413.6dp     +++|*         (ERRB) = BYTES LEFT TO BE TRANSFERED IF DISCONNECT ON I/O.
00451  M01S00414.6dp     +++|*
Line S00415 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00415.252l678 ---|*         EXIT   (DEDT) = 8/0, 4/*6DP* DRIVER TYPE.
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  M01S00416.6dp     +++|*                (DEEC) = ERROR CODE.
00458  M01S00417.6dp     +++|*                (DENR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00459  M01S00418.6dp     +++|*                (DERC) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00460  M01S00419.6dp     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
00461  M01S00420.6dp     +++|*                (DEST) = 0.
00462  M01S00421.6dp     +++|*                (DEWR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00463  M01S00422.6dp     +++|*                (DEXA) = EXIT ADDRESS.
00464  M01S00423.6dp     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
Line S00424 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00424.253l688 ---|*                         BIT 4 = 1.
00466  M01S00005.253l688 +++|*                         BIT 6 = 1.
00467  M01S00425.6dp     +++|*
00468  M01S00426.6dp     +++|*         USES   CM - CM+4, T0 - T2.
00469  M01S00427.6dp     +++|*
00470  M01S00428.6dp     +++|*         MACROS ENDMS, MSERR.
00471  M01S00429.6dp     +++|
00472  M01S00430.6dp     +++|
00473  M01S00431.6dp     +++| DDP      ENTRY              *7DP* ENTRY
00474  M01S00432.6dp     +++|
00475  M01S00023.252l678 +++|          LDM    LDEF
00476  M01S00024.252l678 +++|          STM    MSEA        USE EXISTING INSTRUCTION TO SAVE SPACE
00477  M01S00433.6dp     +++|          SFA    EST,T5      READ EST ENTRY
00478  M01S00434.6dp     +++|          ADK    EQDE
00479  M01S00435.6dp     +++|          CRD    CM
00480  M01S00436.6dp     +++|          LDD    CM+4        READ DILL OF MST ENTRY
00481  M01S00437.6dp     +++|          SHN    3
00482  M01S00438.6dp     +++|          ADN    DILL
00483  M01S00439.6dp     +++|          CRD    CM
00484  M01S00440.6dp     +++|          SOD    CM+3        SET DDP TYPE
00485  M01S00441.6dp     +++|          LPN    1
00486  M01S00442.6dp     +++|          STD    CM+2
00487  M01S00443.6dp     +++|          LDI    D1          SET READ WRITE FLAG
00488  M01S00444.6dp     +++|          LPN    1
00489  M01S00445.6dp     +++|          STM    DERW
00490  M01S00446.6dp     +++|          ERRPL  DERW-*      STORE DESTROYS CODE
00491  M01S00447.6dp     +++|          ERRNZ  REDP        CODE DEPENDS OF VALUE OF *REDP*
00492  M01S00448.6dp     +++|          ERRNZ  WRIP-1      CODE DEPENDS OF VALUE OF *WRIP*
00493  M01S00449.6dp     +++|          ZJN    MSE1        IF READ OPERATION
00494  M01S00450.6dp     +++|          SHN    2
00495  M01S00451.6dp     +++|          RAD    CM+2        SET WRITE OPERATION
00496  M01S00452.6dp     +++|          LDN    WDSA-RDSA
00497  M01S00453.6dp     +++| MSE1     ADC    RDSA        SET BUFFER LOCATION
00498  M01S00454.6dp     +++|          STD    CM
00499  M01S00455.6dp     +++|          LDC    LDE1        SAVE ERROR EXIT RETURN ADDRESS
00500  M01S00456.6dp     +++|          STM    DEXA
00501  M01S00457.6dp     +++|          ERRPL  DEXA-*      STORE DESTROYS CODE
00502  M01S00458.6dp     +++|          LDI    T2
Line S00459 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00459.253l688 ---|          LPN    20
00504  M01S00006.253l688 +++|          LPC    100
00505  M01S00460.6dp     +++|          NJN    MSE1.1      IF NOT FIRST RETRY ATTEMPT
00506  M01S00461.6dp     +++|          STM    DENR        INITIALIZE *NON-RECOVERABLE ERROR* FLAG
00507  M01S00462.6dp     +++|          STM    DERC        INITIALIZE RETRY COUNT
00508  M01S00463.6dp     +++|          STM    DEWR        INITIALIZE *DATA WRITTEN/READ* FLAG
Line S00464 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00464.253l688 ---|          LDN    20          SET *ERROR RECOVERY IN PROGRESS* FLAG
00510  M01S00007.253l688 +++|          LDD    HN          SET RECOVERY IN PROGRESS FLAG
00511  M01S00465.6dp     +++|          STI    T2
00512  M01S00466.6dp     +++|          LDD    T4          SAVE INITIAL CHANNEL
00513  M01S00467.6dp     +++|          STM    MSFW
Line S00468 Modification History
M01 (Added by) 6dp
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00468.ns2741  ---| MSE1.1   LDK    /COMSDFS/D6DP  SAVE DRIVER TYPE FOR *7EL*
00515  M01S00001.ns2741  +++| MSE1.1   LDK    /COMSDFS/D6DP  SAVE DRIVER TYPE FOR *7EK*
00516  M01S00469.6dp     +++|          STM    DEDT
00517  M01S00470.6dp     +++|          ERRPL  DEDT-*      STORE DESTROYS CODE
00518  M01S00471.6dp     +++|          LDI    T1
Line S00472 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00472.253l688 ---|          SCN    17
00520  M01S00008.253l688 +++|          SCN    77
00521  M01S00473.6dp     +++|          NJN    MSE3        IF CALLED FROM *7RP* OR *7SP*
00522  M01S00474.6dp     +++|          STM    DEST        INITIALIZE ERROR PROCESSING CONTROL WORD
00523  M01S00475.6dp     +++|          ERRPL  DEST-*      CODE DESTROYED
00524  M01S00476.6dp     +++|          LDI    CM
00525  M01S00477.6dp     +++|          STM    ADDR        SET BUFFER ADDRESS
00526  M01S00478.6dp     +++|          LDI    D1
00527  M01S00479.6dp     +++|          SHN    -5
00528  M01S00480.6dp     +++|          SCN    76
00529  M01S00481.6dp     +++|          STM    WDCT
00530  M01S00482.6dp     +++|          SHN    -6
00531  M01S00483.6dp     +++|          ZJN    MSE2        IF HEADER OPERATION
00532  M01S00484.6dp     +++|          LCN    2
00533  M01S00485.6dp     +++|          RAI    CM
00534  M01S00486.6dp     +++|          LDC    50-5000     RESET DRIVER FOR HEADER OPERATION
00535  M01S00487.6dp     +++|          RAI    D1
00536  M01S00488.6dp     +++|          LDN    2           FLAG ERROR IN DATA OPERATION
00537  M01S00489.6dp     +++| MSE2     LMD    CM+2
00538  M01S00490.6dp     +++|          SHN    13-2        APPEND STATUS FLAGS TO *ERRA*
00539  M01S00491.6dp     +++|          RAI    T1
00540  M01S00492.6dp     +++| MSE3     LPC    2000
00541  M01S00493.6dp     +++|          ZJN    MSE4        IF HEADER OPERATION
Line S00494 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00494.252l678 ---|          LDD    T7          DATA ADDRESS = HEADER + 20 + 77 * SECTOR
00543  M01S00025.252l678 +++|
00544  M01S00026.252l678 +++|*         DATA ADDRESS = HEADER ADDRESS + SECTOR LIMIT + 77 * SECTOR
00545  M01S00027.252l678 +++|
00546  M01S00028.252l678 +++|          LDD    T7
00547  M01S00495.6dp     +++|          SHN    6
00548  M01S00496.6dp     +++|          SBD    T7
Line S00497 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00497.252l678 ---|          ADN    SLDP
Line S00498 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00498.252l678 ---| MSE4     STD    T0
Line S00499 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00499.252l678 ---|          LDD    T6          HEADER ADDRESS = TRACK * 2020 + SECTOR
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  M01S00500.6dp     +++|          LPC    3777
Line S00501 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00501.252l678 ---|          SHN    4
00562  M01S00037.252l678 +++| MSEA     SHN    4
00563  M01S00038.252l678 +++|*         SHN    4+EMTS      (EMTS = EM TRACK SHIFT COUNT)
00564  M01S00502.6dp     +++|          STD    CM+4
00565  M01S00503.6dp     +++|          SHN    -6
00566  M01S00504.6dp     +++|          STD    CM+3
00567  M01S00505.6dp     +++|          SHN    -6
00568  M01S00506.6dp     +++|          RAD    CM+3
00569  M01S00507.6dp     +++|          LDD    CM+4
00570  M01S00508.6dp     +++|          LPN    77
00571  M01S00509.6dp     +++|          SHN    6
00572  M01S00510.6dp     +++|          ADD    T7
Line S00511 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00511.252l678 ---|          ADD    T0
00574  M01S00039.252l678 +++|          ADD    T2
00575  M01S00512.6dp     +++|          RAD    CM+4
00576  M01S00513.6dp     +++|          STM    ECSA+1
00577  M01S00514.6dp     +++|          SHN    -14
00578  M01S00040.252l678 +++|          ADD    T0
00579  M01S00515.6dp     +++|          RAD    CM+3
00580  M01S00516.6dp     +++|          STM    ECSA
Line S00517 Modification History
M01 (Added by) 6dp
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00517.ns2741  ---|          LDI    CM          SAVE BUFFER ADDRESS FOR *7EL*
00582  M01S00002.ns2741  +++|          LDI    CM          SAVE BUFFER ADDRESS FOR *7EK*
00583  M01S00518.6dp     +++|          STD    T2
00584  M01S00519.6dp     +++|          LDN    0           DEFAULT IS NO FIRST OR SECOND WORD PRESENT
00585  M01S00520.6dp     +++|          STD    CM
Line S00521 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00521.6dp2    ---|          STD    CM+1        DEFAULT IS NO DDP FUNCTION STATUS PRESENT
00587  M01S00010.6dp2    +++|          LDM    STSA        DEFAULT STATUS IS LAST STATUS
00588  M01S00011.6dp2    +++|          STD    CM+1
00589  M01S00522.6dp     +++|          LDM    WDCT        ADD WORD COUNT TO MESSAGE
00590  M01S00523.6dp     +++|          STD    CM+2
00591  M01S00524.6dp     +++|          LDI    T1          SAVE ERROR CODE
Line S00525 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00525.253l688 ---|          LPN    17
00593  M01S00009.253l688 +++|          LPN    77
00594  M01S00526.6dp     +++|          STM    DEEC
00595  M01S00527.6dp     +++|          ERRPL  DEEC-*      CODE DESTROYED
00596  M01S00528.6dp     +++|          LMK    PARE
00597  M01S00529.6dp     +++|          NJN    MSE8        IF NOT PARITY ERROR
00598  M01S00530.6dp     +++|          LDD    T2
00599  M01S00531.6dp     +++|          SBK    EPFW+1-502
00600  M01S00532.6dp     +++|          PJN    MSE8        IF BUFFER OVERLAYS ERROR PROCESSOR AREA
00601  M01S00533.6dp     +++|          LDI    T1
00602  M01S00534.6dp     +++|          SHN    21-13
00603  M01S00535.6dp     +++|          MJN    MSE6        IF WRITE OPERATION
00604  M01S00536.6dp     +++|          SHN    13-6
00605  M01S00537.6dp     +++|          MJN    MSE6        IF *7RP* ALREADY CALLED
00606  M01S00538.6dp     +++|          MSERR  7RP,*
00607  M01S00539.6dp     +++|          UJN    MSE9        EXECUTE *7RP*
00608  M01S00540.6dp     +++|
00609  M01S00541.6dp     +++| MSE6     LDI    T1
Line S00542 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00542.253l688 ---|          SHN    21-5
00611  M01S00010.253l688 +++|          SHN    21-10
00612  M01S00543.6dp     +++|          MJN    MSE8        IF *7RP* OR *7SP* ABORTED
Line S00544 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00544.253l688 ---|          SHN    5-4
00614  M01S00011.253l688 +++|          SHN    10-7
00615  M01S00545.6dp     +++|          MJN    MSE10       IF *7SP* ALREADY CALLED
00616  M01S00546.6dp     +++|          LPN    20          SET SINGLE WORD READ FOR DC135
00617  M01S00547.6dp     +++|          SHN    12-4
00618  M01S00548.6dp     +++|          RAM    ECSA
00619  M01S00549.6dp     +++|          LDC    ERR2        SET RETURN ADDRESS TO *7SP*
00620  M01S00550.6dp     +++|          STM    DEXA
00621  M01S00041.252l678 +++|          LDN    20          SET RETURN TO ERROR PROCESSOR
00622  M01S00042.252l678 +++|          RAM    DEDT
Line S00551 Modification History
M01 (Added by) 6dp
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00551.ns2741  ---| MSE8     LDD    MA          STORE *7EL* PARAMETERS
00624  M01S00003.ns2741  +++| MSE8     LDD    MA          STORE *7EK* PARAMETERS
00625  M01S00552.6dp     +++|          ADN    2
00626  M01S00553.6dp     +++|          CWD    CM
Line S00554 Modification History
M01 (Added by) 6dp
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00554.ns2741  ---|          MSERR  7EL,*
00628  M01S00004.ns2741  +++|          MSERR  7EK,*
00629  M01S00555.6dp     +++| MSE9     LJM    LEP1        LOAD ERROR PROCESSOR
00630  M01S00556.6dp     +++|
00631  M01S00557.6dp     +++| MSE10    LDM    DEST
00632  M01S00558.6dp     +++|          SHN    21-12
00633  M01S00559.6dp     +++|          MJN    MSE11       IF AT LEAST ONE ERROR WAS UNRECOVERED
00634  M01S00560.6dp     +++|          LDI    T1
00635  M01S00561.6dp     +++|          SHN    21-12
00636  M01S00562.6dp     +++|          PJN    MSE12       IF A HEADER OPERATION
00637  M01S00563.6dp     +++|          ENDMS
Line S00564 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00564.6dp2    ---|          MSERR  7ES         EXECUTE *7ES*
00639  M01S00012.6dp2    +++|          MSERR  7ES,*
00640  M01S00013.6dp2    +++|          UJN    MSE9        LOAD ERROR PROCESSOR
00641  M01S00565.6dp     +++|
00642  M01S00566.6dp     +++| MSE11    ENDMS              ISSUE ERRLOG AND DAYFILE MESSAGES
Line S00567 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp2
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00567.6dp2    ---|          MSERR  7ER         EXECUTE *7ER*
00644  M01S00014.6dp2    +++|          MSERR  7ER,*
00645  M01S00015.6dp2    +++|          UJN    MSE9        LOAD ERROR PROCESSOR
00646  M01S00568.6dp     +++|
00647  M01S00569.6dp     +++| MSE12    LDN    0           CLEAR MESSAGE FROM *MS2W*
00648  M01S00570.6dp     +++|          STD    T1
00649  M01S00571.6dp     +++|          LDD    CP
00650  M01S00572.6dp     +++|          ADK    MS2W
00651  M01S00573.6dp     +++|          CWD    T1
00652  M01S00574.6dp     +++|          LJM    LDE1        RETRY THE OPERATION
00653  M01S00575.6dp     +++|
00654  M01S00576.6dp     +++|
00655  M01S00577.6dp     +++|          HERE
00656  M01S00578.6dp     +++|          SPACE  4
00657  M01S00579.6dp     +++|          ERRNG  10000-*     *7DP* HAS OVERFLOWED
00658  M01S00580.6dp     +++|          BSS    10000-*     SPARES (ADJUST ORIGIN BY 5 AS REQUIRED)
00659  M01S00581.6dp     +++|          CON    DDP-1       (T0) = ENTRY ADDRESS - 1
00660  M01S00582.6dp     +++|          CON    ERRA        (T1) = ERROR FLAG WORD
00661  M01S00583.6dp     +++|          CON    RDCT        (T2) = RDCT
00662  M01S00584.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
00663  M01S00585.6dp     +++|          QUAL   *
00664  M01S00586.6dp     +++| 7RP      MSOVL  7613,T2,EPFW-1,(DDP/ECS READ ERROR PROCESSOR.)
00665  M01S00587.6dp     +++|          SPACE  4,10
00666  M01S00588.6dp     +++|*****     7RP - DDP/ECS REMAINING BLOCK ERROR PROCESSOR.
00667  M01S00589.6dp     +++|*
00668  M01S00590.6dp     +++|*         J. L. LARSON.      78/07/28.
00669  M01S00591.6dp     +++|          SPACE  4,10
00670  M01S00592.6dp     +++|***       *7RP* IS CALLED BY *7DP* WHEN A ECS PARITY ERROR HAS
00671  M01S00593.6dp     +++|*         OCCURRED DURING AN ECS READ FUNCTION.  *7RP* RETRIEVES THE
00672  M01S00594.6dp     +++|*         DATA IN ERROR FROM THE DDP PORT AND COMPLETES THE READ OF
00673  M01S00595.6dp     +++|*         THE REMAINING ECS WORDS.
00674  M01S00596.6dp     +++|          SPACE  4,10
00675  M01S00597.6dp     +++|***       ENTRY CONDITIONS.
00676  M01S00598.6dp     +++|*
00677  M01S00599.6dp     +++|*                (T4) = CHANNEL NUMBER.
00678  M01S00600.6dp     +++|*                (T5) = ECS EST ORDINAL.
00679  M01S00601.6dp     +++|*                CHANNEL RESERVED.
00680  M01S00602.6dp     +++|*                (WDCT) = TOTAL WORD COUNT (1 OR 100B).
00681  M01S00603.6dp     +++|*                (ERRA) = AS DOCUMENTED IN *7DP*.
00682  M01S00604.6dp     +++|*                (ERRB) = REMAINING BYTE COUNT.
00683  M01S00605.6dp     +++|*                (ECSA - ECSA+1) = ECS FWA.
00684  M01S00606.6dp     +++|*                (ADDR) = PP BUFFER FWA.
00685  M01S00607.6dp     +++|          SPACE  4,10
00686  M01S00608.6dp     +++|***       EXIT CONDITIONS.
00687  M01S00609.6dp     +++|*
00688  M01S00610.6dp     +++|*                (ERRA) BIT 6 SET TO INDICATE *7RP* CALLED.
Line S00611 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00611.253l688 ---|*                (ERRA) BIT 5 SET IF *7RP* ABORT.
00690  M01S00012.253l688 +++|*                (ERRA) BIT 10 SET IF *7RP* ABORT.
00691  M01S00612.6dp     +++|*                (ECSA - ECSA+1) = UNCHANGED.
00692  M01S00613.6dp     +++|*                (ADDR) = UNCHANGED.
00693  M01S00614.6dp     +++|*                (WDCT) = UNCHANGED.
00694  M01S00615.6dp     +++|          SPACE  4,10
00695  M01S00616.6dp     +++|**        COMMON DECKS.
00696  M01S00617.6dp     +++|
00697  M01S00618.6dp     +++|
00698  M01S00619.6dp     +++| FWDL$    EQU    1           SELECT FORWARD LINKED LIST
00699  M01S00620.6dp     +++|*CALL     COMPCHL
00700  M01S00621.6dp     +++| RRP      SPACE  4,10
00701  M01S00622.6dp     +++|**        RRP - DDP/ECS REMAINING BLOCK ERROR PROCESSOR.
00702  M01S00623.6dp     +++|
00703  M01S00624.6dp     +++|
00704  M01S00625.6dp     +++| DRP      ENTRY              *7RP* ENTRY
00705  M01S00626.6dp     +++|
00706  M01S00627.6dp     +++|*         MODIFY CHANNEL INSTRUCTIONS.
00707  M01S00628.6dp     +++|
00708  M01S00629.6dp     +++|          LDN    0
00709  M01S00630.6dp     +++| RRP1     RAD    T1
00710  M01S00631.6dp     +++|          LDI    T1          SAVE LINK TO NEXT INSTRUCTION
00711  M01S00632.6dp     +++|          LPN    37
00712  M01S00633.6dp     +++|          STD    CM
00713  M01S00634.6dp     +++|          LDD    T4          MODIFY CHANNEL INSTRUCTION
00714  M01S00635.6dp     +++|          SBD    CM
00715  M01S00636.6dp     +++|          RAI    T1
00716  M01S00637.6dp     +++|          LDD    CM
00717  M01S00638.6dp     +++|          NJN    RRP1        IF MORE CHANNEL INSTRUCTIONS
00718  M01S00639.6dp     +++|
00719  M01S00640.6dp     +++|*         READ ERROR DATA FROM DDP PORT.
00720  M01S00641.6dp     +++|
00721  M01S00642.6dp     +++| RRP2     LDI    T2          CALCULATE NUMBER OF BYTES TO INPUT
00722  M01S00643.6dp     +++|          ZJN    RRP5        IF NO BYTES TO INPUT
00723  M01S00644.6dp     +++|          STD    CM+2
00724  M01S00645.6dp     +++|          SBN    10*5
00725  M01S00646.6dp     +++|          MJN    RRP3        IF NOT FULL RECORD TO BE READ
00726  M01S00647.6dp     +++|          LDN    10*5
00727  M01S00648.6dp     +++|          STD    CM+2
00728  M01S00649.6dp     +++| RRP3     LDM    ERRA        CHECK DDP TYPE (1 = DC135, 0 = DC145)
00729  M01S00650.6dp     +++|          LPC    1000
00730  M01S00651.6dp     +++|          STD    CM          SET MAINTENANCE MODE ADDRESS BIT
00731  M01S00652.6dp     +++|          SHN    4-11
00732  M01S00653.6dp     +++|          LMN    20
00733  M01S00654.6dp     +++|          RJM    RED         READ ECS DATA
00734  M01S00655.6dp     +++|          NJN    ABT         IF ERROR DATA NOT SUCCESSFULLY READ
00735  M01S00656.6dp     +++|          STD    CM
00736  M01S00657.6dp     +++|          SBD    CM+2        DECREMENT REMAINING BYTE COUNT
00737  M01S00658.6dp     +++|          RAI    T2
00738  M01S00659.6dp     +++|          ZJN    END         IF NO MORE ECS WORDS TO READ
00739  M01S00660.6dp     +++|
00740  M01S00661.6dp     +++|*         READ REMAINING ECS WORDS.
00741  M01S00662.6dp     +++|
00742  M01S00663.6dp     +++|          STD    CM+2        SET BYTES TO INPUT
00743  M01S00664.6dp     +++|          LDN    7           MASTER CLEAR PORT
00744  M01S00665.6dp     +++|          RJM    SFC
00745  M01S00666.6dp     +++|          DCN    CH+40
00746  M01S00667.6dp     +++|          LDN    0
00747  M01S00668.6dp     +++|          RJM    RED         READ ECS DATA
00748  M01S00669.6dp     +++|          STI    T2          SAVE REMAINING BYTE COUNT
00749  M01S00670.6dp     +++|          NJN    RRP2        IF NOT ALL DATA TRANSFERRED SUCCESSFULLY
00750  M01S00671.6dp     +++| RRP5     UJN    END         RETURN TO *7DP*
00751  M01S00672.6dp     +++| SFC      SPACE  4,10
00752  M01S00673.6dp     +++|**        SFC - SELECT FUNCTION.
00753  M01S00674.6dp     +++|*
00754  M01S00675.6dp     +++|*         ENTRY  (A) = FUNCTION CODE - 1.
00755  M01S00676.6dp     +++|*
00756  M01S00677.6dp     +++|*         EXIT   CHANNEL ACTIVATED.
00757  M01S00678.6dp     +++|*                TO *ABT*, IF CHANNEL PREVIOUSLY ACTIVE, OR FUNCTION
00758  M01S00679.6dp     +++|*                TIMEOUT.
00759  M01S00680.6dp     +++|
00760  M01S00681.6dp     +++|
00761  M01S00682.6dp     +++| SFC2     ACN    CH
00762  M01S00683.6dp     +++|
00763  M01S00684.6dp     +++| SFC      SUBR               ENTRY/EXIT
00764  M01S00685.6dp     +++|          ADC    SC+1
00765  M01S00686.6dp     +++|          AJM    ABT,CH      IF ILLEGAL CHANNEL STATE
00766  M01S00687.6dp     +++|          FAN    CH
00767  M01S00688.6dp     +++| SFC1     IJM    SFC2,CH     IF SELECT ACCEPTED
00768  M01S00689.6dp     +++|          SBN    1
00769  M01S00690.6dp     +++|          NJN    SFC1        IF NOT FUNCTION TIMEOUT
00770  M01S00691.6dp     +++|*         UJN    ABT         ABORT
00771  M01S00692.6dp     +++| ABT      SPACE  4,10
00772  M01S00693.6dp     +++|**        ABT - ABORT PROCESSOR.
00773  M01S00694.6dp     +++|
00774  M01S00695.6dp     +++|
00775  M01S00696.6dp     +++| ABT      DCN    CH+40
Line S00697 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00776  M02S00697.253l688 ---|          LDN    40          SET *7RP* ABORT FLAG
00777  M01S00013.253l688 +++|          LDC    400         SET *7RP* ABORT FLAG
00778  M01S00698.6dp     +++|*         UJN    END         RETURN TO *7DP*
00779  M01S00699.6dp     +++| END      SPACE  4,10
00780  M01S00700.6dp     +++|**        END - END PROCESSOR.
00781  M01S00701.6dp     +++|
00782  M01S00702.6dp     +++|
00783  M01S00703.6dp     +++| END      ADD    HN          INDICATE *7RP* CALLED
00784  M01S00704.6dp     +++|          RAM    ERRA
00785  M01S00705.6dp     +++|          LJM    ERR1        RETURN TO *7DP*
00786  M01S00706.6dp     +++| RED      SPACE  4,10
00787  M01S00707.6dp     +++|**        RED - READ ECS DATA.
00788  M01S00708.6dp     +++|*
00789  M01S00709.6dp     +++|*         ENTRY  (A) = FUNCTION CODE (NORMAL OR MAINTENANCE MODE READ).
00790  M01S00710.6dp     +++|*                (CM) = ADDRESS BIT FOR MAINTENANCE MODE READ.
00791  M01S00711.6dp     +++|*                (CM+2) = NUMBER OF BYTES TO INPUT.
00792  M01S00712.6dp     +++|*
00793  M01S00713.6dp     +++|*         EXIT   (A) = BYTE COUNT REMAINING AFTER INPUT.
00794  M01S00714.6dp     +++|*                TO *ABT*, IF ECS ADDRESS NOT ACCEPTED.
00795  M01S00715.6dp     +++|*
00796  M01S00716.6dp     +++|*         USES   T1, CM, CM+1, CM+3.
00797  M01S00717.6dp     +++|*
00798  M01S00718.6dp     +++|*         CALLS  SFC.
00799  M01S00719.6dp     +++|
00800  M01S00720.6dp     +++|
00801  M01S00721.6dp     +++| RED1     LDN    10          INCREMENT ECS ADDRESS OFFSET
00802  M01S00722.6dp     +++|          RAD    CM+1
00803  M01S00723.6dp     +++|          LCN    10*5        DECREMENT BYTE COUNT
00804  M01S00724.6dp     +++|          RAD    T1
00805  M01S00725.6dp     +++| RED2     NJN    RED1        IF MORE BYTES TO COUNT
00806  M01S00726.6dp     +++|          LDM    ECSA+1      CALCULATE ECS ADDRESS FOR NEW READ
00807  M01S00727.6dp     +++|          RAD    CM+1
00808  M01S00728.6dp     +++|          SHN    -14
00809  M01S00729.6dp     +++|          ADM    ECSA
00810  M01S00730.6dp     +++|          RAD    CM
00811  M01S00731.6dp     +++|          LDD    CM+3        SELECT READ FUNCTION
00812  M01S00732.6dp     +++|          RJM    SFC
00813  M01S00733.6dp     +++|          LDN    2           OUTPUT ECS ADDRESS
00814  M01S00734.6dp     +++|          OAM    CM,CH
00815  M01S00735.6dp     +++|          NJN    ABT         IF ADDRESS NOT ACCEPTED
00816  M01S00736.6dp     +++|          LDD    CM+2        INPUT ECS DATA
00817  M01S00737.6dp     +++|          IAM    *,CH
00818  M01S00738.6dp     +++| REDA     EQU    *-1
00819  M01S00739.6dp     +++|          DCN    CH+40
00820  M01S00740.6dp     +++|          STD    T1
00821  M01S00741.6dp     +++|          LDN    4-1         SELECT STATUS
00822  M01S00742.6dp     +++|          RJM    SFC
00823  M01S00743.6dp     +++|          IAN    CH+40
00824  M01S00744.6dp     +++|          DCN    CH+40
00825  M01S00745.6dp     +++|          LDD    T1          RETURN BYTE COUNT AFTER INPUT
00826  M01S00746.6dp     +++|
00827  M01S00747.6dp     +++| RED      SUBR               ENTRY/EXIT
00828  M01S00748.6dp     +++|          STD    CM+3
00829  M01S00749.6dp     +++|          LDM    WDCT        CALCULATE BYTE COUNT ALREADY READ
00830  M01S00750.6dp     +++|          SHN    2
00831  M01S00751.6dp     +++|          ADM    WDCT
00832  M01S00752.6dp     +++|          SBI    T2
00833  M01S00753.6dp     +++|          STD    T1
00834  M01S00754.6dp     +++|          ADM    ADDR        SET PP BUFFER ADDRESS FOR NEW READ
00835  M01S00755.6dp     +++|          STM    REDA
00836  M01S00756.6dp     +++|          LDN    0
00837  M01S00757.6dp     +++|          STD    CM+1
00838  M01S00758.6dp     +++|          LDD    T1
00839  M01S00759.6dp     +++|          SCN    7
00840  M01S00760.6dp     +++|          LJM    RED2        CALCULATE ECS ADDRESS OFFSET
00841  M01S00761.6dp     +++|          SPACE  4,10
00842  M01S00762.6dp     +++|          HERE               TERMINATE LINKED CHANNEL INSTRUCTIONS
00843  M01S00763.6dp     +++|          SPACE  4,10
00844  M01S00764.6dp     +++|          ERRNG  10000-*     *7RP* HAS OVERFLOWED
00845  M01S00765.6dp     +++|          BSS    10000-*     SPARES
00846  M01S00766.6dp     +++|          CON    DRP-1       (T0) = ENTRY ADDRESS - 1
00847  M01S00767.6dp     +++|          CON    CH01$       (T1) = FIRST CHANNEL INSTRUCTION ADDRESS
00848  M01S00768.6dp     +++|          CON    ERRB        (T2) = POINTER TO REMAINING BYTE COUNT
00849  M01S00769.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
00850  M01S00770.6dp     +++|          QUAL   *
Line S00771 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00771.6dp1    ---| 7SP      MSOVL  7567,T2,HEDR+11,(DDP/ECS SINGLE WORD RETRY PROCESSOR.)
Line S00001 Modification History
M01 (Added by) 6dp1
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00001.252l678 ---| 7SP      MSOVL  7555,T2,HEDR+11,(DDP/ECS SINGLE WORD RETRY PROCESSOR.)
00853  M01S00043.252l678 +++| 7SP      MSOVL  7555,T2,DDMD+4,(DDP/ECS SINGLE WORD RETRY PROCESSOR.)
00854  M01S00772.6dp     +++|          SPACE  4
00855  M01S00773.6dp     +++|*****     SINGLE WORD RETRY ERROR PROCESSOR.
00856  M01S00774.6dp     +++|*
00857  M01S00775.6dp     +++|*         L. L. CLINTON      78/07/28.
00858  M01S00776.6dp     +++|          SPACE  4,10
00859  M01S00777.6dp     +++|***       *7SP* IS INITIALLY CALLED BY *7DP* WHEN AN ECS PARITY ERROR
00860  M01S00778.6dp     +++|*         HAS OCCURRED DURING AN ECS READ OR WRITE FUNCTION.
00861  M01S00779.6dp     +++|*         *7SP* REREADS OR REWRITES THE DATA ONE WORD AT A TIME
00862  M01S00780.6dp     +++|*         AND COMPARES PREVIOUSLY READ DATA WITH THE NEW DATA.
00863  M01S00781.6dp     +++|*         *7SP* CALLS *7MP* TO ISSUE AN ERROR MESSAGE WHENEVER A
00864  M01S00782.6dp     +++|*         SINGLE WORD READ OR WRITE FUNCTION IS UNSUCCESSFUL AND
00865  M01S00783.6dp     +++|*         WHENEVER THE DATA READ DOES NOT COMPARE.  AFTER ISSUING
00866  M01S00784.6dp     +++|*         THE ERROR MESSAGE, *7MP* RECALLS *7SP* TO CONTINUE THE
00867  M01S00785.6dp     +++|*         SINGLE WORD READ OR WRITE ERROR RECOVERY.
00868  M01S00786.6dp     +++|          SPACE  4,10
00869  M01S00787.6dp     +++|***       ENTRY CONDITIONS.
00870  M01S00788.6dp     +++|*
00871  M01S00789.6dp     +++|*                (ADDR) = PP BUFFER FWA.
00872  M01S00790.6dp     +++|*                (ECSA - ECSA+1) = ECS FWA.
00873  M01S00791.6dp     +++|*                (ERRA) = AS DOCUMENTED IN *7DP*.
00874  M01S00792.6dp     +++|*                (WDCT) = TOTAL WORD COUNT (1 OR 100B).
00875  M01S00793.6dp     +++|          SPACE  4,10
00876  M01S00794.6dp     +++|***       EXIT CONDITIONS.
00877  M01S00795.6dp     +++|*
00878  M01S00796.6dp     +++|*         FOR *7DP* -
Line S00797 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00797.253l688 ---|*                (ERRA) BIT 4 SET TO INDICATE *7SP* CALLED.
Line S00798 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00798.253l688 ---|*                (ERRA) BIT 5 SET IF *7SP* ABORT.
00881  M01S00014.253l688 +++|*                (ERRA) BIT 7 SET TO INDICATE *7SP* CALLED.
00882  M01S00015.253l688 +++|*                (ERRA) BIT 10 SET IF *7SP* ABORT.
00883  M01S00799.6dp     +++|*
00884  M01S00800.6dp     +++|*         FOR *7MP* -
00885  M01S00801.6dp     +++|*                (RECF) BIT 0 SET IF DATA DID NOT COMPARE.
00886  M01S00802.6dp     +++|*                (RECF) BIT 1 SET IF ECS ERROR ON REREAD/REWRITE.
00887  M01S00803.6dp     +++|*                (SWBF - SWBF+4) = DATA FROM SINGLE WORD REREAD.
00888  M01S00804.6dp     +++|          SPACE  4,10
00889  M01S00805.6dp     +++|**        COMMON DECKS.
00890  M01S00806.6dp     +++|
00891  M01S00807.6dp     +++|
00892  M01S00808.6dp     +++| FWDL$    EQU    1           SELECT FORWARD LINKED LIST
00893  M01S00809.6dp     +++|*CALL     COMPCHL
00894  M01S00810.6dp     +++| 7SP      SPACE  4,10
00895  M01S00811.6dp     +++|          QUAL
00896  M01S00812.6dp     +++| SWBF     EQU    /7SP/OFFW   SINGLE WORD RETRY BUFFER
00897  M01S00813.6dp     +++|          QUAL   *
00898  M01S00814.6dp     +++|          ERRPL  SWBF+4-*    RETRY BUFFER OVERLAYS CODE
00899  M01S00815.6dp     +++| MSW      SPACE  4,10
00900  M01S00816.6dp     +++|**        MSW - MOVE SINGLE WORD FROM PP BUFFER TO SINGLE WORD BUFFER.
00901  M01S00817.6dp     +++|*
00902  M01S00818.6dp     +++|*         ENTRY  (MSWA)  PP BUFFER ADDRESS FOR MOVE.
00903  M01S00819.6dp     +++|
00904  M01S00820.6dp     +++|
00905  M01S00821.6dp     +++| MSW      SUBR               ENTRY/EXIT
00906  M01S00822.6dp     +++|          LDD    MA
00907  M01S00823.6dp     +++|          CWM    **,ON
00908  M01S00824.6dp     +++| MSWA     EQU    *-1
00909  M01S00825.6dp     +++|          SBN    1
00910  M01S00826.6dp     +++|          CRM    SWBF,ON
00911  M01S00827.6dp     +++|          UJN    MSWX        RETURN
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  M01S00828.6dp     +++| SFC      SPACE  4,10
00930  M01S00829.6dp     +++|**        SFC - SELECT FUNCTION AND OUTPUT ECS ADDRESS.
00931  M01S00830.6dp     +++|*
00932  M01S00831.6dp     +++|*         ENTRY  (A) = FUNCTION CODE-1.
00933  M01S00832.6dp     +++|*                (CM - CM+1) = ECS ADDRESS TO OUTPUT.
00934  M01S00833.6dp     +++|*
00935  M01S00834.6dp     +++|*         EXIT   (A) = 2.
00936  M01S00835.6dp     +++|*                TO *ABT*, IF FUNCTION TIMEOUT OR ADDRESS NOT
00937  M01S00836.6dp     +++|*                ACCEPTED.
00938  M01S00837.6dp     +++|
00939  M01S00838.6dp     +++|
00940  M01S00839.6dp     +++| SFC2     ACN    CH
00941  M01S00840.6dp     +++|          LDN    2
00942  M01S00841.6dp     +++|
00943  M01S00842.6dp     +++| SFC      SUBR               ENTRY/EXIT
00944  M01S00843.6dp     +++|          ADC    SC+1
00945  M01S00844.6dp     +++|          AJM    ABT,CH      IF ILLEGAL CHANNEL STATUS
00946  M01S00845.6dp     +++|          FAN    CH
00947  M01S00846.6dp     +++| SFC1     IJM    SFC2,CH     IF SELECT ACCEPTED
00948  M01S00847.6dp     +++|          SBN    1
00949  M01S00848.6dp     +++|          NJN    SFC1        IF NOT TIMEOUT
00950  M01S00849.6dp     +++|*         UJN    ABT         ABORT
00951  M01S00850.6dp     +++| ABT      SPACE  4,10
00952  M01S00851.6dp     +++|**        ABT - ABORT *7SP*.
00953  M01S00852.6dp     +++|
00954  M01S00853.6dp     +++|
Line S00854 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00854.253l688 ---| ABT      LDN    40-1        SET *7SP* ABORT FLAG
00956  M01S00016.253l688 +++| ABT      LDC    400-1       SET *7SP* ABORT FLAG
00957  M01S00855.6dp     +++|          DCN    CH+40
00958  M01S00856.6dp     +++|*         UJN    END         RETURN TO *7DP*
00959  M01S00857.6dp     +++| END      SPACE  4,10
00960  M01S00858.6dp     +++|**        END - END *7SP*.
00961  M01S00859.6dp     +++|
00962  M01S00860.6dp     +++|
Line S00861 Modification History
M01 (Added by) 6dp
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00861.253l688 ---| END      ADN    20+1        SET *7SP* CALL FLAG
00964  M01S00017.253l688 +++| END      ADC    200+1       SET *7SP* CALLED FLAG
00965  M01S00862.6dp     +++|          RAI    T2
00966  M01S00863.6dp     +++|          LJM    ERR1        RETURN TO *7DP*
00967  M01S00864.6dp     +++|          SPACE  4,10
00968  M01S00865.6dp     +++| DSP      ENTRY              *7SP* ENTRY
00969  M01S00866.6dp     +++|
00970  M01S00867.6dp     +++| SSP      LDN    1           RESERVE CHANNEL
00971  M01S00868.6dp     +++|          RJM    DSW
00972  M01S00869.6dp     +++|*         LDN    0
00973  M01S00870.6dp     +++|
00974  M01S00871.6dp     +++|*         SET CHANNEL INSTRUCTIONS.
00975  M01S00872.6dp     +++|
00976  M01S00873.6dp     +++| SSP1     RAD    T1          LINK TO NEXT CHANNEL INSTRUCTION
00977  M01S00874.6dp     +++|          LDI    T1          SAVE LINK TO NEXT CHANNEL INSTRUCTION
00978  M01S00875.6dp     +++|          LPN    37
00979  M01S00876.6dp     +++|          STD    CM
00980  M01S00877.6dp     +++|          LDD    T4          MODIFY CHANNEL INSTRUCTION
00981  M01S00878.6dp     +++|          SBD    CM
00982  M01S00879.6dp     +++|          RAI    T1
00983  M01S00880.6dp     +++|          LDD    CM
00984  M01S00881.6dp     +++|          NJN    SSP1        IF MORE CHANNELS TO MODIFY
00985  M01S00882.6dp     +++|          STM    RECF
00986  M01S00883.6dp     +++| SSP2     SOM    WDCT        CHECK WORD COUNT
00987  M01S00884.6dp     +++|          MJN    END         IF ALL WORDS PROCESSED
00988  M01S00885.6dp     +++|          LDN    7           MASTER CLEAR PORT
00989  M01S00886.6dp     +++|          RJM    SFC
00990  M01S00887.6dp     +++|          DCN    CH+40
00991  M01S00888.6dp     +++|          LDI    D1          CHECK FUNCTION
00992  M01S00889.6dp     +++|          LPN    1
00993  M01S00890.6dp     +++|          NJN    SSP3        IF WRITE
00994  M01S00891.6dp     +++|          LDI    T2          SET SINGLE WORD READ FUNCTION FOR DC145
00995  M01S00892.6dp     +++|          SHN    5-11
00996  M01S00893.6dp     +++|          LPN    40
00997  M01S00894.6dp     +++|          LMN    40
00998  M01S00895.6dp     +++| SSP3     RJM    SFC         SELECT FUNCTION
00999  M01S00896.6dp     +++|          OAM    ECSA,CH     OUTPUT ADDRESS
01000  M01S00897.6dp     +++|          LDM    ADDR
01001  M01S00898.6dp     +++|          STM    MSWA
01002  M01S00899.6dp     +++|          STM    SSPB
01003  M01S00900.6dp     +++|          RJM    MSW         MOVE SINGLE WORD
01004  M01S00901.6dp     +++|          LDI    D1
01005  M01S00902.6dp     +++|          LPN    1
01006  M01S00903.6dp     +++|          NJN    SSP4        IF WRITE
01007  M01S00904.6dp     +++|          LDN    5
01008  M01S00905.6dp     +++|          IAM    SWBF,CH     INPUT DATA
01009  M01S00906.6dp     +++|          UJN    SSP5        CHECK STATUS
01010  M01S00907.6dp     +++|
01011  M01S00908.6dp     +++| SSP4     LDN    5
01012  M01S00909.6dp     +++|          OAM    SWBF,CH     OUTPUT DATA
01013  M01S00910.6dp     +++|          FJM    *,CH        IF DATA NOT ACCEPTED
01014  M01S00911.6dp     +++| SSP5     STD    CM          SAVE REMAINING BYTE COUNT
01015  M01S00912.6dp     +++|          DCN    CH+40
01016  M01S00913.6dp     +++|          ZJN    SSP6        IF DATA TRANSFERED
01017  M01S00914.6dp     +++|          RJM    MSW         RESTORE DATA FROM PP BUFFER
01018  M01S00915.6dp     +++| SSP6     LDN    5
01019  M01S00916.6dp     +++|          STD    T1
Line S00917 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00917.6dp1    ---|          LDN    4-1
Line S00918 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00918.6dp1    ---|          RJM    SFC         ISSUE STATUS FUNCTION
Line S00919 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01022  M02S00919.6dp1    ---|          IAN    CH+40
Line S00920 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00920.6dp1    ---|          STM    SPSA        SAVE STATUS FOR *7MP*
Line S00921 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00921.6dp1    ---|          LPN    2
Line S00922 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01025  M02S00922.6dp1    ---|          DCN    CH+40
Line S00923 Modification History
M01 (Added by) 6dp
M02 (Updated by) 6dp1
Seq #  *Modification Id* Act 
----------------------------+
01026  M02S00923.6dp1    ---|          ZJN    SSP6        IF STATUS NOT COMPLETE
01027  M01S00019.6dp1    +++|          RJM    STS         GET STATUS
01028  M01S00924.6dp     +++|          LDD    CM
01029  M01S00925.6dp     +++|          NJN    SSP9        IF DATA NOT TRANSFERED
01030  M01S00926.6dp     +++|
01031  M01S00927.6dp     +++|*         COMPARE DATA.
01032  M01S00928.6dp     +++|
01033  M01S00929.6dp     +++| SSP7     SOD    T1
01034  M01S00930.6dp     +++|          MJN    SSP8        IF END OF COMPARE
01035  M01S00931.6dp     +++|          LDM    **,T1
01036  M01S00932.6dp     +++| SSPB     EQU    *-1
01037  M01S00933.6dp     +++|          LMM    SWBF,T1
01038  M01S00934.6dp     +++|          ZJN    SSP7        IF DATA COMPARES
01039  M01S00935.6dp     +++|          AOM    RECF
01040  M01S00936.6dp     +++| SSP8     LDM    SPSA
01041  M01S00937.6dp     +++|          SCN    2
01042  M01S00938.6dp     +++|          ZJN    SSP10       IF NO ERROR IN STATUS
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  M01S00939.6dp     +++| SSP9     LDN    2
01049  M01S00940.6dp     +++| SSP10    RAM    RECF
01050  M01S00941.6dp     +++|          ZJN    SSP11       IF NO ERROR MESSAGE
01051  M01S00942.6dp     +++|          ENDMS
01052  M01S00943.6dp     +++|          MSERR  7MP         CALL *7MP* TO ISSUE ERROR MESSAGE
01053  M01S00944.6dp     +++|
01054  M01S00945.6dp     +++| SSP11    AOM    ECSA+1      INCREMENT EXTENDED MEMORY ADDRESS
01055  M01S00946.6dp     +++|          SHN    -14
01056  M01S00947.6dp     +++|          RAM    ECSA
01057  M01S00948.6dp     +++|          LDN    5           INCREMENT PP BUFFER ADDRESS
01058  M01S00949.6dp     +++|          RAM    ADDR
01059  M01S00950.6dp     +++|          LJM    SSP2        READ NEXT WORD
01060  M01S00951.6dp     +++| 7SP      SPACE  4,10
01061  M01S00952.6dp     +++|          HERE               TERMINATE LINKED CHANNEL INSTRUCTIONS.
01062  M01S00953.6dp     +++|          SPACE  4,10
01063  M01S00954.6dp     +++|          ERRNG  10000-*     *7SP* HAS OVERFLOWED
01064  M01S00955.6dp     +++|          BSS    10000-*     SPARES
01065  M01S00956.6dp     +++|          CON    DSP-1       (T0) = ENTRY ADDRESS - 1
01066  M01S00957.6dp     +++|          CON    CH01$       (T1) = FIRST CHANNEL INSTRUCTION ADDRESS
01067  M01S00958.6dp     +++|          CON    ERRA        (T2) = POINTER TO ERROR FLAG WORD
01068  M01S00959.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
01069  M01S00960.6dp     +++|          QUAL   *
01070  M01S00961.6dp     +++| 7MP      MSOVL  7656,T2,SWBF+4,(DDP/ECS ERROR MESSAGE PROCESSOR.)
01071  M01S00962.6dp     +++|          SPACE  4,10
01072  M01S00963.6dp     +++|*****     ERROR MESSAGE PROCESSOR.
01073  M01S00964.6dp     +++|*
01074  M01S00965.6dp     +++|*         L. L. CLINTON      78/08/15.
01075  M01S00966.6dp     +++|          SPACE  4,10
01076  M01S00967.6dp     +++|***       *7MP* IS CALLED BY *7SP* TO ISSUE INTERMEDIATE ECS ERROR
01077  M01S00968.6dp     +++|*         MESSAGES WHEN A SINGLE WORD REREAD OR REWRITE IS
01078  M01S00969.6dp     +++|*         UNSUCCESSFUL OR WHEN THE DATA READ DOES NOT COMPARE WITH
01079  M01S00970.6dp     +++|*         THE PREVIOUSLY READ DATA.  AFTER ISSUING THE ERROR
01080  M01S00971.6dp     +++|*         MESSAGES, *7MP* RECALLS *7SP* TO CONTINUE THE SINGLE WORD
01081  M01S00972.6dp     +++|*         READ OR WRITE ERROR RECOVERY.
01082  M01S00973.6dp     +++|          SPACE  4,10
01083  M01S00974.6dp     +++| 7MP      SPACE  4,10
01084  M01S00975.6dp     +++|**        DMP - DAYFILE MESSAGE PROCESSOR.
01085  M01S00976.6dp     +++|*
01086  M01S00977.6dp     +++|*         ENTRY  (ADDR) = ADDRESS OF WORD IN BUFFER.
01087  M01S00978.6dp     +++|*                (STSB) = LAST READ/WRITE DDP FUNCTION STATUS.
01088  M01S00979.6dp     +++|*                (RECF) = 9/, 1/R, 1/C.
01089  M01S00980.6dp     +++|*                         R = 1, IF REREAD/REWRITE FAILED TO COMPLETE
01090  M01S00981.6dp     +++|*                                OR IF THE STATUS TAKEN AFTER THE
01091  M01S00982.6dp     +++|*                                REREAD/REWRITE INDICATES AN ERROR.
01092  M01S00983.6dp     +++|*                         C = 1, IF DATA RECEIVED ON READ RETRY DID
01093  M01S00984.6dp     +++|*                                NOT COMPARE WITH THE DATA RECEIVED
01094  M01S00985.6dp     +++|*                                THE FIRST TIME.
01095  M01S00986.6dp     +++|*                (SWBF - SWBF+4) = DATA FROM SINGLE WORD RE-READ.
01096  M01S00987.6dp     +++|*                (ECSA - ECSA+1) = EXTENDED MEMORY ADDRESS.
01097  M01S00044.252l678 +++|*                (MSGH - MSGH+4) = *EMB* MESSAGE HEADER.
01098  M01S00988.6dp     +++|*                (HEDR - HEDR+11) = BML MESSAGE HEADER, PREPARED BY
Line S00989 Modification History
M01 (Added by) 6dp
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00989.ns2741  ---|*                                   *7EL* THROUGH *7EP*.
01100  M01S00005.ns2741  +++|*                                   *7EK* THROUGH *7EP*.
Line S00990 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00990.252l678 ---|*
Line S00991 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00991.252l678 ---|*         EXIT   (RDCT) = (DEST), IF BIT 1 OF RECF WAS SET.
01103  M01S00045.252l678 +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
01104  M01S00992.6dp     +++|
01105  M01S00993.6dp     +++|
Line S00994 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01106  M02S00994.252l678 ---| DMP2     LDM    ADDR
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  M01S00995.6dp     +++|          STM    DMPA
01134  M01S00996.6dp     +++|          STM    DMPB
01135  M01S00997.6dp     +++|          LDD    MA
01136  M01S00072.252l678 +++|          ADN    3
01137  M01S00998.6dp     +++|          CWM    **,ON
01138  M01S00999.6dp     +++| DMPA     EQU    *-1
01139  M01S01000.6dp     +++|          CWM    SWBF,ON
Line S01001 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01140  M02S01001.252l678 ---|          LDD    MA
Line S01002 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01141  M02S01002.252l678 ---|          CRM    HEDR+17,T2
Line S01003 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01142  M02S01003.252l678 ---|          ERRPL  HEDR+30-*   DATA READ IN DESTROYS CODE
Line S01004 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01143  M02S01004.252l678 ---|          LDN    5*5         SET BML MESSAGE LENGTH
Line S01005 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01144  M02S01005.252l678 ---|          STD    CM+1
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  M01S01006.6dp     +++|          LDI    T1
01155  M01S01007.6dp     +++|          LMN    2
01156  M01S01008.6dp     +++|          ZJN    DMP3        IF ONLY ONE WORD TO BE REPORTED
01157  M01S00082.252l678 +++|          AOM    MSGH+3
Line S01009 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01158  M02S01009.252l678 ---|          LDN    2           SET FLAG FOR SECOND DATA WORD PRESENT
Line S01010 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01159  M02S01010.252l678 ---|          RAM    HEDR+12
01160  M01S00083.252l678 +++|          LDN    2
01161  M01S00084.252l678 +++|          RAM    DSFA        INDICATE SECOND DATA WORD PRESENT
01162  M01S01011.6dp     +++|          LDI    T1
01163  M01S01012.6dp     +++|          LMN    1
01164  M01S01013.6dp     +++|          NJN    DMP3        IF WORD NOT TO BE TRANSFERED
01165  M01S01014.6dp     +++|          LDD    MA
Line S01015 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01166  M02S01015.252l678 ---|          ADN    1
01167  M01S00085.252l678 +++|          ADN    4
01168  M01S01016.6dp     +++|          CRM    **,ON
01169  M01S01017.6dp     +++| DMPB     EQU    *-1
Line S01018 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01170  M02S01018.252l678 ---| DMP3     LDC    HEDR+BMLN   ISSUE BML MESSAGE
Line S01019 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S01019.252l678 ---|          RJM    DFM
Line S01020 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S01020.252l678 ---|          LJM    ERR2        RECALL *7SP*
Line S01021 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01173  M02S01021.252l678 ---|
Line S01022 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S01022.252l678 ---|*         THE FOLLOWING CODE MAY BE OVERLAYED BY THE DAYFILE DUMP
Line S01023 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01175  M02S01023.252l678 ---|*         BOOTSTRAP LOADER.  THE REST OF *7MP* MUST BE SAVED AND
Line S01024 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01176  M02S01024.252l678 ---|*         RESTORED BY *1DD*.
Line S01025 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S01025.252l678 ---|
Line S01026 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01178  M02S01026.252l678 ---|          ERRNG  10003-3*5-*
Line S01027 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01179  M02S01027.252l678 ---|
Line S01028 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01180  M02S01028.252l678 ---| DMP      ENTRY              *7MP* ENTRY
Line S01029 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01181  M02S01029.252l678 ---|
Line S01030 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01182  M02S01030.252l678 ---|          LDI    T1
Line S01031 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S01031.252l678 ---|          LPN    2
Line S01032 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S01032.252l678 ---|          ZJN    DMP1        IF ERROR WAS RECOVERED
Line S01033 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01185  M02S01033.252l678 ---|          LDM    DEST        SET *UNRECOVERED ERROR* FLAG
Line S01034 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01186  M02S01034.252l678 ---|          LPC    -2000
Line S01035 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01187  M02S01035.252l678 ---|          LMC    2000
Line S01036 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01188  M02S01036.252l678 ---|          STM    DEST
Line S01037 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01189  M02S01037.252l678 ---|          LDN    1           SET UNRECOVERED IN MESSAGE HEADER
Line S01038 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01190  M02S01038.252l678 ---| DMP1     LMD    HN          ADD RETRY COUNT TO BML MESSAGE
Line S01039 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01191  M02S01039.252l678 ---|          STM    HEDR+6
Line S01040 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S01040.252l678 ---|          LDM    DERW        SET READ/WRITE FLAG IN MESSAGE
Line S01041 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01193  M02S01041.252l678 ---|          SHN    1
Line S01042 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S01042.252l678 ---|          RAM    HEDR+6
Line S01043 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S01043.252l678 ---|          LDM    SPSA        ADD DDP FUNCTION STATUS TO MESSAGE
Line S01044 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S01044.252l678 ---|          STM    HEDR+13
Line S01045 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01197  M02S01045.252l678 ---|          LDM    ECSA        ADD EXTENDED MEMORY ADDRESS TO MESSAGE
Line S01046 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01198  M02S01046.252l678 ---|          STM    HEDR+15
Line S01047 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01199  M02S01047.252l678 ---|          LDM    ECSA+1
Line S01048 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01200  M02S01048.252l678 ---|          STM    HEDR+16
Line S01049 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01201  M02S01049.252l678 ---|          LDN    1
Line S01050 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01202  M02S01050.252l678 ---|          STM    HEDR+14     ADD WORD COUNT TO MESSAGE
Line S01051 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01203  M02S01051.252l678 ---|          STM    HEDR+12     INDICATE FIRST DATA WORD PRESENT
Line S01052 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01204  M02S01052.252l678 ---|          LJM    DMP2        CONTINUE
01205  M01S00086.252l678 +++| DMP3     LJM    LEP         CALL *7EQ* TO ISSUE BML MESSAGE
01206  M01S01053.6dp     +++|          SPACE  4,10
01207  M01S01054.6dp     +++|          ERRNG  10000-*     *7MP* HAS OVERFLOWED
01208  M01S01055.6dp     +++|          BSS    10000-*     (SPARES)
01209  M01S01056.6dp     +++|          CON    DMP-1       (T0) = ENTRY ADDRESS - 1
01210  M01S01057.6dp     +++|          CON    RECF        (T1) = RECF
Line S01058 Modification History
M01 (Added by) 6dp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01211  M02S01058.252l678 ---|          CON    2           (T2) = 2
01212  M01S00087.252l678 +++|          CON    ERXA        (T2) = ERXA
01213  M01S01059.6dp     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
01214  M01S01060.6dp     +++|          QUAL   *
01215  M01S01061.6dp     +++|          SPACE  4
01216  M01S01062.6dp     +++|          END
cdc/nos2.source/opl.opl871/deck/6dp.txt ยท Last modified: by 127.0.0.1