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