User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:6de

Deck 6DE

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.6de     +++|          IDENT  6DE,MSFW
00002  M00S00002.6de     +++|          PERIPH
00003  M00S00003.6de     +++|          BASE   MIXED
00004  M00S00004.6de     +++|          SST
Line S00005 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.ns2723  ---|*COMMENT  6DE - ECS DRIVER.
Line S00001 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2723  +++|*COMMENT  6DE - *PIOM* DEVICE DRIVER.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00007 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00007.ns2723  ---|          TITLE  6DE - ECS DRIVER.
00010  M01S00008.ns2723  ---|          SPACE  4
00011  M01S00009.ns2723  ---|***       6DE - ECS DRIVER.
Line S00002 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00002.ns2723  +++|          TITLE  6DE - *PIOM* DEVICE DRIVER.
00013  M01S00003.ns2723  +++|          SPACE  4,10
00014  M01S00004.ns2723  +++|***       6DE - *PIOM* DEVICE DRIVER.
00015  M00S00010.6de     +++|*         G. R. MANSFIELD.  70/04/07.
00016  M00S00011.6de     +++|*         W. E. GOEBEL.      78/04/29.
Line S00012 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00012.ns2723  ---|          SPACE  4
00018  M01S00013.ns2723  ---|***       6DE PROVIDES THE CAPABILITY TO ACCESS THE ECS I AND
00019  M01S00014.ns2723  ---|*         ECS II SECONDARY STORAGE DEVICES.
00020  M01S00015.ns2723  ---|*         *6DE* IS ALSO USED TO ACCESS 819 DISK DEVICES WHICH ARE
00021  M01S00016.ns2723  ---|*         BUFFERED IN LCM FOR THE CYBER 176 MACHINE, AND TO ACCESS
Line S00017 Modification History
M01 (Removed by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00017.ns2723  ---|*         885-4X AND 895 DISK DEVICES WHICH ARE BUFFERED IN MEMORY.
Line S00001 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00001.ns2723  ---|*         885-42 AND 895 DISK DEVICES WHICH ARE BUFFERED IN ESM/UEM.
Line S00018 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00018.ns2723  ---|          SPACE  4
00025  M01S00019.ns2723  ---|***       ORGANIZATION OF ECS I SUBSYSTEM.
00026  M01S00020.ns2723  ---|*
00027  M01S00021.ns2723  ---|*         EQUIPMENT TYPE = *DE*
00028  M01S00022.ns2723  ---|*
00029  M01S00023.ns2723  ---|*         SECTORS/TRACK = 16
00030  M01S00024.ns2723  ---|*
00031  M01S00025.ns2723  ---|*         TRACKS PER DEVICE =  121 FOR  125K ECS.
00032  M01S00026.ns2723  ---|*                              242 FOR  250K ECS.
00033  M01S00027.ns2723  ---|*                              484 FOR  500K ECS.
00034  M01S00028.ns2723  ---|*                              968 FOR 1000K ECS.
00035  M01S00029.ns2723  ---|*                             1937 FOR 2000K ECS.
00036  M01S00030.ns2723  ---|*
00037  M01S00031.ns2723  ---|*         WORDS PER DEVICE =   131,072 FOR  131K ECS.
00038  M01S00032.ns2723  ---|*                              262,144 FOR  262K ECS.
00039  M01S00033.ns2723  ---|*                              524,288 FOR  524K ECS.
00040  M01S00034.ns2723  ---|*                            1,048,576 FOR 1048K ECS.
00041  M01S00035.ns2723  ---|*                            2,097,152 FOR 2096K ECS.
00042  M01S00036.ns2723  ---|*
00043  M01S00037.ns2723  ---|*         MAXIMUM DATA RATE = 80K WORDS/SEC. FOR PP TRANSFERS
00044  M01S00038.ns2723  ---|          SPACE  4
00045  M01S00039.ns2723  ---|***       ORGANIZATION OF ECS II SUBSYSTEM.
00046  M01S00040.ns2723  ---|*
00047  M01S00041.ns2723  ---|*         EQUIPMENT TYPE = *DE*.
00048  M01S00042.ns2723  ---|*
00049  M01S00043.ns2723  ---|*         SECTORS PER TRACK = 16.
00050  M01S00044.ns2723  ---|*
00051  M01S00045.ns2723  ---|*         TRACKS PER DEVICE =  126 FOR  131K ECS.
00052  M01S00046.ns2723  ---|*                              252 FOR  262K ECS.
00053  M01S00047.ns2723  ---|*                              504 FOR  524K ECS.
00054  M01S00048.ns2723  ---|*                             1008 FOR 1048K ECS.
00055  M01S00049.ns2723  ---|*                             2016 FOR 2096K ECS.
00056  M01S00050.ns2723  ---|*
00057  M01S00051.ns2723  ---|*         WORDS PER DEVICE =   131,072 FOR  131K ECS.
00058  M01S00052.ns2723  ---|*                              262,144 FOR  262K ECS.
00059  M01S00053.ns2723  ---|*                              524,288 FOR  524K ECS.
00060  M01S00054.ns2723  ---|*                            1,048,576 FOR 1048K ECS.
00061  M01S00055.ns2723  ---|*                            2,097,152 FOR 2096K ECS.
00062  M01S00056.ns2723  ---|*
00063  M01S00057.ns2723  ---|*         MAXIMUM DATA RATE = 200K WORDS/SEC FOR 2X PPU TRANSFERS.
00064  M00S00058.6de     +++|          SPACE  4,10
Line S00059 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00059.ns2723  ---|***       SINGLE DENSITY 819.
00066  M01S00060.ns2723  ---|*
00067  M01S00061.ns2723  ---|*         EQUIPMENT TYPE = *DV*.
00068  M01S00062.ns2723  ---|*
00069  M01S00063.ns2723  ---|*         ONE 819 SECTOR CONTAINS 10B LOGICAL SECTORS OF 100B
00070  M01S00064.ns2723  ---|*         WORDS EACH.
00071  M01S00065.ns2723  ---|*
00072  M01S00066.ns2723  ---|*         620B LOGICAL SECTORS (62B 819 SECTORS) PER TRACK.
00073  M01S00067.ns2723  ---|*
00074  M01S00068.ns2723  ---|*         4 TRACKS PER CYLINDER.
00075  M01S00069.ns2723  ---|*
00076  M01S00070.ns2723  ---|*         1644D = 3154B TRACKS PER DEVICE.
Line S00005 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00005.ns2723  +++|***       *6DE* PROVIDES ACCESS TO EXTENDED MEMORY AND BUFFERED DISK
00078  M01S00006.ns2723  +++|*         DEVICES THROUGH THE *PIOM* *CPUMTR* INTERFACE.
00079  M00S00071.6de     +++|          SPACE  4,10
Line S00072 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00072.ns2723  ---|***       DOUBLE DENSITY 819.
00081  M01S00073.ns2723  ---|*
00082  M01S00074.ns2723  ---|*         EQUIPMENT TYPE = *DW*.
00083  M01S00075.ns2723  ---|*
00084  M01S00076.ns2723  ---|*         ONE 819 SECTOR CONTAINS 10B LOGICAL SECTORS OF 100B
00085  M01S00077.ns2723  ---|*         WORDS EACH.
00086  M01S00078.ns2723  ---|*
00087  M01S00079.ns2723  ---|*         1440B LOGICAL SECTORS (144B 819 SECTORS) PER TRACK.
00088  M01S00080.ns2723  ---|*
00089  M01S00081.ns2723  ---|*         2 TRACKS PER CYLINDER.
00090  M01S00082.ns2723  ---|*
00091  M01S00083.ns2723  ---|*         1644D = 3154B TRACKS PER DEVICE.
00092  M01S00084.ns2723  ---|          SPACE  4
00093  M00S00085.6de     +++|**        ENTRY CONDITIONS.
00094  M00S00086.6de     +++|*
00095  M00S00087.6de     +++|*
00096  M00S00088.6de     +++|*         (T5) = EST ORDINAL.
00097  M00S00089.6de     +++|*         (T6) = TRACK.
00098  M00S00090.6de     +++|*         (T7) = SECTOR.
Line S00091 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00091.ns2723  ---|          SPACE  4
Line S00007 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00007.ns2723  +++|          SPACE  4,10
00101  M00S00092.6de     +++|**        EXIT CONDITIONS.
00102  M00S00093.6de     +++|*
00103  M00S00094.6de     +++|*
00104  M00S00095.6de     +++|*         NONE.
00105  M00S00096.6de     +++|          SPACE  4
00106  M00S00097.6de     +++|**        COMMON DECKS.
00107  M00S00098.6de     +++|
00108  M00S00099.6de     +++|
00109  M00S00100.6de     +++|*CALL     COMPMAC
00110  M00S00101.6de     +++|*CALL     COMSCPS
00111  M00S00102.6de     +++|*CALL     COMSDFS
Line S00008 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00008.ns2723  +++|          LIST   X
00113  M00S00103.6de     +++|*CALL     COMSMSP
Line S00009 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00114  M01S00009.ns2723  +++|          LIST   *
00115  M00S00104.6de     +++|*CALL     COMSPIM
00116  M00S00105.6de     +++|          SPACE  4,10
00117  M00S00106.6de     +++|**        ASSEMBLY CONSTANTS.
00118  M00S00107.6de     +++|
00119  M00S00108.6de     +++|
00120  M00S00109.6de     +++| DEC      MICRO  1,, 6DE     DECK NAME
00121  M00S00110.6de     +++|          TITLE
00122  M00S00111.6de     +++|          ORG    MSFW
00123  M00S00112.6de     +++|          SPACE  4
00124  M00S00113.6de     +++|**        ENTRY POINT TRANSFERS.
00125  M00S00114.6de     +++|
00126  M00S00115.6de     +++|
00127  M00S00116.6de     +++|          CON    PRS         PRESET ADDRESS
00128  M00S00117.6de     +++|
00129  M00S00118.6de     +++|
00130  M00S00119.6de     +++| RDS      CON    0           ENTRY
00131  M00S00120.6de     +++|          UJN    RDS.        ENTER DRIVER
00132  M00S00121.6de     +++|
00133  M00S00122.6de     +++|
00134  M00S00123.6de     +++| WDS      CON    0           ENTRY
00135  M00S00124.6de     +++|          UJN    WDS0        ENTER DRIVER
Line S00125 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00136  M01S00125.ns2723  ---| EMS      SPACE  4,10
Line S00010 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00010.ns2723  +++| EMS      SPACE  4,20
00138  M00S00126.6de     +++|**        EMS - END MASS STORAGE OPERATION.
00139  M00S00127.6de     +++|*
00140  M00S00128.6de     +++|*         ENTRY  (CHRV, BIT 6) = 0, IF NO PP BUFFER TO RELEASE.
00141  M00S00129.6de     +++|*                (T4) = INCREMENT OF PP BUFFER IF ASSIGNED.
00142  M00S00130.6de     +++|*
00143  M00S00131.6de     +++|*         EXIT   PP I/O BUFFER RELEASED.
00144  M00S00132.6de     +++|*                (CHRV) = 0.
00145  M00S00133.6de     +++|*                (A) = 0.
00146  M00S00134.6de     +++|*
00147  M00S00135.6de     +++|*         CALLS  SEA.
00148  M00S00136.6de     +++|*
00149  M00S00137.6de     +++|*         NOTE - THE *.EMS* ENTRY POINT IS SUPPORTED ONLY VIA THE
00150  M00S00138.6de     +++|*         *ENDMS* MACRO DEFINED IN *COMPMAC*.  IF THIS LOCATION
00151  M00S00139.6de     +++|*         CHANGES, THE DEFINITION OF *.EMS* MUST BE CHANGED IN
00152  M00S00140.6de     +++|*         *PPCOM* AND ALL PROGRAMS USING THE *ENDMS*
00153  M00S00141.6de     +++|*         MACRO MUST BE REASSEMBLED.
00154  M00S00142.6de     +++|
00155  M00S00143.6de     +++|
00156  M00S00144.6de     +++| .EMS     SUBR               ENTRY/EXIT
00157  M00S00145.6de     +++|          LDM    CHRV
Line S00146 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00146.251l664 ---|          SHN    21-6
00159  M01S00147.251l664 ---|          PJN    EMS1        IF NO BUFFER TO RELEASE
Line S00002 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00160  M01S00002.251l664 +++|          LPN    1
00161  M01S00003.251l664 +++|          ZJN    EMS1        IF BUFFER NOT RESERVED
00162  M00S00148.6de     +++|          RJM    SEA         SET ECS BUFFER ADDRESS
00163  M00S00149.6de     +++|          CWM    ZERO,ON     CLEAR BUFFER RESERVATION
Line S00150 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00150.251l664 ---| EMS1     LDN    0           CLEAR RESERVATION FLAG
00165  M01S00151.251l664 ---|          STM    CHRV
Line S00004 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00166  M01S00004.251l664 +++| EMS1     LDM    CHRV        CLEAR BUFFER RESERVATION/LINK FLAGS
00167  M01S00005.251l664 +++|          LPC    -201
00168  M01S00006.251l664 +++|          STM    CHRV
00169  M01S00007.251l664 +++|          LDN    0           SET EXIT CONDITION
00170  M00S00152.6de     +++|          UJN    .EMSX       RETURN
00171  M00S00153.6de     +++|
00172  M00S00154.6de     +++|
00173  M00S00155.6de     +++| WDS0     LJM    WDS.        ENTER DRIVER
00174  M00S00156.6de     +++| RDS      SPACE  4,10
00175  M00S00157.6de     +++|**        RDS - READ SECTOR.
00176  M00S00158.6de     +++|*
00177  M00S00159.6de     +++|*         ENTRY  (A) = 5/0, 1/S, 12/ BA.
00178  M00S00160.6de     +++|*                   S = SKIP TRANSFER OF DATA IF SET.
00179  M00S00161.6de     +++|*                   BA = BUFFER ADDRESS FOR SECTOR.
00180  M00S00162.6de     +++|*
Line S00163 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00181  M01S00163.251l664 ---|*         EXIT   (A) < 0, IF UNRECOVERABLE PARITY ERROR.
Line S00008 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00008.251l664 +++|*         EXIT   (A) .LT. 0 IF UNRECOVERED ERROR.
00183  M00S00164.6de     +++|*
00184  M00S00165.6de     +++|*         CALLS  ECS, SEA.
00185  M00S00166.6de     +++|
00186  M00S00167.6de     +++|
00187  M00S00168.6de     +++| RDS.     STM    RDSA        SET BUFFER ADDRESS
00188  M00S00169.6de     +++|          ADN    2
00189  M00S00170.6de     +++|          STM    RDSC
00190  M00S00171.6de     +++|          SHN    -14
00191  M00S00172.6de     +++|          ERRNZ  DTSF-10000  ERROR IF VALUE CHANGES
00192  M00S00173.6de     +++|          ZJN    RDS1        IF NOT SKIP DATA TRANSFER
00193  M00S00174.6de     +++|          LDC    UJNI+RDS2-RDSB
00194  M00S00175.6de     +++|          ERRPL  RDS2-RDSB-37  CHECK JUMP IN RANGE
00195  M00S00176.6de     +++| RDS1     STM    RDSB        MODIFY CODE FOR SKIP
00196  M00S00177.6de     +++|          LDD    HN          READ SECTOR
00197  M00S00178.6de     +++|          ERRNZ  RESS*100B-100B  ERROR IF VALUE CHANGES
00198  M00S00179.6de     +++|          RJM    ECS
00199  M00S00180.6de     +++|          LDM    CHRV        CHECK IF BUFFER ASSIGNED
Line S00181 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00181.251l664 ---|          SHN    21-6
Line S00009 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00009.251l664 +++|          SHN    21-0
00202  M00S00182.6de     +++|          PJN    RDS3        IF BUFFER NOT ASSIGNED
00203  M00S00183.6de     +++|          RJM    SEA         SET ECS BUFFER ADDRESS
00204  M00S00184.6de     +++|          ADN    1
00205  M00S00185.6de     +++|          CRM    *,ON
00206  M00S00186.6de     +++| RDSA     EQU    *-1
00207  M00S00187.6de     +++| RDSB     PSN
00208  M00S00188.6de     +++|*         UJN    RDS2        (SKIP DATA TRANSFER)
00209  M00S00189.6de     +++|          CRM    *,HN
00210  M00S00190.6de     +++| RDSC     EQU    *-1
00211  M00S00191.6de     +++|          SBD    HN
00212  M00S00192.6de     +++| RDS2     SBN    2
00213  M00S00193.6de     +++|          CWM    ZERO,ON     CLEAR BUFFER RESERVATION
Line S00194 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00214  M01S00194.251l664 ---|          LDC    -100
00215  M01S00195.251l664 ---|          RAM    CHRV
Line S00010 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00216  M01S00010.251l664 +++|          SOM    CHRV        CLEAR BUFFER RESERVATION FLAG
00217  M00S00196.6de     +++| RDS3     LDM    RDS         RETURN ADDRESS
00218  M00S00197.6de     +++|          LJM    CST         CHECK STATUS
Line S00198 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00219  M01S00198.ns2723  ---| WDS      SPACE  4
Line S00011 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00011.ns2723  +++| WDS      SPACE  4,10
00221  M00S00199.6de     +++|**        WDS - WRITE SECTOR.
00222  M00S00200.6de     +++|*
00223  M00S00201.6de     +++|*         ENTRY  (A) = 6/ LSI, 12/ BA.
00224  M00S00202.6de     +++|*                   LSI = WLSF, IF LAST SECTOR WRITE.
00225  M00S00203.6de     +++|*                       = WCSF, IF CONSECUTIVE SECTOR WRITE.
00226  M00S00204.6de     +++|*                   BA = BUFFER ADDRESS FOR SECTOR.
00227  M00S00205.6de     +++|*
Line S00011 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00011.251l664 +++|*         EXIT   (A) .LT. 0 IF UNRECOVERED ERROR.
00229  M01S00012.251l664 +++|*
00230  M00S00206.6de     +++|*         CALLS  ECS, SEA.
00231  M00S00207.6de     +++|
00232  M00S00208.6de     +++|
00233  M00S00209.6de     +++| WDS.     STM    WDSB        SET BUFFER ADDRESS
00234  M00S00210.6de     +++|          ADN    2
00235  M00S00211.6de     +++|          STM    WDSC
00236  M00S00212.6de     +++|          SHN    -16         SAVE WRITE LAST SECTOR FLAG
00237  M00S00213.6de     +++|          LPN    3
00238  M00S00214.6de     +++|          LMN    3
00239  M00S00215.6de     +++|          STM    WDSA
00240  M00S00216.6de     +++|          ERRNZ  WLSF        ERROR IF VALUE CHANGES
00241  M00S00217.6de     +++|          ERRNZ  WCSF-300000 ERROR IF VALUE CHANGES
00242  M00S00218.6de     +++|          LDM    UERR        GET REWRITE AND DISABLE BUFFER FLUSH FLAGS
00243  M00S00219.6de     +++|          SHN    -6
00244  M00S00220.6de     +++|          ERRNZ  EPRW-100    ADJUST IF VALUE CHANGES
00245  M00S00221.6de     +++|          ERRNZ  EPNF-200    ADJUST IF VALUE CHANGES
00246  M00S00222.6de     +++|          LMN    2
00247  M00S00223.6de     +++|          LPC    **
Line S00013 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00013.251l664 +++|*         LPC    3           (WRITE LAST SECTOR)
00249  M01S00014.251l664 +++|*         LPC    1           (WRITE CONSECUTIVE SECTOR)
00250  M00S00224.6de     +++| WDSA     EQU    *-1
00251  M00S00225.6de     +++|          STM    WDSD
00252  M00S00226.6de     +++|          LDM    CHRV
Line S00227 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00253  M01S00227.251l664 ---|          SHN    21-6
Line S00015 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00015.251l664 +++|          SHN    21-0
00255  M00S00228.6de     +++|          MJN    WDS3        IF BUFFER RESERVED
00256  M00S00229.6de     +++| WDS2     LDC    **
00257  M00S00230.6de     +++| WDSD     EQU    *-1
00258  M00S00231.6de     +++|          ADK    REBS*100    RESERVE WRITE BUFFER
00259  M00S00232.6de     +++|          RJM    ECS
00260  M00S00233.6de     +++|          LDD    CM+1
00261  M00S00234.6de     +++|          NJN    CST1        IF ERROR STATUS SET
00262  M00S00235.6de     +++| WDS3     RJM    SEA         SET ECS BUFFER ADDRESS
00263  M00S00236.6de     +++|          ADN    1
00264  M00S00237.6de     +++|          CWM    *,ON
00265  M00S00238.6de     +++| WDSB     EQU    *-1
00266  M00S00239.6de     +++|          CWM    *,HN
00267  M00S00240.6de     +++| WDSC     EQU    *-1
00268  M00S00241.6de     +++|          LDM    WDSD
00269  M00S00242.6de     +++|          ADC    WESS*100    WRITE SECTOR
00270  M00S00243.6de     +++|          RJM    ECS
00271  M00S00244.6de     +++|          LDM    WDS         RETURN ADDRESS
00272  M00S00245.6de     +++|*         UJN    CST         CHECK STATUS
Line S00246 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00273  M01S00246.ns2723  ---| CST      SPACE  4
Line S00012 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00274  M01S00012.ns2723  +++| CST      SPACE  4,15
00275  M00S00247.6de     +++|**        CST - CHECK STATUS.
00276  M00S00248.6de     +++|*
00277  M00S00249.6de     +++|*         ENTRY  (A) = RETURN ADDRESS.
00278  M00S00250.6de     +++|*                (CM+1) = STATUS RETURNED BY *PIOM* TRANSFER.
00279  M00S00251.6de     +++|*                (MB+1) = PHYSICAL DATA RETURNED BY *PIOM* IF ERROR.
00280  M00S00252.6de     +++|*
00281  M00S00253.6de     +++|*         EXIT   RETURN TO CALLER IF NO ERROR.
00282  M00S00254.6de     +++|*
00283  M00S00255.6de     +++|*         EREXIT TO *7DE*.
00284  M00S00256.6de     +++|*
00285  M00S00257.6de     +++|*         USES   T1, T2.
00286  M00S00258.6de     +++|
00287  M00S00259.6de     +++|
00288  M00S00260.6de     +++| CST      BSS    0           ENTRY
00289  M00S00261.6de     +++|          STD    T1          SAVE BIAS FOR EXIT ADDRESS
00290  M00S00262.6de     +++|          LDD    CM+1
00291  M00S00263.6de     +++|          NJN    CST1        IF ERROR
00292  M00S00264.6de     +++|          LJM    0,T1        RETURN
00293  M00S00265.6de     +++|
00294  M00S00266.6de     +++|*         PROCESS ERROR.
00295  M00S00267.6de     +++|
00296  M00S00268.6de     +++| CST1     STM    STSA        SAVE STATUS
00297  M00S00269.6de     +++|          MSERR  7DE
Line S00270 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00270.ns2723  ---| ECS      SPACE  4
Line S00013 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00013.ns2723  +++| ECS      SPACE  4,15
00300  M00S00271.6de     +++|**        ECS - ECS TRANSFER.
00301  M00S00272.6de     +++|*
00302  M00S00273.6de     +++|*         ENTRY  (A) = 6/ *PIOM* SUBFUNCTION, 6/ FUNCTION FLAGS.
00303  M00S00274.6de     +++|*
00304  M00S00275.6de     +++|*         EXIT   (A) = 0.
00305  M00S00276.6de     +++|*                (CM+1) = ERROR CODE IF NONZERO.
00306  M00S00277.6de     +++|*                (CM+3 - CM+4) = PHYSICAL DATA IF ERROR.
00307  M00S00278.6de     +++|*                TO *WDS2* IF WRITE BUFFER MUST BE RE-RESERVED.
00308  M00S00279.6de     +++|*
00309  M00S00280.6de     +++|*         USES   T4, T5, T6, T7, CM - CM+4.
00310  M00S00281.6de     +++|*
00311  M00S00282.6de     +++|*         MACROS DELAY, MONITOR, PAUSE.
00312  M00S00283.6de     +++|
00313  M00S00284.6de     +++|
00314  M00S00285.6de     +++| ECS5     LDM    CHRV
00315  M00S00286.6de     +++|          STD    CM
Line S00287 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00316  M01S00287.251l664 ---|          LDD    MA          STORE PARAMETERS IN MESSAGE BUFFER
Line S00016 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00317  M01S00016.251l664 +++|          LPN    20
00318  M01S00017.251l664 +++|          ZJN    ECS6        IF CHANNEL NOT SELECTED BY CALLER
00319  M01S00018.251l664 +++|          LDM    STSB        STORE CHANNEL NUMBER
00320  M01S00019.251l664 +++|          STD    CM+4
00321  M01S00020.251l664 +++| ECS6     LDD    MA          STORE PARAMETERS IN MESSAGE BUFFER
00322  M00S00288.6de     +++|          CWD    T4
00323  M00S00289.6de     +++|          LDC    **          SET FUNCTION CODE
00324  M00S00290.6de     +++| ECSA     EQU    *-1
00325  M00S00291.6de     +++|          STD    CM+1        SET FUNCTION CODE AND FLAGS
00326  M00S00292.6de     +++|          MONITOR  PIOM
00327  M00S00293.6de     +++|          LDD    MA          UPDATE PARAMETERS
00328  M00S00294.6de     +++|          CRD    T4
00329  M00S00295.6de     +++|          LDD    CM
00330  M00S00296.6de     +++|          STM    CHRV
00331  M00S00297.6de     +++|          LDD    CM+1        CHECK RETURN STATUS
00332  M00S00298.6de     +++|          SHN    -13
00333  M00S00299.6de     +++|          NJN    ECS4        IF RETRY REQUIRED
00334  M00S00300.6de     +++|
00335  M00S00301.6de     +++| ECS      SUBR               ENTRY/EXIT
00336  M00S00302.6de     +++|          STM    ECSA        SAVE FUNCTION CODE
00337  M00S00303.6de     +++| ECS1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
00338  M00S00304.6de     +++|          CRD    CM
00339  M00S00305.6de     +++|          LDD    CM
Line S00306 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00340  M01S00306.251l664 ---|          ZJN    ECS5        IF NO *DRCM*
Line S00021 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00341  M01S00021.251l664 +++|          ZJP    ECS5        IF NO MONITOR FUNCTION PENDING
00342  M00S00307.6de     +++|          DELAY
00343  M00S00308.6de     +++|          UJN    ECS1        LOOP
00344  M00S00309.6de     +++|
00345  M00S00310.6de     +++|*         RETRY FUNCTION.
00346  M00S00311.6de     +++|
00347  M00S00312.6de     +++| ECS2     LDM    ECSA        CHECK FOR WRITE REJECT
00348  M00S00313.6de     +++|          SHN    -7
00349  M00S00314.6de     +++|          ZJN    ECS1        IF RESERVE BUFFER OR READ SECTOR
00350  M00S00315.6de     +++|          LDM    CHRV
Line S00316 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00351  M01S00316.251l664 ---|          SHN    21-6
Line S00022 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2446
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00022.ns2446  ---|          SHN    21-0
Line S00001 Modification History
M01 (Added by) ns2446
Seq #  *Modification Id* Act 
----------------------------+
00353  M01S00001.ns2446  +++|          SHN    21-6
00354  M01S00002.ns2446  +++|          MJN    ECS1        IF RECALL AFTER FLUSH
00355  M01S00003.ns2446  +++|          SHN    21-0-21+6
00356  M00S00317.6de     +++|          MJN    ECS1        IF WRITE BUFFER RESERVED
00357  M00S00318.6de     +++|          LJM    WDS2        RE-RESERVE WRITE BUFFER
00358  M00S00319.6de     +++|
Line S00320 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00320.251l664 ---|*         WAIT FOR PENDING 819 I/O.
Line S00023 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00023.251l664 +++|*         WAIT FOR PENDING BUFFERED I/O.
00361  M00S00321.6de     +++|
00362  M00S00322.6de     +++| ECS3     DELAY  1*8D        DELAY 1 MILLISECOND
00363  M00S00323.6de     +++| ECS4     PAUSE  NE
00364  M00S00324.6de     +++|          LDD    OA          WAIT FOR REISSUE ALLOWED STATUS
00365  M00S00325.6de     +++|          ADN    2
00366  M00S00326.6de     +++|          CRD    CM
00367  M00S00327.6de     +++|          LDD    CM+1
00368  M00S00328.6de     +++|          SHN    21-12
00369  M00S00329.6de     +++|          PJN    ECS3        IF PENDING I/O NOT COMPLETE
00370  M00S00330.6de     +++|          UJN    ECS2        RETRY FUNCTION
00371  M00S00331.6de     +++| SEA      SPACE  4,10
00372  M00S00332.6de     +++|**        SEA - SET ECS ADDRESS.
00373  M00S00333.6de     +++|*
00374  M00S00334.6de     +++|*         ENTRY  (T4) = RELATIVE ECS BUFFER ADDRESS.
00375  M00S00335.6de     +++|*
00376  M00S00336.6de     +++|*         EXIT   (A) = ECS BUFFER ADDRESS.
00377  M00S00337.6de     +++|
00378  M00S00338.6de     +++|
00379  M00S00339.6de     +++| SEA      SUBR               ENTRY/EXIT
00380  M00S00340.6de     +++| SEAA     LDC    **
00381  M00S00341.6de     +++|          ADD    T4
00382  M00S00342.6de     +++|          UJN    SEAX        RETURN
Line S00343 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00343.ns2723  ---| PRS      SPACE  4
Line S00014 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00014.ns2723  +++| PRS      SPACE  4,10
00385  M00S00344.6de     +++|**        PRS - PRESET DRIVER.
00386  M00S00345.6de     +++|*
00387  M00S00346.6de     +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00388  M00S00347.6de     +++|*
00389  M00S00348.6de     +++|*         EXIT   NONE.
00390  M00S00349.6de     +++|
00391  M00S00350.6de     +++|
00392  M00S00351.6de     +++| PRS      LDC    EPBP        GET FWA ECS PP BUFFERS
00393  M00S00352.6de     +++|          CRM    ZERO,ON
00394  M00S00353.6de     +++|          LDM    ZERO+4
00395  M00S00354.6de     +++|          STM    SEAA+1
00396  M00S00355.6de     +++|          LDM    ZERO+3
00397  M00S00356.6de     +++|          LPN    77
00398  M00S00357.6de     +++|          ADC    LDCI
00399  M00S00358.6de     +++|          STM    SEAA
00400  M00S00359.6de     +++|          LDN    ZERL        ZERO BUFFER
00401  M00S00360.6de     +++|          CRM    ZERO,ON
00402  M00S00361.6de     +++|          LJM    SMSX        RETURN
00403  M00S00362.6de     +++|
00404  M00S00363.6de     +++| ZERO     BSS    0           FIVE BYTES FOR READING BUFFER ADDRESS
Line S00364 Modification History
M01 (Removed by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00364.ns2352  ---|          ERRNG  PPFW-5-*-5  OVERFLOW OF ZERO
Line S00001 Modification History
M01 (Added by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00001.ns2352  +++| .1       SET    *+5+4-MSFW  CHECK FOR OVERFLOW
00407  M01S00002.ns2352  +++| .1       SET    .1/5
00408  M01S00003.ns2352  +++| .1       SET    MSFW+.1*5
00409  M01S00004.ns2352  +++| .2       SET    PPFW-5-*-5  BYTES AVAILABLE BEFORE OVERFLOW
00410  M01S00005.ns2352  +++|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5
00411  M00S00365.6de     +++|
00412  M00S00366.6de     +++|
00413  M00S00367.6de     +++|*         THE FOLLOWING CHECK VERIFIES THAT CELLS *ZERO* - *ZERO*+4
00414  M00S00368.6de     +++|*         ARE NOT DESTROYED BY THE ERROR PROCESSOR.
00415  M00S00369.6de     +++|
00416  M00S00370.6de     +++|          ERRPL  ZERO+4-DEFW  CODE IS DESTROYED BY ERROR PROCESSOR
Line S00371 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00371.251l664 ---| 7DE      MSOVL  7651,T2,EPFW-1,(ECS ERROR PROCESSOR.)
Line S00024 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00024.251l664 +++| 7DE      MSOVL  7644,T2,EPFW-1,(MASS STORAGE ERROR PROCESSOR.)
00419  M00S00372.6de     +++|          SPACE  4
Line S00373 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00420  M01S00373.ns2723  ---|***       *7DE* IS CALLED BY *6DE* WHEN AN UNRECOVERED ECS/ESM ERROR
Line S00374 Modification History
M01 (Removed by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00374.ns2723  ---|*         HAS OCCURRED OR WHEN AN 819/895/885-4X DISK NOT READY OR
Line S00025 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00025.ns2723  ---|*         HAS OCCURRED OR WHEN AN 819/885-42/895 DISK NOT READY OR
Line S00375 Modification History
M01 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00423  M01S00375.ns2723  ---|*         UNRECOVERED MEDIA ERROR OR HARDWARE ERROR HAS OCCURRED.
00424  M01S00376.ns2723  ---| MSE      SPACE  4
Line S00015 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00015.ns2723  +++|***       *7DE* IS CALLED BY *6DE* WHEN AN UNRECOVERED ERROR HAS
00426  M01S00016.ns2723  +++|*         OCCURRED.
00427  M01S00017.ns2723  +++| MSE      SPACE  4,35
00428  M00S00377.6de     +++|**        MSG - PROCESS MASS STORAGE ERROR.
00429  M00S00378.6de     +++|*
00430  M00S00379.6de     +++|*         ENTRY  (T1) = RDCT.
00431  M00S00380.6de     +++|*                (T2) = DEST.
00432  M00S00381.6de     +++|*                (T4 - T7) = DRIVER PARAMETERS.
00433  M00S00382.6de     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
00434  M00S00383.6de     +++|*                         BIT 4 = 0 IF FIRST RETRY ATTEMPT.
00435  M00S00384.6de     +++|*                (STSA) = ERROR CODE RETURNED BY *CPUMTR*.
00436  M00S00385.6de     +++|*                (MB+1) = PHYSICAL DATA RETURNED BY *PIOM* FUNCTION.
00437  M00S00386.6de     +++|*
Line S00387 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00387.ns2741  ---|*         EXIT   TO *7EL*.
Line S00001 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00439  M01S00001.ns2741  +++|*         EXIT   TO *7EK*.
00440  M00S00388.6de     +++|*                (T2) = READ BUFFER ADDRESS.
00441  M00S00389.6de     +++|*                (T4 - T7) = UNCHANGED.
00442  M00S00390.6de     +++|*                (DEDT) = 8/0, 4/*6DE* DRIVER TYPE.
00443  M00S00391.6de     +++|*                (DEEC) = ERROR CODE.
Line S00392 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00444  M01S00392.251l664 ---|*                (DENR) = 1 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
Line S00026 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00026.ns2723  ---|*                (DENR) = NONZERO IF WRITE ERROR OR ESM/UEM DEVICE.
Line S00018 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00446  M01S00018.ns2723  +++|*                (DENR) = 0 IF NOT 819 DEVICE OR IF 819 DEVICE AND *NOT
00447  M01S00019.ns2723  +++|*                         READY* ERROR.
00448  M01S00020.ns2723  +++|*                (DENR) = 1 IF 819 DEVICE AND NOT *NOT READY* ERROR.
00449  M00S00393.6de     +++|*                (DERC) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00450  M00S00394.6de     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
Line S00395 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00451  M01S00395.251l664 ---|*                (DEST) = 2000 IF UNRECOVERED 819 HARDWARE ERROR OR
00452  M01S00396.251l664 ---|*                         ECS/ESM WRITE ERROR, ELSE 0.
Line S00027 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00027.ns2723  ---|*                (DEST) = 2400 IF ANY CONDITION OTHER THAN *NOT READY*.
00454  M02S00028.ns2723  ---|*                       = 400 OTHERWISE.
Line S00021 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00021.ns2723  +++|*                (DEST) = 2000 (UNRECOVERED ERROR).
00456  M00S00397.6de     +++|*                (DEWR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00457  M00S00398.6de     +++|*                (DEXA) = ERROR PROCESSOR EXIT ADDRESS.
00458  M00S00399.6de     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
00459  M00S00400.6de     +++|*                         BITS AFFECTED BY THIS OVERLAY -
00460  M00S00401.6de     +++|*                         BIT 4 = 1 IF FIRST RETRY ATTEMPT, OTHERS 0.
00461  M00S00402.6de     +++|*                (MB+2) = DRIVER DEPENDENT PART OF BML MESSAGE.
00462  M00S00403.6de     +++|*                         12/, 12/S, 12/W, 24/E.
Line S00404 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00404.251l664 ---|*                         S = ERROR CODE RETURNED BY *CPUMTR*.
Line S00029 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00464  M01S00029.251l664 +++|*                         S = ERROR STATUS.
00465  M00S00405.6de     +++|*                         W = WORD COUNT.
00466  M00S00406.6de     +++|*                         E = EXTENDED MEMORY ADDRESS.
00467  M00S00407.6de     +++|*
00468  M00S00408.6de     +++|*         USES   T1, T2, CM - CM+4.
00469  M00S00409.6de     +++|*
00470  M00S00410.6de     +++|*         MACROS MSERR.
00471  M00S00411.6de     +++|
00472  M00S00412.6de     +++|
00473  M00S00413.6de     +++| MSG      ENTRY              *7DE* ENTRY
00474  M00S00414.6de     +++|
Line S00022 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00022.ns2723  +++|*         PRESET ERROR PROCESSING CELLS.  THE *DEST* UNRECOVERED ERROR
00476  M01S00023.ns2723  +++|*         FLAG IS PRESET *ON* TO AVOID ERROR RETRIES ON BUFFERED DISK
00477  M01S00024.ns2723  +++|*         OR EXTENDED MEMORY DEVICES.  THE BUFFERED DISK DRIVER OR
00478  M01S00025.ns2723  +++|*         *CPUMTR* WILL HAVE ALREADY PERFORMED ANY APPROPRIATE RETRY
00479  M01S00026.ns2723  +++|*         SEQUENCE FOR THE ERROR.
00480  M01S00027.ns2723  +++|
00481  M00S00415.6de     +++|          SFA    EST,T5      GET EST ENTRY
00482  M00S00416.6de     +++|          ADK    EQDE
00483  M00S00417.6de     +++|          CRD    CM
00484  M00S00418.6de     +++|          LDM    STSA        PRESET ERROR CODE
Line S00419 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00485  M01S00419.251l664 ---|          LMN    DNRS
00486  M01S00420.251l664 ---|          ZJN    MSG1        IF *NOT READY*
00487  M01S00421.251l664 ---|          LMK    UHES&DNRS
00488  M01S00422.251l664 ---|          ZJN    MSG2        IF HARDWARE ERROR
00489  M01S00423.251l664 ---|          LDK    PARE&NRDE   SET MEDIA ERROR CODE
00490  M01S00424.251l664 ---| MSG1     LMK    NRDE&DSTE   SET *NOT READY* CODE
00491  M01S00425.251l664 ---| MSG2     LMK    DSTE        SET *DEVICE STATUS* ERROR CODE
00492  M00S00426.6de     +++|          STM    DEEC
00493  M00S00427.6de     +++|          ERRPL  DEEC-*      CODE DESTROYED
Line S00428 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00494  M01S00428.251l664 ---|          LMK    NRDE
00495  M01S00429.251l664 ---|          ZJN    MSG2.1      IF *NOT READY*
00496  M01S00430.251l664 ---|          LDC    2000        FORCE ERROR UNRECOVERED
00497  M01S00431.251l664 ---| MSG2.1   STI    T2
Line S00030 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00030.ns2723  ---|          LDC    2000+400    SET UNRECOVERED + WRITE BUFFERING FLAGS
Line S00028 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00499  M01S00028.ns2723  +++|          LDC    2000        SET UNRECOVERED FLAG
Line S00031 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00031.251l664 +++|          STI    T2
00501  M00S00432.6de     +++|          LDK    /COMSDFS/D6DE  SAVE DRIVER TYPE
00502  M00S00433.6de     +++|          STM    DEDT
00503  M00S00434.6de     +++|          ERRPL  DEDT-*      STORE DESTROYS CODE
Line S00435 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00504  M01S00435.251l664 ---|          LDI    T1
00505  M01S00436.251l664 ---|          LPN    20
00506  M01S00437.251l664 ---|          NJN    MSG3        IF ERROR RECOVERY IN PROGRESS
00507  M01S00438.251l664 ---|          STM    DERC        INITIALIZE RETRY COUNT
00508  M01S00439.251l664 ---|          STM    DEWR        INITIALIZE *DATA WRITTEN/READ* FLAG
00509  M01S00440.251l664 ---|          STM    DENR
00510  M01S00441.251l664 ---|          LDN    20          SET *ERROR PROCESSING IN PROGRESS* FLAG
00511  M01S00442.251l664 ---|          STI    T1
00512  M01S00443.251l664 ---| MSG3     LDM    ECSA        CHECK FOR READ OR WRITE
Line S00032 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00032.251l664 +++|          LDM    ECSA        SET READ/WRITE FLAG
00514  M00S00444.6de     +++|          SHN    -6
00515  M00S00445.6de     +++|          LPN    1
00516  M00S00446.6de     +++|          LMN    1
00517  M00S00447.6de     +++|          STM    DERW        SAVE READ/WRITE FLAG
00518  M00S00448.6de     +++|          ERRPL  DERW-*      STORE DESTROYS CODE
00519  M00S00449.6de     +++|          ERRNZ  REBS
00520  M00S00450.6de     +++|          ERRNZ  RESS-1
00521  M00S00451.6de     +++|          ERRNZ  WESS-2
00522  M00S00452.6de     +++|          ERRNZ  WRIP-1
00523  M00S00453.6de     +++|          ERRNZ  REDP
Line S00454 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00454.251l664 ---|          LDC    ECS2        SET RETURN TO DRIVER
00525  M01S00455.251l664 ---|          STM    DEXA        SET *NOT READY* RETURN ADDRESS
Line S00033 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00033.251l664 +++|          LDI    T1
Line S00034 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00034.253l688 ---|          LPN    20
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00528  M01S00001.253l688 +++|          LPC    100
Line S00035 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00035.251l664 +++|          NJN    MSG2        IF ERROR RECOVERY ALREADY IN PROGRESS
00530  M01S00036.251l664 +++|          STM    DERC        INITIALIZE RETRY COUNT
00531  M01S00037.251l664 +++|          STM    DENR        INITIALIZE NON-RECOVERABLE FLAG
Line S00038 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00038.253l688 ---|          LDN    20          SET RECOVERY IN PROGRESS FLAG
Line S00002 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00533  M01S00002.253l688 +++|          LDD    HN          SET RECOVERY IN PROGRESS FLAG
Line S00039 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00039.251l664 +++|          STI    T1
00535  M01S00040.251l664 +++| MSG2     LDM    DERW        SET/CLEAR DATA WRITTEN FLAG
00536  M01S00041.251l664 +++|          STM    DEWR
00537  M01S00042.251l664 +++|
00538  M01S00043.251l664 +++|*         SINCE THE 819 INTERRUPT HANDLER DOES NOT ATTEMPT TO
00539  M01S00044.251l664 +++|*         ACCURATELY ASSESS THE RECOVERABILITY OF THE FAILURE, FORCE
00540  M01S00045.251l664 +++|*         THE ERROR NON-RECOVERABLE UNLESS IT-S A *NOT READY*
00541  M01S00046.251l664 +++|*         CONDITION.
00542  M01S00047.251l664 +++|
00543  M01S00048.251l664 +++|          LDD    CM+3
00544  M01S00049.251l664 +++|          LPN    77
00545  M01S00050.251l664 +++|          LMN    1RV
00546  M01S00051.251l664 +++|          ZJN    MSG3        IF 819 DEVICE
00547  M01S00052.251l664 +++|          LMN    1RW&1RV
00548  M01S00053.251l664 +++|          NJN    MSG4        IF NOT 819 DEVICE
00549  M01S00054.251l664 +++| MSG3     LDM    DEEC
00550  M01S00055.251l664 +++|          LMK    NRDE
Line S00056 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00056.ns2723  ---|          NJN    MSG5        IF NOT *NOT READY* CONDITION
00552  M02S00057.ns2723  ---|          LDC    -2000       CLEAR UNRECOVERED FLAG
00553  M02S00058.ns2723  ---|          RAI    T2
00554  M02S00059.ns2723  ---| MSG4     LDM    DERW
00555  M02S00060.ns2723  ---| MSG5     STM    DENR
00556  M02S00061.ns2723  ---|          LDC    ECS2        SET RETURN ADDRESS
Line S00029 Modification History
M01 (Added by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00557  M01S00029.ns2723  +++|          ZJN    MSG4        IF DEVICE NOT READY ERROR
00558  M01S00030.ns2723  +++|          LMK    LNRE&NRDE
00559  M01S00031.ns2723  +++|          ZJN    MSG4        IF LOGICAL NOT READY ERROR
00560  M01S00032.ns2723  +++|          AOM    DENR        SET ERROR NOT RECOVERABLE
00561  M01S00033.ns2723  +++| MSG4     LDC    ECS2        SET RETURN ADDRESS
Line S00062 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00062.251l664 +++|          STM    DEXA
00563  M00S00456.6de     +++|          ERRPL  DEXA-*      STORE DESTROYS CODE
00564  M00S00457.6de     +++|          LDD    CM+3        CHECK EQUIPMENT TYPE
Line S00458 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00565  M01S00458.251l664 ---|          LPN    7
Line S00063 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00566  M01S00063.251l664 +++|          LPN    77
00567  M00S00459.6de     +++|          LMN    1RE
Line S00460 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00568  M01S00460.251l664 ---|          STD    T2
Line S00064 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00064.251l664 +++|
00570  M01S00065.251l664 +++|*         *7DE* AND ASSOCIATED *PPR* ERROR PROCESSING OVERLAYS ISSUE NO
00571  M01S00066.251l664 +++|*         BML, ERROR LOG OR DAYFILE MESSAGES FOR BUFFERED DISK DEVICES.
00572  M01S00067.251l664 +++|*         BUFFERED DEVICE DRIVERS ISSUE ALL SUCH MESSAGES.
00573  M01S00068.251l664 +++|
00574  M01S00069.251l664 +++|          NJN    MSG8        IF BUFFERED DISK
00575  M00S00461.6de     +++|          LDD    MA          GET PHYSICAL DATA FOR MESSAGE
00576  M00S00462.6de     +++|          ADN    1
00577  M00S00463.6de     +++|          CRD    CM
00578  M00S00464.6de     +++|          LDN    0           CLEAR UNUSED FIELDS IN BML MESSAGE
00579  M00S00465.6de     +++|          STD    CM
00580  M00S00466.6de     +++|          LDM    STSA        ADD *PIOM* STATUS TO MESSAGE
Line S00070 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00581  M01S00070.251l664 +++|          LMK    ADDE
00582  M01S00071.251l664 +++|          ZJN    MSG7        IF ADDRESS ERROR
00583  M01S00072.251l664 +++|          LDN    1&10        SET *HARDWARE ERROR* FLAG
00584  M01S00073.251l664 +++| MSG7     LMN    10
00585  M00S00467.6de     +++|          STD    CM+1
Line S00468 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00468.251l664 ---|          LDD    T2
00587  M01S00469.251l664 ---|          NJN    MSG5        IF NOT ECS
00588  M00S00470.6de     +++|          LDC    101         SAVE WORD COUNT
00589  M00S00471.6de     +++|          STD    CM+2
Line S00472 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00590  M01S00472.251l664 ---| MSG5     LDM    RDSA        SET READ BUFFER ADDRESS
Line S00074 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00074.ns2723  ---|          AOM    DENR        SET ERROR NON-RECOVERABLE
Line S00075 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00075.251l664 +++| MSG8     LDM    RDSA        SET READ BUFFER ADDRESS
00593  M00S00473.6de     +++|          STD    T2
Line S00474 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00594  M01S00474.ns2741  ---|          LDD    MA          WRITE *7EL* PARAMETERS
Line S00002 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00002.ns2741  +++|          LDD    MA          WRITE *7EK* PARAMETERS
00596  M00S00475.6de     +++|          ADN    2
00597  M00S00476.6de     +++|          CWD    CM
Line S00477 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00598  M01S00477.ns2741  ---|          MSERR  7EL         EXECUTE *7EL*
Line S00003 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00599  M01S00003.ns2741  +++|          MSERR  7EK         EXECUTE *7EK*
00600  M00S00478.6de     +++|          SPACE  4,10
00601  M00S00479.6de     +++|          ERRNG  10000-*     *7DE* HAS OVERFLOWED
00602  M00S00480.6de     +++|          BSS    10000-*     SPARES (ADJUST ORIGIN BY 5 AS REQUIRED)
00603  M00S00481.6de     +++|          CON    MSG-1       (T0) = ENTRY ADDRESS - 1
00604  M00S00482.6de     +++|          CON    RDCT        (T1) = RDCT
00605  M00S00483.6de     +++|          CON    DEST        (T2) = DEST
00606  M00S00484.6de     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
00607  M00S00485.6de     +++|          QUAL   *
00608  M00S00486.6de     +++|          SPACE  4
00609  M00S00487.6de     +++|          END
cdc/nos2.source/opl.opl871/deck/6de.txt ยท Last modified: by 127.0.0.1