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