User Tools

Site Tools


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

Deck 6DI

43 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.6di     +++|          IDENT  6DI,MSFW    7155-7154-7054/885-844  MAIN DRIVER.
00002  M01S00002.6di     +++| HN       MICRO  1,,+*LDAM* DEVICE+
00003  M01S00003.6di     +++|          PERIPH J
00004  M01S00004.6di     +++|          BASE   MIXED
00005  M01S00005.6di     +++|          SST
00006  M01S00006.6di     +++|*COMMENT  6DI - "HN" MAIN DRIVER.
Line S00007 Modification History
M01 (Added by) 6di
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.6di     +++|          TITLE  6DI - "HN" DRIVER.
00010  M01S00009.6di     +++|          SPACE  4
00011  M01S00010.6di     +++|***       6DI - 7155-7154-7054/885-844 DRIVER.
00012  M01S00011.6di     +++|*         R. J. THIELEN.     75/11/20.
00013  M01S00012.6di     +++|*         W. E. GOEBEL.      78/01/24.
00014  M01S00013.6di     +++|          SPACE  4
00015  M01S00014.6di     +++|***              6DI PROVIDES THE CAPABILITY TO ACCESS THE 885 AND
00016  M01S00015.6di     +++|*         844-44 OR 844-41 DRIVES THROUGH THE 7155 CONTROLLER.
00017  M01S00016.6di     +++|*         6DI ALSO PROVIDES THE CAPABILITY TO ACCESS 844-21, 844-44,
00018  M01S00017.6di     +++|*         844-41 DISK DRIVES THROUGH EITHER A 7054 OR 7154 CONTROLLER.
00019  M01S00018.6di     +++|*         FULL TRACKING OPERATIONS ARE ALLOWED ONLY THROUGH THE 7155
00020  M01S00019.6di     +++|*         AND 7154 CONTROLLERS.
00021  M01S00020.6di     +++|*
00022  M01S00021.6di     +++|*                ACCESS TO FSC 3330 AND 3350 DRIVES IN FULL TRACK MODE
00023  M01S00022.6di     +++|*         IS PROVIDED THROUGH THE FSC CHANNEL ADAPTOR.
00024  M01S00023.6di     +++|*
00025  M01S00024.6di     +++|*                834 AND 836 DRIVES ARE ACCESSED THROUGH A 7255
00026  M01S00025.6di     +++|*         CHANNEL ADAPTOR WHICH HAS A 7155 COMPATIBLE INTERFACE.  THEY
00027  M01S00026.6di     +++|*         MAY ONLY BE ACCESSED IN FULL TRACK MODE.
00028  M01S00001.ns2776  +++|*
00029  M01S00002.ns2776  +++|*                CDSS SUBSYSTEMS ARE ACCESSED THROUGH A 7155 COMPATIBLE
00030  M01S00003.ns2776  +++|*         CONTROLLER WHICH IS INCLUDED IN THE SUBSYSTEM.  THEY MAY ONLY
00031  M01S00004.ns2776  +++|*         BE ACCESSED IN FULL TRACK MODE.
00032  M01S00027.6di     +++|          SPACE  4
00033  M01S00028.6di     +++|***       ORGANIZATION OF 7155/885.
00034  M01S00029.6di     +++|*
00035  M01S00030.6di     +++|*         UP TO THREE 885 UNITS CAN BE COMBINED TO FORM A
00036  M01S00031.6di     +++|*         LOGICAL DEVICE.
00037  M01S00032.6di     +++|*
00038  M01S00033.6di     +++|*         EQUIPMENT TYPE = *DM*.
00039  M01S00034.6di     +++|*
00040  M01S00035.6di     +++|*         SECTORS/TRACK = 640.
00041  M01S00036.6di     +++|*
00042  M01S00037.6di     +++|*         TRACKS/UNIT = 1682.
00043  M01S00038.6di     +++|*
00044  M01S00039.6di     +++|*         WORDS/UNIT = 68,894,720.
00045  M01S00040.6di     +++|*
00046  M01S00041.6di     +++|*         UNITS/DEVICE = 1-3.
00047  M01S00042.6di     +++|*
00048  M01S00043.6di     +++|*         WORDS/DEVICE = 68,894,720 - 206,684,160.
00049  M01S00044.6di     +++|*
00050  M01S00045.6di     +++|*         MAXIMUM DATA RATE = 61.44 K WORDS/SECOND.
00051  M01S00046.6di     +++|*
00052  M01S00047.6di     +++|*
00053  M01S00048.6di     +++|*         EQUIPMENT TYPE = *DQ*.
00054  M01S00049.6di     +++|*
00055  M01S00050.6di     +++|*         SECTORS/TRACK = 640.
00056  M01S00051.6di     +++|*
00057  M01S00052.6di     +++|*         TRACKS/UNIT = 1682.
00058  M01S00053.6di     +++|*
00059  M01S00054.6di     +++|*         WORDS/UNIT = 68,894,720.
00060  M01S00055.6di     +++|*
00061  M01S00056.6di     +++|*         UNITS/DEVICE = 1-3.
00062  M01S00057.6di     +++|*
00063  M01S00058.6di     +++|*         WORDS/DEVICE = 68,894,720 - 206,684,160.
00064  M01S00059.6di     +++|*
00065  M01S00060.6di     +++|*         MAXIMUM DATA RATE = 122.88 K WORDS/SECOND.
00066  M01S00061.6di     +++|          SPACE  4
00067  M01S00062.6di     +++|***       ORGANIZATION OF 7X5X/844-XX.
00068  M01S00063.6di     +++|*
00069  M01S00064.6di     +++|*         UP TO EIGHT 844-XX UNITS CAN BE COMBINED TO FORM A
00070  M01S00065.6di     +++|*         LOGICAL DEVICE.
00071  M01S00066.6di     +++|*
00072  M01S00067.6di     +++|*         EQUIPMENT TYPE = *DI*.
00073  M01S00068.6di     +++|*
00074  M01S00069.6di     +++|*         SECTORS/TRACK = 107.
00075  M01S00070.6di     +++|*
00076  M01S00071.6di     +++|*         TRACKS/UNIT = 1632.
00077  M01S00072.6di     +++|*
00078  M01S00073.6di     +++|*         WORDS/UNIT = 11,175,936.
00079  M01S00074.6di     +++|*
00080  M01S00075.6di     +++|*         UNITS/DEVICE = 1-8.
00081  M01S00076.6di     +++|*
00082  M01S00077.6di     +++|*         WORDS/DEVICE = 11,175,936 - 89,407,488.
00083  M01S00078.6di     +++|*
00084  M01S00079.6di     +++|*         MAXIMUM DATA RATE = 46.08 K WORDS/SECOND.
00085  M01S00080.6di     +++|*
00086  M01S00081.6di     +++|*
00087  M01S00082.6di     +++|*         EQUIPMENT TYPE = *DJ*.
00088  M01S00083.6di     +++|*
00089  M01S00084.6di     +++|*         SECTORS/TRACK = 227.
00090  M01S00085.6di     +++|*
00091  M01S00086.6di     +++|*         TRACKS/UNIT = 1640.
00092  M01S00087.6di     +++|*
00093  M01S00088.6di     +++|*         WORDS/UNIT = 23,825,920.
00094  M01S00089.6di     +++|*
00095  M01S00090.6di     +++|*         UNITS/DEVICE = 1-8.
00096  M01S00091.6di     +++|*
00097  M01S00092.6di     +++|*         WORDS/DEVICE = 23,825,920 - 190,607,360.
00098  M01S00093.6di     +++|*
00099  M01S00094.6di     +++|*         MAXIMUM DATA RATE = 46.08 K WORDS/SECOND.
00100  M01S00095.6di     +++|*
00101  M01S00096.6di     +++|*
00102  M01S00097.6di     +++|*         EQUIPMENT TYPE = *DK*.
00103  M01S00098.6di     +++|*
00104  M01S00099.6di     +++|*         SECTORS/TRACK = 112.
00105  M01S00100.6di     +++|*
00106  M01S00101.6di     +++|*         TRACKS/UNIT = 1632.
00107  M01S00102.6di     +++|*
00108  M01S00103.6di     +++|*         WORDS/UNIT = 11,698,176.
00109  M01S00104.6di     +++|*
00110  M01S00105.6di     +++|*         UNITS/DEVICE = 1-8.
00111  M01S00106.6di     +++|*
00112  M01S00107.6di     +++|*         WORDS/DEVICE = 11,698,176 - 93,585,408.
00113  M01S00108.6di     +++|*
00114  M01S00109.6di     +++|*         MAXIMUM DATA RATE = 92.16 K WORDS/SECOND.
00115  M01S00110.6di     +++|*
00116  M01S00111.6di     +++|*
00117  M01S00112.6di     +++|*         EQUIPMENT TYPE = *DL*.
00118  M01S00113.6di     +++|*
00119  M01S00114.6di     +++|*         SECTORS/TRACK = 227.
00120  M01S00115.6di     +++|*
00121  M01S00116.6di     +++|*         TRACKS/UNIT = 1640.
00122  M01S00117.6di     +++|*
00123  M01S00118.6di     +++|*         WORDS/UNIT = 23,825,920.
00124  M01S00119.6di     +++|*
00125  M01S00120.6di     +++|*         UNITS/DEVICE = 1-8.
00126  M01S00121.6di     +++|*
00127  M01S00122.6di     +++|*         WORDS/DEVICE = 24,825,920 - 190,607,360.
00128  M01S00123.6di     +++|*
00129  M01S00124.6di     +++|*         MAXIMUM DATA RATE = 92.16 K WORDS/SECOND.
00130  M01S00125.6di     +++|          SPACE  4,10
00131  M01S00126.6di     +++|***       ORGANIZATION OF FSC DEVICES.
00132  M01S00127.6di     +++|*
00133  M01S00128.6di     +++|*
00134  M01S00129.6di     +++|*         MODEL = 3330-1.
00135  M01S00130.6di     +++|*
00136  M01S00131.6di     +++|*         EQUIPMENT TYPE = *DX*.
00137  M01S00132.6di     +++|*
00138  M01S00133.6di     +++|*         SECTORS/TRACK = 98.
00139  M01S00134.6di     +++|*
00140  M01S00135.6di     +++|*         TRACKS/UNIT = 1632.
00141  M01S00136.6di     +++|*
00142  M01S00137.6di     +++|*         WORDS/UNIT = 10,235,904.
00143  M01S00138.6di     +++|*
00144  M01S00139.6di     +++|*         UNITS/DEVICE = 1-8.
00145  M01S00140.6di     +++|*
00146  M01S00141.6di     +++|*         WORDS/DEVICE = 10,235,904 - 81,887,232.
00147  M01S00142.6di     +++|*
00148  M01S00143.6di     +++|*         MAXIMUM DATA RATE = 80.64 K WORDS/SECOND.
00149  M01S00144.6di     +++|*
00150  M01S00145.6di     +++|*
00151  M01S00146.6di     +++|*         MODEL = 3330-11.
00152  M01S00147.6di     +++|*
00153  M01S00148.6di     +++|*         EQUIPMENT TYPE = *DY*.
00154  M01S00149.6di     +++|*
00155  M01S00150.6di     +++|*         SECTORS/TRACK = 198.
00156  M01S00151.6di     +++|*
00157  M01S00152.6di     +++|*         TRACKS/UNIT = 1624.
00158  M01S00153.6di     +++|*
00159  M01S00154.6di     +++|*         WORDS/UNIT = 20,579,328.
00160  M01S00155.6di     +++|*
00161  M01S00156.6di     +++|*         UNITS/DEVICE = 1-8.
00162  M01S00157.6di     +++|*
00163  M01S00158.6di     +++|*         WORDS/DEVICE = 20,579,328 - 164,634,624.
00164  M01S00159.6di     +++|*
00165  M01S00160.6di     +++|*         MAXIMUM DATA RATE = 80.64 K WORDS/SECOND.
00166  M01S00161.6di     +++|*
00167  M01S00162.6di     +++|*
00168  M01S00163.6di     +++|*         MODEL = 3350.
00169  M01S00164.6di     +++|*
00170  M01S00165.6di     +++|*         EQUIPMENT TYPE = *DZ*.
00171  M01S00166.6di     +++|*
00172  M01S00167.6di     +++|*         SECTORS/TRACK = 420.
00173  M01S00168.6di     +++|*
00174  M01S00169.6di     +++|*         TRACKS/MODULE = 1116.
00175  M01S00170.6di     +++|*
00176  M01S00171.6di     +++|*         WORDS/MODULE = 30,051,840.
00177  M01S00172.6di     +++|*
00178  M01S00173.6di     +++|*         MODULE/DEVICE = 1-4.
00179  M01S00174.6di     +++|*
00180  M01S00175.6di     +++|*         WORDS/DEVICE = 30,051,840 - 120,207,360.
00181  M01S00176.6di     +++|*
00182  M01S00177.6di     +++|*         MAXIMUM DATA RATE = 107.52 K WORDS PER SECOND.
00183  M01S00178.6di     +++|*
00184  M01S00179.6di     +++|*
00185  M01S00180.6di     +++|*         MODEL = 33502.
00186  M01S00181.6di     +++|*
00187  M01S00182.6di     +++|*         EQUIPMENT TYPE = *DA*.
00188  M01S00183.6di     +++|*
00189  M01S00184.6di     +++|*         SECTORS/TRACK = 840.
00190  M01S00185.6di     +++|*
00191  M01S00186.6di     +++|*         TRACKS/MODULE = 1116.
00192  M01S00187.6di     +++|*
00193  M01S00188.6di     +++|*         WORDS/MODULE = 30,051,840.
00194  M01S00189.6di     +++|*
00195  M01S00190.6di     +++|*         MODULE/DEVICE = 1-2.
00196  M01S00191.6di     +++|*
00197  M01S00192.6di     +++|*         WORDS/DEVICE = 60,103,680 - 120,207,360.
00198  M01S00193.6di     +++|*
00199  M01S00194.6di     +++|*         MAXIMUM DATA RATE = 107.52 K WORDS PER SECOND.
00200  M01S00195.6di     +++|          SPACE  4,10
00201  M01S00196.6di     +++|***       ORGANIZATION OF 834 DEVICES.
00202  M01S00197.6di     +++|*
00203  M01S00198.6di     +++|*         UP TO EIGHT 834 PHYSICAL UNITS MAY BE COMBINED TO FORM A
00204  M01S00199.6di     +++|*         LOGICAL DEVICE.
00205  M01S00200.6di     +++|*
00206  M01S00201.6di     +++|*         EQUIPMENT TYPE = *DD*.
00207  M01S00202.6di     +++|*
00208  M01S00203.6di     +++|*         SECTORS/TRACK = 160.
00209  M01S00204.6di     +++|*
00210  M01S00205.6di     +++|*         TRACKS/UNITS = 1628.
00211  M01S00206.6di     +++|*
00212  M01S00207.6di     +++|*         WORDS/UNIT = 16,670,720.
00213  M01S00208.6di     +++|*
00214  M01S00209.6di     +++|*         UNITS/DEVICE = 1-8.
00215  M01S00210.6di     +++|*
00216  M01S00211.6di     +++|*         WORDS/DEVICE = 16,670,720 - 133,365,760.
00217  M01S00212.6di     +++|*
00218  M01S00213.6di     +++|*         MAXIMUM DATA RATE = 122.88 K WORDS/SECOND.
00219  M01S00214.6di     +++|          SPACE  4,10
00220  M01S00215.6di     +++|***       ORGANIZATION OF 836 DEVICES.
00221  M01S00216.6di     +++|*
00222  M01S00217.6di     +++|*         UP TO THREE 836 PHYSICAL UNITS MAY BE COMBINED TO FORM A
00223  M01S00218.6di     +++|*         LOGICAL DEVICE.
00224  M01S00219.6di     +++|*
00225  M01S00220.6di     +++|*         EQUIPMENT TYPE = *DG*.
00226  M01S00221.6di     +++|*
00227  M01S00222.6di     +++|*         SECTORS/TRACK = 564.
00228  M01S00223.6di     +++|*
00229  M01S00224.6di     +++|*         TRACKS/UNIT = 1398.
00230  M01S00225.6di     +++|*
00231  M01S00226.6di     +++|*         WORDS/UNIT = 50,462,208.
00232  M01S00227.6di     +++|*
00233  M01S00228.6di     +++|*         UNITS/DEVICE = 1-3.
00234  M01S00229.6di     +++|*
00235  M01S00230.6di     +++|*         WORDS/DEVICE = 50,462,208 - 151,386,624.
00236  M01S00231.6di     +++|*
00237  M01S00232.6di     +++|*         MAXIMUM DATA RATE = 122.88 K WORDS/SECOND.
00238  M01S00233.6di     +++|          SPACE  4
00239  M01S00005.ns2776  +++|***       ORGANIZATION OF CDSS II DEVICES.
00240  M01S00006.ns2776  +++|*
00241  M01S00007.ns2776  +++|*         ONE CDSS II UNIT FORMS A SINGLE LOGICAL DEVICE.
00242  M01S00008.ns2776  +++|*
00243  M01S00009.ns2776  +++|*         EQUIPMENT TYPE = *DR*.
00244  M01S00010.ns2776  +++|*
00245  M01S00011.ns2776  +++|*         SECTORS/TRACK = 640.
00246  M01S00012.ns2776  +++|*
00247  M01S00013.ns2776  +++|*         TRACKS/UNIT = 123,640.
00248  M01S00014.ns2776  +++|*
00249  M01S00015.ns2776  +++|*         WORDS/UNIT = 253,229,056.
00250  M01S00016.ns2776  +++|*
00251  M01S00017.ns2776  +++|*         UNITS/DEVICE = 1.
00252  M01S00018.ns2776  +++|*
00253  M01S00019.ns2776  +++|*         WORDS/DEVICE = 253,229,056.
00254  M01S00020.ns2776  +++|          SPACE  4
00255  M01S00234.6di     +++|**        ENTRY CONDITIONS.
00256  M01S00235.6di     +++|*
00257  M01S00236.6di     +++|*
00258  M01S00237.6di     +++|*         (T4) = CHANNEL IF PREVIOUSLY RESERVED.
00259  M01S00238.6di     +++|*         (T5) = EST ORDINAL.
00260  M01S00239.6di     +++|*         (T6) = TRACK.
00261  M01S00240.6di     +++|*         (T7) = SECTOR.
00262  M01S00241.6di     +++|          SPACE  4
00263  M01S00242.6di     +++| RICHI$   EQU    1           SELECT DEFERRED INSTRUCTION REDEFINITION
00264  M01S00243.6di     +++| RICHL$   EQU    1
00265  M01S00244.6di     +++| RIREL$   EQU    1
00266  M01S00245.6di     +++|*CALL     COMPMAC
00267  M01S00246.6di     +++|*CALL     COMPCHI
00268  M01S00247.6di     +++|*CALL     COMPCHL
00269  M01S00248.6di     +++|*CALL     COMPREL
00270  M01S00249.6di     +++|*CALL     COMSCPS
00271  M01S00250.6di     +++|*CALL     COMSDFS
00272  M01S00251.6di     +++|*CALL     COMSEVT
00273  M01S00252.6di     +++|          LIST   X
00274  M01S00253.6di     +++|*CALL     COMSMSP
00275  M01S00254.6di     +++|          LIST   *
00276  M01S00255.6di     +++|*CALL     COMSPIM
00277  M01S00001.ns2494  +++|*CALL     COMSZOL
00278  M01S00001.252l678 +++|*CALL     COMS1DS
00279  M01S00256.6di     +++|          SPACE  4,20
00280  M01S00257.6di     +++|**        DRIVER FUNCTION CODES.
00281  M01S00258.6di     +++|
00282  M01S00259.6di     +++|
00283  M01S00260.6di     +++| FCCN     EQU    0           CONNECT FUNCTION CODE
00284  M01S00261.6di     +++| FCS1     EQU    1           SEEK 1 TO 1 INTERLACE
00285  M01S00262.6di     +++| FCS2     EQU    2           SEEK 2 TO 1 INTERLACE
00286  M01S00263.6di     +++| FCRD     EQU    4           READ FUNCTION CODE
00287  M01S00264.6di     +++| FCWR     EQU    5           WRITE FUNCTION CODE
00288  M01S00265.6di     +++| FCOC     EQU    10          OPERATION COMPLETE FUNCTION CODE
00289  M01S00266.6di     +++| FCGR     EQU    11          DISABLE RESERVES - GRENADE
00290  M01S00267.6di     +++| FCGS     EQU    12          GENERAL STATUS FUNCTION CODE
00291  M01S00268.6di     +++| FCCO     EQU    14          CONTINUE FUNCTION CODE
00292  M01S00269.6di     +++| FCDK     EQU    15          DROP SEEKS
00293  M01S00270.6di     +++| FCDR     EQU    20          DRIVE RELEASE
00294  M01S00271.6di     +++| FCDS     EQU    23          DETAILED STATUS FUNCTION CODE
00295  M01S00272.6di     +++| FCRF     EQU    30          READ FACTORY DATA FUNCTION CODE
00296  M01S00273.6di     +++| FCRU     EQU    31          READ UTILITY SECTOR FUNCTION CODE
00297  M01S00274.6di     +++| FCRP     EQU    34          READ PROTECTED SECTOR
00298  M01S00275.6di     +++| FCWL     EQU    35          WRITE LAST SECTOR
00299  M01S00276.6di     +++| FCWP     EQU    37          WRITE PROTECTED SECTOR
00300  M01S00277.6di     +++| FCRB     EQU    43          READ BACK COUPLER BUFFER
00301  M01S00278.6di     +++| FCST     EQU    52          INPUT PROCESSOR STATUS
00302  M01S00279.6di     +++| FCSU     EQU    55          SPIN UP AN ISD DRIVE
00303  M01S00280.6di     +++| FCSD     EQU    56          SPIN DOWN AN ISD DRIVE
00304  M01S00281.6di     +++| FCTD     EQU    56          INPUT TIMING DATA
00305  M01S00282.6di     +++| FCDP     EQU    61          AUTODUMP
00306  M01S00283.6di     +++| FCMP     EQU    62          MANIPULATE PROCESSOR
00307  M01S00284.6di     +++| FCID     EQU    63          INPUT DISPLAY DATA
00308  M01S00285.6di     +++| FCFT     EQU    64          FUNCTION TIMING DIFFERENCE COUNTER
00309  M01S00286.6di     +++| FCLC     EQU    71          AUTOLOAD CONTROL MODULE FROM PP
00310  M01S00287.6di     +++| FCAL     EQU    414         AUTOLOAD FUNCTION CODE
00311  M01S00288.6di     +++|          SPACE  4
00312  M01S00289.6di     +++|**        ASSEMBLY CONSTANTS.
00313  M01S00290.6di     +++|
00314  M01S00291.6di     +++|
00315  M01S00292.6di     +++| DSLN     EQU    24          DETAILED STATUS LENGTH
00316  M01S00293.6di     +++| FRNW     EQU    3           FIRMWARE REVISION NUMBER WORD
00317  M01S00294.6di     +++| ARNW     EQU    20          FSC ADAPTOR REVISION NUMBER WORD
00318  M01S00295.6di     +++| CMNW     EQU    21          CONTROL MODULE REVISION NUMBER WORD
00319  M01S00296.6di     +++| CH       EQU    0           MASS STORAGE CHANNEL
00320  M01S00297.6di     +++| DEC      MICRO  1,, 6DI     DECK NAME
00321  M01S00298.6di     +++|          TITLE  6DI - MAIN DRIVER.
00322  M01S00299.6di     +++|*         REDEFINE CHANNEL INSTRUCTIONS TO PRODUCE CHANNEL TABLE.
00323  M01S00300.6di     +++|
00324  M01S00301.6di     +++|          RICHI              REDEFINE CHANNEL INSTRUCTIONS
00325  M01S00302.6di     +++|          SPACE  4
00326  M01S00303.6di     +++|          ORG    MSFW
00327  M01S00304.6di     +++|          SPACE  4
00328  M01S00305.6di     +++|*         ENTRY POINT TRANSFERS.
00329  M01S00306.6di     +++|
00330  M01S00307.6di     +++|
00331  M01S00308.6di     +++|          CON    PRS         PRESET ADDRESS
00332  M01S00309.6di     +++|
00333  M01S00310.6di     +++|
00334  M01S00311.6di     +++| RDS      CON    0           ENTRY
00335  M01S00312.6di     +++|          UJN    RDS.        READ SECTOR
00336  M01S00313.6di     +++|
00337  M01S00314.6di     +++|
00338  M01S00315.6di     +++| WDS      CON    0           ENTRY
00339  M01S00316.6di     +++|          UJN    WDS.
00340  M01S00317.6di     +++| EMS      SPACE  4,10
00341  M01S00318.6di     +++|**        EMS - END MASS STORAGE PROCESSING.
00342  M01S00319.6di     +++|*
00343  M01S00320.6di     +++|*         ENTRY  (T4) = CHANNEL, IF PREVIOUSLY RESERVED.
00344  M01S00321.6di     +++|*                (T5) = EQUIPMENT.
00345  M01S00322.6di     +++|*
00346  M01S00323.6di     +++|*         EXIT   (A) = 0.
00347  M01S00324.6di     +++|*
00348  M01S00325.6di     +++|*         NOTE - THE *.EMS* ENTRY POINT IS SUPPORTED ONLY VIA THE
00349  M01S00326.6di     +++|*         *ENDMS* MACRO DEFINED IN *COMPMAC*.  IF THIS LOCATION
00350  M01S00327.6di     +++|*         CHANGES, THE DEFINITION OF *.EMS* MUST BE CHANGED IN
00351  M01S00328.6di     +++|*         *PPCOM* AND ALL PROGRAMS USING THE *ENDMS*
00352  M01S00329.6di     +++|*         MACRO MUST BE REASSEMBLED.
00353  M01S00330.6di     +++|
00354  M01S00331.6di     +++|
00355  M01S00332.6di     +++| .EMS     SUBR               ENTRY/EXIT
00356  M01S00333.6di     +++|          LDN    0
00357  M01S00334.6di     +++|          STD    CM+3
00358  M01S00335.6di     +++|          STI    D1          SET POSITION REQUIRED
00359  M01S00336.6di     +++|          RJM    DSW         DROP CHANNEL VIA *DSWM*
00360  M01S00337.6di     +++|          UJN    .EMSX       RETURN
00361  M01S00338.6di     +++| RDS      SPACE  4
00362  M01S00339.6di     +++|**        RDS - READ SECTOR.
00363  M01S00340.6di     +++|*
00364  M01S00341.6di     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00365  M01S00342.6di     +++|*
00366  M01S00343.6di     +++|*         EXIT   (A) .LT. 0 IF UNRECOVERED ERROR AND READ ERROR
00367  M01S00344.6di     +++|*                PROCESSING SELECTED.
00368  M01S00345.6di     +++|*
00369  M01S00346.6di     +++|*         CALLS  DST, FNC, LDA.
00370  M01S00347.6di     +++|
00371  M01S00348.6di     +++|
00372  M01S00349.6di     +++| RDS.     STM    RDSB        SET BUFFER ADDRESS
00373  M01S00350.6di     +++|
00374  M01S00351.6di     +++|*         THE CODE BETWEEN *RDSC* AND *RDSA* IS OVERLAID TO MEASURE
00375  M01S00352.6di     +++|*         THE SERVO TIMING.  *0SI* MEASURES THE SERVO
00376  M01S00353.6di     +++|*         TIMING AND OVERLAYS *RDS*.
00377  M01S00354.6di     +++|
00378  M01S00355.6di     +++| RDSC     BSS    0
00379  M01S00356.6di     +++|
00380  M01S00357.6di     +++|*         THE FOLLOWING CODE MUST BE DUPLICATED IN BOTH *RDS* AND
00381  M01S00358.6di     +++|*         *WDS* BECAUSE OF TIMING CONSTRAINTS FOR THE 885.
00382  M01S00359.6di     +++|
00383  M01S00360.6di     +++|          SOI    D1
00384  M01S00361.6di     +++|          MJN    RDS1        IF POSITION REQUIRED
00385  M01S00362.6di     +++|          ADD    T7
00386  M01S00363.6di     +++|          LMM    WDSA
00387  M01S00364.6di     +++|          ZJN    RDS2        IF CONSECUTIVE SECTORS
00388  M01S00365.6di     +++| RDS1     RJM    LDA         LOAD ADDRESS AND ISSUE POSITION
00389  M01S00366.6di     +++| RDS2     LDN    FCRD        NORMAL READ
00390  M01S00367.6di     +++| RDSA     EQU    *-1
00391  M01S00368.6di     +++|*         LDN    FCRU        READ UTILITY SECTOR
00392  M01S00369.6di     +++|*         LDN    FCRF        READ FACTORY DATA
00393  M01S00370.6di     +++|*         LDN    FCDS        (READING DETAILED STATUS)
00394  M01S00371.6di     +++|*         LDN    FCTD        (PERFORMING SERVO ADJUSTMENT FOR 885)
00395  M01S00372.6di     +++|*         UJN    RDS4        (ISSUING DISABLE RESERVES)
00396  M01S00373.6di     +++|
00397  M01S00374.6di     +++|*         ENTERED HERE FROM *7SI* TO ISSUE CONTINUE FUNCTION.
00398  M01S00375.6di     +++|*         ENTERED HERE TO READ BACK COUPLER BUFFER ON FULL TRACK
00399  M01S00376.6di     +++|*         WRITE BUFFER TO DISK ERROR.
00400  M01S00377.6di     +++|
00401  M01S00378.6di     +++| RDS3     RJM    FNC
00402  M01S00379.6di     +++|          IAM    *,CH
00403  M01S00380.6di     +++| RDSB     EQU    *-1
Line S00381 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di20
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00381.6di20   ---|          NJN    WDS5        IF TRANSFER NOT COMPLETE
00405  M01S00001.6di20   +++| RDS3.1   NJN    WDS5        IF TRANSFER NOT COMPLETE
00406  M01S00002.6di20   +++|*         LJM    DEI6.0      (IF COUPLER READ BACK)
00407  M01S00003.6di20   +++| RDSD     EQU    *-1
00408  M01S00004.6di20   +++| RDS4     LDM    RDS
00409  M01S00382.6di     +++|          SFM    LDA8,CH     IF CHANNEL PARITY ERROR (LOWER 800 SERIES)
Line S00383 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di20
Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00383.6di20   ---| RDS4     LDM    RDS
00411  M01S00384.6di     +++|          UJN    DST1        CHECK STATUS
00412  M01S00385.6di     +++| WDS      SPACE  4
00413  M01S00386.6di     +++|**        WDS - WRITE SECTOR.
00414  M01S00387.6di     +++|*
00415  M01S00388.6di     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00416  M01S00389.6di     +++|*
00417  M01S00390.6di     +++|*         EXIT   (A) = 0 IF NO ERROR.
00418  M01S00391.6di     +++|*                (A) = -0 IF UNRECOVERED ERROR AND WRITE ERROR
00419  M01S00392.6di     +++|*                PROCESSING SELECTED.
00420  M01S00393.6di     +++|*                (A) .EQ. -1 IF UNRECOVERED ERROR ON PREVIOUS SECTOR,
00421  M01S00394.6di     +++|*                NO WRITE ERROR PROCESSING BUFFER SPECIFIED IN *WDSE*
00422  M01S00395.6di     +++|*                AND WRITE ERROR PROCESSING SELECTED.
00423  M01S00396.6di     +++|*
00424  M01S00397.6di     +++|*         CALLS  DST, FNC, LDA.
00425  M01S00398.6di     +++|
00426  M01S00399.6di     +++|
00427  M01S00400.6di     +++| WDS.     STM    WDSC        SET BUFFER ADDRESS
00428  M01S00401.6di     +++|          SHN    -14
00429  M01S00402.6di     +++|          STM    WDSB        SET WRITE LAST SECTOR
00430  M01S00403.6di     +++|
00431  M01S00404.6di     +++|*         THE FOLLOWING CODE MUST BE DUPLICATED IN BOTH *RDS* AND
00432  M01S00405.6di     +++|*         *WDS* BECAUSE OF TIMING CONSTRAINTS FOR THE 885.
00433  M01S00406.6di     +++|
00434  M01S00407.6di     +++|          SOI    D1
00435  M01S00408.6di     +++|          MJN    WDS1        IF POSITION REQUIRED
00436  M01S00409.6di     +++|          ADD    T7
00437  M01S00410.6di     +++|          LMC    *
00438  M01S00411.6di     +++| WDSA     EQU    *-1
00439  M01S00412.6di     +++|          ZJN    WDS2        IF CONSECUTIVE SECTORS
00440  M01S00413.6di     +++| WDS1     RJM    LDA         LOAD ADDRESS AND ISSUE POSITION
00441  M01S00414.6di     +++| WDS2     LDI    D1          CHECK END OF UNIT/TRACK
00442  M01S00415.6di     +++|*         LJM    /0SD/SUE2   (SPINNING DOWN AN ISD DRIVE)
00443  M01S00416.6di     +++|*         LJM    /0SD/SUE4   (SPINNING UP AN ISD DRIVE)
00444  M01S00417.6di     +++|          ZJN    WDS3        IF END OF UNIT/TRACK
00445  M01S00418.6di     +++|          LDC    0
00446  M01S00419.6di     +++| WDSB     EQU    *-1
00447  M01S00420.6di     +++| WDS3     LMN    FCWL        WRITE LAST SECTOR
00448  M01S00421.6di     +++|
00449  M01S00422.6di     +++|*         ENTERED HERE FROM *7SI* TO ISSUE CONTINUE FUNCTION.
00450  M01S00423.6di     +++|*         ENTERED HERE FROM *0SD* TO ISSUE SPINUP/SPINDOWN FUNCTION.
00451  M01S00424.6di     +++|
00452  M01S00425.6di     +++| WDS4     RJM    FNC
00453  M01S00426.6di     +++|          OAM    *,CH
00454  M01S00427.6di     +++| WDSC     EQU    *-1
00455  M01S00428.6di     +++| WDS5     NJN    LDA9        IF INCOMPLETE TRANSFER
00456  M01S00429.6di     +++| WDSD     LDM    WDS
00457  M01S00430.6di     +++|*         LDC    /0SD/SUE4   (SPINNING UP/DOWN AN ISD DRIVE)
00458  M01S00431.6di     +++|*         UJN    DST         PROCESS STATUS
00459  M01S00432.6di     +++| DST      SPACE  4
00460  M01S00433.6di     +++|**        DST - DEVICE STATUS.
00461  M01S00434.6di     +++|*         WAITS FOR CHANNEL EMPTY, THEN DISCONNECTS.
00462  M01S00435.6di     +++|*
00463  M01S00436.6di     +++|*         ENTRY  (A) = EXIT ADDRESS.
00464  M01S00437.6di     +++|*
00465  M01S00438.6di     +++|*         EXIT   (A) = 0 AND EXIT TO EXIT ADDRESS IF NO STATUS ERROR.
00466  M01S00439.6di     +++|*                      EXIT TO LDA1 IF STATUS ERROR.
00467  M01S00440.6di     +++|
00468  M01S00441.6di     +++|
00469  M01S00442.6di     +++| DST      FJM    *,CH
00470  M01S00443.6di     +++|          DCN    CH+40
00471  M01S00444.6di     +++| DST1     STD    CM          SAVE EXIT ADDRESS
00472  M01S00445.6di     +++|
00473  M01S00446.6di     +++|*         THE *7155* CONTROLLER CANNOT ACCEPT THE GENERAL STATUS
00474  M01S00447.6di     +++|*         FUNCTION FOR 5 MICRO SECONDS AFTER THE DATA TRANSFER
00475  M01S00448.6di     +++|*         IS COMPLETE FOR READS AND 10 MICRO SECONDS FOR WRITE.
00476  M01S00449.6di     +++|*         IN ORDER TO MAKE USE OF THIS TIMING CONSTRAINT THE EXIT
00477  M01S00450.6di     +++|*         ADDRESS IS AN ENTRY CONDITION TO *DST*, WHICH IS STORED
00478  M01S00451.6di     +++|*         IN THE EXIT INSTRUCTION DURING THE CONTROLLER OVERHEAD
00479  M01S00452.6di     +++|*         PERIOD AFTER THE DATA TRANSFER.  THIS ALLOWS THE SHORTEST
00480  M01S00453.6di     +++|*         DELAY POSSIBLE TO RETURN TO THE CALLER AFTER GENERAL
Line S00454 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00454.ns2776  ---|*         STATUS IS RECIEVED.  GENERAL STATUS IS PERFORMED AS AN
00482  M01S00021.ns2776  +++|*         STATUS IS RECEIVED.  GENERAL STATUS IS PERFORMED AS AN
00483  M01S00455.6di     +++|*         IN LINE OPERATION TO MINIMIZE OVERHEAD TIME FOR THE
00484  M01S00456.6di     +++|*         *7155* CONTROLLER.
00485  M01S00457.6di     +++|
00486  M01S00458.6di     +++|          LDN    FCGS        GET GENERAL STATUS
00487  M01S00459.6di     +++|          RJM    FNC         ISSUE FUNCTION
00488  M01S00460.6di     +++|          IAN    CH+40
00489  M01S00461.6di     +++|          SFM    LDA8,CH     IF CHANNEL PARITY ERROR (800 SERIES)
00490  M01S00462.6di     +++| DSTA     NJN    LDA3        IF ERRORS
00491  M01S00463.6di     +++|*         LJM    /0SD/CGS    (SPINNING UP/DOWN AN ISD DRIVE)
Line S00464 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2494
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00464.ns2494  ---|          LJM    0,CM        RETURN
00493  M01S00002.ns2494  +++| DSTB     LJM    0,CM        RETURN
00494  M01S00003.ns2494  +++|*         LJM    /0SC/SCP8   (SWEEP CYCLING)
00495  M01S00465.6di     +++| LDA      SPACE  4,10
00496  M01S00466.6di     +++|**        LDA - LOAD ADDRESS.
00497  M01S00467.6di     +++|*
00498  M01S00468.6di     +++|*         ENTRY  (T5) = EQUIPMENT.
00499  M01S00469.6di     +++|*                (T6) = TRACK.
00500  M01S00470.6di     +++|*                (T7) = SECTOR.
00501  M01S00471.6di     +++|*
00502  M01S00472.6di     +++|*         ENTRY  LDA3 = ENTRY POINT TO PROCESS GENERAL STATUS ERRORS.
00503  M01S00473.6di     +++|*                LDA2 = ENTRY POINT TO JUMP TO ERROR PROCESSOR.
00504  M01S00474.6di     +++|*
00505  M01S00475.6di     +++|*         USES   CM - CM+4.
00506  M01S00476.6di     +++|*
00507  M01S00477.6di     +++|*         CALLS  DST, DSW, FNC.
00508  M01S00478.6di     +++|*
00509  M01S00479.6di     +++|*         MACROS MONITOR.
00510  M01S00480.6di     +++|
00511  M01S00481.6di     +++|
00512  M01S00482.6di     +++| LDA8     LCN    CHPE        SET CHANNEL PARITY ERROR FLAG
00513  M01S00483.6di     +++| LDA9     LJM    DSW7        CALL ERROR PROCESSOR
00514  M01S00484.6di     +++|
00515  M01S00485.6di     +++| LDA      CON    0           ENTRY
00516  M01S00486.6di     +++|
00517  M01S00487.6di     +++|*         REENTER HERE ON ERROR RETRY.
00518  M01S00488.6di     +++|*         COMPUTE PHYSICAL ADDRESS.
00519  M01S00489.6di     +++|
00520  M01S00490.6di     +++| LDA1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
00521  M01S00491.6di     +++|          CRD    CM
00522  M01S00492.6di     +++|          LDD    CM
00523  M01S00493.6di     +++|          NJN    LDA1        IF NOT CLEAR
00524  M01S00494.6di     +++|          STD    CM+1        INDICATE A STANDARD SEEK
00525  M01S00495.6di     +++|          LDD    MA
00526  M01S00496.6di     +++|          CWD    T4
00527  M01S00497.6di     +++|          MONITOR LDAM       CONVERT LOGICAL TO PHYSICAL ADDRESS
00528  M01S00498.6di     +++|          SOD    CM+4        SET UNIT SWITCH COUNTER
00529  M01S00499.6di     +++|          STI    D1
00530  M01S00500.6di     +++|          ADD    T7          SET CONSECUTIVE SECTOR COUNT
00531  M01S00501.6di     +++|          STM    WDSA
00532  M01S00502.6di     +++|          UJN    LDA4        CHECK FOR SEEK WAIT NEEDED
00533  M01S00503.6di     +++|
00534  M01S00504.6di     +++|*         ENTER HERE TO PROCESS GENERAL STATUS ERRORS.
00535  M01S00505.6di     +++|*         *DSW* WILL DETERMINE IF STATUS REQUIRES AN ERROR PROCESSOR
00536  M01S00506.6di     +++|*         CALL OR A SEEK WAIT MONITOR FUNCTION.
00537  M01S00507.6di     +++|
00538  M01S00508.6di     +++| LDA3     STD    CM+3        SAVE STATUS
00539  M01S00509.6di     +++| LDA4     RJM    DSW         DRIVER SEEK WAIT PROCESSING
00540  M01S00510.6di     +++|          LDD    CM+2
00541  M01S00511.6di     +++|          ZJN    LDA5        IF CONTROLLER PREVIOUSLY RESERVED
00542  M01S00512.6di     +++|          RJM    FNC
00543  M01S00513.6di     +++|          IAN    CH+40
00544  M01S00514.6di     +++|          SFM    LDA8,CH     IF CHANNEL PARITY ERROR (800 SERIES)
00545  M01S00515.6di     +++|          LPC    2000
00546  M01S00516.6di     +++|          NJN    LDA3        IF CONTROLLER RESERVED
00547  M01S00517.6di     +++|          LDN    11-1        SET CONNECTED STATUS IN CHRV
00548  M01S00518.6di     +++|          RAM    CHRV
00549  M01S00519.6di     +++| LDA5     LDD    MA          READ SEEK PARAMETERS
00550  M01S00520.6di     +++|*         LJM    RDS2        (GET DETAILED STATUS FOR *0CI*)
00551  M01S00521.6di     +++| LDAC     EQU    *-1
00552  M01S00522.6di     +++|          ADN    1
00553  M01S00523.6di     +++|          CRD    CM
00554  M01S00524.6di     +++| LDAA     LDN    0           SEEK FUNCTION
00555  M01S00525.6di     +++|*         LDN    FCS1        (SEEK 1 TO 1 INTERLACE)
00556  M01S00526.6di     +++|*         LDN    FCS2        (SEEK 2 TO 1 INTERLACE)
00557  M01S00527.6di     +++|*         LDN    FCGR        (ISSUING DISABLE RESERVES)
00558  M01S00528.6di     +++|          RJM    FNC
00559  M01S00529.6di     +++| LDAB     LDN    4
00560  M01S00530.6di     +++|*         UJN    LDA7        (ISSUING DISABLE RESERVES)
00561  M01S00531.6di     +++|          OAM    CM+1,CH     OUTPUT UNIT, CYLINDER, TRACK AND SECTOR
00562  M01S00532.6di     +++| LDA6     NJN    ERR         IF ERROR
00563  M01S00533.6di     +++| LDA7     LDM    LDA
00564  M01S00534.6di     +++|          LJM    DST         CHECK STATUS
00565  M01S00535.6di     +++| FNC      SPACE  4,15
00566  M01S00536.6di     +++|**        FNC - FUNCTION DEVICE.
00567  M01S00537.6di     +++|*
00568  M01S00538.6di     +++|*         ENTRY  (A)  = FUNCTION CODE.
00569  M01S00539.6di     +++|*
00570  M01S00540.6di     +++|*         EXIT   (A) = 502, IF NORMAL FUNCTION.
00571  M01S00541.6di     +++|*                    = *DSLN*, IF READING DETAILED STATUS.
00572  M01S00542.6di     +++|*                    = 2, IF PERFORMING SERVO ADJUSTMENT FOR 885.
00573  M01S00543.6di     +++|*                    = 1, IF SPINNING UP/DOWN AN ISD DRIVE.
00574  M01S00544.6di     +++|*                FUNCTION ISSUED.
00575  M01S00545.6di     +++|*                CHANNEL ACTIVATED.
00576  M01S00546.6di     +++|*
00577  M01S00547.6di     +++|*         CALLS  ERR.
00578  M01S00548.6di     +++|
00579  M01S00549.6di     +++|
00580  M01S00550.6di     +++| FNC4     ACN    CH
00581  M01S00551.6di     +++|          LDC    502         FULL BUFFER WORD COUNT
00582  M01S00552.6di     +++| FNCA     EQU    *-1
00583  M01S00553.6di     +++|*         LDC    DSLN        (READING DETAILED STATUS)
00584  M01S00554.6di     +++|*         LDC    2           (PERFORMING SERVO ADJUSTMENT FOR 885)
00585  M01S00555.6di     +++|*         LDC    1           (SPINNING UP/DOWN AN ISD DRIVE)
00586  M01S00556.6di     +++|
00587  M01S00557.6di     +++| FNC      SUBR               ENTRY/EXIT
00588  M01S00558.6di     +++| FNC1     AJM    ERR,CH      IF CONTROLLER NOT READY
00589  M01S00559.6di     +++| FNCC     FAN    CH
00590  M01S00560.6di     +++|
Line S00561 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00561.6di33   ---|*         NOTE - THE FOLLOWING DELAY MUST BE AT LEAST 300 MS.
Line S00001 Modification History
M01 (Added by) 6di33
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00001.ns2776  ---|*         NOTE - THE FOLLOWING DELAY MUST BE AT LEAST 2 SECONDS.
00593  M01S00022.ns2776  +++|*         THE FOLLOWING DELAY MUST ALLOW AT LEAST 15 SECONDS.
00594  M01S00562.6di     +++|
Line S00563 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00563.6di33   ---| FNC2     ADD    ON          ENSURE 300 MS DELAY IS SATISFIED
Line S00002 Modification History
M01 (Added by) 6di33
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00002.ns2776  ---|          LDN    7
00597  M01S00023.ns2776  +++|          LDD    HN
00598  M01S00003.6di33   +++|          STD    T0
Line S00004 Modification History
M01 (Added by) 6di33
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00004.ns2776  ---| FNC2     ADD    ON          ENSURE 2 SECOND DELAY IS SATISIFIED
00600  M01S00024.ns2776  +++| FNC2     ADD    ON          ENSURE DELAY IS SATISIFIED
00601  M01S00564.6di     +++| FNCB     IJM    FNC4,CH     IF FUNCTION ACCEPTED
Line S00565 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00565.6di33   ---|          NJN    FNC2
00603  M01S00005.6di33   +++|          NJN    FNC2        IF INNER TIMEOUT LOOP NOT YET COMPLETE
00604  M01S00006.6di33   +++|          SOD    T0
00605  M01S00007.6di33   +++|          NJN    FNC2        IF NOT YET TIMED OUT
00606  M01S00566.6di     +++|
00607  M01S00567.6di     +++|*         UJN    ERR         PROCESS ERROR
00608  M01S00568.6di     +++| ERR      SPACE  4,10
00609  M01S00569.6di     +++|**        ERR - CALL *7BI*.
00610  M01S00570.6di     +++|
00611  M01S00571.6di     +++|
00612  M01S00572.6di     +++| ERR      MSERR  7BI,*
00613  M01S00573.6di     +++|          LJM    LEP1        CALL ERROR PROCESSOR
00614  M01S00574.6di     +++|*         LJM    DCI8        (DURING *7CI* PROCESSING)
00615  M01S00575.6di     +++|*         LJM    DEI6.1      (DURING *7EI* PROCESSING)
00616  M01S00576.6di     +++|*         LJM    FTO13       (DURING *7FI* PROCESSING)
00617  M01S00577.6di     +++|*         LJM    FTO16       (DURING *7FI* PROCESSING)
00618  M01S00578.6di     +++|*         LJM    DCP3        (DURING *7GI* PROCESSING)
00619  M01S00579.6di     +++|*         LJM    DCP5        (DURING *7GI* PROCESSING)
00620  M01S00580.6di     +++|*         LJM    EXD4        (DURING *7KI* PROCESSING)
00621  M01S00581.6di     +++|*         LJM    EXD11       (DURING *7KI* PROCESSING)
00622  M01S00004.ns2494  +++|*         LJM    /0SC/SCP9   (SWEEP CYCLING)
00623  M01S00582.6di     +++| ERRA     EQU    *-1         EXIT ADDRESS
00624  M01S00583.6di     +++| DSW      SPACE  4,30
00625  M01S00584.6di     +++|**        DSW - DRIVER SEEK WAIT PROCESSING.
00626  M01S00585.6di     +++|*
00627  M01S00586.6di     +++|*         ENTRY  (CM+3) = SEEK WAIT FUNCTION.  THE FOLLOWING IS A LIST
00628  M01S00587.6di     +++|*                         OF THE POSSIBLE VALUES AND THEIR ORIGIN.
00629  M01S00588.6di     +++|*                         0 = CHANNEL RELEASE REQUEST. *ENDMS REQUEST*
00630  M01S00589.6di     +++|*                         2 = SEEK IN PROGRESS.    *CONTROLLER STATUS*
00631  M01S00590.6di     +++|*                         4 = STORAGE MOVE REQUESTED OR  *LDAM STATUS*
00632  M01S00591.6di     +++|*                             UNIT SWITCH REQUESTED.     *LDAM STATUS*
00633  M01S00592.6di     +++|*                        10 = DRIVE RESERVED.      *CONTROLLER STATUS*
00634  M01S00593.6di     +++|*                        11 = REQUEST CHANNEL AND UNIT.  *LDAM STATUS*
00635  M01S00594.6di     +++|*                      2000 = CONTROLLER RESERVED. *CONTROLLER STATUS*
00636  M01S00595.6di     +++|*                      4XXX = ERROR STATUS.        *CONTROLLER STATUS*
00637  M01S00596.6di     +++|*                      5XXX = ERROR STATUS.        *CONTROLLER STATUS*
00638  M01S00597.6di     +++|*                      77YY = ERROR STATUS.              *LDAM STATUS*
00639  M01S00598.6di     +++|*                             YY = COMPLIMENT OF ERROR CODE.
00640  M01S00599.6di     +++|*                (CHRV) = DRIVER CONTROL WORD.  SEE *COMSMSP*.
00641  M01S00600.6di     +++|*
00642  M01S00601.6di     +++|*         EXIT   (A) = 0.
00643  M01S00602.6di     +++|*                (T4) = CHANNEL.
00644  M01S00603.6di     +++|*                (T5) = SYSTEM DEVICE SELECTED WHEN APPROPRIATE.
00645  M01S00604.6di     +++|*
00646  M01S00605.6di     +++|*         USES   CM - CM+4.
00647  M01S00606.6di     +++|*
00648  M01S00607.6di     +++|*         MACROS MONITOR.
00649  M01S00608.6di     +++|
00650  M01S00609.6di     +++|
00651  M01S00610.6di     +++| DSW4     FNC    FCOC,CH+40  ISSUE RELEASE FUNCTION
00652  M01S00611.6di     +++| DSWD     EQU    *-1
00653  M01S00612.6di     +++|*         FNC    FCDR,CH+40  A DRIVE RELEASE FUNCTION IS ISSUED AS
00654  M01S00613.6di     +++|*                            OPPOSED TO THE OPERATION COMPLETE WHEN
00655  M01S00614.6di     +++|*                            A SEEK OPERATION IS OUTSTANDING ON A
00656  M01S00615.6di     +++|*                            SHARED DRIVE THROUGH THE SAME CHANNEL.
00657  M01S00616.6di     +++|*                            THE ISSUING OF THE DRIVE RELEASE PREVENTS
00658  M01S00617.6di     +++|*                            ANOTHER MACHINE FROM ACCESSING, THROUGH
00659  M01S00618.6di     +++|*                            THE SAME CONTROLLER, THE DRIVE THAT HAS
00660  M01S00619.6di     +++|*                            THE SEEK INITIATED.
Line S00620 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di32
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00620.6di32   ---| DSW5     ADN    1
Line S00621 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di32
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00621.6di32   ---|          MJN    DSW2        IF TIME OUT
Line S00001 Modification History
M01 (Added by) 6di32
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00001.ns2776  ---| DSW5     ADD    ON
Line S00002 Modification History
M01 (Added by) 6di32
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00002.ns2776  ---|          ZJN    DSW2        IF TIME OUT
Line S00622 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00622.ns2776  ---|          AJM    DSW5,CH     IF FUNCTION NOT ACCEPTED
00666  M01S00025.ns2776  +++|          LDD    HN
00667  M01S00026.ns2776  +++|          STD    T0
00668  M01S00027.ns2776  +++| DSW5     IJM    DSW2,CH     IF FUNCTION ACCEPTED
00669  M01S00028.ns2776  +++|          ADD    ON          ENSURE DELAY IS SATISIFIED
00670  M01S00029.ns2776  +++|          NJN    DSW5        IF INNER TIMEOUT LOOP NOT YET COMPLETE
00671  M01S00030.ns2776  +++|          SOD    T0
00672  M01S00031.ns2776  +++|          NJN    DSW5        IF NOT YET TIMED OUT
00673  M01S00003.6di32   +++|          UJN    DSW2        ISSUE DRIVER SEEK WAIT
00674  M01S00004.6di32   +++|
Line S00623 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00623.6di33   ---| DSW6     PJN    DSW2        IF NO ERROR
Line S00624 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00624.6di33   ---|          LDD    CM+3        SET ERROR CODE
Line S00625 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00625.6di33   ---| DSW7     STI    D1
Line S00626 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00626.6di33   ---|          UJN    ERR         PROCESS ERROR
Line S00627 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00627.6di33   ---|
00680  M01S00628.6di     +++| DSW      SUBR               ENTRY/EXIT
00681  M01S00629.6di     +++|          LDM    CHRV        CHECK CHANNEL RESERVATION
00682  M01S00630.6di     +++|          STD    CM
00683  M01S00631.6di     +++|          LPN    11
00684  M01S00632.6di     +++| DSW1     LMD    CM+3
00685  M01S00633.6di     +++|          ZJN    DSWX        IF NO *DSWM* NEEDED
00686  M01S00634.6di     +++| DSWB     SCN    77
00687  M01S00635.6di     +++|*         SCN    75          (SHARED DEVICE - NO RELEASE AFTER SEEK)
00688  M01S00636.6di     +++|          SHN    21-13
00689  M01S00637.6di     +++|          NJN    DSW6        IF NO RELEASE OR ERROR
00690  M01S00638.6di     +++|          LDD    CM
00691  M01S00639.6di     +++|          LPN    10
00692  M01S00640.6di     +++|          NJN    DSW4        IF CONNECTED ISSUE RELEASE
00693  M01S00641.6di     +++| DSW2     LDD    MA          WRITE MESSAGE BUFFER PARAMETERS
00694  M01S00642.6di     +++|          CWD    T4
00695  M01S00643.6di     +++|          MONITOR DSWM       DRIVER SEEK WAIT
00696  M01S00644.6di     +++|*         LDN    0
00697  M01S00645.6di     +++| DSW3     RAI    T0          MODIFY CHANNEL INSTRUCTIONS
00698  M01S00646.6di     +++|          LDM    TCHA,CM
00699  M01S00647.6di     +++|          STD    T0
00700  M01S00648.6di     +++|          AOD    CM
00701  M01S00649.6di     +++|          LDD    CM+4
00702  M01S00650.6di     +++| DSWA     SBN    CH
00703  M01S00651.6di     +++|          NJN    DSW3        IF MORE CHANNEL INSTRUCTIONS TO MODIFY
00704  M01S00652.6di     +++|          LDD    MA          SET T4, T5, AND CM
00705  M01S00653.6di     +++|          CRD    T4
00706  M01S00654.6di     +++|          LDD    CM+1        SET RELEASE CODE
00707  M01S00655.6di     +++|          STM    DSWD
00708  M01S00656.6di     +++|          LDD    CM          SET CHANNEL STATUS
00709  M01S00657.6di     +++|          STM    CHRV
00710  M01S00658.6di     +++|          UJN    DSW1        CHECK FOR ERROR
00711  M01S00008.6di33   +++|
00712  M01S00009.6di33   +++| DSW6     PJN    DSW2        IF NO ERROR
00713  M01S00010.6di33   +++|          LDD    CM+3        SET ERROR CODE
00714  M01S00011.6di33   +++| DSW7     STI    D1
00715  M01S00012.6di33   +++|          LJM    ERR         PROCESS ERROR
00716  M01S00659.6di     +++| TCHS     SPACE  4,10
00717  M01S00660.6di     +++|**        TCHA - TABLE OF CHANNEL INSTRUCTION ADDRESSES.
00718  M01S00661.6di     +++|
00719  M01S00662.6di     +++|
00720  M01S00663.6di     +++|          CHTL   DSWA        TERMINATE CHANNEL TABLE
00721  M01S00664.6di     +++| TCHA     CHTB
00722  M01S00665.6di     +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
00723  M01S00666.6di     +++|
Line S00667 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2387
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00667.ns2387  ---|          BSS    4           PREVENT *6DJ* DRIVER OVERFLOW
Line S00001 Modification History
M01 (Added by) ns2387
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00001.6di33   ---|          BSS    5           PREVENT *6DJ* DRIVER OVERFLOW
00726  M01S00668.6di     +++| PRS      SPACE  4,10
00727  M01S00669.6di     +++|**        PRS - PRESET.
00728  M01S00670.6di     +++|*
00729  M01S00671.6di     +++|*         ENTRY  (CM - CM+4) = *EQDE* WORD OF EST ENTRY.
00730  M01S00672.6di     +++|*
00731  M01S00673.6di     +++|*         EXIT   SEEK FUNCTION SELECTED.
00732  M01S00674.6di     +++|*                SELECTION MADE FOR DRIVE RELEASE AFTER SEEK.
00733  M01S00675.6di     +++|
00734  M01S00676.6di     +++|
00735  M01S00677.6di     +++| PRS      LDM    STSB        SET SEEK FUNCTION
00736  M01S00678.6di     +++|          ADK    LDNI+FCS1-2000
00737  M01S00679.6di     +++|          STM    LDAA
Line S00680 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00680.252l678 ---|          LDD    CM+2
00739  M01S00002.252l678 +++|          LDI    D1
00740  M01S00681.6di     +++|          STM    DSWB
00741  M01S00001.6di23   +++|          LDN    0           INITIALIZE UNIT SWITCH COUNTER
00742  M01S00002.6di23   +++|          STI    D1
00743  M01S00682.6di     +++|          LJM    SMSX        RETURN
00744  M01S00683.6di     +++|          SPACE  4
Line S00684 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00684.ns2352  ---|          ERRNG  PPFW-5-*    DRIVER OVERFLOW
00746  M01S00001.ns2352  +++| .1       SET    *+4-MSFW    CHECK FOR OVERFLOW
00747  M01S00002.ns2352  +++| .1       SET    .1/5
00748  M01S00003.ns2352  +++| .1       SET    MSFW+.1*5
00749  M01S00004.ns2352  +++| .2       SET    PPFW-5-*    BYTES AVAILABLE BEFORE OVERFLOW
00750  M01S00005.ns2352  +++|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5
00751  M01S00685.6di     +++|          TITLE  6DJ - ISD DISK DRIVER.
00752  M01S00686.6di     +++|          IDENT  6DJ,MSFW    ISD DISK DRIVER.
Line S00687 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2584
Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00687.ns2584  ---|*COMMENT  6DJ - ISD DISK DRIVER.
00754  M01S00001.ns2584  +++|*COMMENT  6DI - ISD DISK DRIVER.
Line S00688 Modification History
M01 (Added by) 6di
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00688.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1985
00756  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00757  M01S00689.6di     +++|          SPACE  4,10
00758  M01S00690.6di     +++|***       6DJ - ISD DISK DRIVER.
00759  M01S00691.6di     +++|*
00760  M01S00692.6di     +++|*         K. F. REHM.        85/03/11.
00761  M01S00693.6di     +++|          SPACE  4,15
Line S00694 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2584
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00694.ns2584  ---|***              *6DJ* ALLOWS ACCESS TO ISD (834) DRIVES ONLY.
00763  M01S00002.ns2584  +++|***              *6DJ* ALLOWS ACCESS TO ISD (834 AND 836) DRIVES ONLY.
00764  M01S00695.6di     +++|*         IT PROVIDES IMPROVED DISK PERFORMANCE OVER *6DI* BY MAKING
00765  M01S00696.6di     +++|*         SEVERAL CHANGES TO THE DATA TRANSFER PROTOCOL.  *6DJ* CAUSES
00766  M01S00697.6di     +++|*         *CPUMTR* TO PASS THE DIRECTION OF THE DISK TRANSFER (READ OR
00767  M01S00698.6di     +++|*         WRITE) IN PREVIOUSLY UNUSED BITS IN THE SEEK PARAMETER WORDS.
00768  M01S00699.6di     +++|*         THIS ALLOWS THE ADAPTER TO REDUCE SOME OF THE OVERHEAD IN ITS
00769  M01S00700.6di     +++|*         COMMUNICATIONS WITH THE CONTROL MODULE AND ALLOWS THE PP TO
00770  M01S00701.6di     +++|*         GIVE UP THE CHANNEL UNTIL DATA IS AVAILABLE IN THE CONTROL
00771  M01S00702.6di     +++|*         MODULE-S BUFFER, EFFECTIVELY OVERLAPPING DISK LATENCY TIME.
00772  M01S00703.6di     +++|*         *6DJ* ALSO GIVES UP THE CHANNEL AFTER A *WLSF* IF THE LAST
00773  M01S00704.6di     +++|*         SECTOR WRITTEN HAS NOT YET ARRIVED ON DISK.  THIS ALLOWS
00774  M01S00705.6di     +++|*         OTHER PP-S TO USE THE CHANNEL WHILE THE CONTROL MODULE
00775  M01S00706.6di     +++|*         FINISHES WRITING THE SECTOR.  FOR NON-PERFORMANCE CRITICAL
00776  M01S00707.6di     +++|*         DATA TRANSFERS SUCH AS READING THE PACK SERIAL NUMBER, THE
00777  M01S00708.6di     +++|*         REGULAR *6DI* DRIVER IS USED INSTEAD.
00778  M01S00709.6di     +++|*
00779  M01S00710.6di     +++|*                *6DJ* USES ALL THE SAME MASS STORAGE OVERLAYS AS
00780  M01S00711.6di     +++|*         *6DI*.  SINCE THE OVERLAYS OFTEN READ FROM OR MODIFY THE
00781  M01S00712.6di     +++|*         RESIDENT DRIVER, MANY OF THE SUBROUTINE TAGS IN *6DJ* MUST
00782  M01S00713.6di     +++|*         BE DEFINED AT THE SAME ADDRESS AS THOSE IN *6DI*.  THOSE
00783  M01S00714.6di     +++|*         TAGS IN *6DJ* WHICH DO NOT NEED TO BE IN LINE WITH THEIR
00784  M01S00715.6di     +++|*         *6DI* COUNTERPARTS HAVE A *.J* APPENDED TO THEM TO PREVENT
00785  M01S00716.6di     +++|*         ASSEMBLY ERRORS.
00786  M01S00717.6di     +++|          SPACE  4,10
00787  M01S00718.6di     +++|**        ENTRY CONDITIONS.
00788  M01S00719.6di     +++|*
00789  M01S00720.6di     +++|*         (T4) = CHANNEL IF PREVIOUSLY RESERVED.
00790  M01S00721.6di     +++|*         (T5) = EST ORDINAL.
00791  M01S00722.6di     +++|*         (T6) = TRACK.
00792  M01S00723.6di     +++|*         (T7) = SECTOR.
00793  M01S00724.6di     +++|          SPACE  4,10
00794  M01S00725.6di     +++|*         REDEFINE CHANNEL INSTRUCTIONS TO PRODUCE CHANNEL TABLE.
00795  M01S00726.6di     +++|
00796  M01S00727.6di     +++|          RICHI              REDEFINE CHANNEL INSTRUCTIONS
00797  M01S00728.6di     +++|          SPACE  4
00798  M01S00729.6di     +++|          ORG    MSFW
00799  M01S00730.6di     +++|          SPACE  4
00800  M01S00731.6di     +++|*         ENTRY POINT TRANSFERS.
00801  M01S00732.6di     +++|
00802  M01S00733.6di     +++|
Line S00734 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di26
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00734.6di26   ---|          CON    SMSX        *6DJ* DOES NOT HAVE A PRESET
00804  M01S00001.6di26   +++|          CON    PRS         PRESET *6DJ*
00805  M01S00735.6di     +++|
00806  M01S00736.6di     +++|
00807  M01S00737.6di     +++| RDS      CON    0           ENTRY
00808  M01S00738.6di     +++|          UJN    RDS.        READ SECTOR
00809  M01S00739.6di     +++|
00810  M01S00740.6di     +++|
00811  M01S00741.6di     +++| WDS      CON    0           ENTRY
00812  M01S00742.6di     +++|          UJN    WDS.        WRITE SECTOR
00813  M01S00743.6di     +++| EMS      SPACE  4,10
00814  M01S00744.6di     +++|**        EMS - END MASS STORAGE PROCESSING.
00815  M01S00745.6di     +++|*
00816  M01S00746.6di     +++|*         ENTRY  (T4) = CHANNEL, IF PREVIOUSLY RESERVED.
00817  M01S00747.6di     +++|*                (T5) = EQUIPMENT.
00818  M01S00748.6di     +++|*
00819  M01S00749.6di     +++|*         EXIT   (A) = 0.
00820  M01S00750.6di     +++|*
00821  M01S00751.6di     +++|*         NOTE - THE *.EMS* ENTRY POINT IS SUPPORTED ONLY VIA THE
00822  M01S00752.6di     +++|*         *ENDMS* MACRO DEFINED IN *COMPMAC*.  IF THIS LOCATION
00823  M01S00753.6di     +++|*         CHANGES, THE DEFINITION OF *.EMS* MUST BE CHANGED IN
00824  M01S00754.6di     +++|*         *PPCOM* AND ALL PROGRAMS USING THE *ENDMS*
00825  M01S00755.6di     +++|*         MACRO MUST BE REASSEMBLED.
00826  M01S00756.6di     +++|
00827  M01S00757.6di     +++|
00828  M01S00758.6di     +++| .EMS     SUBR               ENTRY/EXIT
00829  M01S00759.6di     +++|          LDN    0
00830  M01S00760.6di     +++|          STD    CM+3
00831  M01S00761.6di     +++|          STI    D1          SET POSITION REQUIRED
00832  M01S00762.6di     +++|          RJM    DSW         DROP CHANNEL VIA *DSWM*
00833  M01S00763.6di     +++|          UJN    .EMSX       RETURN
00834  M01S00764.6di     +++| RDS      SPACE  4,10
00835  M01S00765.6di     +++|**        RDS - READ SECTOR.
00836  M01S00766.6di     +++|*
00837  M01S00767.6di     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00838  M01S00768.6di     +++|*
00839  M01S00769.6di     +++|*         EXIT   (A) .LT. 0 IF UNRECOVERED ERROR AND READ ERROR
00840  M01S00770.6di     +++|*                PROCESSING SELECTED.
00841  M01S00771.6di     +++|*
00842  M01S00772.6di     +++|*         CALLS  DST, FNC, LDA.
00843  M01S00773.6di     +++|
00844  M01S00774.6di     +++|
00845  M01S00775.6di     +++| RDS.     STM    RDSB        SET BUFFER ADDRESS
00846  M01S00776.6di     +++|          SOI    D1
00847  M01S00777.6di     +++|          MJN    RDS1        IF POSITION REQUIRED
00848  M01S00778.6di     +++|          ADD    T7
00849  M01S00779.6di     +++|          LMM    WDSA
00850  M01S00780.6di     +++|          ZJN    RDS2        IF CONSECUTIVE SECTORS
00851  M01S00781.6di     +++| RDS1     RJM    LDA         LOAD ADDRESS AND ISSUE POSITION
00852  M01S00782.6di     +++| RDS2     LDN    FCRD        NORMAL READ
00853  M01S00783.6di     +++|          ERRNZ  RDS2-.RDS2  ENSURE ADDRESS IS CORRECT FOR *LDAM* CHECK
00854  M01S00784.6di     +++|
00855  M01S00785.6di     +++|*         ENTERED HERE FROM *7SI* TO ISSUE CONTINUE FUNCTION.
00856  M01S00786.6di     +++|*         ENTERED HERE TO READ BACK COUPLER BUFFER ON FULL TRACK
00857  M01S00787.6di     +++|*         WRITE BUFFER TO DISK ERROR.
00858  M01S00788.6di     +++|
00859  M01S00789.6di     +++| RDS3     RJM    FNC
00860  M01S00790.6di     +++|          IAM    *,CH
00861  M01S00791.6di     +++| RDSB     EQU    *-1
00862  M01S00792.6di     +++|          NJN    WDS5        IF TRANSFER NOT COMPLETE
00863  M01S00793.6di     +++|          SFM    LDA8,CH     IF CHANNEL PARITY ERROR (LOWER 800 SERIES)
00864  M01S00794.6di     +++|          LDM    RDS
00865  M01S00795.6di     +++|          UJN    DST1        CHECK STATUS
00866  M01S00796.6di     +++| WDS      SPACE  4,10
00867  M01S00797.6di     +++|**        WDS - WRITE SECTOR.
00868  M01S00798.6di     +++|*
00869  M01S00799.6di     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00870  M01S00800.6di     +++|*
00871  M01S00801.6di     +++|*         EXIT   (A) = 0 IF NO ERROR.
00872  M01S00802.6di     +++|*                (A) = -0 IF UNRECOVERED ERROR AND WRITE ERROR
00873  M01S00803.6di     +++|*                PROCESSING SELECTED.
00874  M01S00804.6di     +++|*                (A) .EQ. -1 IF UNRECOVERED ERROR ON PREVIOUS SECTOR,
00875  M01S00805.6di     +++|*                NO WRITE ERROR PROCESSING BUFFER SPECIFIED IN *WDSE*
00876  M01S00806.6di     +++|*                AND WRITE ERROR PROCESSING SELECTED.
00877  M01S00807.6di     +++|*
00878  M01S00808.6di     +++|*         CALLS  DST, FNC, LDA.
00879  M01S00809.6di     +++|
00880  M01S00810.6di     +++|
00881  M01S00811.6di     +++| WDS.     STM    WDSC        SET BUFFER ADDRESS
00882  M01S00812.6di     +++|          SHN    -14
00883  M01S00813.6di     +++|          STM    WDSB        SET WRITE LAST SECTOR
00884  M01S00814.6di     +++|          SOI    D1
00885  M01S00815.6di     +++|          MJN    WDS1        IF POSITION REQUIRED
00886  M01S00816.6di     +++|          ADD    T7
00887  M01S00817.6di     +++|          LMC    *
00888  M01S00818.6di     +++| WDSA     EQU    *-1
00889  M01S00819.6di     +++|          ZJN    WDS2        IF CONSECUTIVE SECTORS
00890  M01S00820.6di     +++| WDS1     RJM    LDA         LOAD ADDRESS AND ISSUE POSITION
00891  M01S00821.6di     +++| WDS2     LDI    D1          CHECK END OF UNIT/TRACK
00892  M01S00822.6di     +++|          ZJN    WDS3        IF END OF UNIT/TRACK
00893  M01S00823.6di     +++|          LDC    0
00894  M01S00824.6di     +++| WDSB     EQU    *-1
00895  M01S00825.6di     +++| WDS3     LMN    FCWL        WRITE LAST SECTOR
00896  M01S00826.6di     +++|
00897  M01S00827.6di     +++|*         ENTERED HERE FROM *7SI* TO ISSUE CONTINUE FUNCTION.
00898  M01S00828.6di     +++|
00899  M01S00829.6di     +++| WDS4     RJM    FNC
00900  M01S00830.6di     +++|          OAM    *,CH
00901  M01S00831.6di     +++| WDSC     EQU    *-1
00902  M01S00832.6di     +++| WDS5     NJN    LDA9        IF INCOMPLETE TRANSFER
00903  M01S00833.6di     +++|          LDM    WDS
00904  M01S00834.6di     +++|*         UJN    DST         PROCESS STATUS
00905  M01S00835.6di     +++| DST      SPACE  4,10
00906  M01S00836.6di     +++|**        DST - DEVICE STATUS.
00907  M01S00837.6di     +++|*         WAITS FOR CHANNEL EMPTY, THEN DISCONNECTS.
00908  M01S00838.6di     +++|*
00909  M01S00839.6di     +++|*         ENTRY  (A) = EXIT ADDRESS.
00910  M01S00840.6di     +++|*
00911  M01S00841.6di     +++|*         EXIT   (A) = 0 AND EXIT TO EXIT ADDRESS IF NO STATUS ERROR.
00912  M01S00842.6di     +++|*                      EXIT TO LDA1 IF STATUS ERROR.
00913  M01S00843.6di     +++|
00914  M01S00844.6di     +++|
00915  M01S00845.6di     +++| DST      FJM    *,CH        IF LAST WORD NOT YET TAKEN
00916  M01S00846.6di     +++|          DCN    CH+40
00917  M01S00847.6di     +++| DST1     STD    CM          SAVE EXIT ADDRESS
00918  M01S00848.6di     +++|          ERRNZ  DST1-.DST1  ENSURE ADDRESS IS CORRECT FOR *1MS* JUMP
00919  M01S00849.6di     +++|          LDN    FCGS        GET GENERAL STATUS
00920  M01S00850.6di     +++|          RJM    FNC         ISSUE FUNCTION
00921  M01S00851.6di     +++|          IAN    CH+40
00922  M01S00852.6di     +++|          SFM    LDA8,CH     IF CHANNEL PARITY ERROR (800 SERIES)
00923  M01S00853.6di     +++|          NJN    LDA3.J      IF ERRORS
00924  M01S00854.6di     +++|          LJM    0,CM        RETURN
00925  M01S00855.6di     +++| LDA      SPACE  4,10
00926  M01S00856.6di     +++|**        LDA - LOAD ADDRESS.
00927  M01S00857.6di     +++|*
00928  M01S00858.6di     +++|*         ENTRY  (T5) = EQUIPMENT.
00929  M01S00859.6di     +++|*                (T6) = TRACK.
00930  M01S00860.6di     +++|*                (T7) = SECTOR.
00931  M01S00861.6di     +++|*
00932  M01S00862.6di     +++|*         ENTRY  LDA3 = ENTRY POINT TO PROCESS GENERAL STATUS ERRORS.
00933  M01S00863.6di     +++|*                LDA2 = ENTRY POINT TO JUMP TO ERROR PROCESSOR.
00934  M01S00864.6di     +++|*
00935  M01S00865.6di     +++|*         USES   CM - CM+4.
00936  M01S00866.6di     +++|*
00937  M01S00867.6di     +++|*         CALLS  DST, DSW, FNC.
00938  M01S00868.6di     +++|*
00939  M01S00869.6di     +++|*         MACROS MONITOR.
00940  M01S00870.6di     +++|
00941  M01S00871.6di     +++|
00942  M01S00872.6di     +++| LDA8     LCN    CHPE        SET CHANNEL PARITY ERROR FLAG
Line S00873 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00873.6di33   ---| LDA9     LJM    DSW7        CALL ERROR PROCESSOR
00944  M01S00013.6di33   +++| LDA9     LJM    DSW7A       CALL ERROR PROCESSOR
00945  M01S00874.6di     +++|
00946  M01S00875.6di     +++| LDA      CON    0           ENTRY
00947  M01S00876.6di     +++|
00948  M01S00877.6di     +++|*         REENTER HERE ON ERROR RETRY.
00949  M01S00878.6di     +++|*         COMPUTE PHYSICAL ADDRESS.
00950  M01S00879.6di     +++|
00951  M01S00880.6di     +++| LDA1     LDD    OA          WAIT OUTPUT REGISTER CLEAR
00952  M01S00881.6di     +++|          CRD    CM
00953  M01S00882.6di     +++|          LDD    CM
00954  M01S00883.6di     +++|          NJN    LDA1        IF NOT CLEAR
00955  M01S00884.6di     +++|          LDD    MA
00956  M01S00885.6di     +++|          CWD    T4
00957  M01S00886.6di     +++|          LDM    LDA         PASS READ/WRITE FLAG TO *CPUMTR*
00958  M01S00887.6di     +++|          STD    CM+1
00959  M01S00888.6di     +++|          MONITOR LDAM       CONVERT LOGICAL TO PHYSICAL ADDRESS
00960  M01S00889.6di     +++|          SOD    CM+4        SET UNIT SWITCH COUNTER
00961  M01S00890.6di     +++|          STI    D1
00962  M01S00891.6di     +++|          ADD    T7          SET CONSECUTIVE SECTOR COUNT
00963  M01S00892.6di     +++|          STM    WDSA
00964  M01S00893.6di     +++|          UJN    LDA4.J      CHECK FOR SEEK WAIT NEEDED
00965  M01S00894.6di     +++|
00966  M01S00895.6di     +++|*         ENTER HERE TO PROCESS GENERAL STATUS ERRORS.
00967  M01S00896.6di     +++|*         *DSW* WILL DETERMINE IF STATUS REQUIRES AN ERROR PROCESSOR
00968  M01S00897.6di     +++|*         CALL OR A SEEK WAIT MONITOR FUNCTION.
00969  M01S00898.6di     +++|
00970  M01S00899.6di     +++| LDA3.J   STD    CM+3        SAVE STATUS
00971  M01S00900.6di     +++| LDA4.J   RJM    DSW         DRIVER SEEK WAIT PROCESSING
00972  M01S00901.6di     +++|
00973  M01S00902.6di     +++|*         IF (CM+2) = 1, THEN *DSW* WAS ENTERED BECAUSE A *0020*
00974  M01S00903.6di     +++|*         GENERAL STATUS INDICATED THAT THE SECTOR JUST WRITTEN HAD NOT
00975  M01S00904.6di     +++|*         YET ARRIVED ON DISK.  IN ORDER TO ALLOW OTHER PP-S TO USE THE
00976  M01S00905.6di     +++|*         CHANNEL DURING THIS DELAY, *6DJ* GIVES UP THE CHANNEL, THEN
00977  M01S00906.6di     +++|*         PERIODICALLY RE-REQUESTS IT TO SEE IF THE SECTOR HAS BEEN
00978  M01S00907.6di     +++|*         WRITTEN, GIVING THE CHANNEL UP AGAIN IF THE SECTOR IS STILL
00979  M01S00908.6di     +++|*         NOT ON DISK.  A GENERAL STATUS OF ZERO INDICATES THAT THE
00980  M01S00909.6di     +++|*         SECTOR HAS ARRIVED ON DISK;  BY PATCHING THE DRIVER EXIT
00981  M01S00910.6di     +++|*         ADDRESS INTO *LDA*, THE ZERO GENERAL STATUS WILL CAUSE *6DJ*
00982  M01S00911.6di     +++|*         TO CORRECTLY RETURN TO ITS CALLER.
00983  M01S00912.6di     +++|
00984  M01S00913.6di     +++|          LDD    CM+2
00985  M01S00914.6di     +++|          ZJN    LDA5        IF CONTROLLER PREVIOUSLY RESERVED
00986  M01S00915.6di     +++|          SBN    1
00987  M01S00916.6di     +++|          NJN    LDA4.1      IF NOT BACK FROM A DSWM SUBFUNCTION 20
00988  M01S00917.6di     +++|          LDM    WDS
00989  M01S00918.6di     +++|          STM    LDA
00990  M01S00919.6di     +++| LDA4.1   LDN    11-1        SET CONNECTED STATUS IN CHRV
00991  M01S00920.6di     +++|          RAM    CHRV
00992  M01S00921.6di     +++| LDA5     LDD    MA          READ SEEK PARAMETERS
00993  M01S00922.6di     +++|          ADN    1
00994  M01S00923.6di     +++|          CRD    CM
00995  M01S00924.6di     +++|          LDN    FCS1        (SEEK ONE TO ONE INTERLACE)
00996  M01S00925.6di     +++|          RJM    FNC
00997  M01S00926.6di     +++|          LDN    4
00998  M01S00927.6di     +++|          OAM    CM+1,CH     OUTPUT UNIT, CYLINDER, TRACK AND SECTOR
00999  M01S00928.6di     +++|          NJN    ERR         IF ERROR
01000  M01S00929.6di     +++|          LDM    LDA
01001  M01S00930.6di     +++|          LJM    DST         CHECK STATUS
01002  M01S00931.6di     +++| FNC      SPACE  4,10
01003  M01S00932.6di     +++|**        FNC - FUNCTION DEVICE.
01004  M01S00933.6di     +++|*
01005  M01S00934.6di     +++|*         ENTRY  (A)  = FUNCTION CODE.
01006  M01S00935.6di     +++|*
01007  M01S00936.6di     +++|*         EXIT   (A) = 502.
01008  M01S00937.6di     +++|*                FUNCTION ISSUED.
01009  M01S00938.6di     +++|*                CHANNEL ACTIVATED.
01010  M01S00939.6di     +++|*
01011  M01S00940.6di     +++|*         CALLS  ERR.
01012  M01S00941.6di     +++|
01013  M01S00942.6di     +++|
01014  M01S00943.6di     +++| FNC4     ACN    CH
01015  M01S00944.6di     +++|          LDC    502         FULL BUFFER WORD COUNT
01016  M01S00945.6di     +++|
01017  M01S00946.6di     +++| FNC      SUBR               ENTRY/EXIT
01018  M01S00947.6di     +++|          AJM    ERR,CH      IF CONTROLLER NOT READY
01019  M01S00948.6di     +++|          FAN    CH
01020  M01S00949.6di     +++|
01021  M01S00950.6di     +++|*         NOTE - THE FOLLOWING DELAY MUST BE AT LEAST 300 MS.
01022  M01S00951.6di     +++|
Line S00952 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00952.6di33   ---| FNC2     ADD    ON          ENSURE 300 MS DELAY IS SATISFIED
01024  M01S00014.6di33   +++| FNC2A    ADD    ON          ENSURE 300 MS DELAY IS SATISFIED
01025  M01S00953.6di     +++|          IJM    FNC4,CH     IF FUNCTION ACCEPTED
Line S00954 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01026  M02S00954.6di33   ---|          NJN    FNC2        IF NOT YET TIMED OUT
01027  M01S00015.6di33   +++|          NJN    FNC2A       IF NOT YET TIMED OUT
01028  M01S00016.6di33   +++|          UJN    ERR         PROCESS ERROR
01029  M01S00017.6di33   +++|          SPACE  4,10
01030  M01S00018.6di33   +++|*         NOTE - THE FOLLOWING CODE IS PLACED HERE TO ALLOW *6DJ*
01031  M01S00019.6di33   +++|*         ADDRESSES TO REMAIN IN SYNCH WITH *6DI*
01032  M01S00020.6di33   +++|
Line S00021 Modification History
M01 (Added by) 6di33
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01033  M02S00021.ns2776  ---| DSW6A    PJN    DSW2        IF NO ERROR
01034  M01S00032.ns2776  +++| DSW6A    PJN    DSW5.1      IF NO ERROR
01035  M01S00022.6di33   +++|          LDD    CM+3        SET ERROR CODE
01036  M01S00023.6di33   +++| DSW7A    STI    D1
01037  M01S00955.6di     +++|*         UJN    ERR         PROCESS ERROR
01038  M01S00956.6di     +++| ERR      SPACE  4,10
01039  M01S00957.6di     +++|**        ERR - CALL *7BI*.
01040  M01S00958.6di     +++|
01041  M01S00959.6di     +++|
01042  M01S00960.6di     +++| ERR      MSERR  7BI,*
01043  M01S00961.6di     +++|          LJM    LEP1        CALL ERROR PROCESSOR
01044  M01S00962.6di     +++|*         LJM    DCI8        (DURING *7CI* PROCESSING)
01045  M01S00963.6di     +++|*         LJM    DEI6.1      (DURING *7EI* PROCESSING)
01046  M01S00964.6di     +++|*         LJM    FTO13       (DURING *7FI* PROCESSING)
01047  M01S00965.6di     +++|*         LJM    FTO16       (DURING *7FI* PROCESSING)
01048  M01S00966.6di     +++|*         LJM    DCP3        (DURING *7GI* PROCESSING)
01049  M01S00967.6di     +++|*         LJM    DCP5        (DURING *7GI* PROCESSING)
01050  M01S00968.6di     +++| ERRA     EQU    *-1         EXIT ADDRESS
01051  M01S00969.6di     +++| DSW      SPACE  4,30
01052  M01S00970.6di     +++|**        DSW - DRIVER SEEK WAIT PROCESSING.
01053  M01S00971.6di     +++|*
01054  M01S00972.6di     +++|*         ENTRY  (CM+3) = SEEK WAIT FUNCTION.  THE FOLLOWING IS A LIST
01055  M01S00973.6di     +++|*                         OF THE POSSIBLE VALUES AND THEIR ORIGIN.
01056  M01S00974.6di     +++|*                         0 = CHANNEL RELEASE REQUEST. *ENDMS REQUEST*
01057  M01S00975.6di     +++|*                         2 = SEEK IN PROGRESS.    *CONTROLLER STATUS*
01058  M01S00976.6di     +++|*                         4 = STORAGE MOVE REQUESTED OR  *LDAM STATUS*
01059  M01S00977.6di     +++|*                             UNIT SWITCH REQUESTED.     *LDAM STATUS*
01060  M01S00978.6di     +++|*                        10 = DRIVE RESERVED.      *CONTROLLER STATUS*
01061  M01S00979.6di     +++|*                        11 = REQUEST CHANNEL AND UNIT.  *LDAM STATUS*
01062  M01S00980.6di     +++|*                        20 = WRITE IN PROGRESS.   *CONTROLLER STATUS*
01063  M01S00981.6di     +++|*                      4XXX = ERROR STATUS.        *CONTROLLER STATUS*
01064  M01S00982.6di     +++|*                      5XXX = ERROR STATUS.        *CONTROLLER STATUS*
01065  M01S00983.6di     +++|*                      77YY = ERROR STATUS.              *LDAM STATUS*
01066  M01S00984.6di     +++|*                             YY = COMPLIMENT OF ERROR CODE.
01067  M01S00985.6di     +++|*                (CHRV) = DRIVER CONTROL WORD.  SEE *COMSMSP*.
01068  M01S00986.6di     +++|*
01069  M01S00987.6di     +++|*         EXIT   (A) = 0.
01070  M01S00988.6di     +++|*                (T4) = CHANNEL.
01071  M01S00989.6di     +++|*                (T5) = SYSTEM DEVICE SELECTED WHEN APPROPRIATE.
01072  M01S00990.6di     +++|*
01073  M01S00991.6di     +++|*         USES   CM - CM+4.
01074  M01S00992.6di     +++|*
01075  M01S00993.6di     +++|*         MACROS MONITOR.
01076  M01S00994.6di     +++|
01077  M01S00995.6di     +++|
01078  M01S00996.6di     +++| DSW4     FNC    FCOC,CH+40  ISSUE RELEASE FUNCTION
01079  M01S00997.6di     +++| DSWD     EQU    *-1
01080  M01S00998.6di     +++|*         FNC    FCDR,CH+40  A DRIVE RELEASE FUNCTION IS ISSUED AS
01081  M01S00999.6di     +++|*                            OPPOSED TO THE OPERATION COMPLETE WHEN
01082  M01S01000.6di     +++|*                            A SEEK OPERATION IS OUTSTANDING ON A
01083  M01S01001.6di     +++|*                            SHARED DRIVE THROUGH THE SAME CHANNEL.
01084  M01S01002.6di     +++|*                            THE ISSUING OF THE DRIVE RELEASE PREVENTS
01085  M01S01003.6di     +++|*                            ANOTHER MACHINE FROM ACCESSING, THROUGH
01086  M01S01004.6di     +++|*                            THE SAME CONTROLLER, THE DRIVE THAT HAS
01087  M01S01005.6di     +++|*                            THE SEEK INITIATED.
Line S01006 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01088  M02S01006.ns2776  ---| DSW5     ADN    1
Line S01007 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01089  M02S01007.ns2776  ---|          MJN    DSW2        IF TIME OUT
Line S01008 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S01008.ns2776  ---|          AJM    DSW5,CH     IF FUNCTION NOT ACCEPTED
01091  M01S00033.ns2776  +++|          LDN    1
01092  M01S00034.ns2776  +++|          STD    T0
01093  M01S00035.ns2776  +++| DSW5     IJM    DSW2,CH     IF FUNCTION ACCEPTED
01094  M01S00036.ns2776  +++|          ADN    1           ENSURE DELAY IS SATISIFIED
01095  M01S00037.ns2776  +++|          NJN    DSW5        IF INNER TIMEOUT LOOP NOT YET COMPLETE
01096  M01S00038.ns2776  +++|          SOD    T0
01097  M01S00039.ns2776  +++|          NJN    DSW5        IF NOT YET TIMED OUT
Line S00005 Modification History
M01 (Added by) 6di32
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00005.ns2776  ---|          UJN    DSW2        ISSUE DRIVER SEEK WAIT
01099  M01S00040.ns2776  +++| DSW5.1   UJN    DSW2        ISSUE DRIVER SEEK WAIT
01100  M01S00006.6di32   +++|
Line S01009 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S01009.6di33   ---| DSW6     PJN    DSW2        IF NO ERROR
Line S01010 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01102  M02S01010.6di33   ---|          LDD    CM+3        SET ERROR CODE
Line S01011 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01103  M02S01011.6di33   ---| DSW7     STI    D1
Line S01012 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01104  M02S01012.6di33   ---|          UJN    ERR         PROCESS ERROR
Line S01013 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01105  M02S01013.6di33   ---|
01106  M01S01014.6di     +++| DSW      SUBR               ENTRY/EXIT
01107  M01S01015.6di     +++|          LDM    CHRV        CHECK CHANNEL RESERVATION
01108  M01S01016.6di     +++|          STD    CM
01109  M01S01017.6di     +++|          LPN    11
01110  M01S01018.6di     +++| DSW1     LMD    CM+3
01111  M01S01019.6di     +++|          ZJN    DSWX        IF NO *DSWM* NEEDED
01112  M01S01020.6di     +++|          SCN    55
01113  M01S01021.6di     +++|          SHN    21-13
Line S01022 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di33
Seq #  *Modification Id* Act 
----------------------------+
01114  M02S01022.6di33   ---|          NJN    DSW6        IF NO RELEASE OR ERROR
01115  M01S00024.6di33   +++|          NJN    DSW6A       IF NO RELEASE OR ERROR
01116  M01S01023.6di     +++|          LDD    CM
01117  M01S01024.6di     +++|          LPN    10
01118  M01S01025.6di     +++|          NJN    DSW4        IF CONNECTED ISSUE RELEASE
01119  M01S01026.6di     +++| DSW2     LDD    OA          CHECK IF *DRCM*/*EXCM* COMPLETED
01120  M01S01027.6di     +++|          CRM    DSWC,ON
Line S01028 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2387
Seq #  *Modification Id* Act 
----------------------------+
01121  M02S01028.ns2387  ---|          CWD    T4          STORE PARAMETERS
01122  M01S01029.6di     +++|          LDM    DSWC
01123  M01S01030.6di     +++|          NJN    DSW2        IF FUNCTION NOT YET PROCESSED
01124  M01S00002.ns2387  +++|          LDD    MA          STORE PARAMETERS
01125  M01S00003.ns2387  +++|          CWD    T4
01126  M01S01031.6di     +++|          MONITOR DSWM       DRIVER SEEK WAIT
01127  M01S01032.6di     +++|*         LDN    0
01128  M01S01033.6di     +++| DSW3.J   RAI    T0          MODIFY CHANNEL INSTRUCTIONS
01129  M01S01034.6di     +++|          LDM    TCHA.J,CM
01130  M01S01035.6di     +++|          STD    T0
01131  M01S01036.6di     +++|          AOD    CM
01132  M01S01037.6di     +++|          LDD    CM+4
01133  M01S01038.6di     +++| DSWA.J   SBN    CH
01134  M01S01039.6di     +++|          NJN    DSW3.J      IF MORE CHANNEL INSTRUCTIONS TO MODIFY
01135  M01S01040.6di     +++|          LDD    MA          SET T4, T5, AND CM
01136  M01S01041.6di     +++|          CRD    T4
01137  M01S01042.6di     +++|          LDD    CM+1        SET RELEASE CODE
01138  M01S01043.6di     +++|          STM    DSWD
01139  M01S01044.6di     +++|          LDD    CM          SET CHANNEL STATUS
01140  M01S01045.6di     +++|          STM    CHRV
01141  M01S01046.6di     +++|          LJM    DSW1        CHECK FOR ERROR
01142  M01S01047.6di     +++| TCHS     SPACE  4,10
01143  M01S01048.6di     +++|**        TCHA.J - TABLE OF CHANNEL INSTRUCTION ADDRESSES
01144  M01S01049.6di     +++|
01145  M01S01050.6di     +++|
01146  M01S01051.6di     +++|          CHTL   DSWA.J      TERMINATE CHANNEL TABLE
01147  M01S01052.6di     +++| TCHA.J   CHTB
01148  M01S01053.6di     +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
01149  M01S01054.6di     +++|
01150  M01S01055.6di     +++|          ERRNG  PRS-*       DRIVER OVERFLOWED INTO SCRATCH AREA
01151  M01S00002.6di26   +++| PRS      SPACE  4,10
01152  M01S00003.6di26   +++|**        PRS - PRESET *6DJ*.
01153  M01S00004.6di26   +++|
01154  M01S00005.6di26   +++|
01155  M01S00006.6di26   +++| PRS      BSS    0           ENTRY
01156  M01S00007.6di26   +++|          LDN    0           FORCE *LDA* CALL ON FIRST OPERATION
01157  M01S00008.6di26   +++|          STI    D1
01158  M01S00009.6di26   +++|          LJM    SMSX        EXIT VIA *.SMS*
01159  M01S01056.6di     +++|
01160  M01S01057.6di     +++| DSWC     BSS    0           *DRCM*/*ECXM* CHECK SCRATCH AREA
01161  M01S01058.6di     +++|          SPACE  4
Line S01059 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
01162  M02S01059.ns2352  ---|          ERRNG  PPFW-5-*-5  DRIVER OVERFLOW
01163  M01S00006.ns2352  +++| .1       SET    *+5+4-MSFW  CHECK FOR OVERFLOW
01164  M01S00007.ns2352  +++| .1       SET    .1/5
01165  M01S00008.ns2352  +++| .1       SET    MSFW+.1*5
01166  M01S00009.ns2352  +++| .2       SET    PPFW-5-*-5  BYTES AVAILABLE BEFORE OVERFLOW
01167  M01S00010.ns2352  +++|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5
Line S01060 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2364
Seq #  *Modification Id* Act 
----------------------------+
01168  M02S01060.ns2364  ---| 7BI      MSOVL  7663,T2,EPFW-1,("HN" INITIAL ERROR PROCESSOR.)
01169  M01S00001.ns2364  +++| 7BI      MSOVL  7651,T2,EPFW-1,("HN" INITIAL ERROR PROCESSOR.)
01170  M01S01061.6di     +++| 7CI      SPACE  4,10
01171  M01S01062.6di     +++|***       INITIALIZE ERROR PROCESSOR.
01172  M01S01063.6di     +++|*         K. F. REHM.        84/02/01.
01173  M01S01064.6di     +++| 7CI      SPACE  4,10
01174  M01S01065.6di     +++|***              *7BI* IS CALLED BY *6DI*/*6DJ* WHEN AN ERROR HAS BEEN
01175  M01S01066.6di     +++|*         DETECTED.  *7BI* OVERLAYS *6DI*/*6DJ* PRESET WITH RECOVERY
01176  M01S01067.6di     +++|*         CODE INITIALIZES MEMORY LOCATIONS USED BY OTHER OVERLAYS.
01177  M01S01068.6di     +++|          SPACE  4,10
01178  M01S01069.6di     +++|**        DBI - INITIALIZE ERROR PROCESSING.
01179  M01S01070.6di     +++|*
01180  M01S01071.6di     +++|*         ENTRY  (T1) = LENGTH OF *PRS* OVERLAY CODE.
01181  M01S01072.6di     +++|*                (T2) = RDCT.
01182  M01S01073.6di     +++|*                (T4 - T7) = DRIVER PARAMETERS.
01183  M01S01074.6di     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
Line S01075 Modification History
M01 (Added by) 6di
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S01075.253l688 ---|*                         BIT 4 = 0 IF THIS IS THE FIRST RETRY ATTEMPT.
01185  M01S00001.253l688 +++|*                         BIT 6 = 0 IF FIRST RETRY ATTEMPT.
01186  M01S01076.6di     +++|*                (DRSW) = *LDAM*/*DSWM*/CHANNEL PARITY ERROR CODE
01187  M01S01077.6di     +++|*                         COMPLIMENT.
01188  M01S01078.6di     +++|*
01189  M01S01079.6di     +++|*         EXIT   TO *7CI*.
01190  M01S01080.6di     +++|*                (T4 - T7) = UNCHANGED.
01191  M01S01081.6di     +++|*                (DEAI) = ALGORITHM INDEX.
Line S01082 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S01082.252l678 ---|*                (DEDT) = 8/0, 4/*6DI* OR *6DJ* DRIVER TYPE.
01193  M01S00003.252l678 +++|*         EXIT   (DEDT) = ERROR PROCESSING CONTROL WORD.
01194  M01S00004.252l678 +++|*                         BITS AFFECTED BY THIS OVERLAY -
01195  M01S00005.252l678 +++|*                         BITS 3 - 0 = *6DI*/*6DJ* DRIVER TYPE.
01196  M01S01083.6di     +++|*                (DEGS) = 0.
01197  M01S01084.6di     +++|*                (DENR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
01198  M01S01085.6di     +++|*                (DERC) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
01199  M01S01086.6di     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
01200  M01S01087.6di     +++|*                (DEST) = 0.
01201  M01S01088.6di     +++|*                (DEWR) = 0 IF FIRST RETRY ATTEMPT, ELSE UNCHANGED.
01202  M01S01089.6di     +++|*                (DEXA) = *LDA1*, *7EP* EXIT ADDRESS.
01203  M01S01090.6di     +++|*                (MSFW) = INITIAL CHANNEL.
01204  M01S01091.6di     +++|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
01205  M01S01092.6di     +++|*                         BITS AFFECTED BY THIS OVERLAY -
Line S01093 Modification History
M01 (Added by) 6di
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S01093.253l688 ---|*                         BIT 4 = 1 IF FIRST RETRY ATTEMPT.
01207  M01S00002.253l688 +++|*                         BIT 4 = 1.
01208  M01S01094.6di     +++|*                (WDSB) = *WLSF* FUNCTION.
01209  M01S01095.6di     +++|*                (MB, BYTES 0-3) = T4 - T7, SAVED FOR *7FI*.
01210  M01S01096.6di     +++|*                (MB, BYTE 4) = ADDRESS OF LAST *FNC* CALL FOR *7FI*.
01211  M01S01097.6di     +++|*                (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*.
01212  M01S01098.6di     +++|*
01213  M01S01099.6di     +++|*         USES   T1, CM - CM+4.
01214  M01S01100.6di     +++|*
01215  M01S01101.6di     +++|*         MACROS MONITOR, MSERR.
01216  M01S01102.6di     +++|          SPACE  4,10
01217  M01S01103.6di     +++|*         *7BI* MOVES THE FOLLOWING CODE TO THE *6DI* PRESET AREA.
01218  M01S01104.6di     +++|
01219  M01S01105.6di     +++|
01220  M01S01106.6di     +++|          QUAL
01221  M01S01107.6di     +++| DBIA     BSS    0           ERROR PROCESSOR CALLS
01222  M01S01108.6di     +++|          LOC    PRS
01223  M01S01109.6di     +++|
01224  M01S01110.6di     +++|**        ERR2 - CALL STATUS PROCESSOR.
01225  M01S01111.6di     +++|
01226  M01S01112.6di     +++| ERR2     MSERR  7SI,*
01227  M01S01113.6di     +++|          UJN    WEP1        EXECUTE *7SI*
01228  M01S01114.6di     +++|
01229  M01S01115.6di     +++|**        WEP - WRITE ERROR PROCESSOR.
01230  M01S01116.6di     +++|
01231  M01S01117.6di     +++| WEP      STD    T2
01232  M01S01118.6di     +++|          MSERR  7WI,*
01233  M01S01119.6di     +++| WEP1     LJM    LEP1        EXECUTE OVERLAY
01234  M01S01120.6di     +++|
01235  M01S01121.6di     +++|*         THE FOLLOWING CHECK VERIFIES THAT LINKAGE BYTES ARE NOT
01236  M01S01122.6di     +++|*         DESTROYED DURING ERROR RECOVERY OF THE FIRST SECTOR OF A
01237  M01S01123.6di     +++|*         PP PROGRAM LOAD.  IT ALSO VERIFIES THAT THE USE OF LONG
01238  M01S01124.6di     +++|*         TERM ERROR PROCESSOR DATA CELLS DOES NOT DESTROY THE ERROR
01239  M01S01125.6di     +++|*         PROCESSOR CALL CODE.
01240  M01S01126.6di     +++|
01241  M01S01127.6di     +++|          ERRNG  DEFW+1-*    OVERFLOW
01242  M01S01128.6di     +++|          LOC    *O
01243  M01S01129.6di     +++| DBIAL    EQU    *-DBIA
01244  M01S01130.6di     +++|          QUAL   *
01245  M01S01131.6di     +++|          SPACE  4,10
01246  M01S01132.6di     +++| DBI      ENTRY              *7BI* ENTRY
01247  M01S01133.6di     +++|
01248  M01S01134.6di     +++| DBI1     LDM    DBIA-1,T1   MOVE CODE TO PRESET AREA
01249  M01S01135.6di     +++|          STM    PRS-1,T1
01250  M01S01136.6di     +++|          SOD    T1
01251  M01S01137.6di     +++|          NJN    DBI1        IF MORE TO MOVE
01252  M01S01138.6di     +++|          STM    DEST        INITIALIZE ERROR PROCESSING CONTROL WORD
01253  M01S01139.6di     +++|          STM    DEGS        INITIALIZE GENERAL STATUS
01254  M01S01140.6di     +++|          STM    DEDT        SET DRIVER TYPE
01255  M01S01141.6di     +++|          ERRNZ  /COMSDFS/D6DI  CODE REQUIRES *D6DI* = 0
01256  M01S01142.6di     +++|          ERRNZ  /COMSDFS/D6DJ  CODE REQUIRES *D6DJ* = 0
01257  M01S00006.252l678 +++|          LCN    0
01258  M01S00007.252l678 +++|          STM    DELF        PRESET LAST FUNCTION
01259  M01S01143.6di     +++|          SFA    EST,T5
01260  M01S01144.6di     +++|          ADK    EQDE
01261  M01S01145.6di     +++|          CRD    CM
01262  M01S01146.6di     +++|          LDD    CM+4        GET ALGORITHM INDEX FROM MST
01263  M01S01147.6di     +++|          SHN    3
01264  M01S01148.6di     +++|          ADK    DILL
01265  M01S01149.6di     +++|          CRD    CM
01266  M01S01150.6di     +++|          LDD    CM+4
01267  M01S01151.6di     +++|          LPN    77
01268  M01S01152.6di     +++|          STM    DEAI
01269  M01S01153.6di     +++|          LDM    FNC         PRESERVE ADDRESS OF LAST *FNC* CALL
01270  M01S01154.6di     +++|          STD    CM
01271  M01S01155.6di     +++|          LDD    MA          SAVE (T4 - CM) IN CASE *7FI* IS CALLED
01272  M01S01156.6di     +++|          CWD    T4
01273  M01S01157.6di     +++|          LDN    0
01274  M01S01158.6di     +++|          STD    CM+1
01275  M01S01159.6di     +++|          MONITOR LDAM       SAVE PHYSICAL DISK ADDRESS
01276  M01S01160.6di     +++|          LDC    RDS2        SET READ/WRITE FLAG
01277  M01S01161.6di     +++|          SBM    LDA
01278  M01S01162.6di     +++|          SHN    -21
01279  M01S01163.6di     +++|          ERRNZ  WRIP-1      CODE DEPENDS ON VALUE OF *WRIP*
01280  M01S01164.6di     +++|          ERRNZ  REDP        CODE DEPENDS ON VALUE OF *REDP*
01281  M01S01165.6di     +++|          STM    DERW
01282  M01S01166.6di     +++|          LDI    T2
Line S01167 Modification History
M01 (Added by) 6di
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S01167.253l688 ---|          LPN    20
01284  M01S00003.253l688 +++|          LPC    100
01285  M01S01168.6di     +++|          NJN    DBI2        IF NOT FIRST RETRY ATTEMPT
01286  M01S01169.6di     +++|          STM    DERC        INITIALIZE RETRY COUNT
01287  M01S01170.6di     +++|          STM    DEWR        INITIALIZE *DATA WRITTEN/READ* FLAG
01288  M01S01171.6di     +++|          STM    DENR        INITIALIZE *NON-RECOVERABLE ERROR* FLAG
Line S01172 Modification History
M01 (Added by) 6di
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01172.253l688 ---|          LDN    20
01290  M01S00004.253l688 +++|          LDD    HN
01291  M01S01173.6di     +++|          STI    T2
01292  M01S01174.6di     +++|          LDD    T4          SAVE INITIAL CHANNEL
01293  M01S01175.6di     +++|          STM    MSFW
01294  M01S00002.ns2364  +++|          LDI    D1
01295  M01S00003.ns2364  +++|          LMC    7777&LNRE
01296  M01S00004.ns2364  +++|          ZJN    DBI2        IF SUSPECT SET BY PREVIOUS PP
01297  M01S00005.ns2364  +++|          LDM    CHRV
01298  M01S00006.ns2364  +++|          SCN    EPNS
01299  M01S00007.ns2364  +++|          LMN    EPNS        PERMIT ACCESS TO SUSPECT DEVICE
01300  M01S00008.ns2364  +++|          STM    CHRV
01301  M01S01176.6di     +++| DBI2     LDC    LDA1        SET ERROR PROCESSOR EXIT ADDRESS
01302  M01S01177.6di     +++|          STM    DEXA
01303  M01S01178.6di     +++|          MSERR  7CI         EXECUTE *7CI*
01304  M01S01179.6di     +++|          SPACE  4,10
01305  M01S01180.6di     +++|          ERRNG  10000-*     *7BI* OVERFLOW
01306  M01S01181.6di     +++|          BSS    10000-*     (SPARES)
01307  M01S01182.6di     +++|          CON    DBI-1       (T0) = ENTRY ADDRESS - 1
01308  M01S01183.6di     +++|          CON    DBIAL       (T1) = LENGTH OF ERROR PROCESSOR CALL CODE
01309  M01S01184.6di     +++|          CON    RDCT        (T2) = RDCT
01310  M01S01185.6di     +++|          ERRNZ  LN-*        INCORRECT *7BI* OVERLAY LENGTH
01311  M01S01186.6di     +++|          QUAL   *
01312  M01S01187.6di     +++| 7CI      MSOVL  7637,T2,DEXA,(OBTAIN GENERAL AND DETAILED STATUS.)
01313  M01S01188.6di     +++|          SPACE  4,10
01314  M01S01189.6di     +++|***       OBTAIN GENERAL AND DETAILED STATUS.
01315  M01S01190.6di     +++|*         R. J. MAAS.        80/12/12.
01316  M01S01191.6di     +++|*         C. R. LUND.        81/07/30.
01317  M01S01192.6di     +++|          SPACE  4,10
01318  M01S01193.6di     +++|*                *7CI* IS CALLED BY *7BI*.  IF THE ERROR IS A
01319  M01S01194.6di     +++|*         CONTROLLER REPORTED ERROR, *7CI* WILL OBTAIN GENERAL AND
01320  M01S01195.6di     +++|*         DETAILED STATUS FROM THE CONTROLLER.  IF THE ERROR IS A
01321  M01S01196.6di     +++|*         *DSWM*, *LDAM* OR CHANNEL PARITY ERROR, STATUS WILL NOT BE
01322  M01S01197.6di     +++|*         TAKEN.  INSTEAD, *7EI* WILL BE CALLED IMMEDIATELY.  *7FI*
01323  M01S01198.6di     +++|*         WILL BE CALLED IF EITHER STATUS FUNCTION TIMES OUT OR AN
01324  M01S01199.6di     +++|*         INCOMPLETE DATA TRANSFER OCCURS ON EITHER STATUS INPUT.
01325  M01S01200.6di     +++| 7DI      SPACE  4,10
01326  M01S01201.6di     +++|*         REDEFINE CHANNEL INSTRUCTIONS TO PRODUCE LINKED LIST.
01327  M01S01202.6di     +++|
01328  M01S01203.6di     +++| FWDL$    EQU    1           SELECT FORWARD LINKED CHANNEL INSTRUCTIONS
01329  M01S01204.6di     +++|          RICHL
01330  M01S01205.6di     +++| LEO      SPACE  4,10
01331  M01S01206.6di     +++|**        DCI - OBTAIN GENERAL AND DETAILED STATUS.
01332  M01S01207.6di     +++|*
01333  M01S01208.6di     +++|*         ENTRY  (T1) = DETAILED STATUS SIZE.
01334  M01S01209.6di     +++|*                (T2) = FIRST CHANNEL INSTRUCTION ADDRESS.
01335  M01S01210.6di     +++|*                (T4 - T7) = DRIVER PARAMETERS.
01336  M01S01211.6di     +++|*                (D1) = DRSW.
01337  M01S01212.6di     +++|*                (DRSW) = *LDAM*/*DSWM*/CHANNEL PARITY ERROR CODE
01338  M01S01213.6di     +++|*                         COMPLIMENT.
01339  M01S01214.6di     +++|*                (MB, BYTES 0-3) = T4 - T7, SAVED FOR *7FI*.
01340  M01S01215.6di     +++|*                (MB, BYTE 4) = ADDRESS OF LAST *FNC* CALL FOR *7FI*.
01341  M01S01216.6di     +++|*                (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*.
01342  M01S01217.6di     +++|*
01343  M01S01218.6di     +++|*         EXIT   TO *7EI* IF NOT A CONTROLLER REPORTED ERROR OR A
01344  M01S01219.6di     +++|*                CHANNEL PARITY ERROR OCCURS WHEN ATTEMPTING TO INPUT
01345  M01S01220.6di     +++|*                STATUS.
01346  M01S01221.6di     +++|*                TO *7FI* IF FUNCTION TIMEOUT OR INCOMPLETE DATA
01347  M01S01222.6di     +++|*                TRANSFER ON STATUS INPUT.
01348  M01S01223.6di     +++|*                TO *7DI* OTHERWISE.
01349  M01S01224.6di     +++|*                (T2) = *7EI* PROCESSING INDEX IF *7EI* IS CALLED.
01350  M01S01225.6di     +++|*                (T4 - T7) = UNCHANGED.
Line S01226 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01351  M02S01226.252l678 ---|*                (DEDT) = BML MESSAGE CONTROL WORD.
Line S01227 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01352  M02S01227.252l678 ---|*                         BITS AFFECTED BY THIS OVERLAY -
Line S01228 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01353  M02S01228.252l678 ---|*                         BIT 6 = 1 IF FUNCTION RETRIEVED FROM CHANNEL.
01354  M01S01229.6di     +++|*                (DEEC) = ERROR CODE (MEANINGFUL ONLY IF CALLING *7EI*
01355  M01S01230.6di     +++|*                         OR *7FI*).
01356  M01S01231.6di     +++|*                       = *CSTE* IF FUNCTION TIMEOUT OR INCOMPLETE DATA
01357  M01S01232.6di     +++|*                         TRANSFER.
01358  M01S01233.6di     +++|*                       = *CHPE* IF CHANNEL PARITY ERROR ON STATUS
01359  M01S01234.6di     +++|*                         INPUT OR CHANNEL PARITY ERROR ON INPUT IN
01360  M01S01235.6di     +++|*                         DRIVER.
01361  M01S01236.6di     +++|*                       = ERROR CODE REPORTED BY *DSWM* OR *LDAM*.
01362  M01S01237.6di     +++|*                (DEGS) = GENERAL STATUS.
01363  M01S01238.6di     +++|*                (DELF) = FUNCTION (COULD BE DATA) RETRIEVED FROM
01364  M01S01239.6di     +++|*                         CHANNEL.
01365  M01S01240.6di     +++|*                (DERC) = *CHPE* RETRY LIMIT - 1 IF CHANNEL PARITY
01366  M01S01241.6di     +++|*                         ERROR ON STATUS INPUT IN THIS OVERLAY,
01367  M01S01242.6di     +++|*                         OTHERWISE UNCHANGED.
01368  M01S01243.6di     +++|*                (MB, BYTES 0-3) = UNCHANGED.
01369  M01S01244.6di     +++|*                (MB, BYTE 4) = UNCHANGED.
01370  M01S01245.6di     +++|*                (MB+1) = UNCHANGED.
01371  M01S01246.6di     +++|*                (MB+2 - MB+5) = DETAILED STATUS IF CALLING *7DI*.
01372  M01S01247.6di     +++|*
01373  M01S01248.6di     +++|*         USES   CM, T1, T2.
01374  M01S01249.6di     +++|*
01375  M01S01250.6di     +++|*         CALLS  FNC.
01376  M01S01251.6di     +++|*
01377  M01S01252.6di     +++|*         MACROS MSERR.
01378  M01S01253.6di     +++|
01379  M01S01254.6di     +++|
01380  M01S01255.6di     +++| DCI      ENTRY              *7CI* ENTRY
01381  M01S01256.6di     +++|
01382  M01S01257.6di     +++|          LDC    DCI8        SET FUNCTION TIMEOUT ERROR ADDRESS
01383  M01S01258.6di     +++|          STM    ERRA
01384  M01S01259.6di     +++|
01385  M01S01260.6di     +++|*         INITIALIZE TO ZEROS THE AREA WHERE DETAILED STATUS WILL BE
01386  M01S01261.6di     +++|*         READ IN.
01387  M01S01262.6di     +++|
01388  M01S01263.6di     +++|          ERRNG  *-OFFW-DSLN DETAILED STATUS DESTROYS CODE
01389  M01S01264.6di     +++| DCI1     LDN    0
01390  M01S01265.6di     +++|          STM    OFFW-1,T1
01391  M01S01266.6di     +++|          SOD    T1
01392  M01S01267.6di     +++|          NJN    DCI1        IF MORE BYTES TO CLEAR
01393  M01S01268.6di     +++|
01394  M01S01269.6di     +++|*         MODIFY CHANNEL INSTRUCTIONS.
01395  M01S01270.6di     +++|
01396  M01S01271.6di     +++|*         LDN    0
01397  M01S01272.6di     +++| DCI2     RAD    T2
01398  M01S01273.6di     +++|          LDI    T2          SAVE LINK TO NEXT CHANNEL INSTRUCTION
01399  M01S01274.6di     +++|          LPN    37
01400  M01S01275.6di     +++|          STD    CM
01401  M01S01276.6di     +++|          LDD    T4          MODIFY A CHANNEL INSTRUCTION
01402  M01S01277.6di     +++|          SBD    CM
01403  M01S01278.6di     +++|          RAI    T2
01404  M01S01279.6di     +++|          LDD    CM
01405  M01S01280.6di     +++|          NJN    DCI2        IF MORE INSTRUCTIONS TO MODIFY
01406  M01S01281.6di     +++|
01407  M01S01282.6di     +++|*         IF THE ERROR WAS REPORTED BY THE CONTROLLER, PROCEED TO
01408  M01S01283.6di     +++|*         TAKE GENERAL AND DETAILED STATUS.  IN ALL OTHER CASES GO
01409  M01S01284.6di     +++|*         DIRECTLY TO *7EI*.
01410  M01S01285.6di     +++|
01411  M01S01286.6di     +++|          LDI    D1
01412  M01S01287.6di     +++|          SBK    7700
01413  M01S01288.6di     +++|          MJN    DCI5        IF CONTROLLER REPORTED ERROR
01414  M01S01289.6di     +++|          LMN    77
01415  M01S01290.6di     +++|          UJN    DCI4        EXECUTE *7EI*
01416  M01S01291.6di     +++|
01417  M01S01292.6di     +++|*         PROCESS A CHANNEL PARITY ERROR (800 SERIES MACHINES)
01418  M01S01293.6di     +++|*         THAT OCCURS ON INPUT OF GENERAL OR DETAILED STATUS
01419  M01S01294.6di     +++|*         IN *7CI*.  *CHRT* RETRIES WILL BE PERFORMED BEFORE
01420  M01S01295.6di     +++|*         THE ERROR IS CONSIDERED UNRECOVERED.
01421  M01S01296.6di     +++|
01422  M01S01297.6di     +++| DCI3     AOD    T1
01423  M01S01298.6di     +++|          SBN    CHRT
01424  M01S01299.6di     +++|          MJN    DCI6        IF NOT UNRECOVERED YET
01425  M01S01300.6di     +++|          LDK    CHRT-1      FORCE UNRECOVERED ERROR
01426  M01S01301.6di     +++|          STM    DERC
01427  M01S01302.6di     +++|          LDN    CHPE        SET CHANNEL PARITY ERROR FLAG
01428  M01S01303.6di     +++| DCI4     LJM    DCI9        CALL *7EI*
01429  M01S01304.6di     +++|
01430  M01S01305.6di     +++|*         RETRIEVE ANY FUNCTION OR DATA LEFT ON THE CHANNEL AND THEN
01431  M01S01306.6di     +++|*         TAKE BOTH GENERAL AND DETAILED STATUS.  IF A FUNCTION TIMES
01432  M01S01307.6di     +++|*         OUT OR IF ALL OF GENERAL OR DETAILED STATUS IS NOT RECEIVED,
01433  M01S01308.6di     +++|*         CALL *7FI* TO DETERMINE THE CAUSE OF THE PROBLEM.
01434  M01S01309.6di     +++|
01435  M01S01310.6di     +++| DCI5     IJM    DCI7,CH     IF NOT FUNCTION TIMEOUT
01436  M01S01311.6di     +++|          EJM    DCI6,CH     IF NO FUNCTION ON CHANNEL
01437  M01S01312.6di     +++|          IAN    CH+40       INPUT FUNCTION
01438  M01S01313.6di     +++|          STM    DELF
Line S01314 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01439  M02S01314.252l678 ---|          LDD    HN
Line S01315 Modification History
M01 (Added by) 6di
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01440  M02S01315.252l678 ---|          RAM    DEDT
01441  M01S01316.6di     +++| DCI6     DCN    CH+40
01442  M01S01317.6di     +++| DCI7     LDN    FCGS        GET GENERAL STATUS
01443  M01S01318.6di     +++|          RJM    FNC
01444  M01S01319.6di     +++|          LDN    1
01445  M01S01320.6di     +++|          IAM    DEGS,CH
01446  M01S01321.6di     +++|          SFM    DCI3,CH     IF CHANNEL PARITY ERROR (800 SERIES)
01447  M01S01322.6di     +++|          NJN    DCI8        IF INCOMPLETE DATA TRANSFER
01448  M01S01323.6di     +++|          STD    T1          RESET CHANNEL PARITY ERROR RETRY COUNT
01449  M01S01324.6di     +++|          LDM    DEGS
01450  M01S01325.6di     +++|          LMC    5017
01451  M01S01326.6di     +++|          ZJN    DCI8        IF CONTROL MODULE MEMORY ERROR
01452  M01S01327.6di     +++|          SHN    0-12
01453  M01S01328.6di     +++|          LPN    1
01454  M01S01329.6di     +++|          LMN    1
01455  M01S01330.6di     +++|          ERRNZ  EI0         CODE ASSUMES *EI0* = 0
01456  M01S01331.6di     +++|          ZJN    DCI11       IF OPPOSITE ACCESS RESERVED
01457  M01S01332.6di     +++|          LDN    FCDS        GET DETAILED STATUS
01458  M01S01333.6di     +++|          RJM    FNC
01459  M01S01334.6di     +++|          LDN    DSLN
01460  M01S01335.6di     +++|          IAM    OFFW,CH
01461  M01S01336.6di     +++|          ERRNG  *-OFFW-DSLN DATA READ IN DESTROYS CODE
01462  M01S01337.6di     +++|          SFM    DCI3,CH     IF CHANNEL PARITY ERROR (800 SERIES)
Line S01338 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01463  M02S01338.6di12   ---|          STD    T2
Line S01339 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01464  M02S01339.6di12   ---|          LDN    DSLN/5      MOVE DETAILED STATUS TO MESSAGE BUFFER
Line S01340 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01340.6di12   ---|          STD    T1
Line S01341 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01466  M02S01341.6di12   ---|          LDD    MA
Line S01342 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01342.6di12   ---|          ADN    2
Line S01343 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01343.6di12   ---|          CWM    OFFW,T1
Line S01344 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01469  M02S01344.6di12   ---|          ERRNZ  DSLN/5-4    ADJUST IF VALUE OF *DSLN* CHANGES
Line S01345 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01470  M02S01345.6di12   ---|          LDD    T2
01471  M01S01346.6di     +++|          NJN    DCI8        IF INCOMPLETE DATA TRANSFER
Line S01347 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01347.6di12   ---|          MSERR  7DI,*
01473  M01S00001.6di12   +++|          LDN    3R7DQ&3R7DI
01474  M01S00002.6di12   +++|          STM    DCIA
01475  M01S00003.6di12   +++|          MSERR  7DI,=
01476  M01S01348.6di     +++|          UJN    DCI12       EXECUTE *7DI*
01477  M01S01349.6di     +++|
01478  M01S01350.6di     +++| DCI8     LDD    HN
01479  M01S01351.6di     +++|          ERRNZ  3R7FI-3R7EI-100  CODE ASSUMES RELATIVE VALUES
01480  M01S01352.6di     +++|          RAM    DCIA
01481  M01S01353.6di     +++|          LDN    CSTE        SET CONTROLLER STOP ERROR CODE
01482  M01S01354.6di     +++| DCI9     STM    DEEC
01483  M01S01355.6di     +++|          LDN    EI3         SET *7EI* PROCESSOR INDEX
01484  M01S01356.6di     +++| DCI11    STD    T2
01485  M01S00004.6di12   +++| DCI12    LDN    DSLN/5
01486  M01S00005.6di12   +++|          STD    T1
01487  M01S00006.6di12   +++|          LDD    MA
01488  M01S00007.6di12   +++|          ADN    2
01489  M01S00008.6di12   +++|          CWM    OFFW,T1
01490  M01S00009.6di12   +++|          ERRNZ  DSLN/5-4    ADJUST IF VALUE OF *DSLN* CHANGES
01491  M01S01357.6di     +++|          MSERR  7EI,*
01492  M01S01358.6di     +++|          MSERR  7FI,=       (FUNCTION TIMEOUT/DATA TRANSFER ERROR)
01493  M01S01359.6di     +++| DCIA     EQU    *-1
Line S01360 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
Seq #  *Modification Id* Act 
----------------------------+
01494  M02S01360.6di12   ---| DCI12    LJM    LEP1        EXECUTE *7EI*/*7FI*
01495  M01S00010.6di12   +++|          LJM    LEP1        EXECUTE *7DI*/*7EI*/*7FI*
01496  M01S01361.6di     +++|          SPACE  4
01497  M01S01362.6di     +++|          HERE               TERMINATE LINKED CHANNEL INSTRUCTIONS
01498  M01S01363.6di     +++|          SPACE  4,10
01499  M01S01364.6di     +++|          ERRNG  10000-*     *7CI* OVERFLOW
01500  M01S01365.6di     +++|          BSS    10000-*     (SPARES)
01501  M01S01366.6di     +++|          CON    DCI-1       (T0) = ENTRY ADDRESS - 1
01502  M01S01367.6di     +++|          CON    DSLN        (T1) = DETAILED STATUS LENGTH
01503  M01S01368.6di     +++|          CON    CH01$       (T2) = FIRST CHANNEL INSTRUCTION ADDRESS
01504  M01S01369.6di     +++|          ERRNZ  LN-*        INCORRECT *7CI* OVERLAY LENGTH
01505  M01S01370.6di     +++|          QUAL   *
Line S01371 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
01506  M02S01371.ns2509  ---| 7DI      MSOVL  7536,T2,DEXA,(DETAILED STATUS PROCESSOR.)
01507  M01S00001.ns2509  +++| 7DI      MSOVL  7550,T2,DEXA,(DETAILED STATUS PROCESSOR.)
01508  M01S01372.6di     +++| 7DI      SPACE  4,10
01509  M01S01373.6di     +++|***       DETAILED STATUS PROCESSOR.
01510  M01S01374.6di     +++|*         R. M. DANISCH.     85/02/06.
01511  M01S01375.6di     +++| 7DI      SPACE  4,10
01512  M01S01376.6di     +++|*                *7DI* IS CALLED BY *7CI* TO DETERMINE THE ERROR TYPE
01513  M01S01377.6di     +++|*         BY ANALYZING DETAILED STATUS.
01514  M01S01378.6di     +++| 7DI      SPACE  4,10
01515  M01S01379.6di     +++|**        DDI - DETAILED STATUS PROCESSOR.
01516  M01S01380.6di     +++|*
01517  M01S01381.6di     +++|*         ENTRY  (T1) = DEST.
01518  M01S01382.6di     +++|*                (T2) = DEGS.
01519  M01S01383.6di     +++|*                (T4 - T7) = DRIVER PARAMETERS.
01520  M01S01384.6di     +++|*                (DEAI) = ALGORITHM INDEX.
01521  M01S01385.6di     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
01522  M01S01386.6di     +++|*                (DEGS) = GENERAL STATUS.
01523  M01S01387.6di     +++|*                (RDCT) = ERROR PROCESSING INTERFACE WORD.
01524  M01S01388.6di     +++|*                (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*.
01525  M01S01389.6di     +++|*                (MB+2 - MB+5) = DETAILED STATUS.
01526  M01S01390.6di     +++|*
01527  M01S01391.6di     +++|*         EXIT   TO *7EI*.
01528  M01S01392.6di     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
01529  M01S01393.6di     +++|*                         BITS AFFECTED BY THIS OVERLAY -
01530  M01S01394.6di     +++|*                         BIT 5 = 1 IF ISD DRIVE FAULT.
01531  M01S01395.6di     +++|*                         BIT 0 = 1 IF ERROR ON PREVIOUS SECTOR.
01532  M01S01396.6di     +++|*                (DEWR) = 1 IF DATA WRITTEN TO DISK.
Line S01397 Modification History
M01 (Added by) 6di
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01533  M02S01397.253l688 ---|*                (RDCT) = ERROR PROCESSOR INTERFACE WORD.
Line S01398 Modification History
M01 (Added by) 6di
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01534  M02S01398.253l688 ---|*                         BITS AFFECTED BY THIS OVERLAY -
01535  M01S01399.6di     +++|*                (MB+1) = UNCHANGED.
01536  M01S01400.6di     +++|*                (MB+2 - MB+5) = UNCHANGED.
01537  M01S01401.6di     +++|*
01538  M01S01402.6di     +++|*         USES   CM, T2.
01539  M01S01403.6di     +++|*
01540  M01S01404.6di     +++|*         MACROS MSERR.
01541  M01S01405.6di     +++|
01542  M01S01406.6di     +++|
01543  M01S01407.6di     +++| DDI      ENTRY              *7DI* ENTRY
01544  M01S01408.6di     +++|
01545  M01S01409.6di     +++|          LDI    T2
01546  M01S01410.6di     +++|          SHN    0-11
01547  M01S01411.6di     +++|          LMN    5
01548  M01S01412.6di     +++|          ZJN    DDI1        IF GENERAL STATUS = 5XXX
01549  M01S01413.6di     +++|          LDN    EI0         SET *7EI* PROCESSOR INDEX
01550  M01S01414.6di     +++|          LJM    DDI22       EXECUTE *7EI*
01551  M01S01415.6di     +++|
01552  M01S01416.6di     +++| DDI1     LDM    DEAI        IDENTIFY HARDWARE TYPE
01553  M01S01417.6di     +++|          SBN    AIIB
01554  M01S01418.6di     +++|          MJN    DDI3        IF 844/885 DEVICE
01555  M01S01419.6di     +++|          SBK    AIIE-AIIB
01556  M01S01420.6di     +++|          PJN    DDI2        IF NOT ISD DEVICE
Line S01421 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01557  M02S01421.6di13   ---|          LDN    PSNI        ENABLE ISD WRITE CHECK
Line S01422 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01558  M02S01422.6di13   ---|          STM    DDIA
01559  M01S01423.6di     +++|          LDN    12-10
01560  M01S01424.6di     +++|          RAM    DDIE
Line S01425 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01561  M02S01425.6di13   ---|          LDC    UJNI+DDI20-DDIH
Line S01426 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01562  M02S01426.6di13   ---|          ERRPL  DDI20-DDIH-40   RANGE ERROR
01563  M01S00001.6di13   +++|          LDC    UJNI+DDI18.1-DDIH
01564  M01S00002.6di13   +++|          ERRPL  DDI18.1-DDIH-40   RANGE ERROR
01565  M01S01427.6di     +++|          STM    DDIH
01566  M01S01428.6di     +++|          LDN    7-3
01567  M01S01429.6di     +++|          UJN    DDI6        CONTINUE
01568  M01S01430.6di     +++|
01569  M01S01431.6di     +++| DDI2     SBN    AIDX-AIIE
01570  M01S01432.6di     +++|          PJN    DDI7        IF FSC DEVICE
01571  M01S01433.6di     +++|          LJM    DDI20       REPORT STATUS ERROR FOR BUFFERED DEVICE
01572  M01S01434.6di     +++|
01573  M01S01435.6di     +++| DDI3     LDN    PSNI        ENABLE DATA WRITTEN CHECK
01574  M01S01436.6di     +++|          STM    DDIC
01575  M01S01437.6di     +++|          LDM    DEAI
Line S01438 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01576  M02S01438.ns2776  ---|          LMN    AIDQ
Line S01439 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01577  M02S01439.ns2776  ---|          ZJN    DDI4        IF 885 DEVICE
Line S01440 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01578  M02S01440.ns2776  ---|          LMN    AIDQ&AIDM
01579  M01S00041.ns2776  +++|          SBN    AIDQ
01580  M01S00042.ns2776  +++|          PJN    DDI4        IF *DR* OR *DQ* DEVICE
01581  M01S00043.ns2776  +++|          ADN    AIDQ-AIDM
01582  M01S01441.6di     +++|          NJN    DDI9        IF 844 DEVICE
Line S01442 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
01583  M02S01442.ns2509  ---| DDI4     STM    DDIB        ENABLE 885 INVALID STATUS CHECK
Line S01443 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
01584  M02S01443.ns2509  ---|          STM    DDID        ENABLE 885 NOT READY CHECK
Line S00002 Modification History
M01 (Added by) ns2509
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01585  M02S00002.ns2776  ---| DDI4     STM    DDID        ENABLE 885 NOT READY CHECK
01586  M01S00044.ns2776  +++| DDI4     LDN    PSNI
01587  M01S00045.ns2776  +++|          STM    DDID        ENABLE 885 NOT READY CHECK
01588  M01S01444.6di     +++| DDI6     UJN    DDI8        CONTINUE
01589  M01S01445.6di     +++|
01590  M01S01446.6di     +++| DDI7     LCN    10-0        MODIFY CODE FOR FSC DEVICE
01591  M01S01447.6di     +++|          RAM    DDIE
01592  M01S01448.6di     +++|          LDC    LMNI+1
01593  M01S01449.6di     +++|          STM    DDIG
01594  M01S01450.6di     +++|          LDN    21-14
01595  M01S01451.6di     +++|          RAM    DDIH+1
01596  M01S01452.6di     +++|          LDC    UJNI+DDI23-DDII
01597  M01S01453.6di     +++|          ERRPL  DDI23-DDII-40   RANGE ERROR
01598  M01S01454.6di     +++|          STM    DDII
01599  M01S01455.6di     +++|          LCN    12-7
01600  M01S01456.6di     +++| DDI8     RAM    DDIF
01601  M01S01457.6di     +++| DDI9     LDN    DSLN/5      READ DETAILED STATUS FROM MESSAGE BUFFER
01602  M01S01458.6di     +++|          STD    CM
01603  M01S01459.6di     +++|          LDD    MA
01604  M01S01460.6di     +++|          ADN    2
01605  M01S01461.6di     +++|          CRM    OFFW,CM
01606  M01S01462.6di     +++|          ERRNZ  DSLN/5-4    ADJUST CODE IF VALUE OF *DSLN* CHANGES
01607  M01S01463.6di     +++|          ERRNG  *-OFFW-DSLN CODE IS DESTROYED BY DETAILED STATUS
Line S01464 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01608  M02S01464.6di13   ---|
Line S01465 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01609  M02S01465.6di13   ---|*         CHECK FOR ISD MEDIA ERROR.
Line S01466 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01610  M02S01466.6di13   ---|
Line S01467 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01611  M02S01467.6di13   ---|          UJN    DDI12       CONTINUE FOR NON-ISD DEVICE
Line S01468 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01612  M02S01468.6di13   ---|*         PSN                (ISD)
Line S01469 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01613  M02S01469.6di13   ---| DDIA     EQU    *-1
Line S01470 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01614  M02S01470.6di13   ---|          LDM    OFFW+20     CHECK BOX ISOLATION STATUS
Line S01471 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
M03 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01615  M03S01471.6di13   ---|          SHN    21-4
Line S00011 Modification History
M01 (Added by) 6di12
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01616  M02S00011.6di13   ---|          SHN    21-5
Line S01472 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01617  M02S01472.6di13   ---|          PJN    DDI12       IF NOT DRIVE/MEDIA FAULT
Line S01473 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
M03 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01618  M03S01473.6di13   ---|          LDM    OFFW+6
Line S01474 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
M03 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01619  M03S01474.6di13   ---|          SHN    21-12
Line S01475 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di12
M03 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01620  M03S01475.6di13   ---|          PJN    DDI11       IF NOT MEDIA ERROR
Line S01476 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01621  M02S01476.6di13   ---|          LDM    OFFW+10
Line S01477 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01622  M02S01477.6di13   ---|          SHN    0-4
Line S01478 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01623  M02S01478.6di13   ---|          LMC    101
Line S01479 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01624  M02S01479.6di13   ---|          ZJN    DDI10       IF MEDIA ERROR IN HEADER
Line S01480 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di13
Seq #  *Modification Id* Act 
----------------------------+
01625  M02S01480.6di13   ---|          LMN    101&103
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/6di.txt ยท Last modified: by 127.0.0.1