User Tools

Site Tools


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

Deck 6DE

7 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.6de     +++|          IDENT  6DE,MSFW
00002  M01S00002.6de     +++|          PERIPH
00003  M01S00003.6de     +++|          BASE   MIXED
00004  M01S00004.6de     +++|          SST
Line S00005 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2723  ---|*COMMENT  6DE - ECS DRIVER.
00006  M01S00001.ns2723  +++|*COMMENT  6DE - *PIOM* DEVICE DRIVER.
Line S00006 Modification History
M01 (Added by) 6de
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00007 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00007.ns2723  ---|          TITLE  6DE - ECS DRIVER.
Line S00008 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00008.ns2723  ---|          SPACE  4
Line S00009 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00009.ns2723  ---|***       6DE - ECS DRIVER.
00012  M01S00002.ns2723  +++|          TITLE  6DE - *PIOM* DEVICE DRIVER.
00013  M01S00003.ns2723  +++|          SPACE  4,10
00014  M01S00004.ns2723  +++|***       6DE - *PIOM* DEVICE DRIVER.
00015  M01S00010.6de     +++|*         G. R. MANSFIELD.  70/04/07.
00016  M01S00011.6de     +++|*         W. E. GOEBEL.      78/04/29.
Line S00012 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00012.ns2723  ---|          SPACE  4
Line S00013 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00013.ns2723  ---|***       6DE PROVIDES THE CAPABILITY TO ACCESS THE ECS I AND
Line S00014 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00014.ns2723  ---|*         ECS II SECONDARY STORAGE DEVICES.
Line S00015 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00015.ns2723  ---|*         *6DE* IS ALSO USED TO ACCESS 819 DISK DEVICES WHICH ARE
Line S00016 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00016.ns2723  ---|*         BUFFERED IN LCM FOR THE CYBER 176 MACHINE, AND TO ACCESS
Line S00017 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
M03 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00022  M03S00017.ns2723  ---|*         885-4X AND 895 DISK DEVICES WHICH ARE BUFFERED IN MEMORY.
Line S00001 Modification History
M01 (Added by) 251l664
M02 (Updated 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 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00018.ns2723  ---|          SPACE  4
Line S00019 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00019.ns2723  ---|***       ORGANIZATION OF ECS I SUBSYSTEM.
Line S00020 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00020.ns2723  ---|*
Line S00021 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00021.ns2723  ---|*         EQUIPMENT TYPE = *DE*
Line S00022 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00022.ns2723  ---|*
Line S00023 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00023.ns2723  ---|*         SECTORS/TRACK = 16
Line S00024 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00024.ns2723  ---|*
Line S00025 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00025.ns2723  ---|*         TRACKS PER DEVICE =  121 FOR  125K ECS.
Line S00026 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00026.ns2723  ---|*                              242 FOR  250K ECS.
Line S00027 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00027.ns2723  ---|*                              484 FOR  500K ECS.
Line S00028 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00028.ns2723  ---|*                              968 FOR 1000K ECS.
Line S00029 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00029.ns2723  ---|*                             1937 FOR 2000K ECS.
Line S00030 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00030.ns2723  ---|*
Line S00031 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00031.ns2723  ---|*         WORDS PER DEVICE =   131,072 FOR  131K ECS.
Line S00032 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00032.ns2723  ---|*                              262,144 FOR  262K ECS.
Line S00033 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00033.ns2723  ---|*                              524,288 FOR  524K ECS.
Line S00034 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00034.ns2723  ---|*                            1,048,576 FOR 1048K ECS.
Line S00035 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00035.ns2723  ---|*                            2,097,152 FOR 2096K ECS.
Line S00036 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00036.ns2723  ---|*
Line S00037 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00037.ns2723  ---|*         MAXIMUM DATA RATE = 80K WORDS/SEC. FOR PP TRANSFERS
Line S00038 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00038.ns2723  ---|          SPACE  4
Line S00039 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00039.ns2723  ---|***       ORGANIZATION OF ECS II SUBSYSTEM.
Line S00040 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00040.ns2723  ---|*
Line S00041 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00041.ns2723  ---|*         EQUIPMENT TYPE = *DE*.
Line S00042 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00042.ns2723  ---|*
Line S00043 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00043.ns2723  ---|*         SECTORS PER TRACK = 16.
Line S00044 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00044.ns2723  ---|*
Line S00045 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00045.ns2723  ---|*         TRACKS PER DEVICE =  126 FOR  131K ECS.
Line S00046 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00046.ns2723  ---|*                              252 FOR  262K ECS.
Line S00047 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00047.ns2723  ---|*                              504 FOR  524K ECS.
Line S00048 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00048.ns2723  ---|*                             1008 FOR 1048K ECS.
Line S00049 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00049.ns2723  ---|*                             2016 FOR 2096K ECS.
Line S00050 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00050.ns2723  ---|*
Line S00051 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00051.ns2723  ---|*         WORDS PER DEVICE =   131,072 FOR  131K ECS.
Line S00052 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00052.ns2723  ---|*                              262,144 FOR  262K ECS.
Line S00053 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00053.ns2723  ---|*                              524,288 FOR  524K ECS.
Line S00054 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00054.ns2723  ---|*                            1,048,576 FOR 1048K ECS.
Line S00055 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00055.ns2723  ---|*                            2,097,152 FOR 2096K ECS.
Line S00056 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00056.ns2723  ---|*
Line S00057 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00057.ns2723  ---|*         MAXIMUM DATA RATE = 200K WORDS/SEC FOR 2X PPU TRANSFERS.
00064  M01S00058.6de     +++|          SPACE  4,10
Line S00059 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00059.ns2723  ---|***       SINGLE DENSITY 819.
Line S00060 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00060.ns2723  ---|*
Line S00061 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00061.ns2723  ---|*         EQUIPMENT TYPE = *DV*.
Line S00062 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00062.ns2723  ---|*
Line S00063 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00063.ns2723  ---|*         ONE 819 SECTOR CONTAINS 10B LOGICAL SECTORS OF 100B
Line S00064 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00064.ns2723  ---|*         WORDS EACH.
Line S00065 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00065.ns2723  ---|*
Line S00066 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00066.ns2723  ---|*         620B LOGICAL SECTORS (62B 819 SECTORS) PER TRACK.
Line S00067 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00067.ns2723  ---|*
Line S00068 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00068.ns2723  ---|*         4 TRACKS PER CYLINDER.
Line S00069 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00069.ns2723  ---|*
Line S00070 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00070.ns2723  ---|*         1644D = 3154B TRACKS PER DEVICE.
00077  M01S00005.ns2723  +++|***       *6DE* PROVIDES ACCESS TO EXTENDED MEMORY AND BUFFERED DISK
00078  M01S00006.ns2723  +++|*         DEVICES THROUGH THE *PIOM* *CPUMTR* INTERFACE.
00079  M01S00071.6de     +++|          SPACE  4,10
Line S00072 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00072.ns2723  ---|***       DOUBLE DENSITY 819.
Line S00073 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00073.ns2723  ---|*
Line S00074 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00074.ns2723  ---|*         EQUIPMENT TYPE = *DW*.
Line S00075 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00075.ns2723  ---|*
Line S00076 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00076.ns2723  ---|*         ONE 819 SECTOR CONTAINS 10B LOGICAL SECTORS OF 100B
Line S00077 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00077.ns2723  ---|*         WORDS EACH.
Line S00078 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00078.ns2723  ---|*
Line S00079 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00079.ns2723  ---|*         1440B LOGICAL SECTORS (144B 819 SECTORS) PER TRACK.
Line S00080 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00080.ns2723  ---|*
Line S00081 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00081.ns2723  ---|*         2 TRACKS PER CYLINDER.
Line S00082 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00082.ns2723  ---|*
Line S00083 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00083.ns2723  ---|*         1644D = 3154B TRACKS PER DEVICE.
Line S00084 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00084.ns2723  ---|          SPACE  4
00093  M01S00085.6de     +++|**        ENTRY CONDITIONS.
00094  M01S00086.6de     +++|*
00095  M01S00087.6de     +++|*
00096  M01S00088.6de     +++|*         (T5) = EST ORDINAL.
00097  M01S00089.6de     +++|*         (T6) = TRACK.
00098  M01S00090.6de     +++|*         (T7) = SECTOR.
Line S00091 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00091.ns2723  ---|          SPACE  4
00100  M01S00007.ns2723  +++|          SPACE  4,10
00101  M01S00092.6de     +++|**        EXIT CONDITIONS.
00102  M01S00093.6de     +++|*
00103  M01S00094.6de     +++|*
00104  M01S00095.6de     +++|*         NONE.
00105  M01S00096.6de     +++|          SPACE  4
00106  M01S00097.6de     +++|**        COMMON DECKS.
00107  M01S00098.6de     +++|
00108  M01S00099.6de     +++|
00109  M01S00100.6de     +++|*CALL     COMPMAC
00110  M01S00101.6de     +++|*CALL     COMSCPS
00111  M01S00102.6de     +++|*CALL     COMSDFS
00112  M01S00008.ns2723  +++|          LIST   X
00113  M01S00103.6de     +++|*CALL     COMSMSP
00114  M01S00009.ns2723  +++|          LIST   *
00115  M01S00104.6de     +++|*CALL     COMSPIM
00116  M01S00105.6de     +++|          SPACE  4,10
00117  M01S00106.6de     +++|**        ASSEMBLY CONSTANTS.
00118  M01S00107.6de     +++|
00119  M01S00108.6de     +++|
00120  M01S00109.6de     +++| DEC      MICRO  1,, 6DE     DECK NAME
00121  M01S00110.6de     +++|          TITLE
00122  M01S00111.6de     +++|          ORG    MSFW
00123  M01S00112.6de     +++|          SPACE  4
00124  M01S00113.6de     +++|**        ENTRY POINT TRANSFERS.
00125  M01S00114.6de     +++|
00126  M01S00115.6de     +++|
00127  M01S00116.6de     +++|          CON    PRS         PRESET ADDRESS
00128  M01S00117.6de     +++|
00129  M01S00118.6de     +++|
00130  M01S00119.6de     +++| RDS      CON    0           ENTRY
00131  M01S00120.6de     +++|          UJN    RDS.        ENTER DRIVER
00132  M01S00121.6de     +++|
00133  M01S00122.6de     +++|
00134  M01S00123.6de     +++| WDS      CON    0           ENTRY
00135  M01S00124.6de     +++|          UJN    WDS0        ENTER DRIVER
Line S00125 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00125.ns2723  ---| EMS      SPACE  4,10
00137  M01S00010.ns2723  +++| EMS      SPACE  4,20
00138  M01S00126.6de     +++|**        EMS - END MASS STORAGE OPERATION.
00139  M01S00127.6de     +++|*
00140  M01S00128.6de     +++|*         ENTRY  (CHRV, BIT 6) = 0, IF NO PP BUFFER TO RELEASE.
00141  M01S00129.6de     +++|*                (T4) = INCREMENT OF PP BUFFER IF ASSIGNED.
00142  M01S00130.6de     +++|*
00143  M01S00131.6de     +++|*         EXIT   PP I/O BUFFER RELEASED.
00144  M01S00132.6de     +++|*                (CHRV) = 0.
00145  M01S00133.6de     +++|*                (A) = 0.
00146  M01S00134.6de     +++|*
00147  M01S00135.6de     +++|*         CALLS  SEA.
00148  M01S00136.6de     +++|*
00149  M01S00137.6de     +++|*         NOTE - THE *.EMS* ENTRY POINT IS SUPPORTED ONLY VIA THE
00150  M01S00138.6de     +++|*         *ENDMS* MACRO DEFINED IN *COMPMAC*.  IF THIS LOCATION
00151  M01S00139.6de     +++|*         CHANGES, THE DEFINITION OF *.EMS* MUST BE CHANGED IN
00152  M01S00140.6de     +++|*         *PPCOM* AND ALL PROGRAMS USING THE *ENDMS*
00153  M01S00141.6de     +++|*         MACRO MUST BE REASSEMBLED.
00154  M01S00142.6de     +++|
00155  M01S00143.6de     +++|
00156  M01S00144.6de     +++| .EMS     SUBR               ENTRY/EXIT
00157  M01S00145.6de     +++|          LDM    CHRV
Line S00146 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00146.251l664 ---|          SHN    21-6
Line S00147 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00147.251l664 ---|          PJN    EMS1        IF NO BUFFER TO RELEASE
00160  M01S00002.251l664 +++|          LPN    1
00161  M01S00003.251l664 +++|          ZJN    EMS1        IF BUFFER NOT RESERVED
00162  M01S00148.6de     +++|          RJM    SEA         SET ECS BUFFER ADDRESS
00163  M01S00149.6de     +++|          CWM    ZERO,ON     CLEAR BUFFER RESERVATION
Line S00150 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00150.251l664 ---| EMS1     LDN    0           CLEAR RESERVATION FLAG
Line S00151 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00151.251l664 ---|          STM    CHRV
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  M01S00152.6de     +++|          UJN    .EMSX       RETURN
00171  M01S00153.6de     +++|
00172  M01S00154.6de     +++|
00173  M01S00155.6de     +++| WDS0     LJM    WDS.        ENTER DRIVER
00174  M01S00156.6de     +++| RDS      SPACE  4,10
00175  M01S00157.6de     +++|**        RDS - READ SECTOR.
00176  M01S00158.6de     +++|*
00177  M01S00159.6de     +++|*         ENTRY  (A) = 5/0, 1/S, 12/ BA.
00178  M01S00160.6de     +++|*                   S = SKIP TRANSFER OF DATA IF SET.
00179  M01S00161.6de     +++|*                   BA = BUFFER ADDRESS FOR SECTOR.
00180  M01S00162.6de     +++|*
Line S00163 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00163.251l664 ---|*         EXIT   (A) < 0, IF UNRECOVERABLE PARITY ERROR.
00182  M01S00008.251l664 +++|*         EXIT   (A) .LT. 0 IF UNRECOVERED ERROR.
00183  M01S00164.6de     +++|*
00184  M01S00165.6de     +++|*         CALLS  ECS, SEA.
00185  M01S00166.6de     +++|
00186  M01S00167.6de     +++|
00187  M01S00168.6de     +++| RDS.     STM    RDSA        SET BUFFER ADDRESS
00188  M01S00169.6de     +++|          ADN    2
00189  M01S00170.6de     +++|          STM    RDSC
00190  M01S00171.6de     +++|          SHN    -14
00191  M01S00172.6de     +++|          ERRNZ  DTSF-10000  ERROR IF VALUE CHANGES
00192  M01S00173.6de     +++|          ZJN    RDS1        IF NOT SKIP DATA TRANSFER
00193  M01S00174.6de     +++|          LDC    UJNI+RDS2-RDSB
00194  M01S00175.6de     +++|          ERRPL  RDS2-RDSB-37  CHECK JUMP IN RANGE
00195  M01S00176.6de     +++| RDS1     STM    RDSB        MODIFY CODE FOR SKIP
00196  M01S00177.6de     +++|          LDD    HN          READ SECTOR
00197  M01S00178.6de     +++|          ERRNZ  RESS*100B-100B  ERROR IF VALUE CHANGES
00198  M01S00179.6de     +++|          RJM    ECS
00199  M01S00180.6de     +++|          LDM    CHRV        CHECK IF BUFFER ASSIGNED
Line S00181 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00181.251l664 ---|          SHN    21-6
00201  M01S00009.251l664 +++|          SHN    21-0
00202  M01S00182.6de     +++|          PJN    RDS3        IF BUFFER NOT ASSIGNED
00203  M01S00183.6de     +++|          RJM    SEA         SET ECS BUFFER ADDRESS
00204  M01S00184.6de     +++|          ADN    1
00205  M01S00185.6de     +++|          CRM    *,ON
00206  M01S00186.6de     +++| RDSA     EQU    *-1
00207  M01S00187.6de     +++| RDSB     PSN
00208  M01S00188.6de     +++|*         UJN    RDS2        (SKIP DATA TRANSFER)
00209  M01S00189.6de     +++|          CRM    *,HN
00210  M01S00190.6de     +++| RDSC     EQU    *-1
00211  M01S00191.6de     +++|          SBD    HN
00212  M01S00192.6de     +++| RDS2     SBN    2
00213  M01S00193.6de     +++|          CWM    ZERO,ON     CLEAR BUFFER RESERVATION
Line S00194 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00194.251l664 ---|          LDC    -100
Line S00195 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00195.251l664 ---|          RAM    CHRV
00216  M01S00010.251l664 +++|          SOM    CHRV        CLEAR BUFFER RESERVATION FLAG
00217  M01S00196.6de     +++| RDS3     LDM    RDS         RETURN ADDRESS
00218  M01S00197.6de     +++|          LJM    CST         CHECK STATUS
Line S00198 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00198.ns2723  ---| WDS      SPACE  4
00220  M01S00011.ns2723  +++| WDS      SPACE  4,10
00221  M01S00199.6de     +++|**        WDS - WRITE SECTOR.
00222  M01S00200.6de     +++|*
00223  M01S00201.6de     +++|*         ENTRY  (A) = 6/ LSI, 12/ BA.
00224  M01S00202.6de     +++|*                   LSI = WLSF, IF LAST SECTOR WRITE.
00225  M01S00203.6de     +++|*                       = WCSF, IF CONSECUTIVE SECTOR WRITE.
00226  M01S00204.6de     +++|*                   BA = BUFFER ADDRESS FOR SECTOR.
00227  M01S00205.6de     +++|*
00228  M01S00011.251l664 +++|*         EXIT   (A) .LT. 0 IF UNRECOVERED ERROR.
00229  M01S00012.251l664 +++|*
00230  M01S00206.6de     +++|*         CALLS  ECS, SEA.
00231  M01S00207.6de     +++|
00232  M01S00208.6de     +++|
00233  M01S00209.6de     +++| WDS.     STM    WDSB        SET BUFFER ADDRESS
00234  M01S00210.6de     +++|          ADN    2
00235  M01S00211.6de     +++|          STM    WDSC
00236  M01S00212.6de     +++|          SHN    -16         SAVE WRITE LAST SECTOR FLAG
00237  M01S00213.6de     +++|          LPN    3
00238  M01S00214.6de     +++|          LMN    3
00239  M01S00215.6de     +++|          STM    WDSA
00240  M01S00216.6de     +++|          ERRNZ  WLSF        ERROR IF VALUE CHANGES
00241  M01S00217.6de     +++|          ERRNZ  WCSF-300000 ERROR IF VALUE CHANGES
00242  M01S00218.6de     +++|          LDM    UERR        GET REWRITE AND DISABLE BUFFER FLUSH FLAGS
00243  M01S00219.6de     +++|          SHN    -6
00244  M01S00220.6de     +++|          ERRNZ  EPRW-100    ADJUST IF VALUE CHANGES
00245  M01S00221.6de     +++|          ERRNZ  EPNF-200    ADJUST IF VALUE CHANGES
00246  M01S00222.6de     +++|          LMN    2
00247  M01S00223.6de     +++|          LPC    **
00248  M01S00013.251l664 +++|*         LPC    3           (WRITE LAST SECTOR)
00249  M01S00014.251l664 +++|*         LPC    1           (WRITE CONSECUTIVE SECTOR)
00250  M01S00224.6de     +++| WDSA     EQU    *-1
00251  M01S00225.6de     +++|          STM    WDSD
00252  M01S00226.6de     +++|          LDM    CHRV
Line S00227 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00227.251l664 ---|          SHN    21-6
00254  M01S00015.251l664 +++|          SHN    21-0
00255  M01S00228.6de     +++|          MJN    WDS3        IF BUFFER RESERVED
00256  M01S00229.6de     +++| WDS2     LDC    **
00257  M01S00230.6de     +++| WDSD     EQU    *-1
00258  M01S00231.6de     +++|          ADK    REBS*100    RESERVE WRITE BUFFER
00259  M01S00232.6de     +++|          RJM    ECS
00260  M01S00233.6de     +++|          LDD    CM+1
00261  M01S00234.6de     +++|          NJN    CST1        IF ERROR STATUS SET
00262  M01S00235.6de     +++| WDS3     RJM    SEA         SET ECS BUFFER ADDRESS
00263  M01S00236.6de     +++|          ADN    1
00264  M01S00237.6de     +++|          CWM    *,ON
00265  M01S00238.6de     +++| WDSB     EQU    *-1
00266  M01S00239.6de     +++|          CWM    *,HN
00267  M01S00240.6de     +++| WDSC     EQU    *-1
00268  M01S00241.6de     +++|          LDM    WDSD
00269  M01S00242.6de     +++|          ADC    WESS*100    WRITE SECTOR
00270  M01S00243.6de     +++|          RJM    ECS
00271  M01S00244.6de     +++|          LDM    WDS         RETURN ADDRESS
00272  M01S00245.6de     +++|*         UJN    CST         CHECK STATUS
Line S00246 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00246.ns2723  ---| CST      SPACE  4
00274  M01S00012.ns2723  +++| CST      SPACE  4,15
00275  M01S00247.6de     +++|**        CST - CHECK STATUS.
00276  M01S00248.6de     +++|*
00277  M01S00249.6de     +++|*         ENTRY  (A) = RETURN ADDRESS.
00278  M01S00250.6de     +++|*                (CM+1) = STATUS RETURNED BY *PIOM* TRANSFER.
00279  M01S00251.6de     +++|*                (MB+1) = PHYSICAL DATA RETURNED BY *PIOM* IF ERROR.
00280  M01S00252.6de     +++|*
00281  M01S00253.6de     +++|*         EXIT   RETURN TO CALLER IF NO ERROR.
00282  M01S00254.6de     +++|*
00283  M01S00255.6de     +++|*         EREXIT TO *7DE*.
00284  M01S00256.6de     +++|*
00285  M01S00257.6de     +++|*         USES   T1, T2.
00286  M01S00258.6de     +++|
00287  M01S00259.6de     +++|
00288  M01S00260.6de     +++| CST      BSS    0           ENTRY
00289  M01S00261.6de     +++|          STD    T1          SAVE BIAS FOR EXIT ADDRESS
00290  M01S00262.6de     +++|          LDD    CM+1
00291  M01S00263.6de     +++|          NJN    CST1        IF ERROR
00292  M01S00264.6de     +++|          LJM    0,T1        RETURN
00293  M01S00265.6de     +++|
00294  M01S00266.6de     +++|*         PROCESS ERROR.
00295  M01S00267.6de     +++|
00296  M01S00268.6de     +++| CST1     STM    STSA        SAVE STATUS
00297  M01S00269.6de     +++|          MSERR  7DE
Line S00270 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00270.ns2723  ---| ECS      SPACE  4
00299  M01S00013.ns2723  +++| ECS      SPACE  4,15
00300  M01S00271.6de     +++|**        ECS - ECS TRANSFER.
00301  M01S00272.6de     +++|*
00302  M01S00273.6de     +++|*         ENTRY  (A) = 6/ *PIOM* SUBFUNCTION, 6/ FUNCTION FLAGS.
00303  M01S00274.6de     +++|*
00304  M01S00275.6de     +++|*         EXIT   (A) = 0.
00305  M01S00276.6de     +++|*                (CM+1) = ERROR CODE IF NONZERO.
00306  M01S00277.6de     +++|*                (CM+3 - CM+4) = PHYSICAL DATA IF ERROR.
00307  M01S00278.6de     +++|*                TO *WDS2* IF WRITE BUFFER MUST BE RE-RESERVED.
00308  M01S00279.6de     +++|*
00309  M01S00280.6de     +++|*         USES   T4, T5, T6, T7, CM - CM+4.
00310  M01S00281.6de     +++|*
00311  M01S00282.6de     +++|*         MACROS DELAY, MONITOR, PAUSE.
00312  M01S00283.6de     +++|
00313  M01S00284.6de     +++|
00314  M01S00285.6de     +++| ECS5     LDM    CHRV
00315  M01S00286.6de     +++|          STD    CM
Line S00287 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00316  M02S00287.251l664 ---|          LDD    MA          STORE PARAMETERS IN MESSAGE BUFFER
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  M01S00288.6de     +++|          CWD    T4
00323  M01S00289.6de     +++|          LDC    **          SET FUNCTION CODE
00324  M01S00290.6de     +++| ECSA     EQU    *-1
00325  M01S00291.6de     +++|          STD    CM+1        SET FUNCTION CODE AND FLAGS
00326  M01S00292.6de     +++|          MONITOR  PIOM
00327  M01S00293.6de     +++|          LDD    MA          UPDATE PARAMETERS
00328  M01S00294.6de     +++|          CRD    T4
00329  M01S00295.6de     +++|          LDD    CM
00330  M01S00296.6de     +++|          STM    CHRV
00331  M01S00297.6de     +++|          LDD    CM+1        CHECK RETURN STATUS
00332  M01S00298.6de     +++|          SHN    -13
00333  M01S00299.6de     +++|          NJN    ECS4        IF RETRY REQUIRED
00334  M01S00300.6de     +++|
00335  M01S00301.6de     +++| ECS      SUBR               ENTRY/EXIT
00336  M01S00302.6de     +++|          STM    ECSA        SAVE FUNCTION CODE
00337  M01S00303.6de     +++| ECS1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
00338  M01S00304.6de     +++|          CRD    CM
00339  M01S00305.6de     +++|          LDD    CM
Line S00306 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00306.251l664 ---|          ZJN    ECS5        IF NO *DRCM*
00341  M01S00021.251l664 +++|          ZJP    ECS5        IF NO MONITOR FUNCTION PENDING
00342  M01S00307.6de     +++|          DELAY
00343  M01S00308.6de     +++|          UJN    ECS1        LOOP
00344  M01S00309.6de     +++|
00345  M01S00310.6de     +++|*         RETRY FUNCTION.
00346  M01S00311.6de     +++|
00347  M01S00312.6de     +++| ECS2     LDM    ECSA        CHECK FOR WRITE REJECT
00348  M01S00313.6de     +++|          SHN    -7
00349  M01S00314.6de     +++|          ZJN    ECS1        IF RESERVE BUFFER OR READ SECTOR
00350  M01S00315.6de     +++|          LDM    CHRV
Line S00316 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00316.251l664 ---|          SHN    21-6
Line S00022 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2446
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00022.ns2446  ---|          SHN    21-0
00353  M01S00001.ns2446  +++|          SHN    21-6
00354  M01S00002.ns2446  +++|          MJN    ECS1        IF RECALL AFTER FLUSH
00355  M01S00003.ns2446  +++|          SHN    21-0-21+6
00356  M01S00317.6de     +++|          MJN    ECS1        IF WRITE BUFFER RESERVED
00357  M01S00318.6de     +++|          LJM    WDS2        RE-RESERVE WRITE BUFFER
00358  M01S00319.6de     +++|
Line S00320 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00320.251l664 ---|*         WAIT FOR PENDING 819 I/O.
00360  M01S00023.251l664 +++|*         WAIT FOR PENDING BUFFERED I/O.
00361  M01S00321.6de     +++|
00362  M01S00322.6de     +++| ECS3     DELAY  1*8D        DELAY 1 MILLISECOND
00363  M01S00323.6de     +++| ECS4     PAUSE  NE
00364  M01S00324.6de     +++|          LDD    OA          WAIT FOR REISSUE ALLOWED STATUS
00365  M01S00325.6de     +++|          ADN    2
00366  M01S00326.6de     +++|          CRD    CM
00367  M01S00327.6de     +++|          LDD    CM+1
00368  M01S00328.6de     +++|          SHN    21-12
00369  M01S00329.6de     +++|          PJN    ECS3        IF PENDING I/O NOT COMPLETE
00370  M01S00330.6de     +++|          UJN    ECS2        RETRY FUNCTION
00371  M01S00331.6de     +++| SEA      SPACE  4,10
00372  M01S00332.6de     +++|**        SEA - SET ECS ADDRESS.
00373  M01S00333.6de     +++|*
00374  M01S00334.6de     +++|*         ENTRY  (T4) = RELATIVE ECS BUFFER ADDRESS.
00375  M01S00335.6de     +++|*
00376  M01S00336.6de     +++|*         EXIT   (A) = ECS BUFFER ADDRESS.
00377  M01S00337.6de     +++|
00378  M01S00338.6de     +++|
00379  M01S00339.6de     +++| SEA      SUBR               ENTRY/EXIT
00380  M01S00340.6de     +++| SEAA     LDC    **
00381  M01S00341.6de     +++|          ADD    T4
00382  M01S00342.6de     +++|          UJN    SEAX        RETURN
Line S00343 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00343.ns2723  ---| PRS      SPACE  4
00384  M01S00014.ns2723  +++| PRS      SPACE  4,10
00385  M01S00344.6de     +++|**        PRS - PRESET DRIVER.
00386  M01S00345.6de     +++|*
00387  M01S00346.6de     +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00388  M01S00347.6de     +++|*
00389  M01S00348.6de     +++|*         EXIT   NONE.
00390  M01S00349.6de     +++|
00391  M01S00350.6de     +++|
00392  M01S00351.6de     +++| PRS      LDC    EPBP        GET FWA ECS PP BUFFERS
00393  M01S00352.6de     +++|          CRM    ZERO,ON
00394  M01S00353.6de     +++|          LDM    ZERO+4
00395  M01S00354.6de     +++|          STM    SEAA+1
00396  M01S00355.6de     +++|          LDM    ZERO+3
00397  M01S00356.6de     +++|          LPN    77
00398  M01S00357.6de     +++|          ADC    LDCI
00399  M01S00358.6de     +++|          STM    SEAA
00400  M01S00359.6de     +++|          LDN    ZERL        ZERO BUFFER
00401  M01S00360.6de     +++|          CRM    ZERO,ON
00402  M01S00361.6de     +++|          LJM    SMSX        RETURN
00403  M01S00362.6de     +++|
00404  M01S00363.6de     +++| ZERO     BSS    0           FIVE BYTES FOR READING BUFFER ADDRESS
Line S00364 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00364.ns2352  ---|          ERRNG  PPFW-5-*-5  OVERFLOW OF ZERO
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  M01S00365.6de     +++|
00412  M01S00366.6de     +++|
00413  M01S00367.6de     +++|*         THE FOLLOWING CHECK VERIFIES THAT CELLS *ZERO* - *ZERO*+4
00414  M01S00368.6de     +++|*         ARE NOT DESTROYED BY THE ERROR PROCESSOR.
00415  M01S00369.6de     +++|
00416  M01S00370.6de     +++|          ERRPL  ZERO+4-DEFW  CODE IS DESTROYED BY ERROR PROCESSOR
Line S00371 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00371.251l664 ---| 7DE      MSOVL  7651,T2,EPFW-1,(ECS ERROR PROCESSOR.)
00418  M01S00024.251l664 +++| 7DE      MSOVL  7644,T2,EPFW-1,(MASS STORAGE ERROR PROCESSOR.)
00419  M01S00372.6de     +++|          SPACE  4
Line S00373 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00373.ns2723  ---|***       *7DE* IS CALLED BY *6DE* WHEN AN UNRECOVERED ECS/ESM ERROR
Line S00374 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
M03 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00421  M03S00374.ns2723  ---|*         HAS OCCURRED OR WHEN AN 819/895/885-4X DISK NOT READY OR
Line S00025 Modification History
M01 (Added by) 251l664
M02 (Updated 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 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00375.ns2723  ---|*         UNRECOVERED MEDIA ERROR OR HARDWARE ERROR HAS OCCURRED.
Line S00376 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00376.ns2723  ---| MSE      SPACE  4
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  M01S00377.6de     +++|**        MSG - PROCESS MASS STORAGE ERROR.
00429  M01S00378.6de     +++|*
00430  M01S00379.6de     +++|*         ENTRY  (T1) = RDCT.
00431  M01S00380.6de     +++|*                (T2) = DEST.
00432  M01S00381.6de     +++|*                (T4 - T7) = DRIVER PARAMETERS.
00433  M01S00382.6de     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
00434  M01S00383.6de     +++|*                         BIT 4 = 0 IF FIRST RETRY ATTEMPT.
00435  M01S00384.6de     +++|*                (STSA) = ERROR CODE RETURNED BY *CPUMTR*.
00436  M01S00385.6de     +++|*                (MB+1) = PHYSICAL DATA RETURNED BY *PIOM* FUNCTION.
00437  M01S00386.6de     +++|*
Line S00387 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00387.ns2741  ---|*         EXIT   TO *7EL*.
00439  M01S00001.ns2741  +++|*         EXIT   TO *7EK*.
00440  M01S00388.6de     +++|*                (T2) = READ BUFFER ADDRESS.
00441  M01S00389.6de     +++|*                (T4 - T7) = UNCHANGED.
00442  M01S00390.6de     +++|*                (DEDT) = 8/0, 4/*6DE* DRIVER TYPE.
00443  M01S00391.6de     +++|*                (DEEC) = ERROR CODE.
Line S00392 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00392.251l664 ---|*                (DENR) = 1 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
Line S00026 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00026.ns2723  ---|*                (DENR) = NONZERO IF WRITE ERROR OR ESM/UEM DEVICE.
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  M01S00393.6de     +++|*                (DERC) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00450  M01S00394.6de     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
Line S00395 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00395.251l664 ---|*                (DEST) = 2000 IF UNRECOVERED 819 HARDWARE ERROR OR
Line S00396 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00396.251l664 ---|*                         ECS/ESM WRITE ERROR, ELSE 0.
Line S00027 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00027.ns2723  ---|*                (DEST) = 2400 IF ANY CONDITION OTHER THAN *NOT READY*.
Line S00028 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00028.ns2723  ---|*                       = 400 OTHERWISE.
00455  M01S00021.ns2723  +++|*                (DEST) = 2000 (UNRECOVERED ERROR).
00456  M01S00397.6de     +++|*                (DEWR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
00457  M01S00398.6de     +++|*                (DEXA) = ERROR PROCESSOR EXIT ADDRESS.
00458  M01S00399.6de     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
00459  M01S00400.6de     +++|*                         BITS AFFECTED BY THIS OVERLAY -
00460  M01S00401.6de     +++|*                         BIT 4 = 1 IF FIRST RETRY ATTEMPT, OTHERS 0.
00461  M01S00402.6de     +++|*                (MB+2) = DRIVER DEPENDENT PART OF BML MESSAGE.
00462  M01S00403.6de     +++|*                         12/, 12/S, 12/W, 24/E.
Line S00404 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00404.251l664 ---|*                         S = ERROR CODE RETURNED BY *CPUMTR*.
00464  M01S00029.251l664 +++|*                         S = ERROR STATUS.
00465  M01S00405.6de     +++|*                         W = WORD COUNT.
00466  M01S00406.6de     +++|*                         E = EXTENDED MEMORY ADDRESS.
00467  M01S00407.6de     +++|*
00468  M01S00408.6de     +++|*         USES   T1, T2, CM - CM+4.
00469  M01S00409.6de     +++|*
00470  M01S00410.6de     +++|*         MACROS MSERR.
00471  M01S00411.6de     +++|
00472  M01S00412.6de     +++|
00473  M01S00413.6de     +++| MSG      ENTRY              *7DE* ENTRY
00474  M01S00414.6de     +++|
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  M01S00415.6de     +++|          SFA    EST,T5      GET EST ENTRY
00482  M01S00416.6de     +++|          ADK    EQDE
00483  M01S00417.6de     +++|          CRD    CM
00484  M01S00418.6de     +++|          LDM    STSA        PRESET ERROR CODE
Line S00419 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00419.251l664 ---|          LMN    DNRS
Line S00420 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00420.251l664 ---|          ZJN    MSG1        IF *NOT READY*
Line S00421 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00421.251l664 ---|          LMK    UHES&DNRS
Line S00422 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00422.251l664 ---|          ZJN    MSG2        IF HARDWARE ERROR
Line S00423 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00423.251l664 ---|          LDK    PARE&NRDE   SET MEDIA ERROR CODE
Line S00424 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00424.251l664 ---| MSG1     LMK    NRDE&DSTE   SET *NOT READY* CODE
Line S00425 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00425.251l664 ---| MSG2     LMK    DSTE        SET *DEVICE STATUS* ERROR CODE
00492  M01S00426.6de     +++|          STM    DEEC
00493  M01S00427.6de     +++|          ERRPL  DEEC-*      CODE DESTROYED
Line S00428 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00428.251l664 ---|          LMK    NRDE
Line S00429 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00429.251l664 ---|          ZJN    MSG2.1      IF *NOT READY*
Line S00430 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00430.251l664 ---|          LDC    2000        FORCE ERROR UNRECOVERED
Line S00431 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00431.251l664 ---| MSG2.1   STI    T2
Line S00030 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00030.ns2723  ---|          LDC    2000+400    SET UNRECOVERED + WRITE BUFFERING FLAGS
00499  M01S00028.ns2723  +++|          LDC    2000        SET UNRECOVERED FLAG
00500  M01S00031.251l664 +++|          STI    T2
00501  M01S00432.6de     +++|          LDK    /COMSDFS/D6DE  SAVE DRIVER TYPE
00502  M01S00433.6de     +++|          STM    DEDT
00503  M01S00434.6de     +++|          ERRPL  DEDT-*      STORE DESTROYS CODE
Line S00435 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00435.251l664 ---|          LDI    T1
Line S00436 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00436.251l664 ---|          LPN    20
Line S00437 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00437.251l664 ---|          NJN    MSG3        IF ERROR RECOVERY IN PROGRESS
Line S00438 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00438.251l664 ---|          STM    DERC        INITIALIZE RETRY COUNT
Line S00439 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00439.251l664 ---|          STM    DEWR        INITIALIZE *DATA WRITTEN/READ* FLAG
Line S00440 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00440.251l664 ---|          STM    DENR
Line S00441 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00441.251l664 ---|          LDN    20          SET *ERROR PROCESSING IN PROGRESS* FLAG
Line S00442 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00442.251l664 ---|          STI    T1
Line S00443 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00443.251l664 ---| MSG3     LDM    ECSA        CHECK FOR READ OR WRITE
00513  M01S00032.251l664 +++|          LDM    ECSA        SET READ/WRITE FLAG
00514  M01S00444.6de     +++|          SHN    -6
00515  M01S00445.6de     +++|          LPN    1
00516  M01S00446.6de     +++|          LMN    1
00517  M01S00447.6de     +++|          STM    DERW        SAVE READ/WRITE FLAG
00518  M01S00448.6de     +++|          ERRPL  DERW-*      STORE DESTROYS CODE
00519  M01S00449.6de     +++|          ERRNZ  REBS
00520  M01S00450.6de     +++|          ERRNZ  RESS-1
00521  M01S00451.6de     +++|          ERRNZ  WESS-2
00522  M01S00452.6de     +++|          ERRNZ  WRIP-1
00523  M01S00453.6de     +++|          ERRNZ  REDP
Line S00454 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00524  M02S00454.251l664 ---|          LDC    ECS2        SET RETURN TO DRIVER
Line S00455 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00455.251l664 ---|          STM    DEXA        SET *NOT READY* RETURN ADDRESS
00526  M01S00033.251l664 +++|          LDI    T1
Line S00034 Modification History
M01 (Added by) 251l664
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00034.253l688 ---|          LPN    20
00528  M01S00001.253l688 +++|          LPC    100
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 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00038.253l688 ---|          LDN    20          SET RECOVERY IN PROGRESS FLAG
00533  M01S00002.253l688 +++|          LDD    HN          SET RECOVERY IN PROGRESS FLAG
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 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00056.ns2723  ---|          NJN    MSG5        IF NOT *NOT READY* CONDITION
Line S00057 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00057.ns2723  ---|          LDC    -2000       CLEAR UNRECOVERED FLAG
Line S00058 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00058.ns2723  ---|          RAI    T2
Line S00059 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00059.ns2723  ---| MSG4     LDM    DERW
Line S00060 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00060.ns2723  ---| MSG5     STM    DENR
Line S00061 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00061.ns2723  ---|          LDC    ECS2        SET RETURN ADDRESS
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
00562  M01S00062.251l664 +++|          STM    DEXA
00563  M01S00456.6de     +++|          ERRPL  DEXA-*      STORE DESTROYS CODE
00564  M01S00457.6de     +++|          LDD    CM+3        CHECK EQUIPMENT TYPE
Line S00458 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00458.251l664 ---|          LPN    7
00566  M01S00063.251l664 +++|          LPN    77
00567  M01S00459.6de     +++|          LMN    1RE
Line S00460 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00460.251l664 ---|          STD    T2
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  M01S00461.6de     +++|          LDD    MA          GET PHYSICAL DATA FOR MESSAGE
00576  M01S00462.6de     +++|          ADN    1
00577  M01S00463.6de     +++|          CRD    CM
00578  M01S00464.6de     +++|          LDN    0           CLEAR UNUSED FIELDS IN BML MESSAGE
00579  M01S00465.6de     +++|          STD    CM
00580  M01S00466.6de     +++|          LDM    STSA        ADD *PIOM* STATUS TO MESSAGE
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  M01S00467.6de     +++|          STD    CM+1
Line S00468 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00468.251l664 ---|          LDD    T2
Line S00469 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00469.251l664 ---|          NJN    MSG5        IF NOT ECS
00588  M01S00470.6de     +++|          LDC    101         SAVE WORD COUNT
00589  M01S00471.6de     +++|          STD    CM+2
Line S00472 Modification History
M01 (Added by) 6de
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00472.251l664 ---| MSG5     LDM    RDSA        SET READ BUFFER ADDRESS
Line S00074 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2723
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00074.ns2723  ---|          AOM    DENR        SET ERROR NON-RECOVERABLE
00592  M01S00075.251l664 +++| MSG8     LDM    RDSA        SET READ BUFFER ADDRESS
00593  M01S00473.6de     +++|          STD    T2
Line S00474 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00474.ns2741  ---|          LDD    MA          WRITE *7EL* PARAMETERS
00595  M01S00002.ns2741  +++|          LDD    MA          WRITE *7EK* PARAMETERS
00596  M01S00475.6de     +++|          ADN    2
00597  M01S00476.6de     +++|          CWD    CM
Line S00477 Modification History
M01 (Added by) 6de
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00477.ns2741  ---|          MSERR  7EL         EXECUTE *7EL*
00599  M01S00003.ns2741  +++|          MSERR  7EK         EXECUTE *7EK*
00600  M01S00478.6de     +++|          SPACE  4,10
00601  M01S00479.6de     +++|          ERRNG  10000-*     *7DE* HAS OVERFLOWED
00602  M01S00480.6de     +++|          BSS    10000-*     SPARES (ADJUST ORIGIN BY 5 AS REQUIRED)
00603  M01S00481.6de     +++|          CON    MSG-1       (T0) = ENTRY ADDRESS - 1
00604  M01S00482.6de     +++|          CON    RDCT        (T1) = RDCT
00605  M01S00483.6de     +++|          CON    DEST        (T2) = DEST
00606  M01S00484.6de     +++|          ERRNZ  LN-*        INCORRECT OVERLAY LENGTH
00607  M01S00485.6de     +++|          QUAL   *
00608  M01S00486.6de     +++|          SPACE  4
00609  M01S00487.6de     +++|          END
cdc/nos2.source/opl.opl871/deck/6de.txt ยท Last modified: by 127.0.0.1