3803 M2_MPL_Sep1973 M2 MPL Sep1973
User Manual: Pdf 3803-M2_MPL_Sep1973
Open the PDF directly: View PDF .
Page Count: 252
Download | |
Open PDF In Browser | View PDF |
- ~ \ / ROSl 3803-2 MICROCODE LISTING LOC OBJECT CODE 000000 ADDRl ADDR2 PN 1846377 STMT SOURCE STATEMENT START 2 EC 734110 PAGE F01MAY72 9/04/73 00000030 6 *********************************************************************** 00000070 7 * * 00000080 8 * 3803-2 MICROPROGRAM LISTING ROSl (ALU1) * 00000090 9 * * 00000100 10 * ROS2 AND DATAFLOW CONTROL * 00000110 11 * * 00000120 12 * PIN 1846377 SYSTEM EC 734110 * 00000130 13 * CARD ASSEMBLY 88236252 MODULE EC 734087 * 00000140 14 * * 00000150 15 * © COPYRIGHT INTERNATIONAL BUSINESS MACHINES CORP. 1973l 00000160 16 * • 00000170 17 *********************************************************************** 00000180 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 *********************************************************************** 00000230 *************************** BRANCH CONDITIONS ************************* 00000240 *********************************************************************** 00000250 * * * * * * * * * * * DBUS NALCO ALUR MIFTR * * * * * * BOPE * - ACTIVE ANYTIME THE RESULT OF AN ALU OP EQUALS * ALL ZERO. * - NO ALU CARRY OUT IS ACTIVE AFTER ADD OPS RESULTING * IN NO CARRY OUT. * - ALU ERROR IS ACTIVE WHEN ALU2 HAS HAD ANY ERROR * CONDITION DESCRIBED IN SENSE BYTE 12. WHEN THE * ERROR OCCURS, ALU2 WILL BE TRAPPED AT LOC O,STAT 0 * WILL BE SET,AND THIS BRANCH WILL BE MADE ACTIVE. * - MULTIPLE INTERFACE FEATURE WILL BE ACTIVE IF THE * MIS OR SEVEN TRK FEATURES ARE INSTALLED. THIS BRANCH* DIFFERS FROM OTHER BOC'S SINCE HARDWARE WILL ALWAYS * FORCE PAGE 4 INTO THE HI-ORDER IC LO ORDER IC * WI~L BE REPLACED FROM THE BOC MICROWORD AS IS DONE * NORMALLY. * - BUS OUT PARITY ERROR WILL BE ACTIVE ANYTIME THE * CHANNEL BUS OUT REG CONTAINS BAD PARITY. * 00000260 00000270 00000280 00000290 00000300 00000310 00000320 00000330 00000340 00000350 00000360 00000370 00000380 00000390 00000400 00000410 00000420 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 • • * * •• * • • • • * * • • • • * •• • • • • • • • • • • • * • • • •• • • • * • • * * • *• * * •• 94 • 95 • EC 734110 PAGE SOURCE STATEMENT F01MAY72 NCUEA - NOT CONTROL UNIT END ON A INTERFACE WILL BE ACTIVE * WHEN HARDWARE IS NOT HOLDING A CUE FOR INTERFACE • A. • SELECT OUT WILL BE ACTIVE ANYTIME THE SELECT OUT • SELO CHANNEL TAG IS ACTIVE. * DFLER - DATA FLOW ERROR WILL BE ACTIVE WHEN DATA FLOW CIRCUI. HAVE FOUND AN ERROR CONDITION(E.G.ENVELOPE CHECK). • CLOCKB - ALTERNATES WHEN WRITE LOGIC IS WRITING A SUBGROUP IN GCR OR EVERY OTHER DATA BYTE IN PE OR NRZI * ADROUT - ACTIVE ANYTIME ADDRESS OUT FROM THE CHANNEL IS UP • AND THE INTERFACE IS ENABLED. • CMDOUT - ACTIVE ANYTIME COMMAND OUT FROM THE CHANNEL IS UP. * AND THE INTERFACE IS ENABLED. * STATA - ACTIVE WHEN ALU1'S BIT 4 IN THE STAT REGISTER • (NOT LSR) IS ON. • STATB - ACTIVE WHEN ALU2'S BIT 5 IN THE STAT REGISTER • (NOT LSR) IS ON. * SELRST - SELECTIVE RESET IS ACTIVE WHEN THE CHANNEL ISSUES • A SELECTIVE RESET(OP-IN UP,OP-OUT DOWN, SUPPRESS • OUT UP). IN ADDITION, IF ALU1 FORCES A HARD ERROR * (XFR TO HDWERR), HARDWARE WILL FORCE ALU1 IC TO * o AND ENABLE THIS BOC(360 ONLY) * SVCOUT - ACTIVE ANYTIME SERVICE OUT FROM THE CHANNEL IS UP * AND THE INTERFACE IS ENABLED. • - SWITCHED TO CHANNEL B(MIS ONLY) IS ACTIVE ONLY * SCB WHEN THE CONTROL UNIT INTERFACE IS SWITCHED TO • CHANNEL B. • PWRRST - POWER ON RESET IS ACTIVE ON INITIAL POWER UP AND * WHEN A RESET IS INITIATED VIA THE CEPANEL • MACHINE RESET PUSHBUTTON * * DREGO - ACTIVE IF D BUS BIT 0 IS PRESENT DREG1 - ACTIVE IF D BUS BIT 1 IS PRESENT • ACTIVE IF D BUS BIT 2 IS PRESENT • DREG2 • DREG3 - ACTIVE IF D BUS BIT 3 • DREG4 - ACTIVE IF D BUS BIT 4 * DREGS - ACTIVE IF D BUS BIT 5 • DREG6 - ACTIVE IF D BUS BIT 6 • DREG7 - ACTIVE IF D BUS BIT 7 OPRIN - ACTIVE WHEN OP-IN TO CHANNEL IS UP NOT TO BE * CONFUSED WITH CTI BIT 7(MICRO-PGM OP-IN) * - ACTIVE WHEN SUPPRESS OUT FROM CHANNEL IS UP • SUPO • STATC - ACTIVE WHEN ALU2'S BIT 6 IN STAT REG IS SET • STATD - ACTIVE WHEN ALU2'S BIT 7 IN STAT REG IS SET NGENR - ACTIVE WHEN A GENERAL RESET FOR EITHER INTERFACE * IS NOT PRESENT * - ACTIVE WHEN CHANNEL HAS INITIATED AN INITIAL • ISEL SELECTION SEQUENCE OR WHEN A POLL IS RECEIVED • IN RESPONSE TO REQUEST IN • NCUEB - NOT CONTROL UNIT END ON B INTERFACE WILL BE ACTIVE * WHEN HARDWARE IS NOT HOLDING A CUE FOR INTF B. * OVERRUN- WILL BE ACTIVE ON READ AND WRITE OP WHEN DATA • FLOW HAS DETECTED AN OVERRUN CONDITION • ALLONES- DATA FLOW IS WRITING ENDING ONES IN GCR ORPE * OR HAS WRITTEN LAST DATA BYTE IN NRZI 2 9/04/73 00000430 00000440 00000450 00000460 00000470 00000480 00000490 00000500 00000510 00000520 00000530 00000540 00000550 00000560 00000570 00000580 00000590 00000600 00000610 00000620 00000630 00000640 00000650 00000660 00000670 00000680 00000690 00000700 00000710 00000720 00000730 00000740 00000750 00000760 00000770 00000780 00000790 00000800 00000810 00000820 00000830 00000840 00000850 00000860 00000870 00000880 00000890 00000900 00000910 00000920 00000930 00000940 00000950 00000960 ROSl LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846377 EC 734110 PAGE 3 STMT SOURCE STATEMENT F01MAY72 9/04/73 96 ********************************************** •• *********************** 00000970 98 **************************************************.******************** 00000990 99 *************************** TRANSFER DECODES ************************** 00001000 100 *********************************************************************** 00001010 101 * * 00001020 102 * RSTCOMTD- RESET COMMITTED WILL RESET THE DEVICE COMMITTED * 00001030 103 * LATCH IN THE DEVICE SWITCH * 00001040 104 * LSR - SELECT LSR'S DEPENDING ON XFRH OR XFR * 00001050 105 * HDWERR - HARDWARE ERROR WILL FORCE A CATASTROPHIC * 00001060 106 * CLEAR - CLEAR WILL RESET ALL DATA FLOW SENSE DATA AND * 00001070 107 * CATASTROPHIC ERROR IN BOTH ALU'S * 00001080 108 * TUADR - TAPE UNIT ADDRESS WILL TRANSFER THE SPECIFIED * 00001090 109 * LSR TO THE TU ADDRESS REG * 00001100 110 * AR - THE AR TRANSFER WILL MOVE THE SPECIFIED LSR TO * 00001110 111 * THE ALU A REG INPUT. THE A REG IS RESET AT THE * 00001120 112 * END OF ALL LOGICAL AND ADD OPS. * 00001130 113 * CBI - CBI WILL XFER THE SPECIFIED LSR TO THE CHANNEL * 00001140 114 * BUS IN REG * 00001150 115 * CTI - CTI WILL XFER THE SPECIFIED LSR TO THE CHANNEL * 00001160 116 * TAGS IN REG. CTI REG CONTINS TAGS IE SERV IN, * 00001170 117 * STATUS IN, ETC. * 00001180 118 * IC - IC WILL XFER THE SPECIFIED LSR TO THE LO-ORDER * 00001190 119 * 8 BITS OF THE INSTRUCTION COUNTER. * 00001200 120 * INHP - INHIBIT PARITY WILL BLOCK PARITY GENERATION ON * 00001210 121 * THE B BUS. * 00001220 122 * HDWR - HARDWARE ERRORS WILL XFR THE ALUl CATASTROPHIC * 00001230 123 * ERROR REC TO THE SPECIFIED LSR * 00001240 124 * CBO - CHANNEL BUS OUT WILL XFR THE CHANNEL BUS OUT REG * 00001250 125 * TO THE SPECIFIED LSR * 00001260 126 * XINA - XINA WILL XFR ALU2'S CROSSOVER REG A TO THE * 00001270 127 * SPECIFIED LSR. * 00001280 128 * XINB - XINB WILL XFR ALU2'S CROSSOVER REG B TO THE * 00001290 129 * SPECIFIED LSR. * 00001300 130 * XOUTA - XOUTA WILL XFR THE SPECIFIED LSR TO ALU1'S * 00001310 131 * CROSSOVER REG A. * 00001320 132 * XOUTB - XOUTB WILL XFR THE SPECIFIED LSR TO ALU1'S * 00001330 133 * CROSSOVER REG B. * 00001340 134 * STAT - STAT WILL XFR THE SPECIFIED LSR TO ALU1'S * 00001350 135 * STAT REGISTER. * 00001360 136 * MIST - MIST WILL XFR THE SPECIFIED LSR TO THE * 00001370 137 * MLTIIPLE INTERFACE SWITCH TAGS REG. THE MIST * 00001380 138 * REG CONTAINS THE REQ-IN TAGS FOR BOTH INTERFACES. * 00001390 139 * PING - PING IS PECULIAR TO MIS AND IS USED TO RESET THE * 00001400 140 * INTERFACE PING-PONG HOLD LATCH IN HARDWARE. * 00001410 141 * TIP - TIP WILL NOTIFY HARDWARE TO GATE THE ALUl XOUTA * 00001420 142 * REG TO THE DEAD TRACK REG. * 00001430 143 * CUREA - CONTROL UNIT END RESET ON A WILL RESET THE CONTROL * 00001440 144 * UNIT END OR GENERAL RESET LATCH ON A INTERFACE * 00001450 145 * CUREB - CONTROL UNIT END RESET ON B WILL RESET THE CONTROL * 00001460 146 * UNIT END OR GENERAL RESET LATCH ON B INTERFACE * 00001470 147 * EXT - EXTERNAL XFR'S ALU2'S CATASTROPHIC ERROR REG INTO * 00001480 148 * THE SPECIFIED LSR. * 00001490 149 * * 00001500 ROSl LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ( ) ADDRl ADDR2 STMT 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 EC 734110 SOURCE STATEMENT PAGE F01MAY72 *********************************************************************** *********************************************************************** ******************** LOCAL STORE REGISTER(LSR) ************************ ******************** LAYOUT ************************ *********************************************************************** ************** LSRO ************************** LSR16 ****************** *********************************************************************** * DESC: CONTAINS CURRENT COMMAND * RELATIVE TO SIO/TIO * X'3F' FOR IDLESCAN ~ * * * * SYMBOLIC=CURCOMM * * BIT 0* * THRU*** COMMAND CODE * BIT 7* * * * * * * * * DESC: USED AS LINK REGISTER FOR SUBROUTINE RETURNS USUALLY SERV OUT RESPONSE RETURN FOR STATUS AND SERVICE SUBROUTINES SYMBOLIC=LINKl * * BIT 0* * THRU*** LO-IC LINK ADDRESS * BIT 7* * * * * * * * * * * * * * *********************************************************************** ************** LSR1 ************************** LSR17 ****************** *********************************************************************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * DESC: USED TO CONTAIN AN IMAGE * OF THE HARDWARE CHANNEL * TAG REG. THE ALU MODIFIES * THIS LSR AND XFR'S IT * TO THE HARDWARE REG TO * CHANGE CHANNEL INBOUND TAG* STATES. * * SYMBOLIC=CTIMAGE * * BITO=HOLDA * THE CHAINING/HOLD INTFCE A * BIT IS USED TO PREVENT * METER AND INTERFACE DISABL* BIT1=HOLDB * SAME FUNCTION AS BIT 0 EX- * CEPT FOR B INTERFACE * BIT2=HOLDINT * IF ACTIVE, HARDWARE WILL * HOLD THE CURRENT INTERFACE* SWITCH POSITION AND WILL * ENABLE SHORT BUSY TO THE * OPPOSITE INTERFACE. * BIT3=CUBUSY * NOTIFIES HARDWARE TO MAIN- * TAIN THE INTERFACE SWITCH * CONNECTION AND PRESENT A * SHORT BUSY SEQUENCE IF * SELECTED BY CHANNEL. ALU1 * IS NOT SUBJECT TO INIT SEL* TRAP WHILE THIS BIT IS * ACTIVE. * ( DESC: USED AS A LINK REGISTER FOR SUBROUTINE RETURNS USUALLY CMD OUT RESPONSE FOR STATUS AND SERVICE SUBROUTINES SYMBOLIC=LINK2 * * * * * * * * * * * * * BIT 0* THRU*** LO-IC LINK ADDRESS BIT 7* * * * * * * * * * * * * * * * * () * * * 4 9/04/73 00001510 00001520 00001530 00001540 00001550 00001560 00001570 00001580 00001590 00001600 00001610 00001620 00001630 00001640 00001650 00001660 00001670 00001680 00001690 00001700 00001710 00001720 00001730 00001740 00001750 00001760 00001770 00001780 00001790 00001800 00001810 00001820 00001830 00001840 00001850 00001860 00001870 00001880 00001890 00001900 00001910 00001920 00001930 00001940 00001950 00001960 00001970 00001980 00001990 00002000 00002010 00002020 00002030 00002040 / ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 PAGE EC 734110 SOURCE STATEMENT F01MAY72 * BIT4=SVCIN * * * USED TO RAISE OR DROP SERV-* * * IN TO THE CHANNEL * * * BITS5=STSIN * * * USED TO RAISE OR DROP * * * STATUS-IN TO THE CHANNEL. * * * BIT6=ADDIN * * * USED TO RAISE OR DROP * * * ADDRESS-IN TO THE CAHNNEL.* * * BIT7=OPIN * * * USED TO RAISE OR DROP OP-IN* * * TO THE CHANNEL. THE ACTUAL* * * OP-IN LINE IS INTERLOCKED * * * WITH THE SELECT SIGNAL SO * * * THAT OP-IN CAN ONLY BE * * * RAISED IF THE CONTROLLER * * * IS SELECTED. * * * * * *********************************************************************** ************** LSR2 ************************** LSR18 ****************** *********************************************************************** * DESC: USED TO CONTAIN AN IMAGE * DESC: USED AS A LINK REGISTER * * OF THE HARDWARE ALU1'A' * FOR SUBROUTINE RETURNS * * CROSSOVER REG. THE CROSS- * USUALLY A HALT I/O DURING * * OVER REG IS USED BY HARD- * STATUS AND SERVICE * * WARE FOR DATA FLOW CONTROL* SUBROUTINES. * * * * * SYMBOLIC=XOUTA * SYMBOLIC=LINK3 * * * * * BITO=CONTROL * BIT 0* * * INDICATES CONTROL COMMAND * THRU*** LO-IC LINK ADDRESS * * TO DATA FLOW * BIT 7* * * BIT1=FOUR BITS OF * * * T MODE 1 SET * * BIT=FROM CHANNEL * * BIT5=WRITE * * * BIT6=MODE6250 * * * INDICATES 6250BPI TO ROS2 * * * BIT7=NRZMODE * * * INDICATES NRZI WAS LAST * * * MODE SET TO ROS2 * * * * * *********************************************************************** ************** LSR3 ****************.*********** LSR19 **************** *************************~********************************************* * * * * * * * * DESC: CONTAINS CURRENT DEVICE ADDRESS RELATIVE TO THE LAST COMMAND RECEIVED. SYMBOLIC=CURADDR BIT 0* THRU*** CONTROLLER-DEVICE BIT 7* ADDRESS * * * * * * * * DESC: USED AS A LINK REGISTER FOR DIAGNOSTIC AND SENSE SUBROUTINE RETURNS. SYMBOLIC=LINK4 BIT 0* THRU*** LO-IC LINK ADDRESS BIT 7* * * * * * * * * ***~******************************************************************* 5 9/04/73 00002050 00002060 00002070 00002080 00002090 00002100 00002110 00002120 00002130 00002140 00002150 00002160 00002170 00002180 00002190 00002200 00002210 00002220 00002230 00002240 00002250 00002260 00002270 00002280 00002290 00002300 00002310 00002320 00002330 00002340 00002350 00002360 00002370 00002380 00002390 00002400 00002410 00002420 00002430 00002440 00002450 00002460 00002470 00002480 00002490 00002500 00002510 00002520 00002530 00002540 00002550 00002560 00002570 00002580 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE o ADDR1 ADDR2 STMT 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 EC 734110 PAGE 6 SOURCE STATEMENT F01MAY72 9/04/73 ************** LSR4 ****************************** LSR20 ************** 00002590 *********************************************************************** 00002600 * DESC: SCRATCH REGISTER USED BY * DESC: USED TO CONTAIN AN IMAGE * 00002610 * VARIOUS ROUTINES. * OF THE HARDWARE ALU1 'B' * 00002620 * * CROSSOVER REG. THE 'B' * 00002630 * * CROSSOVER IS USED TO KICKOFF* 00002640 * * ALU2 AND CONTAINS THE INDEX * 00002650 * * VALUE FOR SELECTING ALU2 * 00002660 * * ROUTINES. * 00002670 * * * 00002680 * SYMBOLIC=WORK1 * SYMBOLIC=XOUTBIM * 00002690 * * * 00002700 * BIT 0* * BIT 0* * 00002710 * THRU*** SCRATCH DATA * THRU*** ALU2 ROUTINE INDEX * 00002720 * BIT 7* * BIT 7* * 00002730 * * * 00002740 *********************************************************************** 00002750 ************** LSR5 ****************************** LSR21 ************** 00002760 *********************************************************************** 00002770 * DESC: USED HOLD ANY STATUS THAT * DESC: HOLDS ALU1 CASTASTROPHIC * 00002780 * IS PENDING TO BE PRESENTED* ERROR DATA UNTIL A SENSE * 00002790 * TO CHANNEL * OP IS PERFORMED * 00002800 * * * 00002810 * SYMBOLIC=PNDSTS * SYMBOLIC=ALU1ERR * 00002820 * * * 00002830 * BIT O=NOT USED * BIT O=B BUS PARITY OR LSR ADDRESS * 00002840 * * ERROR * 00002850 * BIT 1=STATUS MODIFIER * BIT 1=SPARE * 00002860 * * * 00002870 * BIT 2=CUE * BIT 2=XFR-LOIC ERROR * 00002880 * CONTROL UNIT END * * 00002890 * BIT 3=BUSY * BIT 3=INST DECODE HI IC-BOC ERROR * 00002900 * * * 00002910 * BIT 4=CHANEND * BIT 4=MICROPROGRAM DETECTED ERROR * 00002920 * CHANNEL END * * 00002930 * BIT 5=DEVEND * BIT 5=0 BUSY PARITY ERROR * 00002940 * DEVICE END * * 00002950 * BIT 6=UNITCHK * BIT 6=SPARE * 00002960 * UNIT CHECK * * 00002970 * BIT 7=UNITEXC * BIT 7=BOC ERROR * 00002980 * UNITEXCEPTION * * 00002990 * * * 00003000 *********************************************************************** 00003010 ************** LSR6 ****************************** LSR22 ************** 00003020 *********************************************************************** 00003030 * * * 00003040 * DESC: CONTAINS DEVICE ADDRESS * DESC: HOLDS ALU2 CATASTROPHIC * 00003050 * FOR WHICH ALU1 IS HOLDING * ERROR DATA UNTIL A SENSE * 00003060 * PENDING STATUS. * OP IS PERFORMED. * 00003070 * * * 00003080 * SYMBOLIC=PNDADDR * SYMBOLIC=ALU2ERR * 00003090 * * * 00003100 * BIT 0* * BIT 0* * 00003110 * THRU***DEVICE ADDRESS * THRU***SAME AS ALU1ERR(LSR21) * 00003120 () ~. } ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 SOURCE STATEMENT * BIT 7* * EC 734110 PAGE 7 F01MAY72 9/04/73 * BIT 7* EXCEPT DATA IS FOR ALU2. * 00003130 * * 00003140 *********************************************************************** 00003150 ************** LSR7 ****************************** LSR23 ************** 00003160 *********************************************************************** 00003170 * DESC: CONTAINS ALU1'S SENSE * DESC: SCRATCH REGISTER USED BY * 00003180 * DATA FOR SENSE BYTE 0 * VARIOUS ROUTINES * 00003190 * * * 00003200 * SYMBOLIC=SNSSTS2 * SYMBOLIC=WORK2 * 00003210 * * * 00003220 * BIT O=CMDREJ * BIT 0* * 00003230 * COMMAND REJECT * THRU*** SCRATCH DATA * 00003240 * BIT 1=INTREQ * BIT 7* * 00003250 * INTERVENTION REQUIRED * * 00003260 * BIT 2=BUSOC * * 00003270 * BUS OUT CHECK * * 00003280 * BIT 3=EQUIPCK * * 00003290 * EQUIPMENT CHECK * * 00003300 * BIT 4=DATACK * * 00003310 * DATA CHECK * * 00003320 * BIT 5=OVERUN * * 00003330 * OVERRUN * * 00003340 * BIT 6=WDCNTO * * 00003350 * WORK COUNT 0 * * 00003360 * BIT 7=RDNOISE * * 00003370 * READ NOISE(PE OR RLC) * * 00003380 * * * 00003390 ****************************************************** ***************** 00003400 ************** LSR8 ****************************** LSR24 ************** 00003410 *********************************************************************** 00003420 * DESC: USED AS IMAGE LSR FOR * DESC: USED AS A LINK REGISTER * 00003430 * HARDWARE ALU1 STAT REG * FOR SUBROUTINE RETURN * 00003440 * * IN THE DIAGNOSTIC DMR * 00003450 * * ROUTINE. * 00003460 * * * 00003470 * SYMBOLIC=STATIMG * SYMBOLIC=LINKS * 00003480 * * * 00003490 * BIT O=STOP * BIT 0* * 00003500 * INDICATES CMD OUT RESPONSE* THRU*** LO-IC LINK ADDRESS * 00003510 * TO SERVICE IN. * BIT 7* * 00003520 * BIT 1=SENSE * * 00003530 * NOTIFIES DATA FLOW TO GATE* * 00003540 * OUT THEIR SENSE DATA * * 00003550 * BIT 2=NOT USED * * 00003560 * * * 00003570 * BIT 3=DIAGMODE * * 00003580 * INDICATES TO DATA FLOW * * 00003590 * THAT DIAGNOSTIC MODE IS * * 00003600 * IN EFFECT. * * 00003610 * BIT4 =STATA * * 00003620 * USED BY ALU1 AS A DIRECT * * 00003630 * BRANCH CONDITION * * 00003640 * BIT 5=STATB * * 00003650 * USED BY ALU2 AS A DIRECT * * 00003660 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE (j ADDR1 ADDR2 ~\ ) STMT 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 SOURCE STATEMENT * BRANCH CONDITION * BIT 6=USED BY ALU2 AS A DIRECT * BRANCH CONDITION * BIT 7=STATD * USED BY ALU2 AS A DIRECT * BRANCH CONDITION EC 734110 PAGE F01MAY72 * * * * * * * * * * * * *********************************************************************** ************** LSR9 ****************************** LSR25 ************** *********************************************************************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * DESC: USED TO HOLD FLAGS * DESC: USED AS A LINK REGISTER FOR PERTAINING TO THE CHANNEL * SUBROUTINE RETURN IN THE INTERFACE AND ETC. * DIAGNOSTIC DMR ROUTINE. * SYMBOLIC=FLAGS * SYMBOLIC=LINK6 * BIT O=CONCON * BIT 0* SET IF CONTINGENT CONN* THRU*** LO-IC LINK ADDRESS ECTION IS BEING MAINTAINED.* BIT 7* BIT l=CUEA * SET IF CONTROL UNIT END * CONDITION WAS FOUND FOR * INTERFACE A. * BIT 2=INTFB * SET IF INTERFACE B IS * SELECTING. * BIT 3=CUEB * SET IF CONTROL UNIT END * CONDITION WAS FOUND FOR * INTERFACE B. * BIT 4=RESETOK * SET IF A GENERAL RESET TO * ALL DEVICES HAS BEEN PER- * FORMED. PREVENTS RESETTING* ALL DEVICES TWICE WHEN A * GENERAL RESET IS ISSUED TO* AN MIS MACHINE oN A SINGLE* CPU. * BIT 5=STATPNDG * SET IF CONTROLLER IS * PRESENTING PENDING STATUS * WHEN PENDING STATUS IS * BEING HELD. CHANNEL MUST * ACCEPT PENDING STATUS * BEFORE CONTROLLER IS FREE.* FOR OTHER OPS. * BIT 6=STACK * SET IF CHANNEL RESPONDS TO* STATUS IN WITH CMD OUT. * DEPENDING ON THE STATUS * THIS FLAG MAY OR MAY NOT * BE SET. * BIT 7=CHAIN * SET IF CHANNEL RESPONDS * TO STATUS IN WITH SERV OUT* f\ ~ ) \ } () * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 8 9/04/73 00003670 00003680 00003690 00003700 00003710 00003720 00003730 00003740 00003750 00003760 00003770 00003780 00003790 00003800 00003810 00003820 00003830 00003840 00003850 00003860 00003870 00003880 00003890 00003900 00003910 00003920 00003930 00003940 00003950 00003960 00003970 00003980 00003990 00004000 00004010 00004020 00004030 00004040 00004050 00004060 00004070 00004080 00004090 00004100 00004110 00004120 00004130 00004140 00004150 00004160 00004170 00004180 00004190 00004200 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 PAGE * * F01MAY72 9 9/04/73 * 00004210 * 00004220 *********************************************************************** 00004230 ************** LSR10 ***************************** LSR26 ************** 00004240 *********************************************************************** 00004250 * DESC: UPPER FOUR BITS ARE USED * DESC: USED AS 7 TK MODE REG * 00004260 * AS FLAGS LOWER FOUR BITS * FOR A INTERFACE. * 00004270 * ARE IMAGE-FOR THE REQUEST * * 00004280 * IN TAGS REG IN HARDWARE * * 00004290 * (MIST) * * 00004300 * * * 00004310 * SYMBOLIC=FLAGS1 AND REQTAGS * SYMBOLIC=SEVMODA * 00004320 * * * 00004330 * BIT O=BNRZI * BIT O=FIVE * 00004340 * USED TO INDICATE A NRZI * * 00004350 * MODE SET(X'CB') WAS THE * BIT 1= BITS * 00004360 * LAST RECIEVED ON B INTF * * 00004370 * BIT 2= FROM * 00004380 * BIT l=ANRZI * * 00004390 * USED TO INDICATE A NRZI * BIT 3= MODE * 00004400 * MODE SET(X'CB' )S AS THE * * 00004410 * LAST RECIEVED ON A INTF * * 00004420 * BIT 2=CURFLAG * BIT 4= SET * 00004430 * INDICATES CONTROL UNIT IS * * 00004440 * RESERVED TO THE CURRENT * BIT 5=WRITE * 00004450 * INTERFACE. * * 00004460 * BIT 3=ALLOWDSE * BIT 6=DEN6250 * 00004470 * INDICATES DATA SECURITY * * 00004480 * ERASE CAN BE EXECUTED SINC* BIT 7=DEN800 * 00004490 * AN ERASE HAS JUST BEEN * * 00004500 * PERFORMED. * * 00004510 * BIT 4=SUPREQA * * 00004520 * IMAGE BIT FOR SUPPRESSIBLE* * 00004530 * REQUEST-IN FOR INTF A. * * 00004540 * BIT 5=IMAGE BIT FOR NON-SUPPRESS-* * 00004550 * SIBLE REQUEST-IN FOR A. * * 00004560 * BIT 6=SUPREQB * * 00004570 * IMAGE BIT FOR SUPPRESSIBLE* * 00004580 * REQUEST-IN FOR INTF B. * * 00004590 * BIT 7=REQINB * * 00004600 * IMAGE BIT FOR NON-SUPP* * 00004610 * RESSIBLE REQUEST-IN FOR B.* * 00004620 * * * 00004630 *********************************************************************** 00004640 ************** LSR11 ***************************** LSR27 ************** 00004650 *********************************************************************** 00004660 * DESC: USED AS THE ALU1 FRU REG * DESC: USED AS 7 TK MODE REG * 00004670 * AN HOLDS THE ALU FAILURE * FOR B INTERFACE * 00004680 * FLAGS. * * 00004690 * * * 00004700 * SYMBOLIC=FLAGS2 * SYMBOLIC=SEVMODB * 00004710 * * * 00004720 * BIT O=FORCEUC * BIT 0* * 00004730 * SET ON AN INITIAL ALU * THRU*** SAME AS SEVMODA( LSR26) .* 00004740 * * SOURCE STATEMENT AND SUPPRESS OUT IS UP EC 734110 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 EC 734110 SOURCE STATEMENT * FAILURE. WILL BE RESET * BIT 7* * ONCE THE UNIT CHECK HAS * * BEEN PRESENTED TO CHANNEL.* * BIT 1=ALUFAIL * * SET WHEN AN ALU FAILURE * * OCCUR. ONLY RESET ON SENSE* * OPS. * * BIT 2=A64 INTFA=6250 * * BIT3 =B64 INTFB=6250 PAGE F01MAY72 * * * * * * * * *********************************************************************** ************** LSR12 ***************************** LSR28 ************** *********************************************************************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * DESC: CONTAINS DIAGNOSTIC FLAGS * RECEIVED ON SET DIAGNOSE * COMMAND. * * SYMBOLIC=SETDIA1 * * BIT O=DIAWRT - READ CH BUFFER * SET DIAGNOSTIC MODE FOR * WRITE OR READ OP * BIT 1=IBGMSR * READ OP- DO IBG MEASURE * BIT 2=INHPOST OR RDACC * READ OP- DO READ ACCESS * MEASUREMENT * WRITE OP-INHIBIT PE POST- * AMBLE ON NEXT * WRITE OP. * BIT 3=GDT * DO GO-DOWN-TIMING USING * COUNT IN SETCNT1 AND * SET CNT2 REGS. * BIT 4=INHPRE OR RDSTOP * WRITE OP-INHIBIT PE PRE- * NEXT WRITAMBLE ON NEXT * WRITE OP * READ OP-DO READ STOP * MEASUREMENT * BIT 5=DMR OR LWROP * WRITE OP- DO WRITE IN LWR * MODE. * READ OP- DO DIAGNOSTIC * READ AND MEASURE* BIT 6=TUBOMSK * WRITE OP-MASK TUBO IN ALU2* WITH SETCNT1 BYTE* DURING NXT WRITE * BIT 7=CHGSTS * EXECUTE NEXT COMMAND UP TO* THE POINT OF RAISING MOVE * TO DEVICE. ALLOWS CHANG- * ING DEV STS WITHOUT MOVING* TAPE. * (. .J1 DESC: USED AS SCRATCH REG BY SEVEN TRK MODE ROUTINE SYMBOLIC=WORK4 BIT 0* THRU*** SCRATCH DATA BIT 7* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * (. )'\ 10 9/04/73 00004750 00004760 00004770 00004780 00004790 00004800 00004810 00004820 00004830 00004840 00004850 00004860 00004870 00004880 00004890 00004900 00004910 00004920 00004930 00004940 00004950 00004960 00004970 00004980 00004990 00005000 00005010 00005020 00005030 00005040 00005050 00005060 00005070 00005080 00005090 00005100 00005110 00005120 00005130 00005140 00005150 00005160 00005170 00005180 00005190 00005200 00005210 00005220 00005230 00005240 00005250 00005260 00005270 00005280 C) ~I ROSl LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846377 STMT 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 SOURCE STATEMENT EC 734110 PAGE 9/04/73 * 00005290 *********************************************************************** 00005300 ************** LSR13 ***************************** LSR29 ************** 00005310 *********************************************************************** 00005320 * DESC: CONTAINS DIAGNOSTIC FLAGS * DESC: CONTAINS ALUl FRU IDENTIFIER* 00005330 * RECEIVED ON SET DIAGNOSE * FOR ALU CATASTROPHIC ERROR * 00005340 * COMMAND * DURING IDLE * 00005350 * * * 00005360 * SYMBOLIC=SETDIA2 * SYMBOLIC=FRUREG * 00005370 * * * 00005380 * BIT O=BLKDC * BIT 4* * 00005390 * THIS FLAG WILL BE USED TO * THRU*** SEQUENCE INDICATOR * 00005400 * BLOCK A UNIT CHECK DUE TO * BIT 7* * 00005410 * DATA CHECK FROM HARDWARE. * * 00005420 * USEFUL TO CHAIN DIAG WRITE* * 00005430 * OP. * * 00005440 * BIT l=DEVBSY * * 00005450 * THIS FLAG WILL GIVE IMME- * * 00005460 * DIATE DEV END DURING CHAIN* 00005470 * ED REWIND/DSE OPS. * * 00005480 * BIT 2=BLKINTS * * 00005490 * THIS FLAG WILL BLOCK THE * * 00005500 * RAISING OF SUPPRESSIBLE * * 00005510 * REQUEST-IN. * * 00005520 * BIT 3=SETCUB * * 00005530 * WILL FORCE A SHORT BUSY * * 00005540 * SEQUENCE IN A CHAIN OF * * 00005550 * COMMANDS. * * 00005560 * BIT 4=SPARE * * 00005570 * BIT 5=SPARE * * 00005580 * BIT 6=TEST DISCONNECT IN * * 00005590 * BIT 7=LOOP FORMAT * * 00005600 *********************************************************************** 00005610 ************** LSR14 ***************************** LSR30 ************** 00005620 *********************************************************************** 00005630 * DESC: HOLDS HI ORDER COUNT FOR * DESC: FRUSAV * 00005640 * GO-DOWN-TIMING OR GO-UP * * 00005650 * COUNT IN TACHS FOR DMR OR * * 00005660 * MASK FOR TUBO * * 00005670 * SYMBOLIC=SETCNTl * * 00005680 * * * 00005690 * BIT 0* * * 00005700 * THRU*** GO OR GUP COUNT * * 00005710 * BIT 7* * * 00005720 * * * 00005730 *********************************************************************** 00005740 ************** LSR15 ***************************** LSR31 ************** 00005750 *********************************************************************** 00005760 * DESC:HOLD LO-ORDER COUNT FOR * DESC: FORMAT * 00005770 * GO DOWN-TIME OR GO-DOWN* * 00005780 * COUNT FOR DMR. * * 00005790 * * * 00005800 * SYMBOLIC=SETCNT2 * * 00005810 * * * 00005820 * F01MAY72 11 * PN 1846377 3803-2 MICROCODE LISTING ROSl LOC OBJECT CODE ADDRl ADDR2 000000 000001 000002 000003 000004 000005 000006 000007 000007 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000010 000011 000012 000013 000014 000015 000016 000017 000018 000019 00001A 00001B 00001C 000010 00001E 00001F 00001F 000005 000006 000011 000012 000024 000021 000060 000050 000022 000082 () r '\ \ ) STMT 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 SOURCE STATEMENT * BIT 0* * THRU* * BIT 7*** GOT COUNT * * * EC 734110 PAGE 9/04/73 00005830 00005840 00005850 00005860 00005870 *********************************************************************** 00005880 * BRANCH ON CONDIT10NS FOR ***BOC*** 00005890 #DBUS EQU X'OO' 0 BUS EQUAL ZERO 00005900 #NALCO EQU X'Ol' NOT ALU CARRY OUT 00005910 #ALUR EQU X'02' SET ON ANY ALU ERRORS 00005920 #MIFTR EQU X'03' MIS FEATURE 00005930 #BOPE EQU X'04' BUS OUT PARITY EVEN 00005940 #NCUEA EQU X'05' NOT CU END CHAN A 00005950 #SELO EQU X' 06' SELECTLOUT A OR B 00005960 #DFLER EQU X'07' DATA FLOW ERROR 00005970 #CLOCKB EQU X'07' CLOCK 00005980 #ADROUT EQU X'08' ADDRESS OUT A OR B 00005990 #CMDOUT EQU X'09' COMMAND OUT A OR B 00006000 #STATA EQU X'OA' STAT A ALU 1 00006010 #STATB EQU X'OB' STAT B ALU 2 00006020 #SELRST EQU X'OC' SELECTIVE RESET 00006030 #SVCOUT EQU X'OD' SERVICE OUT 00006040 #SCB EQU X'OE' SWITCHED TO. CHAN B (MIS) 00006050 #PWRRST EQU X'OF' POWER ON RESET 00006060 ***************************************************************** 00006070 #DREGO EQU X'10' 0 REG 0 00006080 #DREGl EQU X'll' 0 REG 1 00006090 #DREG2 EQU X'12' 0 REG 2 00006100 #DREG3 EQU X'13' DREG 3 00006110 #DREG4 EQU X'14' DREG 4 00006120 #DREG5 EQU X'15' 0 REG 5 00006130 #DREG6 EQU X'16' 0 REG 6 00006140 #DREG7 EQU X'17' 0 REG 7 00006150 #OPRIN EQU X' 18' OPERATIONAL IN 00006160 #SUPO EQU X'19' SUPPRESS OUT 00006170 #STATC EQU X'lA' ALU 2 STAT C 00006180 #STATD EQU X'lB' ALU 2 STATD 00006190 #NGENR EQU X'lC' NOT GENERAL RESET FOR CH A OR B 00006200 #ISEL EQU X'lD' INITIAL SELECTION 00006210 #NCUEB EQU X'lE' NOT CU END FOR CHAN B (MIS) 00006220 #OVERRUN EQU X'lF' DATA FLOW DETECTED OVERRUN 00006230 #ALLONES EQU X'lF' END OF DATA BEING WRITTEN 00006240 *******************EQUATE STATEMENTS *************** 00006250 * ALU 1 TRANSFER ADDRESSES 00006260 RSTCOMTD EQU X'05' RESET DEV COMMITTED LATCH 00006270 LSR EQU X'06' SELECT HI LSRS 00006280 HDWERR EQU X'll' FORCE ALU ERRORS 00006290 CLEAR EQU X'12' RESET SENSE DATA TO DATA. FLOW 00006300 TUADR EQU X'24' TAPE UNIT ADR SELECTION 00006310 AR EQU X'21' ALU INPUT REGISTER 00006320 CBI EQU X'60' CHANNEL BUS IN 00006330 CTI EQU X'50' CHANNEL TAGS IN 00006340 IC EQU X'22' INSTRUCTION COUNTER 00006350 INHP EQU X'82' INHIBIT B BUS PARITY 00006360 r \ \. ) * * * * * F01MAY72 12 C) * * * * * ( ROSl 3803-2 MICROCODE LISTING LOC OBJECT CODE 00008.4 DOODAD 000090 000088 000042 000041 000028 000048 000044 000014 000009 OOOOOA 000081 000000 000001 000002 000003 000004 000005 00.0006 000007 000008 000009 OOOOOA 000008 OOOOOC OOOOOD OOOOOE O.OOOOF 000010 000011 000012 000013 000014 000015 000016 000017 000018 000019 00001A 00001B aOO01C 00001D DOODlE 00001F 000000 000001 000002 000003 000004 000005 ADDRl ADDR2 PN 1846377 STMT 636 637 638 639 640 641 642 643 644 645 646 647 648 649 651 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 EC 734110 SOURCE STATEMENT F01MAY72 X'84' HDWR HARDWARE ERRORS ALU EQU X'AO' CHANNEL BUS OUT CBO EQU . EQU XINA X'90' CROSSOVER REGISTER INPUT A X'88' XINB EQU CROSSOVER REGISTER INPUT B X'42' XOUTA EQU CROSSOVER REGISTER OUTPUTA X'41' XOUTB EQU CROSSOVER REGISTER OUTPUT B X'28' STAT EQU GLITCHLESS CTRL REG X'48' MIST EQU MIS INTERFACE TAGS X'44' PING EQU HARDWARE ERROR RESET X'14' TIP EQU TRANSFER TRACK IN ERROR CUREA EQU X'09' RESET CU END IN CHANNEL A CUREB X'OA' EQU RESET CU END IN CHANNEL B X'81' EXT EQU MOVE ERRORS OF ALU2 TO ALUl D TO DECODE CU IDENT OR ALU ERRORS. * USE EXCLUSIVE OR OF STAT C ANDALUl **** **** ** REGISTER DEFINITIONS RO EQU X'OO' LSR 0 X' 01' Rl EQU LSR 1 X'02' R2 EQU LSR 2 X'03' R3 EQU LSR 3 R4 X'04' EQU LSR 4 X'05' R5 EQU LSR 5 X'06' R6 EQU LSR 6 X' 07' R7 LSR 7 EQU R8 X'08' EQU LSR 8 X'09' R9 EQU LSR 9 Rl0 X'OA' EQU LSR 10 X'OB' Rll EQU LSR 11 X'OC' R12 EQU LSR 12 R13 X'OD' EQU LSR 13 R14 X'OE' EQU LSR 14 X'OF' R15 EQU LSR 15 X'10' R16 EQU LSR 16 X'll' R17 EQU LSR 17 X'12' R18 EQU LSR 18 R19 X'13' EQU LSR 19 X'14' R20 EQU LSR 20 R21 X'15' EQU LSR 21 R22 X'16' EQU LSR 22 X'17' R23 EQU LSR 23 R24 X'18' EQU LSR 24 X'19' R25 EQU LSR 25 X'lA' R26 EQU LSR 26 R27 X'lB' EQU LSR 27 X'lC' R28 EQU LSR 28 X'lD' R29 EQU LSR 29 X'lE' R30 EQU LSR 30 X'lF' LSR 31 R31 EQU X' ~O' CURRENT COMMAND RELATIVE TO LAST SIO/TIO CURCOMM EQU X' 01' CHANNEL TAG IMAGE REGISTER CTIMAGE EQU X' 02' CROSSOVER REGISTER A OUTPUT IMAGE REG XOUTAIM EQU X'03' CURRENT DEVICE ADDRESS RELATIVE TO LAST COMMAND CURADDR EQU X'04' SCRATCH REGISTERl WORK 1 EQU X'05' PENDING STATUS REGISTER PNDSTS EQU PAGE 13 9/04/73 00006370 00006380 00006390 00006400 00006410 00006420 00006430 00006440 00006450 00006460 00006470 00006480 00006490 00006500 00006520 00006540 00006550 00006560 00006570 00006580 00006590 00006600 00006610 00006620 00006630 00006640 00006650 00006660 00006670 00006680 00006690 00006700 00006710 00006720 00006730 00006740 00006750 00006760 00006770 00006780 00006790 00006800 00006810 00006820 00006830 00006840 00006850 00006860 00006870 00006880 00006890 00006900 00006910 00006920 PN 1846377 3803-2 MICROCODE LISTING ROSl LOC OBJECT CODE 000006 000007 000008 000009 OOOOOA OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000010 000011 000012 000013 000014 000015 000016 000017 000018 000019 00001A 00001B 00001C 000010 DOODlE 00001F ADDRl ADDR2 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000000 000001 000002 000003 000004 000005 000006 000007 000008 () 0 'c _ STMT 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 EC 734110 PAGE SOURCE STATEMENT FO 1MAY 72 PNDADDR EQU X'06' PENDING STATUS DEVICE ADDRESS REG X'07' SENSE STATUS REG 2 SNSSTS2 EQU X'08' STAT REGISTER IMAGE REG STATIMG EQU X'09' FLAGS REGISTER FOR ALUl FLAGS EQU X'OA' FLAGS 1 EQU UPPER FOUR BITS ARE FLAGS X'OA' REQUEST IN TAGS REG FOR A AND B INTFCES REQTAGS EQU X'OB' THIRD FLAGS REG FLAGS 2 EQU X'OC' SETDIAl EQU SET DIAGNOSE REG 1 X'OD' SETDIA2 EQU SET DIAGNOSE REG 2 X'OE' SET COUNT REG 1 SETCNTl EQU X'OF' SET COUNT REG 2 SETCNT2 EQU X'10' LINK REGISTER 1 LINKl EQU X' 11' LINK REGISTER 2 EQU LINK2 X'12' LINK REGISTER 3 LINK3 EQU X' 13' LINK REGISTER 4 LINK4 EQU X'14' CROSSOVER REGISTER B OUTPUT IMAGE REG XOUTBIM EQU X'15' ALUl HARDWARE DETECTED ERRORS ALU1ERR EQU X'16' ALU2 HARDWARE DETECTED ERRORS ALU2ERR EQU X'17' WORK REGISTER 2 WORK 2 EQU X'18' WORK REGISTER 2 EQU LINK5 X'19' WORK REGISTER 2 EQU LINK6 X'lA' SEVEN TRACK MODE REG A SEVMODA EQU X'lB' SEVEN TRACK MODE REG B SEVMODB EQU X'lC' WORK REGISTER WORK4 EQU X'lD' ALUl FRU REG EQU FRUREG X'lE' FRU SAVE LSR FRUSAV EQU X'lF' USED FOR FORMAT CONTROL EQU FORMAT ****** THESE LSR EQUATES ARE USED BY LOGICAL MACROS ONLY************** ****** AND SHOULD NOT BE CODED **************************************** X' 00' LSR 0 EQU #RO LSR 1 EQU #Rl X'Ol ' X'02' LSR 2 EQU #R2 EQU X' 03' LSR 3 #R3 LSR 4 EQU X'04' #R4 x'05' LSR 5 EQU #R5 LSR 6 X'06' EQU #R6 X'07' LSR 7 EQU #R7 X'08' LSR 8 EQU #R8 X'09' LSR 9 EQU #R9 X'OA' LSR 10 EQU #Rl0 X'OB' LSR 11 EQU #Rll X'OC' LSR 12 EQU #R12 X'OD' LSR 13 EQU #R13 LSR 14 X'OE' EQU #R14 X'OF' LSR 15 #R15 EQU X'OO' LSR 16 EQU #R16 LSR 17 EQU #R17 X'Ol ' X'02' LSR 18 EQU #R18 X'03' LSR 19 EQU #R19 X'04' LSR 20 #R20 EQU LSR 21 X'05' EQU #R21 X'06' LSR 22 #R22 EQU LSR 23 X'07' EQU #R23 LSR 24 X'08' #R24 EQU C) (-\ lj (\.) 14 9/04/73 00006930 00006940 00006950 00006960 00006970 00006980 00006990 00007000 00007010 00007020 00007030 00007040 00007050 00007060 00007070 00007080 00007090 00007100 00007110 00007120 00007130 00007140 00007150 00007160 00007170 00007180 00007190 00007200 00007210 00007220 00007230 00007240 00007250 00007260 00007270 00007280 00007290 00007300 00007310 00007320 00007330 00007340 00007350 00007360 00007370 00007380 00007390 00007400 00007410 00007420 00007430 00007440 00007450 00007460 C) ,~ \ / ROSl 000004 000002 OOOOAC 000082 000081 000080 00008C 00009C 000092 000088 000084 000090 000040 000001 PN 1846377 3803-2 MICROCODE LISTING LQC OBJECT CODE 000009 OOOOOA OOOOOB OOOOOC OOOOOD OOOOOE OOOOOF 000000 000001 000002 000003 000004 000005 000006 000007 000008 000{)09 OOOOOA OOOOOA OOOOOB OOOOOC OOOOOD OOOOOE OOOOOF 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC OOOOOD ADDRl ADDR2 ' STMT 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 SOURCE STATEMENT X'09' #R25 EQU EQU X'OA' #R26 X'OB' #R27 EQU X'OC' #R28 EQU X'OD' #R29 EQU X'OE' #R30 EQU X'OF' #R31 EQU X'OO' #CURCOMM EQU #CTIMAGE EQU X'Ol' X' 02' #XOUTAIM EQU X'03' #CURADDR EQU X'04' EQU #WORKl X'05' #PNDSTS EQU #PNDADDR EQU X'06' X' 07' #SNSSTS2 EQU X'08' #STATIMG EQU X'09' # FLAGS EQU X'OA' # FLAGS 1 EQU #REQTAGS EQU X'OA' X'OB' #FLAGS2 EQU X'OC' #SETDIAl EQU X'OD' #SETDIA2 EQU #SETCNTl EQU X'OE' #SETCNT2 EQU X'OF' X'OO' #LINKl EQU X' 01' #LINK2 EQU #LINK3 X' 02' EQU X'03' #LINK4 EQU X'04' #XOUTBIM EQU #ALU1ERR EQU X'05' X'06' #ALU2ERR EQU X'07' #WORK2 EQU X'08' #LINK5 EQU X'09' #LINK6 EQU X'OA' #SEVMODA EQU X'OB' #SEVMODB EQU X'OC' #WORK4 EQU X'OD' #FRUREG EQU ************** XOUTA X'04' WRITE EQU X'02' MODE64 EQU X'AC' SAGCl EQU X'82' FORMTOl EQU X'81' FORMT10 EQU X'80' FORMTOO EQU X'8C' FORMTll EQU TM64 EQU X'9C' X'92' TMO EQU MARK 1 X'88' EQU X'84' MARK 2 EQU X'90' FORMTM EQU X'40' ALOWEND EQU X' 01' NRZMODE EQU EC 734110 FO 1MAY 72 LSR 25 LSR 26 LSR 27 LSR 28 LSR 29 LSR 30 LSR 31 CURRENT COMMAND RELATIVE TO LAST CHANNEL TAG IMAGE REGISTER CROSSOVER REGISTER A OUTPUT IMAGE REG CURRENT DEVICE ADDRESS RELATIVE TO LAST COMMAND SCRATCH REGISTERl PENDING STATUS REGISTER PENDING STATUS DEVICE ADDRESS REG SENSE STATUS REG 2 STAT REGISTER IMAGE REG FLAGS REGISTER FOR ALUl UPPER FOUR BITS ARE FLAGS REQUEST IN TAGS REG FOR A AND B INTFCES THIRD FLAGS REG SET DIAGNOSE REG 1 SET DIAGNOSE REG 2 SET COUNT REG 1 SET COUNT REG 2 LINK REGISTER 1 LINK REGISTER 2 LINK REGISTER 3 LINK REGISTER 4 CROSSOVER REGISTER B OUTPUT IMAGE REG ALUl HARDWARE DETECTED ERRORS ALU2 HARDWARE DETECTED ERRORS WORK REGISTER 2 WORK REGISTER 2 WORK REGISTER 2 SEVEN TRACK MODE REG A SEVEN TRACK MODE REG B WORK REGISTER ALUl FRU REG DATA FLOW MASK EQUATES *************************** BIT INDICATES WRITE COMMAND TO DF BIT INDICATES 6250 LAST MODE SET TO ALU2 CALL FOR TAPE MARK ALLOW EOD ME BIT INDICATES NRZI LAST MODE TO ALU2 PAGE 15 9/04/73 00007470 00007480 00007490 00007500 00007510 00007520 00007530 00007540 00007550 00007560 00007570 00007580 00007590 00007600 00007610 00007620 00007630 00007640 00007650 00007660 00007670 00007680 00007690 00007700 00007710 00007720 00007730 00007740 00007750 00007760 0000777.0 00007780 00007790 00007800 00007810 00007820 00007830 00007840 00007850 00007860 00007870 00007880 00007890 00007900 00007910 00007920 00007930 00007940 00007950 00007960 00007970 00007980 00007990 ROSl PN 1846377 3803-2 MICROCODE LISTING EC 734110 PAGE 16 000080 000040 000020 000010 000008 000004 000002 000001 STMT 800 801 802 803 804 805 806 807 808 SOURCE STATEMENT F01MAY72 ************** STAT REGISTER EQUATES ********************************** X'80' BIT INDICATES STOP DATA XFER TO CHANNEL STOP EQU X'40' BIT INDICATES TO DF A SENSE OP IS IN PROGRESS SENSE EQU X'20' INDICATES CONTROL CMD TO DATA FLOW CONTROL EQU X' 10' BIT INDICATES TO DF DIAG MODE IS IN EFFECT DIAGMODE EQU X'08' SET STAT A SETSTATA EQU X'04' SET STAT B SETSTATB EQU X' 02' SETSTATC EQU SET STAT C X' 01' SETSTATD EQU SET STAT D 9/04/73 00008010 00008020 00008030 00008040 00008050 00008060 00008070 00008080 00008090 000080 000040 000020 000010 000008 000004 000002 000001 810 811 812 813 814 815 816 817 818 **************CHANNEL TAG REGISTER EQUATES **************************** X'80' CHAINING/HOLD INTFCE A TO PREVENT METER DISABLE HOLDA EQU X'40' CHAINING/HOLD INTFCE B TO PREVENT METER DISABLE HOLDB EQU HOLDINT EQU X' 20' HOLD PRESENT INTERFACE AND BUSY OUT THE OTHER X'10.' SET CONTROL UNIT BUSY TO BOTH INTERFACES CUBUSY EQU SVCIN X'08' SET SERVICE IN TAG EQU X'04' SET STATUS IN TAG STSIN EQU ADDIN X'02' SET ADDRESS IN TAG EQU OPIN EQU X'Ol ' SET OP IN TAG 00008110 00008120 00008130 00008140 00008150 00008160 00008170 00008180 00008190 000080 000040 000020 000010 000008 000004 000002 000001 820 821 822 823 824 825 826 827 828 ************** CON CON EQU CUEA EQU INTFB EQU CUEB EQU RESETOK EQU STATPNDG EQU STACK EQU CHAIN EQU 00008210 00008220 00008230 00008240 00008250 00008260 00008270 00008280 00008290 LOC OBJECT CODE ADDRl ADDR2 FLAGS X'80' X'40' X' 20' X' 10' X'08' X'04' X' 02' X' 01' REGISTER EQUATES ********************************* CONTINGENT CONNECTION FLAG SET CONTROL UNIT END FLAG FOR INTF A SET INTF B SELECTING FLAG SET CONTROL UNIT END FLAG FOR INTF B SET UNTAGGED INTERRUPT FLAG SET STATUS PENDING FLAG SET STACK FLAG SET CHAIN FLAG 830 ************** STAT IMAGE REGISTER EQUATES **************************** 00008310 00008320 831 * THESE EQUATES ARE THE SAME AS THE STAT REGISTER EQUATES 000004 000008 000001 000002 000080 000040 000020 000010 833 834 835 836 837 838 839 840 841 ************** REQINA EQU SUPREQA EQU EQU REQINB SUPREQB EQU BNRZI EQU ANRZI EQU CURFLAG EQU ALLOWDSE EQU REQUEST IN TAG REGISTER EQUATES ************************ X'04' SET NON-SUPPRESSIBLE REQUEST IN - CHAN A X'08' SET NON-SUPPRESSEBLE REQUEST IN - CHAN A X'Ol ' SET NON-SUPPRESSIBLE REQUEST IN - CHAN B X' 02' SET NON-SUPPRESSIBLE REQUEST IN - CHAN B X'80' SET INTERFACE B NRZI FLAG X'40' SET INTERFACE A NRZI FLAG X'20' SET CU RESERVED FLAG X'10' SET ALLOW DATA SECURITY ERASE FLAG 00008340 00008350 00008360 00008370 00008380 00008390 00008400 00008410 00008420 000080 000040 000040 000001 000001 843 844 845 846 847 848 ************** NOISE EQU REJTU EQU NSUBSYS EQU CURSVD EQU NOTCOMP EQU SENSE X'80' X'40' X'40' X'Ol' X'Ol ' STATUS REGISTER 1 EQUATES ************************ SET SENSE DATA NOISE BIT SET SENSE DATA REJECT TAPE UNIT IDENTIFIER FOR 3803 CONTROL UNIT CONTROL UNIT RESERVED IN SENSE SET SENSE DATA NOT COMPATIBLE BIT 00008440 00008450 00008460 00008470 00008480 00008490 000080 000040 000020 850 851 852 853 ************** CMDREJ EQU INTREQ EQU BUSOC EQU SENSE X'80' X'40' X' 20' STATUS REGISTER 2 EQUATES ************************ SET SENSE DATA COMMAND REJECT BIT SET SENSE DATA INTERVENTION REQUIRED SET SENSE DATA BUS OUT CHECK 00008510 00008520 00008530 00008540 () C) ( '\ ~) ~. \ C) (\j ROSl PN 1846377 3803-2 MICROCODE LISTING STMT 854 855 856 857 858 SOURCE EQUIPCK DATACK OVERUN WDCNTO RDNOISE 000020 000010 000008 000004 000002 000001 860 861 862 863 864 865 866 CUE BUSY CHANEND DEVEND UNITCHK UNITEXC 000020 000010 000000 868 869 870 871 BINTFC SWSEL DEVO LOC OBJECT CODE 000010 000008 000004 000002 000001 000080 000040 000020 000010 000008 000004 000002 000001 000010 000080 000040 000020 000010 000080 000040 000004 000080 000010 000040 000020 000010 000040 000004 000002 ADDRl ADDR2 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 STATEMENT EQU X' 10' EQU X'08' EQU X'04' EQU X'02' EQU X' 01' EC 734110 SET SENSE DATA EQUIPMENT CHECK SET SENSE DATA DATA CHECK SET SENSE DATA OVERRUN SET SENSE DATA WORD COUNT ZERO READ NOISE BIT (PE ONLY) PAGE F01MAY72 17 9/04/73 00008550 00008560 00008570 00008580 00008590 ************** PENDING STATUS REGISTER EQUATES ************************ 00008610 EQU EQU EQU EQU EQU EQU X'20' X'10' X'08' X'04' X'02' X'Ol' SET SET SET SET SET SET STATUS STATUS STATUS STATUS STATUS STATUS BIT BIT BIT BIT BIT BIT FOR FOR FOR FOR FOR FOR CONTROL UNIT END DEVICE BUSY CHANNEL END DEVICE END UNIT CHECK UNIT EXCEPTION 00008620 00008630 00008640 00008650 00008660 00008670 ************** TAPE UNIT ADDRESS REG EQUATES ************************** 00008690 EQU EQU EQU X'20' B INTERFACE TAG X'10' SWITCH SELECT TAG X'OO' DEVICE ADDRESS 0 00008700 00008710 00008720 *********************** TAPE UNIT SENSE BYTE ZERO ********************* 00008740 * 00008750 00008760 00008770 00008780 00008790 00008800 00008810 00008820 00008830 00008840 **************************TAPE UNIT SENSE BYTE ONE ********************** 00008850 * 00008860 * NOTPE X'10' 00008870 EQU OTHER THAN 1600 BPI * 00008880 * * BACKWARD NFP EOT BOT WRSTATUS START DEVCHK NOTBUSY EQU EQU EQU EQU EQU EQU EQU EQU X'80' X'40' X'20' X'10' X'08' X'04' X' 02' X'Ol ' BACKWARD SENSE BIT NOT FILE PROTECT SENSE BIT END OF TAPE SENSE BIT BEGINNING OF TAPE SENSE BIT WRITE STATUS BIT START BIT DEVICE CHECK BIT NOT BUSY BIT *** FLAGS2 REGISTER EQUATES FORCEUC EQU X'80' FORCE UNIT CHECK FLAG ALUFAIL EQU X'40' ALU HARD ERROR FLAG A64 EQU X'20' 6400 FLG INTF A B64 EQU x' 10' 6400 FLG IN'rF B 00008900 00008910 00008920 00008930 00008940 *********************************************************************** 00008950 * SET DIAGNOSE REGISTER EQUATES * 00008960 *********************************************************************** 00008970 DIAWRT EQU X'80' SET DIAG WRT FLAG (ELDORA ONLY) 00008980 VEL EQU X'40' SET VELOCITY FLAG (ELDORA ONLY) 00008990 LWROP EQU X'04' SET LOOP WRITE TO READ FLAG 00009000 00009010 BLKDC EQU X'80' SET BLOCK DATA CHECK FLAG 00009020 SETCUB EQU X'10' SET CONTROL UNIT BUSY FLAG DEVBSY EQU X'40' SET DEVICE BUSY TEST GLAG 00009030 00009040 BLKINTS EQU X'20' SET BLOCK INTERRUPTS FLAG 00009050 GDT EQU X'10' SET GOT FLAG IBGMSR EQU X'40' SET IBG MEASURE FLAG 00009060 DMR EQU X'04' SET DIAG MEASURE AND READ 00009070 FORCERR EQU X'02' SET FORCE HARDWARE ERRS FLAG 00009080 ROSl PN 1846377 3803-2 MICROCODE LISTING EC 734110 PAGE 18 STMT 908 909 910 911 912 913 914 915 916 917 918 919 F01MAY72 SOURCE STATEMENT INHIBIT PE PREAMBLE INHPRE EQU X'08' INHIBIT PE POSTAMBLE INHPOST EQU X'20' TAPSLIP EQU X'Ol' SET TAPE SLIP FLAG SET READ ACCESS FLAG RDACC EQU X'20' CHANGE DEVICE STATUS CHGSTS EQU X'Ol' SET TU BUS OUT MASK TUBOMSK EQU X'02' DO READ STOP MEASUREMENT RDSTOP EQU X'08' *********************EXTRA EQUATES ************************************ ALL ONES BYTE ONES EQU X'FF' ALL ZEROES BYTE ZERO EQU X'OO' BUMP BY ONE CONSTANT BUMP 1 EQU X' 01' ALU ERROR SENSE BIT ALUERR EQU X'80' 9/04/73 00009090 00009100 00009110 00009120 00009130 00009140 00009150 00009160 00009170 00009180 00009190 00009200 000080 000010 000040 000020 921 922 923 924 926 927 928 929 930 931 932 933 934 935 936 937 938 939 CNT40 EQU X'80' FLAG TO INDICATE WHETHER TO ADD 1 OR 40 #CNT40 EQU X'10' BR ON DREG SNSON EQU X'40' FLAG TO TURN ON SENSE IN STATIMG SNSOFF EQU X'20' FLAG TO TURN OFF SENSE IN STATIMG *********************************************************************** ********************** ALU2 ROS ENTRY BRANCH TABLE ******************** *********************************************************************** * ALU2 IS ALWAYS SLAVED TO ALU1. ANY OPERATION EXECUTED BY ALU2 * * MUST ALWAY BE INITIATED BY ALUl VIA A XOUTB. THE XOUTB BY ALUl * * TRAPS ALU2 TO LOCATION 000. ALU2,BEGINNING EXECUTION AT 000, * * FETCHES AN INDEX BYTE FROM ALUl AND MOVES IT TO THE INSTRUCTION * * COUNTER. THE INDEX BYTE WILL POINT TO ONE OF THE BRANCH INSTRUCT- * * IONS IN THE BRANCH TABLE. THE SELECTED BRANCH INST WILL BE * * EXECUTED AND THE DESIRED ROUTINE WILL BE ENTERED. WHEN THE * * SELECTED ROUTINE COMPLETES, STAT D WILL BE SET INDICATING TO * * ALUl THAT THE DESIRED FUNCTION HAS BEEN COMPLETED. ALU2 WILL THEN * * BE HELD AT LOCATION 000 UNTIL ACTUATED BY ALUl VIA XOUTB TRAP * *********************************************************************** 00009220 00009230 00009240 00009250 00009270 00009280 00009290 00009300 00009310 00009320 00009330 00009340 00009350 00009360 00009370 00009380 00009390 00009400 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC OOOOOD 0000 DE OOOOOF 000010 000035 000031 000037 000033 00003C 00003E 00003A 000013 000020 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 NDXTST3 NDXDES NDXPOLL NDXGRST NDXSRST NDXSDE NDXABRT NDXDMR NDXAXESS NDXFLAGS NDXSNSR NDXFLAG2 NDXFSF NDXERS NDXFSR NDXRDF NDXBSF NDXBSR NDXRDB NDXWRT NDXWTM LOC OBJECT CODE 000008 000020 000001 000020 000001 000002 000008 OOOOFF 000000 000001 000080 ADDRl ADDR2 EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU 5 6 7 8 9 10 11 12 13 14 15 16 X'35' X'31' X'37' X'33' X'3C' X'3E' X'3A' X'13' X'20' GO DO ALU 2 CHECKOUT HIO NOT OPRTING--GO DESELECT TU GO POLL DEVICE FOR STATUS GO DO GENERAL RESET GO DO SELECTIVE RESET GO SET DEVICE END GO DO DIAG MEASERE GO GET READ ACCESS TIME BRING IN FLAG BYTE GET TUBO MASK (SET FLAGS #3) GO DO FORWARD SPACE FILE GO DO ERASE TO END OF TAPE(EOT) GO DO FORWARD SPACE RECORD GO DO READ FORWARD GO DO BACKSPACE FILE GO DO BACKSPACE RECORD GO DO READ BACKWARD GO DO WRITE OPERATION GO DO WRITE TAPE MARK CJ 00009420 00009430 00009440 00009450 00009460 00009470 00009480 00009490 00009500 00009510 00.009520 00009530 00009540 00009550 00009560 00009570 00009580 00009590 00009600 00009610 00009620 () ROS1 PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 000022 00002F 000029 OOOOEB 0000D6 OOOOEA ADDR1 ADDR2 STMT 962 963 964 965 966 967 SOURCE NDXERG NDXRWD NDXRWU NDXSTS NDXSNS NDXADR STATEMENT X'22' EQU X'2F' EQU X'29' EQU X'EB' EQU X'D6' EQU X'EA' EQU EC 734110 PAGE F01MAY72 GO GO GO GO GO 40 DO DO DO DO ERASE RECORD GAP REWIND REWIND UNLOAD INITIAL STATUS SENSE OP 19 9/04/73 00009630 00009640 00009650 00009660 00009670 00009680 PN 1846377 3803-2 MICROCODE LISTING ROS1 LOC OBJECT CODE 000000 000000 000000 000001 000002 000003 ADDR1 ADDR2 2FF5 3C04 C1FO 4150 STMT 969 970 971 972 973 975 978 981 984 987 988 989 990 991 992 993 994 995 996 997 998 999 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000010 000011 000012 000013 000014 000014 000015 000016 1002 1005 1008 1011 1014 1017 1020 1023 1026 1029 1032 1035 1038 1041 1044 1047 1049 1051 1054 1057 0200 C89F DB40 310B 5681 5584 2220 2225 140B CAFO 4A48 2E15 8180 3D2A 5441 3C17 6354 8140 6011 EC 734110 PAGE SOURCE STATEMENT F01MAY72 BEGIN CSECT */* ALU1: BEGIN */ *** POWER ON RESET IS CHECKED FIRST TO INSURE THAT LSRS HAVE GOOD *** PARITY PRIOR TO THE ENSUING ALU OPS. STEP0001 EQU * NORMAL PATH FOR POWER ON RESET CHKRSTS BOC PWRRST,MODEREGS BRANCH IF POWER ON RESET BOC NGENR,NORESETS BRANCH IF NOT GENERAL RESET AND CTlMAGE,X'FO' CLEAR CHANNEL TAGS XFR CTlMAGE,CTI SET TO HARDWARE 20 9/04/73 00009700 00009710 00009720 00009730 00009740 00009750 00009760 00009770 00009780 ****************************** ALU FAIL CHECK ************************* 00009800 * EACH TIME ALU1 IS TRAPPED TO LOC 0, THE ALU HARDWARE ERROR REGS ARE* TESTED FOR A FAILURE. THE TWO EXCEPTIONS ARE: * * 1. POWER ON RESET * * 2. A PRIOR FAILURE THAT HAS NOT BEEN CLEARED BY A SENSE OP * * ONCE A FAILURE. HAS BEEN DETECTED, THE ALU ERROR REGS ARE SAVED IN * * LSRS AND WILL REMAIN UNTIL A SENSE OP IS ISSUED. THE ALUFAIL FLAG * * PREVENTS OVERLAYING THE LSRS WHEN THEY ARE HOLDING PRIOR ERROR DATA * * THE FIRST SIO/TIO (OTHER THAN SENSE) SUBSEQUENTLY ISSUED TO THE * *CONTROLLER AFTER AN ALU FAILURE WILL BE UNIT CHECKED. SUCCEEDING * * SIO/TIO'S WILL RECEIVE AVAILABE STATUS IF THE ONLINE PROGRAM CHOOSES* * TO IGNORE THE INITIALLY UNIT CHECKED SIO/TIO. * 00009810 00009820 0000983D 00009840 00009850 00009860 00009870 00009880 00009890 00009900 00009910 *********************************************************************** 00009920 * XOUTAIM,O CLEAR DATA FLOW CROSSOVER NORESETS STO AND STATIMG,ONES-CONTROL-SENSE RESET LCONTROLS ANDM FLAGS2,ALUFAIL MASK FOR PREVIOUS ALU FAILURE DREG1,ANYMOR BRANCH IF THERE WAS BOC XFR ALU2ERR,EXT FETCH ALU2 HARDWARE ERRORS ALU1ERR,HDWR FETCH ALU1 HARDWARE ERRORS XFR ALUR,HNDLERR BRANCH IF ANY ALU ERRORS BOC ALUR,CLEARIT BRANCH IF ERROR TO CLEAR BOC ANYMOR XOUTBIM,NDXABRT SET XOUTB IMAGE FOR USE LATER SETABRT STO REQTAGS,ONES-15 MASK ALL REQUEST DOWN AND XFR REQTAGS,MIST RESET TO HOWE BOC SCB,MIFTR12 BRANCH IF MIS AVAILABLE *** CTlMAGE,HOLDA RAISE CHAINING HOLD LINE SETHOLDA ORI ISEL,INSELCHK CHKISEL BOC BRANCH IF CHANNEL POLL OR SELECT XFR XOUTBIM,XOUTB TRAP ALU2 TO INITIALIZE BOC NGENR,CKSELRST BRANCH IF NOT GENERAL RESET STEP0005 EQU * EXECRST BU GENRESET GO DO GENERAL RESET MIFTR12 ORI CTlMAGE,HOLDB RAISE CHAINING - HOLD B BU CHKISEL 00009940 00009950 00009960 00009970 00009980 00009990 00010000 00010010 00010020 00010030 00010040 00010050 00010060 00010070 00010080 00010090 00010100 00010110 00010120 00010130 000017 2C19 000018 6513 1061 CKSELRST BOC 1064 GODOALU BU SELRST,SELRTNO ALUCHECK DO SELECTIVE RESET ROUTINE. DO ALU CHECKOUT. 00010150 00010160 000019 00001A 00001B 00001C 000010 00001E 1068 SELRTNO 1071 1074 1077 1080 ZZZ 1083 XOUTBIM,NDXADR PNDADDR,XOUTA XOUTBIM,XOUTB PNDADDR,TUADR STATD,MOVEON2 ZZZ LOAD ROS2 INDEX SUPPLY ADR TO ROS2 TRAP ROS2 SET UP HOW DECODE WAIT FOR STATD 00010180 00010190 00010200 00010210 00010220 00010230 14EA 4642 5441 4624 3B1F 6010 () () STO XFR XFR XFR BOC BU () ( " \ ) () u ~ " ) ROSl LOC OBJECT CODE 00001F 6362 000020 000021 000022 000023 000024 000025 000026 000027 000028 000029 PN 1846377 3803-2 MICROCODE LISTING 1000 5E21 5006 8DOO 4006 8BCO 2C19 4012 4012 600C ADDRl ADDR2 EC 734110 STMT SOURCE STATEMENT 1086 MOVEON2 BU SELRESET 1090 HNDLERR 1093 1096 1099 1102 1105 CLEARIT 1108 1111 1114 1117 STO XFR XFRH ORI XFR ORI BOC XFR XFR BU PAGE F01MAY72 CLEAR SENS FRU REG FRUREG,O FRUSAV,AR MOVE FAIL INDICATOR TO ALU A REG SET HIGH LSR'S LSR MOVE FAIL IND. INTO SENSE FRU REG FRUREG,O SET LO LSRS LSR FLAGS2,ALUFAIL+FORCEUC OTHERWISE SET FAIL FLAGS SELRST,SELRTNO BRANCH IF SELECTIVE RESET CLEAR THE ERROR CLEAR CLEAR THE ERROR CLEAR RETURN TO MAINLINE SETABRT 21 9/04/73 00010240 00010260 00010270 00010280 00010290 00010300 00010310 00010320 00010330 00010340 00010350 1120 *********************************************************************** 00010370 1121 * WHEN INSELCHK IS REACHED WE HAVE BEEN TRAPPED FOR INITIAL SELECTION * 00010380 1122 * OR A POLL. IF ADDRESS OUT IS UP---INITIAL SELECTION IS INDICATED. * 00010390 1123 *********************************************************************** 00010400 00002A 00002B 00002C 00002D 2895 D906 202E 6032 1126 INSELCHK BOC 1129 ANDM 1132 BOC 1135 BU ADROUT,SIORTN BRANCH IF FLAGS,STATPNDG+STACK TEST FOR DBUS,POLLED BRANCH IF INTFCHK GO HANDLE S1O. IF NOT, POLL ACC PENDING ORASTACK NOT PNDG OR STACK. PENDING STATUS 00010420 00010430 00010440 00010450 1138 *********************************************************************** 00010470 1139 * POLL ACCEPTED. IF STATUS IS PENDING OR STACKED THE PENDING ADDRESS * 00010480 1140 * REG IS USED TO VERIFY THE CORRECT CHANNEL. OTHERWISE THE 00010490 1141 * CONTROL UNIT ADDRESS FOR THE CHANNEL POLLING IS MOVED FROM CHANNEL * 00010500 1142 * BUS OUT TO THE PENDING ADDRESS REG. IF STATUS IS DUE TO A SECURITY * 00010510 1143 * DEVICE END OR DEVICE END DUE TO A PRIME, ALU2 WILL BE SPINNING * 00010520 1144 * WAITING TO CLEAR THE DEV END CONDITION IF CHANNEL ACCEPTES STATUS. * 00010530 1145 *********************************************************************** 00010540 00002E 00002F 000030 000031 43AO C60F 4321 8600 1150 POLLED 1153 1156 1159 XFR AND XFR ORI 000032 000033 000034 000035 4660 8103 4150 C1FD 000036 1163 INTFCHK XFR PNDADDR,CBI MOVE ASSEMBLED ADDRESS TO CHAN BUSIN 00010630 1166 00010640 ORI CTlMAGE,ADDIN+OPIN RAISE OP AND ADDRESS IN CTlMAGE,CTI SET TO HDWE 00010650 1169 XFR 1172 AND CTlMAGE,ONES-ADDIN RESET ADDRESS-IN IN IMAGE REG 00010660 1174 *** IF MIS GO CHECK FOR PROPER INTERFACE POLLING 00010670 1175 MIFTROO EQU * ENTRY POINT FROM POLLED 00010680 000036 D920 000037 203A 000038 2E3C 1178 NOTBOTH 1181 1184 000039 6039 1187 * GO TO MAP 13-080 1189 WRONGCHN BU WRONGCHN ANDM BOC BOC CURADDR,CBO PNDADDR,X'OF' CURADDR,AR PNDADDR,ZERO FLAGS,INTFB DBUS,NOTBINT SCB,NOTAINT GET CU ADDRESS FROM HARDWARE CLEAR HIGH ORDER MOVE CU ADDRESS TO ALU INPUT REG MERGE DEV AND CU ADDRESSES MASK INTF B FLAG FOR TEST BRANCH IF OFF INTF A INTERRUPTING BRANCH IF CHA~B SELECTING 00010580 00010590 00010600 00010610 00010700 00010710 00010720 00010740 INTF B INTERRUPTING AND CHAN A SLCTG 00010750 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT EC 734110 PAGE SOURCE STATEMENT F01MAY72 22 9/04/73 00003A 2E39 00003B 603F 1193 NOTBINT 1196 BOC BU SCB,WRONGCHN NOTBINT1 BRANCH IF B SELECTING CONTINUE ALL IS OK 00010770 00010780 00003C D910 00003D 2042 00003E 6041 1200 NOTAINT 1203 1206 ANDM BOC BU FLAGS , CUEB DBUS,MOVEOUT DOACUE MASK FOR CONTROL UNIT END B BR IF OOF GO SET CUE IN STATUS 00010800 00010810 00010820 00003F D940 000040 2042 1209 *** CHECK TO SEE IF CONTROL UNIT END SHOULD BE ADDED TO STATUS MASK FOR CONTROL UNIT END A 1211 NOTBINT1 ANDM FLAGS,CUEA DBUS,MOVEOUT BRANCH IF OFF 1214 BOC 00010840 00010850 00010860 000041 8520 1218 DOACUE ORI PNDSTS , CUE SET CUE IN STATUS 00010880 000042 000042 000043 000044 000045 000046 000047 1221 MOVEOUT 1223 SETLINK 1226 1229 1232 CMOUP 1235 1238 EQU STO STO STO BOC BOC BU * LINK1 ,SRETURNO LINK2,SRETURN1 LINK3,PRETURNO CMDOUT, RSTADDIN ADROUT,PRETURNO CMOUP ACCEPTED STATUS RETURN STACK STATUS RETURN HALT I/O RETURN NOT OPERATING WAIT COMMAND OUT RISE BRANCH IF HIO WAIT 00010900 00010910 00010920 00010930 00010940 00010950 00010960 105A 115B 12C8 2960 28C8 6045 () C) () ROSl LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT 1241 1242 1243 1244 1245 1246 EC 734110 SOURCE STATEMENT F01MAY72 *********************************************************************** * ENTRY TO THIS SUBROUTINE IS FROM: CONTINIT AND CLEANIT AND MODELINK * * PRIOR TO PRESENTING INITIAL STATUS TO CHANNEL. IF CHAINING IS NOT IN* * EFFECT THE FIRST TWO DIAGNOSTIC FLAG BYTES WILL BE CLEARED AND BYTEO* * PASSED TO ALU2. * *********************************************************************** 000048 6291 000049 63D7 1249 TERMATE BU 1252 GRETURNO BU TERMS TAT CHEKSNS 00004A 00004B 00004C 00004D 00004E 00004F 000050 000051 000052 000053 000054 000055 000056 000057 000058 000059 1256 GODODIAO STO 1259 GODODIA ANDM 1262 BOC 1265 XOM 1268 BOC 1271 XOM 1274 BOC 1277 STO 1280 STO 1283 ALU2DIA XFR 1286 ORI 1289 XFR 1292 AND 1295 STO 1298 XFR 1301 XFR LINK4,STATRTN-BEGIN SET CTL AND BURST CMD RETURNS FLAGS, CHAIN MASK FOR CHAIN FLAG DREG7,ALU2DIA BRANCH IF ON CURCOMM,X'8B' MASK FOR LWR COMMAND BRANCH IF SO DBUS,ALU2DIA CURCOMM,X'OB' MASK FOR DIAG WRT BRANCH IF SO DBUS,ALU2DIA SETDIA1,0 CLEAR FLAG BYTE ONE SETDIA2,0 CLEAR FLAG BYTE TWO SETDIA1,XOUTA MOVE FIRST FLAG BYTE TO ALU2 STATIMG,SETSTATD SET STATD TO INDICATE SNS RESET STATIMG,STAT SET TO HARDWARE STATIMG,ONES-SETSTATD RESET STAT D IN IMAGE REG WORK2,NDXFLAGS FETCH ALU2 SET DIAGNOSE INDEX WORK2,XOUTB KICK ALU2 OFF TO FETCH BYTE LINK4,IC RETURN TO INITIAL STATUS 1360 D901 3753 F08B 2053 FOOB 2053 OCOO ODOO 4C42 8801 4828 C8FE 170E 5741 5322 U.C. ON SIO RETURN RETURN FOR MODE CMOS PAGE 23 9/04/73 00010980 00010990 00011000 00011010 00011020 00011030 00011050 00011060 00011080 00011090 00011100 00011110 00011120 00011130 00011140 00011150 00011160 00011170 00011180 00011190 00011200 00011210 00011220 00011230 ROS1 PN 1846377 3803-2 MICROCODE LISTING PAGE STMT 1307 1308 1309 1310 1311 1312 1313 1314 SOURCE STATEMENT F01MAY72 *********************************** STATUS SUBROUTINE ***************** * THE STATUS ROUTINE HANDLES INTERLOCKING OF INTERFACE LINES AND * * BRANCHES TO THE APPROPRIATE SUBROUTINE DEPENDING ON THE CHANNEL * * RESPONSE TO STATUS IN. THE INTERFACE WILL ALSO BE MONITORED FOR A * * HIO CONDITION AND THE LINK RETURN WILL BE EXECUTED IF HIO SHOULD * * OCCUR. IF THE CHANNEL ERRONEOUSLY STACKS CLEAN INITIAL STATUS A * * HANG WILL OCCUR IN THE INTFERR LOOP * *********************************************************************** 62C5 62BF 6185 623B 623C 65A3 1317 1320 1323 1326 1329 1332 SRETURNO SRETURN1 SRETURN2 SRETURN4 SRETURN5 SRETURN6 000060 000060 4150 000061 1335 1337 1339 1340 1342 1344 1346 1349 1352 1355 1358 1361 1364 1367 1369 1370 1372 1374 1376 1378 1380 1382 1384 STATRTN EQU * RSTADDIN XFR CTlMAGE,CTI STATRTN1 EQU * * GO TO MAP 13-100 SVCOUTUP BOC ADROUT,HIOLINK * GO TO MAP 13-100 CMDOUTUP BOC SVCOUT,SVCOUTUP BOC CMDOUT,SVCOUTUP BOC SVCOUT,SVCOUTUP BOC SVCOUT,SVCOUTUP XFR PNDSTS,CBI ORI CTlMAGE,STSIN XFR CTlMAGE,CTI AND CTlMAGE,ONES-STSIN INTFERR EQU * * GO TO MAP 13-110 WATESUM BOC ADROUT,HIOLINK1 * GO TO MAP 13-110 BOC CMDOUT,STAKLINK * GO TO MAP 13-110 BOC SVCOUT,TAKELINK * GO TO MAP 13-110 BU WATESUM 1387 1388 1389 1390 1391 1392 *********************************************************************** *THE STAKLINK OCCURS WHENEVER COMMAND OUT ANSWERS STATUS IN. THE STACK* *FLAG IS SET FOR NON-STACKABLE STATUS AND LINK2 RETURN EXECUTED. * * CHAINING IS RESET FOR ALL STATUS EXCEPT A CHANNEL END ALONE (CONTROL* * CMD INITIAL STATUS) * *********************************************************************** LOC 00005A 00005B 00005C 000050 00005E 00005F OBJECT CODE 000061 2890 000062 000063 000064 000065 000066 000067 000068 000069 00006A 2061 2961 2061 2061 4560 8104 4150 C1FB 00006A 2891 00006B 296F 00006C 2070 000060 606A ADDR1 ADDR2 EC 734110 BU BU BU BU BU BU TERMACC TERMSTAK SENSEO CONTSERV CONTSTAK CLEANGO RETURN RETURN RETURN RETURN RETURN RETURN FOR ACCEPTED STATUS FOR STACKED STATUS TO SENSE ROUTINE FOR SERVICE TO STACK FOR ACCEPTED STATUS DEFINE ENTRY POINT RESET ADDRESS-IN TO HOWE DEFINE ENTRY POINT HALT I/O LINK SVC OUT UP WAIT FOR DROP CMD OUT UP WAIT FOR DROP MOVE STATUS TO BUS IN MASK STATUS IN TAG UP RAISE STATUS IN MASK STATUS IN DOWN RETURN FOR STACKED CLEAN INIT STS HALT I/O LINK STACK LINK ACCEPT LINK RESET OP IN RAISE CUB 00006E 4150 1395 STAKDISC XFR CTlMAGE,CTI 00006F 000070 000071 000072 1399 STAKLINK AND 1402 XOM 1405 BOC 1408 XOM FLAGS,ONES-CHAIN RESET CHAIN BIT PNDSTS,DEVEND MASK FOR DEV END ALONE STATUS DBUS,NOSTACK BRANCH IF SO PNDSTS,DEVEND+UNITCHK IS STATUS READY DROP ON REW/DSE C9FE F504 207A F506 () " (\~) () 24 9/04/73 00011280 00011290 00011300 00011310 00011320 00011330 00011340 00011350 00011370 00011380 00011390 00011400 00011410 00011420 00011440 00011450 00011460 00011470 00011480 00011490 00011500 00011510 00011520 00011530 00011540 00011550 00011560 00011570 00011580 00011590 00011600 00011610 00011620 00011630 00011640 00011650 00011660 00011680 00011690 00011700 00011710 00011720 00011730 00011750 00011770 00011780 00011790 00011800 () ROSl LOC 000073 000074 000075 000076 000077 000078 000079 00007A PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE 207A F510 207A F520 207A 8902 5122 62Cl ADDRl ADDR2 STMT SOURCE STATEMENT 1411 BOC DBUS,NOSTACK 1414 XOM PNDSTS,BUSY 1417 BOC DBUS,NOSTACK 1420 XOM PNDSTS,CUE 1423 BOC DBUS,NOSTACK 1426 ORI FLAGS, STACK 1429 STOPLINK XFR LINK2,IC 1432 NOS TACK BU TERMSTKl 1435 1436 1437 1438 1439 1440 1441 EC 734110 FO 1MAY 72 BRANCH IF YES TO PREVENT STACK MASK FOR BUSY ALONE IN STATUS BRANCH IF IT IS TO PREVENT STACK IS IT CUE ALONE BR IF SO SET STACK BIT XFR LINK TO IC GO RESET CHAN TAGS 00011910 00011920 00011930 00011940 00011950 *********************************************************************** 00011960 CTlMAGE,CTI SKIPSUPO 000070 3987 00007E C9FO 1451 TAKELINK BOC 1454 SKIPSUPO AND 1456 * 1458 AND SUPO,SETCHAIN CHAIN INDICATION FLAGS,CUEA+CUEB+INTFB+CONCON RESET CHAIN,STATUS PENDING, AND STACK FLAGS FLAGS1,ONES-ALLOWDSE RESET ALLOW OAT SEC ERS FLAG 000081 2086 1461 * GO TO MAP 13-130 1463 TAKELINl ANDM PNDSTS,CUE 1465 * GO TO MAP 13-130 1467 BOC DBUS,SERVLINK 000082 000083 000084 000085 1470 1471 1473 1476 1479 1482 2E85 C9BF 6086 C9EF 000086 5022 000087 8901 000088 8120 000089 F017 00008A 208E 00008B CAEF 00008C C9Fl 9/04/73 00011810 00011820 00011830 00011840 00011850 00011860 00011870 00011880 *********************************************************************** 00011900 1444 TAKEDISC XFR 1447 BU 000080 0520 25 *THE TAKELINK ROUTINE IS ENTERED BY SERVICE OUT RESPONSE TO STATUS IN.* *THE CHAIN, STACK, AND STATUS PENDING FLAGS ARE MANIPULATED AND CUE * *FOR SELECTED CHANNEL IS RESET. THE ALLOW DATA SECURITY ERASE FLAG * *IS ALSO MAINTAINED HERE DEPENDENT UPON CHAINING. RETURN IS VIA * *LINKl * 00007B 4150 00007C 607E 00007F CAEF PAGE *** A CUE WAS PRESENTED--DETERMINE *** THE CORRESPONDING CUE FLAG MIFTROl BOC SCB,CUERSTB RSTCUEA AND FLAGS,ONES-CUEA BU SERVLINK CUERSTB AND FLAGS,ONES-CUEB 1485 * GO TO MAP 13-130 1487 SERVLINK XFR LINK1,IC RESET OP IN RAISE CUB SKIP CHAINING CHECK DID WE PRESENT CONTROL UNIT END BRANCH IF NOT THE SELECTING CHANNEL AND RESET 00011980 00011990 00012010 00012020 00012030 00012040 00012060 00012070 00012080 00012090 BRANCH IF SWITCHED TO CHNL B RESET CUE A FLAG GO BACK AND DO EXIT RESET CUE B FLAG 00012110 00012120 00012130 00012140 00012150 00012160 XFR LINK TO IC 00012180 00012190 1490 * GO TO MAP 13-130 1492 SETCHAIN ORI FLAGS, CHAIN SET CHAIN FLAG 1494 * GO TO MAP 13-130 1496 ORI CTlMAGE,HOLDINT RAISE HOLD INTERFACE BIT 1498 * GO TO MAP 13-130 1500 XOM CURCOMM,X' 17' IS LAST COMMAND ERASE 1502 * GO TO MAP 13-130 1504 BOC DBUS,ENABLDSE BRANCH IF SO 1506 * GO TO MAP 13-130 1508 AND FLAGS1,ONES-ALLOWDSE RESET DSE BIT 1510 * GO TO MAP 13-130 1512 SKIPIT AND FLAGS,CHAIN+CUEB+CUEA+INTFB+CONCON RESET OTHER FLAGS 1514 * GO TO MAP 13-130 00012210 00012220 00012230 00012240 00012250 00012260 00012270 00012280 00012290 00012300 00012310 00012320 00012330 ROSl PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 000080 6080 ADDRl ADDR2 STMT 1516 1520 ENABLDSE ORI 1523 BU 00008E 8Al0 00008F 608C 1527 1528 1529 1530 1531 000091 000092 000093 000094 000095 000096 000097 000098 000099 43AO 44AO 12C8 5441 D986 00009A 00009B 00009C 00009D 00009E 00009F OOOOAO 20AA 359E 369E 0500 4621 F400 20AA OOOOAl 0000A2 0000A3 OOOOM 8110 4150 8520 6296 XFR 1538 HIOLINKl XO 1541 BOC 1544 BOC 1547 BU Elll 2D7B 296E 6090 PAGE FLAGS1,ALLOWDSE SKIPIT F01MAY72 SET THE ALLOW DSE BIT RETURN LINK3,IC 26 9/04/73 00012340 00012360 00012370 *********************************************************************** * HIO LINK IS ENTERED IF ADDRESS OUT IS UP OR RISE WHILE THE STATRTN * * ISBEING EXECUTED. RETURN IS VIA LINK 3 WHICH IS SET UP BY THE * * STATRTN CALLER * *********************************************************************** 1534 HIOLINK 000090 5222 EC 734110 SOURCE STATEMENT BU TAKELINl 00012400 00012410 00012420 00012430 00012440 GO HANDLE HIO 00012460 CTIMAGE,OPIN+CUBUSY RESET OP IN RAISE CUB SVCOUT,TAKEDISC BRANCH IF STATUS ACCEPTED CMDOUT,STAKDISC BRANCH IF STATUS REJECTED HIOLINK OTHERWISE GO TO HIO NOT OPERATING 00012480 00012490 00012500 00012510 1550 1551 1552 1553 **************************************** SIO ROUTINE ****************** * THE START 10 ROUTINE CHECKS FOR SHORT BUSY CONDITIONS. IF NONE FOUND* * IT BRANCHES TO THE NO SHORT ROUTINE TO ANSWER THE SIO. * *********************************************************************** 00012530 00012540 00012550 00012560 1-556 1559 1562 1565 1568 1570 1572 1575 1578 1581 1584 1587 1590 1592 1593 1594 1595 1597 1600 1603 1606 1608 SIORTN 00012580 00012590 00012600 00012610 00012620 00012630 00012640 00012650 00012660 00012670 00012680 00012690 00012700 00012710 00012720 00012730 00012740 00012750 00012760 00012770 00012780 00012790 CURADDR,CBO FETCH CURRENT ADDRESS WORK1,CBO ADDRESS TO SCRATCH AREA LINK3,PRETURNO SET HIO LINK FOR NOT.OPERATING XOUTBIM,XOUTB TRAP ALU2 TO LOC 0 FLAGS,STATPNDG+STACK+CONCON MASK FOR PENDING OR STACKED * STATUS AND CONTINGENT CONN. FLAGS BOC DBUS,NOSHORT BRANCH IF ALL ARE OFF BOC DREG5,NOTCONT BRANCH IF STACK BOC DREG6,NOTCONT BRANCH IF STATUS PENDING STO PNDSTS,O CONT CONN--CLEAR THE STAUS REG NOTCONT XFR PNDADDR,AR MOVE PEND ADDRESS TO AREG XOM WORK1,0 TEST FOR MATCH BOC DBUS,NOSHORT BRANCH IF MATCH *********************************************************************** *THE SHORTBUSY ROUTINE USES THE UPROGRAM TO MANIPULATE BUS IN AND * *TAGS IN FOR A SHORT BUSY SEQUENCE. CUE IS SET IN THE STATUS. * *********************************************************************** SHORTBSY ORI CTIMAGE,CUBUSY SET UP CUB BIT IN CTI IMAGE REG XFR CTIMAGE,CTI MOVE TO CHANNEL TAG IN REG ORI PNDSTS,CUE POST CUE WITH STATUS BU TERMSTA2 GO RESET CUE LATCH FOR SELECTING INTERFACE * XFR XFR STO XFR ANDM 1610 *********************************************************************** 00012810 1611 *THE NOSHORT RTN ANSWERS ADDRESS OUT AND INITIALIZES ALU 2 TO ASSEMBLE* 00012820 o o o o o ROSl LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT 1612 1613 1614 1615 EC 734110 PAGE 27 SOURCE STATEMENT F01MAY72 9/04/73 *TU STATUS. VARIOUS FLAGS AND REGISTERS ARE INITIALIZED AND A CHECK * 00012830 *IS MADE TO SEE IF A HIO WAS RECEIVED BY HARDWARE AFTER OP-IN WAS * 00012840 *RAISED. * 00012850 *********************************************************************** 00012860 0000A5 0000A6 0000A7 0000A8 0000A9 8920 8420 8804 D916 60B5 1618 BFLAG 1621 1624 1627 1630 ORI ORI ORI ANDM BU FLAGS,INTFB SET INTERFACE B FLAG IN FLAG REG WORK1,BINTFC SET INTERFACE B BIT IN SELECT ADDR STATIMG,SETSTATB RAISE STAT B FOR ALU2 FLAGS,STATPNDG+STACK+CUEB MASK FOR PENDING STATUS CHKPNDG RETURN TO SELECT DEVICE 00012880 00012890 00012900 00012910 00012920 OOOOAA OOOOAB OOOOAC OOOOAD OOOOAE 000 OAF OOOOBO OOOOBl 8101 4150 0800 0600 4321 8600 C40F 4442 1634 NOSHORT 1637 1640 1643 1646 1649 1652 STRIPADD 1655 ORI XFR STO STO XFR ORI AND XFR CTlMAGE,OPIN CTlMAGE,CTI STATIMG,O PNDADDR,O CURADDR,AR PNDADDR,O WORK1,X'OF' WORK 1 , XOUTA 00012940 00012950 00012960 00012970 00012980 00012990 00013000 00013010 0000B2 0000B3 0000B4 0000B5 0000B6 0000B7 2EA5 C9DF D946 20B8 35B9 8802 1658 *** DETERMINE WHICH CHANNEL IS SELECTING AND INITIALIZE THE STAT REG, 1659 *** TU ADDRESS REG AND FLAGS REG. 1661 MIFTR03 BOC SCB,BFLAG IS B SELECTING 1~64 SETSWSEL AND FLAGS,ONES-INTFB RESET B FLAG 1667 ANDM FLAGS,STATPNDG+STACK+CUEA ANY STATUS BEING HELD 1670 CHKPNDG BOC DBUS,SETADDR BRANCH IF NONE PENDING 1673 BOC DREG5,STRTALU2 BRANCH IF STATUS PENDING 1676 ORI STATIMG,SETSTATC SET SHORT INIT SEL TO ALlJ2 00013030 00013040 00013050 00013060 00013070 00013080 00013090 00013100 0000B8 0000B9 OOOOBA OOOOBB OOOOBC OOOOBD 14EB 4828 4424 5441 8102 4360 1680 SETADDR 1683 STRTALU2 1686 1689 1692 1695 OOOOBE 28C7 OOOOBF 4150 STO XFR XFR XFR ORI XFR 1699 ADROUTUP BOC 1702 SETADRIN XFR MASK OP IN UP RAISE OP IN CLEAR THE STAT IMAGE REG CLEAR CURRENT ADDRESS REG FOR MASK XFR SELECT ADDRESS TO ALU INPUT REG MOVE ADDRESS TO PNDG ADDRESS REG STRIP HIGH ORDER GIVE ALU 2 ADDRESS XOUTBIM,NDXSTS STATIMG,STAT WORK 1 , TUADR XOUTBIM,XOUTB CTlMAGE,ADDIN CURADDR,CBI FETCH ALU2'S STATUS RTN INDEX SET STATS TO HDWE SET ADDRESS REG TRAP ALU 2 MASKADDRESS IN UP RAISE ADDRESS ON BUS IN 00013120 00013130 00013140 00013150 00013160 00013170 ADROUT,SELOUTUP CTlMAGE,CTI WAIT FOR ADRESS OUT FALL RAISE ADDR IN 00013190 00013200 1705 *********************************************************************** 00013220 1706 *ASSEMBLE DATA FLOW MASK WHILE SYSTEM BRINGS UP CMD OUT. * 00013230 1707 *********************************************************************** 00013240 OOOOCO OOOOCl 0000C2 0000C3 0000C4 0000C5 0000C6 D901 20C9 DC80 20CB 8810 4828 648B 1710 MASEMBLE ANDM 1713 BOC 1716 ANDM 1719 BOC 1722 ORI 1725 XFR 1728 BU FLAGS,CHAIN DBUS,RSTDIAG SETDIA1,DIAWRT DBUS,CHKFTR STATIMG,DIAGMODE STATIMG,STAT SETSEV SET UP FLAGS FOR TEST IS CHAIN FLAG ON? MASK TO TEST DIAG WRT BIT BRANCH IF DIAG MODE OFF SET DIAG MODE BIT IN STAT REG SET STATS TO HDWE GO CHECK NRZI 00013260 00013270 00013280 00013290 00013300 00013310 00013320 ROSl PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE WC 0000C7 26BE 0000C8 6344 ADDRl ADDR2 STMT SOURCE STATEMENT SELO,ADROUTUP 1732 SELOUTUP BOC HIONOP 1735 PRETURNO BU SETDIA1,0 SETDIA2,0 EC 734110 PAGE F01MAY72 BRANCH IF NOT HIO GO TO HIO NOT OPERATING 9/04/73 00013340 00013350 RESET DIAG MODE BITS 00013370 0001.3380 0000C9 OCOO OOOOCA 0000 1739 RSTDIAG 1742 STO STO OOOOCB 648B 1746 CHKFTR BU SETSEV BRANCH 1750 CHKNRZ 1753 1756 1759 CMDWAITO 1762 1765 ANDM BOC REQTAGS,ANRZI DBUS , CMDWAITO XOUTAIM,NRZMODE FLAGS2,A64 DBUS,CMDWAIT XOUTAIM,MODE64 CHECK FOR NRZI FLAG BRANCH IF NRZI BIT OFF SET XOUTA IMAGE NRZ BIT WASS LAST MODE SET 6400 BR SET 6400 FOR ALU2 OOOOCC OOOOCD OOOOCE OOOOCF 000000 000001 DA40 2.QCF 8201 DB20 2002 8202 GIn ANDM BOC ORI 28 SEVEN TK FEAT *** 00013400 00013420 00013430 00013440 00013450 00013460 00013470 1768 *********************************************************************** 00013490 1769 * WAIT FOR AND PROCESS COMMAND OUT. DETERMINE WHETHER OPERATION * 00013500 1770 * CAN PROCEED. * 00013510 1771 *********************************************************************** 00013520 1774 * GO TO MAP 13-140 ADROUT,PRETURNO 1776 CMDWAIT BOC 1778 * GO' TO MAP 13-140 BOC CMDOUT,CMDWAIT1 1780 1782 * GO TO MAP 13-140 BU CMDWAIT 1784 000002 28C8 000003 29DA 000004 6002 000005 000006 000007 000008 000009 OOOODA OOOODB 1787 1788 1789 1791 1794 1797 1800 1803 1806 1809 8720 0906 20E6 8510 60DE C1FD 2405 FIRST COMMAND OUT WAIT *THE COMPARER HANDLES BUS OUT CHECKS DURING COMMAND TRANSFER. 2312 4150 0904 20E5 0000E1 9000 0000E2 20E4 0000E3 8510 C) 00013630 ************************************************************************ 00013640 CMDPARER ORI CMDPARO ANDM BOC ORI BU CMDWAITl AND BOC SNSS.TS2, BUSOC POST BUS OUT CHECK FLAGS,STATPNDG+STACK TEST FOR STATUS PENDING OR STACK BRANCH IF NO DBUS , CMDPAR1 POST BUSY IN STATUS PNDSTS,BUSY GO TO STORE LINKS CMDWAIT4 CTlMAGE,ONES-ADDIN MASK ADDR IN DOWN BRANCH IF CMD PAR ERR BOPE,CMDPARER CURCOMM,CBO MOVE CMD TO LSR 00013650 00013660 00013670 00013680 00013690 00013700 00013710 00013740 1817 *** IF MIS AVAILABLE GO CHECK TO SEE IF CONTINGENT CONNECTION FLAG 1818 *** IS TO BE RESET 000000 OOOODE OOOODF OOOOEO 00013550 00013560 00013570 00013580 00013590 00013600 *********************************************************************** 00013620 1814 CMDPAREX XFR OOOODC 40AO HALT 10 NOT OPERATING 1820 BOC 1823 CMDWAIT4 XFR ANDM 1826 1829 BOC MIFTR,MIFTR04 CTlMAGE,CTI FLAGS,STATPNDG DBUS,CMDPROC BRANCH IF MIS AVAILABLE DROP ADDRESS IN STATUS PNDING NO, GO TO CMD PROCESS 00013760 00013770 00013780 00013790 00013800 00013810 1833 CMDWAIT3 ORM 1836 BOC ORI 1839 CURCOMM,ZERO DBUS,PENDLINK PNDSTS,BUSY IS IT TEST 10 IF YES SEND STATUS IF NO POST BUSY 00013830 00013840 00013850 C) !" '\ '" / () ( "'"'1 j ROS1 PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 0000E4 6291 ADDR1 ADDR2 EC 734110 PAGE F01MAY72 29 STMT SOURCE STATEMENT 1842 PENDLINK BU TERMS TAT GO TO RAISE STATUS IN 9/04/73 00013860 0000E5 0000E6 0000E7 0000E8 0000E9 OOOOEA OOOOEB OOOOEC 6100 0502 8904 CB7F 140B 5441 4150 6291 1846 CMDPROC 1849 CMDPAR1 1852 1855 1858 1861 1864 1867 BU STO ORI AND STO XFR XFR BU COMDECOD PNDSTS,UNITCHK FLAGS,STATPNDG FLAGS2,ONES-FORCEUC XOUTBIM,NDXABRT XOUTBIM,XOUTB CTIMAGE,CTI TERMSTAT GO DECODE THE CMD POST A UNIT CHECK POST STATUS PNDG FLAG RESET FORCE UNIT CHECK FLAG BRT LOAD ALU2 INIT ADDRESS TRAP ALU2 TO PREVENT DE RESET DROP ADDRESS-IN GO TO STORE LINKS 00013880 00013890 00013900 00013910 00013920 00013930 00013940 00013950 OOOOED OOOOEE OOOOEF OOOOFO 0000F1 0000F2 OOOOF3 0000F4 OOOOF5 0000F5 OOOOF6 0000F6 OOOOF7 0000F7 0502 8904 4150 1348 604B 0000 1FOO 1800 1871 1874 1877 1880 1883 1886 1889 1892 1894 1896 1898 1900 1902 1904 STO ORI XFR STO BU STO STO STO EQU STO EQU STO EQU BU PNDSTS,UNITCHK FLAGS,STATPNDG CTIMAGE,CTI LINK4,TERMATE GODODIA CURCOMM,O FORMAT, 0 LINK5,0 IMAGE UNIT CHK SET FLAG DROP ADDR IN LOAD LINK RETURN 00013970 00013980 00013990 00014000 00014010 00014020 00014030 00014040 00014050 00014060 00014070 00014080 00014090 00014100 1A90 1B90 6014 DOITNOW STEPOO02 MODEREGS STEPOO03 STEPOO04 * SEVMODA,X' 90 , * SEVMODB,X' 90 , * EXECRST POWER ON RESET POWER ON RESET POWER ON RESET ROSl LOC OBJECT CODE 000100 000100 000101 000102 000103 000104 000105 PN 1846377 3803-2 MICROCODE LISTING ADDRl ADDR2 STMT 1908 1909 1910 1911 1912 1913 PAGE SOURCE STATEMENT F01MAY72 ORG BEGIN+X'100' ************************************** COMMAND DECODE ***************** * THE COMMAND WILL BE DECODED IF THEIR IS NO STATUS PENDING OR * * STACKED. EACH COMMAND(EXCEPT MODE TYPE) WILL BE CHECKED FOR * * DISCRETE CODES AND COMMAND REJECTED IF NOT RECOGNIZED. * *********************************************************************** 1916 COMDECOD ORM BOC 1919 BOC 1922 BOC 1925 1928 BOC 1931 BU 9000 3718 3639 353B 2041 6108 EC 734110 CURCOMM,O DREG7,IS60N DREG6,READTYPE DREG5,CHKRDB DBUS,DOTESTIO COMREJCT MASK COMMAND CODE FOR TESTING BRANCH IF BIT 7 ON TO CHK BIT 6 BRANCH IF BIT 6 ON (READ CMD) BRANCH IF BIT 5 ON CHECK FOR TEST I/O GO REJECT COMMAND 30 9/04/73 00014130 00014140 00014150 00014160 00014170 00014180 00014200 00014210 00014220 00014230 00014240 00014250 1935 *********************************************************************** 00014280 1936 *COMMAND MUST BE CONTROL SINCE BITS 5,6,AND 7 ARE PRESENT. * 00014290 1937 *********************************************************************** 00014300 1940 CKDSE 1943 000106 F097 000107 2023 1946 1947 1948 1949 1950 XOM BOC CURCOMM, X' 97' DBUS,DODSE MASK FOR DATA SECURITY ERASE CMD BRANCH IF IT IS ***************************** COMMAND REJECT ************************** * COMMAND REJECT WILL BE BRANCHED INTO BY SEVERAL COMMAND DECODE * * ROUTINES. SENSE DATA WILL BE CLEARED AND COMMAND REJECT WILL BE * * POSTED IN SENSE BYTE 0 * *********************************************************************** 00014320 00014330 00014350 00014360 00014370 00014380 00014390 000108 13DO 000109 64D5 1953 COMREJCT STO 1956 BU LINK4,RTNCOMR OPENERS SET OPENERS RETURN GO CHECK DEV STATUS 00014410 00014420 00010A 3006 00010B 3108 1960 CONTCMD 1963 BOC BOC DREGO,CKDSE DREG 1 , COMREJCT BRANCH IF HI ORDER BIT IS ON COMMAND REJECT IF BIT 1 IS ON 00014440 00014450 00010C 3414 00010D 3320 00010E 322F 1967 1970 1973 BOC BOC BOC DREG4,COMTESTA DREG3,COMTESTB DREG2,DOBKSPBL BRANCH IF CMD IS 00XX1111 BRANCH IF CMD IS 00X10111 IF 1, MUST BE BACKSPACE BLOCK 00014470 00014480 00014490 1976 *********************************************************************** 00014510 1977 *REWIND IS DECODED AT THIS POINT. CAN WE PERFORM IT? MAKE TESTS * 00014520 1978 *********************************************************************** 00014530 142F 8808 4828 1037 6228 1981 DOREWIND STO 1984 ORI 1987 XFR 1990 DORWDl STO 1993 BU XOUTBIM,NDXRWD STATIMG,SETSTATA STATIMG,STAT LINK1,CONTINIT TUTEST EMIT ALU2 BRANCH ADDRESS *** SET RWD INDICATOR FOR CONTEND SET STATA IN HDWE LINK TO CONTROL INIT STATUS GO TO TU STATUS TEST 00014550 00014560 00014570 00014580 00014590 000114 3329 000115 3233 1997 COMTESTA BOC 2000 BOC DREG3,COMTESTC DREG2,DOBAKFIL BRANCH IF CMD IS OOXlllll IF=l, MUST BE BACKSPACE FILE 00014610 00014620 00010F 000110 000111 000112 000113 C) C) (j o ROSl LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT EC 734110 SOURCE STATEMENT PAGE F01MAY72 31 9/04/73 000116 1429 000117 6112 2003 * COMMAND IS 00001111 OR REWIND UNLOAD 2005 DORUNLOD STO XOUTBIM,NDXRWU EMIT ALU2 BRANCH ADDRESS *** 2008 BU DORWDl 00014640 00014650 00014660 000118 000119 00011A 00011B 3649 FOOl 201C 6108 2012 IS60N 2015 WRTCHECK 2018 2021 BOC XOM BOC BU DREG6,IS50N CURCOMM,X' 01' DBUS,ITSOK COMREJCT CHECK FOR DISCRETE CMD BRANCH IF IT IS OTHERWISE REJECT COMMAND 00014680 00014690 00014700 00014710 00011C 000110 00011E 00011F 8204 1413 1079 621E 2025 ITSOK 2028 2031 2034 ORI STO STO BU XOUTAIM,WRITE XOUTBIM,NDXWRT LINK1,CLEANIT PROTEST ADD WRITE TO DATA FLOW MASK EMIT ALU2 BRANCH ADDRESS *** LINK TO CLEAN INITIAL STAUTS RTN 00014730 00014740 00014750 00014760 000121 1422 000122 612B 2038 COMTESTB BOC DREG2,DOFORBLK IF 1 MUST BE FORWARD SPACE BLOCK 2040 * COMMAND IS 00010111 OR ERASE GAP 2042 DOERG STO XOUTBIM,NDXERG EMIT ALU2 BRANCH ADDRESS *** 2045 BU DOWTMl 00014780 00014790 00014800 00014810 000123 000124 000125 000126 000127 000128 2049 DOOSE 2052 2055 2058 2061 2064 000120 3235 DA10 2008 1431 8808 4828 612B ANDM BOC STO ORI XFR BU FLAGS1,ALLOWDSE DBUS,COMREJCT XOUTBIM,NDXERS STATIMG,SETSTATA STATIMG,STAT DOWTMl MASK TO TEST ALLOW DSE FLAG BIT BRANCH IF OFF TO CMD REJECT EMIT ALU2 BRANCH ADDRESS *** SET DSE INDICATOR FOR CONTEND SET TO HOWE GO SET OF MASK 00014830 00014840 00014850 00014860 00014870 00014880 DREG2,DOFORFIL IF 1, 00014900 000129 3237 2068 COMTESTC BOC MUST BE FSF 00012A 00012B 00012C 000120 00012E 1420 8204 8820 1037 621E 2071 * COMMAND IS 00011111 OR WRITE TAPE MARK 2073 DOWTM STO XOUTBIM,NDXWTM EMIT ALU2 BRANCH ADDRESS *** ORI 2076 DOWTMl XOUTAIM,WRITE ADD WRITE AND CONTROL TO OF MASK 2079 ORI STATIMG,CONTROL 2082 STO LINK1,CONTINIT LINK TO CONTROL INITIAL STATUS 2085 BU PROTEST GO TO TEST FILE PROTECT 00014920 00014930 00014940 00014950 00014960 00014970 00012F 000130 000131 000132 143E 8820 1037 6145 2088 * COMMAND IS 00100111 OR BACKSPACE 2090 DOBKSPBL STO XOUTBIM,NDXBSR 2093 DOCONTRL ORI STATIMG,CONTROL 2096 STO LINK1,CONTINIT 2099 BU DOREAD2 00014990 00015000 00015010 00015020 00015030 RECORD EMIT ALU2 BRANCH ADDRESS *** SET CONTROL BIT IN DATA FLOW MASK SET RETURN TO CONTROL COMMANDS GO SET READ BACK MASK BIT 000133 143C 000134 6130 2102 * COMMAND IS 00101111 OR BACKSPACE FILE 2104 DOBAKFIL STO XOUTBIM,NDXBSF EMIT ALU2 BRANCH ADDRESS *** 2107 BU DOCONTRL GO SET OF MASK BITS 00015050 00015060 00015070 000135 1437 000136 6130 2110 * COMMAND IS 00110111 OR FORWARD SPACE RECORD 2112 DOFORBLK STO XOUTBIM,NDXFSR EMIT ALU2 BRANCH ADDRESS *** 2115 BU DOCONTRL GO SET OF CONTROL BIT 00015090 00015100 00015110 ROSl LOC 3803-2 MICROCODE LISTING OBJECT CODE 000137 1435 000138 6130 ADDRl ADDR2 PN 1846377 EC 734110 PAGE STMT SOURCE STATEMENT F01MAY72 2118 * COMMAND IS 00111111 OR FORWARD SPACE FILE 2120 DOFORFIL STO XOUTBIM,NDXFSF EMIT ALU2 BRANCH ADDRESS *** 2123 BU DOCONTRL GO SET OF CONTROL BIT 32 9/04/73 00015130 00015140 00015150 000140 6108 2126 2127 2128 2130 2133 2136 2139 2142 2145 2148 2150 2151 2153 000141 1091 000142 622A 2157 DOTESTIO STO 2160 BU LINK1,TERMSTAT TUTESTl EMIT LINK TO TERMINAL STATUS RTN TEST TU STATUS 00015310 00015320 000143 1433 000144 1079 2164 2167 2169 2171 XOUTBIM,NDXRDF LINK1,CLEANIT XOUTAIM,RDRDB TUTEST EMIT ALU2 LINK TO CLEAN ADD RD OR ROB GO TO TEST TU BRANCH ADDRESS *** INITIAL ROUTINE BIT TO OF MASK STATUS 00015340 00015350 00015360 00015370 XOUTBIM,NDXRDB EMIT ALU2 BRANCH ADDRESS *** XOUTAIM,ONES-DATCON RESET DATA CONVERT IF SEV TRK DOREADl GO TO READ INITIALIZE 00015390 00015400 00015410 000139 00013A 00013B 00013C 000130 00013E 00013F F002 2043 FOOC 2046 F004 207F 231C 000145 6228 000146 143A 000147 6144 ******************************************************-**************** 00015170 *SEPARATE READ TYPE COMMANDS BY FURTHER DECODING * 00015180 *********************************************************************** 00015190 READTYPE XOM CURCOMM,X' 02 , TEST FOR READ CODE BOC DBUS,DOREAD BRANCH IF READ CHKRDB XOM CURCOMM,X' DC' TEST FOR READ BACKWARD BOC DBUS,DORDBACK BRANCH IF READ BACKWARD XOM CURCOMM,X' 04 , TEST FOR SENSE CODE BOC DBUS,DOSENSE BRANCH IF SENSE BOC MIFTR,CHKRSRV BRANCH IF MIS AVAILABLE * IF COMMAND OP CODE WAS NONE OF THE ABOVE, IT IS INVALID AND WILL * BE REJECTED BU COMREJCT GO REJECT COMMAND DOREAD DOREADl *OREAD2 DOREAD2 STO STO ORI BU 2175 DORDBACK STO 2177 * AND 2179 BU C) 00015200 00015210 00015220 00015230 00015240 00015250 *** 00015260 00015270 . 00015280 00015290 o ROSl 3803-2 MICROCODE LISTING EC 734110 PAGE 33 STMT SOURCE STATEMENT F01MAY72 2182 ******************************* MODE COMMAND DECODE ******************* 2183 * DECODE MODETYPE COMMANDS FURTHER AND PERFORM FUNCTION REQUIRED. * 2184 * SET CHANNEL END-DEVICE END IN INITIAL STATUS. REQ TIE AND SET * 2185 * DIAGNOSE COMMANDS WILL LINK TO THE WRITE ROUTINE TO FETCH THE FIRST * 2186 * BYTE OF DATA. THE 7 TRK FEATURE WILL BE CHECKED TO SEE IF IT IS * 2187 * PRESENT. ALL MODE TYPE COMMAND ARE VALID. ANY NOT SPECIFICALLY * 2188 * RECOGNIZED TO PERFORM A FUNCTION WILL BE TREATED AS SENSE RESET * 2189 * NO-OPS. * 2190 *********************************************************************** 2191 *********************************************************************** 9/04/73 00015430 00015440 00015450 00015460 00015470 00015480 00015490 00015500 00015510 00015520 000148 6579 2194 GOSETDIA BU DOSETDIA 00015540 000149 00014A 00014B 00014C 000140 00014E 00014F 000150 000151 000152 000153 350A 3154 FOOB 206C F01B 2070 F003 205E F08B 206E 6470 2198 IS50N 2201 MODETYPE 2204 2207 2210 2213 2216 2219 2222 2225 2228 BOC BOC XOM BOC XOM BOC XOM BOC XOM BOC BU DREG5,CONTCMD DREG1,CKHIMODE CURCOMM,X'OB' DBUS,DODIAMS CURCOMM,X'lB' DBUS,DOTIEMS CURCOMM,X' 03 , DBUS,ISNOOP CURCOMM,X'8B' DBUS,DOLWR CHK7TK BRANCH TO CHECK HI MODES(X1XXXOll) MASK FOR DIAGNOSTIC MODE SET BRANCH IF YES MASK FOR TRACK IN ERROR MODE SET BRANCH IF IT IS MASK FOR NO-OP COMMAND BRANCH IF IT IS MASK FOR LWR COMMAND BRANCH IF IT IS BRANCH TO CHECK 7 TRACK 00015560 00015570 00015580 00015590 00015600 00015610 00015620 00015630 00015640 00015650 00015660 000154 000155 000156 000157 000158 000159 00015A 00015B 00015C 000150 FOCB 2069 FOC3 2064 FOD3 2060 F04B 2070 3067 6470 2232 CKHIMODE XOM 2235 BOC 2238 XOM 2241 BOC 2244 XOM 2247 BOC 2250 XOM 2253 BOC 2256 BOC 2259 ANY7TK BU CURCOMM,X'CB' DBUS,DONRZMS CURCOMM,X'C3' DBUS,DOPEMS CURCOMM,X' 03 , DBUS,D064MS CURCOMM,X'4B' DBUS,DOTIEMS DREGO,MODELINK CHK7TK MASK FOR NRZI MODE SET BRANCH IF IT IS MASK FOR PE MODE SET BRANCH IF IT IS MASK FOR 6250 MODE SET BR IF SO MASK FOR SET DIAGNOSE CMD BRANCH IF IT IS BR IF NONE OF ABOVE AND MODE 2 SET BRANCH 00015680 00015690 00015700 00015710 00015720 00015730 00015740 00015750 00015760 00015770 00015E 101B 00015F 622A 2263 ISNOOP 2266 STO BU LINK1,TRETURN3 TUTESTl SET NO-OP RETURN GO CHECK TU STATUS 00015790 00015800 000160 000161 000162 000163 2E7A 8B20 CABF 6167 2270 D064MS 2273 D064A 2276 2279 BOC ORI AND BU SCB,D064B FLAGS2,A64 FLAGS1,ONES-ANRZI MODELINK SET ITF A FLG RESET A NRZ FLG 00015820 00015830 00015840 00015850 000164 000165 000166 000167 000168 2E77 CABF CBDF 1019 6228 2283 2286 2289 2292 2295 BOC AND AND STO BU SCB,DOPEB FLAGS1,ONES-ANRZI FLAGS2,ONES-A64 LINK1,TRETURN2 TUTEST BRANCH IF MIS AVAILABLE RESET THE NRZI FLAG FOR INTF A RESET 6250 FLG SET TU TEST ROUTINE RETURN GO TO TEST THE DEV 00015870 00015880 00015890 00015900 00015910 BOC ORI BU SCB,DONRZB FLAGS1,ANRZI DOPEA2 BRANCH IF MIS AVAILABLE SET NRZI MODE FLAG FOR INTF A GO SET RETURN 00015930 00015940 00015950 LOC OBJECT CODE 000169 2E7D 00016A 8A40 00016B 6166 ADDRl ADDR2 PN 1846377 DOPEMS DOPEA DOPEA2 MODELINK 2299 DONRZMS 2302 DONRZA 2305 GO EXECUTE SET DIAGNOSE CMD ROSl PN 1846377 3803-2 MICROCODE LISTING PAGE 34 STMT SOURCE STATEMENT 2309 DODIAMS ORI SETDIA 1 ,DIAWRT 2312 BU MODELINK SET THE DIAG MODE FLAG GO SET RETURN 00016E 8C04 00016F 611C 2316 DOLWR 2319 ORI BU SETDIA 1 , LWROP ITSOK SET LOOP WRITE TO READ FLAG RETURN TO WRITE ROUTINE 00016000 00016010 000170 1079 000171 6228 2323 DOTIEMS 2326 STO BU LINK1,CLEANIT TUTEST SET TU TEST ROUTINE RETURN GO TEST DRIVE STATUS 00016030 00016040 000172 000173 000174 000175 000176 2330 DOTIEMSl XOM 2333 BOC 2336 XFR 2339 XFR 2342 BU CURCOMM,X'4B' DBUS,GOSETDIA XOUTAIM,CBO CTIMAGE,CTI SCREENTI 000177 CA7F 000178 CBEF 000179 6167 2347 DOPEB 2350 DOPEB2 2353 AND AND BU FLAGS1,ONES-BNRZI FLAGS2,ONES-B64 MODELINK RESET B INTF NRZI FLAG RESET 6250 B FLG RETURN TO SET STATUS IN 00016130 00016140 00016150 00017A 8Bl0 00017B CA7F 00017C 6167 2358 D064B 2361 2364 ORI AND BU FLAGS2,B64 FLAGS1,ONES-BNRZI MODELINK SET 6250 FLG RESET NRZI FLG 00016180 00016190 00016200 000170 8A80 00017E 6178 2368 DONRZB 2371 ORI BU FLAGS1,BNRZI DOPEB2 K SET NRZI FOR B INTF RETURN TO RAISE STATUS 00016220 00016230 LOC OBJECT CODE 00016C 8C80 000160 6167 F04B 2048 42AO 4150 6700 ADDRl ADDR2 EC 734110 MASK FORSET DIAGNOSE CMD BRANCH IF IT IS FETCH TIE BYTE RESET SERVICE IN ( F01MAY72 9/04/73 00015970 00015980 00016060 00016070 00016080 00016090 00016100 o ROS1 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846377 STMT 2375 2376 2377 2378 2379 2380 2381 EC 734110 PAGE SOURCE STATEMENT F01MAY72 ***************************** SENSE OP ******************************** *THIS ROUTINE CONTROLS THE SENSE OPERATION. * *THE SENSE BYTES WHICH ARE ASSEMBLED BY ALU2 ARE PASSED VIA THE XOVER * *REGISTERS . WHEN A BYTE OF SENSE INFO DOES NOT APPLY THEN THE XOVER * *WILL CONTAIN ZEROS. SENSE BYTES 2, 3, 4 13, 14, AND 17 ARE GATED BY * *BITS SET IN ALU1 XOVER REG XOUTA AND THE SENSE STAT TURNED ON. * *********************************************************************** 35 9/04/73 00016260 00016270 00016280 00016290 00016300 00016310 00016320 00017F 1301 000180 6405 2384 DOSENSE 2387 STO LINK4,RTNSENS BU OPENERS SET OPENERS RETURN GO CHECK DEVICE STATUS 00016340 00016350 000181 000182 000183 000184 0500 105C 116A 6060 2391 SENSEOK 2394 2397 2400 STO STO STO BU PNDSTS,ZERO LINK1,SRETURN2 LINK2,WATESUM STATRTN CLEAR REG OF OLD STATUS RETURN TO SENSEO SET UP IN CASE OF INTERFACE ERR GO PRESENT STATUS 00016370 00016380 00016390 00016400 000185 000186 000187 000188 000189 4150 1406 5441 138A 61E8 2404 SENSED 2407 2410 2413 2416 XFR STO XFR STO BU CTlMAGE,CTI XOUTBIM,NDXSNS XOUTBIM,XOUTB LINK4,SENSE1 PULL2 DROP STATUS IN LOAD INDEX FOR ALU2 START ALU2 OFF RETURN TO SENSE1 GO GET 1ST 2 BYTES 00016420 00016430 00016440 00016450 00016460 00018A 00018B 00018C 000180 00018E 00018F 000190 000191 000192 000193 000194 000195 000196 04FE 4721 C400 4F90 4F21 8400 2097 0701 2094 8E80 139B OFOO 61CF 2422 SENSE1 2425 2428 2431 2434 2437 2440 2443 CHKNOIS 2446 2449 2452 SENSE2 2455 2458 STO XFR AND XFR XFR ORI BOC ANDM BOC ORI STO STO BU WORK1,X'FE' SNSSTS2,AR WORK1,0 SETCNT2,XINA SETCNT2,AR WORK1,0 DBUS,TSTERRS SNSSTS2,RDNOISE DBUS,SENSE2 SETCNT1,NOISE LINK4,SENSE3 SETCNT2,0 SNSEVEN 00016500 00016510 00016520 00016530 00016540 00016550 00016560 SET NOISE 00016570 IN BYTE 1 00016580 IF ON 00016590 00016600 RETURN TO SENSE3 CLEAR THIS REG (HOLDS FLAGS FOR SNS) 00016610 GO SHIP 2 BYTES 00016620 000197 000198 000199 00019A DB40 2091 8420 6191 2462 TSTERRS 2465 2468 2471 ANDM BOC ORI BU FLAGS2,ALUFAIL DBUS,CHKNOIS WORK 1 , BUSOC CHKNOIS MASK ALU FAIL FLAG BRANCH IF OFF OTHERWISE SET BUS OUT CHK RETURN 2419 * 2474 * 00019B 00019C 000190 00019E 00019F 8840 0200 8F40 13AO 61CE SENSE BYTES 0 AND 1 * 00016480 TRANSFER SENSE STATUS 2 TO WORK 1 WITHOUT THE NOISE BIT IF ON SENSE BYTES 2 AND 3 2477 SENSE3 2480 2483 2486 2489 2492 *** ORI STO ORI STO BU STATIMG,SENSE XOUTAIM,O SETCNT2,SNSON LINK4,SENSE4 SNSEVEN1 SENSE BYTES 4 AND 5 00016640 00016650 00016660 00016670 00016690 RESET SENSE TO OF CLEAR XOUTAIM (HOLDS CNT TO GATE BYTES FROM OF RETURN TO SENSE 4 GO BUMP ONE THEN SHIP EM 00016710 00016720 00016730 00016740 00016750 00016770 ROSl 3803-2 MICROCODE LISTING LOC 0001AO 0001Al 000·lA2 0001A3 0001A4 0001A5 0001A6 0001A7 0001A8 0001A9 0001AA OBJECT CODE OFOO 5521 5621 9FOO 20A7 8480 CB3F OF20 8E40 13AB 61CE ADDRl ADDR2 PN 1846377 SOURCE STMT 2495 SENSE4 2498 2501 2504 2507 2510 2513 2516 SENSE5 2519 2522 2525 2528 2537 * ('\ .j C) 00016960 SETCNTl ,X' 08' FLAGS1,CURFLAG DBUS,SENSE8 SETCNT1,CURSVD LINK4,SENSE9 SETCNT2,SNSON XOUTAIM,15 SNSEVEN SET HIGH DENSITY BIT ON ARE WE RESERVED BR IF NOT TELL THE WORLD IF SO RETURN TO SENSE 9 TRN ON CONTROL BIT LOAD GATES FOR HARDWARE GO SHIP 'EM 00016980 00016990 00017000 00017010 00017020 00017030 00017040 00017050 GET ALUl ERRORS IF SO RETURN TO SENSEA GO SHIP 'EM 00017090 00017100 00017110 00017120 00017070 XFR ORI STO BU ALU1ERR,AR SETCNT1,0 LINK4,SENSEA SENSEDS 00017140 STO XFR STO STO BU SETCNT2,SNSON+CNT40 ALU2ERR,CBI LINK4,SENSEB XOUTAIM,X' 20' SNSEVEN2 DO SENSE AND ADD 40 WHEN APPLIES SEND ALU 2 ERRORS RETURN TO SENSE B INIT LSR GO SHIP 'EM STO STO ADD BU SETCNT2,SNSOFF LINK4,SENSEC XOUTAIM,X' 40 , SNSEVEN STO STO 00017160 00017170 00017180 00017190 00017200 00017220 TURN SENSE OFF WHEN APPLIES RETURN TO SENSEC BUMP GATES FOR HARDWARE GO SHIP 'EM SENSE BYTES 16 AND 17 2615 SENSEC 2618 0001C2 OFCO 0001C3 13C5 ORI ANDM BOC ORI STO STO STO BU 9/04/73 00016790 00016800 00016810 00016820 00016830 00016840 00016850 00016860 00016870 00016880 00016890 RETURN TO SENSE 7 00016930 GO TO BUMP XOUTAIM TO CLEAR BITS 6-7 00016940 SENSE BYTES 14 AND 15 2600 SENSEB 2603 2606 2609 OF20 13C2 A240 61CF 2612 0 * LINK4,SENSE7 SNSEVENl SENSE BYTES 12 AND 13 2582 SENSEA 2585 2588 2591 2594 OFCO 5660 13BE 0220 61D0 2597 0001BE 0001BF 0001CO 0001Cl * STO BU 36 00016910 SENSE BYTES 10 AND 11 2567 SENSE9 2570 2573 2576 5521 8EOO 13B9 61C6 2579 0001B9 0001BA 0001BB 0001BC 0001BD * F01MAY72 STATEMENT CLEAR REG FOR TEST SETCNT2,0 STO ALU1ERR,AR DO WE XFR ALU2ERR,AR HAVE AN XFR SETCNT2,0 ERROR ORM BR IF NOT DBUS,SENSE5 BOC SET ON IF SO WORK1,ALUERR ORI FLAGS2,ONES-ALUFAIL-FORCEUC RESET ALU FAIL FLAGS AND SETCNT2,SNSOFF SET FLAG TO TURN SNS OFF STO SET BIT TO INDICATE 3803 SETCNT1,NSUBSYS ORI RETURN TO SENSE 6 LINK4,SENSE6 STO GO BUMP ON THEN SHIP 2 MORE SNSEVENl BU SENSE BYTES 8 AND 9 2540 SENSE7 2543 2546 2549 2552 SENSE8 2555 2558 2561 8E08 DA20 20Bl 8EOl 13B5 OF40 020F 61CF 2564 0001B5 0001B6 0001B7 0001B8 * PAGE SENSE BYTES 6 AND 7 2531 SENSE6 2534 0001AB 13 AD 000 lAC 61CE 000 lAD 0001AE 0001AF 0001BO 0001Bl 0001B2 0001B3 0001B4 * EC 734110 00017240 00017250 00017260 00017270 00017290 SETCNT2,SNSON+CNT40 TURN SENSE ON AND ADD 40 RETURN TO SENSE D LINK4,SENSED (\ .j f\ l. ) "--- 00017310 00017320 () ROS1 PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 0001C4 61CF ADDR1 ADDR2 2624 0001C5 0001C6 0001C7 0001C8 13C9 C8BF OFOO 61CF SOURCE STATEMENT BU SNSEVEN STMT 2621 * * STO AND STO BU LINK4,SENSEE STATIMG,ONES-SENSE SETCNT2,0 SNSEVEN 2642 SENSEE 2645 0001CB 5D21 0001CC 8400 0001CD 13F5 2648 * SENSE BYTES 22 AND 23 XFR FRUREG,AR 2650 SENSEF ORI WORK1,0 2653 2656 STO LINK4,CANCEL1 0001CE 0001CF 0001DO 000101 0001D2 0001D3 0001D4 0001D5 0001D6 A201 4460 8808 4242 4828 1001 118B 128B 620A F01MAY72 STO BU LINK4,SENSEF SNSEVEN 37 9/04/73 00017330 00017350 LOAD LINK RETURN RESET SENSE IN REG CLEAR FLAGS OUT GO SHIP 'EM 00017370 00017380 00017390 00017400 00017420 SENSE BYTES 20 AND 21 0001C9 13CB 0001CA 61CF 2659 2660 2662 2665 2668 2671 2674 2677 2680 2683 2686 2688 GO SHIP 'EM PAGE SENSE BYTES 18 AND 19 2627 SENSED 2630 SENSEDS 2633 2636 2639 EC 734110 RETURN TO SENSE F GO SHIP 'EM SOME MORE 00017440 00017450 GET ALU 1 FRU REG IN REG TO SEND THATS ALL - RETURN TO CANCEL 00017470 00017480 00017490 00017500 *********************************************************************** 00017520 * ENTRY SNSEVEN1 SNSEVEN SNSEVEN2 EXIT 00017530 00017540 00017550 00017560 00017570 00017580 00017590 00017600 00017610 00017620 *********************************************************************** 00017630 TO SEND WORK1 AND SETCNT1 ADD XOUTAIM,1 XFR WORK1,CBI ORI STATIMG,SETSTATA XFR XOUTAIM,XOUTA XFR STATIMG,STAT STO LINK1,BRETURN2 STO LINK2,CANCEL STO LINK3,CANCEL BU SERVRTN TO CHANNEL BUMP GATES SET ON CHANNEL BUS IN SET STAT A ON THIS WILL SET CONTROLS TO HARDWARE SET UP RETURN LINKAGE GO DO SERVICE 2690 *********************************************************************** 00017650 2691 * RETURN AFTER SENDING THE EVEN SENSE BYTE 00017660 2692 *********************************************************************** 00017670 0001D7 000108 0001D9 0001DA 0001DB 0001DC 0001DD 0001DE 00010F DF40 20EO 8840 9FOO 30E4 A201 C8F7 4E60 61D1 2695 SNSODD 2698 2701 2704 2707 2710 2713 SNSODD1 2716 2719 BOC ADD AND XFR BU SETCNT2,SNSON SET SENSE ON DBUS,SNSODD2 BR IF NOT STATIMG,SENSE SET SENSE GATE FOR HDWE SETCNT2,0 ADD ONE OR 40 CNT40,SNSODD3 BR IF ADD 40 XOUTAIM,1 BUMP ONE STATIMG,ONES-SETSTATA RESET STAT A SET ODD SENSE BYTE ON CBI SETCNT1,CBI RETURN TO PULL 2 EXIT 00017690 00017700 00017710 00017720 00017730 00017740 00017750 00017760 00017770 0001EO 0001E1 0001E2 0001E3 DF20 20DD C8BF 610D 2723 SNSODD2 2726 2729 2732 ANDM BOC AND BU SETCNT2,SNSOFF DBUS,SNSODD1 STATIMG,ONES-SENSE SNSODD1 TURN OFF SENSE BR IF NOT DO IT IF OS CONTINUE ON 00017790 00017800 00017810 00017820 0001E4 A240 0001E5 610D 2736 SNSODD3 2739 ADD BU XOUTAIM, X' 40' SNSODD1 BUMP GATE CONTINUE SOME MORE 00017840 00017850 ANDM BOC ORI ORM ROSl 3803-2 MICROCODE LISTING LOC 0001E6 0001E7 0001E8 0001E9 000lEA 0001EB OBJECT CODE 4150 2AD7 3AEC 3BF6 28F5 61E8 0001EC 0001ED 000lEE 0001EF 0001FO 0001Fl 0001F2 0001F3 0001F4 4490 4E88 8801 4828 28F5 3BF3 3AFO C8FE 5322 ADDRl ADDR2 PN 1846377 EC 734110 PAGE 38 STMT SOURCE 2743 SNSLINK 2746 2749 PULL2 2752 2755 2758 STATEMENT XFR CTlMAGE,CTI BOC STATA,SNSODD BOC STATC,PULLAB BOC STATD,CLEARAB ADROUT,CANCELl BOC PULL2 BU 2762 2765 2768 2771 2774 2777 2780 2783 2786 XFR XFR ORI XFR BOC BOC BOC AND XFR WORK1,XINA GET EVEN SENSE BYTE FROM ALU2 SETCNT1,XINB GET EVEN SENSE BYTE FROM ALU2 STATIMG,SETSTATD SET D TO IND GOT 'EM STATIMG,STAT ADROUT,CANCELl WAIT TO ASSURE STATD,PULLAB2 ALU2 HAS SEEN D. STATC,PULLABl ON STATIMG,ONES-SETSTATD THEN RESET IT LINK4,IC RETURN WITH 2 BYTES FROM ALU2 00017940 00017950 00017960 00017970 00.017980 00017990 00018000 00018010 00018020 POINT SO EXIT 00018040 CLEAR WORK 1 CLEAR COUNT REG 2 RETURN TO DO ONLY ALUl 00018060 00018070 00018080 PULLAB NOT PULL PULLABl PULLAB2 0001F5 628B 2790 CANCEL 1 BU CANCEL 0OOlF6 0400 0001F7 OEOO 0001F8 61EE 2794 CLEARAB 2797 2800 STO STO BU WORK1,0 SETCNT1,0 NOT PULL RESET SERVICE IN IF A ON GO TO SNS ODD BR IF ALU2 DONE WITH 1ST 2 SENSE BYTES BR IF HIO WAIT SOME MORE ( F01MAY72 9/04/73 00017870 00017880 00017890 00017900 00017910 00017920 () ROSl LOC 3803-2 MICROCODE LISTING OBJECT CODE 000200 ADDRl ADDR2 PN 1846377 STMT SOURCE STATEMENT 2804 2805 2806 2807 2808 2809 ORG EC 734110 PAGE FO 1MAY 72 BEGIN+X'200' ***************************** SERVICE ROUTINE ************************* *SERVICE IN SBR TESTS FOR ALL OUT TAGS DOWN, RAISES SERVICE IN AND * *LINKS TO ADDRESSES STORED IN LNK 1 2 AND 3 WHEN A TAG IS RECEIVED IN * *REPLY * ********************************************************************** 39 9/04/73 00018110 00018120 00018130 00018140 00018150 00018160 000200 65El 000201 61E6 000202 6583 2812 DMRRTNl BU 2815 BRETURN2 BU 2818 BRETURN4 BU DMRLNK SNSLINK DIALINK RETURN TO DMR ROUTINE RETURN TO SENSE OP RETURN TO SET DIAGNOSE 00018180 00018190 00018200 000203 000204 000205 000206 000207 000208 000209 2822 WRTBGN 2825 2828 2831 2834 2837 2840 STO STO STO AND ORI XFR AND LINK1,WRTFST LINK2,WCOSTOP LINK3,WCOHIO SETDIA1,ONES-LWROP SNSSTS2,WDCNTO PNDSTS,CBI WORK1,ZERO SET SERVICE SUBRTN RETURN SET STOP LINK SET HIO LINK RESET BIT FOR NEXT OPERATION SET WORD COUNT ZERO ON CLEAR BUS IN CLEAR WORK REG 1 00018220 00018230 00018240 00018250 00018260 00018270 00018280 00020A 380C 00020B 5222 2844 SERVRTN 2847 HIOLK BOC XFR OPRIN,SERVRTNO LINK3,IC BRANCH IF OP IN STILL UP(NO HIO) RETURN TO HIO ENTRY 00018300 00018310 00020C 00020D 00020E 00020F 000210 000211 000212 2851 SERVRTNO ORI 2854 SERVRTNl BOC BOC 2857 BOC 2860 2863 BOC XFR 2866 AND 2869 CTlMAGE,SVCIN ADROUT,HIOLK SVCOUT,SERVRTNl CMDOUT,SERVRTNl SUPO,SERVRTNl CTlMAGE,CTI CTlMAGE,ONES-SVCIN MASK SERVICE IN UP TEST FOR HALT I/O WAIT FOR TAG TO FALL WAIT FOR TAG TO FALL BRANCH TO SUPPRESS DATA RAISE SERVICE IN MASK SERVICE IN DOWN 00018330 00018340 00018350 00018360 00018370 00018380 00018390 1082 117E 127F CCFB 8702 4560 C400 8108 280B 2DOD 290D 390D 4150 C1F7 000216 6213 2872 * GO TO MAP 13-170 2874 SERVRTN2 BOC ADROUT,HIOLK 2876 * GO TO MAP 13-170 BOC CMDOUT,WHOA 2878 2880 * GO TO MAP 13-170 2882 BOC SVCOUT,TUTRTN 2884 * GO TO MAP 13-170 BU SERVRTN2 2886 000217 4150 000218 5122 2889 *** COMMAND OUT RESPONSE TO SERVICE IN SAYS STOP 2891 WHOA XFR CTlMAGE,CTI DROP SERVICE IN 2894 XFR LINK2,IC LINK TO PROGRAM 000213 280B 000214 2917 000215 2D36 2898 2899 2900 2901 000219 1349 TEST FOR HALT I/O STOPLINK TO PROGRAM SERVICE OUT RESPONSE TO SERVICE IN WAIT 00018410 00018420 00018430 00018440 00018450 00018460 00018470 00018480 00018500 00018510 00018520 ***************************** TEST TAPE UNIT ************************** 00018550 *THIS ROUTINE DETERMINES WHETHER THE TU STATUS PERMITS THE INITIATION * 00018560 *OF THE COMMAND. IT THEN LINKS TO THE PROPER INITIAL STATUS ROUTINE * 00018570 *********************************************************************** 00018580 2904 TRETURN2 STO LINK4,GRETURNO SET MODE RETURN 00018600 ROS1 3803-2 MICROCODE LISTING LOC 00021A 00021B 00021C 0002lD OBJECT CODE 604B 63DA 60E6 60ED ADDR1 ADDR2 PN 1846377 STMT SOURCE STATEMENT 2907 BU GODODIA 2910 TRETURN3 BU BSTWAIT2 2913 TRETURNO BU CMDPAR1 2916 SNSRESET BU DOITNOW EC 734110 PAGE FO 1MAY 72 RETURN TO PRESENT MODE STATUS NO-OP RETURN GO TO TERM UCK RTN 40 9/04/73 00018610 00018620 00018630 00018640 2919 *** PROTEST IS ENTERED ONLY BY WRITE TYPE COMMANDS TO CHECK FOR 2920 *** FILE PROTECT 2922 PROTEST STO LINK4,RTNPROT SET OPENERS RETURN 2925 BU OPENERS GO CHECK DEVICE STATUS 00018660 00018670 00018680 00018690 000220 3A2C 2929 PROTEST 1 BOC STATC,TUTESTIT BRANCH IF NOT READY 00018710 000221 000222 000223 000224 DC04 2025 8802 4828 2933 CHKLWR 2936 2939 2942 ANDM BOC ORI XFR SETDIA1,LWROP DBUS,CHKNFP STATIMG,SETSTATC STATIMG,STAT MASK FOR LOOP WRITE TO READ OP BRANCH IF OFF OTHERWISE SET STAT FOR ALU2 SET TO HARDWARE 00018730 00018740 00018750 00018760 000225 D440 000226 312C 000227 6400 2946 CHKNFP 2949 2952 ANDM BOC ~U WORK1,NFP DREG1,TUTESTIT COMREJC1 TEST FOR NOT FILE PROTECT BRANCH IF NOT FP GO TO COMMAND REJECT ROUTINE 00018780 00018790 00018800 000228 13D3 000229 64D5 2956 TUTEST 2959 STO BU LINK4,RTNTUTST OPENERS SET OPENERS RETURN GO CHECK DEVICE STATUS 00018820 00018830 00022A 13D4 00022B 64D5 2963 TUTEST1 2966 STO BU LINK4,RTNTUTS1 OPENERS SET OPENERS RETURN GO CHECK DEVICE STATUS 00018850 00018860 00022C 00022D 00022E 00022F 000230 000231 000232 2970 TUTESTIT ANDM 2973 BOC 2976 STO XFR 2979 XFR 2982 2985 BOC XFR 2988 FLAGS2,FORCEUC DREGO,TRETURNO SNSSTS2,ZERO CLEAR CLEAR STATC,SNSRESET LINK1 ,IC MASK FOR ALU FAILURE BRANCH IF SO TO SET UNIT CHECK RESET SENSE RESET DATA FLOW SENSE RESET DATA FLOW SENSE BR ON UC TETURN 00018880 00018890 00018900 00018910 00018920 00018930 00018940 000233 3A1C 000234 DB80 000235 301C 2992 TUTEST2 2995 2998 BOC ANDM BOC STATC,TRETURNO FLAGS2,FORCEUC DREGO,TRETURNO GO TO TERMINAL UNIT CHECK ROUTINE. IS FORCE UNIT CHK FLAG ON BR IF SO 00018960 00018970 00018980 000236 5022 3002 TUTRTN XFR LINK1 ,IC LINK TO STATUS HANDLING ROUTINE 00019000 00021E 13D2 00021F 64D5 DB80 301C 0700 4012 4012 3AlD 5022 3006 3007 3008 3009 3010 000237 000238 000239 00023A ********************************** CONTROL COMMANDS ******************* *********************************************************************** *CONTINIT ROUTINE HANDLES THE PRESENTATION OF INITIAL STATUS FOR ALL * *ACCEPTED CONTROL IMMEDIATE COMMANDS. * *********************************************************************** 3013 CONTINIT STO 3016 STO 3019 STO 3022 BU 0508 105D 115E 604A () PNDSTS,CHANEND LINK1,SRETURN4 LINK2,SRETURN5 GODODIAO EMIT CHANNEL END STATUS EMIT ACCEPT RETURN EMIT STACK RETURN GO TO PRESENT STATUS C) 00019030 00019040 00019050 00019060 00019070 00019090 00019100 00019110 00019120 () :~ ROSl LOC 3803-2 MIC]{UCorJ} OBJECT CODE lISTING PN 1846377 00023C 00023D 00023E 00023F 4242 4828 CCFB 2A4B STMT 3025 3026 3028 3030 3031 3033 3036 3039 3042 000240 000241 000242 000243 000244 000245 000246 000247 000248 4828 F01F 2066 F017 2066 5441 C1FE 8110 4150 3046 GODOIT 3049 3052 3055 3058 3061 3064 SKIPALU2 3067 3070 00023B 0500 ADDRl ADDR2 XFR XOM BOC XOM BOC XFR AND ORI XFR STATIMG,STAT CURCOMM,X'lF' DBUS,DOWTM64 CURCOMM, X' 17' DBUS,DOWTM64 XOUTBIM,XOUTB CTlMAGE,ONES-OPIN CTlMAGE,CUBUSY CTlMAGE,CTI 00024A 6249 3073 * GO TO MAP 13-190 3075 CTLWAIT BOC STATD,CHKERRS 3077 * GO TO MAP 13-190 3079 BU CTLWAIT 00024B 00024C 00024D 00024E 00024F 000250 D901 2051 DD40 3150 8801 C8F7 3083 CKCHAIN 3086 3089 3092 3095 3098 RESETA 000251 000252 000253 000254 000255 000256 CDBF F007 2057 D420 2040 6259 000257 000258 000259 00025A 00025B D410 2040 C8F6 4828 6246 000249 3B5C 00025C 2267 EC 734110 PAGE SOURCE STATEMENT F01MAY72 *** CHANNEL RESPONDED WITH SERVICE OUT TO STATUS IN OR STATUS WAS *** ACCEPTED CONTSERV STO PNDSTS,ZERO RESET STATUS REGISTER *** ENTRY AT CONTSTAK SAYS THE CHANNEL RESPONDED TO STATUS IN WITH *** COMMAND OUT AND THE CHANNEL END IS STILL PENDING CONTSTAK XFR XOUTAIM,XOUTA SET DATA FLOW MASK XFR STATIMG,STAT RESET STAT D IF ON AND SETDIA1,ONES-LWROP RESET LWR BIT FOR NEXT OPERATION BOC STATA,CKCHAIN BRANCH IF REWIND OR DSE ANDM BOC ANDM BOC ORI AND 41 9/04/73 00019140 00019150 00019160 00019170 00019180 00019190 00019200 00019210 00019220 SET STATS TO HDWE CHK FOR WTM BR IF SO ARE WE DS ERG BR IF SO TRAP ALU 2 TO PERFORM OP DROP OP IN RAISE CTL UNIT BUSY CHANGE TAGS 00019240 00019250 00019260 00019270 00019280 00019290 00019300 00019310 00019320 IS ALU 2 FINISHED? 00019340 00019350 00019360 00019370 WAIT FLAGS ,CHAIN MASK TO CHECK CHAIN BIT DBUS,CKEOTBOT BRANCH IF NOT CHAINED SETDIA2,DEVBSY TEST FOR DEV BSY FLG DREG1,RESETA BRANCH IF ON TO RESET A STAT STATIMG,SETSTATD SET STAT D TO INDICATE CHAING STATIMG,ONES-SETSTATA RESET STAT A 00019390 00019400 00019410 00019420 00019430 00019440 3102 CKEOTBOT AND 3105 XOM 3108 BOC 3111 ANDM 3114 BOC BU 3117 SETDIA2,ONES-DEVBSY CURCOMM,X'07' DBUS,CHKBOT WORK1,EOT DBUS,GODOIT RSTSTATA 00019460 00019470 00019480' 00019490 00019500 00019510 3121 CHKBOT 3124 3127 RSTSTATA 3130 3133 ANDM BOC AND XFR BU WORK 1 ,BOT MASK TO CHECK BOT DBUS,GODOIT BRANCH IF NOT ON STATIMG,ONES-SETSTATA-SETSTATD OT ON--RESET STATA STATIMG,STAT RESET TO HDWE SKIPALU2 GO TO SKIP ALU2 AND HANDLE INTRPT 00019530 00019540 00019550 00019560 00019570 3137 CHKERRS BOC ALUR,BIGPROB 00019590 3140 3141 3142 3143 3144 3145 RST THE DEV BSY DIAG FLAG MASK FOR REWIND COMMAND BRANCH IF IT IS TO CHECK BOT CMD IS DSE--CHECK EOT BRANCH IF NOT EOT GO RESET STAT A EOT IS ON WAS EXECUTION ERROR FREE? ***************************** CONTROL CMD END ************************* 00019610 * * * * * DETERMINE CONTROL CMD ENDING STATUS---ALU2 IS FINISHED. IF CHANNEL * END IS NOT PENDING AND NO OTHER STATUS IS TO BE PRESENTED, HAVE ALU2* ARM THE DEVICE END PRIME. OTHERWISE SET STATUS PENDING FLAG. CHECK * FOR CATASTROPHIC ERROR IN ALU2 AND SET EQUIPMENT CHECK IF SO. GO TO * TERMSTAT ROUTINE TO PRESENT STATUS IF THERE IS ANY. * 00019620 00019630 00019640 00019650 00019660 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 EC 734110 PAGE 42 STMT SOURCE STATEMENT F01MAY72 9/04/73 3146 *********************************************************************** 00019670 00025D 00025E 00025F 000260 000261 000262 000263 000264 000265 000266 3A68 276E 2B6C 8504 F504 2072 2A72 8904 6291 6609 3150 3153 3156 3159 3162 3165 3168 3171 3174 3177 000267 000268 000269 00026A 00026B 8710 8526 C8F7 4828 625F 3181 BIGPROB 3184 SIGUC 3187 3190 3193 ORI ORI AND XFR BU SNSSTS2,EQUIPCK SET EQUIPMENT CHECK IN SENSE DATA PNDSTS,DEVEND+UNITCHK+CUE SET DE,CUE,UC IN STATUS STATIMG,ONES-SETSTATA RESET STAT IN REG STATIMG,STAT FOR LATER CONTEND 1 GO BACK 00019810 00019820 00019830 00019840 00019850 00026C 8525 00026D 6260 3197 SIGUX 3200 ORI BU PNDSTS,DEVEND+UNITEXC+CUE SET DE,CUE,UX IN STATUS CONTEND2 GO BACK 00019870 00019880 00026E 8708 00026F 6268 3204 WRTPROB 3207 ORI BU SNSSTS2,DATACK SIGUC SET DAT CHECK IN SENSE GO SET NIT CHECK 00019900 00019910 000270 C508 000271 6296 3211 NOTNOW 3214 AND BU PNDSTS,CHANEND TERMSTA2 CLEAR PENDING STATUS REG GO TO TERMINAL STATUS 00019930 00019940 000272 000273 000274 000275 000276 000277 000278 3218 ONLYDE 3221 3224 3227 3230 DEDUN 3233 3236 STO XFR AND XFR BOC BOC BU XOUTBIM,NDXSDE RT EMIT ALU2 BRANCH ADDRESS XOUTBIM,XOUTB TRAP ALU2 TO SET DE PRIME STATIMG,ONES-SETSTATC-SETSTATD RESET STATS C AND D STATIMG,STAT SET TO HDWE STATD,CKDEER BRANCH IF DONE STATC,CKDEER BRANCH IF ALU2 HAS PRIMED DEDUN GO BACK IF NOT DONE 140A 5441 C8FC 4828 3B8F 3A8F 6276 3239 3240 3241 3242 000279 00027A 00027B 00027C 0500 105F 116A 604A BOC BOC CONTEND 1 BOC CONTEND2 ORI CONTEND3 XOM BOC BOC ORI BU DOWTM64 BU STATC,SIGUC DFLER,WRTPROB STATB,SIGUX PNDSTS,DEVEND PNDSTS,DEVEND DBUS,ONLYDE STATA,ONLYDE FLAGS,STATPNDG TERMSTAT BEGWRTTM BRANCH IF ALU2 SIGNALLED UNIT CHECK BRANCH IF DATA FLOW HAD AN ERROR BRANCH IF ALU2 SIGNALLED UNIT EXCP SET DEVICE END IN STATUS IS STATUS DEV END ALONE BRANCH IF YES BRANCH IF UNCHAINED RWD OR DSE SET STATUS PENDING FLAG GO TO TERMINAL STATUS STO STO STO BU PNDSTS,ZERO LINK 1 , SRETURN6 LINK2,WATESUM GODODIAO EMIT CLEAN STATUS EMIT ACCEPT RETURN EMIT STACK RETURN GO SET DIAGNOSTIC FLAGS C) 00020040 00020050 00020060 00020070 00020090 00020100 00020110 00020120 * ***************************** WRITE ROUTINE *************************** *********************************************************************** * WRITINIT FETCHES THE FIRST BYTE OF WRITE DATA, CHECKS FOR WORD COUNT* () 00019700 00019710 00019720 00019730 00019740 00019750 00019760 00019770 00019780 00019790 *** 00019960 00019970 00019980 00019990 00020000 00020010 00020020 *********************************************************************** *CLEANIT ROUTINE HANDLES THE PRESENTATION OF INITIAL STATUS FOR ALL * *ACCEPTED NON IMMEDIATE COMMANDS EXCEPT SENSE. * *********************************************************************** 3245 CLEANIT 3248 3251 3254 3257 3258 3259 3260 c CONTEND C) 00020140 00020150 00020160 00020170 () ROS1 PN 1846377 3803-2 MICROCODE LISTING PAGE 43 STMT SOURCE STATEMENT F01MAY72 3261 * ZERO AND TRAPS ALU2 TO EXECUTE THE WRITE OP. IN ADDITION, A RIPPLE * 3262 * PATTERN IS GENERATED FOR OFF LINE MODE. THE PATTERN IS UPDATED AT * 3263 * EACH SERVICE OUT AND XFERRED TO CHAN BUS IN REG. IN OFF LINE MODE * 3264 * THE CHAN BUS IN REG IS WRAPPED AROUND TO CHAN BUS OUT TO PROVIDE * 3265 * RIPPLE WRITE DATA. REQ TIE AND SET DIAGNOSE COMMANDS WILL ALSO USE * 3266 * THIS ROUTINE TO FETCH THE FIRST BYTE OF DATA. * 3267 *********************************************************************** 9/04/73 00020180 00020190 00020200 00020210 00020220 00020230 00020240 000270 6172 3270 BRETURN1 BU DOTIEMS1 RETURN TO TIE MODE SET ROUTINE 00020260 00027E 6300 3274 WCOSTOP BU SETUNTCK GE SET DATA CHECK DEV NOT STARTED 00020280 00027F 050E 000280 8904 000281 6344 3278 WCOHIO 3281 3284 STO ORI BU PNDSTS,CHANEND+DEVEND+UNITCHK SET DE,CE,AND UC IN STATUS 00020300 FLAGS,STATPNDG SET STATUS PENDING FLAG 00020310 HIONOP GO TO HIO NOT OPERATING 00020320 000282 000283 000284 000285 C7FD DOC8 3086 3470 3288 WRTFST 3291 3294 3297 AND ANDM BOC BOC SNSSTS2,ONES-WDCNTO CURCOMM,X'C8' DREGO,BUMPRIP DREG4,BRETURN1 RESET WORD COUNT ZERO IN SENSE MASK FOR MODE SET TYPE CMD BRANCH IF LWR CMD BRANCH IF SO 00020340 00020350 00020360 00020370 000286 000287 000288 000289 2488 660C 8720 660C 3301 BUMPRIP 3304 3307 SETFLAG 3310 BOC BU ORI BU BOPE,SETFLAG BEGWRITE SNSSTS2,BUSOC BEGWRITE SET BUS OUT CHK 00020390 00020400 00020410 00020420 00028A 6340 3314 WRTHIO BU HIOPERG 00028B 00028C 000280 00028E 3319 CANCEL 3322 SETSTOP 3325 SETSTOP1 3328 AND ORI XFR BU STATIMG,ONES-SENSE-SETSTATA RESET SENSE STATS STATIMG,STOP SET STOP IN STAT IMAGE REG STATIMG,STAT XFR IMAGE REG TO HDWE STAT REG BSTWAIT GO WAIT FOR ALU2 COMPLETION 00020470 00020480 00020490 00020500 3332 CKDEER 3335 BOC BOC ALUR,SIGUC STATA,NOTNOW 00020520 00020530 LOC OBJECT CODE C8B7 8880 4828 63B8 00028F 2268 000290 2A70 ADDR1 ADDR2 EC 734110 GO TO HIO OPERATING ROUTINE BRANCH IF ALU ERROR BRANCH IF REWIND OR DSE 00020440 ROSl LOC PN 1846377 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE STMT 3338 3339 3340 3341 3342 3343 3344 3345 3346 3347 3348 3349 3350 3351 3352 EC 734110 PAGE SOURCE STATEMENT F01MAY72 ****************************** TERMINAL STATUS ************************ * TERMINAL STATUS IS USED BY ALL FUNCTIONAL COMMANDS TO PRESENT * * ENDING STATUS. THE CALLING ROUTINE, UP ON ENTRY, MUST HAVE SET THE * * PENDING DEVICE ADDRESS REG AND THE PENDING STATUS REG. TERM STAT * * WILL DETERMINE IF CONTROL UNIT END MUST BE ADDED TO THE STATUS AND * * THEN WILL PRESENT THE STATUS IN THE APPROPRIATE MANNER. IF THE CHAN-* * NEL REMAINED CONNECTED STATUS IN WILL BE RAISED IMMEDIATELY. IF NOT * * AN INTERRUPT CYCLE WILL BE INITIATED WITH THE APPROPRIATE REQUEST- * * IN DEPENDING ON CHAINING. CONTROL UNIT BUSY WILL BE RESET IF APPLI- * * CABLE AND HOLD INTERFACE WILL BE SET IF STATUS PENDING OR STACK FLAG* * IS SET. IF PENDING STATUS IS CLEAN (RWD OR DSE) STATUS WILL NOT BE * * PRESENTED. THE CHECKING FOR CUE PORTION IS ALSO USED BY IDLESCAN * * ROUTINE UNDER THE CONTROL OF STATA. A GENERAL RESET WILL BE TERM* * INATED BY THIS ROUTINE VIA IDLESCAN. * *********************************************************************** OPRIN,TERMSTAl IS OP-IN UP MIFTR,CHKCONT BRANCH IF MIS AVAILABLE 44 9/04/73 00020550 00020560 00020570 00020580 00020590 00020600 00020610 00020620 00020630 00020640 00020650 00020660 00020670 00020680 00020690 000291 38AO 3355 TERMS TAT BOC 000292 2334 3359 BHERE 000293 D986 000294 2096 000295 8120 3363 TERMSTAO ANDM 3366 BOC 3369 ORI FLAGS,STATPNDG+STACK+CONCON NEED TO HOLD INTF DBUS,TERMSTA2 NO, SKIP TO RESET CUB CTIMAGE,HOLDINT RAISE HOLD INTERFACE 00020750 00020760 00020770 000296 000296 000297 000298 000299 3372 TERMSTA2 EQU 3374 AND 3377 XFR 3380 AND 3383 XFR STATIMG,ONES-SETSTATA-SETSTATC (DSE OR RWD SWITCH) STATIMG,STAT SET STATS TO HDWE CTIMAGE,ONES-CUBUSY RESET CONTROL UNIT BUSY CTIMAGE,CTI XFR CHANNEL TAG IMAGE TO HDWE * 00020790 00020800 00020810 00020820 00020830 C8F5 4828 ClEF 4150 BOC TERMSTA3 BOC MIFTR,MIFTR05 * GO TO MAP 13-200 ANYCUEA BOC NCUEA,CHKAFLG * GO TO MAP 13-200 ORI PNDSTS,CUE * GO TO MAP 13-200 ORI FLAGS,CUEA * GO TO MAP 13-200 XFR CUREA * GO TO MAP 13-200 BU ANYCUEA 00029F 629B 3387 3389 3391 3393 3395 3397 3399 3401 3403 3405 3407 0002AO 0002Al 0002A2 0002A3 0002A4 0002A5 8101 28A4 4150 3892 C1FE 6292 3411 TERMSTAl ORI 3414 BOC 3417 XFR 3420 BOC 3423 HADHIO AND 3426 BU 0002A6 0002A7 0002A8 0002A9 4009 D940 20AA 8520 3430 CHKAFLG 3433 3436 3439 CUEPNDG 00029A 2329 00029B 25A6 00029C 8520 00029D 8940 00029E 4009 () C) XFR ANDM BOC ORI 00020710 BRANCH IF MIS AVAILABLE *** 00020730 *** 00020850 GO CHECK RESET 00020860 00020870 00020880 00020890 00020900 00020910 00020920 00020930 00020940 00020950 CTIMAGE,OPIN ADROUT,HADHIO CTIMAGE,CTI OPRIN,BHERE CTIMAGE,ONES-OPIN BHERE RAISE MICROPGM OP IN BRANCH IF HIO SET TO HARDWARE OP IN STILL UP? RESET UPGM OP IN NO, CHANNEL DISCONNECTED 00020970 00020980 00020990 00021000 00021010 00021020 CUREA FLAGS,CUEA DBUS,CHKCHAIN PNDSTS,CUE RESET GEN RESET LATCH IF ON MASK FOR CUE A FLAG BRANCH IF OFF SET CUE IN STATUS 00021040 00021050 00021060 00021070 BRANCH IF NOT CUE ON A SET CONTROL UNIT END IN STATUS SET CONTROL UNIT END IN FLAGS ATTEMPT TO RESET CUEA C) ROS1 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846377 STMT EC 734110 SOURCE STATEMENT PAGE FO 1MAY 72 45 9/04/73 3443 CHKCHAIN aRM 3446 BOC 3449 TERMSTA4 BOC 3452 ANDM 3455 BOC 3458 BOC 3461 SETREQA ORI 3464 BU PNDSTS,O DBUS,CHEKTIO OPRIN,STSIMME FLAGS, CHAIN DBUS,NOTCHAIN MIFTR,MIFTR06 REQTAGS,REQINA GOTOIDLE STATUS IS CLEAN IF RWD OR DSE BRANCH IF SO TO PREVENT INTERRUPT BRANCH IF CHANNEL STILL CONNECTED MASK TO TEST CHAINING BRANCH IF CHAIN BIT OFF BRANCH IF MIS AVAlLABE $$$ RAISE NON SUPPRESSIBLE REQ-IN A GO WAIT FOR POLL 00021090 00021100 00021110 00021120 00021130 00021140 00021150 00021160 0002B2 9000 0002B3 20AC 0002B4 6304 3468 CHEKTIO 3471 3474 CURCOMM,O DBUS,TERMSTA4 IDLESCAN MASK FOR TIO CMD BRANCH IF IT IS OTHERWISE GO LOOK FOR STATUS 00021180 00021190 00021200 0002B5 0002B6 0002B7 0002B8 0002B9 0002BA 0020 32BA 233F 8A08 4A48 6302 3478 3481 3484 3487 3490 3493 SETDIA2,BLKINTS DREG2,GODOIDLE MIFTR,MIFTR07 REQTAGS,SUPREQA REQTAGS,MIST IDLEPEND MASK FOR DIAGNOSTIC BLOCK INTERRUPT BRANCH IF ON TO BYPASS REQUEST-IN BRANCH IF MIS AVAILABLE *** RAISE SUPPRESSIBLE REQUEST IN A RAISE REQ-IN TO HARDWARE WAIT FOR POLL 00021220 00021230 00021240 00021250 00021260 00021270 0002BB 0002BC 0002BD 0002BE 105A 115B 125B 6060 3497 STSIMME 3500 3503 3506 LINK1,SRETURNO LINK2 , SRETURN 1 LINK3,SRETURN1 STATRTN LOAD STS SUBRTN ACCEPT RETURN LOAD STS SUBRTN STACK RETURN LOAD STS SUBRTN HALT RETURN GO TO STATUS SUBROUTINE 00021290 00021300 00021310 00021320 0002AA 0002AB 0002AC 0002AD 0002AE 0002AF 0002BO 0002B1 9500 20B2 38BB 0901 20B5 233B 8A04 62B9 aRM BOC BU NOTCHAIN ANDM BOC BOC DOREQA ORI GOTOIDLE XFR GaDa IDLE BU STO STO STO BU 0002BF 8120 0002CO 4044 3509 *********************************************************************** 00021340 3510 * TERMSTAK IS ENTERED WHEN ENDING STATUS IN RECEIVES A COMMAND OUT * 00021350 3511 * RESPONSE (STACK). INBOUND TAGS WILL BE RESET,BUSY WILL BE REMOVED. * 00021360 3512 * FROM THE STATUS (IF APPLICABLE), THE OPPOSITE INTERFACE WILL BE * 00021370 3513 * RELEASED FROM PING HOLD (IF APPLICABLE), AND A NORMAL ENDUP EXIT * 00021380 3514 *********************************************************************** 00021390 3516 TERMSTAK ORI CTlMAGE,HOLDINT RAISE HOLD INTERFACE 00021400 3519 XFR PING RELEASE THE OTHER INTERFACE 00021410 0002C1 0002C2 0002C3 0002C4 3523 TERMSTK1 AND 3526 AND 3529 GETOFF AND 3532 BU C1FC C5EF C400 62DE CTlMAGE,ONES-OPIN-ADDIN RESET OPIN AND ADRESS IN PNDSTS,ONES-BUSY RESET BUSY BIT IN STATUS WORK1,ZERO CLEAR WORK1 CLEANUP GO TO RAISE REQ-IN 00021430 00021440 00021450 00021460 3535 *********************************************************************** 00021480 3536 * TERMACC IS ENTERED WHEN ENDING STATUS IN RECEIVES A SERVICE OUT * 00021490 3537 * RESPONSE (STATUS ACCEPTED). IF CHAINING OR CONTINGENT CONNECTION IS * 00021500 3538 * INDICATED, THE DEVICE WILL REMAIN COMMITTED. STAT 0 WILL BE SET TO * 00021510 3539 * NOTIFY ALU2 TO CLEAR A DEVICE END PRIME IF APPLICABLE. THE HOLD * 00021520 3540 * INTERFACE LINE WILL BE RAISED IF THE RESERVE FLAG, CHAIN FLAG,OR * 00021530 3541 * CONTINGENT CONNECTION FLAG IS ON. INBOUND TAGS WILL BE RESET AND * 00021540 3542 * CHAN BUS IN WILL BE CLEARED. IF NOT ,CHAINING EXIT WILL BE TO IDLE * 00021550 3543 * TO SCAN FOR STATUS. IF CHAINING, A LOOP HANGING ON SUPPRESS OUT WILL* 00021560 3544 * BE EFFECTED. IF CHANNEL CALLS CHAIN OFF SUPPRESS OUT WILL DROP * 00021570 3545 *********************************************************************** 00021580 0002C5 C1FE 0002C6 0400 3548 TERMACC 3551 AND STO CTlMAGE,ONES-OPIN WORK1,0 RESET OP IN CLEAR A WORK REG 00021600 000;>1610 I ROSl 3803-2 MICROCODE LISTING LOC 0002C7 0002C8 0002C9 OBJECT CODE D981 20CA 62CC ADDRl ADDR2 PN 1846377 STMT 3554 3557 3560 SOURCE STATEMENT ANDM FLAGS,CHAIN+CONCON BOC DBUS,CKRESRV BU DROPTAGS F01MAY72 MASK TO CHECK CHAIN AND CONT CONN BRANCH IF BOTH OFF OTHERWISE GET OUT BRANCH IF MIS AVAILABLE 46 9/04/73 00021620 00021630 00021640 *** 00021660 3564 CKRESRV 0002CB ClDF 3568 RSTHLDIN AND CTlMAGE,ONES-HOLDINT 0002CC 0002CD 0002CE 0002CF 3572 DROPTAGS ANDM 3575 BOC 3578 ORI 3581 XFR PNDSTS,DEVEND DBUS,MOVEON STATIMG,SETSTATD STATIMG,STAT MASK FOR DEVICE END BRANCH IF NOT NOTIFY ALU2 TO CLEAR DEP XFR STATIMG TO HDWE STAT REG 00021700 00021710 00021720 00021730 0002DO 3BE2 0002Dl 62DO 3585 RSTNTDUN BOC 3588 BU STATD,MOVEON RSTNTDUN ALU2 DONE NO, GO BACK 00021750 00021760 0002D2 0002D3 0002D4 0002D5 0002D6 0002D7 0002D8 3592 DODES 3595 3598 3601 3604 3607 DODESl 3610 BOC BOC ANDM BOC STO XFR PNDSTS,O MASK FOR CLEAN STATUS DBUS,DODESl BRANCH IF SO TO DESELECT DREG6,CLEANUP PNDSTS,ONES-CUE-CUBUSY-CHANEND MASK FOR DES STASTS DBUS,ALLCLEAR BRANCH IF NONE XOUTBIM,NDXDES RT FETCH ALU2'S DESELECT DEVICE RTN XOUTBIM,XOUTB TRAP ALU2 TO RESET DEV COMMITTED LCH 0002D9 3BDB 0002DA 62D9 3614 DOITAGN 3617 RSTCMTD BOC BU STATD,ALLCLEAR DOITAGN 0002DB 0002DC 0002DD 0002DE 0002DF 3621 ALLCLEAR BOC ALUR,CLEANUP AND WORK 1 , ZERO 3624 3627 XFR WORK1,TUADR WORK1,CBI 3630 CLEANUP XFR 3633 XFR CTlMAGE,CTI 3635 * GO TO MAP 13-210 OPRIN,OPINDROP 3637 OPINDROP BOC BU IDLESCAN 3640 9500 20D7 36DE D5C7 20DB 1406 5441 22DE C400 4424 4460 4150 0002EO 38EO 0002El 6304 0002E2 0002E3 0002E4 0002E5 0002E6 0002E7 0002E8 0002E9 0002EA 0002EB 0002EC 0002ED 22E5 D981 20D2 D901 20DE 4460 DD10 20EC 8110 CDEF 4150 39ED 0002EE 0002EF 0002FO 0002Fl ClDF C9FE CAEF 4005 3644 3647 3650 3653 3656 3659 3662 3665 3668 3671 3674 3677 3679 3680 3682 3685 3688 3691 ORM MOVEON BOC ANDM BOC CLRBUSIN ANDM BOC XFR ANDM BOC ORI AND RLSCHANN XFR YESCHAIN BOC * * C) AND AND AND XFR MIFTR,MIFTR08 PAGE 0002CA 2343 D504 20E2 8801 4828 BOC EC 734110 ALUR,CLRBUSIN FLAGS,CHAIN+CONCON DBUS,DODES FLAGS,CHAIN DBUS,CLEANUP WORK1,CBI SETDIA2,CUBUSY DBUS,RLSCHANN CTIMAGE,CUBUSY SETDIA2,ONES-CUBUSY CTlMAGE,CTI SUPO,YESCHAIN RESET HOLD INTERFACE 00021680 00021780 00021790 00021800 00021810 00021820 00021830 00021840 BRANCH IF ALU2 COMPLETED GO BACK IF NOT 00021860 00021870 TRAP HERE IF ALU2 HDWE ERROR CLEAR A WORK REG RESET DEV ADDRESS REG CLEAR BUS IN RESET CHANNEL TAGS 00021890 00021900 00021910 00021920 00021930 00021940 00021950 00021960 WAIT FOR OP IN TO FALL GO TO IDLESCAN TO LOOK FOR INTS ALU2 ERROR TRAP HERE MASK TO CHECK CHAIN AND CONT CONN DESELECT DEVICE IF BOTH OFF MASK FOR CHAIN BRANCH IF NOT (CONT CONN) CLEAR CHAN BUS IN MASK FOR DIAGNOSTIC CU BUSY FLAG BRANCH IF OFF TO LEAVE CU NOT BUSY SET CU BUSY RESET THE FLAG DROP OP IN WAIT HERE UNTIL TRAPPED FOR ANOTHER SELECTION OR RESET CHAIN IF SUPPRESS OUT DROPS CTlMAGE,ONES-HOLDINT FLAGS,ONES-CHAIN RESET CHAIN BIT WE FELL THRU FLAGS1,ONES-ALLOWDSE RSTCOMTD RESET DEV COMMITEED LATCH IN SWITCH 00021980 00021990 00022000 00022010 00022020 00022030 00022040 00022050 00022060 00022070 00022080 00022090 00022100 00022110 00022120 00022130 00022140 00022150 ( '" . j ROS1 3803-2 MICROCODE LISTING LOC OBJECT CODE 0002F2 62D7 ADDR1 ADDR2 PN 1846377 STMT 3694 SOURCE STATEMENT BU DODES1 EC 734110 F01MAY72 GO TO SCAN FOR STATUS OR SOMETHING PAGE 47 9/04/73 00022160 ROS1 PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 000300 000300 4011 000301 6301 000302 6302 000303 62B8 ADDRl ADDR2 PAGE STMT 3699 3700 3701 3702 3703 3704 3705 3706 3707 3708 3709 3710 3711 3712 3713 3714 3715 3716 3717 3718 3719 3720 3721 3722 3723 3724 3725 3726 3727 3728 3729 SOURCE STATEMENT F01MAY72 ORG BEGIN+X'300' ******************************* IDLESCAN ****************************** * IDLESCAN SERVES PRIMARILY THREE FUNCTIONS: * * 1.SCAN FOR CONTROL UNIT ENDS ON BOTH A AND B INTERFACES * * 2.SCAN FOR DEVICE ENDS OWED DUE TO DE PRIME BITS BEING SET * * 3.MAINTAIN INTERFACE ENABLE/DISABLE SWITCHES * * * * THE PRIOR SEQUENCE DEPICTS THE ACTUAL SCANNING SEQUENCE. THE CONTROL* * UNIT END LATCH FOR THE LAST SELECTING CHANNEL WILL BE SCANNED FIRST * * AND THE DEVICE ENDS DUE TO DE PRIMES WILL BE PRESENTED TO INTERFACE * * A FIRST. IN ALL THE CASES PREV- * * IOUSLY MENTIONED, A CONTROL UNIT RESERVED WILL RESULT IN ONLY THE * * RESERVING INTERFACE BEING INTERRUPTED FOR THE DURATION OF THE RESERV* * ALL STATUS WILL BE HELD FOR THE OPPOSITE INTERFACE AND WILL BE PRES-* * ENTED'UPON THE CONTROLLERS RELEASE. * * WHEN A DEVICE END HAS BEEN FOUND BY ALU2, ALUl WILL REQUEST TO * * PRESENT STATUS TO THE PROPER INTERFACE. IN THE MEANTIME,ALU2 WILL BE* * SPINNING ON ALU1'S STAT 0 WHICH INDICATES ALU2 IS TO RELEASE THE * * DEV END PRIME. STAT 0 WILL BE SET BY ALU1 ONLY WHEN THE CHANNEL * * HAS ACCEPTED THE STATUS. SHOULD,ALU1 RECEIVE A NON-POLLING INITIAL * * SELECTION DURING THE INTERIM, ALU2 WILL BE TRAPPED TO LOCATION 0 AND* * THE INTERRUPTING DE PRIME WILL NOT BE RESET. * AFTER A COMPLETE SCAN HAS BEEN EXECUTED AND NO INTERRUPTABLE STS * * FOUND, AN ALU CHECKOUT ROUTINE WILL BE ENTERED. UPON COMPLETION OF * * THE ALU CHECKOUT IDLESCAN WILL BE RE-INVOKED. ANY ERROR IN THE ALU * * CHECKOUT WILL RESULT IN A MICROCODE FORCED ALU ERROR TRAP * * BOTH INTERFACE CHAIN HOLD LINES WILL ALSO BE MAINTAINED IN IDLE. * * IF ANY STATUS IS FOUND(OUTSTANDING OK COMPLETED) THE CHAIN HOLD * * LINE FOR THE RESPECTIVE INTERFACE WILL REMAIN ON. THE CHAIN HOLD * * LINES BLOCK DISABLING AN INTERFACE IF THE CONTROLLER IS HOLDING ANY* * STATUS FOR THAT INTERFACE. * 3730 ******i*********************************************** ***************** FORCE A HARD ERROR 3733 3735 3737 3739 3741 3744 TROUBLE XFR HDWERR * GO TO MAP 13-240 HANGHERE BU HANGHERE * GO TO MAP 13-220 IDLEPEND BU IDLEPEND DRETURNO BU DOREQA IDLESCAN EQU * CTIMAGE,ONES-CUBUSY RESET CONTROL UNIT BUSY CHKOPIN AND * GO TO MAP 13-250 BOC OPRIN,OPINUP WAIT FOR OP IN FALL OPINUP XFR CTIMAGE,CTI XFR TO HARDWARE IDLE ANDM FLAGS,STACK+STATPNDG MASK FOR STACKED AND STS PNDNG BOC DBUS,IDLEO BRANCH IF NOT BU NOTCHAIN GO RAISE REQ-IN 000305 000306 000307 000308 000309 3805 4150 0906 200A 62B5 3747 3749 3751 3753 3756 3759 3762 3765 00030A 00030B 00030C 000300 00030E lEOl 2399 F506 2010 8500 3769 IDLEO 3772 3775 IDLE 1 3778 3781 000304 000304 ClEF EC 734110 C) STO BOC XOM BOC ORI WAIT FOR SIO TIO OR SUMPIN WAIT FOR SOMETHING TO HAPPEN GO DEVICE RESERVED TO A FRUSAV,1 BUMP FRU REG MIFTR,MIFTR17 BRANCH IF MIS PNDSTS,UNITCHK+DEVEND MASK FOR DEP STATUS DBUS,SETSPIN BRANCH IF IT IS PNDSTS,O MASK LAST STATUS PRESENTED () 48 9/04/73 00022200 00022210 00022220 00022230 00022240 00022250 00022260 00022270 00022280 00022290 00022300 00022310 00022320 00022330 00022340 00022350 00022360 00022370 00022380 00022390 00022400 00022410 00022420 00022430 00022440 00022450 00022460 00022470 00022480 00022490 00022500 00022510 00022530 00022540 00022550 00022560 00022570 00022580 3 00022600 3 00022610 00022620 3 00022630 3 00022640 00022650 00022660 00022670 00022690 00022700 000;12710 00022720 00022730 o .~ J ~ \~- -) ROS1 PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 00030F 3601 ADDR1 ADDR2 STMT 3784 SOURCE STATEMENT BOC DREG6,HANGHERE 000310 2200 3788 SETSPIN 000311 140B 000312 5441 3792 STO 3795 SETSPIN1 XFR 000313 3B15 000314 6313 000315 0500 000316 003F 000317 2346 000318 000319 00031A 00031B 2A1C 8808 4828 629A 00031C C9F7 BOC EC 734110 BRANCH IF UNIT CHECK IS ON PAGE F01MAY72 49 9/04/73 00022740 ALUR,TROUBLE BRANCH IF ALU2 HAD AN ERR 00022760 XOUTBIM,NDXABRT XOUTBIM,XOUTB BRT SET ALU2 TO INIT TRAP ALU2 00022780 00022790 3798 * GO TO MAP 13-260 STATD,CLRSTS 3800 SETSPIN2 BOC 3802 * GO TO MAP 13-260 3804 BU SETSPIN2 WAIT UNTIL 00022810 00022820 00022830 00022840 3808 CLRSTS 3811 3813 * 3815 STO STO PNDSTS,ZERO CURCOMM,ONES-192 BOC MIFTR,MIFTR09 CLEAR PENDING STATUS REG INSURE LST CMD IS NOT TIO FOR CUE SEARCH IN TERMS TAT BRANCH IF MIS AVAILABLE *** 00022860 00022870 00022880 00022890 3819 ITSRSVD 3822 3825 3828 BOC ORI XFR BU STATA,RSTRESET STATIMG,SETSTATA STATIMG,STAT TERMSTA3 GO LOOK FOR DEP IF STAT A SET 1ST SWITCH ON SET TO HARDWARE GO CHECK FOR CUE ON RESERVED INTF 00022910 00022920 00022930 00022940 3833 RSTRESET AND FLAGS,ONES-RESETOK ALU2 FINISHES RESET THE ALL RESET FLAG 00022970 ROS1 LOC 000310 00031E 00031F 000320 PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE 0800 0504 1E02 2359 ADDR1 ADDR2 STMT 3836 3837 3838 3839 3840 3841 3842 3843 3844 3845 3846 3847 3848 3849 3850 3851 3852 3853 3854 3855 3856 3857 3858 3859 3860 3861 3862 3863 3864 3865 3866 3867 3868 3869 3871 3874 3877 3880 EC 734110 PAGE SOURCE STATEMENT F01MAY72 *********************************************************************** * DEPRIMES WILL SEARCH ALL DEVICES FOR ANY OUTSTANDING PRIMES AND * * CHECK THE DEVICE TO SEE IF IT IS STILL BUSY. WHEN A DEVICE IS FOUND * * NOT BUSY,A CHECK WILL BE MADE TO SEE IF IT IS READY. IF READY,THE * * CONTROLLER WILL RAISE REQ-IN TO THE APPROPRIATE PATH AND WAIT FOR * * SELECTION TO PRESENT DEVICE END ALONE. IF NOT READY, DEVICE END, * * UNIT CHECK WILL BE PRESENTED. * * DEVICE END PRIMES ARE SET ON ANY CONTROL CMD THAT COMPLETES WITHOUT* * EXCEPTIONAL STATUS, A TIO TO A BUSY DEVICE(DUE TO SWITCHED), AND * * REWIND AND DATA SECURITY ERASE COMMANDS AT CHANNEL END TIME. * * ON INITIAL KICKOFF ALU2'S STATS ACTIVE HAVE THE FOLLOWING MEANING: * * ALU2 STAT B ALU2 FOUND A DEVICE END PRIME * * FOR THE DESIRED INTERFACE(A OR B) * * ALU2 STAT 0 = ALU2 DID NOT FIND ANY DEP'S FOR THE * * DESIRE INTERFACE. * * * * IF ALU2 FOUND A PRIME,THEN THE STATS WILL MEAN: * * ALU1 STAT C ALU1 HAS SET THE DEVICE ADDRESS PROVIDED * * BY ALU2 IN THE TU ADDRESS REG ALONG WITH * * SWITCH SELECT. * * ALU2 STAT B ALU2 FOUND DEVICE WAS STILL BUSY BUT HAS * * ANOTHER DEP FOR ANOTHER DEVICE * * ALU2 STAT C ALU2 FOUND DEVICE WAS NOT BUSY BUT READY * * WAS DROPPED. * * ALU2 STAT B AND STAT C = ALU2 FOUND DEVICE NOT BUSY * * AND READY * * ALU2 STAT 0 = ALU2 HAS NO MORE DEP'S TO CHECK * * * * ALU2 STAT B AND STAT 0 = ALU2 FOUND LAST DEVICE BUSY * * AND NO MORE DEP'S * * * * IF CONTROLLER IS RESERVED ONLY THE DEP'S FOR THE RESERVED INTERFACE * * WILL BE SCANNED. * *********************************************************************** DEPRIMES STO STATIMG,ZERO CLEAR ALL STATS STO PNDSTS,DEVEND SET DEV END IN PNDING STATUS REG STO FRUSAV,2 BUMP FRU REG BOC MIFTR,MIFTROC BRANCH IF MIS AVAILABLE *** 50 9/04/73 00022990 00023000 00023010 00023020 00023030 00023040 00023050 00023060 00023070 00023080 00023090 00023100 00023110 00023120 00023130 00023140 00023150 00023160 00023170 00023180 00023190 00023200 00023210 00023220 00023230 00023240 00023250 00023260 00023270 00023280 00023290 00023300 00023310 00023320 00023330 00023340 00023350 00023360 000321 C9DF 3884 DEPRIM1 AND FLAGS,ONES-INTFB RESET INTF B FLAG 00023380 000322 4828 000323 1407 000324 5441 3888 DEPRIM2 3891 3894 XFR STO XFR STATIMG,STAT XOUTBIM,NDXPOLL XOUTBIM,XOUTB XFR STATS TO HOWE BRT EMIT ALU2 BRANCH ADDRESS *** TRAP ALU2 00023400 00023410 00023420 000325 2B28 000326 3B3A 000327 6325 3898 DEPRIM3 3901 3904 BOC BOC BU STATB,DEPRIM4 STATD,DEPRIM7 DEPRIM3 BRANCH IF ALU2 FOUND DEP BR ON STATD GO BACK AND LOOK SOME MORE 00023440 00023450 00023460 000328 4828 000329 3B3A 3908 DEPRIM4 3911 XFR BOC STATIMG,STAT STATD,DEPRIM7 SET STATS TO HOWE BRANCH IF DONE AND BSY DEV 00023480 00023490 00032A 3A38 00032B 4688 3915 3918 BOC XFR STATC,DEPRlMA PNDADDR,XINB BRANCH IF ALU2 FOUND DEV NOT BUSY FETCH DEP ADDRESS FROM ALU2 00023510 00023520 n \ ./ C) C) () ~ " PN 1846377 EC 734110 PAGE ROSl 3803-2 MICROCODE LISTING LOC 00032C 000320 00032E 00032F 000330 OBJECT CODE 4624 8802 4828 C8FD 6334 000331 000332 000333 000334 3A35 2B28 3B3A 6331 3937 DEPRIM5 3940 3943 3946 INSDELAY BOC BOC BOC BU STATC,DEPRIM6 STATB,DEPRIM4 STATD,DEPRIM7 DEPRIM5 BRANCH IF ALU2 FOUND DEV NOT BSY BRANCH IF ALU2 FOUND DEV BUSY BRANCH IF ALU2 HAD NO MORE DEP'S GO BACK AND LOOK FOR ONE OF THE ABOV 000335 000336 000337 000338 000338 000339 4828 2B38 8502 3950 DEPRIM6 3953 3956 3958 DEPRIMA 3960 CHKONA 3963 XFR BOC ORI EQU BOC BU STATIMG,STAT STATB,DEPRIMA PNDSTS,UNITCHK * MIFTR,MIFTR18 NOTCHAIN SET STATS TO HDWE BRANCH IF ALU2 FOUND DEV NOT BUSY SET UNIT CHECK IN STATUS 00033A 00033B 00033C 000330 00033E 00033F 000340 000340 23AA 62B5 2200 2B41 2361 4021 ClOD 4150 6513 000341 2379 000342 8080 000343 633C ADDRl ADDR2 STMT 3921 3924 3927 3930 3933 SOURCE STATEMENT XFR PNDADDR,TUADR SWITCH SELECT THE DEVICE STATIMG,SETSTATC SET STEP ALU2 STAT ORI XFR STATIMG,STAT XFR IMAGE TO HOWE STATIMG,ONES-SETSTATC RESET STAT C AND I NSDELAY BRANCH TO INSERT DELAY BU F01MAY72 BRANCH IF MIS AVAILABLE GO RAISE REQ-IN 51 9/04/73 00023530 00023540 00023550 00023560 00023570 00023590 00023600 00023610 00023620 00023640 00023650 00023660 00023670 3 00023680 3 00023690 BOC BOC BMASKED BOC SETHOLDS XFR AND XFR STEP0091 EQU RUNALU BU ALUR,TROUBLE STATB,DOHOLDS MIFTR,MIFTROD CURCOMM,AR CTIMAGE,O CTIMAGE,CTI * ALUCHECK GO DO ALU CHECK BEFORE RES CANNING 00023710 00023720 00023730 00023740 00023750 00023760 00023770 00023780 3990 DOHOLDS BOC 3993 MASKFORA ORI 3996 BU MIFTR,MIFTR13 CURCOMM,HOLDA BMASKED BRANCH IF MIS AVAILABLE SET INTF A HOLD RETURN 00023800 00023810 00023820 3967 3970 3973 3976 3979 3982 3984 3986 4001 4002 4003 4004 DEPRIM7 BRANCH IF ALU2 ERROR BRANCH IF A DEV BSY TO SET HOLD BRANCH IF MIS AVAILABLE *** MOVE CHAIN HOLD MASK TO ALU REG AND OUT CHAIN HOLD BITS SET NEW CHAIN HOLD STATUS TO HOWE *************************** HIO NOT OPERATING ************************ *THE HIONOP ROUTINE RETURNS THE CU TO IDLE STATUS IF HALT IO OCCURS * *WITH NO OPERATION IN PROGRESS. THE TU IS RELEASED IF NO STS PNDC. * ****************************************************** ***************** 00023860 00023870 00023880 00023890 C804 ClEO C9FE 0986 204C 8120 C400 62DE 4007 HIONOP 4010 HIONOP2 4013 4016 4019 4022 4025 4028 AND AND AND ANDM BOC ORI AND BU STATIMG,SETSTATB CLEAR STAT IMAGE REG CTIMAGE,HOLDINT+HOLDA+HOLDB CLEAR TAGS EXCEPT HOLDS FLAGS,ONES-CHAIN RESET CHAIN FLAG FLAGS,STATPNDG+STACK+CONCON MASK FOR PENDING STATUS DBUS,HIONOPl BRANCH IF NO STATUS TO DESELECT CTIMAGE,HOLDINT RAISE HOLD INTF WORK1,0 CLEAR WORKl CLEANUP SKIP DESELECTING THE DEVICE 00023910 00023920 00023930 00023940 00023950 00023960 00023970 00023980 00034C 62D7 4032 HIONOPl BU DODESl 00024000 000344 000345 000346 000347 000348 000349 00034A 00034B GO DESELECT THE DEVICE 4035 *********************************************************************** 00024020 4036 **************************** HIO OPERATING **************************** 00024030 ROSl LOC 00034D 00034E 00034F 000350 000351 PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE C9FE 4828 C1CO 8130 4150 000352 2852 0003"53 628C ADDRl ADDR2 EC 734110 PAGE 52 STMT SOURCE STATEMENT F01MAY72 9/04/73 4037 *THE HIOPERG ROUTINE DROPS THE CU OFF LINE, FIRST RAISING CU BUSY TO * 00024040 4038 *PROTECT ALU 1 FROM CHANNEL TRAP. * 00024050 4039 *********************************************************************** 00024060 4042 HIOPERG 4045 4048 4051 4054 AND XFR AND ORI XFR FLAGS,ONES-CHAIN RESET THE CHAIN FLAG STATIMG,STAT SET STOP IF APPLICABLE CTlMAGE,HOLDA+HOLDB RESET ALL TAGS EXCEPT CHAIN HOLDS CTlMAGE,CUBUSY+HOLDINT MSET BUSY AND INTF HOLD CTlMAGE,CTI DROP CHANNEL TAGS 00024080 00024090 00024100 00024110 00024120 4058 NOTYET 4061 BOC BU ADROUT,NOTYET SETSTOP 00024140 00024150 WAIT FOR ADDRESS OUT TO FALL GO TO AWAIT ALU 2 COMPLETION ROSl LOC 000354 000354 000355 000355 000356 000356 000357 000357 000358 000358 PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE 1408 0600 0800 1500 1600 ADDRl ADDR2 PAGE EC 734110 53 STMT 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075 SOURCE STATEMENT F01MAY72 **************************** RESETS *********************************** * GENERAL AND SELECTIVE RESETS SHARE SOME COMMON FUNCTIONS AND HAVE * *BEEN INCORPORATED IN SUCH A MANNER. GENERAL RESET WILL RESET ALL * *FLAGS AND STATS AND RESERVE BITS THAT APPLY TO THE SELECTING INTER- * *FACE. SELECTIVE RESET WILL PERFORM THE SAME FUNCTIONS AS GENERAL * *RESET EXCEPT THE CU RESERVED AND HOLD INTERFACE BI'I'S WILL NOT BE * *RESET. ALU2 WILL BE ACTUATED FOR THE PROPER RESET AFTER STATB HAS * *BEEN SET IN ACCORDANCE WITH THE SELECTING INTERFACE. CONTROL UNIT * *BUSY WILL BE SET FOR THE DURATION AND WILL BE RESET UPON SATISFACT- * *ORY COMPLETION BY ALU2. * * * *********************************************************************** 9/04/73 00024170 00024180 00024190 00024200 00024210 00024220 00024230 00024240 00024250 00024260 00024270 00024280 4077 4079 4081 4083 4085 4087 4089 4091 4093 4095 STEP0006 EQU GENRESET STO STEP0007 EQU STO STEP0008 EQU STO STEP0009 EQU STO STEP0010 EQU STO 00024300 00024310 00024320 00024330 00024340 00024350 00024360 00024370 00024380 00024390 * XOUTBIM,NDXGRST BRT * PNDADDR,O INITIALIZE DEV ADDRESS REG * STATIMG,O CLEAR STAT IMAGE REG * ALU1ERR,0 CLEAR ALUl ERROR REG * ALU2ERR,0 CLEAR ALU2 ERROR REG FETCH ALU2 SEL RESET RTN INDEX 000359 000359 2F73 00035A CB30 00035B C1CO 4098 STEPOOll EQU 4100 CHKPWRON BOC 4103 AND 4106 AND * PWRRST,PWRRESET BRANCH IF POWER ON RESET FLAGS2,A64+B64 INITIALIZE LSR CTlMAGE,HOLDA+HOLDB RESET ALL TAGS EXCEPT CHAIN HOLDS 00024410 00024420 00024430 00024440 00035C 00035C 00035D 00035E 00035F 000360 000361 000361 2E61· lA90 CA80 8B20 6369 4109 4111 4114 4117 4120 4123 4125 4127 * SCB,BAGAIN SEVMODA,X' 90 , FLAGS 1 , BNRZI FLAGS2,A64 DORESETS BRANCH IF BSELECTING INIT SEV MODE REG RESET ALL INTF A FLAGS SET ERSET MODE TO 6400 GO DO COMMON RESETS * PAGE HOP 00024460 00024470 00024480 00024490 00024500 00024510 00024520 00024530 000362 000363 000364 000365 1409 ClEO 8110 CAEO 646B STEP0049 EQU CHKONB BOC STO RSTNRZ AND ORI BU STEP0050 EQU BAGAIN BU 000366 0800 000367 2271 000368 2371 4131 SELRESET STO 4134 AND 4137 ORI 4140 SELRST2 AND 4142 * 4144 STO 4147 BOC 4150 SELRST3 BOC 000369 000369 4150 00036A 00036A 4M8 00036B 00036B 4828 4153 4155 4157 4159 4161 4163 STEP0057 EQU DORESETS XFR STEP0058 EQU XFR STEP0059 EQU DORSTO XFR GENRSTl *** XOUTBIM,NDXSRST BRT FETCH ALU2 SEL RESET RTN INDEX CTlMAGE,HOLDINT+HOLDA+HOLDB ALL CHNL TAG EXCEPT HOLDS CTlMAGE,CUBUSY RAISE CONTROL UNIT BUSY REQTAGS,CURFLAG+ANRZI+BNRZI RESET ALL OF FLAGSl EXCEP CU RESERVED AND RESET REQ-IN A'S STATIMG,O CLEAR ALUR,ERRRST BRANCH IF SEL RESET IS FOR ALU ERR MIFTR,MIFTR10 BRANCH IF MIS AVAILABLE 00024550 00024560 00024570 00024580 00024590 00024600 00024610 00024620 * * REQTAGS,MIST * STATIMG,STAT 00024640 00024650 00024660 00024670 00024680 00024690 CTlMAGE,CTI RESET CHANNEL TAGS RESET REQUEST IN'S SET STAT REG FOR ALU2 ROS1 3803-2 MICROCODE LISTING LOC 00036C 00036C 000360 000360 00036E 00036E 00036F 00036F 000370 000370 OBJECT CODE ADDR1 ADDR2 4624 5441 2375 C918 6396 PN 1846377 STMT 4165 4167 4169 4171 4173 4175 4177 4179 4181 4183 SOURCE STEP0060 DEVRST STEP0061 STATEMENT EQU * XFR PNDADDR,TUADR EQU * XFR XOUTBIM,XOUTB STEP0062 EQU * MIFTR,MIFTR11 BOC STEP0063 EQU * AND FLAGS,CUEB+RESETOK DOFORA STEP0064 EQU * BU DORST2 4187 ERRRST 4190 000371 8802 000372 6368 4193 4194 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207 ORI BU STATIMG,SETSTATC SELRST3 4212 4213 4215 4217 4218 4220 4222 4223 4225 4227 4228 4230 STEP0012 EQU * * GO TO MAP 13-280 SOFAIL BOC SVCOUT,SOFAIL STEP0013 EQU * * GO TO MAP 13-290 CMDOUT,COFAIL COFAIL BOC STEP0014 EQU * * GO TO MAP 13-300 AOFAIL ADROUT,AOFAIL BOC STEP0015 EQU * * GO TO MAP 13-310 SUPO,SUPOFAIL SUPOFAIL BOC 4233 4235 4237 4238 4240 4242 4244 4246 STEP0016 EQU STO * STEP0017 EQU XFR STEP0018 EQU STO STEP0019 EQU 000376 3976 000377 000377 01FE 000378 000378 4150 000379 000379 OCOO 00037A e t:~ ",-) CLEAR FLAGS REG EXCEPT CUEB NORMAL PATH - GO TO STEP0068 GO BACK AND CHECK THE RESET INDICATE ALU ERR RESET TO ALU2 RETURN 00024810 00024820 SET TU ADDRESS REG KICK OFF ROS 2, XOUTB=08 TRAP ALU2 TO DO DESIRED RESET IF TCS - GO TO 65, IF NOT GO TO 63 BRANCH IF MIS AVAILABLE 00024850 00024860 00024870 00024880 00024890 0002490.0 00024910 00024920 00024930 00024940 00024950 00024960 00024970 *********************************************************************** 00024980 000373 000375 2875 000376 54 9/04/73 00024700 00024710 00024720 00024730 00024740 00024750 00024760 00024770 00024780 00024790 POWER ON RESET WILL BE EXECUTED ANYTIME THE MACHINE RESET BUTTON IS* DEPRESSED AND ON INITIAL POWER UP. IF MIS IS INSTALLED THIS ROUTINE * WILL BE EXECUTED TWICE---ONCE PER INTERFACE.' * VARIOUS LSR'S WILL BE CLEARED AND AN INTERFACE CHECKOUT WILL BE * MADE. THE CHANNEL OUTBOUND TAGS USED BY THE MICROPROGRAM WILL BE * CHECKED TO INSURE ALL ARE DOWN. ALL THE INBOUND TAGS(EXCEPT OP-IN) * WILL BE RAISED---HARDWARE WILL 'AND' THE TAGS AND,IF ALL ARE PRESENT* FORCE \HE OUTBOUND TAGS AND INITIAL SELECTION. THE CHANNEL BUS IN * REG WILL BE 'WRAPPED' TO CHANNEL BUS OUT. THE MICRO CODE WILL CHECK * THE TAGS FOR BEING ACRIVE AND THE BUSSES FOR HOT OR OPEN BITS. IF * ALL GOES OK A GENERAL RESET FOR THE SELECTING INTERFACE WILL COMPLETE THE OPERATION. ANY FAILURE WILL HANG IN A BU TRAP ANry THE CONTROL * UNIT WILL REMAIN BUSY. ' * 4209 PWRRESET EQU 000374 2974 000375 PAGE FO 1MAY 72 ************************** POWER ON RESET ***************************** 00024840 * * * * * * * * * * * * * 000373 000373 2073 000374 EC 734110 () * * CTIMAGE,ONES-OPIN * CTIMAGE,CTI * SETDIA1,0 * ENTRY POINT 00025000 ALL CHANNEL OUTBOUND TAGS SHOULD BE DOWN AT THIS TIME-- ANDY UP WILL RESULT It-:! A BOC TRAP UNTIL THE OUTBOUND TAG FALLS RAISE ALL ~NBOARD TAGS EXCEPT OP-IN--FORCES SIO TRAP SET TO HARDWARE CLEAR DIAGNOSE REG 0 00025030 00025040 00025050 00025060 00025070 00025080 00025090 00025100 00025110 00025120 00025130 00025140 00025160 00025170 00025180 00025190 00025200 00025210 00025220 00025230 o ROSl LOC OBJECT CODE 00037A OAOO 00037B 00037B OB30 00037C 00037C 3D7E 00037D 637D 00037E 00037E 2980 00037F 637F 000380 000380 3982 000381 6381 000382 000382 2D84 000383 6383 000384 000384 2886 000385 6385 000386 000386 0100 000381 000387 638F 000388 000388 000388 A1FF 000389 000389 000389 00038A 00038A 00038B 00038B 00038C 00038C 00038D 00038D 00038E 00038E o0038F PN 1846377 3803-2 MICROCODE LISTING 218F 0100 0900 1O00 0000 635C ADDRl ADDR2 EC 734110 PAGE STMT SOURCE STATEMENT 4248 STO REQTAGS,O 4250 STEP0020 EQU * 4252 FLAGS2,A64+B64 STO CLEAR REQUESTS AND FLAGS 4255 STEP0021 EQU * 4257 BOC ISEL,SIOISOK 4259 * GO TO MAP 13-320 4261 WAITSIO BU WAITSIO INIT SEL .SHOULD BE UP 4264 STEP0022 EQU * 4266 SIOISOK BOC CMDOUT,CHKSUPO 4268 * GO TO MAP 13-330 4270 CMOOFF BU CMOOFF 4273 STEP0023 EQU * 4275 CHKSUPO BOC SUPO,CHKSVCOU 4277 * GO TO MAP 13-340 4279 SUPOOFF BU SUPOOFF 4282 STEP0024 EQU * 4284 CHKSVCOU BOC SVCOUT,CHKADRO 4286 * GO TO MAP 13-350 4288 SVOOFF BU SVOOFF 4291 STEP0025 EQU * 4293 CHKADRO BOC ADROUT,CHKBIBO 4295 * GO TO MAP 13-360 4297 ADROFF BU ADROFF 4300 4302 4304 4306 4308 4309 4310 4312 4314 4315 4316 4318 4320 4322 4324 4326 4328 4330 4332 4334 4336 4338 STEP0026 EQU * CHKBIBO STO CTlMAGE,O STEP0027 EQU * BU RIPWRAP STEP0034 EQU * STEP0042 EQU * * GO TO MAP 13-370 RIPBIBO ADD CTlMAGE,ONES STEP0035 EQU * STEP0043 EQU * * GO TO MAP 13-370 NALCO,RIPWRAP BOC STEP0044 EQU * STO CTlMAGE,O STEP0045 EQU * STO FLAGS, 0 STEP0046 EQU * REGINIT STO FRUREG,O STEP0047 EQU * STO CURCOMM,O STEP0048 EQU * BU CHKONB 4342 STEP0028 EQU * FolMAY72 INITIALIZE LSR A HANG HERE INDICATES SIO TRAP FAIL SIO RETURN--CMD OUT SHOULD BE UP TRAP--CMD OUT OFF SUPPRESS OUT SHOULD BE UP TRAP--SUPPRESS OUT OFF SERVICE OUT SHOULD BE UP TRAP--SERVICE OUT OFF ADDRESS OUT SHOULD BE UP TRAP--ADDRESS OUT OFF CLEAR A REG GO SET ZEROES ACROSS BUSSES BUMP REG BY ONE BRANCH IF NOT FINISHED INSURE TAG IMAGE IS CLEAR CLEAR FLAGS EEG CLEAR FRU REG CLEAR REG o PER XFR5 RETURN TO RESET 55 9/04/73 00025240 00025250 00025260 00025280 00025290 00025300 00025310 00025330 00025340 00025350 00025360 00025380 00025390 00025400 00025410 00025430 00025440 00025450 00025460 00025480 00025490 00025500 00025510 00025530 00025540 00025550 00025560 00025570 00025580 00025590 00025600 00025610 00025620 00025630 00025640 00025650 00025660 00025670 00025680 00025690 3 00025700 00025710 3 00025720 00025730 3 00025740 00025770 ROS1 EC 734110 PAGE BRANCH IF OK TO CHECK PARITY 4379 * GO TO MAP 13-380 PICKDROP 4381 PICKDROP BU TRAP--BITS PICKED OR DROPPED 00026020 00026030 00039D 639C 4385 4386 4388 4390 4392 4394 4396 4398 4400 4402 4404 4406 4408 4410 4411 4413 4415 4416 4418 EQU * EQU * ALUR,HRDRST BOC EQU * SNSSTS2,0 STO STEP0070 EQU * HRDRST XFR CLEAR STEP0071 EQU * XFR CLEAR STEPOO72 EQU * PNDSTS,O STO STEP0073 EQU * XFR PNDSTS,CBI STEP0074 EQU * * GO TO MAP 13-190 BOC STATD,DORST4 DORST3 STEP0075 EQU * * GO TO MAP 13-190 DORST3 BU 00026060 00026070 00026080 00026090 1 00026100 OTHERWISE CLEAR SENSE 00026110 00026120 RESET SENSE TO DATA FLOW 00026130 00026140 00026150 00026160 CLEAR PNDING STATUS REG 00026170 00026180 CLEAR BUS IN TO CHANNEL NORMALLY BYPASS STEP 75 IN STEP MODE 00026190 00026200 00026210 BRANCH IF ALU2 FINISHED 00026220 00026230 00026240 GO BACK AND WAIT FOR ALU2 00039E 00039E 22AF 00039F 00039F 3CA9 0003AO 0003AO D908 4421 4423 4425 4427 4429 4431 STEP0076 EQU DORST4 BOC STEPOO77 EQU BOC STEP0078 EQU ANDM 000394 2088 STMT 4343 4344 4346 4348 4349 4350 4352 4354 4355 4356 4358 4360 4361 4362 4364 4366 4367 4368 4370 4372 4373 4374 4376 000395 6395 00038F 4160 000390 000390 000390 ODOO 000391 000391 000391 44AO 000392 000392 000392 4121 000393 000393 000393 F400 000394 000394 000396 000396 000396 000397 000397 000398 000398 000399 000399 00039A 00039A 00039B 00039B 00039C 2298 0700 4012 4012 0500 4560 00039C 3B9E 00039D (j ADDR1 ADDR2 SOURCE STATEMENT STEP0036 EQU * * GO TO MAP 13-370 CTlMAGE,CBI RIPWRAP XFR STEP0029 EQU * STEP0037 EQU * * GO TO MAP 13-370 SETDIA2,0 STO STEP0030 EQU * STEP0038 EQU * * GO TO MAP 13-370 WORK1,CBO XFR STEP0031 EQU * STEP0039 EQU * * GO TO MAP 13-370 CTlMAGE,AR XFR STEP0032 'EQU * STEP0040 EQU * * GO TO MAP 13-370 WORK1,0 XOM STEP0033 EQU * STEP0041 EQU * * GO TO MAP 13-370 DBUS,RIPBIBO BOC STEP0068 DORST2 BLOWOUT 1 STEP0069 r-) "-- * ALUR,HARDWER F01MAY72 56 9/04/73 00025780 00025790 00025800 00025810 00025820 00025830 00025840 00025850 00025860 00025870 00025880 00025890 00025900 00025910 00025920 00025930 00025940 00025950 0002596.0 00025970 00025980 00025990 00026000 LOC OBJECT CODE 00038F U PN 1846377 3803-2 MICROCODE LISTING MOVE TEST DATA TO BUS IN KILL TIME FETCH TEST MOVE TEST DTA FROM BUS OUT REG TO ALU A REG COMPARE WRAPPED DATA BRANCH IF ALU ERROR TRAP IF ALU HAD ERROR * NGENR,DORST5 BRANCH IF NOT GENERAL RESET * FLAGS,RESETOK MASK RESET FLAG 0 00026260 00026270 00026280 00026290 00026300 00026310 0 ROS1 3803-2 MICROCODE LISTING LOC 0003A1 0003A1 0003A2 0003A2 0003A3 0003A3 0003A4 0003A4 0003A5 0003A5 0003A6 OBJECT CODE 34A9 A601 F610 20A9 2FA7 636B ADDR1 ADDR2 PN 1846377 STMT 4433 4435 4437 4439 4441 4443 4445 4447 4449 4451 4454 SOURCE STATEMENT STEP0079 EQU * DREG4,DORST5 BOC STEP0080 EQU * ADD PNDADDR,1 STEP0081 EQU * XOM PNDADDR,16 STEP0082 EQU * DBUS,DORST5 BOC STEP0083 EQU * PWRRST,DOITONB BOC BU DORSTO 0003A7 0003A7 E804 0003A8 0003A8 636B 4457 STEP0084 EQU 4459 DOITONB XO 4461 STEP0085 EQU 4463 BU 0003A9 0003A9 0003AA 0003AA 0003AB 0003AB 0003AC 0003AC 4466 4468 4470 4472 4474 4476 4478 4480 0800 4828 4824 8908 STEP0086 EQU DORST5 STO STEP0087 EQU XFR STEP0088 EQU XFR STEP0089 EQU ORI * STATIMG,SETSTATB * DORSTO * * STATIMG,STAT * STATIMG,TUADR *FLAGS,RESETOK STATIMG,O 0003AD 0003AD 2F40 0003AE 6304 4483 STEP0090 EQU 4485 DORST6 BOC 4488 BU 0003AF 4011 4492 HARDWER XFR HDWERR 4494 * GO TO MAP 13-400 4496 YUPHANG BU YUPHANG 0003BO 63BO * PWRRST,RUNALU IDLESCAN EC 734110 PAGE F01MAY72 BRANCH IF ON BUMP DEV ADDRS MASK FOR LAST DEV GO TO STEP0086 THE 16TH 'rIME BRANCH IF SO BRANCH IF POWER ON TO RESET INTFB INVERT STAT B TO FORCE INTFB RESET RETURN TO STEP 59 - REPEAT 15 TIMES GO RESET NEXT DEVICE 57 9/04/73 00026320 00026330 00026340 00026350 00026360 00026370 00026380 00026390 00026400 00026410 00026420 00026440 00026450 00026460 00026470 SET ALL DEVICES RESET FLAG 00026490 00026500 00026510 00026520 00026530 00026540 00026550 00026560 GO DO ALU CHECK IF POWER ON OTHERWISE GO TO IDLE 00026580 00026590 00026600 CLEAR THE STAT REG CLEAR HDWE STATS CLEAR TU ADDRESS REG ALU2 ERR IN IDLESCAN HDWERR DIDN'T TRAP 00026620 00026630 00026640 ROS1 LOC OBJECT CODE 0003B1 3BCO 0003B2 628C 0003B3 5441 0003B4 0003B5 0003B6 0003B7 PN 1846377 3803-2 MICROCODE LISTING 284D 2DB8 3BBC 63B4 ADDR1 ADDR2 EC 734110 PAGE STMT SOURCE STATEMENT F01MAY72 4500 ***************************** BURST WAIT ****************************** 4501 * BURST WAIT IS USED BY READ, WRITE, AND SENSE OPS TO WAIT FOR ALU2 * 4502 * FINISH. * 4503 * ADDRESS OUT WILL BE MONITORED FOR A HIO CONDITION AND IF HIO IS * 4504 * GIVEN OP-IN WILL BE RESET AND THE OPERATION TERMINATED NORMALLY. * 4505 * DATA FLOW ERRORS,ALU2 ERRORS AND UNIT EXCEPTION CONDITION WILL BE * 4506 * SET AS REQUIRED IN ENDING STATUS. * 4507 *********************************************************************** 4510 GOSTOP 4513 4516 LETS READ 4518 * 4520 SVCWATE 4523 4526 4529 BOC BU XFR ORI BOC BOC BOC BU STATD,BSTDONE SETS TOP XOUTBIM,XOUTB STATIMG,STOP ADROUT,HIOPERG SVCOUT,BSTWAIT STATD,NOSVC SVCWATE GO SET STOP STAT KICK OFF READ OP SET STOP FOR LATER BRANCH IF HIO BRANCH IF SERVICE IN OR OUT BRANCH IF NO SERVICE GO BACK AND DO IT AGAIN 58 9/04/73 00026670 00026680 00026690 00026700 00026710 00026720 00026730 00026740 00026760 00026770 00026780 00026790 00026800 00026810 00026820 00026830 0003BB 63B8 4532 * GO TO MAP 13-410 4534 BSTWAIT BOC ADROUT,HIOPERG 4536 * GO TO MAP 13-410 BOC ALLONES,GOSTOP 4538 4540 * GO TO MAP 13-410 4542 BSTWAIT1 BOC STATD,BSTDONE 4544 * GO TO MAP 13-410 4546 BU BSTWAIT 0003BC 0003BD 0003BE 0003BF 0003CO 0003C1 0003C2 0003C3 0003C4 0003C5 3ACO 22DC 2BCO 8709 4828 22DC DOOB 20DA D001 37DO 4550 NOSVC 4553 4556 4559 4562 BSTDONE 4565 4568 4571 4574 4577 BOC BOC BOC ORI XFR BOC ANDM BOC ANDM BOC STATC,BSTDONE BRANCH IF ALU HAD ERROR ALUR,ALU2HDER BRANCH IF ALU ERROR STATB,BSTDONE BRANCH IF UNIT EXCP SNSSTS2,RDNOISE+DATACK NOISE IN SENSE STATIMG,STAT SET STOP TO DATA FLOW ALUR,ALU2HDER BRANCH IF ALU2 HAD HDWE ERROR CURCOMM,X'OB' MASK FOR SENSE TYPE COMMAND DBUS,BSTWAIT2 BRANCH IF SO CURCOMM,1 MASK FOR WRITE TYPE COMMAND DREG7,CHEKB BRANCH IF SO 00026940 00026950 00026960 00026970 00026980 00026990 00027000 00027010 00027020 00027030 0003C6 0003C7 0003C8 0003C9 bC6C 20DO 3107 32D7 4581 4584 4587 4590 ANDM BOC BOC BOC SETDIA1,DMR+IBGMSR+RDACC+RDSTOP CHK DIAGNOSTIC BITS BRANCH IF OFF DBUS,CHEKB BRANCH IF IBG MSR DREG1,CHEKSNS DREG2,CHEKSNS BRANCH IF READ ACCESS 00027050 00027060 00027070 00027080 0003CA 0003CB 0003CC 0003CD 0003CE 0003CF 4E88 4421 EEOO 20D7 8704 63DD 4594 XFR 4597 XFR 4600 XO 4603 BOC 4606 HADOVERN ORI 4609 BU SETCNT1,XINB WORK1,AR SETCNT1,O DBUS,CHEKSNS SNSSTS2,OVERUN SETUNTCK OTHERWISE FETCH MODULO CNT FROM ALU2 MOVE ALU1 MODULO TO ALU INPUT REG COMPARE BOTH MODULO COUNT BRANCH IF SAME SET OVERUN BIT IN SENSE DATA GO SET EQUIP CHK 00027100 00027110 00027120 00027130 00027140 00027150 0003DO 2BEO 4613 CHEKB STATB,ALU2UNEX BRANCH IF ALU2 SIGNALLED UX 00027170. 0003D1 DD80 0003D2 30DA 4617 CHKUNCHK ANDM 4620 BOC SETDIA2,BLKDC DREGO,BSTWAIT2 MASK TO CHEK BLOCK DATA CHEK FLAG BRANCH IF ON TO BYPESS 00027190 00027200 0003B8 284D 0003B9 3FB1 0003BA 3BCO BOC BRANCH IF HI.O ISSUED BRANCH IF CMD OUT IS UP BRANCH IF ALU2 COMPLETED GO BACK AND CHECK FOR FINISH 00026850 00026860 00026870 00026880 00026890 00026900 00026910 00026920 o ~, ROSl 3803-2 MICROCODE LISTING LOC 0003D3 0003D4 0003D5 OBJECT CODE 28F2 3AE2 27E2 ADDRl ADDR2 PN 1846377 STMT SOURCE 4623 4626 CHKALU2 4629 STATEMENT ADROUT,ENDHIO BOC BOC STATC,DATCHECK BOC DFLER,DATCHECK EC 734110 PAGE F01MAY72 59 9/04/73 00027210 00027220 00027230 BRANCH IF HIO BRANCH IF ALU2 SIGNALLED UC BRANCH IF ANY DATA FLOW ERRORS 0003D6 3FCE 4633 CHKOVRN BOC OVERRUN,HADOVERN GO SET EQUIP CHK IF OVERRUN 00027250 0003D7 9700 0003D8 20DA 0003D9 63DD 4637 CHEKSNS 4640 4643 ORM BOC BU SNSSTS2,0 DBUS,BSTWAIT2 SETUNTCK MASK SENSE DATA FOR ERRORS BRANCH IF NO ERRORS SENSE ERRORS--SET UNIT CHECK 00027270 00027280 00027290 0003DA 850C 0003DB 63DE 4647 BSTWAIT2 ORI 4650 BU PNDSTS,CHANEND+DEVEND POST CE AND DE IN STATUS SETPNDG GO SET STS PENDING 0003DC 0003DD 0003DE 0003DF 8710 850E 8904 6291 4654 ALU2HDER ORI 4657 SETUNTCK ORI 4660 SETPNDG ORI 4663 BU SNSSTS2,EQUIPCK SET EQUIPMENT CHECK IN SENSE 00027340 PNDSTS,CHANEND+DEVEND+UNITCHK SET CE,DE,AND UC IN STATUS 00027350 FLAGS,STATPNDG SET STATUS PENDING FLAG 00027360 TERMS TAT GO TO TERMINAL STATUS 00027370 0003EO 8501 0003El 63Dl 4667 ALU2UNEX ORI 4670 BU PNDSTS,UNITEXC CHKUNCHK 4674 DATCHECK ANDM 4677 BOC 4680 ANDM BOC 4683 4686 XOM BOC 4689 XOUTAIM,WRITE DREG5,SKIPNOIS STATIMG,CONTROL DREG2,SKIPNOIS CURCOMM,X'OC' DBUS,ISLDPT 0003E8 4490 0003E9 4421 4693 FTCHNOIS XFR XFR 4696 0003EA 0003EB 0003EC 0003ED 0003EE 0003EF 0003FO 0003Fl 0003E2 0003E3 0003E4 0003E5 0003E6 0003E7 D204 35EA D820 32EA FOOC 20EF 27ED 8700 63DD 8708 63DD D410 20E8 63EA 0003F2 Elll 0003F3 4150 0003F4 63D4 00027310 00027320 SET UNIT EXEPTION IN STATUS GO LOOK FOR UNIT CHECK 00027390 00027400 BRANCH IF READ CONTROL CMD IS THIS A RDB OP BR IF SO 00027420 00027430 00027440 00027450 00027460 00027470 WORK1,XINA WORK1,AR FETCH NOISE BIT IF APPLICABLE MOVE TO ALU INPUT REG 00027490 00027500 4700 SKIPNOIS BOC 4703 ORI 4706 BU 4709 DODATCK ORI 4712 BU 4715 ISLDPT ANDM 4718 BOC 4721 BU DFLER,DODATCK SNSSTS2,0 SETUNTCK SNSSTS2,DATACK SETUNTCK WORK1,BOT DBUS,FTCHNOIS SKIPNOIS BRANCH IF DATA FLOW ERROR OTHERWISE SET NOISE ONLY GO SET UNIT CHECK SET NOISE AND DATA CHECK GO SET UNIT CHECK IS LOAD POINT ON BR IF NOT SKIP NOISE THIS TIME 4725 ENDHIO 4728 4731 CTIMAGE,OPIN+CUBUSY RESET OP IN RAZE CUB SET TO HARDWARE CTIMAGE,CTI RETURN TO CHECK UNIT CHK COND CHKALU2 XO XFR BU BRANCH IF NOT A READ OP 3 3 3 3 3 00027520 00027530 00027540 00027550 00027560 00027570 00027580 00027590 00027610 00027620 00027630 ROSl LOC OBJECT CODE 000400 000400 000401 000402 000403 000404 000405 000406 000407 000408 000409 00040A PN 1846377 3803-2 MICROCODE LISTING 140F 5441 8801 4828 0700 4012 4012 8780 0502 8904 60E4 ADDRl ADDR2 STMT EC 734110 PAGE SOURCE STATEMENT F01MAY72 60 9/04/73 4736 ORG BEGIN+X'400' 4737 **************************** COMMAND REJECT *************************** 4738 * COMMAND REJECT IS ENTERED AFTER OPENERS AND IF AN INVALID OP CODE * 4739 * WAS RECEIVED AT CMD OUT TIME. SENSE DATA WILL BE RESET AND CMD RJCT * 4740 * SENSE SET UP. THIS ROUTINE WILL NOT BE ENTERED IF OPENERS FINDS ANY * 4741 * PENDING STATUS. * 4742 *********************************************************************** 00027670 00027680 00027690 00027700 00027710 00027720 00027730 4745 COMREJCl STO 4748 XFR 4751 ORI 4754 XFR 4757 STO XFR 4760 4763 XFR ORI 4766 4769 STO 4772 ORI BU 4775 00027750 00027760 00027770 00027780 00027790 00027800 00027810 00027820 00027830 00027840 00027850 C~) XOUTBIM,NDXSNSR XOUTBIM,XOUTB STATIMG,SETSTATD STATIMG,STAT SNSSTS2,0 CLEAR CLEAR SNSSTS2,CMDREJ PNDSTS,UNITCHK FLAGS,STATPNDG PENDLINK RT FETCH ALU2 SENSE RESET INDEX KICK OFF ALU2 SET STATD TO INDICATE SNS RESET SET TO HARDWARE CLEAR SENSE REG 2 RESET DATA FLOW ERRORS POST CMD REJECT POST UNIT CHECK POST STATUS PENDING () o ROS1 3803-2 MICROCODE LISTING 00040B 00040C 00040D 00040E 00040F 000410 000411 62AA 629B 62BO 62B8 62CB 6321 6342 000412 000413 000414 000415 000416 000417 000418 000419 FOOO 201B F003 201B C97F DA20 201A 60DE OBJECT CODE ADDR1 ADDR2 PN 1846377 STMT 4778 4779 4780 4781 4782 4783 4784 4786 4789 4792 4795 4798 4801 4804 LOC EC 734110 PAGE SOURCE STATEMENT F01MAY72 ******************** MULTIPLE INTERFACE SWITCH ************************ * THE VARIOUS POINTS IN BASIC CODE THAT ARE * * SENSITIVE TO MIS WILL TEST AND,IF THE FEATURE IS INSTALLED, * * BRANCH TO THE APPROPRIATE POINT IN THIS PAGE. STAT B AND A FLAG * * NAMED INTFB WILL BE USED THROUGHOUT WHEN MIS IS AVAILABLE. SEVEN * * * ****************************************************** ****~************ BU BU BU BU BU BU BU CHKCHAIN ANYCUEA SETREQA DOREQA RSTHLDIN DEPRIM1 MASKFORA MIS RETURN MIS RETURN MIS RETURN MIS RETURN MIS RETURN MIS RETURN RETURN TO MAINLINE 4809 MIFTR04 4812 4815 4818 4821 4824 BLOUT43 4827 4830 XOM BOC XOM BOC AND ANDM BOC BU CURCOMM,O DBUS,CMDWAIT2 CURCOMM,X' 03' DBUS,CMDWAIT2 FLAGS,ONES-CONCON FLAGS1,CURFLAG DBUS,NOTRSV CMDWAIT4 MASK FOR TIO BRANCH IF TIO MASK FOR NOOP BRANCH. IF CMD IS NOOP OTHERWISE RESET CONT CONN FLAG MASK CU RESERVE BRANCH IF NOT RESERVE BRANCH IF RESERVED 00041A ClDF 4834 NOTRSV AND CTIMAGE,ONES-HOLDINT RESET HOLD INTERFACE 00041B 60DE 4838 CMDWAIT2 BU CMDWAIT4 RETURN TO MAIN LINE 00028140 00041C 00041D 00041E 00041F 000420 000421 000422 000423 4843 CHKRSRV 4846 4849 4852 NOTCHANE 4855 4858 4861 4864 FLAGS, CHAIN DBUS,NOTCHANE COMREJCT CURCOMM,X'F4' DBUS,SETRESRV CURCOMM,X'D4' DBUS,RSTRESV COMREJCT MASK FOR CHAINING BRANCH IF NOT CHAINING OTHERWISE REJECT COMMAND MASK FOR CU RESERVE CM BRANCH IF IT IS MASK FOR CU RELEASE· CMD BRANCH IF IT IS OTHERWISE RETURN TO DO SENSE 00028170 00028180 00028190 00028200 00028210 00028220 00028230 00028240 SET CU RESERVE FLAG RAISE HOLD INTERFACE RETURN TO SENSE 00028260 00028270 00028280 D901 201F 6108 FOF4 2024 FOD4 2027 6108 MISRTN1 MISRTN2 MISRTN3 MISRTN4 MISRTN5 MISRTN7 MISRTNOA 61 9/04/73 00027870 00027880 00027890 00027900 00027910 00027920 00027930 00027940 00027950 00027960 00027970 00027980 00027990 00028000 ANDM BOC BU XOM BOC XOM BOC BU 000424 8A20 000425 8120 000426 617F 4868 SETRESRV ORI 4871 ORI 4874 BU FLAGS1,CURFLAG CTIMAGE,HOLDINT DOSENSE 000427 CADF 000428 617F 4878 RSTRESV 4881 FLAGS1,ONES-CURFLAG DOSENSE 000429 D920 00042A 200C 4885 MIFTR05 ANDM FLAGS,INTFB 4888 BOC DBUS,MISRTN2 4890 * GO TO MAP 13-500 4892 CHKCUEB BOC NCUEB,CHKBFLG 4894 * GO TO MAP 13-500 4896 ORI PNDSTS,CUE 4898 * GO TO MAP 13-500 4900 ORI FLAGS,CUEB 00042B 3E30 00042C 8520 00042D 8910 AND BU RESET CU RESERVE FLAG RETURN TO SENSE INTERFACE B SELECTING BRANCH IF OFF TO CHECK CUEA BRANCH IF NOT CUE ON B SET CONTROL UNIT END IN STATUS SET CONTROL UNIT END IN FLAGS 00028030 00028-040 00028050 00028060 00028070 4 00028080 4 00028090 4 00028100 4 00028120 00028300 00028310 00028330 00028340 00028350 00028360 00028370 00028380 00028390 00028400 ROS1 ADDR1 ADDR2 SOURCE STATEMENT GO TO MAP 13-500 XFR CUREB GO TO MAP 13-500 CHKCUEB BU EC 734110 PAGE F01MAY72 62 GO BACK AND CHECK TO INSURE RESET 9/04/73 00028410 00028420 00028430 00028440 RESET GEN RESET IF ON MASK TO CHECK CUE B FLAG BRANCH IF OFF OTHERWISE GO SET CUE IN STATUS 00028460 00028470 00028480 00028490 00042F 642B STMT 4902 4904 4906 4908 000430 000431 000432 000433 400A 0910 200B 62A9 4912 CHKBFLG 4915 4918 4921 XFR ANDM BOC BU CUREB FLAGS,CUEB DBUS,MISRTN1 CUEPNDG 000434 000435 000436 000437 000438 000439 00043A 0502 203A F506 203A 4044 8980 6293 4925 CHKCONT 4928 4931 4934 4937 BLOUT46 4940 4943 NOTCON ANDM BOC XOM BOC XFR ORI BU MASK FOR UC IN PENDING STATUS REG PNDSTS,UNITCHK BRANCH IF OFF DBUS,NOTCON PNDSTS,DEVEND+UNITCHK MASK FOR DEP UC STATUS(NO CONCaN) BRANCH TO PREVENT CONCON IF SO DBUS,NOTCON RESET THE PING LATCH PING OTHERWISE SET CONTINGENT CONN FLAG FLAGS,CONCON RETURN TO RAISE REQ-IN TERMS TAO 00043B 00043C 000430 00043E 0920 2000 8A01 62B9 4947 MIFTR06 4950 4953 4956 ANDM BOC ORI BU FLAGS,INTFB DBUS,MISRTN3 REQTAGS,REQINB GOTOIDLE INTERFACE B SELECTING NO, GO HANDLE A INTF RAISE NON SUPPES SIBLE REQ-IN B GO WAIT FOR POLL 00028590 00028600 00028610 00028620 00043F 0920 000440 200E 4960 MIFTR07 4963 ANDM BOC FLAGS,INTFB DBUS,MISRTN4 INTERFACE B SELECTING NO, GO HANDLE A INTF 00028640 00028650 000441 8A02 000442 62B9 4967 DOREQB 4970 ORI BU REQTAGS,SUPREQB GOTOIDLE RAISE SUPPRESSEBLE REQUEST IN B GO SET HARDWARE AND WAIT FOR POLL 00028670 00028680 000443 DA20 000444 200F 000445 62CC 4974 MIFTR08 4977 4980 ANDM BOC BU FLAGS1,CURFLAG DBUS,MISRTN5 DROPTAGS MASK TO CHECK CONTROL UNIT RESERVE BRANCH IF NOT RESERVED RESERVED-DONT RESET HOLD INTERFACE 00028700 00028710 00028720 ANDM BOC ANDM BOC ANDM BOC BOC ORI BU FLAGS1,CURFLAG DBUS,IDLE2 FLAGS,INTFB DBUS,ARSVD FLAGS,CUEA DREG 1 , STSONA NCUEA,NIXASTS CURCOMM,HOLDA ITSRSVD MASK FOR CU RESERVED BRANCH IF NOT RESERVED MASK INTERFACE B FLAG BRANCH IF A INTF MASK FOR CUE ON A INTF BRANCH IF SO BRANCH IF NOT CUE ON A SET CHAIN HOLD ON A INTF RETURN 00028740 00028750 00028760 00028770 00028780 00028790 00028800 00028810 00028820 LOC OBJECT CODE 00042E 400A * * ATTEMPT TO RESET CUEB 00028510 00028520 00028530 00028540 00028550 00028560 00028570 000446 000447 000448 000449 00044A 00044B 00044C 000440 00044E DA20 2090 0920 20AC 0940 3140 254E 8080 6318 4984 4987 4990 4993 4996 4999 5002 5005 5008 00044F 000450 000451 000452 OFOO 4921 8FOO 629A 5012 MIFTROA 5015 5018 5021 STO XFR ORI BU SETCNT2,0 FLAGS,AR SETCNT2,0 TERMSTA3 CLEAR A WORK REG MOVE FLAGS REG TO ALU INPUT REG SET FLAGS INTO WORK REG GO CHECK FOR CUE ON LAST INTERFACE 00028840 00028850 00028860 00028870 000453 000454 000455 000456 4921 FFOO 20B1 6310 5025 MIFTROB 5028 5031 5034 XFR XOM BOC BU FLAGS,AR SETCNT2,0 DBUS,BLOUT44 DEPRIMES MOVE FLAGS TO ALU INPUT REG MASK FOR SAME FLAGS EC732424 BRANCH IF SAME OTHERWISE GO LOOK FOR DEV ENDS 00028890 00028900 00028910 00028920 5038 IDLE4 XO FLAGS, INTFB INVERT STATUS OF INTF FLAG 00028940 000457 E920 C PN 1846377 3803-2 MICROCODE LISTING i ~ ~j MIFTR09 BLOUT42 STSONA NIXASTS (~ \ ) (') ,-/ 0 3 3 3 3 3 3 3 C) ~, '"- - ROSl 3803-2 MICROCODE LISTING LOC OBJECT CODE 000458 629A ADDRl ADDR2 PN 1846377 STMT 5041 SOURCE STATEMENT TERMSTA3 BU EC 734110 PAGE FO 1MAY 72 GO CHECK FOR CUE ON OPPOSITE INTF 63 9/04/73 00028950 000459 000459 00045A 00045B 00045C 000450 00045E 00045F 000460 4828 DA20 645C 2010 2AA7 0920 20A5 64A3 5044 MIFTROC 5046 BLOUT45 5049 5052 5055 RSVBC 5058 5061 5064 5067 EQU XFR ANDM BU BOC BOC ANDM BOC BU STATIMG,STAT FLAGS1,CURFLAG RSVBC DBUS,MISRTN7 STATA,XXX FLAGS,INTFB DBUS,YYY BLOUT40 * GO CHECK RESERVE RESET STAT A MASK CU RESERVE RETURN TO MAINLINE BRANCH IF NOT BRANCH IF NON-RSVD INTF MAKS FOR B INTERFACE BRANCH IF NOT B INTF OTHERWISE GO SET STAT A ONL 1 1 1 1 1 3 3 3 3 00028970 00028980 00028990 00029000 00029010 00029020 00029030 00029040 00029050 000461 000462 000463 000464 2AA7 DA20 2065 6330 5071 MIFTROD 5074 5077 BLOUT41 5080 BOC ANDM BOC BU STATA,XXX FLAGS1,CURFLAG DBUS,DEPRIM8 SETHOLDS BRANCH IF NON-RSVD INTF MASK FOR CTL UNIT RESERVED BRANCH IF NOT RESERVED OTHERWISE GO SET CHAIN HOLD 3 3 3 3 00029070 00029080 00029090 00029100 000465 0804 000466 2068 000467 633.0 5084 DEPRIM8 5087 5090 ANDM BOC BU STATIMG,SETSTATB DBUS,DEPRIM9 SETHOLDS MASK FOR B INTERFACE POLLED BRANCH IF NOT GO POLL FOR MTI'S 00029120 00029130 00029140 000468 8920 000469 8804 00046A 6322 5094 DEPRIM9 5097 5100 ORI ORI BU FLAGS,INTFB STATIMG,SETSTATB DEPRIM2 SET B INTERFACE FLAG SET B INTERFACE STAT GO CHECK FOR DE'S ON B INTF 00029160 00029170 00029180 00046B 00046B 00046C 00046C 000460 000460 00046E 00046E 00046F 00046F 000470 000470 5104 5106 5108 5110 5112 5114 5116 5118 5120 5122 5124 5126 GO DO COMMON RESETS 00029210 00029220 00029230 00029240 00029250 00029260 00029270 00029280 00029290 00029300 00029310 00029320 000471 2E73 000472 6369 5130 MIFTR10 5133 BOC BU SCB,SELRSTl DORESETS BRANCH IF SWITCHED TO CHANNEL B RETURN TO HANDLE A INTERFACE 00029340 00029350 000473 8804 ORI STATIMG,SETSTATB 000474 6369 5137 SELRST1 5139 * 5141 BU DORESETS SET B INTERFACE STAT CU RESERVED AND RESET REQ-IN B'S RETURN TO FINISH RESET 00029370 00029380 00029390 000475 000475 2E77 000476 636F 5144 STEP0065 EQU 5146 MIFTR 11 BOC 5149 BU SCB,DORST1 DO FORA BRANCH IF SWITCHED TO CHANNEL B RETURN TO RESET A INTERFACE 00029410 00029420 00029430 000477 000477 C968 000478 000478 6396 5152 STEP0066 EQU 5154 DORST 1 AND 5156 STEP0067 EQU 5158 BU * * DORST2 0804 0920 1B90 8B10 CA40 6369 STEP0051 EQU GENRST1 STO STEP0052 EQU STO STEP0053 EQU INITSEV STO STEP0054 EQU ORI STEP0055 EQU AND STEP0056 EQU BU * * FLAGS, INTFB * SEVMODB,X' 90 , *FLAGS2,B64 * FLAGS 1 ,ANRZI * DORESETS STATIMG,SETSTATB * SET B INTERFACE STAT SET B INTERFACE FLAG SET 7TK RESET MODE SET SET RESET MODE TO 6400 RESET B INTF FLAGS FLAGS,CUEA+INTFB+RESETOK ALL LAGSS EXCEPT CUE A RETURN TO CLEAR SENSE DATA 00029450 00029460 00029470 00029480 ROS1 LOC 000479 00047A 00047B 00047C PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE D804 2011 8040 633C ADDR1 ADDR2 STMT EC 734110 PAGE SOURCE STATEMENT 5163 MIFTR 13 5166 5169 5172 ANDM BOC ORI BU STATIMG,SETSTATB DBUS,MISRTNOA CURCOMM,HOLDB BMASKED F01MAY72 MASK FOR INTF B PASS BRANCH IF NOT OTHERWISE SET HOLD B MASK ON RETURN TO MAINLINE ) () 64 9/04/73 00029510 00029520 00029530 00029540 r~ "' ~ .. ROS1 LaC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846377 STMT EC 734110 PAGE SOURCE STATEMENT F01MAY72 65 9/04/73 5177 ************************* SEVEN TRACK MODE SETS *********************** 5178 * ALL SEVEN TRACK MODE SETS ENTER HERE AND SET UP SEVEN TRK MODE REGS * 5179 * BY INTERFACE. * 5180 *********************************************************************** 00029580 00029590 00029600 00029610 000480 C300 STO LINK4,X'F8' 5183 CHK7TK 5186 XFR CURCOMM,AR 5189 XFRH LSR 5191 *** SEVEN TRACK MODE SETS 5193 AND LINK4,0 SET MODE BITS 2,3,4 IN WORK REG 00029630 00029640 00029650 00029660 00029670 000481 000482 000483 000484 000485 5197 SETBYINT BOC 5200 SETAMOD STO 5203 XFR 5206 ORI 5209 BU TEST FOR B INTERFACE CLEAR INTF A MODE REG MOVE MODE TO ALU INPUT REG SET MODE INTO INTF A MODE REG RETURN TO PRESETN STATUS 00029690 00029700 00029710 00029720 00029730 00047D 13F8 00047E 4021 00047F 5006 2E86 1AOO 5321 8AOO 6489 . SCB,SETBMOD SEVMODA,O LINK4,AR SEVMODA,O SEVLINK CLEAR TO HOLD THE COMMAND PUT IN A REGISTER SET TO HI REGS \ 000486 1BOO 000487 5321 000488 8BOO 5213 SETBMOD 5216 5219 STO XFR ORI SEVMODB,O LINK4,AR SEVMODB,O CLER INTF B MOD REG MOVE MODE TO ALU REG MOVE MODE INTO A MODE REG 00029750 00029760 00029770 000489 4006 00048A 6167 5223 SEVLINK 5226 XFR BU LSR MODELINK SET LO SET REGS GO FINISH 00029790 00029800 00048B 00048C 00048D 00048E 00048F 000490 000491 000492 000493 000494 000495 5230 SETSEV 5233 5236 5239 5242 5245 5248 5251 SKIPNRZ 5254 5257 5260 SKIPNRZ1 ANDM FLAGS,INTFB BOC DBUS,SETSEVA XFR SEVMODB,AR ORI XOUTAIM,O ANDM FLAGS1,BNRZI BOC DBUS,SKIPNRZ ORI XOUTAIM,NRZMODE ANDM FLAGS2,B64 DBUS,SKIPNRZl BOC ORI XOUTAIM,MODE64 BU CMDWAIT MASK FOR INTERFACE B BRANCH IF OFF SET MODE SET IN A REG SET ALSO IN XOUTAIM MASK INTF B NRZ FLAG BRANCH IF OOF OTHERWISE, SET NRZ IN MAS RE CHECK LAST MODE SET FOR 6400 BR IF NOT SET 6400 TO ALU 2 GO WAIT FOR THE COMMAND 00029820 00029830 00029840 00029850 00029860 00029870 00029880 00029890 00029900 00029910 00029920 000496 5A21 000497 8200 000498 60CC 5264 SETS EVA 5267 5270 XFR ORI BU SEVMODA,AR XOUTAIM,O CHKNRZ MOVE INTF A MODE TO MASK REG SET MASK RETURN TO CHECK 9TK NRZ 00029940 00029950 00029960 000499 D980 00049A 209C 00049B 6301 5274 MIFTR17 5277 5280 ANDM BOC BU FLAGS, CON CON DBUS,BAKTOIDL HANGHERE MASK FOR CONT CONN BRANCH IF OFF OTHERWISE GO HANG AND WAIT 00029980 00029990 00030000 00049C 630C 5284 BAKTOIDL BU IDLE 1 RETURN TO IDLE LOOP 00030020 00049D 00049E 00049F 0004AO 0004A1 2AA2 8808 4828 234F 629A 5288 IDLE2 5291 5294 5297 5300 BOC ORI XFR BOC BU STATA,IDLE3 STATIMG,SETSTATA STATIMG,STAT MIFTR,MIFTROA TERMSTA3 BRANCH IF 1ST PASS SWITCH ON 00030040 OTHERWISE SET 1ST PASS SWITCH 00030050 SET TO HDWE 00030060 BRANCH IF MIS AVAILABLE *** 00030070 GO TO CHECK FOR CUE ON LAST INTF 00030080 0004A2 2353 5304 IDLE3 BOC MIFTR,MIFTROB BRANCH IF MIS AVAILABLE D920 2096 5B21 8200 DA80 2092 8201 DB10 2095 8202 60D2 * 00030100 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT EC 734110 PAGE F01MAY72 SOURCE STATEMENT SET STAT A RETURN TO SCAN FOR DE 66 9/04/73 3 00030120 3 00030130 0004A3 8808 0004A4 6322 5308 BLOUT40 5311 ORI BU STATIMG,SETSTATA DEPRIM2 0004A5 880C 0004A6 6322 5315 YYY 5318 ORI BU STATIMG,SETSTATA+SETSTATB SET STATS A AND B RETURN DEPRIM2 3 00030150 3 00030160 0004A7 E80C 0004A8 0504 0004A9 6322 5322 XXX 5325 5328 XO STO BU STATIMG,SETSTATB+SETSTATA INVERT B RESET A SET DEV END IN STATUS PNDSTS,DEVEND RETURN DEPRIM2 3 00030180 3 00030190 3 00030200 0004AA 2A79 0004AB 62B5 5332 MIFTR18 5335 BOC BU STATA,MIFTR13 NOT CHAIN BRANCH IF NON RSVD INTF OTHERWISE RAISE REQ-IN 3 00030220 3 00030230 0004AC 0004AD 0004AE 0004AF 0004BO D910 33AF 3EBO 8040 6318 5341 ARSVD 5344 5347 5350 STSONB 5353 NIXBSTS ANDM BOC BOC ORI BU FLAGS,CUEB DREG3,STSONB NCUEB,NIXBSTS CURCOMM,HOLDB ITSRSVD MASK FOR CUE ON B INTF BRANCH IF SO BRANCH IF NOT CUE ON B SET CHAIN HOLD ON B INTF RETURN 3 3 3 3 3 0004B1 0004B2 0004B3 0004B4 0004B5 0004B6 0004B7 C9F7 6457 22CF 2BCC D902 20B8 60E1 5358 BLOUT44 5361 5364 ANY ERRS 5367 5370 5373 5376 AND BU BOC BOC ANDM BOC BU FLAGS,ONES-RESETOK IDLE4 ALUR, CMDPAROO STATB,BUSYSTAT FLAGS, STACK DBUS,CONTCHK CMDWAIT3 RESET THE ALL RESET FLAG RETURN TO INVERT INTF B FLA BR ON ALU FAIL BRANCH IF BUSY CONDITION MASK FOR STACK FLAG BRANCH IF OFF TO CONTINUE GO PRESENT STACKED STATUS 00030340 00030350 00030360 00030370 00030380 00030390 00030400 0004B8 0004B9 0004B9 0004BA 0004BB 0004BC 0004BD 0004BE 0004BF 0500 *** STAT B OFF--STATD ON---STATC EITHER CLEAR PENDING STATUS REG PNDSTS,O CONTCHK STO GETSNSO EQU * WORK1,XINB GET TU SENSE BYTE 0 XFR MASK FOR CUE FLAGS ANDM FLAGS,CUEA+CUEB BRANCH IF INTF B SELECTIING SCB,CUEBSTS MIFTR14 BOC BR ON CUE ON A DREG1,CMDWAIT8 CUEASTS BOC STATIMG,ONES-SETSTATC RESET STAT C IN IMAGE REG TUTSTRTN AND STATIMG,STAT SET TO HARDWARE XFR LINK4,IC RETURN TO TEST TAPE UNIT XFR 00030420 00030430 00030440 00030450 00030460 00030470 00030480 00030490 00030500 00030510 4488 D950 2ECO 31E5 C8FD 4828 5322 5379 5381 5383 5385 5388 5391 5394 5397 5400 5403 00030270 00030280 00030290 00030300 00030310 0004CO 33E5 0004C1 64BD 5407 CUEBSTS 5410 BOC BU DREG3,CMDWAIT8 TUTSTRTN BR ON CUE ON B OTHERWISE RETURN 00030530 00030540 0004C2 0004C3 0004C4 0004C5 5413 *** STAT 5415 CHKBUSY 5418 LOOKAGIN 5421 5424 B ON BOC BOC BOC BU STATD,ANYERRS STATC,CONTCHK1 STATD,BUSYSTAT LOOKAGIN IF ON MUST HAVE BEEN NORMAL END BRANCH IF DEV SELECTED BRANCH IF DEV SWITCHED GO LOOK AGAIN 00030560 00030570 00030580 00030590 00030600 MASK FOR STACK FLAG BRANCH IF OFF TO CONTINUE 00030620 00030630 00030640 3BB3 3AC6 3BCC 64C3 0004C6 D902 0004C7 20CA 5427 *** STATS BAND C ON--STAT D OFF 5429 CONTCHK1 ANDM FLAGS, STACK DBUS,CONTCHK2 5432 BOC () o ROSl PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 0004C8 8504 0004C9 60El ADDRl ADDR2 STMT 5435 5438 SOURCE STATEMENT ORI PNDSTS,DEVEND BU CMDWAIT3 PAGE EC 734110 OR IN DEV END IN STATUS GO PRESENT STACKED STATUS F01MAY72 67 9/04/73 00030650 00030660 0004CA 0504 0004CB 60El 5441 *** NO STACKED STATUS 5443 CONTCHK2 STO PNDSTS,DEVEND 5446 BU CMDWAIT3 SET DEV END IN PENDING STATUS GO SET LINKS 00030680 00030690 00030700 0004CC 0510 0004CD 60E4 5450 BUSYSTAT STO 5453 BU PNDSTS,BUSY PENDLINK BUSY IN SCRATCH REG GO TO RAISE STATUS IN 00030720 00030730 0004CE 60C8 0004CF 60D6 5457 5460 5462 5463 5464 5465 5466 5467 5468 5469 5470 5471 5472 5473 5474 5475 PRE TURN 1 BU CMDPAROO BU PRETURNO CMDPARO 5478 5481 5484 5487 5490 RTNCOMR RTNSENS RTNPROT RTNTUTST RTNTUTSl 0004DO 0004Dl 0004D2 0004D3 0004D4 6400 6181 6220 622C 6233 ************************************** OPENERS ************************ * OPENERS WILL RESET THE PING HOLD LATCH IN HARDWARE IF THE COMMAND * * IS OTHER THAN TIO AND THE STATUS STACKED OR PENDING FLAGS ARE OFF. * * WHEN ALU2 COMPLETES ASSEMBLING THE DEVICE STATUS, THIS ROUTINE WILL * * CHECK ALU2 STATS TO DETERMINE IF THE DEVICE IS BUSY,NOT READY,OR HAS* *A PENDING DEV END. IF NONE OF THE AFOREMENTIONED ITEMS APPLY THEN THE* *DEVICE IS AVAILABLE AND THE COMMAND WILL BE DECODED. ALU2 STAT COMBOS* *HAVE THE FOLLOWING MEANING: * * STATC=DEV END,UNT CHK(READY DROP WHEN DEV END WAS PRIMED) * * STATB AND STATC=DEV END DUE TO DEV END PRIME(REW OR DSE) * * STATB AND STATD=DEVICE IS BUSY * * STATC AND STATD=DEVICE IS NOT READY * * * *********************************************************************** RETURN RETURN RETURN RETURN RETURN TO TO TO TO TO COMMAND REJECT SENSE CHECK FILE LPROTECT CHECK READY DO SENSE RESET BU BU BU BU BU COMREJCl SENSEOK PROTEST 1 TUTESTIT TUTEST2 EQU ANDM BOC BU * MASK FOR PENDING STATUS FLAGS,STATPNDG+STACK DBUS,MAYBETIO BRANCH IF BOTH ARE OFF OPENERS 1 DONT RST PING-PONG HOLD LATCH 00030980 00030990 00031000 00031010 00031030 00031040 00031050 00031060 00031080 00031090 00031100 00031110 00031120 0004D5 0004D5 D906 0004D6 20D8 0004D7 64DB 5493 OPENERS 5495 MIFTR02 5498 5501 0004D8 FOOD 0004D9 20DB 0004DA 4044 0004DB 5505 MAYBETIO XOM 5508 BOC 5511 XFR 5513 OPENERSO EQU CURCOMM,X' 00 , DBUS,OPENERSO PING * MASK FOR TIO CMD BRANCH IF SO (NO HOLD RESET) OTHERWISE RESET HOLD LATCH TUS 0004DB 0004DC 0004DD 0004DE 0004DF 5516 OPENERSl BOC 5519 BOC 5522 BOC 5525 BOC 5528 BU STATD,ANYERRS STATB,CHKBUSY STATC,SEEIFUC ADROUT,PRETURNl OPENERS 1 IF ALU2 FINISHED,GO LOOK FOR ERROR IF ON GO CHECK FOR PENDING DEV END BRANCH IF ON TO CHECK FOR DE, UC STS HALT I/O? ALU2 STILL BUSY, GO BACK 3BB3 2BC2 3AEO 28CE 64DB 00030750 00030760 00030770 00030780 00030790 00030800. 00030810 00030820 00030830 00030840 00030850 00030860 00030870 00030880 00030890 00030900 5532 *** STAT C WAS ON 00030920 00030930 00030940 00030950 00030960 00031150 ROS1 3803-2 MICROCODE LISTING LOC 0004EO 0004E1 0004E2 0004E3 0004E4 0004E5 0004E6 0004E7 OBJECT CODE 3BB3 2BC6 D902 20E6 8506 60E1 0506 60E1 ADDR1 ADDR2 PN 1846377 STMT SOURCE 5534 SEEIFUC 5537 5540 5543 5546 5549 CMDWAIT8 5552 SETDEUC 5555 5558 *** EC 734110 PAGE STATEMENT F01MAY72 BOC STATD,ANYERRS BRANCH IF INT REQ BOC STATB,CONTCHK1 BRANCH IF DEV END ANDM FLAGS,STACK MASK FOR STACK LAG BOC DBUS,SETDEUC BRANCH IF OFF PNDSTS,DEVEND+UNITCHK OTHERWISE OR IN DE AND UC ORI BU CMDWAIT3 GO CHECK FOR TIO STO PNDSTS,DEVEND+UNITCHK SET UC,DE--READY DROP ON DEP DEV BU CMDWAIT3 STAT D WAS ON C) 68 9/04/73 00031160 00031170 00031180 00031190 00031200 00031210 00031220 00031230 00031250 o F) "'.. ..... I~ ROSl : PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 000500 ADDRl ADDR2 EC 734110 PAGE F01MAY72 STMT SOURCE STATEMENT 5561 BEGIN+X' 500' ORG 5562 ***************************** DISPLAY LSRS **************************** 5563 * AN INDISPENSABLE ROUTINE TO ALLOW DISPLAY OF THE ALUl LSR'S IN THE * 5564 * CHANNEL BUS IN INDICATORS. ON FIRST ROUND THE 16 LOW LSR'S(0-15) * 5565· * ARE DISPLAYED. SECOND ROUND(DON'T HIT RESET) WILL DISPLAY HIGH * 5566 * LSR'S( 16-31). AN ANTOMATIC STOP IS NOT EMPLOYED IN THIS ROUTINE AND * 5567 * IT WILL CONTINUE TO DISPLAY HIGH LSR'S FOREVER. RESTART IS THE ONLY * * 5568 * WAY TO DISPLAY LOW LSR'S A SECOND TIME. 5569 * * 5570 * INSTRUCTION COUNTER(IC) DISPLAY IN RELATION TO LSR'S ON * 5571 * CHANNEL BUS IN ARE AS FOLLOWS: * * 5572 * DISPLAY LSRO -FIRST ROUND & LSR16-SECOND ROUND * 5573 * IC= 502 DISPLAY LSR1 -FIRST ROUND & LSR17-SECOND ROUND * 5574 * IC= 503 5575 * IC= 504 DISPLAY LSR2 -FIRST ROUND & LSR18-SECOND ROUND * 5576 * IC= 505 DISPLAY LSR3 -FIRST ROUND & LSR19-SECOND ROUND * 5577 * IC= 506 DISPLAY LSR4 -FIRST ROUND & LSR20-SECOND ROUND * 5578 * IC= 507 DISPLAY LSR5 -FIRST ROUND & LSR21-SECOND ROUND * DISPLAY LSR6 -FIRST ROUND & LSR22-SECOND ROUND * 5579 * IC= 508 DISPLAY LSR7 -FIRST ROUND & LSR23-SECOND ROUND * 5580 * IC= 509 5581 * IC= 50A DISPLAY LSR8 -FIRST ROUND & LSR24-SECOND ROUND * 5582 * IC= 50B DISPLAY LSR9 -FIRST ROUND & LSR25-SECOND ROUND * DISPLAY LSR10-FIRST ROUND & LSR26-SECOND ROUND 5583 * IC= 50C * DISPLAY LSR11-FIRST ROUND & LSR27-SECOND ROUND 5584 * IC= 500 * 5585 * IC= 50E DISPLAY LSR12-FIRST ROUND & LSR28-SECOND ROUND * 5586 * IC= 50F DISPLAY LSR13-FIRST ROUND & LSR29-SECOND ROUND * DISPLAY LSR14-FIRST ROUND & LSR30-SECOND ROUND 5587 * IC= 510 * DISPLAY LSR15-FIRST ROUND & LSR31-SECOND ROUND 5588 * IC= 511 * 5589 *********************************************************************** 69 9/04/73 00031280 00031290 00031300 00031310 00031320 00031330 00031340 00031350 00031360 00031370 00031380 00031390 00031400 00031410 00031420 00031430 00031440 00031450 00031460 00031470 00031480 00031490 00031500 00031510 00031520 00031530 00031540 00031550 00031560 5591 **************************** DISPALAY LSRS **************************** 00031580 000500 000501 000502 000503 000504 000505 000506 000507 000508 000509 00050A 00050B 00050C 000500 00050E 00050F 000510 000511 000512 4006 4060 4160 4260 4360 4460 4560 4660 4760 4860 4960 4A60 4B60 4C60 4D60 4E60 4F60 5006 6501 5594 TRACELSR XFR 5597 GETHIGH XFR 5600 XFR 5603 XFR 5606 XFR 5609 XFR 5612 XFR 5615 XFR 5618 XFR 5621 XFR 5624 XFR 5627 XFR 5630 XFR XFR 5633 5636 XFR 5639 XFR 5642 XFR 5645 XFRH 5648 GETREST BU LSR RO,CBI Rl,CBI R2,CBI R3,CBI R4,CBI R5,CBI R6,CBI R7,CBI R8,CBI ~,CBI Rl0,CBI R11,CBI R12,CBI R13,CBI R14,CBI R15,CBI LSR GETHIGH INSURE IN LOW SET TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL TAKE LSR TO CE PANEL SET HIGH WILL STAY IN HIGH UNTIL RESET 00031600 00031610 00031620 00031630 00031640 00031650 00031660 00031670 00031680 00031690 00031700 00031710 00031720 00031730 00031740 00031750 00031760 00031770 00031780 ROSl EC 734110 PAGE F01MAY72 9/04/73 00031800 00031810 00031820 00031830 00031840 00031850 00031860 00031870 00031880 00031890 00031900 00031920 00031930 00031940 00031950 00031960 00031970 00031980 02FF DB40 3078 4242 lE03 0205 000519 0800 00051A 4828 5684 5687 STO XFR CLEAR STAT IMAGE REG STATIMG,O STATIMG,STAT SET STATS TO HARDWARE 00051B 2A67 5691 BOC STATA,ZONKA SHD BE OFF 00032030 00051C 4241 5695 XFR R2,XOUTB KICK OFF ALU2 00032050 00051D 2B67 00051E 3A6E 5699 5702 BOC BOC STATB,ZONKA STATC,ZONKC SHD BE OFF SHD BE OFF 00032070 00032080 00051F lE04 5706 STO FRUSAV,4 BUMP FRU REG 00032100 000520 0000 5710 TESTONE STO RO,O CLEAR REG 0 3046 3144 3242 3340 343E 353C 363A 3738 5714 5717 5720 5723 5726 5729 5732 5735 BOC BOC BOC BOC BOC BOC BOC BOC DREGO,TRAPll DREG1,TRAP10 DREG2,TRAP9 DREG3,TRAP8 DREG4,TRAP7 DREGS, TRAP 6 DREG6,TRAP5 DREG7,TRAP4 000529 04FF 5739 STO R4,ONES 00052A AOOl 00052B 2131 00052C 202E 5743 TESTl 5746 5749 ADD BOC BOC RO,l NALCO,AA DBUS,BB BUMP REG 0 BY 1 BR IF NO OVERFLOW ON OVERFLOW DBUS SHD BE 0 00032250 00032260 00032270 00052D 4011 5753 TRAP 1 XFR HDWERR FALSE CARRY 00032290 00052E A4FF 00052F 2147 5757 BB 5760 ADD BOC R4,ONES NALCO,OPCODES DECREMENT R4 BY ONE MORE SHD BE NO CARRY HERE 00032310 00032320 000530 4011 5764 TRAP 2 XFR HDWERR PROBLEM 00032340 000513 000513 000514 000515 000516 000517 000518 000521 000522 000523 000524 000525 000526 000527 000528 ADDRl ADDR2 OBJECT CODE 0 SOURCE STATEMENT ************************************************** * THIS ROUTINE TEST THE ARITHMETIC FUNCTIONS OF * * THE ALU1.THE TESTS PROGRESS AS FOLLOWS: * 70 STMT 5651 5652 5653 5654 5655 5656 5657 5658 5659 5660 5661 5663 5665 5668 5671 5674 5677 5680 LOC 0 PN 1846377 3803-2 MICROCODE LISTING * * * * ** * * 1.ALUl STATA-ALU2-STATS BAND C TEST * 2.ALU ADDER RIPPLE TEST * 3.0P CODES TEST * 4.CROSSOVER ALL ONES CHECK * 5.ALU2 STAT C ON AND CROSSOVER ALL * ZEROES CHECK * ************************************************** START ALU CHECKOUT HERE STEP0092 EQU * TEST R2,X'FF' ALUCHECK .STO SKIP ALU CHKOUT IF ANDM FLAGS2,ALUFAIL FAILURE FLAG IS ON BOC DREGO,LATER XFR TO ALU2 AND XFR R2,XOUTA BUMP FRU REG FRUSAV,3 STO R2,NDXTST3 T FETCH ALU2 TEST INDEX STO (j BIT BIT BIT BIT BIT BIT BIT BIT SHD SHD SHD SHD SHD SHD SHD SHD BE BE BE BE BE BE BE BE 00032000 00032010 00032120 00032140 00032150 00032160 00032170 00032180 00032190 00032200 00032210 OFF OFF OFF OFF OFF OFF OFF OFF 00032230 FILL REG 4 ("\ "--~ ~) "'-. 0 ROSl LaC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT EC 734110 SOURCE STATEMENT PAGE F01MAY72 9/04/73 5768 AA 5771 5774 5777 5780 ADD R4,ONES BOC NALCO,CCTRAP XFR R4,AR ADDM RO,O BOC NALCO,DD 000536 4011 5784 CCTRAP XFR HDWERR 000537 3739 000538 4011 5789 DD 5792 TRAP4 BOC XFR DREG7,EE HDWERR BIT SHD BE ON BIT WAS OFF 00032450 00032460 000539 363B 00053A 4011 5796 EE 5799 TRAP 5 BOC XFR DREG6,FF HDWERR BIT SHD BE ON BIT WAS OFF 00032480 00032490 00053B 353D 00053C 4011 5803 FF 5806 TRAP 6 BOC XFR DREG5,GG HDWERR BIT SHD BE ON BIT WAS OFF 00032510 00032520 00053D 343F 00053E 4011 5810 GG 5813 TRAP7 BOC XFR DREG4,HH HDWERR BIT SHD BE ON BIT WAS OFF 00032540 00032550 00053F 3341 000540 4011 5817 HH 5820 TRAP 8 BOC XFR DREG3, II HDWERR BIT SHD BE ON BIT WAS OFF 00032570 00032580 000541 3243 000542 4011 5824 II 5827 TRAP9 BOC XFR DREG2,JJ HDWERR BIT SHD BE ON BIT WAS OFF 00032600 00032610 000543 3145 000544 4011 5831 JJ 5834 TRAP 1 0 BOC XFR DREG1,KK HDWERR BIT SHD BE ON BIT WAS OFF 00032630 00032640 000545 302A 000546 4011 5838 KK 5841 TRAPll BOC XFR DREGO,TEST1 HDWERR BIT SHD BE ON BIT WAS OFF 00032660 00032670 000547 000548 000549 00054A 00054B 0020 lE05 4021 COOO 324D 5845 OPCODES 5848 5851 5854 5857 STO STO XFR AND BOC RO,X'20' FRUSAV,5 RO,AR RO,O DREG2,ALU1001 00054C 4011 00054D A020 00054E 3150 5861 TRAP 1 06 5864 ALU100l 5867 XFR ADD BOC HDWERR RO,X'20' DREG1 ,ALU1 002 000531 000532 000533 000534 000535 A4FF 2136 4421 BOOO 2137 DECREMENT R4 BY 1 SHD BE A CARRY R4 TO ABUS MATCH AGAINST RO SHD BE NO CARRY 71 NO CARRY WHEN XPECTED SET IN DATA BUMP FRU REG SET DATA IN AR AND SAME DATA TEST FOR PROPER RESULT 00032360 00032370 00032380 00032390 00032400 00032420 00032690 00032700 00032710 00032720 00032730 AND OP FAILURE ADD SAME DATA TEST FOR BIT IN DREG 1 00032750 00032760 00032770 00054F 4011 5871 TRAP 1 07 XFR HDWERR ADD OP FAILURE 00032790 000550 8020 000551 3253 5875 ALU1002 5878 ORI BOC RO,X'20' DREG2,ALU1003 OR SAME DATA TEST FOR BIT 2 00032810 00032820 000552 4011 5882 TRAP 1 08 XFR HDWERR OR OP FAILURE 00032840 ROSl LaC 000553 000554 000555 000556 PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE E09F AOOl 2058 4011 000557 lE06 000558 2B5B 000559 226A 00055A 6558 ADDRl ADDR2 STMT 5886 5889 5892 5895 SOURCE STATEMENT RO,X'9F' ALU1003 XO RO,X'Ol' ADD DBUS,CHEKONB BOC HDWERR TRAP 1 09 XFR FRUSAV,6 STO 5899 5901 * GO TO MAP 13-420 STATB,CHKXINS 5903 CHEKONB BOC 5905 * GO TO MAP 13-420 5907 BOC ALUR,ZONK 5909 * GO TO MAP 13-420 5911 CHEKONB BU EC 734110 PAGE FO 1MAY 72 EXCLUSIVE OR RO SET TO FF ADD 1 TO RO RESULT SHOULD BE ZERO EXCLUSIVE OR OP FAILURE BUMP FRU REG 00032910 00032920 00032930 00032940 00032950 00032960 00032970 BRANCH IF ALU2 READY BRANCH IF ALU2 DIED WAIT CHECK 00055C AOOl 00055D 2172 RO,XINA 5915 CHKXINS XFR 5917 * GO TO MAP 13-430 RO,l 5919 ADD 5922 NALCO,ZONKXA BOC 00055E 4088 00055F AOOl 000560 2176 5926 5929 5932 XFR ADD BOC RO,XINB RO,l NALCO,ZONKXB 000561 4042 000562 lE07 5936 5939 5942 CHKSTATS + 5943+ 5945 5948 5951 XFR STO STO RO,XOUTA CLEAR XOUTA FOR ALU2 BUMP FRU REG FRUSAV,7 STATIMG,SETSTATA+SETSTATB+SETSTATC+SETSTATD+STOP OP) ORG XFR STO BOC STATIMG,STAT STATIMG,O STATA,WAIT 000567 4011 5955 ZONKA XFR HDWERR 000568 3B6B 000569 6568 5960 * GO TO MAP 13-440 STATD,CKALUERR 5962 WAIT BOC 5964 *GO TO MAP 13-440 WAIT 5966 BU 00056A 4011 5970 ZONK 00056B 226A 00056C lE08 00056D 3A6F 00055B 4090 000563 000564 000564 000565 000566 088F 4828 0800 2A68 72 9/04/73 00032860 00032870 00032880 00032890 00032990 00033000 00033010 00033020 XINA AND XINB FORALL ONES 00033040 00033050 00033060 00033080 00033090 00033100 *-1 TRN ON THE STATS FOR TEST CLEAR STAT IMAGE REG SHD BR 00033110 00033120 00033130 00033150 STATD SAYS END OF ROUTINE 00033190 00033200 00033210 00033220 HDWERR ALU2 FAILED 00033240 5974 CKALUERR BOC 5977 STO 5980 CHKC BOC ALUR,ZONK FRUSAV,8 STATC,STATSOK LOOK FOR ALU2 HARD ERROR BUMP FRU REG SHD BE ON 00033260 00033270 00033280 00056E 4011 5984 ZONKC XFR HDWERR 00056F 00056F 4090 000570 AOFF 000571 2173 5987 STATSOK 5989 5992 5995 EQU XFR ADD BOC * RO,XINA RO,:"ONES NALCO,XINAOK 000572 4011 5999 ZONKXA XFR HDWERR XFR 00033300 00033320 00033330 00033340 00033350 CHECK XINA AND XINB 00033370 () () ~ ! ROS1 3803-2 MICROCODE LISTING LOC 000573 000574 000575 OBJECT CODE 4088 AOFF 2177 ADDR1 ADDR2 PN 1846377 EC 734110 PAGE F01MAY72 73 STMT SOURCE 6003 XINAOK 6006 6009 STATEMENT XFR RO,XINB RO,ONES ADD BOC NALCO,XINBOK 000576 4011 6013 ZONKXB XFR HDWERR 00033430 000577 000577 6771 000578 6304 6016 XINBOK 6018 6021 LATER EQU BU BU * CHKDISC IDLESCAN 00033450 00033460 00033470 FOR ALL ZEROES GO BACK TO POLL 9/04/73 00033390 00033400 00033410 ROS1 LaC 000579 00057A 00057B 00057C 00057D 00057E 00057F 000580 PN 1846377 3803-2 MICROCODE LISTING ADDR1 ADDR2 OBJECT CODE 4CAO 140E 4C42 5441 1002 118C 128A 1387 000581 4150 000582 620A 9/04/73 00033490 00033500 00033510 00033520 00033530 00033540 00033550 6033 6036 6039 6042 6045 6048 6051 6054 6056 6057 6058 6059 6061 6064 DOSETDIA XFR SETDIA1,CBO FETCH FIRST BYTE STO XOUTBIM,NDXFLAGS RT LOAD ALU2 INDEX XFR SETDIA1,XOUTA PASS 1ST BYTE TO ALU2 XFR XOUTBIM,XOUTB TRAP ALU2 TO FETCH BYTE STO LINK1,BRETURN4 SET BYTE RECEIVED RETURN STO LINK2,SETSTOP SET STOP RETURN STO LINK3,WRTHIO SET HIO RETURN STO LINK4,SAV1FCH2 SET ROUTINE LINK *********************************************************************** *GOFETCH RESETS SERVICE IN FROM THE LAST BYTE FETCH AND LINKS TO * *THE SERVICE SUBROUTINE * *********************************************************************** GOFETCH XFR CTIMAGE,CTI DROP SERVICE IN BU SERVRTN GO GET NEXT BYTE 00033570 00033580 00033590 00033600 00033610 00033620 00033630 00033640 00033650 00033660 00033670 00033680 00033690 00033700 6067 6068 6069 6070 *********************************************************************** *DIALINK IS THE COMMON RETURN FROM THE SERVICE ROUTINE. LINK REG 4 * *WILL BE LOADED TO RETURN TO THE APPROPRIATE BYTE FETCH * *********************************************************************** 00033720 00033730 00033740 00033750 00033770 00033780 00033790 00033800 BYTE 1--FETCH BYTE 2 XFR SETDIA2,CBO STO LINK4,SAV2FCH3 BU GOFETCH GO GET BYTE 1 POINT TO NEXT FETCH GO GET EM 00033820 00033830 00033840 00033850 BYTE2--FETCH BYTE 3 XFR SETCNT1,CBO STO XOUTBIM,NDXFLAG2 XFR SETCNT1,XOUTA XFR XOUTBIM,XOUTB STO LINK4,SAV3NOFC BU GOFETCH GO GET BYTE 2 RT MOVE FLAGS TO XOUTA KICK OFF ALU2 TO FETCH FLAGS POINT TO NEXT SAVE--NOFETCH GO GET EM 00033870 00033880 00033890 00033900 00033910 00033920 00033930 GO GET BYTE 3 DROP SERVICE IN 00033950 00033960 00033970 6085 *** SAVE 6087 SAV1FCH2 6090 6093 00058A 00058B 00058C 00058D 00058E 00058F 6096 *** SAVE 6098 SAV2FCH3 6101 6104 6107 6110 6113 BOPE,SETBOPE LINK4,IC SNSSTS2,BUSOC LINK4,IC BRANCH IF BUS OUT PARITY BAD SET BUS OUT CHECK 000587 4DAO 000588 138A 000589 6581 4EAO 1410 4E42 5441 1390 6581 000590 4FAO 000591 4150 6116 *** SAVE BYTE 3 DROP SERVICE IN 6118 SAV3NOFC XFR SETCNT2,CBO 6121 XFR CTIMAGE,CTI 000592 DC10 000593 209E 000594 0400 6124 ***LOOK FOR GDT FLAG AND, IF ON, TIME OUT PRIOR TO PRESENTING STATUS 6126 ANDM SETDIA1,GDT MASK TO CHECK GO DOWN TIME FLAG 6129 PRSNTSTS BOC DBUS,GIVSTS BRANCH IF OFF 6132 STO WORK1,0 CLEAR WORK REG(LOWEST CNTR) (j 74 SOURCE STATEMENT F01MAY72 **************************** SET DIAGNOSE CMD ************************* * DOSETDIA WILL FETCH FOUR BYTES FROM THE CHANNELAND SAVE THEM FOR * * USE LATER. THE FIRST BYTE WILL BE PASSED TO ALU2 AND IF THE FORCE * * ALU ERRORS FLAG IS ON. IF THE GDT .FLAG IS ON ALU1 WILL TIME OUT THE * * TIME SPECIFED IN THE LAST TWO BYTES. THIS ROUTINE IS ENTERED WHEN * * THW CHANNEL ISSUES A SET DIAGNOSE COMMAND * ********************************************************************** BOC XFR ORI XFR 2485 5322 8720 5322 PAGE STMT 6024 6025 6026 6027 6028 6029 6030 6073 DIALINK 6076 6079 SETBOPE 6082 SETBOPO 000583 000584 000585 000586 EC 734110 o C) 00033990 00034000 00034010 00034020 o ROSl 3803-2 MICROCODE LISTING LOC 000595 000596 000597 000598 000599 00059A 00059B 00059C 00059D 00059E 00059F 0005AO OBJECT CODE A401 28AO 2195 AFFF 219B 6595 AEFF 219E 6595 CCEF 63D7 634D 0005Al 6203 0005A2 63B3 ADDRl ADDR2 PN 1846377 STMT 6135 6138 6141 6144 6147 6150 6153 6156 6159 6162 6165 6168 SOURCE STATEMENT I NCAGN ADD WORK1,1 BOC ADROUT,GDTHIO NALCO,INCAGN BOC ADD SETCNT2,ONES BOC NALCO,DECHICNT BU INCAGN DECHICNT ADD SETCNT1,ONES BOC NALCO,GIVSTS BU INCAGN GIVSTS AND SETDIA1,ONES-GDT GIVSTSl BU CHEKSNS GDTHIO BU HIOPERG 6172 WRTINIT 6175 DOAREAD BU BU WRTBGN LETSREAD EC 734110 PAGE 75 F01MAY72 BUMP LOWEST COUNTER (400 NANOSECS) HIO IF UP BRANCH IF NO CARRY TO BUMP AGAIN DECREMENT LO CNTR (103.150 USECS) BRANCH IF NO CARRY TO DECR HI CNTR OTHERWISE, GO BUMP LOWEST AGAIN DECREMENT HI CNTR (27 MSECS) GET OUT IF NO CARRY (PRESENT STATUS) OTHERWISE GO DO IT ALL AGAIN RESET THE FLAG GO ASSEMBLE ENDING STATUS GET OUT HIO ISSUED 9/04/73 00034030 00034040 00034050 00034060 00034070 00034080 00034090 00034100 00034110 00034120 00034130 00034140 RETURN TO WRITE ROUTINE 00034160 00034170 6179 *********************************************************************** 00034200 6180 * CLEANGO OCCURS WHEN CLEAN INITIAL STATUS IS ACCEPTED 00034210 6181 *********************************************************************** 00034220 0005A3 0005A4 0005A5 0005A6 0005A7 0005A8 0005A9 4150 4242 4828 28Al 2DA6 9000 37Al 6184 CLEANGO 6187 6190 6193 SVCOUP 6196 6199 6202 XFR XFR XFR BOC BOC ORM BOC CTlMAGE,CTI XOUTAIM,XOUTA STATIMG,STAT ADROUT,WRTINIT SVCOUT,SVCOUP CURCOMM,O DREG7,WRTINIT DROP STATUS IN SET DATA FLOW MASK TO HDWE RESET STAT D IF ON BRANCH IF HIO WAIT FOR SERVICE OUT TO DROP MASK FOR BRANCHING BRANCH IF WRITE OR TIE REQUEST 00034240 00034250 00034260 00034270 00034280 00034290 00034300 ROS1 LOC PN 1846377 380.3-2 MICROCODE LISTING ADDR1 ADDR2 OBJECT CODE STMT 620.6 620.7 620.8 620.9 6210. 6211 6212 6213 6214 6215 6216 6217 EC 734110. PAGE SOURCE STATEMENT FD1MAY72 76 9/0.4/73 ************************** DIAGNOSTIC MEASURE AND READ **************** 0.0.034330. * * * * * * * * * * THE DMR (DIAGNOSTIC MEASURE AND READ) IS USED TO GATHER ONLINE * DATA FOR CAPSTAN PROFILE, VELOCITY, AND ASSYMMETRY. A SET DIAGNOSE * COMMAND MUST BE ISSUED AFTER ISSUING A PRIOR READ TYPE OP(DETERMINES* THE DIRECTION TO BE MEASURED---FORWARD OR BACKWARD STATUS) A READ * OR READ BACKWARD COMMAND MUST BE ISSUED FOLLOWING THE SET DIAGNOSE. * THE CONTROLLER WILL SEND BYTES TO CHANNEL CCONSISTING OF TACH TIMING* COUNTS. THE FIRST SET DIAGNOSE CNT CONTAINS A NUMBER IN TACH COUNTS * THAT GO IS TO REMAIN UP, THE SECOND COUNT IS A NUMBER THAT GO IS * TO REMAIN DOWN. THE COUNTS WILL BE EXPIRED IN THAT ORDER. THE TIME * THAT GO REMAINS UP AFTER GO DOWN DEPENDS ON THE CHANNEL BYTE COUNT * 0.0.0.34340. 0.0.0.34350 0.0.034360. 0.0.0.34370. 0.0.034380. 0.0.034390. 0.0.03440.0. 0.0.034410. 0.0.0.34420. 0.0.0.34430. *********************************************************************** 0.0.0.34440. BOC LINK1,DMRRTN1 LOAD SERVICE OUT RESP RETURN LINK2,SETSTOP LOAD CMD OUT RESP RETURN LINK3,WRTHIO LOAD HIO RETURN SETDIA1,DMR+IBGMSR+RDACC+RDSTOP CHECK DIAG BITS DBUS,DOAREAD BRANCH IF OFF TO CHECK IBG MSR 0.0.0.34460. 0.0.0.34470. 0.0.0.34480. 0.0.0.34490. DDD34SDD 6236 6239 6242 624S 6248 ORI XFR XFR ANDM BOC STATIMG,CONTROL SET CONTROL BIT IN XOUTA STATIMG,STAT XOUTAIM,XOUTA SET XOUTA TO HARDWARE SETDIA1,DMR+IBGMSR+RDACC+RDSTOP CHECK DIAG BITS DREG1,DOIBGMSR BRANCH IF IBG MEASURE BIT IS ON DDD34S2D DDD34S3D DDD34S4D DDD34SSD DDD34S6D DDDSB4 32F8 62S2 BOC DREG2,READACC BRANCH IF READ ACCESS BIT ON DDD34S8D DODSBS 34ES 62S6 BOC DREG4,DORDSTOP BRANCH IF READ STOP MEASURE 0.0.0.3460.0. DDDSB6 DODSB7 DDDSB8 DOD5B9 DDDSBA 6260. STO 6263 XFR 6266 GORDSTOP STO 6269 STO 6272 STO XOUTBIM,NDXDMR XOUTBIM,XOUTB LINK5,DMRSTOP LINK6,DMR6 WORK1,D LOAD ALU2 DMR BRANCH INDEX START ALU2 SET STOP POINTER SET B CHANGED STATE POINTER CLEAR MODULO BYTE CNTR 0.0.0.34620. 0.0.0.34630. 0.0.0.34640. DDD346SD 0.0.0.34660. DODSBB AEFF DDDSBC 2109 6276 DMR1 6279 ADD BOC SETCNT 1 , ONES NALCO,DMR4 DECREMENT GO UP COUNT BY ONE BRANCH IF NO CARRY--FINISHED 0.0.0.34680. 0.0.0.34690. DODSBD DDDSBE DODSBF DDDSCD DDDSC1 DDD5C2 4828 3BE3 DC6D 2DC2 2BC7 2AC7 6283 DMR3 6286 6289 6292 629S 6298 LOOKATA XFR BOC ANDM BOC BOC BOC STATIMG,STAT SET STATS TO HDWE STATD,ALU2STOP GET OUT IF IBGMSR OR ALU2 HARD ERR SETDIA1,IBGMSR+RDACC TEST FLAGS DBUS,LOOKATA BR IF NEITHER STATB,DMRS TEST .STATB STATA,DMRS CHECK STATB FOR ON OR OFF 2BCA 28E4 3BE3 6SC3 630.1 *** WAIT 630.3 DMR7 630.6 630.9 6312 FOR STATB TO COME ON THEN FETCH NEXT TWO BYTES OF COUNT STATB,ITSTIME WAIT FOR STATB TO COME ON BOC ADROUT,DMRSTOP BRANCH IF HIO BOC BRANCH IF ALU2 HAD HARD ERROR STATD,ALU2STOP BOC GO BACK AND CHECK STAT B DMR7 BU 0.0.0.34780. 0.0.0.34790. 0.0.0.3480.0. 0.0.0.34810. 0.0.0.34820. 631S *** WAIT FOR STATB TO GO OFF THEN FETCH NEXT TWO BYTES OF COUNT 6317 DMRS BOC STATD,ALU2STOP BRANCH IF ALU2 HAD HARD ERROR 0.0.0.34840. DDD348SD DDDSAA DODSAB DDD5AC DDD5AD DDDSAE 10.0.0. 118C 128A DC6C 2DA2 6220. CHKDMR 6223 6226 6229 6232 DDDSAF DDDSBD DOD5B1 DDDSB2 DODSB3 8820. 4828 4242 DC6C 31E6 DDDSC3 DODSC4 DDDSCS DODSC6 14DC S441 18E4 19CB 0.40.0. DDDSC7 3BE3 A "') STO STO STO MiDM ,. () 0.0.0.34710. 0.0.0.34720. 0.0.0.34730. 0.0.0.34740. DDD347SD 0.0.0.34760. ROSl PN 1846377 3803-2 MICROCODE LISTING LOC OBJECT CODE 0005C8 28E4 0005C9 2BC7 ADDRl ADDR2 STMT 6320 6323 SOURCE STATEMENT BOC ADROUT,DMRSTOP BOC STATB,DMR5 EC 734110 BRANCH IF HIO WAIT FOR STAT B TO FALL PAGE F01MAY72 77 9/04/73 00034860 00034870 0005CA 5922 6327 ITSTIME XFR LINK6,IC STAT B OFF GO GET NEXT 2 COUNTS 00034890 0005CB 0005CC 0005CD 0005CE 0005CF 0005DO MOl 13Dl 5488 5F90 5460 620A 6332 DMR6 6335 6338 SERVIBG 6341 6344 6347 ADD STO XFR XFR XFR BU WORK1,l LINK4,DMR2 XOUTBIM,XINB FORMAT,XINA XOUTBIM,CBI SERVRTN BUMP MODULO BYTE COUNT LOAD SERVICE RETURN POINTER GO FETCH HI ORDER COUNT BYTE BRING IN SECOND BYTE MOVE TO CHAN BUS IN GO PRESENT TO CHANNEL 00034920 00034930 00034940 00034950 00034960 00034970 0005Dl 0005D2 0005D3 0005D4 2AD5 8808 13BD 65D7 6350 *** THE FIRST BYTE OF COUNT FOR ONE TACH TRANSITION HAS BEEN XFERRED 6351 *** NOW XFR THE SECOND BYTE BRANCH IF ONE FULL TACH TIME SENT 6353 DMR2 BOC STATA,DMR8 ORI STATIMG,SETSTATA OTHERWISE SET STATA AND FINISH CNTS 6356 LOAD SERV RTN RETURN POINTER STO LINK4,DMR3 6359 GO FETCH NEXT BYTE 6362 BU DtA.R9 0005D5 0005D6 0005D7 0005D8 C8F7 13BB 5F60 620A 6366 DMR8 6369 6372 DMR9 6375 AND STO XFR BU STATIMG,ONES-SETSTATA RESET STAT A IN IMAGE REG LINK4,DMRl LOAD ONE TACH SENT RETURN FORMAT,CBI MOVE TO CHAN BUS IN SERVRTN GO PRESENT BYTE TO CHANNEL 0005D9 0005DA 0005DB 0005DC 0005DD 8802 OEOO AFFF 2.1DE 65BD 6379 DMR4 6382 6385 6388 6391 ORI STO ADD BOC BU STATIMG,SETSTATC SETCNT1,O SETCNT2,ONES NALCO,DMRA DMR3 0005DE C8FD 0005DF OFOO 0005EO 65BD 6395 DMRA 6398 6401 AND STO BU STATIMG,ONES-SETSTATC NOTIFY ALU2 TO RAISE MOVE AGAIN SETCNT2,O KEED GO DOWN COUNT CLEAR DMR3 RETURN TO EXPIRE CHANNEL BYTE COUNT 0005El 4150 0005E2 5322 6404 *** COMMON SERVICE ROUTINE RETURN AFTER SERV OUT RESP 6406 DMRLNK XFR CTlMAGE,CTI DROP SERVICE IN 6409 XFR LINK4,IC RETURN TO CALLER 00035210 00035220 00035230 0005E3 5822 6412 *** COMMON ALU2 STOPPED LINK 6414 ALU2STOP XFR LINK5,IC 00035250 00035260 0005E4 63B8 6417 *** COMMON ALU2 HARD ERROR RETURN UNIT CHECK WILL BE SET 6419 DMRSTOP BU BSTWAIT GO ASSEMBLE UNIT CHECK STATUS TELL ALU2 TO DROP MOVE KEEP GO UP CNT CLEAR DECREMENT GO DOWN COUNT REG BRANCH IF DONE OTHERWISE CONTINUE TACH TIMING RETURN TO STOP 00034990 00035000 00035010 00035020 00035030 00035040 00035060 00035070 00035080 00035090 00035110 00035120 00035130 00035140 00035150 00035170 00035180 00035190 00035280 00035290 ROSl LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846377 STMT 6422 6423 6424 6425 6426 6427 6428 6429 EC 734110 0005E5 0005E6 0005E7 0005E8 0005E9 8801 143E FOOC 20EA 1437 6432 DORDSTOP ORI 6435 DOIBGMSR STO 6438 XOM 6441 BOC 6444 STO STATIMG,SETSTATD XOUTBIM,NDXBSR CURCOMM,X'OC' DBUS,DOBWD XOUTBIM,NDXFSR INDICATE RDSTOP TO ALU2 SET ALU2 INDEX TO DO BSR MASK FOR RD BACK BRANCH IF CFF SET ALU2 INDEX TO DO FSR 0005EA 0005EB 0005EC 0005ED 0005EE 0005EF 8802 5441 18F5 19FO 2BBD 65EE 6448 DOBWD 6451 6454 6457 6460 ISITUP 6463 ORI XFR STO STO BOC BU STATIMG,SETSTATC XOUTBIM,XOUTB LINK5,IBGSTOP LINK6,SCRAPl STATB,DMR3 ISITUP INDICATE IBG MEASURE TO KICK OFF SPACE OP SET STOP RETURN SET RETRN TO SYNC WITH ALU2 BRANCH IF TAPE OP UP GO BACK AND CHECK AGAIN 0005FO 0005Fl 0005F2 0005F3 0005F4 8COO 34B8 13BD 19CD 65BD 6467 SCRAP 1 6470 6473 SCRAP2 6476 6479 ORI BOC STO STO BU SETDIA1,0 DREG4,GORDSTOP LINK4,DMR3 LINK6,SERVIBG DMR3 MASK FOR RD STOP BIT BRANCH IF IT IS SET FIRST BYTE RETURN SET SERVICE POINTER GO SERVICE 6482 *** IBGSTOP IS 6484 IBGSTOP STO 6487 XFR 6490 BU 0005F5 18E4 0005F6 5F90 0005F7 6507 6493 6494 6495 6496 6497 6498 0005F8 0005F9 0005FA 0005FB () () STO XFR STO BU ALU2 THE RETURN BE FOR THE LAST DATA TO CHANNEL LINK5,DMRSTOP SET NEW STOP RETURN FORMAT,XINA BRING IN LAST BYTR DMR9 GO PRESENT THE LAST BYTE TO CHANNEL XOUTBIM,NDXAXESS XOUTBIM,XOUTB LINK5,IBGSTOP SCRAP2 RT FETCH ALU2 INDEX KICK OFF ALU2 SET STOP LINK TO PRESENT COUNTS TO CHANNEL c~ 78 9/04/73 00035310 00035320 00035330 00035340 00035350 00035360 00035370 00035380 00035400 00035410 00035420 00035430 00035440 ***************************** READ ACCESS ***************************** * THE READ ACCESS ROUTINE WILL TRANSFER TWO BYTES OF COUNT THAT * * REPRESENT THE ELAPSED TIME FROM THE RISE OF MOVE TO THE BEGINNING * * OF THE RECORD(BOR FOR PE AND FIRST BIT FOR NRZI). THE COMMAND ISSUED* * PRIOR TO THE SET DIAGNOSE WILL DETERMINE THE DIRECTION. * *********************************************************************** 6501 READACC 6504 6507 6510 1400 5441 18F5 65F2 PAGE SOURCE STATEMENT F01MAY72 ***************************** IBG MEASURE ***************************** * THE IBG MEASURE ROUTINE WILL TRANSFER BYTES OF COUNT * * REPRESENTING THE TIME FOR EACH PARTIAL AND FULL TACH ENCOUNTERED * * WHILE TRAVERSING THE GAP BETWEEN TWO RECORDS. ONE BYTES EQUALS * * THE TIME FOR ONE FULL OR PARTIAL TACH. THE COMMAND ISSUED PRIOR * * TO THE SET DIAGNOSE COMMAND WILL DETERMINE THE DIRECTION OF TAPE * * MOTION * *********************************************************************** 00035460 00035470 00035480 00035490 00035500 00035510 00035530 00035540 00035550 00035560 00035570 00035590 00035600 00035610 00035620 00035640 00035650 00035660 00035670 00035680 00035690 00035710 00035720 00035730 00035740 o ROSl LOC OBJECT CODE 000600 000600 000601 000602 000603 000604 000605 000606 000607 000608 F01F 20B7 F017 20B7 2206 66A4 140B 5441 66A4 000609 C1FE 00060A 8110 00060B 66F9 00060C 000600 00060E 00060F 000610 000611 000612 000613 PN 1846377 3803-2 MICROCODE LISTING 4488 4150 C1CO 8130 4E90 5441 9400 331E 000614 FE08 000615 3419 000616 9EOO ADDRl ADDR2 STMT 6513 6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524 6525 6526 6527 6528 6529 6530 6531 6532 6533 6534 6536 6539 6542 6545 6548 6551 6554 6557 6560 6562 6563 6564 6566 6569 6572 6574 6575 6576 6578 6581 6584 6587 6590 6593 6596 6599 6601 6602 6603 6605 6608 6611 EC 734110 SOURCE STATEMENT F01MAY72 ORG BEGIN+X'600' ********************************************************************** PAGE 79 9/04/73 00035760 00035770 * * 00035780 * * 00035790 * 6250 WRITE * 00035800 * * 00035810 * * 00035820 * * 00035830 * DENSITY DETERMINATION - AWAY FROM LOAD POINT THE DRIVE CONTROLS THE * 00035840 * DENSITY-AT LOAD POINT DRIVE FEATURES AND LAST MODE 2 SET DETERMINES * 00035850 * DENSITY. THE FOLLOWING CHART SHOWS THE RESULTANT DENSITY ON TAPE. * 00035860 * * 00035870 * TAPE MODE SET MODE SET MODE SET * 00035880 * UNIT 6250 1600 800 * 00035890 * * 00035900 * 6250/1600 6250 1600 6250 * 00035910 * 6250 6250 6250 6250 * 00035920 * 1600/800 1600 1600 800 * 00035930 * 1600 1600 1600 1600 * 00035940 * * 00035950 * * 00035960 ********************************************************************** 00035970 NOGO XOM CURCOMM,X'lF' ONE MORE LOOK 00035980 BOC DBUS,TRNAOFF 2ND CHANCE AT BR 00035990 XOM CURCOMM,X'17' ARE WE ERG 00036000 BOC DBUS,TRNAOFF BR IF SO 00036010 BOC ALUR,BADEND BR IF HOW ERROR 00036020 BU FORMTEND 00036030 BADEND STO XOUTBIM,NDXABRT LOAD ALU2 INDEX 00036040 XFR XOUTBIM,XOUTB KICK OFF ALU 2 00036050 BU FORMTEND 00036060 ****************************************************************** 00036070 * ENTRY POIMT FOR WTM ************************************* 00036080 ****************************************************************** 00036090 BEGWRTTM AND CTIMAGE,ONES-OPIN RESET OP IN IMAGE 00036100 ORI CTIMAGE,CUBUSY SET CU BUSY 00036110 BU TMPATCH EC734087 00036120 ****************************************************************** 00036i30 * ENTRY POINT FOR NORMAL WRITE***************************** 00036140 ****************************************************************** 00036150 BEGWRITE XFR WORK1,XINB BRING IN TU SENSE BYTE 0 00036160 XFR CTIMAGE,CTI DROP SVI 00036170 AND CTIMAGE,HOLDA+HOLDB FOR HIO 00036180 ORI CTIMAGE,CUBUSY+HOLDINT 00036190 TMSKIP XFR SETCNT1,XINA BRING IN FEATURE BYTE EC734087 00036200 XFR XOUTBIM,XOUTB KICK OFF ALU2 00036210 ORM WORK1,0 SET FOR TEST 00036220 BOC DREG3,DOLPBRST BRANCH IF LOAD POINT IS ON 00036230 ****************************************************************** 00036240 *LOAD POINT IS OFF --- DETERMINE DENSITY ******************** 00036250 ****************************************************************** 00036260 XOM SETCNT1,X'08' TEST FOR 66250 00036270 BOC DREG4,D080R16 BR IF NOT 6250 MODEL 00036280 aRM SETCNT1,0 GET LSR TO DBUS FOR TEST 00036290 ROSl LOC 000617 000618 000619 00061A 00061B 00061C PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE 335B 661C 9EOO 30lD 33lD 670F ADDRl ADDR2 STMT SOURCE 6614 6617 6620 D080R16 6623 6626 6629 GOD01600 STATEMENT BOC DREG3,NOBURST BU GOD01600 ORM SETCNT1,0 BOC DREGO,GOD0800 BOC DREG3,GOD0800 BU CHKOP16 EC 734110 PAGE F01MAY72 WRITE IN 1600 BPI GET LSR FOR TEST BR ON 7 TRK BR IF IN NRZI MODE 00061E 00061E 9EOO 00061F 3429 000620 301D 6633 6635 6636 6637 6638 6640 6643 6646 CHKOP800 GOD0800 BU ****************************************************************** * LOAD POINT IS ON DETERMINE DENSITY ************************** ****************************************************************** DOLPBRST EQU * GET LSR TO DBUS FOR TEST ORM SETCNT1,0 BR IF 6250 MODEL BOC DREG4,D0160R64 BR ON 7 TRK BOC DREGO,GOD0800 000621 000622 000623 000624 000625 000626 000627 000628 000629 00062A 00062B 00062C 00062D 00062E 00062F 000630 6650 6653 6656 6659 6662 6665 6668 6671 6674 6677 6680 6683 6686 6689 6692 6694 LP80R16 0006lD 6740 3223 661C 9800 361C 9200 361C 371D 661C 9800 361C 9EOO 322E 6630 D203 201C LPCKDENS D0160R64 LP160R64 GOD06400 DREG2,LPCKDENS GOD01600 ORM STATIMG,O BOC DREG6,GOD01600 XOUTAIM,O ORM DREG6,GOD01600 BOC DREG7,GOD0800 BOC GOD01600 BU STATIMG,O ORM DREG6,GOD01600 BOC SETCNT1,0 ORM DREG2,LP160R64 BOC GOD06400 BU ANDM XOUTAIM,3 DBUS,GOD01600 BOC EQU * BOC eu BR IF DUAL DENSITY AVAILABLE GO WRITE IN 1600 MODE TEST FOR LWR BR IF LWR GET LSR FOR TEST BR IF 6250 MODE SET'- (WRT # 1600) BR IF 800 MODE SET TEST FOR LWR AT LP SET FOR TEST BR IF DUAL DENSITY AVAILABLE GET LSR FOR TEST BR IF 1600 MODE SET 80 9/04/73 00036300 00036310 00036320 00036330 00036340 00036350 00036370 00036380 00036390 00036400 00036410 00036420 00036430 00036440 00036460 00036470 00036480 00036490 00036500 00036510 00036520 00036530 00036540 00036550 00036560 00036570 00036580 00036590 00036600 00036610 6696 *********************************************************************** 00036630 6697 * STARTING AT LOAD POINT - WAIT FOR TAPE MOTION TO START * 00036640 6698 *********************************************************************** 00036650 000630 28D2 000631 2B34 000632 3BOO 000633 6630 6701 * GO TO MAP 13-450 ADROUT,GOTHI01 6703 WAITSOME BOC 6705 * GO TO MAP 13-450 STATB,STRTBSVI 6707 HIORET1 BOC 6709 * GO TO MAP 13-450 BOC STATD,NOGO 6711 6713 * GO TO MAP 13-450 BU WAITSOME 6715 WATCH FOR HALT I/O WAIT FOR STATB STATD ON MEANS TROUBLE 00036680 00036690 00036700 00036710 00036720 00036730 00036740 00036750 6718 *******************-**************************************************** 00036770 6719 * WAIT NOW WHILE ALU2 WRITES ID BURST - COMPLETE ON FALL OF STATB * 00036780 6720 *********************************************************************** 00036790 000634 000634 9800 000635 365B ~.'~ \) 6722 STRTBSVI EQU 6724 MAYBLWR ORM 6727 BOC * STATIMG,O DREG6,NOBURST 00036810 00036820 00036830 ARE WE LWR SKIP BURST IF SO f) \ o ~I ROSl LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE 000636 28D6 000637 3BOO 000638 2B36 ADDRl ADDR2 STMT EC 734110 SOURCE STATEMENT 6730 * GO TO MAP 13-460 6732 STRTBRST BOC ADROUT,GOTHI03 6734 * GO TO MAP 13-460 6736 HIORET3 BOC STATD,NOGO 6738 * GO TO MAP 13-460 6740 STATB,STRTBRST BOC PAGE FO 1MAY 72 81 9/04/73 00036850 00036860 00036870 00036880 00036890 00036900 WATCH FOR HIO ERROR EXIT WAIT FOR STAT B TO FALL 6743 *********************************************************************** 00036920 6744 * GET READY TO WRITE SAGC BURST - START AT RISE OF STATB * 00036930 6745 *********************************************************************** 00036940 000639 00063A 00063B a0063C OEEA OFF8 lF8C 5F42 6749 6752 6755 6758 STO STO STO XFR SETCNT1,ONES-21 SETCNT2,ONES-7 FORMAT,FORMTll FORMAT,XOUTA LOAD HI CNT LOAD LO CNT SET FOR SAGC BST CALL FOR ONES 00063D 00063E 00063F 000640 2B41 3BOO 28D8 663D 6762 WAITONE 6765 6768 6771 HIORET4 BOC BOC BOC BU STATB,BRSTlll STATD,NOGO ADROUT,GOTHI04 WAITONE WAIT FOR STAT B ERROR EXIT HALT 10 EXIT 00037020 00037030 00037040 00037050 000641 1343 000642 66CD 6775 BRSTlll 6778 STO BU LINK4,BRSTl12 DOITFORA LOAD LINK RETURN 00037070 00037080 000643 1345 000644 66C8 6782 BRSTl12 6785 STO BU LINK4,BRSTl13 DOITFORB LOAD LINK RETURN 00037100 00037110 000645 000646 000647 000648 6789 BRST113 6792 6795 6798 ADD BOC ADD BOC SETCNT2,1 NALCO,BRST111 SETCNT1,1 NALCO, BRST 1 11 BUMP LO GO BACK BUMP HI GO BACK 00037130 00037140 00037150 00037160 AF01 2141 AEOl 2141 *5384 * *DATA GRPS* CTR IF NO CARRY CTR IF NO CARRY 00036970 00036980 00036990 00037000 6801 *********************************************************************** 00037180 6802 * BURST WRITTEN - APPEND AN INVERSE TAPE MARK TO THE END OF IT 00037190 6803 ************************************************************************ 00037200 000649 OEF9 ,00064A OFOO 6807 SAGCNTMl STO 6810 STO SETCNT1,ONES-6 SETCNT2,0 CTR LOAD HI LOAD LO CTR 00064B lFAC 00064C 134E 00064D 66CD 6814 SAGCNTM2 STO 6817 STO 6820 BU FORMAT,SAGCl LINK4,SAGCNTM3 DOITFORA LOAD LINK RETURN 00037260 00037270 00037280 00064E 1350 00064F 66C8 6824 SAGCNTM3 STO 6827 BU LINK4,SAGCNTM4 DOITFORB LOAD LINK RETURN 00037300 00037310 000650 000651 000652 000653 6831 SAGCNTM4 ADD 6834 BOC 6837 ADD 6840 BOC SETCNT2,1 NALCO,SAGCNTM2 SETCNT1,1 NALCO,SAGCNTM2 BUMP LO CTR IF NO CARRY - CINTINUE BURST BUMP HI CTR IF NO CARRY CONTINUE BURST 00037330 00037340 00037350 00037360 AFOl 214B AEOl 214B **** 00037230 00037240 &S1 LOC OBJECT CODE 000654 8880 000655 4828 000656 3BOO 000657 28D4 000658 2B56 000659 C87F 00065A 00065B 00065C 00065D 00065E PN 1846377 3803-2 MICROCODE LISTING 4828 28DC 3BOO 2B5F 665B ADDR1 ADDR2 STMT EC 734110 PAGE F01MAY72 SOURCE STATEMENT 6845 SAGCNTM5 ORI XFR 6848 STATIMG,STOP STATIMG,STAT 6851 * GO TO MAP 13-470 STATD,NOGO 6853 SAGCNTM6 BOC 6855 * GO TO MAP 13-470 ADROUT,GOTHI02 BOC 6857 6859 * GO TO MAP 13-470 STATB,SAGCNTM6 6861 HIORET2 BOC STATIMG,ONES-STOP 6864 AND 6868 6871 NOBURST 6874 HIORET6 6877 6880 XFR BOC BOC BOC BU STATIMG,STAT ADROUT,GOTHI06 STATD,NOGO STATB,FORMAT1 NOBURST IMAGE STOP SIGNAL ROS2 TO DROP WRT COND ERROR EXIT WATCH FOR HIO WAIT FOR STAT B TO FALLL RESET STOP FOR USE LATER 82 9/04/73 00037390 00037400 00037420 00037430 00037440 00037450 00037460 00037470 00037480 00037500 00037510 00037520 00037530 00037540 DROP STOP TO ROS 2 WATCH FOR HIO ERROR EXIT WAIT OFR STAT B 6884 *********************************************************************** 00037570 6885 * WRITE FORMATTING - NOT LOAD POINT - 6250 BPI * 00037580 6886 *********************************************************************** 00037590 IS THIS WTM BR IF SO ARE WE ERG BR IF SO 00037610 00037620 00037630 00037640 00037650 00037660 00037670 00037680 00037690 6889 FORMAT 1 6892 6895 6898 6901 FORMAT1X 6904 6907 6910 6913 XOM BOC XOM BOC STO STO ORM BOC BP CURCOMM,X'1F' DBUS,BRSTTM1 CURCOMM,X' 17' DBUS,TRNAOFF FORMAT, FORMT1 0 LINK4,FORMAT2 SETDIA1,0 DREG4,FORMAT5 DO I TFORA 000668 1F8A 000669 136B 00066A 66C8 6917 FORMAT2 6920 6923 STO STO BU FORMAT,FORMT01+8 LINK4,FORMAT3 DOITFORB SET UP RETURN 00037710 00037720 00037730 00066B 136D 00066C 66B8 6927 FORMAT 3 6930 STO BU LINK4,FORMAT5 ONESBRST SET UP RETURN 00037750 00037760 00066D 1F88 00066E 1370 00066F 66CD 6934 FORMAT 5 6937 6940 STO STO BU FORMAT, MARK 1 LINK4,FORMAT6 DOITFORA SET UP RETURN 00037780 00037790 00037800 00065F 000660 000661 000662 000663 000664 000665 000666 000667 F01F 20AA F017 20B7 1F81 1368 9COO 346D 66CD 000670 9DOO 000671 37EE 000672 1375 000673 1F40 000674 66C8 6943 * GO TO MAP 13-480 SETDIA2,0 6945 FORMAT6 ORM 6947 * GO TO MAP 13-480 DREG7,SUDOWRT1 6949 BOC 6951 * GO TO MAP 13-480 LINK4,DATATIME 6953 STO 6955 * GO TO MAP 13-480 FORMAT, ALOWEND . 6957 FORMAT60 STO 6959 * GO TO MAP 13-480 DOITFORB 6961 BU o SET UP RETURN TEST DIAG FLAGS BR IF INHIBIT PREAMBLE 00037820 00037830 00037840 00037850 00037860 00037870 00037880 00037890 00037900 00037910 CHK FOR DIAG FLG BR IF ON SET UP RETURN ROLS CLEAR FORMAT CONTROLS o C) (j ROS1 LOC 3803-2 MICROCODE LISTING OBJECT CODE 000675 0462 000676 28E2 000677 3F8E 000678 3BOO 000679 2780 00067A 6676 00067B 28E4 00067C 3BOO 00067D 277B 00067E 3F8E 00067F 6676 000680 A401 000681 217B 000682 1F84 000683 1385 000684 66C8 000685 3F8E 000686 lF8C 000687 1389 000688 66CD 000689 138B 00068A 66C8 ADDRl ADDR2 PN 1846377 STMT SOURCE STATEMENT PAGE F01MAY72 ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• • PREAMBLE COMPLETE - ALLOWEND IS ON - WAIT FOR ALLONES OR RESYNC ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 6964 6965 6966 6967 6969 6971 6973 6975 6977 6979 6981 6983 6985 6987 6989 • GO TO MAP 13-480 DATATIME STO WORK1,ONES-157 • GO TO MAP 13-480 DATALOOP BOC ADROUT,GOTHI09 • GO TO MAP 13-480 HIORET9 BOC ALLONES,WRAPUP • GO TO MAP 13-480 BOC STATD,NOGO • GO TO MAP 13-480 CLOCKB,WAITONAl BOC • GO TO MAP 13-480 BU DATALOOP 6992 6994 6996 6998 7000 7002 7004 7006 7008 7010 • GO TO MAP 13-480 WAITONA BOC ADROUT,GOTHI010 • GO TO MAP 13-480 BOC STATD,NOGO • GO TO MAP 13-480 HIORET10 BOC CLOCKB,WAITONA • GO TO MAP 13-480 BOC ALLONES,WRAPUP • GO TO MAP 13-480 BU DATALOOP 7013 • GO TO MAP 13-480 7015 WAITONAl ADD WORK1,1 7017 • GO TO MAP 13-480 7019 NALCO,WAITONA BOC 7022 ·GO TO MAP 13-480 7024 STO FORMAT, MARK2 7026 • GO TO MAP 13-480 7028 STO LINK4,FORMAT7 7030 • GO TO MAP 13-480 7032 BU DOITFORB 7035 7037 7039 7041 7043 7045 7047 7049 EC 734110 • GO TO MAP 13-480 FORMAT 7 BOC ALLONES,WRAPUP • GO TO MAP 13-480 FORMAT, FORMTll STO • GO TO MAP 13-480 LINK4,FORMAT8 STO • GO TO MAP 13-480 BU DOITFORA 7052 • GO TO MAP 13-480 7054 FORMAT 8 STO LINK4,FORMAT9 7056 • GO TO MAP 13-480 7058 BU DOITFORB LOAD RESYNC COUNTER WATCH FOR HALT I/O MONITOR END OF DATA ERROR EXIT EXIT ON RISE OF CLOCKB 83 9/04/73 00037930 00037940 00037950 00037960 00037970 00037980 00037990 00038000 00038010 00038020 00038030 00038040 00038050 00038060 00038070 EXIT ON FALL OF CLOCKB 00038090 00038100 00038110 00038120 00038130 00038140 00038150 00038160 00038170 00038180 BUMP RESYNC COUNTER 00038200 00038210 00038220 00038230 WATCH FOR HALT I/O ERROR EXIT EXIT ON PASS 158 SET UP RETURN MONITOR FOR EOD SET UP RETURN SET UP RETURN 00038250 00038260 00038270 00038280 00038290 00038300 00038320 00038330 00038340 00038350 00038360 00038370 00038380 00038390 00038410 00038420 00038430 00038440 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE 00068B 1F88 00068C 1370 00068D 66CD ADDR1 ADDR2 SOURCE STATEMENT STMT 7061 * GO TO MAP 13-480 FORMAT, MARK 1 7063 FORMAT 9 STO 7065 * GO TO MAP 13-480 LINK4,FORMAT6 7067 STO 7069 * GO TO MAP 13-480 DOITFORA 7071 BU EC 734110 PAGE FO 1MAY 72 SET UP RETURN 84 9/04/73 00038460 00038470 00038480 00038490 00038500 00038510 7074 *********************************************************************** 00038530 7075 * END OF DATA OR OVERRUN - ALLOW FOR RESIDUAL & CRC FRAME, THEN * 00038540 7076 * FORMAT THE ENDING BURST. * 00038550 7077 *********************************************************************** 00038560 00068E 2490 00068F 6691 000690 8720 7080 WRAPUP 7083 7086 BOERR BOC BU ORI BOPE,BOERR FORMAT 1 0 SNSSTS2,BUSOC BR ON BUS OUT EVEN 000691 000692 000693 000694 7090 FORMAT 1 0 7093 7096 SETCT2 7099 STO STO STO BU FORMAT, 0 LINK4,FORMAT12 WORK1,ONES-3 DOTWO CALL FOR RESIDUAL FRAME SET UP RETURN SET CNT FOR 4 000695 1F84 000696 1398 000697 66CD 7103 FORMAT12 STO 7106 STO 7109 BU FORMAT, MARK 2 LINK4,FORMAT14 DOITFORA SET UP RETURN 00038670 00038680 00038690 139C 9COO 32A2 66B8 7113 FORMAT14 STO 7116 ORM 7119 BOC 7122 BU LINK4,FORMAT16 SETDIA1,0 DREG2,FORMAT19 ONESBRST SET UP RETURN TEST DIAG FLAGS BR IF INHIBIT POST AMBLE 00038710 00038720 00038730 00038740 00069C 139F 00069D 1F86 00069E 66C8 7127 FORMAT16 STO STO 7130 BU 7133 LINK4,FORMAT18 FORMAT, FORMTO 1 +4 DOITFORB SET UP RETURN 00038770 00038780 00038790 00069F 13A2 0006AO 1F81 0006Al 66CD 7137 FORMAT18 STO STO 7140 BU 7143 LINK4,FORMAT19 FORMAT, FORMT 1 0 DOITFORA SET UP RETURN 00038810 00038820 00038830 0006A2 8880 0006A3 4828 7147 FORMAT19 ORI XFR 7150 STATIMG,STOP STATIMG,STAT IMAGE STOP SET STOP 00038850 00038860 38A7 C9FE 63B8 C1CF 8101 63B8 7154 FORMTEND BOC AND 7157 BU 7160 7163 TOSETSTP AND ORI 7166 BU 7169 CHK FOR PREVIOS HIO OPRIN,TOSETSTP YES - RESET CHAIN FLAG FLAGS,ONES-CHAIN BR IF YES BSTWAIT CTIMAGE,ONES-CUBUSY-HOLDINT RESTORE REGS CTIMAGE,OPIN NORMAL EXIT BSTWAIT 000698 000699 00069A 00069B 0006A4 0006A5 0006A6 0006A7 0006A8 0006A9 1FOO 1395 04FC 66BA 00038580 00038590 00038600 SET BUS OUT CHK 7172 ******************************************************************* 6250 WRITE TAPE MARK ************************ 7173 ********** 7174 ******************************************************************* () 00038620 00038630 00038640 00038650 00038880 00038890 00038900 00038910 00038920 00038930 00038950 00038960 00038970 o .~ I ROSl 3803-2 MICROCODE LISTING LOC OBJECT CODE 0006AA OEDA EC 734110 PAGE F01MAY72 85 STMT SOURCE STATEMENT 7177 BRSTTMl STO SETCNT1,ONES-37 LOAD HI TM CTR 0006AB lF9C 0006AC 13AE 0006AD 66CD 7181 BRSTTM2 7184 7187 STO STO BU FORMAT,TM64 LINK4,BRSTTM3 DOITFORA CALL FOR TM LOAD LINK RETURN 00039010 00039020 00039030 0006AE 13BO 0006AF 66C8 7191 BRSTTM3 7194 STO BU LINK4,BRSTTM4 DOITFORB LOAD LINK RETURN 00039050 00039060 0006BO AEOl 0006Bl 21AB 7198 BRSTTM4 7201 ADD BOC SETCNT1,1 NALCO,BRSTTM2 BUMP HI CTR IF NO CARRY - CINTINUE BURST 00039080 00039090 0006B2 8880 0006B3 4828 7206 BRSTTM5 7209 ORI XFR STATIMG,STOP STATIMG,STAT IMAGE STOP SIGNAL ROS2 TO DROP WRT COND 00039120 00039130 0006B4 0006B5 0006B6 0006B7 7213 BRSTTM6 7216 7219 HIORET5 7222 TRNAOFF BOC BOC BOC BU STATD,NOGO ADROUT,GOTHI05 STATB,BRSTTM6 CTLWAIT ERROR EXIT WATCH FOR HIO WAIT FOR STAT B TO FALLL 00039150 00039160 00039170 00039180 3BOO 28DA 2BB4 6249 ADDRl ADDR2 PN 1846377 **** 9/04/73 00038990 7226 *********************************************************************** 00039210 7227 * THIS SUBROUTINE WILL CONTROL THE WRITING OF A TEN GROUP BURST OF * 00039220 7228 * ALL ONES. A SECOND ENTRY POINT ALLOWS FOR RESIDUAL AND CRC FRAMES. * 00039230 7229 * ALSO USEFIL FOR CLOCKING NRZI CRC AND LRC BYTES, AND WRITING PE * 00039240 7230 * PREAMBLES AND POST AMBLES. * 00039250 7231 *********************************************************************** 00039260 0006B8 lF8C 0006B9 04F2 0006BA 5F42 7234 ONESBRST STO 7237 STO 7240 DOTWO XFR 0006B8 27C2 7244 CHKCLOCK BOC CLOCKB,BCLOCKUP 7246 * GO TO MAP 13-510 7248 ACLOCKUP BOC CLOCKB,BUMPCTR 7250 * GO TO MAP 13-510 7252 BOC STATD,NOGO 7254 * GO TO MAP 13-510 BOC ADROUT,GOTHI011 7256 7258 * GO TO MAP 13-510 ACLOCKUP 7260 HIORETll BU 0006BC 27C3 0006BD 3BOO 0006BE 28E6 0006BF 66BC FORMAT, FORMT 1 1 WORK1,ONES-13 FORMAT,XOUTA 0006C2 27CO 7263 * GO TO MAP 13-510 ADROUT,GOTHI012 7265 ACTIVEB BOC 7267 * GO TO MAP 13-510 7269 HIORET12 BOC STATD,NOGO 7271 * GO TO MAP 13-510 7273 BCLOCKUP BOC CLOCKB,ACTIVEB 0006C3 0006C4 0006C5 0006C6 0006C7 7277 BUMPCTR 7280 7283 7286 NRZIRET2 7289 NRZIRET3 0006CO 28E8 0006Cl 3BOO A401 21BB 5322 675B 6761 ADD BOC XFR BU BU WORK1,1 NALCO,CHKCLOCK LINK4,IC CRCTIME1 CRCTIME2 CALL FOR ALL ONES SET COUNT FOR 14 GATE TO DATA FLOW GROUPS GO TO PROPER WAIT LOOP ADD TO COUNTER ON RISE OF A CLOCK ERROR EXIT WATCH FOR HALT I/O STAY IN LOOP TILL CLOCK A RISES 00039280 00039290 00039300 00039320 00039330 00039340 00039350 00039360 00039370 00039380 00039390 00039400 STAY IN LOOP TILL FALL OF A CLOCK 00039420 00039430 00039440 00039450 00039460 00039470 BUMP GROUP CTR EXIT ON PASS COMPLETE RETURN TO PROPER ROUTINE NRZI RETURN NRZI RETURN 00039490 00039500 00039510 00039520 00039530 WATCH FOR HALT I/O ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT EC 734110 PAGE SOURCE STATEMENT F01MAY72 86 9/04/73 7293 *********************************************************************** 00039560 7294 * THIS SUBROUTINE WILL GATE XOUTA, THEN WAIT FOR CLOCK B TO FALL 00039570 7295 ************************************************************************ 00039580 7297 7299 7301 7303 7305 7307 7309 7311 7313 7315 0006C8 5F42 0006C9 28DE 0006CA 3BOO 0006CB 27C9 0006CC 5322 * GO TO MAP 13-480 FORMAT,XOUTA DOITFORS XFR * GO TO MAP 13-480 ADROUT,GOTHI07 RIGHTON BOC * GO TO MAP 13-480 STATD,NOGO HIORET7 BOC * GO TO MAP 13-480 CLOCKS,RIGHTON BOC * GO TO MAP 13-480 RETURN 11 XFR LINK4,IC SET FORMAT CONTROLS WATCH FOR HALT I/O ERROR EXIT WAIT FOR CLOCKS TO FALL RETURN 00039600 00039610 00039620 00039630 00039640 00039650 00039660 00039670 00039680 00039690 7318 *********************************************************************** 00039710 7319 * THIS SUBROUTINE WILL GATE XOUTA,THEN WAIT FOR CLOCKS TO RISE * 00039720 7320 *********************************************************************** 00039730 7322 * GO TO MAP 13-480 FORMAT,XOUTA 7324 DOITFORA XFR 7326 * GO TO MAP 13-480 CLOCKS,RETURN11 7328 RIGHTOFF BOC 7330 * GO TO MAP 13-480 7332 BOC STATD,NOGO 7334 * GO TO MAP 13-480 ADROUT,GOTHI08 7336 SOC 7338 * GO TO MAP 13-480 7340 HIORET8 BU RIGHTOFF 0006CD 5F42 0006CE 27CC 0006CF 3BOO 0006DO 28EO 0006D1 66CE 00039750 00039760 00039770 00039780 00039790 00039800 00039810 00039820 00039830 00039840 SET FORMAT CONTROLS EXIT ON CLOCKB RISE ERROR EXIT WATCH FOR HALT I/O STAY IN LOOP 7343 ********************************************************************** 00039860 7344 * HALT 10 SECTION -- GET OFF THE INEERFACE * 00039870 7345 ********************************************************************** 00039880 0006D2 0006D3 0006D4 0006D5 0006D6 0006D7 0006D8 0006D9 0006DA 0006DB 0006DC 0006DD 0006DE 0006DF 0006EO 0006E1 ~ \ j 7348 7351 7354 7357 7360 7363 7366 7369 7372 7375 7378 7381 7384 7387 7390 7393 4150 6631 4150 6658 4150 6637 4150 6640 4150 66B6 4150 665C 4150 66CA 4150 66D1 C·''.')"' . GOTHI01 GOTHI02 GOTHI03 GOTHI04 GOTHI05 GOTHI06 GOTHI07 GOTHI08 C) XFR BU XFR BU XFR BU XFR BU XFR BU XFR BU XFR BU XFR BU CTlMAGE,CTI HIORET1 CTlMAGE,CTI HIORET2 CTlMAGE,CTI HIORET3 CTlMAGE,CTI HIORET4 CTlMAGE,CTI HIORET5 CTlMAGE,CTI HIORET6 CTlMAGE,CTI HIORET7 CTlMAGE,CTI HIORET8 CROP OP IN ON HIO 00039900 00039910 00039920 00039930 00039940 00039.950 00039960 00039970 00039980 00039990 00040000 00040010 00040020 00040030 00040040 00040050 DROP OP IN ON HIO DROP OP IN ON HIO DROP OP IN ON HIO DROP OP IN ON HIO LDROP OP IN ON HIO DROP OP IN ON HIO DROP OP IN ON HIO () o ROS1 3803-2 MICROCODE LISTING LOC 0006E2 0006E3 0006E4 0006E5 0006E6 0006E7 0006E8 0006E9 0006EA 0006EB 0006EC 0006ED OBJECT CODE 4150 6677 4150 667D 4150 66BF 4150 66C1 6710 6720 6722 673B EC 734110 PAGE SOURCE STATEMENT F01MAY72 GOTHI09 XFR CTIMAGE,CTI DROP OP IN ON HIO BU HIORET9 GOTHI010 XFR CTIMAGE,CTI DROP OP IN ON HIO BU HIORET10 GOTHI011 XFR CTIMAGE,CTI DROP OP IN ON HIO BU HIORET11 GOTHI012 XFR CTIMAGE,CTI DROP OP IN ON HIO BU HIORET12 RETURNOO BU BEGONES RETURN01 BU PEDATA1 RETURN 0 2 BU PEDATA2 RETURN03 BU ENDTM *********************************************************************** * MICRO DIAGNOSTIC----WITJ PROPER CONTROL BITS SET VIA SET DIAGNOSE, * * THIS CODE WILL LOOP WRITE FORMAT ONLY- NO DATA WILL BE WRITTEN. * * FORMAT LOOPED IS-- NORMAL PREAMBLE/32MARK ONES/ALLONES/32 MARK TWOS/* , * /NORMAL POST AMBLE. * *********************************************************************** LINK4,SUDOWRT3 SUDOWRT1 STO LOAD LINK RETURN SUDOWRT2 STO WORK1,ONES-30 LOAD CTR 31 MORE DOTWO BU 87 0006EE 13F1 0006EF 04E1 0006FO 66BA STMT 7396 7399 7402 7405 7408 7411 7414 7417 7420 7423 7426 7429 7431 7432 7433 7434 7435 7436 7438 7441 7444 0006F1 0006F2 0006F3 0006F4 13F5 1F8C 04FF 66BA 7448 SUDOWRT3 STO 7451 STO 7454 STO 7457 BU LINK4,SUDOWRT4 FORMAT, FORMT1 1 WORK1,ONES DOTWO LOAD LINK RETURM SET CONTROLS LOAD CTR - 1 00040280 00040290 00040300 00040310 0006F5 0006F6 0006F7 0006F8 1F84 1398 04EO 66BA 7461 SUDOWRT4 STO 7464 STO STO 7467 7470 BU FORMAT,MARK2 LINK4,FORMAT14 WORK1,ONES-31 DOTWO CALL FOR MARK2 LOAD LINK RETURN LOAD CTR - 32 00040330 00040340 00040350 00040360 7474 TMPATCH 7477 7480 CTIMAGE,CTI WORK1,XINB TMSKIP DROP OP IN BRING IN SENSE BYTE 0006F9 4150 0006FA 4488 0006FB 6610 ADDR1 ADDR2 PN 1846377 XFR XFR BU 9/04/73 00040060 00040070 00040080 00040090 00040100 00040110 00040120 00040130 00040140 00040150 00040160 00040170 00040180 00040190 00040200 00040210 00040220 00040230 00040240 00040250 00040260 EC734087 00040380 EC734087 00040390 EC734087 00040400 ROSl LOC OBJECT CODE 000700 000700 000701 000702 000703 PN 1846377 3803-2 MICROCODE LISTING OEOO 9200 200C 0401 ADDRl ADDR2 EC 734110 PAGE STMT 7483 7484 7485 7487 7490 7493 7496 9/04/73 00040420 0004043.0 00040440 00040450 00040460 00040470 00040480 7499 7500 7501 7502 7503 7504 7505 7506 7507 7508 7509 7510 7511 7512 7513 ****BIT POSITION TO HEX CONVERTER*** * * 4.5 6 7 TRACK * * BIT * * P 0 0 0 0 * * 7 0 0 0 1 $ * 6 * 0 0 1 0 5 * 0 0 1 1 * 4 0 1 0 0 * * 3 0 1 0 1 * * 2 0 1 1 0 * * 1 0 1 1 1 * * 0 1 0 0 0 * * * * ************************************ 00040500 00040510 00040520 00040530 00040540 00040550 00040560 00040570 00040580 0.0040590 00040600 00040610 00040620 00040630 00040640 7516 STO SETCNT1,1 XFR XOM BOC ADD WORK1,AR XOUTAIM,O DBUS,DOTIEMS2 SETCNT1,1 SET GENERATED SINGLE BIT IN A REG MASK FOR MATCHING BYTES BRANCH IF MATCH TIE BYTE ONLY HAS 000709 4421 00070A MOO 00070B 2105 7520 NOTLAST 7523 7526 7529 7531 * 7533 DOAGAIN 7536 7539 XFR ADD BOC WORK1,AR WORK1,0 NALCO,NOTLAST A SINGLE BIT ON XFR PATTERN BIT TO ALU INPUT REG SHIFT PATTERN BIT LEFT ONE TIME BRANCH IF NOT LAST PATTERN 00070C 4E42 00070D 4014 .o.o070E 63D7 7545 DOTIEMS2 XFR 7548 XFR 7551 BU SETCNT1,XOUTA TIP CHEKSNS 000704 OEOl 0.00705 000706 000707 00.0708 4421 F200 200C AEOl 88 F01MAY72 SOURCE STATEMENT BEGIN+X'700' ORG *** SCREEN TIE BYTE FOR SINGLE TRACK ERROR. MOVE BYTE TO DATA FLOW *** DEAD TRACK REG ONLY IF IT WAS SINGLE TRACK. SETCNT1,0 SCREENTI STO MASK FOR TESTING XOUTAIM,O ORM BRANCH IF O--CORRECT FOR TRK P DBUS,DOTIEMS2 BOC INITIALIZE WORK 1 TO RIPPLE SINGLEBIT WORK1,1 STO 00040660 SET TIE BYTE IN DATA FLOW REG TRANSFER TO DEAD TRACK REG () 0004.0680 00040690 00040700 00040710 00.040·720 00040730 00040740 00040750 00040790 00040800 .00040810 ROS1 LOC 3803-2 MICROCODE LISTING OBJECT CODE PN 1846377 000712 670F STMT SOURCE STATEMENT 7554 * GO TO MAP 13-530 7556 CHKOP16 BOC ADROUT,GOTHI016 7558 * GO TO MAP 13-530 7560 HIORET16 BOC STATD,TONOGO 7562 * GO TO MAP 13-530 7564 BOC STATB,READY16 7566 * GO TO MAP 13-530 7568 BU CHKOP16 000713 000714 000715 000716 7572 READY16 7575 7578 7581 00070F 286D 000710 3B35 000711 2B13 F01F 2037 F017 203F ADDR1 ADDR2 XOM BOC XOM BOC CURCOMM,X'1F' DBUS,TM1600 CURCOMM,X' 17' DBUS,ERGEXIT EC 734110 PAGE F01MAY72 WATCH FOR HALT I/O ERROR EXIT WAIT FOR RISE OF B STAT 89 9/04/73 00040830 00040840 00040850 0004086D 00040870 000'40880 0~D4089D 00040900 IS BR IS BR THIS WTM IF SO THIS ERG IF SO 00040920 00040930 00040940 00040950 ROSl LOC 000717 000718 000719 00071A 00071B 00071C PN 1846377 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE 7592 PREAMBLE STO ORM 7595 BOC 7598 STO 7601 LOAD40 7604 STO 7607 BU 13EA 9COO 3410 04D8 lF80 66BA EC 734110 PAGE STMT SOURCE STATEMENT F01MAY72 7584 ****************************~************************* ***************** 7585 * * 7586 * 1600 BPI WRITE * 7587 * * 7588 * * 7589 *********************************************************************** LINK4,RETURNOO SETDIA1,0 DREG4,BEGONES WORK1,ONES-39 FORMAT, FORMTOO DOTWO LOAD LINK RETURN - BEGONES TEST FLAGS BR IF INHIBIT PREAMBLE LOAD COUNT FOR PREAMBLE - 40 LOAD CONTROL BYTE LEAVE FOR 40 BYTES ****40 ZEROES ARE WRITTEN - SET CONTROLS TO WRITE BEGINNING ONES *** THEN TURN ON ALLOW END 90 9/04/73 00040970 00040980 00040990 00041000 00041010 00041020 00041040 00041050 00041060 00041070 00041080 00041090 000710 13EB 00071E lF88 00071F 66CD 7610 7611 7613 7616 7619 BEGONES SETFORl STO STO BU LINK4,RETURNOl FORMAT, MARK 1 DO I TFORA LOAD LINK RETURN - PE DATAl LOAD CONTROL BYTE 00041110 00041120 00041130 00041140 00041150 000720 13EC 000721 6673 7623 PEDATAl 7626 STO BU LINK4,RETURN02 FORMAT60 LOAD LINK RETURN - PEDATA2 GO TURN ON ALLOW END 00041170 00041180 000722 7629 PEDATA2 EQU * 7630 * GO TO MAP 13-540 BOC ALLONES,POSTAMBL 7632 7634 * GO TO MAP 13-540 STATD,TONOGO 7636 PEDATA3 BOC 7638 * GO TO MAP 13-540 BOC ADROUT,GOTHI014 7640 7642 HIORET14 EQU * 7643 * GO TO MAP 13-540 BOC CLOCKB,PEDATA5 7645 7647 * GO TO MAP 13-540 BU PEDATA3 7649 000722 3F2C 000723 3B35 000724 2865 000725 000725 2727 000726 6723 WATCH FOR EOD EXIT ON EARLY TERMINATE WATCH FOR HIO WAIT FOR RISE OF CLOCK B 00072B 6722 7652 * GO TO MAP 13-540 ALLONES,POSTAMBL 7654 PEDATA5 BOC 7656 * GO TO MAP 13-540 STATD,TONOGO 7658 PEDATA6 BOC 7660 * GO TO MAP 13-540 BOC ADROUT,GOTHI015 7662 7664 * GO TO MAP 13-540 CLOCKB,PEDATA6 7666 HIORET15 BOC 7668 * GO TO MAP 13-540 BU PEDATA2 7670 00072C 00072D 00072E 00072F 000730 7673 *** ALL ONES WRITTEN NOW - SO WRITE ENDING 40 ZEROES FORMAT,X' 80 , LOAD CONTROL REG 7675 POSTAMBL STO DO IT 7678 XFR FORMAT,XOUTA BR IF PARITY BZD 7681 BOC BOPE,COMPLl BU COMPL 7684 SET BUS OUT CHK ORI SNSSTS2,BUSOC 7687 COMPLl 000727 3F2C 000728 3B35 000729 2867 00072A 2728 lF80 5F42 2430 6731 8720 f-, "- .. () 00041200 00041210 00041220 00041230 00041240 00041250 00041260 00041270 00041280 00041290 00041300 00041310 00041330 00041340 00041350 00041360 00041370 00041380 00041390 00041400 00041410 00041420 WATCH FOR EOD EXIT ON EARLY TERMINATE WATCH FOR HIO WAIT FOR FALL OF CLOCK B (\ \. ./ ****** (" . ) 00041440 00041450 00041460 00041470 00041480 00041490 o ROS1 3803-2 MICROCODE LISTING LOC 000731 000732 000733 000734 000735 000736 OBJECT CODE 13A2 9COO 3236 671A 6600 66A2 ADDR1 ADDR2 PN 1846377 STMT SOURCE 7690 COMPL 7693 7696 7699 7702 TONOGO 7705 DOINHPST STATEMENT STO LINK4,FORMAT19 ORM SETDIA1,0 BOC DREG2,DOINHPST BU LOAD40 BU NOGO BU FORMAT19 EC 734110 F01MAY72 LOAD LINK RETURN - AS STATED TEST FLAGS BR IF INHIBIT POSTAMBLE GO WRITE POSTAMBLE - THEN SET STOP PAGE 91 9/04/73 00041500 00041510 00041520 00041530 00041540 00041550 ROS1 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846377 EC 734110 PAGE 92 STMT SOURCE STATEMENT F01MAY72 9/04/73 7708 *********************************************************************** 00041570 7709 * * 00041580 7710 * 1600 BPI WRITE TAPE MARK * 00041590 7711 * * 00041600 7712 * * 00041610 7713 *********************************************************************** 00041620 000737 000738 000739 00073A 04CO BED 1F92 66BA 7717 TM1600 7720 TM1600B 7723 7726 STO STO STO BU WORK1,ONES-63 LINK4,RETURN03 FORMAT,TMO DOTWO LOAD TM CTR LOAD LINK RETURN - END LOAD CONTROL BYTE 00073B 00073C 00073D 00073E 00073F 8880 4828 1F80 5F42 6249 7730 ENDTM 7733 7736 STROBE 7739 7742 ERGEXIT ORI XFR STO XFR BU STATIMG,STOP STATIMG,STAT FORMAT, FORMTOO FORMAT,XOUTA CTLWAIT IMAGE STOP GET STOP SET COMTROL REG STOBE CONTROLS GO WAIT FOR ALU 2 TO COMPLETE ) TM o 00041650 00041660 00041670 00041680 00041700 00041710 00041720 00041730 00041740 tj ROSl LOC 3803-2 MICROCODE LISTING OBJECT CODE EC 734110 93 000743 6740 000744 000745 000746 000747 000748 FOOl 2049 F08B 2049 6730 7772 READY800 XOM 7775 BOC 7778 XOM 7781 BOC 7784 BU CURCOMM,l DBUS,WRITESUM CURCOMM,X'8B' DBUS,WRITESUM STROBE IS THIS A WRITE BR IF SO CHK FOR LWR BR IF SO MUST BE ERG OR WTM -- EXIT 00041940 00041950 00041960 00041970 00041980 000749 lF40 00074A 5F42 7788 WRITESUM STO 7791 XFR FORMAT,ALOWEND FORMAT,XOUTA SET ALLOW END 00042000 00042010 000741 3B35 000742 2B44 00074B 3F54 00074C 2869 000740 3B35 00074E 274C SOURCE STATEMENT F01MAY72 ********************************************************************** PAGE STMT 7747 7748 7749 7750 7751 7752 7753 7754 7756 7758 7760 7762 7764 7766 7768 000740 286F ADDRl ADDR2 PN 1846377 * * ** * SEVEN AMD NINE TRACK NRZI WRITE * ** * * ********************************************************************** * GO TO MAP 13-520 CHKOP800 BOC ADROUT, GOTHIO 17 WATCH FOR HIO * GO TO MAP 13-520 HIORET17 BOC STATD,TONOGO ERROR EXIT * GO TO MAP 13-520 STATB,READY800 BOC WATCH FOR TAPE OP * GO TO MAP 13-520 BU CHKOP800 7794 * GO TO MAP 13-520 7796 PHASEl ALLONES,DOCRC BOC 7798 * GO TO MAP 13-520 7800 WRITELUP BOC ADROUT,GOTHI018 7802 * GO TO MAP 13-520 7804 HIORET18 BOC STATD,TONOGO 7806 * GO TO MAP 13-520 7808 BOC CLOCKB,WRITELUP 000753 6750 7811 * GO TO MAP 13-520 7813 PHASE2 BOC ALLONES,DOCRC 7815 * GO TO MAP 13-520 7817 PHASE3 BOC ADROUT,GOTHI019 7819 * GO TO MAP 13-520 7821 HIORET19 BOC STATD,TONOGO 7823 * GO TO MAP 13-520 7825 BOC CLOCKB,PHASEl 7827 * GO TO MAP 13-520 7829 PHASE3 BU 000754 2456 000755 6757 000756 8720 7833 DOCRC 7836 7839 DOCRC3 BOC BU ORI BOPE,DOCRC3 DOCRC2 SNSSTS2,BUSOC 000757 000758 000759 00075A 7843 DOCRC2 7846 7849 DOCRCl 7852 STO STO STO BU LINK4,NRZIRET2 WORK 1 ,ONES-l FORMAT, FORMTOO DOTWO 00074F 3F54 000750 286B 000751 3B35 000752 274B 13C6 04FE lF80 66BA CONTROL EXIT IF DONE WATCH FOR HIO ERROR EXIT WAIT FOR FALL EXIT IF TIME WATCH FOR HIO EARLT EXIT WAIT FOR RISE BR IF PARITY BAD SET BUS OUT CHK LOAD LINK RETURM- CRCTIMEl SET CNT TO 2 LOAD CONTROLS 9/04/73 00041780 00041790 00041800 00041810 00041820 00041830 00041840 00041850 00041860 00041870 00041880 00041890 00041900 00041910 00041920 00042030 00042040 00042050 00042060 00042070 00042080 00042090 00042100 00042120 00042130 00042140 00042150 00042160 00042170 00042180 00042190 00042200 00042210 00042230 00042240 00042250 00042270 00042280 00042290 00042300 ROS1 LOC PN 1846377 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT EC 734110 PAGE F01MAY72 SOURCE STATEMENT 94 9/04/73 00075B 00075C 00075D 00075E 00075F 000760 13C7 1FOO 04FF 9EOO 3062 66BA 7857 CRCTIME1 STO STO 7860 STO 7863 ORM 7866 7869 BOC BU 7872 LINK4,NRZIRET3 FORMAT, 0 WORK1,ONES SETCNT1,0 DREGO,CRCTIME3 DOTWO LOAD LINK RET CLEAR CONTROL REG SET CRT TO 1 TEST FOE 7 TRK BR IF IT IS 00042330 00042340 00042350 00042360 00042370 00042380 000761 000762 000763 000764 04FC 13A2 6759 66A2 7876 CRCTIME2 STO 7879 CRCTIME3 STO BU 7882 7885 CRCTIME7 BU WORK 1 , ONES- 3 LINK4, FORMAT19 DOCRC1 FORMAT19 SET CTR TO 4 LOAD LINK RETURN 00042400 00042410 00042420 00042430 000765 000766 000767 000768 000769 00076A 00076B 00076C 4150 6725 4150 672A 4150 674D 4150 6751 7889 7892 7895 7898 7901 7904 7907 7910 GOTHI014 XFR BU GOTHI015 XFR BU GOTHI018 XFR BU GOTHI019 XFR BU CTIMAGE,CTI HIORET14 CTIMAGE,CTI HIORET15 CTIMAGE,CTI HIORET18 CTIMAGE,CTI HIORET19 00076D 00076E 00076F 000770 4150 6710 4150 6741 7914 GOTHI016 XFR BU 7917 7920 GOTHI017 XFR BU 7923 CTIMAGE,CTI HIORET16 CTIMAGE,CTI HIORET17 000771 000771 000772 000773 000774 000775 000775 000776 000777 7926 CHKDISC EQU * ANDM SETDIA2,2 7928 DBUS,NOTHISTM BOC 7931 AND SETDIA2,ONES-2 7934 XFR HDWERR 7937 7939 NOTHISTM EQU * 7941 FRUSAV,9 STO STATIMG,STAT 7944 XFR IDLESCAN 7947 BU 7949 */* ALU1 : END */ BEGIN END 7950 DD02 2075 CDFD 4011 1E09 4828 6304 () 7 TRK EXIT 00042450 00042460 00042470 00042480 00042490 00042500 00042510 00042520 GET OFF INTER FACE 00042540 00042550 00042560 00042570 TEST FOR DISC IN FLAG BR IF OFF RESET FLG TESY BUMP FRU REG SET STATS TO HARDWARE C) 00042590 00042600 00042610 00042620 00042630 00042640 00042650 00042660 00042670 00042680 00042690 o ~ \ J ROSl 3803-2 MICROCODE LISTING ROSl SYMBOL LEN VALUE DEFN REFERENCES #ADROUT 00001 000008 00598 1126 1235 4534 4623 7256 7265 4538 6977 #ALLONES 00001 00001F 00623 00001 000002 00591 1020 1023 #ALUR 5974 6548 #ALU1ERR 00001 000005 00775 #ALU2ERR 00001 000006 00776 #BOPE 00001 000004 00593 1809 3301 #CLOCKB 00001 000007 00597 6985 7002 #CMDOUT 00001 000009 00599 1232 1349 #CNT40 00001 000010 00922 2707 #CTIMAGE 00001 000001 00754 0981 1038 3064 3067 4022 4048 7166 #CURADDR 00001 000003 00756 1265 1271 #CURCOMM 00001 000000 00753 2238 2244 4852 4858 7778 #DBUS 00001 000000 00589 1132 1181 1713 1719 2213 2219 2936 3052 3595 3604 4718 4812 4993 5031 5543 5749 7581 7775 3153 4629 #DFLER 00001 000007 00596 #DREGO 00001 000010 00607 1960 2256 #DREGl 00001 000011 00608 1011 1963 #DREG2 00001 000012 00609 1973 2000 7696 #DREG3 00001 000013 00610 1970 1997 #DREG4 00001 000014 00611 1967 3297 #DREG5 00001 000015 00612 1575 1673 #DREG6 00001 000016 00613 1578 1922 1262 1919 #DREG7 00001 000017 00614 1129 1178 # FLAGS 00001 000009 00762 1664 1667 3647 3653 4843 4885 5341 5358 # FLAGS 1 00001 OOOOOA 00763 1458 1508 4878 4974 1008 1105 #FLAGS2 00001 OOOOOB 00765 5251 5668 #FRUREG 00001 OOOOOD 00783 1099 #ISEL 00001 OOOOlD 00620 1041 4257 #LINKl 00001 000000 00770 #LINK2 00001 000001 00771 #LINK3 00001 000002 00772 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 95 9/04/73 4520 7216 1342 5525 7303 7006 3137 1372 6138 7336 7037 3332 1699 6193 7556 7632 3621 1776 6306 7640 7654 3644 2755 6320 7662 7796 3788 2774 6703 7756 7813 3967 2854 6732 7800 2874 6768 7817 3414 6857 4058 6871 4225 6973 4293 6994 4147 4388 4423 4553 4565 5364 5907 6073 7244 1376 7080 7248 1544 7681 7273 1780 7833 7311 2860 7328 2878 7645 4220 7666 4266 7808 7825 1054 3369 4051 1166 3380 4106 1172 3411 4134 1361 3423 4137 1367 3516 4312 1496 3523 4725 1538 3548 4834 1597 3568 4871 1634 3668 6566 1692 3682 6569 1806 3749 6584 2851 3979 6587 2869 4010 7163 1500 2250 5005 1833 2330 5169 1916 3049 5350 1940 3055 5505 2015 3105 6199 2130 3291 6438 2136 3468 6536 2142 3993 6542 2204 4568 6889 2210 4574 6895 2216 4686 7572 2222 4809 7578 2232 4815 7772 1203 1753 2225 3058 3650 4818 5055 5892 7781 4700 2973 2201 2038 1214 1762 2235 3086 3656 4827 5064 6129 7931 1268 1797 2241 3108 3665 4846 5077 6232 1274 1829 2247 3114 3762 4855 5087 6292 1405 1836 2253 3124 3778 4861 5166 6441 1411 1928 2333 3165 4019 4888 5233 6539 1417 1943 2440 3366 4376 4918 5245 6545 1423 2018 2446 3436 4447 4928 5254 6692 1467 2052 2465 3446 4571 4934 5277 6892 1504 2133 2507 3455 4584 4950 5373 6898 1572 2139 2546 3471 4603 4963 5432 7493 1590 2145 2698 3557 4640 4977 5498 7526 1670 2207 2726 3575 4689 4987 5508 7575 2998 2949 2068 3294 3092 3481 4620 4587 4590 5671 4999 4683 5714 5394 5720 5838 5717 5824 6623 5831 5857 6646 5867 5878 7869 6248 6252 6650 6683 7119 5344 4435 1925 2012 4577 1200 1710 3685 4900 5370 1520 4984 1759 5407 5726 2198 3598 5735 1211 1794 3759 4915 5388 2049 5049 1855 5723 5810 4677 3784 5789 1259 1826 3833 4940 5429 2276 5074 2273 5817 6256 5729 5732 6202 1399 1852 3884 4947 5495 2286 5122 2289 6599 6470 5803 5796 6668 1426 1874 4013 4960 5540 2302 5242 2350 6614 6608 6626 6643 6910 7598 6659 6949 1454 3083 4016 4990 7157 2347 6665 6677 6727 1476 3171 4042 4996 1482 3281 4179 5038 1492 3363 4431 5061 1512 3399 4480 5094 1568 3433 4660 5154 1618 3452 4772 5230 1627 3554 4821 5274 2361 2368 2543 3688 4117 4824 4868 2358 2462 2513 2970 2995 4103 4120 5118 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 5193 00001 000003 00773 #LINK4 00778 00001 000008 #LINK5 00001 000009 00779 #LINK6 1820 2148 00001 000003 00592 #MIFTR 5297 5304 4318 5746 00001 000001 00590 #NALCO 6798 6834 3391 5002 00001 000005 00594 #NCUEA 4892 5347 00001 DOODlE 00621 #NCUEB 1047 0978 00619 00001 00001C #NGENR 2844 3355 00001 000018 00615 #OPRIN 4633 #OVERRUN 00001 00001F 00622 1153 1159 #PNDAbDR 00001 000006 00759 1218 1402 #PNDSTS 00001 000005 00758 3439 3443 5435 5546 0975 4100 #PWRRST 00001 OOOOOF 00605 1029 1750 #REQTAGS 00001 OOOOOA 00764 5743 5777 00001 000000 00721 #RO 00001 000001 00722 #Rl 00001 OOOOOA 00731 #R10 00001 OOOOOB 00732 #Rll 00001 OOOOOC 00733 #R12 00001 000000 00734 #R13 00001 0000 DE 00735 #R14 00001 OOOOOF 00736 #R15 00001 000000 00737 #R16 00001 000001 00738 #R17 00001 000002 00739 #R18 00001 000003 00740 #R19 00001 000002 00723 #R2 00001 000004 00741 #R20 00001 000005 00742 #R21 00001 000006 00743 #R22 00001 000007 00744 #R23 00001 000008 00745 #R24 00001 000009 00746 #R25 00001 OOOOOA 00747 #R26 00001 OOOOOB 00748 #R27 00001 oooooe 00749 #R28 000000 00750 00001 #R29 00001 000003 00724 #R3 00001 OOOOOE 00751 #R30 00001 0000 OF 00752 #R31 5757 5768 00001 000004 00725 #R4 00001 000005 00726 #R5 00001 000006 00727 #R6 00001 000007 00728 #R7 00001 000008 00729 #R8 00001 000009 00730 #R9 1035 1184 00001 OOOOOE 00604 #SCB 1732 00001 000006 00595 #SELO 1061 1108 #SELRST 00001 OOOOOC 00602 2449 2519 #SETCNTl 00001 OOOOOE 00768 PN 1846377 EC 734110 PAGE CROSS-REFERENCE 3359 3387 3458 3484 3564 3772 3815 3880 3960 3973 3990 4150 4175 5760 6840 5771 7019 5780 7201 5922 7280 5932 7539 5995 6009 6141 6147 6156 6279 6388 6792 4427 3420 3449 3637 3753 7154 1649 1408 3526 4439 1414 3572 4443 1420 3592 1463 3601 1603 3775 1800 3781 1839 3956 3159 4647 3162 4657 3184 4667 3197 4896 3211 4925 3395 4931 4451 3461 5854 4485 3487 5864 4140 5875 4953 5886 4967 5889 5919 5929 5992 6006 1193 1473 1661 2270 2283 2299 4111 5130 5146 5197 5391 2540 2549 2570 4600 6153 6276 6605 6611 6620 6640 6680 6795 6837 () 96 9/04/73 () ROSl 3803-2 MICROCODE LISTING ROSl SYMBOL REFERENCES LEN VALUE OEFN 7198 7529 #SETCNT2 00001 OOOOOF 00769 2483 2504 #SETOIAl 00001 OOOOOC 00766 1716 2309 7595 7693 #SETDIA2 00001 000000 00767 3089 3102 5206 #SEVMODA 00001 OOOOOA 00780 5219 #SEVMOOB 00001 OOOOOB 00781 1791 2443 #SNSSTS2 00001 000007 00760 7086 7687 2746 3042 #STATA 00001 OOOOOA 00600 #STATB 00001 OOOOOB 00601 3156 3898 6460 6707 #STATC 00001 00001A 00617 2749 2780 #STATD 00001 00001B 00618 1080 2752 5415 5421 7213 7252 1005 1286 #STATIMG 00001 000008 00761 2729 2768 3930 4007 6236 6356 1451 2863 #SUPO 00001 000019 00616 #SVCOUT 00001 000000 00603 1346 1352 #WORKl 00001 000004 00757 1587 1621 4370 4715 #WORK2 00001 000007 00777 #WORK4 00001 OOOOOC 00782 #XOUTAIM 00001 000002 00755 1756 1765 7490 7523 #XOUTBIM 00001 000004 00774 AA 00001 000531 05768 5746 ACLOCKUP 00001 0006BC 07248 7260 ACTIVEB 00001 0006CO 07265 7273 1166 1172 ADOIN 00001 000002 00817 ADROFF 4297 00002 000385 04297 1732 ADROUTUP 00001 OOOOBE 01699 3604 3614 ALLCLEAR 00001 00020B 03621 1458 1508 ALLOWOSE 00001 000010 00841 ALOWENO 00001 000040 00797 6957 7788 1064 3986 ALUCHECK 00001 000513 05665 ALUERR 00001 000080 00919 2510 1008 1105 ALUFAIL 00001 000040 00891 1017 2498 ALU1ERR 00001 000015 00708 5857 ALU1001 00001 000540 05864 5867 ALU1002 00001 000550 05875 ALU1003 00001 000553 05886 5878 1262 1268 ALU2DIA 00001 000053 01283 1014 2501 ALU2ERR 00001 000016 00709 ALU2HDER 00001 0003DC 04654 4553 4565 ALU2STOP 00001 0005E3 06414 6286 6309 ALU2UNEX 00001 0003EO 04667 4613 ANRZI 00001 000040 00839 1750 2276 3407 4789 ANYCUEA 00001 00029B 03391 5415 5516 ANYERRS 00001 0004B3 05364 1011 ANYMOR 00001 OOOOOB 01023 PN 1846377 EC 734110 PAGE CROSS-REFERENCE 9/04/73 7866 2695 2316 2704 2831 2723 2933 5018 3039 5028 4581 6144 6126 6385 6162 3478 3662 3671 4617 6945 7928 7934 2834 7839 3168 3940 6740 2929 2777 5516 7269 1292 2783 4187 6366 3677 1355 1652 6135 3181 3204 3288 3307 4559 3335 3953 6762 2985 3075 5534 7307 1624 2939 4459 6379 4230 1380 2428 6332 3819 3970 6861 2992 3230 5962 7332 1676 3095 4680 6395 4275 1541 2437 6596 5058 4556 6877 3150 3585 6286 7560 1722 3098 4751 6432 5071 4613 7219 3233 3614 6309 7636 1984 3127 5084 6448 2857 2468 7015 2025 2076 2606 2662 1692 1806 3523 1520 2049 3688 2462 2567 2513 4091 5668 1274 2585 4095 6317 2286 5534 97 2302 4140 5122 6789 6229 6831 6245 6289 4606 4637 4654 5288 5367 7564 3915 3800 6317 7658 2058 3187 5097 6656 5332 5519 7764 3937 3901 6711 7760 2079 3224 5137 6674 5691 5537 5951 5699 4550 3911 6736 7804 2093 3319 5163 6724 4626 3943 6765 7821 2477 3322 5291 6845 2882 2510 7277 4215 2653 7536 4284 2840 4523 2946 2710 2736 4674 5239 6467 6907 7116 4703 4709 4766 6079 6298 5903 6353 6295 6303 6323 5418 4413 6853 5522 5702 4510 - 4526 6874 6981 5980 4542 6998 2630 3374 5308 6864 2668 3578 5315 7147 2701 3822 5322 7206 2713 3924 5397 7730 6196 3111 3121 3529 3624 4025 5248 5257 5267 6662 6689 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 00002 00015D 02259 ANY7TK 4225 00001 000375 04225 AOFAIL 1093 1156 00001 000021 00631 AR 5025 5186 4993 00001 0004AC 05341 ARSVD 1759 2273 00001 000020 00892 A64 BACKWARD 00001 000080 00875 6548 BAD END 00001 000606 06554 4111 BAGAIN 00002 000361 04127 05284 5277 BAKTOIDL 00002 00049C 5749 00001 00052E 05757 BB 7244 BCLOCKUP 00001 0006C2 07273 0975 0978 00001 000000 00969 BEGIN 1193 1203 1352 1355 1562 1572 1780 1797 1963 1967 2133 2139 2253 2256 2452 2465 2677 2680 2825 2828 2956 2963 3114 3124 3332 3335 3484 3481 3644 3650 3880 3898 4058 4100 4318 4376 4538 4542 4626 4629 4861 4888 5058 5064 5304 5332 5508 5516 5720 5723 5817 5824 5980 5995 6193 6196 6295 6298 6457 6460 6626 6643 6736 6740 6861 6871 6981 6985 7113 7119 7265 7269 7526 7539 7654 7658 7804 7808 7420 7598 BEGONES 00001 00071D 07613 3304 3310 BEGWRITE 00001 00060C 06578 c) F-~ ~j PN 1846377 EC 734110 PAGE CROSS-REFERENCE 98 9/04/73 1584 5203 1646 5216 2425 5236 2434 5264 2289 4103 4120 4252 1011 1214 1372 1575 1809 1970 2145 2263 2486 2683 2844 2973 3137 3355 3497 3656 3901 4111 4388 4550 4633 4892 5071 5344 5519 5726 5831 6009 6202 6303 6470 66466762 6874 6994 7127 7273 7556 7662 7813 1020 1223 1376 1578 1820 1973 2148 2270 2507 2698 2854 2985 3150 3359 3500 3665 3911 4147 4413 4553 4640 4918 5077 5347 5522 5729 5838 6045 6220 6306 6473 6650 6765 6877 6998 7137 7280 7560 7666 7817 1023 1226 1380 1590 1829 1990 2157 2283 2522 2707 2857 2992 3153 3366 3503 3677 3915 4150 4423 4556 4677 4928 5087 5364 5525 5732 5857 6048 6223 6309 6476 6659 6768 6892 7002 7154 7303 7564 7681 7821 1035 1229 1405 1661 1836 1997 2167 2292 2531 2726 2860 2998 3156 3387 3557 3699 3937 4175 4427 4565 4683 4934 5130 5367 5534 5735 5867 6051 6226 6317 6484 6665 6775 6898 7006 7184 7307 7575 7690 7825 (j 2498 5774 2501 5851 2567 7520 2650 7533 3976 4364 4597 4696 5015 1041 1232 1411 1670 1880 2000 2198 2299 2546 2746 2863 3016 3165 3391 3564 3753 3940 4215 4435 4571 4689 4950 5146 5373 5537 5746 5878 6054 6232 6320 6507 6668 6782 6904 7019 7191 7311 7581 7696 7833 1047 1235 1417 1673 1908 2012 2201 2323 2552 2749 2874 3019 3168 3414 3575 3762 3943 4220 4447 4577 4700 4963 5166 5391 5543 5749 5892 6073 6248 6323 6513 6677 6792 6910 7028 7201 7328 7592 7720 7843 1061 1256 1423 1699 1919 2018 2207 2333 2573 2752 2878 3042 3230 3420 3585 3772 3953 4225 4451 4584 4718 4977 5197 5394 5561 5760 5903 6090 6252 6335 6539 6683 6798 6920 7037 7213 7332 7598 7756 7857 1080 1262 1451 1713 1922 2031 2213 2384 2588 2755 2882 3052 3233 3436 3595 3778 3960 4230 4485 4587 4736 4987 5233 5407 5671 5771 5907 6110 6256 6353 6545 6692 6817 6927 7045 7216 7336 7613 7760 7869 1108 1268 1467 1719 1925 2038 2219 2394 2603 2774 2904 3058 3248 3446 3598 3784 3967 4257 4510 4590 4812 4993 5245 5415 5691 5780 5922 6129 6266 6359 6548 6703 6824 6937 7054 7219 7438 7623 7764 7879 1126 1274 1473 1732 1928 2052 2225 2397 2618 2777 2922 3075 3251 3449 3604 3788 3970 4266 4520 4603 4818 4999 5254 5418 5699 5789 5932 6138 6269 6369 6599 6707 6834 6949 7067 7244 7448 7632 7775 7931 1132 1342 1504 1753 1943 2068 2235 2413 2627 2780 2929 3086 3294 34553614 3800 3973 4275 4523 4613 4827 5002 5277 5421 5702 5796 5951 6141 6279 6388 6608 6711 6840 6953 7080 7248 7464 7636 7781 7950 1181 1346 1541 1762 1953 2082 2241 2440 2642 2804 2936 3092 3297 3458 3621 3815 3990 4284 4526 4620 4846 5031 5288 5432 5714 5803 5962 6147 6286 6441 6614 6727 6853 6973 7093 7252 7483 7640 7796 1184 1349 1544 1776 1960 2096 2247 2446 2656 2822 2949 3108 3301 3471 3637 3819 4019 4293 4534 4623 4855 5055 5297 5498 5717 5810 5974 6156 6292 6454 6623 6732 6857 6977 7106 7256 7493 7645 7800 (\ \.j () '-- (j ROSl 3803-2 MICROCODE LISTING ROSl REFERENCES SYMBOL LEN VALUE DEFN 3177 BEGWRTTM 00001 000609 06566 1661 00001 0000A5 01618 BFLAG 3420 3426 BHERE 00001 000292 03359 3137 BIGPROB 00001 000267 03181 1621 BINTFC 00001 000020 00869 4617 BLKOC 00001 000080 00900 3478 BLKINTS 00001 000020 00903 5067 BLOUT40 00001 0004A3 05308 BLOUT41 00001 000463 05077 BLOUT42 00001 000448 04990 BLOUT43 00001 000417 04824 5031 BLOUT44 00001 0004Bl 05358 BLOUT45 00001 000459 05046 BLOUT46 00002 000438 04937 BLOWOUT 1 00001 000396 04388 BMASKEO 00001 00033C 03973 3996 5172 2347 2361 BNRZI 00001 000080 00838 BOERR 00001 000690 07086 7080 3121 4715 BOT 00001 000010 D0878 BRETURNl 00002 00027D 03270 3297 BRETURN2 00002 000201 02815 2677 6045 BRETURN4 00002 000202 02818 BRSTTMl 00001 0006AA 07177 6892 7201 BRSTTM2 00001 0006AB 07181 7184 BRSTTM3 00001 0006AE 07191 7191 BRSTTM4 00001 0006BO 07198 BRSTTM5 00001 0006B2 07206 7219 BRSTTM6 00001 0006B4 07213 6762 6792 BRSTlll 00001 000641 06775 BRSTl12 00001 000643 06782 6775 BRSTl13 00001 000645 06789 6782 4510 4542 BSTDONE 00001 0003CO 04562 BSTWAIT 00001 0003B8 04534 3328 4523 BSTWAITl 00001 0003BA 04542 BSTWAIT2 00001 00030A 04647 2910 4571 7248 BUMPCTR 00001 0006C3 07277 3294 BUMPRIP 00001 000286 03301 BUMPl 00001 000001 00918 1791 2468 BUSOC 00001 000020 00853 1414 1800 00001 000010 00862 BUSY 5367 5421 BUSYSTAT 00001 0004CC 05450 B64 00001 000010 00893 2350 2358 2680 2683 CANCEL 00001 00028B 03319 CANCEL 1 00002 0001F5 02790 2656 2755 1163 1358 CBI 00001 000060 00632 5609 5612 1150 1556 CBO 00001 OOOOAO 00637 5771 CCTRAP 00002 000536 05784 CHAIN 00001 000001 00828 1259 1399 3013 3211 CHANENO 00001 000008 00863 CHEKB 00001 000300 04613 4577 4584 CHEKONB 00001 000558 05903 5892 5911 CHEKSNS 00001 000307 04637 1252 4587 3446 CHEKTIO 00001 0002B2 03468 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 99 9/04/73 4117 4140 5242 4550 4546 4556 6419 7160 7169 4620 4640 3307 1839 6079 3526 7086 5450 7687 4103 2790 2774 1695 5615 1559 4252 5118 5251 2585 5618 1814 2665 5621 2336 2716 5624 4358 2837 5627 6033 3630 5630 6087 3659 5633 6098 4346 5636 6118 4408 5639 5597 5642 5600 6344 5603 6372 5606 1492 3278 1512 3601 1710 4647 3083 4657 3452 3554 3647 3653 3685 4013 4042 4843 7157 4590 4603 6165 7551 2368 6798 7839 3803-2 MICROCODE LISTING ROSl CROSS-REFERENCE ROSl REFERENCES SYMBOL LEN VALUE OEFN 00001 000001 00912 CHGSTS 4284 CHKADRO 00001 000384 04293 3391 CHKAFLG 00002 0002A6 03430 4731 CHKALU2 00001 000304 04626 4892 CHKBFLG 00002 000430 04912 4293 CHKBIBO 00001 000386 04302 3108 00001 000257 03121 CHKBOT 5519 CHKBUSY 00001 0004C2 05415 05980 00001 000560 CHKC 3436 4786 CHKCHAIN 00001 0002AA 03443 7280 CHKCLOCK 00001 0006BB 07244 3359 CHKCONT 00001 000434 04925 4908 CHKCUEB 00001 00042B 04892 6018 CHKOISC 00001 000771 07926 00001 0005AA 06220 CHKOMR 3075 CHKERRS 00001 00025C 03137 1719 CHKFTR 00002 OOOOCB 01746 1057 CHKISEL 00001 000011 01041 00001 000221 02933 CHKLWR 2936 CHKNFP 00001 000225 02946 2465 2471 CHKNOIS 00001 000191 02443 5270 00001 OOOOCC 01750 CHKNRZ 00001 000338 03960 CHKONA 4338 00001 00035C 04111 CHKONB CHKOPIN 00001 000304 03749 6629 7568 CHKOP16 00001 00070F 07556 6633 7768 CHKOP800 00001 000740 07756 CHKOVRN 00001 000306 04633 1630 CHKPNOG 00001 0000B5 01670 CHKPWRON 00001 000359 04100 1925 02136 00001 00013B CHKROB 2148 CHKRSRV 00001 00041C 04843 CHKRSTS 00001 000000 00975 CHKSTATS 00001 000563 05942 4266 CHKSUPO 00001 000380 04275 4275 CHKSVCOU 00001 000382 04284 4670 CHKUNCHK 00001 000301 04617 5903 CHKXINS 00001 00055B 05915 2228 2259 05183 00001 000470 CHK7TK 5962 CKALUERR 00001 00056B 05974 3042 CKCHAIN 00001 00024B 03083 3230 3233 00001 00028F 03332 CKDEER 1960 00001 000106 01940 CKDSE 3086 CKEOTBOT 00001 000251 03102 2201 CKHIMOOE 00001 000154 02232 3557 CKRESRV 00001 0002CA 03564 01061 1047 000017 00001 CKSELRST 1332 CLEANGO 00001 0005A3 06184 2031 2167 2323 CLEANIT 00001 000279 03245 3532 3598 3621 3656 4028 CLEANUP 00001 00020E 03630 1111 1114 2979 2982 4396 4400 00001 000012 00629 CLEAR 2752 CLEARAB 00001 0001F6 02794 1023 CLEARIT 00001 000025 01105 3644 CLRBUSIN 00001 0002E5 03653 () PN 1846377 EC 734110 PAGE 100 9/04/73 4760 4763 ) () ROSl 3803-2 MICROCODE LISTING ROS1 REFERENCES SYMBOL LEN VALUE DEFN CLRSTS 00001 000315 03808 3800 CMDOUTUP 00001 000062 01346 CMDPARER 00001 0000D5 01791 1809 CMDPAREX 00001 OOOODC 01814 CMDPARO 00001 0000D6 01794 5460 CMDPAROO 00002 0004CF 05460 5364 CMDPARl 00001 0000E6 01849 1797 2913 CMDPROC 00002 0000E5 01846 1829 CMDREJ 00001 000080 00851 4766 CMDWAIT 00001 0000D2 01776 1762 1784 1753 CMDWAITO 00001 OOOOCF 01759 1780 CMDWAIT1 00001 OOOODA 01806 4812 4818 CMDWAIT2 00002 00041B 04838 CMDWAIT3 00001 OOOOEl 01833 5376 5438 CMDWAIT4 00001 OOOODE 01823 1803 4830 5394 5407 CMDWAIT8 00002 0004E5 05549 4270 CMOOFF 00002 00037F 04270 00001 000045 01232 1238 CMOUP CNT40 00001 000080 00921 2582 2615 4220 COFAIL 00001 000374 04220 1846 COMDECOD 00001 000100 01916 7684 COMPL 00001 000731 07690 7681 COMPL1 00001 000730 07687 1931 1963 COMREJCT 00001 000108 01953 COMREJCl 00001 000400 04745 2952 5478 COMTESTA 00001 000114 01997 1967 COMTESTB 00001 000120 02038 1970 COMTESTC 00001 000129 02068 1997 CONCON 1454 1512 00001 000080 00821 CONTCHK 00001 0004B8 05381 5373 CONTCHKl 00001 0004C6 05429 5418 5537 CONTCHK2 00001 0004CA 05443 5432 2198 CONTCMD 00001 00010A 01960 CONTEND 00001 00025D 03150 CONTENDl 00001 00025F 03156 3193 CONTEND2 00001 000260 03159 3200 CONTEND 3 00001 000261 03162 1990 2082 CONTINIT 00001 000237 03013 1005 2079 CONTROL 00001 000020 00803 CONTSERV 00001 00023B 03028 1326 1329 CONTSTAK 00001 00023C 03033 7286 CRCTIMEl 00001 00075B 07857 7289 CRCTIME2 00001 000761 07876 7869 CRCTIME3 00001 000762 07879 CRCTIME7 00002 000764 07885 CTI 00001 000050 00633 0984 1169 2866 2891 6184 6406 7474 7889 0984 1169 CTlMAGE 00001 000001 00687 2866 2891 4346 4364 7390 7396 CTLWAIT 00001 000249 03075 3079 7222 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 101 9/04/73 5260 5446 4838 5549 5555 2021 2052 2153 4849 4864 1568 3363 3554 3647 4016 4821 4940 5274 2096 2093 4680 6236 1337 3070 6581 7895 1337 3070 4728 7402 7742 1364 3383 7348 7901 1364 3383 6061 7408 1395 3417 7354 7907 1395 3417 6121 7414 1444 3633 7360 7914 1444 3633 6184 7474 1600 3674 7366 7920 1600 3674 6406 7889 1637 3756 7372 1702 3982 7378 1823 4054 7384 1864 4155 7390 1877 4240 7396 2339 4728 7402 2404 6061 7408 2743 6121 7414 1637 3756 6581 7895 1702 3982 7348 7901 1823 4054 7354 7907 1864 4155 7360 7914 1877 4235 7366 7920 2339 4240 7372 2404 4302 7378 2743 4322 7384 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 1538 1597 00001 000010 00814 CUBUSY 1218 1420 00001 000020 00861 CUE 1454 1211 00001 000040 00822 CUEA CUEASTS 00001 0004BC 05394 1200 1454 00001 000010 00824 CUEB 5391 CUEBSTS 00001 0004CO 05407 4921 03439 0002A9 00001 CUEPNDG 1473 CUERSTB 00001 000085 01482 1150 1156 CURADDR 00001 000003 00689 1814 1886 CURCOMM 00001 000000 00686 3403 3430 00001 000009 00646 CUREA 4904 4912 00001 OOOOOA 00647 CUREB 2543 4140 CURFLAG 00001 000020 00840 2549 00847 000001 00001 CURSVD 3204 4559 00001 000008 00855 DATACK 6989 7010 DATALOOP 00001 000676 06973 6953 DATATIME 00001 000675 06969 4626 4629 DATCHECK 00001 0003E2 04674 5780 00001 000537 05789 DD 6147 DECHICNT 00001 00059B 06153 3236 00001 000276 03230 DEDUN 3915 3953 03958 000338 00001 DEPRIMA 5034 DEPRIMES 00001 000310 03871 4801 DEPRIMl 00001 000321 03884 5100 5311 DEPRIM2 00001 000322 03888 3904 DEPRIM3 00001 000325 03898 3898 3940 DEPRIM4 00001 000328 03908 3946 03937 DEPRIM5 00001 000331 3937 DEPRIM6 00001 000335 03950 3901 3911 DEPRIM7 00001 00033A 03967 5077 DEPRIM8 00001 000465 05084 5087 DEPRIM9 00001 000468 05094 3089 3102 00001 000040 00902 DEVBSY 00001 000002 00881 DEVCHK 1402 1408 00001 000004 00864 DEVEND 5443 5546 00001 00036C 04167 DEVRST 00001 000000 00871 DEVO 1722 DIAGMODE 00001 000010 00804 2818 DIALINK 00001 000583 06073 1716 2309 00001 000080 00897 DIAWRT 4581 6229 00001 000004 00906 DMR 6388 00001 0005DE 06395 DMRA 2812 00001 0005El 06406 DMRLNK 6220 02812 000200 DMRRTNl 00002 6266 6306 DMRSTOP 00002 0005E4 06419 6369 DMRl 00001 0005BB 06276 6335 DMR2 00001 0005Dl 06353 6359 6391 00001 0005BD 06283 DMR3 6279 00001 0005D9 06379 DMR4 6295 6298 00001 0005C7 06317 DMR5 6269 06332 00001 0005CB DMR6 6312 00001 0005C3 06303 DMR7 6353 00001 0005D5 06366 DMR8 PN 1846377 EC734110 PAGE CROSS-REFERENCE 3067 1463 1476 3380 1603 1512 3601 3184 1667 3662 3197 3399 3668 3395 3433 3671 3439 4996 3749 3601 5154 4051 4896 5388 1482 1512 1627 4179 4900 4915 5341 5388 1556 3811 1646 3976 1695 4334 5186 4824 4868 4878 4974 4984 5049 5074 3184 3197 3278 3572 3775 6473 6479 102 4137 4725 6569 6587 9/04/73 7163 4647 4657 4931 5325 5435 4709 5318 5328 3943 3159 5552 3162 3874 6245 6320 6484 6401 6460 6323 o ROS1 3803-2 MICROCODE LISTING ROS1 SYMBOL LEN VALUE DEFN REFERENCES DMR9 00001 0005D7 06372 6362 6490 DOACUE 00001 000041 01218 1206 DOAGAIN 00001 000709 07533 DOAREAD 00002 0005A2 06175 6232 2000 DOBAKFIL 00001 000133 02104 DOBKSPBL 00001 00012F 02090 1973 DOBWD 00001 0005EA 06448 6441 2107 2115 DOCONTRL 00001 000130 02093 DOCRC 00001 000754 07833 7796 7813 DOCRC1 00001 000759 07849 7882 DOCRC2 00001 000757 07843 7836 DOCRC3 00001 000756 07839 7833 DODATCK 00001 0003ED 04709 4700 DODES 00001 0002D2 03592 3650 DODES1 00001 0002D7 03607 3595 3694 DODIAMS 00001 00016C 02309 2207 DODSE 00001 000123 02049 1943 DOERG 00001 000121 02042 DOFORA 00001 00036F 04179 5149 DOFORBLK 00001 000135 02112 2038 DOFORFIL 00001 000137 02120 2068 3970 DOHOLDS 00001 000341 03990 DOIBGMSR 00001 0005E6 06435 6248 DOINHPST 00002 000736 07705 7696 DOITAGN 00001 0002D9 03614 3617 DOITFORA 00001 0006CD 07324 6778 6820 DOITFORB 00001 0006C8 07299 6785 6827 DOITNOW 00001 OOOOED 01871 2916 DOITONB 00001 0003A7 04459 4451 DOLPBRST 00001 00061E 06638 6599 DOLWR 00001 00016E 02316 2225 DONRZA 00001 00016A 02302 DONRZB 00001 00017D 02368 2299 DONRZMS 00001 000169 02299 2235 DOFEA 00001 000165 02286 00001 000166 02289 DOPEA2 2305 DOPEB 00001 000177 02347 2283 DOPEB2 00001 000178 02350 2371 DQPEMS 00001 000164 02283 2241 DORDBACK 00001 000146 02175 2139 DORDSTOP 00001 0005E5 06432 6256 DOREAD 00001 000143 02164 2133 DOREAD1 00001 000144 02167 2179 DOREAD2 00002 000145 02171 2099 DOREQA 00001 0002B8 03487 3744 4795 DOREQB 00001 000441 04967 DORESETS 00001 000369 04155 4123 5126 DOREWIND 00001 00010F 01981 4454 4463 DORSTO 00001 00036B 04163 DORST 1 5146 00001 000477 05154 4183 5158 DORST2 00001 000396 04386 4418 DORST 3 00001 00039C 04413 DORST4 4413 00001 00039E 04423 DORST5 00001 0003A9 04468 4427 4435 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 103 9/04/73 2123 4032 6913 6923 6940 6961 5133 5141 4447 7049 7032 7071 7058 7109 7133 7143 7194 7187 7619 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 00001 0003AD 04485 DORST6 DORUNLOD 00001 000116 02005 2008 00001 000112 01990 DORWDl 2145 4874 DOSENSE 00001 00017F 02384 2194 DOSETDIA 00001 000579 06033 1928 DOTESTIO 00001 000141 02157 2213 2253 000170 02323 00001 DOTIEMS 3270 DOTIEMSl 00001 000172 02330 7493 7526 DOTIEMS2 00001 00070C 07545 7099 7444 00001 0006BA 07240 DOTWO 00001 00012A 02073 DOWTM 2045 2064 00001 00012B 02076 DOWTMl 3052 3058 DOWTM64 00002 000266 03177 6643 000629 06674 00001 D0160R64 00001 000161 02273 D064A 2270 00001 00017A 02358 D064B 2247 00001 000160 02270 D064MS 6608 D080R16 00001 000619 06620 DRETURNO 00002 000303 03744 3560 4980 DROPTAGS 00001 0002CC 03572 5789 00001 000539 05796 EE 1504 ENABLDSE 00001 00008E 01520 4623 00001 0003F2 04725 ENDHIO 7429 00001 00073B 07730 ENDTM 3111 00001 000020 00877 EOT 3181 4654 EQUIPCK 00001 000010 00854 7581 ERGEXIT 00002 00073F 07742 4147 00001 000371 04187 ERRRST 1904 000014 01051 00002 EXECRST 2719 00001 000101 02671 EXIT 1014 00001 000081 0~648 EXT 5796 00001 00053B 05803 FF 4326 5015 00001 000009 00695 FLAGS 00001 OOOOOA 00696 FLAGS 1 4252 00001 OOOOOB 00698 FLAGS2 FORCERR 00001 000002 00907 1105 1855 000080 00890 00001 FORCEUC 1889 6341 00001 00001F 00718 FORMAT 7103 7130 7736 7739 6877 FORMAT 1 00001 00065F 06889 FORMAT 1 X 00001 000663 06901 7083 FORMAT 1 0 00001 000691 07090 7093 FORMAT12 00001 000695 07103 7106 7464 07113 00001 000698 FORMAT14 7113 FORMAT16 00001 00069C 07127 7127 FORMAT18 00001 00069F 07137 7119 7137 FORMAT19 00001 0006A2 07147 6904 FORMAT2 00001 000668 06917 6920 FORMAT 3 00001 000668 06927 6910 6927 FORMATS 00001 000660 06934 6937 7067 FORMAT 6 00001 000670 06945 7626 FORMAT60 00001 000673 06957 7028 FORMAT 7 00001 000685 07037 PN 1846377 EC 734110 PAGE CROSS-REFERENCE 104 9/04/73 4881 7607 7726 7852 7872 2970 6487 7181 7791 2995 6755 7234 7849 6758 7240 7860 6814 7299 6901 7324 7705 7879 7885 7457 7470 5025 5110 2513 6372 7140 7788 7690 C) 6917 7451 6934 7461 6957 7604 7024 7616 7041 7675 7063 7678 7090 7723 ROSl 3803-2 MICROCODE LISTING ROSl SYMBOL LEN VALUE OEFN REFERENCES FORMAT 8 00001 000689 07054 7045 FORMAT 9 00001 00068B 07063 7054 FORMTENO 00001 0006A4 07154 6551 6560 FORMTM .00001 000090 00796 FORMTOO 00001 000080 00790 7604 7736 FORMTOl 00001 000082 00788 6917 7130 FORMT10 00001 000081 00789 6901 7140 FORMTll 00001 00008C 00791 6755 7041 FRUREG 00001 000010 00716 1090 2650 FRUSAV 00001 00001E 00717 1093 3769 FTCHNOIS 00001 0003E8 04693 4718 00001 000010 00904 GOT 6126 6162 GOTHIO 00002 0005AO 06168 6138 GENRESET 00001 000354 04079 1051 GENRSTl 00001 00046B 05106 4127 GETHIGH 00001 000501 05597 5648 GETOFF 00001 0002C3 03529 GETREST 00002 000512 05648 GETSNSO 00001 0004B9 05383 GG 00001 000530 05810 5803 GIVSTS 00001 00059E 06162 6129 6156 GIVSTSl 00002 00059F 06165 GOOOALU 00002 000018 01064 GOOOOIA 00001 00004B 01259 1883 2907 GOOOOIAO 00001 00004A 01256 3022 3254 GOOOIOLE 00002 0002BA 03493 3481 GOOOIT 00001 000240 03046 3114 3124 GOOO1600 00002 00061C 06629 6617 6653 GOOO6400 00001 000630 06694 6686 GOOO800 00002 000610 06633 6623 6626 GOFETCH 00001 000581 06061 6093 6113 GOROSTOP 00001 0005B8 06266 6470 GOSETOIA 00002 000148 02194 2333 GOSTOP 00001 0003Bl 04510 4538 GOTHIOl 00001 000602 07348 6703 GOTHI010 00001 0006E4 07402 6994 GOTHI011 00001 0006E6 07408 7256 GOTHI012 00001 0006E8 07414 7265 GOTHI014 00001 000765 07889 7640 GOTHI015 00001 000767 07895 7662 GOTHI016 00001 000760 07914 7556 GOTHI017 00001 00076F 07920 7756 GOTHI018 00001 000769 07901 7800 GOTHI019 00001 00076B 07907 7817 GOTHI02 00001 000604 07354 6857 GOTHI03 00001 000606 07360 6732 GOTHI04 00001 000608 07366 6768 GOTHI05 00001 00060A 07372 7216 GOTHI06 00001 00060C 07378 6871 GOTHI07 00001 00060E 07384 7303 GOTHI08 00001 0006EO 07390 7336 GOTHI09 00001 0006E2 07396 6973 GOTOIDLE 00001 0002B9 03490 3464 4956 GRETURNO 00002 000049 01252 2904 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 105 9/04/73 7849 7234 4330 3877 5677 5706 5848 5899 6659 6665 6671 6677 6692 6646 6668 4970 7451 5939 5977 7941 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 3414 00001 0002A4 03423 HADHIO 4633 HADOVERN 00001 0003CE 04606 3737 3784 HANGHERE 00002 000301 03737 4423 HARDWER 00002 0003AF 04492 3733 4492 00628 000011 00001 HDWERR 5882 5895 1017 00001 000084 00636 HDWR 5810 00001 00053F 05817 HH 1342 1547 HIOLINK 00001 000090 01534 1372 HIOLINKl 00001 000091 01538 2854 2874 00001 00020B 02847 HIOLK 1735 3284 000344 04007 00001 HIONOP 4019 00002 00034C 04032 HIONOPl HIONOP2 00001 000345 04010 3314 4520 HIOPERG 00001 000340 04042 7351 00001 000631 06707 HIORETl 7405 HIORET10 00001 000670 07002 7411 HIORETll 00002 0006BF 07260 7417 HIORET12 00001 0006Cl 07269 7892 HIORET14 00001 000725 07642 7898 HIORET15 00001 00072A 07666 7917 HIORET16 00001 000710 07560 7923 HIORET17 00001 000741 07760 7904 HIORET18 00001 000740 07804 7910 HIORET19 00001 000751 07821 7357 HIORET2 00001 000658 06861 7363 00001 000637 06736 HIORET3 7369 HIORET4 00002 000640 06771 7375 HIORET5 00001 0006B6 07219 7381 HIORET6 00001 00065C 06874 7387 HIORET7 00001 0006CA 07307 7393 HIORET8 00002 000601 07340 7399 HIORET9 00001 000677 06977 1020 HNDLERR 00001 000020 01090 1038 3993 00811 00001 000080 HOLDA 1054 4010 00001 000040 00812 HOLDB 1496 3369 HOLDINT 00001 000020 00813 4388 00002 000398 04396 HRDRST 4581 6229 00001 000040 00905 IBGMSR 6454 6507 IBGSTOP 00001 0005F5 06484 1429 1301 00001 000022 00634 IC 7283 7315 000306 03756 00001 IDLE 3493 3741 IDLE PEND 00002 000302 03741 3474 3640 IDLESCAN 00001 000304 03747 3762 00001 00030A 03769 IDLEO 5284 IDLE 1 00001 00030C 03775 4987 IDLE2 00001 000490 05288 5288 IDLE3 00001 0004A2 05304 5361 05038 000457 IDLE4 00001 5817 00001 000541 05824 II 6141 6150 I NCAGN 00001 000595 06135 00001 000082 00635 INHP INHPOST 00001 000020 00909 o PN 1846377 EC 734110 PAGE CROSS-REFERENCE 106 9/04/73 5280 5784 5984 5792 5999 5799 6013 5806 7937 4106 4134 3682 4134 5169 4010 5005 5350 4022 1534 2786 2847 2894 6021 7947 5753 5955 5764 5970 4534 6168 4010 4048 3516 4048 4106 3568 6245 6289 1487 4488 5813 5820 5827 5834 5841 6584 6584 4051 4134 4834 4871 6587 7163 2988 3002 5403 6076 6082 6327 5861 5871 6409 6414 6159 r\ ._/ C) C) ROSl 3803-2 MICROCODE LISTING ROSl REFERENCES SYMBOL LEN VALUE DEFN INHPRE 00001 000008 00908 INITSEV 00001 00046D 05114 INSDELAY 00002 000334 03946 3933 1041 INSELCHK 00001 00002A 01126 INTFB 1178 1454 00001 000020 00823 5230 INTFCHK 00001 000032 01163 1135 INTFERR 00001 00006A 01369 INTREQ 00001 000040 00852 6463 ISITUP 00001 0005EE 06460 ISLDPT 00001 0003EF 04715 4689 00001 00015E 02263 2219 I SNOOP IS50N 00001 000149 02198 2012 IS60N 00001 000118 02012 1919 ITSOK 00001 00011C 02025 2018 2319 ITSRSVD 00001 000318 03819 5008 5353 ITSTIME 00001 0005CA 063;27 6303 00001 000543 05831 5824 JJ 5831 KK 00001 000545 05838 LATER 00002 000578 06021 5671 LETSREAD 00001 0003B3 04516 6175 LINKl 00001 000010 00703 1223 1487 3002 3016 1226 1429 LINK2 00001 000011 00704 1229 1534 LINK3 00001 000012 00705 LINK4 00001 000013 00706 1256 1301 2627 2642 6090 6110 6953 7028 7448 7464 LINKS 00001 000018 00711 1892 6266 LINK6 00001 000019 00712 6269 6327 LOAD40 00001 00071A 07601 7699 5424 LOOKAGIN 00001 0004C3 05418 LOOKATA 00001 0005C2 06298 6292 LPCKDENS 00001 000623 06656 6650 LP160R64 00001 00062E 06689 6683 LP80R16 00001 000621 06650 1096 1102 LSR 00001 000006 00627 2316 2831 LWROP 00001 000004 00899 MARK 1 00001 000088 00794 6934 7063 7024 7103 MARK 2 00001 000084 00795 MASEMBLE 00001 OOOOCO 01710 MASKFORA 00001 000342 03993 4804 MAYBETIO 00001 0004D8 05505 5498 MAYBLWR 00001 000634 06724 5297 MIFTROA 00001 00044F 05012 5304 MIFTROB 00001 000453 05025 MIFTROC 00001 000459 05044 3880 MIFTROD 00001 000461 05071 3973 MIFTROO 00001 000036 01175 MIFTROl 00001 000082 01473 MIFTR02 00001 0004D5 05495 MIFTR03 00001 0000B2 01661 PN 1846377 EC 734110 PAGE CROSS-REFERENCE 107 9/04/73 1512 1618 1664 3884 4885 4947 4960 4990 5038 5061 5094 5110 5154 1990 3248 2397 1562 1880 2656 6335 7045 7592 6414 6457 2031 3497 2680 2683 1953 2786 6359 7054 7613 6454 6476 2082 6045 2825 2828 2384 2904 6369 7067 7623 6484 2096 6220 2894 2847 2413 2922 6409 7093 7690 6507 2157 2167 2263 2292 2323 2394 2677 2822 2988 3019 3503 2452 2956 6473 7106 7720 3251 6051 2486 2963 6775 7113 7843 3500 6226 2522 5183 6782 7127 7857 6048 6223 2531 5203 6817 7137 7879 2552 5216 6824 7184 2573 5403 6904 7191 25.88 6054 6920 7283 2603 6076 6927 7315 2618 6082 6937 7438 5189 2933 7616 7461 5223 3039 5594 5645 3803-2 MICROCODE LISTING ROSl CROSS-REFERENCE ROSl REFERENCES LEN VALUE DEFN SYMBOL 1820 MIFTR04 00001 000412 04809 3387 MIFTR05 00001 000429 04885 3458 MIFTR06 00001 00043B 04947 3484 MIFTR07 00001 00043F 04960 3564 04974 MIFTR08 00001 000443 3815 MIFTR09 00001 000446 04984 4150 MIFTR10 00001 000471 05130 4175 MIFTRll 00001 000475 05146 1035 MIFTR12 00001 000015 01054 3990 5332 MIFTR13 00001 000479 05163 MIFTR14 00001 0004BB 05391 3772 MIFTR17 00001 000499 05274 3960 MIFTR18 00001 0004AA 05332 5166 MISRTNOA 00002 000411 04804 4918 00002 00040B 04786 MISRTNl 4888 MISRTN2 00002 00040C 04789 4950 MISRTN3 00002 000400 04792 4963 MISRTN4 00002 00040E 04795 4977 MISRTN5 00002 00040F 04798 000410 04801 5055 MISRTN7 00002 1032 3490 4159 00001 000048 00643 MIST 2256 2279 2312 2353 2364 5226 MODELINK 00001 000167 02292 0975 MODEREGS 00001 0000F5 01896 MODETYPE 00001 00014A 02201 1765 5257 00001 000002 00786 MODE64 3575 3585 00001 0002E2 03644 MOVEON 1080 MOVEON2 00002 00001F 01086 1203 1214 MOVEOUT 00001 000042 01221 1026 1858 3792 6554 NDXABRT 00001 OOOOOB 00947 1068 00001 OOOOEA 00967 NDXADR 6501 NDXAXESS 00001 000000 00949 2104 00001 00003C 00957 NDXBSF 2090 6435 00001 00003E 00958 NDXBSR 3607 00001 000006 00942 NDXDES 6260 00001 OOOOOC 00948 NDXDMR 2042 000022 00962 00001 NDXERG 2055 00001 000031 00954 NDXERS 1295 6036 NDXFLAGS 00001 OOOOOE 00950 6101 NDXFLAG2 00001 000010 00952 2120 00001 000035 00953 NDXFSF 2112 6444 00001 000037 00955 NDXFSR 4079 NDXGRST 00001 000008 00944 3891 NDXPOLL 00001 000007 00943 2175 00.001 00003A 00959 NDXRDB 2164 00001 000033 00956 NDXRDF 1981 00001 00002F 00963 NDXRWD 2005 00001 000029 00964 NDXRWU 3218 00001 OOOOOA 00946 NDXSDE 2407 00001 000006 00966 NDXSNS 4745 NDXSNSR 00001 OOOOOF 00951 4131 00945 NDXSRST 00001 000009 1680 00001 OOOOEB 00965 NDXSTS 5680 NDXTST3 00001 000005 00941 2028 00001 000013 00960 NDXWRT PN 1846377 EC 734110 PAGE 108 9/04/73 ROSl 3803-2 MICROCODE LISTING ROSl SYMBOL LEN VALUE DEFN REFERENCES NDXWTM 00001 000020 00961 2073 2946 00001 000040 00876 NFP NIXASTS 00002 00044E 05008 5002 NIXBSTS 00002 0004BO 05353 5347 NOBURST 00001 00065B 06871 6614 6727 NOGO 00001 000600 06536 6711 6736 NOISE 00001 000080 00844 2449 NORESETS 00001 000004 01002 0978 NO SHORT 00001 OOOOM 01634 1572 1590 NOSTACK 00002 00007A 01432 1405 1411 NOSVC 00001 0003BC 04550 4526 NOTAINT 00001 00003C 01200 1184 NOTBINT 00001 00003A 01193 1181 NOTBINTl 00001 00003F 01211 1196 NOTBOTH 00001 000036 01178 NOTBUSY 00001 000001 00882 NOTCHAIN 00001 0002B5 03478 3455 3765 NOT CHANE 00001 00041F 04852 4846 NOTCOMP 00001 000001 00848 NOTCON 4928 4934 00002 00043A 04943 NOTCONT 00001 00009E 01584 1575 1578 NOTHISTM 00001 000775 07939 7931 NOT LAST 00001 000705 07520 7539 NOTNOW 00001 000270 03211 3335 NOTPE 00001 000010 00886 NOTPULL 00001 0001EE 02768 2800 NOTRSV 00001 00041A 04834 4827 NOTYET 00001 000352 04058 4058 NRZIRET2 00002 0006C6 07286 7843 NRZIRET3 00002 0006C7 07289 7857 NRZMODE 00001 000001 00798 1756 5248 NSUBSYS 00001 000040 00846 2519 ONES 00001 OOOOFF 00916 1005 1029 2289 2347 3127 3187 3685 3688 5397 5739 6752 6807 7863 7876 ONESBRST 00001 0006B8 07234 6930 7122 ONLYDE 00001 000272 03218 3165 3168 OPCODES 00001 000547 05845 5760 OPENERS 00001 000405 05493 1956 2387 OPENERSO 00001 0004DB 05513 5508 OPENERS 1 00001 0004DB 05516 5501 5528 OPIN 00001 000001 00818 1166 1538 OPINDROP 00001 0002EO 03637 3637 OPINUP 00001 000305 03753 3753 OVERUN 00001 000004 00856 4606 PEDATAl 00001 000720 07623 7423 PEDATA2 00001 000722 07629 7426 7670 PEDATA3 00001 000723 07636 7649 PEDATA5 00001 000727 07654 7645 PEDATA6 00001 000728 07658 7666 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 109 9/04/73 6880 6765 6853 1417 1423 3963 5335 1172 2350 3224 3749 5757 6864 7934 6874 6981 6998 7213 7252 7269 7307 7332 7702 1292 2361 3288 3811 5768 6969 1367 2513 3319 3833 5992 7096 1399 2630 3374 3884 6006 7157 1458 2713 3380 3930 6144 7163 1476 2729 3423 4013 6153 7177 1482 2783 3523 4042 6162 7237 1508 2831 3526 4235 6276 7441 1664 2869 3548 4312 6366 7454 1806 3039 3568 4821 6385 7467 1855 3064 3601 4834 6395 7601 2925 2959 2966 1634 3064 3411 3423 3523 3548 4235 4725 6566 7166 2276 3098 3671 4878 6566 7717 2286 3102 3682 5358 6749 7846 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 1836 4775 PENDLINK 00002 0000E4 01842 7825 00001 00074B 07796 PHASE 1 00001 00074F 07813 PHASE2 7829 00001 000750 07817 PHASE3 4381 PICKDROP 00002 000395 04381 3519 4937 00001 000044 00644 PING 1071 1077 PNDADDR 00001 000006 00692 1358 1581 00001 000005 00691 PNDSTS 5325 5381 1132 00001 00002E 01150 POLLED 7632 7654 POSTAMBL 00001 00072C 07675 000717 07592 PREAMBLE 00001 1229 1235 PRETURNO 00002 0000C8 01735 5525 PRETURNl 00002 0004CE 05457 2034 2085 PROTEST 00001 00021E 02922 5484 PROTEST 1 00001 000220 02929 PRSNTSTS 00001 000593 06129 2749 00001 0001EC 02762 PULLAB 2780 00001 0001FO 02774 PULLABl 2777 0001F3 02783 00001 PULLAB2 2416 2758 00001 0001E8 02749 PULL2 4100 PWRRESET 00001 000373 04209 4581 6229 00001 000020 00911 RDACC 2443 4559 RDNOISE 00001 000001 00858 4581 6229 00001 000008 00914 RDSTOP 6252 READACC 00001 0005F8 06501 1922 READTYPE 00001 000139 02130 7564 07572 00001 000713 READY16 7764 READY 8 0 0 00001 000744 07772 REGINIT 00001 00038C 04330 00001 000040 00845 REJTU 3461 00001 000004 00834 REQINA 4953 00001 000001 00836 REQINB 1032 3490 REQTAGS 00001 OOOOOA 00697 3092 00001 000250 03098 RESETA 3833 4179 RESETOK 00001 000008 00825 7592 RETURNOO 00002 0006EA 07420 7613 RETURNOl 00002 0006EB 07423 7623 RETURN02 00002 0006EC 07426 7720 RETURN03 00002 0006ED 07429 7328 RETURNll 00001 0006CC 07315 7340 RIGHTOFF 00001 0006CE 07328 7311 07303 0006C9 RIGHTON 00001 4376 RIPBIBO 00001 000388 04312 4306 4318 RIPWRAP 00001 00038F 04346 3665 RLSCHANN 00001 0002EC 03674 1232 RSTADDIN 00001 000060 01337 RSTCMTD 00002 0002DA 03617 3691 RSTCOMTD 00001 000005 00626 RSTCUEA 00001 000083 01476 1713 RSTDIAG 00001 0000C9 01739 4798 RSTHLDIN 00001 0002CB 03568 00001 00035E 04117 RSTNRZ 3588 RSTNTDUN 00001 0002DO 03585 e PN 1846377 EC 734110 PAGE CROSS-REFERENCE 110 9/04/73 5453 5511 1163 1849 5443 1584 1871 5450 1643 2391 5552 1562 1776 5457 6245 6289 3918 2837 6245 4159 4248 4431 4480 () 5154 5358 3921 3013 4083 3028 4167 3245 3278 3808 3874 4404 4408 4769 ROS1 3803-2 MICROCODE LISTING CROSS-REFERENCE ROS1 REFERENCES SYMBOL LEN VALUE DEFN 3819 RSTRESET 00001 00031C 03833 4861 RSTRESV 00001 000427 04878 3117 RSTSTATA 00001 000259 03127 5052 RSVBC 00001 00045C 05055 1953 RTNCOMR 00002 0004DO 05478 2922 RTNPROT 00002 0004D2 05484 2384 RTNSENS 00002 0004D1 05481 2956 RTNTUTST 00002 0004D3 05487 2963 RTNTUTS1 00002 0004D4 05490 4485 RUNALU 00002 000340 03986 5597 5710 5845 5851 5915 5926 00001 000000 00654 RO R1 00001 000001 00655 5600 00001 OOOOOA 00664 5627 R10 5630 R11 00001 OOOOOB 00665 00001 OOOOOC 00666 5633 R12 00001 OOOOOD 00667 5636 Rt3 R14 00001 OOOOOE 00668 5639 5642 R15 00001 OOOOOF 0-0669 R16 00001 000010 00670 R17 00001 000011 00671 R18 00001 000012 00672 R19 00001 000013 00673 5603 5665 5674 5680 5695 R2 00001 000002 00656 00001 000014 00674 R20 R21 00001 000015 00675 00001 000016 00676 R22 00001 000017 00677 R23 R24 00001 000018 00678 00001 000019 00679 R25 00001 00001A 00680 R26 R27 00001 00001B 00681 00001 00001C 00682 R28 R29 00001 00001D 00683 00001 000003 00657 5606 R3 00001 00001E 00684 R30 R31 00001 00001F 00685 R4 00001 000004 00658 5609 5739 5774 5612 R5 00001 000005 00659 5615 00001 000006 00660 R6 5618 R7 00001 000007 00661 5621 R8 00001 000008 00662 5624 R9 00001 000009 00663 SAGCNTM1 00001 000649 06807 6834 6840 SAGCNTM2 00001 00064B 06814 SAGCNTM3 00001 00064E 06824 6817 6824 SAGCNTM4 00001 000650 06831 SAGCNTM5 00001 000654 06845 SAGCNTM6 00001 000656 06853 6861 SAGC1 6814 00001 OOOOAC 00787 6054 SAV1FCH2 00001 000587 06087 SAV2FCH3 00001 00058A 06098 6090 6110 SAV3NOFC 00001 000590 06118 SCRAP 1 00001 0005FO 06467 6457 00001 0005F2 06473 6510 SCRAP 2 PN 1846377 EC 734110 PAGE 111 9/04/73 5936 5989 6003 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 2342 SCREENTI 00001 000700 07487 5522 SEEIFUC 00001 0004EO 05534 1699 SELOUTUP 00001 0000C7 01732 04131 1086 SELRESET 00001 000362 5130 SELRSTl 00001 000473 05137 SELRST2 00001 000365 04140 4190 SELRST3 00001 000368 04150 1108 1061 SELRTNO 00001 000019 01068 1005 2477 00001 000040 00802 SENSE 2573 00001 0001B9 02582 SENSEA 2588 00001 0001BE 02600 SENSEB 2603 00001 0001C2 02615 SENSEC 2618 SENSED 00001 0001C5 02627 2576 SENSEDS 00001 0001C6 02630 2627 00001 0001C9 02642 SENSEE 2642 00001 0001CB 02650 SENSEF 5481 SENSEOK 00001 000181 02391 1323 00001 000185 02404 SENSEO 2413 00001 00018A 02422 SENSEl 2446 00001 000194 02452 SENSE2 2452 00001 00019B 02477 SENSE3 2486 00001 0001AO 02495 SENSE4 2507 00001 0001A7 02516 SENSE5 2522 00001 0001AB 02531 SENSE6 2531 SENSE7 00001 0001AD 02540 2546 00001 0001Bl 02552 SENSE8 2552 0001B5 02567 00001 SENSE9 6476 SERVIBG 00001 0005CD 06338 1467 1479 SERVLINK 00001 000086 01487 2686 6064 SERVRTN 00001 00020A 02844 2844 SERVRTNO 00001 00020C 02851 2857 2860 SERVRTNl 00001 000200 02854 02874 2886 SERVRTN2 00001 000213 1117 01026 SETABRT 00001 OOOOOC 1670 SETADDR 00001 0000B8 01680 SETADRIN 00001 OOOOBF 01702 SETAMOD 00001 000482 05200 5197 SETBMOD 00001 000486 05213 6073 SETBOPE 00001 000585 06079 SETBOPO 00001 000586 06082 SETBYINT 00001 000481 05197 1451 SETCHAIN 00001 000087 01492 2716 2765 00001 OOOOOE 00701 SETCNTl 2431 2434 SETCNT2 00001 OOOOOF 00702 00001 000693 07096 SETCT2 SETCUB 00.001 000010 00901 5543 SETDEUC 00001 0004E6 05552 1277 1283 SETDIAl 00001 OOOOOC 00699 1280 1742 SETDIA2 00001 000000 00700 3301 SETELAG 00001 000288 03307 00001 00071E 07616 SETFORl SETHOLDA 00001 000010 01038 5080 5090 SETHOLDS 00001 000330 03976 SETLINK 00001 000042 01223 PN 1846377 EC 734110 PAGE CROSS-REFERENCE 2630 2701 6347 6375 112 9/04/73 2729 3319 2863 2797 2455 4594 2495 6098 2516 6104 2555 1739 4352 4244 6087 6033 6039 () 6382 2582 6590 2600 ( 6749 2615 '---.) 6807 2633 7177 5012 7487 6118 7516 6398 7545 6752 6810 ROSl 3803-2 MICROCODE LISTING ROSl SYMBOL REFERENCES LEN VALUE DEFN SETPNDG 00001 0003DE 04660 4650 SETREQA 00001 0002BO 03461 4792 4855 SETRESRV 00001 000424 04868 SETSEV 00001 00048B 05230 1728 1746 SETS EVA 00001 000496 05264 5233 SETSPIN 00001 000310 03788 3778 SETSPINl 00001 000312 03795 SETSPIN2 00001 000313 03800 3804 SETSTATA 00001 000008 00805 1984 2058 6356 6366 SETSTATB 00001 000004 00806 1624 4007 SETSTATC 00001 000002 00807 1676 2939 1286 1292 SETSTATD 00001 000001 00808 4061 4513 SETS TOP 00001 00028C 03322 SETSTOPl 00001 00028D 03325 SETSWSEL 00001 0000B3 01664 3274 4609 SETUNTCK 00001 0003DD 04657 SEVLINK 00002 000489 05223 5209 1896 4114 SEVMODA 00001 00001A 00713 SEVMODB 00001 00001B 00714 1900 5114 SHORTBSY 00001 OOOOAl 01597 SIGUC 00001 000268 03184 3150 3207 SIGUX 00001 00026C 03197 3156 4257 SIOISOK 00001 00037E 04266 SIORTN 00001 000095 01556 1126 SKIPALU2 00001 000246 03064 3133 SKIPIT 00001 00008C 01512 1523 SKIPNOIS 00001 0003EA 04700 4677 4683 SKIPNRZ 00001 000492 05251 5245 SKIPNRZl 00002 000495 05260 5254 SKIPSUPO 00001 00007E 01454 1447 SNSEVEN 00001 0001CF 02665 2458 2561 SNSEVENl 00001 0001CE 02662 2489 2525 2594 SNSEVEN2 00001 000100 02668 2815 SNSLINK 00001 0001E6 02743 2746 SNSODD 00001 000107 02695 SNSODDl 00001 0001DD 02713 2726 2732 SNSODD2 00001 0001EO 02723 2698 2707 SNSODD3 00001 0001E4 02736 2516 2600 SNSOFF 00001 000020 00924 2483 2555 SNSON 00001 000040 00923 SNSRESET 00002 00021D 02916 2985 2425 2976 SNSSTS2 00001 000007 00693 4215 SOFAIL 00001 000373 04215 1223 3497 SRETURNO 00002 00005A 01317 1226 3500 SRETURNl 00002 00005B 01320 2394 SRETURN2 00002 00005C 01323 3016 SRETURN4 00002 00005D 01326 3019 SRETURN5 00002 00005E 01329 SRETURN6 00002 00005F 01332 3248 1129 1426 STACK 00001 000002 00827 STAKDISC 00001 00006E 01395 1544 STAKLINK 00001 00006F 01399 1376 START 00001 000004 00880 PN 1846377 CROSS-REFERENCE EC 734110 PAGE 113 9/04/73 2668 2713 3098 3127 3187 3319 3374 3822 5291 5308 4459 3224 2768 6048 5084 3374 2783 6223 5097 3924 3095 5106 3930 3127 5137 4187 3224 5163 5397 3578 5315 5942 4751 5322 6379 5942 5942 6395 6432 6448 4643 4706 4712 5200 5213 5264 5236 3363 3759 4016 5370 5429 5495 5315 3332 4721 2621 2636 2723 2582 2615 2695 4392 4757 2609 2534 2645 2739 3503 1568 1627 1667 1794 5540 5322 5942 3803-2 MICROCODE LISTING ROS1 ROS1 REFERENCES LEN VALUE DEFN SYMBOL 1289 1683 00001 000028 00642 STAT 3581 3825 5945 6190 1289 1640 STATIMG 00001 000008 00694 3377 3581 4562 4754 6868 7150 1129 1568 STATPNDG 00001 000004 00826 5495 1256 2400 STATRTN 00001 000060 01335 STATRTN1 00001 000061 01339 05987 5980 STATSOK 00001 00056F STEPOO01 00001 000000 00973 STEPOO02 00001 0000F5 01894 STEPOO03 00001 0000F6 01898 STEPOO04 00001 0000F7 01902 STEPOO05 00001 000014 01049 STEPOO06 00001 000354 04077 STEPOO07 00001 000355 04081 STEPOO08 00001 000356 04085 STEPOO09 00001 000357 04089 STEP0010 00001 000358 04093 STEP0011 00001 000359 04098 STEP0012 00001 000373 04212 STEP0013 00001 000374 04217 STEP0014 00001 000375 04222 STEP0015 00001 000376 04227 STEP0016 00001 000377 04233 STEPOO17 00001 000378 04238 STEP0018 00001 000379 04242 STEP0019 00001 00037A 04246 STEP0020 00001 00037B 04250 STEP0021 00001 00037C 04255 STEP0022 00001 00037E 04264 STEP0023 00001 000380 04273 STEP0024 00001 000382 04282 STEP0025 00001 000384 04291 STEP0026 00001 000386 04300 STEP0027 00001 000387 04304 STEP0028 00001 00038F 04342 STEP0029 00001 000390 04348 STEP0030 00001 000391 04354 STEP0031 00001 000392 04360 STEP0032 00001 000393 04366 STEP0033 00001 000394 04372 STEP0034 00001 000388 04308 STEP0035 00001 000389 04314 STEP0036 00001 00038F 04343 STEP0037 00001 000390 04349 STEP0038 00001 000391 04355 STEP0039 00001 000392 04361 STEP0040 00001 000393 04367 STEP0041 00001 000394 04373 STEP0042 00001 000388 04309 () r~ ) -. -_/ PN 1846377 EC 734110 PAGE 114 CROSS-REFERENCE 1725 3888 6239 1683 3825 5046 7209 1627 1987 3908 6283 1725 3871 5106 7733 1667 2061 3927 6848 1987 3888 5294 7944 1794 2674 3950 6868 2061 3908 5400 2771 4045 7150 2674 3927 5684 2942 4163 7209 2771 3950 5687 3036 4472 7733 2942 4045 5942 3046 4562 7944 3036 4087 5945 3130 4754 3190 5046 3227 5294 3325 5400 9/04/73 3377 5687 3046 4144 5948 3130 4163 6190 3190 4468 6239 3227 4472 6283 3325 4476 6848 1826 1852 1874 3171 3281 3363 3759 4016 4660 4772 3506 r';" \,/ f\ I \ /' \_-) () ROSl 3803-2 MICROCODE LISTING ROSl CROSS-REFERENCE SYMBOL LEN VALUE DEFN REFERENCES STEP0043 00001 000389 04315 STEP0044 00001 00038A 04320 STEP0045 00001 00038B 04324 STEP0046 00001 00038C 04328 STEP0047 00001 00038D 04332 STEP0048 00001 00038E 04336 STEP0049 00001 00035C 04109 STEP0050 00001 000361 04125 STEP0051 00001 00046B 05104 STEP0052 00001 00046C 05108 STEP0053 00001 00046D 05112 STEP0054 00001 00046E 05116 STEP0055 00001 00046F 05120 STEP0056 00001 000470 05124 STEP0057 00001 000369 04153 STEP0058 00001 OQ036A 04157 STEP0059 00001 00036B 04161 STEP0060 00001 00036C 04165 STEP0061 00001 00036D 04169 STEP0062 00001 00036E 04173 STEP0063 00001 00036F 04177 STEP0064 00001 000370 04181 STEP0065 00001 000475 05144 STEP0066 00001 000477 05152 STEP0067 00001 000478 05156 STEP0068 00001 000396 04385 STEP0069 00001 000397 04390 STEP0070 00001 000398 04394 STEP0071 00001 000399 04398 STEP0072 00001 00039A 04402 STEP0073 00001 00039B 04406 STEP0074 00001 00039C 04410 STEP0075 00001 00039D 04415 STEP0076 00001 00039E 04421 STEP0077 00001 00039F 04425 STEP0078 00001 0003AO 04429 STEP0079 00001 0003Al 04433 STEP0080 00001 0003A2 04437 STEP0081 00001 0003A3 04441 STEP0082 00001 0003A4 04445 STEP0083 00001 0003A5 04449 STEP0084 00001 0003A7 04457 STEP0085 00001 0003A8 04461 STEP0086 00001 0003A9 04466 STEP0087 00001 0003AA 04470 STEP0088 00001 0003AB 04474 STEP0089 00001 0003AC 04478 STEP0090 00001 0003AO 04483 STEP0091 00001 000340 03984 STEP0092 00001 000513 05663 STOP 00001 000080 00801 3322 5942 6845 6864 7147 7206 STOPLINK 00001 000079 01429 STRIPAOD 00001 OOOOBO 01652 STROBE 00001 000730 07736 7784 PN 1846377 EC 734110 PAGE 115 9/04/73 7730 3803-2 MICROCODE LISTING ROSl ROSl REFERENCES LEN VALUE DEFN SYMBOL 1673 STRTALU2 00001 0000B9 01683 6740 STRTBRST 00001 000636 06732 6707 STRTBSVI 00001 000634 06722 3449 STSIMME 00001 0002BB 03497 1361 1367 00001 000004 00816 STSIN 4999 STSONA 00001 00044D 05005 5344 00001 0004AF 05350 STSONB 6949 SUDOWRTl 00001 0006EE 07438 07441 SUDOWRT2 00001 0006EF 7438 SUDOWRT3 00001 0006Fl 07448 7448 SUDOWRT4 00001 0006F5 07461 4230 SUPOFAIL 00001 000376 04230 4279 SUPOOFF 00002 000381 04279 3487 SUPREQA 00001 000008 00835 4967 SUPREQB 00001 000002 00837 2851 2869 00815 00001 000008 SVCIN 6196 00001 0005A6 06193 SVCOUP 1346 1349 SVCOUTUP 00001 000061 01342 4529 SVCWATE 00001 0003B4 04520 4288 00002 000383 04288 SVOOFF 00001 000010 00870 SWSEL 1541 TAKEDISC 00001 00007B 01444 1380 TAKELINK 00001 00007D 01451 01463 1516 00001 000080 TAKELINl TAPS LIP 00001 000001 00910 1317 TERMACC 00001 0002C5 03548 1880 TERMATE 00002 000048 01249 1320 TERMSTAK 00001 0002BF 03516 1249 1842 TERMS TAT 00001 000291 03355 4943 TERMSTAO 00001 000293 03363 03411 3355 TERMSTAl 00001 0002AO 1606 3214 TERMSTA2 00001 000296 03372 3828 5021 TERMSTA3 00001 00029A 03387 3471 TERMSTA4 00001 0002AC 03449 1432 TERMSTKl 00001 0002Cl 03523 TESTONE 00001 000520 05710 5838 00001 00052A 05743 TESTl 7548 00001 000014 00645 TIP 6572 07474 0006F9 TMPATCH 00001 7480 TMSKIP 00001 000610 06590 7723 00001 000092 00793 TMO 7575 00001 000737 07717 TM1600 TM1600B 00001 000738 07720 7181 00001 00009C 00792 TM64 7560 7636 00002 000735 07702 TONOGO 7154 TOSETSTP 00001 0006A7 07163 TRACELSR 00002 000500 05594 TRAP 1 00002 00052D 05753 5717 00002 000544 05834 TRAP 1 a TRAP 1 06 00002 00054C 05861 TRAP 1 07 00002 00054F 05871 TRAP 1 08 00002 000552 05882 TRAP 1 09 00002 000556 05895 5714 TRAPll 00002 000546 05841 f' " PN 1846377 EC 734110 PAGE 116 CROSS-REFERENCE 9/04/73 1352 1355 1867 2157 3366 5041 5300 7658 7760 () 3174 4663 7804 7821 _/ ROSl 3803-2 MICROCODE LISTING ROSl SYMBOL LEN VALUE DEFN REFERENCES TRAP2 00002 000530 05764 TRAP4 00002 000538 05792 5735 TRAP5 00002 00053A 05799 5732 TRAP6 00002 00053C 05806 5729 TRAP7 00002 00053E 05813 5726 TRAP 8 00002 000540 05820 5723 TRAP9 00002 000542 05827 5720 TRETURNO 00002 00021C 02913 2973 2992 TRETURN2 00001 000219 02904 2292 TRETURN3 00002 00021B 02910 2263 TRNAOFF 00002 0006B7 07222 6539 6545 TROUBLE 00002 000300 03733 3788 3967 2440 TSTERRS 00001 000197 02462 1077 1686 rUADR 00001 000024 00630 TUBOMSK 00001 000002 00913 TUTEST 00001 000228 02956 1993 2171 TUTESTIT 00001 00022C 02970 2929 2949 TUTESTl 00001 00022A 02963 2160 2266 5490 TUTEST2 00001 000233 02992 00001 000236 03002 TUTRTN 2882 5410 TUTSTRTN 00001 0004BD 05397 UNITCHK 00001 000002 00865 1408 1849 UNITEXC 00001 000001 00866 3197 4667 VEL 00001 000040 00898 WAIT 5951 00001 000568 05962 5966 7002 7019 WAITONA 00001 00067B 06994 WAITONAl 00001 000680 07015 6985 6771 WAITONE 00001 000630 06762 4261 WAITSIO 00002 00037D 04261 WAITSOME 00001 000630 06703 6715 1384 2397 WATESUM 00001 00006A 01372 00001 00027F 03278 WCOHIO 2828 WCOSTOP 00002 00027E 03274 2825 WDCNTO 00001 000002 00857 2834 3288 WHOA 00001 000217 02891 2878 1559 1655 WORK 1 00001 000004 00690 5385 6132 7717 7846 1295 1298 WORK2 00001 000017 00710 WORK4 00001 00001C 00715 WRAPUP 00001 00068E 07080 6977 7006 00001 000004 00785 WRITE 2025 2076 7808 WRITELUP 00001 00074C 07800 WRITESUM 00001 000749 07788 7775 7781 WRONGCHN 00002 000039 01189 1189 1193 WRSTATUS 00001 000008 00879 WRTBGN 00001 000203 02822 6172 WRTCHECK 00001 000119 02015 00001 000282 03288 2822 WRTFST 6051 6226 WRTHIO 00002 00028A 03314 WRTINIT 00002 0005Al 06172 6193 6202 WRTPROB 00001 00026E 03204 3153 XINA 00001 000090 00638 2431 2762 XINAOK 00001 000573 06003 5995 PN 1846377 EC 734110 PAGE CROSS-REFERENCE 117 9/04/73 2998 6898 3627 3921 4167 4476 2295 5487 2326 1871 3184 3278 3775 3956 4657 4769 4925 4931 5546 5552 2422 6578 7876 2665 6969 2762 7096 2794 7237 3551 7441 3627 7454 3630 7467 3659 7477 4358 7496 4597 7520 5915 5989 6341 6487 6590 3251 1686 6272 7863 7037 4674 4693 4693 7533 4696 7601 ROSl 3803-2 MICROCODE LISTING ROSl LEN VALUE DEFN REFERENCES SYMBOL 00001 000088 00639 2765 3918 XINB XINBOK 00001 000577 06016 6009 1071 1283 XOUTA 00001 000042 00640 7545 7678 1002 2336 XOUTAIM 00001 000002 00688 1044 1074 XOUTB 00001 000041 00641 5695 6042 1026 1044 XOUTBIM 00001 000014 00707 2090 2104 3891 3894 6344 6435 5058 5071 00001 0004A7 05322 XXX 3677 YESCHAIN 00001 0002ED 03677 4496 YUPHANG 00002 0003BO 04496 5064 YYY 00001 0004A5 05315 1159 1833 ZERO 00001 000000 00917 5907 5974 ZONK 00002 00056A 05970 5691 5699 ZONKA 00002 000567 05955 5702 ZONKC 00002 00056E 05984 5922 ZONKXA 00002 000572 05999 06013 5932 ZONKXB 000576 00002 1083 ZZZ 00001 000010 01080 PN 1846377 CROSS-REFERENCE EC 734110 PAGE Or 118 118 9/04/73 4594 5385 5926 6003 6338 6578 7477 1655 7739 2480 1298 6107 1068 2112 4079 6444 2671 7791 2558 1565 6263 1074 2120 4131 6451 3033 5674 5936 6039 6104 6187 6242 6758 7240 7299 7324 2591 1689 6451 1565 2164 4171 6501 2671 1861 6504 1680 2175 4516 6504 3033 2410 6557 1689 2407 4745 6554 6187 3061 6593 1858 2410 4748 6557 6242 3221 3610 3795 3894 4171 4516 4748 1861 3061 6036 6593 1981 3218 6042 2005 3221 6101 2028 3607 6107 2042 3610 6260 2055 3792 6263 2073 3795 6338 2391 2840 2976 3028 3245 3529 3624 3808 3871 () () (j ROS2 3803-2 MICROCODE LISTING LaC OBJECT CODE 000000 ADDRl ADDR2 PN 1846378 STMT 2 EC 736697 PAGE SOURCE STATEMENT START F01MAY72 2/04/74 00000030 6 *********************************************************************** 00000070 7 * * 00000080 8 * 3803-2 MICROPROGRAM LISTING ROS2 (ALU2) * 00000090 9 * * 00000100 10 * DRIVE AND DATAFLOW CONTROL * 00000110 11 * * 00000120 12 * PIN 1846378 SYSTEM EC 736697 * 00000130 13 * CARD ASSEMBLY 8237119 MODULE EC 736696 * 00000140 14 * * 00000150 15 * * 00000160 16 * COPYRIGHT 1972 INTERNATIONAL BUSINESS MACHINES CORP ~ 00000170 17 * ~ 00000180 18 * * 00000190 19 * 3803-2 00000200 20 *********************************************************************** 00000210 25 *****'********* ALU 2 INDEX BY ROUTINE 26 * 27 * 28 * 29 * ABORT ALU CHECKOUT 30 * 31 * BACKSPACE FILE BACKSPACE RECORD 32 * DATA SECURITY ERASE 33 * 'DESELECT 34 * DIAGNOSTIC MEASURE (DMR) 35 * ENDUP 36 * ERASE GAP 37 * FETCH DRIVE STATUS 38 * FORWARD SPACE FILE 39 * FORWARD SPACE RECORD 40 * GENERAL RESET 41" * ADDRESS IS HEX ) ************** * * *************** 59C 03C 03E 031 lBB 561 100 022 2El 035 037 lAl * * * * * * * * * * * * * * 00000260 00000270 00000280 00000290 00000300 00000310 00000320 00000330 00000340 00000350 00000360 00000370 00000380 00000390 00000400 00000410 00000420 ROS2 LOC f';;~ '-, "j 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE (-:~ "'-- ./ PN 1846378 STMT 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 * * * * * * * * * * * * * * * * * * * * * * * C-) EC 736697 PAGE SOURCE STATEMENT IBG MEASURE (NRZI) IBG MEASURE (PE GCR) INITIAL SELECTION READ ACCESS UDIAGNOSTIC READ BACKWARD READ FORWARD REWIND REWIND UNLOAD SCAN FOR DEVICE ENDS SELECTIVE RESET SENSE SET DEVICE ENDS TURNAROUND VELOCITY CHECK- WRITE (PE NRZI) VELOCITY CHECK- WRITE (GCR) VELOCITY (GET TAPE TO SPEED - ALL OPS) WRITE WRITE ID BURST WRITE TAPE MARK WRITE SAGC POSITION ERASE HEAD DISPLAY LSRS FOUND TRACK (NRZI 9TRK) ( "j F01MAY72 544 513 OEA 58D 03A 033 02F 029 34D lA7 OD6 200 138 300 7AD 219 013 6DO 020 705 733 500 445 / I' \, ,-- * * * * * * * * * * * * * * * * * * * * * * * 2 2/04/74 00000430 00000440 00000450 00000460 00000470 00000480 00000490 00000500 00000510 00000520 00000530 00000540 00000550 00000560 00000570 00000580 00000590 00000600 00000610 00000620 00000630 00000640 00000650 () ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 EC 736697 PAGE 3 SOURCE.STATEMENT F01MAY72 2/04/74 *********************************************************************** 00000670 *********************************************************************** 00000.680 * TAPE UNIT COMMAND STATUS BYTE TAPE UNIT CONTROL STATUS BYTE * 00000690 * * 00000700 * 0 BACKWARD 0 RUN * 00000710 * 1 GAP CONTROL 1 * 00000720 * 2 DIAGNOSTIC MODE 2HIGH * 00000730 * 3 OPPOSITE DIRECTION 3ALT DEN * 00000740 * 4 WRITE STATUS 4LOW * 00000750 * 5 EXTENDED STOP 5 ERASE * 00000760 * 6 UNIT CHECK 6 ERASE MODE * 00000770 * 7 POSITIONING 7 REW * 00000780 * * 00000790 *********************************************************************** 00000800 * TAPE UNIT COMMANDS * 00000810 * COMMAND TAG UP CONTROL TAG UP TAG LI~ES * 00000820 * * 00000830 * 0 SET BACKWARD READ 0 RUN 0 * 00000840 * 1 SET FORWARD READ 1 1 * 00000850 * 2 SET DIAGNOSTIC 2 SET HIGH SENSE 2 * 00000860 * 3 SET PULSE 3 SET ALT DEN+SAGC 3 * 00000870 * 4 SET WRITE 4 SET LOW SENSE 4 DEV SEL * 00000880 * 5 SET EXTENDED STOP 5 ERASE TO TI 5 CONTROL * 00000890 * 6 RESET 6 SET ERASE MODE 6 COMMAND * 00000900 * 7 UNUSEABLE 7 REW 7 MOVE * 00000910 * * 00000920 * * 00000930 * * 00000940 * * 00000950 * * 00000960 * ALU2 XOUTA DATA FLOW CONTROL ALU2 STATS * 00000970 * * 00000980 * 0 PE BIT 0 TAPE OP * 00000990 * 1 FORWARD 1PERMIT READ/WRITE * 000010.00 * 2 ALLOW ENVELOPE LOSS 2 WRITE P BURST * 00001010 * 3 SYNC 3 SEVEN TRK * 00001020 * 4 6250 A ALU2 BOC * 00001030 * 5 & 7 IPS 200 B ALU1 BOC * 00001040 * 5 .IPS 125 C ALU1 BOC * 00001050 * 6 & 7 IPS 75 D ALU1 BOC - ALU2 TERM * 00001060 * 6 LOGAIN * 00001070 ***********************************************.************.********** 00001080 ROS2 LOC F--. \ ) PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE () ADDRl ADDR2 EC 736697 PAGE 4 STMT SOURCE STATEMENT F01MAY72 2/04/74 109 *********************************************************************** 00001100 110 * TAPE UNIT SENSE BYTES * 00001110 111 * * 00001120 112 * TO OBTAIN SENSE BYTES ALUl MUST LOAD THE TU ADDRESS REGISTER WITH 00001130 113 * THE PROPER ADDRESS. ALU2 MUST TURN ON DEVICE SELECT BY ITSELF AND * 00001140 114 * PUT THE PROPER BIT ON THE BUS OUT. * 00001150 115 * * 00001160 116 * TUBa BIT 7 (01) BRINGS IN SENSE BYTE 0 STATUS * 00001170 117 * TUBa BIT 6 (02) BRINGS IN SENSE BYTE 1 FEATURES & MODEL * 00001180 118 * TUBO BIT 5 (04) BRINGS IN SENSE BYTE 2 ERRORS * 00001190 119 * TUBa BIT 4 (08) BRINGS IN SENSE BYTE 3 SERIAL NUMBER * 00001200 120 * TUBO BIT 3 (10) BRINGS IN SENSE BYTE 4 SERIAL NUMBER * 00001210 121 * TUBa BIT 2 (20) BRINGS IN SENSE BYTE 5 EC LEVEL * 00001220 122 * TUBO BIT 1 (40) ALLOWS READ BUS AND TACH PULSES * 00001230 123 * TUBa BIT 0 (80) MONITORS THREAD AND LOAD SEQUENCE * 00001240 124 * * 00001250 125 * * 00001260 126 * * 00001270 127 * BYTE 0 BYTE 1 BYTE 2 * 00001280 128 * * 00001290 129 * 0 BACKWARD 0 7 TRACK 0 LAMP FAILURE * 00001300 130 * 1 NOT FILE PROTECT 1 WRT&CURRENT&FAIL& 1 LEFT COL FAILURE * 00001310 131 * 2 END OF TAPE 2 DUAL-DENSITY 2 RIGHT COL FAILURE * 00001320 132 * 3 BEGINNING OF TAPE 3 ALT DEN 3 STOP KEY * 00001330 133 * 4 WRITE STATUS 4 6250 4 DATA SECURITY ERASE * 00001340 134 * 5 START 5 MODEL 5 ERASE HEAD FAILURE * 00001350 135 * 6 UNIT CHECK 6 MODEL 6 AIR BEARING FAILURE * 00001360 136 * 7 NOT BUSY 7 MODEL 7 LOAD FAILURE * 00001370 137 * * 00001380 138 * BYTE 3 BYTE 4 BYTE 5 * 00001390 139 * * 00001400 140 * 0 0 0 THERMAL/VOLTAGE CHK * 00001410 141 * 1 DEVICE 1 DEVICE 1 SPARE * 00001420 142 * 2 SERIAL 2 SERIAL 2 SPARE * 00001430 143 * 3 NUMBER 3 NUMBER 3 SPARE * 00001440 144 * 4 HIGH 4 LOW 4 ENGINEERING * 00001450 145 * 5 ORDER 5 ORDER 5 CHANGE * 00001460 146 * 6 6 6 LEVEL * 00001470 147 * 7 7 7 OF DRIVE * 00001480 148 * * 00001490 149 * LOAD AND THREAD SENSE BYTE * 00001500 150 * * 00001510 151 * 0 LOAD BUTTON DEPRESSED WITH BIT 0 ON TUBa, THESE SIGNALS * 00001520 152 * 1 LEFT REEL TURNING RETURN TO THE CONTROLLER REAL TIME. * 00001530 153 * 2 RIGHT REEL TURNING THE SEQUENCE IS BITS 0 TO 6 IN THE * 00001540 154 * 3 TAPE PRESENT ORDER SHOWN. IF AN ERROR IS DETECT- * 00001550 155 * 4 REELS LOADED ED BY THE DRIVE,BIT 7 WILL APPEAR. * 00001560 156 * 5 LOAD REWIND IF A CARTRIDGE IS BEING USED, BIT * 00001570 157 * 6 LOAD COMPLETE 7 INITITIATES A RETRY. * 00001580 158 * 7 LOAD CHECK * 00001590 159 *********************************************************************** 00001600 /0 \ :.., ) t' ~ l-~ \_./ ~~~ ~) ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT PAGE EC 736697 F01MAY72 5 2/04/74 162 *********************************************************************** 00001630 163 * ALU2 LSR LAYOUT AND ASSIGNED BIT POSITIONS * 00001640 164 * * 00001650 165 * LSRO-WORKl LSR1-WORK2 LSR2-WORK3 .. 00001660 166 * 0 SCRATCH 0 SCRATCH 0 SCRATCH * 00001670 167 * 7 REGISTER 7 REGISTER 7 REGISTER * 00001680 168 * * 00001690 169 * LSR3-WORK4 LSR4-STATIMG LSR5-FLAGS * 00001700 170 * 0 SCRATCH 0 TAPE OP 0 DIAGNOSTIC WRITE * 00001710 171 * 7 REGISTER 1 PERMIT READ/WRITE 1 * 00001720 172 * 2 WRITE P BURST 2 INHIBIT POSTAMBLE * 00001730 173 * 3 NRZI 3 * 00001740 174 * 4 ALU2 BOC STATA 4 INHIBIT PREAMBLE * 00001750 175 * 5 ALUl BOC STATB 5 LOOP WRT/RD OP * 00001760 176 * 6 ALUl BOC STATC 6 TUBO MASK * 00001770 177 * 7 ALUl BOC STATD TERM 7 CHANGE DIRECTION * 00001780 178 * * 00001790 179 * LSR6-SENSEl LSR7-SENSE2 LSR8-TRACER(READ OP) * 00001800 180 * 0 BACKWARD 0 7 TRACK 0 CREASE OP * 00001810 181 * 1 NOT FILE PROTECT 1 WRT CURRENT FAIL 1 BOR MARK * 00001820 182 * 2 END OF TAPE 2 DUAL-DENSITY 2 * 00001830 183 * 3 BEGINNING OF TAPE 3 NRZI 3 IBG MARK * 00001840 184 * 4 WRITE STATUS 4 BIRCH 4 TAK MARK * 00001850 185 * 5 START 5 & 7 ASPEN 200 5 FILE OP * 00001860 186 * 6 UNIT CHECK 5 ASPEN 125 6 READ OP * 00001870 187 * 7 NOT BUSY 6 & 7 ASPEN 75 7 SPACE OP * 00001880 188 * * 00001890 189 * LSR8-TRACER(WRITE OP) LSR9-FRU LSR10-DTACHK2 * 00001900 190 * 0 0 DEFINED 0 * 00001910 191 * 1 LPMARK 7 ELSEWHERE 1 * 00001920 192 * 2 CHKBURST 2 WTM ERROR * 00001930 193 * 3 ERGFLAG 3 PE ID BURST CHK * 00001940 194 * 4 TAK MARK 4 START READ CHK * 00001950 195 * 5 ERG OP 5 PARTIAL RECORD * 00001960 196 * 6 WTM OP 6 EXCESSIVE POSTAMBLE * 00001970 197 * 7 7 * 00001980 198 * * 00001990 199 * LSRll-TUADDR LSR12-DTACHKl LSR13-XOUTAIM * 00002000 200 * 0 SEL TU7 0 IBGDROP 0 PE BIT * 00002010 201 * 1 SEL TU6 1 FEEDTHRU 1 FORWARD * 00002020 202 * 2 SEL TU5 2 6400CRC 2 ALLOW LOSS * 00002030 203 * 3 SEL TU4 3 EARLY IBG DROP 3 SYNC * 00002040 204 * 4 SEL,TU3 4 SAGC 4 BIRCH * 00002050 205 * 5 SEL TU2 5 SLOW BEGINNING 5 TU MODEL * 00002060 206 * 6 SEL TUl 6 SLOW ENDING 6 LOGAIN * 00002070 207 * 7 SEL TUO 7 VELOCITY RETRY 7 TU MODEL * 00002080 208 * * 00002090 ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846378 EC 736697 PAGE 6 STMT SOURCE STATEMENT F01MAY72 2/04/74 210 * LSR14-LODEPA LSR15-LODEPB LSR16-WORK1 (HIGH) * 00002110 211 * 0 DEP TU 7 0 DEP TU 7 0 SCRATCH * 00002120 212 * 1 DEP TU 6 1 DEP TU 6 7 REGISTER * 00002130 213 * 2 DEP TU 5 2 DEP TU 5 * 00002140 214 * 3 DEP TU 4 3 DEP TU 4 * 00002150 215 * 4 DEP TU 3 4 DEP TU 3 * 00002160 216 * 5 DEP TU 2 5 DEP TU 2 * 00002170 217 * 6 DEP TU 1 6 DEP TU 1 * 00002180 218 * 7 DEP TU 0 7 DEP TU 0 * 00002190 219 * * 00002200 220 * LSR17-WORK2(HIGH) LSR18-WORK3(HIGH) LSR19-WORK4(HIGH) * 00002210 221 * 0 SCRATCH 0 SCRATCH 0 SCRATCH * 00002220 222 * 7 REGISTER 7 REGISTER 7 REGISTER * 00002230 223 * * 00002240 224 * LSR20-STATIMG(HIGH) LSR21-WORK5 LSR22-SENSE1(HIGH) * 00002250 225 * 0 SAME AS 0 SCRATCH 0 SAME AS * 00002260 226 * 7 LSR 4 7 REGISTER 7 LSR6 * 00002270 227 * * 00002280 228 * LSR23-TIEBYTE LSR24-MPGMERR LSR25-LINK2 * 00002290 229 * 0 HOLDS NRZI 0 NOISE 0 SECOND LEVEL * 00002300 230 * 7 TIEBYTE 1 EXCESSIVE VEL CHG 7 LINK LSR * 00002310 231 * 2 * 00002320 232 * 3 END DATA CHK * 00002330 233 * 4 * 00002340 234 * 5 * 00002350 235 * 6 * 00002360 236 * 7 NOT CAPABLE * 00002370 237 * * 00002380 238 * LSR26-LINK3 LSR27-TUADDR LSR28-LINK1 * 00002390 239 * 0 THIRD LEVEL 0 SEL TU F 0 FIRS LEVEL * 00002400 240 * 7 LINK LSR 1 SEL TU E 7 LINK LSR * 00002410 241 * 2 SEL TU D * 00002420 242 * 3 SEL TU C * 00002430 243 * 4 SEL TU B * 00002440 244 * 5 SEL TU A * 00002450 245 * 6 SEL TU 9 * 00002460 246 * 7 SEL TU 8 * 00002470 247 * * 00002480 248 * LSR29-EQUIPCHK LSR30-LODBPA(HIGH) LSR31-LODEPB(HIGH) * 00002490 249 * 0 CMD STATUS REJ 0 DEP TU F 0 DEP TU F * 00002500 250 * 1 REJECT TU 1 DEP TU E 1 DEP TU E * 00002510 251 * 2 CNTRL STATUS REJ 2 DEP TU D 2 DEP TU D * 00002520 252 * 3 NO BLOCK 3 DEP TU C 3 DEP TU C * 00002530 253 * 4 DYNAMIC REVERSAL 4 DEP TU B 4 DEP TU B * 00002540 254 * 5 NO TACH 5 DEP TU A 5 DEP TU A * 00002550 255 * 6 SAGC 6 DEP TU 9 6 DEP TU 9 * 00002560 256 * 7 VELOCITY FAIL 7 DEP TU 8 7 DEP TU 8 * 00002570 257 * * 00002580 258 *********************************************************************** 00002590 259 *********************************************************************** 00002600 260 *********************************************************************** '00002610 261 * * 00002620 262 * THIS IS A LIST OF NAMES WHICH ARE USED IN PLACE OF THE HEX VALUE OF * 00002630 263 * TRANSFERS, BRANCH ON CONDITIONS, LOCAL STORE REGISTERS, DATA FLOW * 00002640 / " Cj ROS2 LOC 000084 OOOOOA 000006 000021 000060 000009 000011 000024 000014 000022 000082 000050 000081 000090 000088 000042 000041 000043 000028 000044 000012 000018 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 EC 736697 PAGE 7 STMT SOURCE STATEMENT F01MAY72 2/04/74 264 * CONTROLS, DRIVE CONTROLS AND THE VARIOUS BITS IN THE LSR'S. * 00002650 265 * * 00002660 266 *********************************************************************** 00002670 267 *********************************************************************** 00002680 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 *********************** ALU 2 TRANSFER ADDRESSES ********************** 00002700 * 00002710 00002720 EQU X'84' EXT ADDR REG 00002730 * DECODES THE ADDREsS FROM ALUl 00002740 * TUADDR REG TO A SINGLE BIT WHICH * CORRESPONDS TO THE ADDR BIT POSITION 00002750 00002760 * OF THE TUADDR REG ALU2. CRC EQU X'OA' SHIFT CRC PULSE 00002770 00002780 LSR EQU X'06' SET CONTROL FOR &1 OR LO L5RS 00002790 AR EQU X'21' ALU INPUT REGISTER 00002800 TUBO EQU. X'60' TAPE UNIT BUS OUT 00002810 RESETERR EQU X'09' RESET ERRORS SINGLE BYTE NOISE INDF EQU X'll' ISSUED FOR DIAG CHANNEL BUFFER READ 00002820 00002830 TUTAG EQU X'24' TAPE UNIT OUT TAG REG REDLIGHT EQU X'14' CE PANEL LIGHT FOR MPGM DETECTED ERRORS 00002840 * DURING A TAPE OPERATION * 00002850 00002860 IC EQU X'22' INSTRUCTION COUNTER 00002870 INHP EQU X'82' INHIBIT PARITY ON 'B' BUSS COMITD EQU X'50' RESETS UNIT COMMITTED LATCH IN * 00002880 * DEVICE SWITCH * 00002890 TUBI EQU X'81' TAPE UNIT BUSS IN 00002900 00002910 XINA EQU X'90' CROSSOVER INPUT REG A 00002920 XINB EQU X'88' CROSSOVER INPUT REG B 00002930 XOUTA EQU X'42' CROSSOVER OUTPUT REG A 00002940 XOUTB EQU X'41' CROSSOVER OUTPUT REG B 00002950 XANXB EQU X'43' VALUE FOR BOTH XOUTA AND XOUTB 00002960 STAT EQU X'28' GLITCHLESS CONTROL REG 00002970 HDWERR EQU X'44' SET ERROR LATCH FOR ALU ERRORS * ALSO SETS BIT 4 IN SENSE BYTE 12 * 00002980 00002990 POINTERS EQU X'12' 00003000 BUFFCRC EQU X'18' SAMPLE BUFFER CRC ERROR LATCH * XADDR ROS2 LOC ADDRl ADDR2 OBJECT CODE 000000 000001 000002 000003 000002 000004 000006 000007 000008 000008 000009 000009 OOOOOC OOOOOC 000005 OOOOOD OOOOOE OOOOOF 000010 000011 000012 000013 000014 000015 000016 000017 000018 000019 000019 OOOOOA OOOOOB 00001A 00001B 00001C 00001C 00001D OOOOOD 00001E 00001F r~ \ / PN 1846378 3803-2 MICROCODE LISTING f~ \ j STMT 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 .333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 l PAGE EC 736697 FO 1MAY 72 SOURCE STATEMENT 8 2/04/74 ************************** BRANCH CONDITIONS ************************** 00003020 * 00003030 * D BUS EQUAL TO ZERO 00003040 X'OO' #DBUS EQU NOT ALU CARRY OUT 00003050 X'Ol' #NALCO EQU FLIP FLOP CHANGES EACH ROC ROTATION 00003060 X'02' #ROCROT EQU 00003070 BR IF NRZI FEATURE IS INSTALLED X'03' #NRZFEAT EQU CRC NOT EQU EPR 00003080 X'02' #CRCNEPR EQU FREQUENCY OFF SDC OSCILLATOR 00003090 X'04' * #RDTIME EQU PE = 1600 BPI BY MODEL * 00003100 * * 00003110 NRZI = 800 BPI BY MODEL * 00003120 X'06' DRIVEN BY TACH PULSES- FLIP FLOP #TACHFF EQU STOP (ALU 1 STAT BIT 0) 00003130 X'07' #STOP EQU 00003140 CRC = MATCH X'08' #CRCMAT EQU 00003150 END DATA (ENDING ONES OR RDD 173) X'08' #ENDATA EQU DATA CONVERTER CHECK 00003160 X'09' #NCONVCK EQU 00003170 INVERSE TAPE MARKER X'09' #NSAGCID EQU 00003180 P TRACK ENVELOP X'OC' EQU #NPTE 00003190 DENSIT 556 X'OC' #DEN556 EQU 00003200 NOT SEVEN TRK X'05' #NSEVEN EQU DATA FROM SKEW BUFFER READY 00.003210 X'OD' #DATARDY EQU 00003220 BEGINNING OF RECORD X'OE' #BOR EQU IBG DETECTION CONTROLS 00003230 X'OF' EQU #IBG D REGISTER BIT 0 00003240 X'10' #DREGO EQU 00003250 D REGISTER BIT 1 X'11' EQU #DREGl D REGISTER BIT 2 00003260 X'12' EQU #DREG2 00003270 D REGISOER BIT 3 X'13' #DREG3 EQU D REGISTER BIT 4 00003280 X'14' #DREG4 EQU D REGISTER BIT 5 00003290 X'15' #DREG5 EQU 00003300 D REGISTER BIT 6 X.'16' #DREG6 EQU D REGISTER BIT 7 00003310 X'17' #DREG7 EQU 00003320 BR ON XOUTA BIT 4 X'18' #6250 EQU NOT ONE TRK ENVELOPE 00003330 X'19' #N1TE EQU DENSITY 200 00003340 X'19' #DEN200 EQU STAT A ALU 2 00003350 X'OA' #STATA EQU 00003360 STAT B ALU 1 X'OB' #STATB EQU 00003370 ALU 1 STAT C X'lA' #STATC EQU 00003380 ALU 1 STAT D X'lB' #STATD EQU 00003390 NO ENVELOP LOSS X'lC' #NENVLOS EQU 00003400 NO ZONE UP X'lC' #NBLOCK EQU TAPE MARK BR COND 00003410 X'lD' #NTM EQU 00003420 X'OD' EQU #NRPQ WITH 'DEVSEL' CONDITION INDICATES * 00003430 X'lE' #BSYTACH EQU DEVICE IS SWITCHED * 00003440 * WITHOUT 'DEVSEL' INDICATES DEVICE * 000.03450 * IS BUSY * 00003460 * INTERRUPT FROM THE DRIVE 00003470 X'lF' #DEVATTN EQU 00003480 CONDITIONS WHICH GENERATE 'DEVATTN'* * 00003490 1. NOT READY TO READY * 2. READY DROP WITH MOVE ACTIVE ** 00003500 * 3. BKWD INTO LP WITH MOVE ACTIVE * 00003510 * * NOTE: WILL NOT BE SEEN AFTER MOVE* 00003520 * 00003530 IS DROPPED IN 2 & 3 ABOVE. * ************************************************************************ 00003540 00003550 * LSR REGISTERS USED FOR CO~~D, ADDRESS, AND STATUS. ~. . , ) / '\ (-\ \~ J (-) ROS2 LOC OBJECT CODE 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC OOOOOD OOOOOE OOOOOF 000010 000011 000012 000013 000014 000015 000016 000017 000018 000019 00001A 00001B 00001C 00001D 00001E 0000lF 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC OOOOOD OOOOOE OOOOOF 000015 000017 000018 000019 PN 1846378 3803-2 MICROCODE LISTING ADDRl ADDR2 STMT 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 PAGE EC 736697 9 2/04/74 00003560 00003570 00003580 00003590 00003600 00003610 00003620 00003630 00003640 00003650 00003660 118 00003670 00003680 00003690 00003700 00003710 00003720 00003730 00003740 00003750 00003760 00003770 00003780 00003790 00003800 00003810 00003820 00003830 00003840 00003850 00003860 00003870 * 00003880 * *************************** ALU2 LSR EQUATES ************************** 00003890 00003900 X'OO' EQU LSR O--WORK AREA WORK 1 00003910 LSR l--WORK AREA X'Ol' WORK2 EQU 00003920 X'02' LSR 2--WORK AREA WORK 3 EQU 00003930 X'03' LSR 3--WORK AREA WORK4 EQU 00003940 LSR 4--STAT REGISTER IMAGE X'04' STATIMG EQU 00003950 X'05' .LSR 5--HOLDS DIAGNOSTIC FLAGS FLAGS EQU 00003960 X'06' .LSR 6--HOLDS TU SENSE BYTE 0 SENSEl EQU 00003970 LSR 7--HOLDS TU SENSE BYTE 1 X'07' SENSE2 EQU 00003980 LSR 8--FLAGS FOR OPERATION X'08' TRACER EQU 00003990 X'09' LSR 9-FRU EQU 00004000 X'OA' LSR 10-MICRO PGM DETECTED DATA CHKS DTACHK2 EQU 00004010 LSR ll-HOLDS TU ADDRESS X'OB' TUADDR EQU 00004020 X'OC' LSR 12-MICRO PGM DETECTED DATA CHKS DTACHKl EQU 00004030 LSR 13-XOUTA REGISTER IMAGE X'OD' XOUTAIM EQU 00004040 LSR14-HOLDS DEV END PRIMES - INTF A X'OE' LODEPA EQU 00004050 LSR 15-'OLDS DEV END PRIMES - INTF B LODEPB X'OF' EQU 00004060 X'15' LSR 21-WORK AREA WORK5 EQU 00004070 HOLDS NRZI TRK IN ERROR X'17' TIEBYTE EQU 00004080 X'18' LSR 24-MICRO PGM DETECTED ERRORS MPGMERR EQU 00004090 X'19' LSR 25-SECOND LEVEL LINK LINK2 EQU SOURCE RO Rl R2 R3 R4 R5 R6 R7 R8 R9 Rl0 Rll R12 R13 R14 R15 R16 R17 R18 R19 R20 R21 R22 R23 R24 R25 R26 R27 R28 R29 R30 R31 STATEMENT X'OO' EQU X'Ol' EQU X'02' EQU X'03' EQU X'04' EQU X'05' EQU X'06' EQU X'07' EQU X'08' EQU X'09' EQU X'OA' EQU X'OB' EQU X'OC' EQU X'OD' EQU X'OE' EQU X'OF' EQU X'10' EQU X'll' EQU X'12' EQU X'13' EQU X'14' EQU X'15' EQU X'16' EQU X'17' EQU X'18' EQU X'19' EQU X'lA' EQU X'lB' EQU X'lC' EQU X'lD' EQU X'lE' EQU X'lF' EQU F01MAY72 LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR LSR 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ROS2 LOC OBJECT CODE 00001A 00001C 000010 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000000 000001 000002 000003 000004 000005 000006 000007 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 000005 PN 1846378 3803-2 MICROCODE LISTING ADDR1 ADDR2 STMT 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 EC 736697 FO 1MAY 72 SOURCE STATEMENT X'1A' LSR 26-THIRD LEVEL LINK EQU LINK3 X'1C' LSR 28-FIRST LEVEL LINK LINK1 EQU X'1D' . LSR 29-MICRO PGM DETECTED EQIP CHKS EQUIPCK EQU ARE USED BY LOGICAL MACROS ONLy •••••••••••••• THESE LSR EQUATES •••••• NOT BE CODED •••••••••••••••••••••••••••••••••••••••• •••••• AND SHOULD X'OO' LSR 0 #RO EQU LSR 1 #R1 EQU X'01 ' X'02' LSR 2 #R2 EQU X'03' LSR 3 #R3 EQU X'04' LSR 4 EQU #R4 X'05' LSR 5 EQU #R5 X'06' LSR 6 EQU #R6 X'07' LSR 7 EQU #R7 LSR 8 X'08' #R8 EQU X'09' LSR 9 EQU #R9 LSR 10 X'OA' #R10 EQU X'OB' LSR 11 #R11 EQU X'OC' LSR 12 #R12 EQU LSR 13 X'OD' #R13 EQU LSR 14 X'OE' #R14 EQU X'OF' LSR 15 #R15 EQU X'OO' LSR 16 #R16 EQU LSR 17 #R17 EQU X'01 ' X'02' LSR 18 #R18 EQU LSR 19 X'03' #R19 EQU X'04' LSR 20 #R20 EQU X'05' LSR 21 #R21 EQU X'06' LSR 22 #R22 EQU LSR 23 X'07' #R23 EQU LSR 24 X'08' #R24 EQU LSR 25 X'09' #R25 EQU X'OA' LSR 26 #R26 EQU LSR 27 X'OB' #R27 EQU LSR 28 X'OC' #R28 EQU X'OD' LSR 29 EQU #R29 X'OE' LSR 30 #R30 EQU LSR 31 X'OF' #R31 EQU X'OO' LSR O--WORK AREA # WORK 1 EQU LSR 1--WORK AREA #WORK2 EQU X'01 ' X'02' LSR 2--WORK AREA #WORK3 EQU X'03' LSR 3--WORK AREA #WORK4 EQU X'04' LSR 4--STAT REGISTER IMAGE #STATIMG EQU X'05' .LSR 5--HOLDS DIAGNOSTIC FLAGS EQU #FLAGS X'06' .LSR 6--HOLDS TU SENSE BYTE 0 #SENSEl EQU X'07' LSR 7--HOLDS TU SENSE BYTE 1 EQU #SENSE2 X'08' LSR 8--FLAGS FOR OPERATION #TRACER· EQU X'09' LSR 9-EQU #FRU X'OA' LSR 10-MICRO PGM DETECTED DATA CHKS EQU #DTACHK2 X'OB' LSR 11 -HOLDS TU ADDRESS EQU # TUADDR X'OC' LSR 12-MICRO PGM DETECTED DATA CHKS #DTACHKl EQU LSR 13-XOUTA REGISTER .IMAGE X'OD' #XOUTAIM EQU X'OE' LSR14-HOLDS DEV END PRIMES - INTF A #LODEPA EQU LSR 15-'OLDS DEV END PRIMES - INTF B X'OF' #LODEPB EQU X'05' LSR 21-WORK AREA #WORK5 EQU PAGE 10 2/04/74 00004100 00004110 00004120 00004130 00004140 00004150 00004160 00004170 00004180 00004190 00004200 00004210 00004220 00004230 00004240 00004250 00004260 00004270 00004280 00004290 00004300 00004310 00004320 00004330 00004340 00004350 00004360 00004370 00004380 00004390 00004400 00004410 00004420 00004430 00004440 00004450 00004460 00004470 00004480 00001{490 00004500 00004510 00004520 00004530 00004540 00004550 00004560 00004570 00004580 00004590 00004600 00004610 00004620 00004630 f) "'- ~, , ' ROS2 3803-2 MICROCODE LISTING LOC OBJECT CODE 000008 000007 000080 000040 000020 000012 000008 000002 000011 000040 000020 000001 000010 000013 000004 000080 000010 000004 000001 000001 000002 000008 000004 000002 000001 000080 000040 000011 ADDR1 ADDR2 PN 1846378 EC 736697 STMT SOURCE STATEMENT F01MAY72 463 #MPGMERR EQU X',08' LSR 24-MICRO PGM DETECTED ERRORS 464 #TIEBYTE EQU X'07' HOLDS NRZI TRK IN ERROR 465 * * 466 *********************************************************************** 467 *************************** TAPE INTERFACE EQUATES ******************** 468 * * 469 *************************** TU BUS OUT EQUATES ************************ 470 * * 471 ************************* DEVICE COMMAND TAGS ************************* 472 * * 473 RDBKWD EQU X'80' READ BACKWARD BIT 474 RDFWDD EQU X'40' READ FORWARD BIT 475 SETDIAG EQU X'20' SET DIAGNOSTIC BIT 476 #SETDIAG EQU X'12' BR ON DREG 477 WRITE EQU X'08' SET WRITE BIT 478 RESET EQU X'02' SET DEV RESET BIT 479 * * 480 *************************** COMMAND STATUS BYTE EQUATES *************** 481 * * 482 *BACKWD EQU X'80' DEVICE IN BACKWARD STATUS 483 #GAPCTRL EQU X'll' INDICATES GAP CONTRL IS ON-BR ON DREG 484 GAPCTRL EQU X'40' 485 DIAGMODE EQU X'20' DEVICE IS IN DIAGNOSTIC MODE 486 *WRSTAT EQU X'08' DEVICE IS IN WRITE STATUS '487 POSIT EQU X'Ol' DEVICE IS IN STOP DELAY 4880PPDIR EQU X'10' OPPOSITE DIRECTION INDICATED 489 #OPPDIR EQU X'13' BR ON DREG 490 EXTEND EQU X'04' 491 * * 492 ************************* DEVICE CONTROL TAGS ************************* 493 * * 494 RUN EQU X'80' SET REWIND UNLOAD BIT 495 SETDENS EQU X'10' SET ALTERNATE DENSITY 496 ERGTOTI EQU X'04' SET ERASE TO TI 497 REWIND EQU X'Ol' SET REWIND BIT 498 REW EQU X'Ol' DEVICE IS IN REWIND STATUS 499 SETERASE EQU X'02' SET ERASE MODE 500 * * 501 *********************** DEVICE CONTROL STATUS *********'**************** 502 * * 503 * ALL STATUS RESPONSE IS CORRESPONDING BIT OF CONTROL COMMAND * 504 * * 505 *************************** TU TAGS OUT EQUATES *********************** 506 * * 507 DEVSEL EQU X'08' SET DEVICE SELECT TAG 508 CONTROL EQU X'04' SET DEVICE CONTROL TAG 509 COMMAND EQU X'02' SET DEVICE COMMAND TAG 510 MOVE EQU X'Ol' SET DEVICE MOVE TAG 511 * * 512 *********************** XOUTA REGISTER EQUATES ************************ 513 * * 514 PEBIT EQU X'80' PE BIT FOR DATA FLOW 515 FWDDATA EQU X'40' FORWARD FOR DATA FLOW 516 #FWDDATA EQU X'11' BR ON DREG PAGE 11 2/04/74 00004640 00004650 00004660 00004670 00004680 00004690 00004700 00004710 00004720 00004730 00004740 00004750 00004760 00004770 00004780 00004790 00004800 00004810 00004820 00004830 00004840 00004850 00004860 00004870 00004880 00004890 00004900 00004910 00004920 00004930 00004940 00004950 00004960 00004970 00004980 00004990 00005000 00005010 00005020 00005030 00005040 00005050 00005060 00005070 00005080 00005090 00005100 00005110 00005120 00005130 00005140 00005150 00005160 00005170 ROS2 LOC OBJECT CODE 000020 000010 000013 000008 000014 000002 r~ PN 1~46378 3803-2 MICROCODE LISTING . ~ \ ~ ADDR1 ADDR2 SOURCE NOLOSS SYNC /lSYNC HIDEN /lHIDEN LOGAIN STMT 517 518 519 520 521 522 523 STATEMENT EQU X'20' EQU X'10' EQU X'13' EQU X'08' EQU X'14' EQU X'02' EC 736697 PAGE F01MAY72 NOT ALLOW ENVELOPE LOSS SYNC LINE FOR READ DETECTION SYNC LINE FOR READ DETECTION 6400 DEVI250 6400 DEVI250 LOW GAIN TO DET CIRCUITS * "" f , ~. ) \, / "~ \ ) * 12 2/04/74 00005180 00005190 00005200 00005210 00005220 00005230 00005240 F;;;.., ~) ROS2 LOC 000080 000040 000020 000010 000013 000008 000004 000002 000001 000011 000020 000012 000010 000013 000008 000014 000015 000002 000017 000080 000010 000020 000012 000010 000013 000010 000013 OOOOOF OOOOFF 000000 000017 000001 000040 000014 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 EC 736697 STMT SOURCE STATEMENT F01MAY72 525 ***************************** STAT BIT EQUATES ************************ 526 * * 527 TAPEOP EQU X'80' TAPE OP CONTROL BIT 528 PERMRDWT EQU X'40' PERMIT READ OR WRITE CONDITION 529 WRTBURST EQU X'20' WRITE PE LP BURST CONTROL BIT 530 NRZI7 EQU X'10' SET NRZI 531 #NRZI7 EQU X'13' BR ON DREG 532 SETSTATA EQU X'08' SET STAT REG A BIT 533 SETSTATB EQU X'04' SET STAT REG B BIT 534 SETSTATC EQU X'02' SET STAT REG C BIT 535 SETSTATD EQU X'Ol' STAT INDICATES ALU2 FINISHED 536 * * 537 *************************** SENSE BIT EQUATES ************************* 538 * * 539 *********************** TAPE UNIT SENSE BYTE ZERO ********************* 540 * * 541 *BACKWD EQU X'80' DEVICE IN BACKWARD STATUS 542 #NFP EQU X'll' NOT FILE PROTECT SENSE BIT-BR ON DREG 543 EaT EQU X'20' END OF TAPE SENSE BIT 544 #EOT EQU X'12' BR ON DREG 545 BOT EQU X'10' BEGINNING OF TAPE SENSE BIT 546 #BOT EQU X'13' BR ON DREG 547 WRSTAT EQU X'08' WRITE STATUS BIT 548 #WRTSTAT EQU X'14' BR ON DREG 549 # START EQU X'15' BR ON DREG EQU X'02' DEVICE CHECK BIT 550 DEVCHK 551 #NOTBUSY EQU X'17' NOT BUSY BIT-BR ON DREG 552 * * 553 *************************TAPE UNIT SENSE BYTE ONE ********************* 554 * * EQU X'80' 7 TRACK BIT 555 SEVTRK X'10' BR ON DREG 556 #SEVTRK EQU 557 DUALDEN EQU X'20' DUAL DENSITY X'12' BR ON DREG 558 #DUALDEN EQU EQU X'10' OTHER THAN 1600 BPI 559 NOTPE 560 #NOTPE EQU X'13' BR ON DREG 561 * * 562 *********************************************************************** 563 * EXTRA EQUATES 564 PULSE EQU X'10' EQU X'13' TAPE MARK CONFIG FOR 9 TRK NRZI 565 TM9TRK 566 TM7TRK EQU X'OF' TAPE MARK CONFIG FOR 7 TRK NRZI 567 ONES EQU X'FF' EQU X'OO' 568 ZERO ALU1 XOUTA NRZI BIT 569 #ALU1NRZ EQU X'17' EQU X'01' FOR INCREMENT 570 ONE X'40' SENSE TO DRIVE FOR READ BUS & TACH 571 DVESNS6 EQU X'14' HI ORDER ADDR BIT 572 #SELHIGH EQU PAGE 13 2/04/74 00005260 00005270 00005280 00005290 00005300 00005310 00005320 00005330 00005340 00005350 00005360 00005370 00005380 00005390 00005400 00005410 00005420 00005430 00005440 00005450 00005460 00005470 00005480 00005490 00005500 00005510 00005520 00005530 00005540 00005550 00005560 00005570 00005580 00005590 00005600 00005610 00005620 00005630 00005640 00005650 00005660 00005670 00005680 00005690 00005700 00005710 00005720 00005730 ROS2 LOC 000001 000010 000040 000040 000020 000008 000004 000002 000004 000002 000010 000008 000008 000080 000040 000010 000001 000080 000040 000010 000008 000004 000002 000001 000001 000020 000010 000008 000004 000002 000080 000040 000020 000010 000008 000004 000002 000001 PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 EC 736697 PAGE 14 STMT SOURCE STATEMENT F01MAY72 2/04/74 574 ********************* CONTROL UNIT SENSE EQUATES ********************** 00005750 CONVCK SEVENTRK INTREQ TUSTA TUSTB LDPT WRSTA FP PE BKWD EQCHK DATACK UDETERR 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 ********************** MPGMERR REG MISC ERRORS *********************** * EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU X'Ol' X'10' X'40' X'40' X'20' X'08' X'04' X'02' X'04' X'02' X'10' X'08' X'08' 576 577 578 579 580 581 582 583 584 585 586 587 588 589 SET DATA CONVERTER CHECK SEVEN TRACK BIT INTERVENTION REQUIRED TU STATUS A TU STATUS B LOAD POINT WRITE STATUS FILE PROTECTED PHASE ENCODING BACKWARD EQUIPMENT CHECK DATA CHECK MICRO PGM DETECTED ERROR * * NOISE * *IBGDROP * * * * * EQU X'80' NOISE ERROR EXVCHG EQU X'40' EXCESSIVE VELOCITY CHANGE WHILE WRT ENDATAER EQU X'10' END DATA CHK NOTCAP EQU X'Ol' NOT CAPABLE *********************************************************************** ******************* DATA CHECK REG ONE SENSE BYTE 8 ******************* EQU X'80' NOT DIAG MODE IBG DROP AFTER BLOCK FDTHRU EQU X'40' FEED THROUGH CHECK FASTBGN EQU X'10' EARLY IBG DROP OR DATA READY TSAGC EQU X'08' TEMPORARY SAGC ERROR SLOWBGN EQU X'04' SLOW BEGIN READ BACK CHK SLOWEND EQU X'02' SLOW ENDING READ BACK CHK RESTART EQU X'Ol' FLAG BIT FOR RESTART AND VELTRY EQU X'Ol' VELOCITY RETRY *********************************************************************** ******************* DATA CHECK REG TWO SENSE BYTE 5 ******************* WTMERR EQU X'20' WRITE MARK ERROR FORMATCK EQU X'10' PE ID BURST CHK STREADCK EQU X'08' START READ CHECK PARTREC EQU X'04' PARTIAL RECORD EXCPOST EQU X'02' EXCESSIVE POSTABBLE *********************************************************************** ****************** EQUIPMENT CHECK REG SENSE BYTE 10 ****************** REJCMD EQU X'80' COMMAND STATUS REJECT REJTU EQU X'40' REJECT TAPE UNIT REJCTRL EQU X'20' CONTROL STATUS REJECT NBLOCK EQU X'10' NO BLOCK ON WRITE OP DYREV EQU X'08' DYNAMIC REVERSAL ERROR NTACH EQU X'04' TACH. START FAIL PERR EQU X'02' PERMANENT SAGC ERROR VELOCERR EQU X'Ol' DID NOT MAKE VELOCITY IN 28 CNTS ****************************************************** ***************** () ( '\ / 00005770 00005780 00005790 00005800 00005810 00005820 00005830 00005840 00005850 000058.60 00005870 000058.8.0 000058.90 00005900 00005920 00005930 00005940 00005950 00005960 00005970 0000598.0 00005990 00006000 00006010 00006020 00006030 00006040 00006050 00006060 00006070 0000608.0 00006090 00006100 00006110 00006120 00006130 00006140 00006150 00006160 00006170 0000618.0 00006190 00006200 00006210 00006220 00006230 00006240 00006250 00006260 00006270 0000628.0 ROS2 LOC 000001 000017 000012 000014 000008 000020 000080 000004 000002 000015 000004 000008 000014 000010 000040 000020 000011 000012 000010 000080 000002 000016 000004 000010 000013 000040 000011 000001 000017 000080 000010 000016 000004 000015 000017 000002 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 EC 736697 PAGE STMT SOURCE STATEMENT F01MAY72 628 ******************************* FLAGS FOR OPERATION ******************* 629 * * 630 MK800 EQU X'Ol' NRZI MODE FLAG 631 #MK800 EQU X'17' BR ON DREG 632 #FIRST EQU X'12' BR ON DREG 633 #CNTRDY EQU X'14' BR ON DREG 634 CNTRDY EQU X'08' FLAG USED AFTER INITIAL 4 COUNT 635 FIRST EQU X'20' INDICATE FIRST ENTRY ON FC-3 VELOCITY 636 DATATIM EQU X'80' WRT DATA TIME IN VELOCITY RTN 637 ERGOP EQU X'04' ERASE GAP ROUTINE IN CTRL. 638 WTMOP EQU X'02' WRITE TAPE MARK ROUTINE IN CTRL. 639 #ERGOP EQU X'15' BR ON DREG 640 FORFLAG EQU X'04' FORCE HAS BEEN SET TO DF 641 TAKTR EQU X'08' TRACE BIT FOR TAK CTR 642 #TAKTR EQU X'14' BR ON DREG 643 ERGFLAG EQU X'10' FLAG BIT 644 CHKBRST EQU X'40' CHECK BURST FLG 645 LPMARK EQU X'20' 646 #CHKBRST EQU X'11' BR ON DREG 647 #LPMARK EQU X'12' BR ON DREG 648 *********************************************************************** 649 * * 650 * * 651 #CREASER EQU X'10' BR ON DREG 652 CREASER EQU X'80' CREASE TAPE (PE) FLAG 653 READOP EQU X'02' READ TRACE BIT 654 #READOP EQU X'16' BR ON DREG 655 FILEOP EQU X'04' FILE TRACE BIT 656IBGMARK EQU X'10' IBG TRACE BIT 657 #IBGMARK EQU X'13' BR ON DREG 658 BORMARK EQU X'40' BOR MARK ON THE WALL 659 #BORMARK EQU X'll' BR ON DREG 660 SPACEOP EQU X'Ol' SPACE COMMAND BIT 661 #SPACEOP EQU X'17' BR ON DREG 662 BACKWD EQU X'80' BACKWARD BIT FOR READ OP 663 #BACKWD EQU X'10' BR ON DREG 664 #WTMOP EQU X'16' BR ON DREG 665 *********************************************************************** 666 * * 667 *******************SET DIAGNOSE REGISTER EQUATES ********************** 668 * * 669 LWROP EQU X'04' SET LOOP WRITE TO READ FLAG 670 #LWROP EQU X'15' BR ON DREG 671 #CHGDIR EQU X'17' EQRLY EXIT BEFORE RAISE OF MOVE 672 TUBOMSK EQU X'02' SET WORK 5 TO TUBO 673 *********************************************************************** 674 ********************** CONTROL UNIT SENSE BYTES *********************** 675 * * 676 * THE SENSE BITS WILL BE PRESENTED IN XOUTA OR XOUTB IN THE PROPER * 677 * POSITION TO BE OR'ED INTO THE CONTROL UNIT SENSE BYTE. * 678 * THE FOLLOWING SENSE BITS WITH '*' IN FRONT ARE SET OR DECODED * 679 * BY ALU2 ALL OTHERS ARE SET BY ALU1, C.U. HARDWARE OR DEVICE * 680 *********************************************************************** 681 * SENSE BYTE 0 SENSE BYTE 11 * 15 2/04/74 00006290 00006300 00006310 00006320 00006330 00006340 00006350 00006360 00006370 00006380 00006390 00006400 00006410 00006420 00006430 00006440 00006450 00006460 00006470 00006480 00006490 00006500 00006510 00006520 00006530 00006540 00006550 00006560 00006570 00006580 00006590 00006600 00006610 00006620 00006630 00006640 00006650 00006660 00006670 00006680 00006690 00006700 00006710 00006720 00006730 00006740 00006750 00006760 00006770 00006780 00006790 00006800 00006810 00006820 ROS2 LOC (' PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 ~ l \ \,j \ / EC 736697 PAGE SOURCE STATEMENT F01MAY72 * * *BIT BIT * * 0 COMMAND REJECT 0 Bl BUS PARITY-LSR ADDRESS ERR * **1 INTERVENTION REQUIRED 1 ROSl PARITY ERROR * * 2 BUS OUT CHECK 2 XFR-LO ICl ERROR * **3 EQUIPMENT CHECK 3 INSTR DECODE lHI IC-BR ON CONDo * **4 DATA CHECK 4 MICRO-PGM DETECT MALFUNCTION * * 5 OVERRUN 5 0 BUS PARITY ALUl * * 6 WORD COUNT ZERO 6 SPARE * **7 DC CHECK 7 BRANCH ON COND.(BOC) ALUl * *********************************************************************** * SENSE BYTE 1 SENSE BYTE 12 * * * *BIT BIT * **0 NOISE 0 B2 BUS PARITY-LSR ADDRESS ERROR * **1 TU STATUS A 1 ROS2 PARITY ERROR * **2 TU STATUS B 2 XFR-LO IC2 ERROR * **3 7 TRACK 3 INSTR DECODE 2(HI IC)BR ON COND.* **4 LOAD POINT *4 MICRO-PGM DETECT MALFUNCTION * **5 WRITE STATUS 5 D BUS PARITY ALU2 * **6 FILE PROTECTED 6 SPARE * **7 NOT CAPABLE 7 BRANCH ON COND.(BOC)ALU2 * *********************************************************************** * SENSE BYTE 2 SENSE BYTE 13 * * * * TRACK IN ERROR BIT * * 0 < 00 NO FEATURES * * 1 < 01 7 TRACK FEATURE * * < 10 9 TRACK FEATURE * * < 11 SPARE * * * * 2 THRU 7 CU SERIAL NO - HIGH * *********************************************************************** * SENSE BYTE 3 SENSE BYTE 14 * * * *BIT CONTROL UNIT UNIQUE ID-LOW * * 0 R-W VRC * * 1 MULTIPLE TRACK IN ERR/LRCR SENSE BYTE 15 * * 2 SKEW TU UNIQUE ID (SERIAL NUMBER-HIGH) * * 3 END DATA CHECK-CRCR * * 4 SKEW REG VRC/ENV CHECK SENSE BYTE 16 * * 5 1600 BPI SET IN TU TAPE UNIT ID-LOW * * 6 BACKWARD * * 7 C COMPARE * *********************************************************************** I / '\ j / I'\ -/ " " 16 2/04/74 00006830 00006840 00006850 00006860 00006870 00006880 00006890 00006900 00006910 00006920 00006930 00006940 00006950 00006960 00006970 00006980 00006990 00007000 00007010 00007020 00007030 00007040 00007050 00007060 00007070 00007080 00007090 00007100 00007110 00007120 00007130 00007140 00007150 00007160 00007170 00007180 00007190 00007200 00007210 00007220 00007230 00007240 00007250 00007260 00007270 (~ ) ~. ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846378 STMT 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 EC 736697 SOURCE STATEMENT F01MAY72 * SENSE BYTE 4 SENSE BYTE 17 * *BIT BIT * **0 ALU HARDWARE ERROR 0 MULTI INTERFACE SW * **1 REJECT TU 1< 000 SELECTION LOGIC * **2 TAPE INDICATE 2< 001 2 X 8 DEV ADDR LOW * * 3 WRITE TGR VRC 3< 010 3 X 8 DEV ADDR LOW * **4 < 011 4 X 8 DEV ADDR LOW * **5 LOOP WRITE TO READ < 100 COMMUNICATOR FEAT ONLY * **6 TAPE UNIT CHECK < 101 2 X 8 DEV ADDR HIGH * * 7 SPARE < 110 3 X 8 DEV ADDR HIGH * * < 111 4 X 8 DEV ADDR HIGH * * 4 THRU 7 EC LVL OF CU * * * *********************************************************************** * SENSE BYTE 5 SENSE BYTE 18 * * * *BIT BIT * * 0 NEW SUBSYSTEM 3803=0 0 POWER CHECK AND OVERTEMP * * 1 NEW SUBSYSTEM 3803 1 SPARE * **2 WRITE TM CHECK 2 SPARE * **3 ID BURST CHECK 3 SPARE * **4 START READ CHECK 4 EC LEVEL OF DRIVE * **5 PARTIAL RECORD 5 EC LEVEL OF DRIVE * **6 EXCESSIVE POSTAMBLE 6 EC LEVEL OF DRIVE * * 7 RESERVED FOR RPQ 7 EC LEVEL OF DRIVE * * * *********************************************************************** * SENSE BYTE 6 SENSE BYTE 19 * * * *BIT BIT' * * 0 7 TRACK UNIT 0 ~RIMED FOR DEV END DR 7 * * 1 WRITE CURRENT FAILURE 1 PRIMED FOR DEV END DR 6 * * 2 DUAL DENSITY 2 PRIMED FOR DEV END DR 5 * * 3 ALT DENSITY 3 PRIMED FOR DEV END DR 4 * * 4 TU MODEL 4 PRIMED FOR DEV END DR 3 * * 5 TU MODEL 5 PRIMED FOR DEV END DR 2 * * 6 TU MODEL 6 PRIMED FOR DEV END DR 1 * * 7 TU MODEL 7 PRIMED FOR DEV END DR 0 * * * *********************************************************************** * SENSE BYTE 7 SENSE BYTE 20 * * * *BIT BIT * * 0 LAMP FAILURE 0 PRIMED FOR DEV END DR F * * 1 TAPE'BOTTOM LEFT 1 PRIMED FOR DEV END DR E * * 2 TAPE BOTTOM RIGHT 2 PRIMED FOR DEV END DR 0 * * 3 RESET KEY 3 PRIMED FOR DEV END DR C * * 4 DATA SECURITY ERASE 4 PRIMED FOR DEV END DR B * * 5 ERASE HEAD FAIL 5 PRIMED FOR DEV END DR A * * 6 AIR BEARING PRESSURE 6 PRIMED FOR DEv END DR 9 * * 7 LOAD FAILURE 7 PRIMED FOR DEV END DR 8 * * * *********************************************************************** PAGE 17 2/04/74 00007290 00007300 00007310 00007320 00007330 00007340 00007350 00007360 00007370 00007380 00007390 00007400 00007410 00007420 00007430 00007440 00007450 00007460 00007470 00007480 00007490 00007500 00007510 00007520 00007530 00007540 00007550 00007560 00007570 00007580 00007590 00007600 00007610 00007620 00007630 00007640 00007650 00007660 00007670 00007680 00007690 00007700 00007710 00007720 00007730 00007740 00007750 00007760 00007770 00007780 00007790 00007800 00007810 ROS2 LOC G PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE r~ '- --" ADDRl ADDR2 STMT 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 PAGE SOURCE STATEMENT F01MAY72 * SENSE BYTE 8 SENSE BYTE 21 * * * *BIT BIT * **0 IBG DROP WHILE WRITING 0 LOAD BUTTON DEPRESSED * **1 1 LEFT REEL TURNING * * 2 2 RIGHT REEL TURNING * **3 EARLY BEGIN READ BACK CHECK 3 TAPE PRESENT * **4 SAGC K 4 REELS LOADED * **5 SLOW BEGIN ECK 05 LOAD REWIND * **6 SLOW END READ BACK CHECK 6 LOAD COMPLETE * **7 VELOCITY RETRY OR RESTART 7 LOAD CHECK * * * *********************************************************************** * SENSE BYTE 9 SENSE BYTE 22 * * * *BIT FRU IDENTIFIERS(CU)-ALU * * 0 GCR CORRECTION * **1 VELOCITY DURING WRITE SENSE BYTE 23 * * 2 CHANNEL BUFFER CK * * 3 CRC III *FRU IDENTIFIERS(CU)-ALU 2 * * 4 6250 TCU * * 5 SPARE * * 6 SPARE * * 7 CONTROL UNIT RESERVED * * * *********************************************************************** * SENSE BYTE 10 * * * *BIT * **0 COMMAND S'rATUS REJECT * * 1 SPARE * *.2 CONTROL STATUS REJECT * •• 3 NO BLK ON RECORD READ BACK CHK • •• 4 DYNAMIC REVERSAL ERROR • *.5 TACH START FAIL • * 6 • **7 VELOCITY CHECK • *.*.*.* ••••••• **.*******************************.********************** -. " EC 736697 \ j /' " ,- I "\ \-, j 18 2/04/74 00007830 00007840 00007850 00007860 00007870 00007880 00007890 00007900 00007910 00007920 00007930 00007940 00007950 00007960 00007970 00007980 00007990 00008000 00008010 00008020 00008030 00008040 00008050 00008060 00008070 00008080 00008090 00008100 00008110 00008120 00008130 00008140 00008150 00008160 00008170 00008180 000081-90 00008200 ~~ '\ ) ROS2 3803-2 MICROCODE LISTING LaC OBJECT CODE 000000 000000 000000 000001 000001 000002 000002 000003 000003 000004 000004 000005 000005 000006 000007 000008 000008 000009 OOOOOA OOOOOB OOOOOC 000000 OOOOOE OOOOOF 0000 OF 000010 4188 0400 1400 4428 4122 659C 61BB 6340 61A1 61A7 6202 61CB 6563 6580 4590 61A9 5590 ADDRl ADDR2 PN 1846378 STMT 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 837 839 841 843 845 847 849 851 853 855 857 859 862 865 867 869 872 875 878 881 884 887 889 891 894 EC 736697 PAGE 19 SOURCE STATEMENT F01MAY72 BEGIN CSECT *********************************************************************** ********************** ALU2 ROS ENTRY BRANCH TABLE ******************** *********************************************************************** * ALU2 IS ALWAYS SLAVED TO ALU1. ANY OPERATION EXECUTED BY ALU2 * * MUST ALWAY BE INITIATED BY ALUl VIA A XOUTB. THE XOUTB BY ALUl * * TRAPS ALU2 TO LOCATION 000. ALU2,BEGINNING EXECUTION AT 000, * * FETCHES AN INDEX BYTE FROM ALUl AND MOVES IT TO .THE INSTRUCTION * * COUNTER. THE INDEX BYTE WILL POINT TO ONE OF THE BRANCH INSTRUCT- * * IONS IN THE BRANCH TABLE. THE SELECTED BRANCH INST WILL BE * * EXECUTED AND THE DESIRED ROUTINE WILL BE ENTERED. WHEN THE * * SELECTED ROUTINE COMPLETES, STAT 0 WILL BE SET INDICATING TO * * ALUl THAT THE DESIRED FUNCTION HAS BEEN COMPLETED. ALU2 WILL THEN * * BE HELD AT LOCATION 000 UNTIL ACTUATED BY ALUl VIA XOUTB TRAP * *********************************************************************** 2/04/74 00008220 00008230 00008240 00008250 00008260 00008270 00008280 00008290 00008300 00008310 00008320 00008330 00008340 00008350 00008360 STEPOOOl EQU BYPASS XFR STEP0002 EQU STO STEP0003 EQU STOH STEP0004 EQU XFR STEP0005 EQU XFR STEP0074 EQU NDXTST3 BU NDXDES BU NDXPOLL BU STEP0006 EQU NDXGRST BU NDXSRST BU NDXSDE BU NDXABRT BU NDXDMR BU NDXAXESS BU NDXFLAGS XFR NDXSNSR EQU BU NDXFLAG2 XFR 00008380 00008390 00008400 00008410 00008420 00008430 00008440 00008450 00008460 00008470 00008480 00008490 00008500 00008510 00008520 00008530 00008540 00008550 00008560 00008570 00008580 00008590 00008600 00008610 00008620 * WORK2,XINB FETCH ALUl INDEX * STATIMG,ZERO CLEAR STAT IMAGE REG * STATIMG,O * STATIMG,STAT * WORK2,IC * EXECTST3 EXECDES EXECPOLL * EXECGRST EXECSRST EXECSDE EXECABRT EXECDMR ACCESS FLAGS,XINA * ZAPIM WORK5,XINA CLEAR STAT IMAGE REG HIGH CLEAR ANY OUTSTANDING STATS MOVE INDEX TO INST CTR GO DO ALU 2 CHECKOUT HIO NOT OPRTING--GO DESELECT TU GO POLL DEVICE FOR STATUS GO DO GENERAL RESET GO DO SELECTIVE RESET GO SET DEVICE END GO DO DIAG MEASERE GO GET READ ACCESS TIME BRING IN FLAG BYTE USE ON SENSE RESET & SEL RESET RETURN GET TUBO MASK (SET FLAGS #3) / ! ROS2 PN 1846378 3803-2 MICROCODE LISTING LOC OBJECT CODE 000011 000011 0401 000012 000012 4428 ADDRl ADDR2 SOURCE STATEMENT STMT 897 STEP0062 EQU * STATIMG,SETSTATD 899 SETDLONE STO 901 STEP0063 EQU * STATIMG,STAT XFR 903 EC 736697 PAGE FO 1MAY 72 TURN ON STATD RETURN TO ADDRESS 000 AND STOP 906 *************************** WRITE ROUTINE ***************************** 907 * INTITIAL ENTRY ON WRITE COMMANDS EITHER PE, NRZI OR LWR EITHER * 908 * DENSITY. THE COMMAND IS SET IN REGISTER WORK4 AND REGISTER LINKl * 909 * CONTAINS THE ADDRESS OF THE ENTRY TO THE WRITE ROUTINE IN 'PAGE 2' * 910 * PART OF THIS ROUTINE IS SHARED BY WTM AND ERG ROUTINES * 911 *********************************************************************** 000013 000014 000015 000016 000017 914 EXECWRT 917 SETUP 920 923 TESTLWR 926 0800 0308 lCOF 3A18 6733 STO STO STO BOC BU TRACER, ZERO WORK4,WRITE LINKl , WRTSTR STATC,SETLPCMD NEED ERG SET IDENTITY SET WRITE COMMAND SET RETURN ENTRY BR IF LWR OR LWTM BR TO TURNAROUND 20 2/04/74 00008640 00008650 00008660 00008670 00008690 00008700 00008710 00008720 00008730 00008740 00008760 00008770 00008780 00008790 00008800 929 *********************************************************************** 00008820 930 * STATC ON FROM ALUl INDICATES A LWR OR LWTM. * 00008830 931 * THE COMMAND IS SET TO ALLOW TURN-AROUND ROUTINE TO PROCESS THE * 00008840 932 * COMMAND AND SET DATA FLOW MASKS. THERE WILL NOT BE ANY TURNAROUND * 00008850 933 * DELAYS TAKEN. 00008860 934 *********************************************************************** 00008870 000018 000018 000019 00001A 00001B 00001C 00001D 00001E 00001P * WORK4,WRITE+SETDIAG SET WRITE AND DIAG CMD SENSE1,ONES-BOT TURN OFF BOT IF ON WRTSTAT,GOTURN BR WRITE STATUS BACKWD,RDBKLP BR BACKWARD STATUS WORK4,RDFWDD+SETDIAG SET READ FWD AND DIAG CMD TRNARND GO TO TURNAROUND WORK4,RDBKWD+SETDIAG SET READ BKWD AND DIAG Ci® TRNARND GO TO TURNAROUND 962 *********************** WRITE TAPE MARK ROUTINE *********************** 963 * INITIAL ENTRY ON WRITE TAPE MARK COMMAND EITHER PE, NRZI * 964 * OR LOOP WRITE TAPE MARK. * 965 * THE WTM TRACE BIT IS SET ON IN TRACER REGISTER AND THEN * 966 * A BRANCH IS MADE TO SHARE THE REST OF THE SET UP WITH * 967 * THE WRITE ROUTINE. * 968 ********~********************************************* ***************** 970 EXECWTM STO TRACER,WTMOP SET ROUTINE IDENTITY 973 BU SETUP GO GET GOING 000020 0802 000021 6014 ~ SETLPCMD EQU WRSTALP STO AND BOC BOC STO GOT URN BU RDBKLP STO BU 936 938 941 944 947 950 953 956 959 0328 C6EF 3410 301E 0360 6138 03AO 6138 ~~ ; If \.! \ ; / \, ) I \.. I 'i / / 00008890 00008900 00008910 00008920 00008930 00008940 00008950 00008960 00008970 00008990 00009000 00009010 00009020 00009030 00009040 00009050 00009060 00009070 fl \ ~/ ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE 000029 00002A 00002B 00002C 00002D 00002E EC 736697 STMT SOURCE STATEMENT F01MAY72 976 ************************** ERASE RECORD GAP *************************** 977 * INITIAL ENTRY FOR ERASE GAP OP. THE REG TRACE BIT IS SET * 978 * IN THE TRACER REGISTER AND A BRANCH MADE TO SHARE THE REST OF THE * 979 * SETUP WITH THE WRITE ROUTINE. * 980 * THE TAK ROUTINE WILL DO THE COUNTING OF TACH PULSES AND ALSO * 981 * MONITER THE TU BUS IN TO ASSURE NO DATA IS PRESENT. IF ANY DATA * 982 * IS DETECTED THEN NOISE ERROR WILL BE SET. * 983 * * 984 * THERE ARE 106 TACH PULSES PER IN. * 985 *********************************************************************** PAGE 21 2/04/74 00009090 00009100 00009110 00009120 00009130 00009140 00009150 00009160 00009170 00009180 988 EXECERG 991 STO BU TRACER,ERGOP SETUP SET ERASE GAP OPERATION FLAG GO CONTINUE SET UP 00009200 00009210 1948 01B4 OOFE 8810 621C 995 ERGSTR 998 ERGCTR 1001 1004 SETERGF 1007 STO STO STO ORI BU LINK2,GOENDUP WORK2,ONES-75 WORK 1 ,ONES-1 TRACER,ERGFLAG TAKS SET UP RETURN TO ENDUP SET COUNT FOR 336 TAC COUNTS SET FLAG TO CHECK FOR ERROR GO TO TAK RTN 00009230 00009240 00009250 00009260 00009270 0380 8402 1CDO 8408 4428 6138 1010 1011 1012 1013 1014 1015 1016 1018 1021 1024 1027 1030 1033 000022 0804 000023 6014 000024 000025 000026 000027 000028 ADDR1 ADDR2 PN 1846378 00002F 0301 000030 602B 000031 0304 000032 602B ******************* REWIND OR REWIND UNLOAD *************************** 00009290 REWIND, REWIND UNLOAD AND DATA SECURITY ERASE SHARE A COMMON ROUTINE. THE ENTRY POINTS VARY SO THE COMMAND CAN BE SET IN WORK4. REWIND UNLOAD WILL SET STAT C ON THEN STAT A IS SET TO IDENTIFY THESE THREE COMMANDS TO TURNAROUND ROUTINE AND TO ENDUP ROUTINE. WORK4,RUN STATIMG,SETSTATC LINK 1 , ENDUP STATIMG,SETSTATA STATIMG,STAT TRNARND LOAD REWIND UNLOAD CMD FLAG UNIT CHK SET RETURN ADDRESS AFTER CMD EXEC SET STATA ON TO INDICATE REW, RUN OR DSE GO TO TURNA ROUND 00009300 00009310 00009320 00009330 00009340 00009350 00009360 00009370 00009380 00009390 00009400 00009410 WORK4,REWIND LKREWRUN LOAD REW CMD GO SET LINKAGE REG & STAT A 00009430 00009440 * ** * * * *********************************************************************** * * * * STO ORI LKREWRUN STO CTRLSETA ORI XFR SCOOT BU EXECRWU 1037 EXECRWD 1040 STO BU 1043 *********************** DATA SECURITY ERASE *************************** 1044 * INITIAL ENTRY FOR DATA SECURITY ERASE OP. * 1045 * THE COMMAND IS SET IN WORK 4 REGISTER AND A BRANCH IS * 1046 * MADE TO SHARE THE SETUP WITH REWIND AND REWIND * 1047 * IF ALL TESTS ARE OK. THE DRIVE WILL THEN CONTINUE TO ERASE * 1048 * TO END OF TAPE. * 1049 *********************************************************************** 00009460 00009470 00009480 00009490 00009500 00009510 00009520 1052 EXECDSE 1055 00009540 00009550 STO BU WORK4,ERGTOTI LKREWRUN PUT CMD IN LSR GO SET STATA ON ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 STMT G 1093 EXECRDF 1096 1100 EXECFSF 1103 1107 EXECFSR 0802 6038 0804 6038 0801 ~~ ~ ) F01MAY72 STO BU STO BU STO TURN ON THE READ TRACER. TRACER,READOP SETFWD TRACER, X , 04' SETFWD TRACER,SPACEOP TURN ON FILE TRACER TURN ON SPACE TRACER ,F / ~ ~ PAGE 22 2/04/74 *********************************************************************** 00009580 * * 00009590 * * 00009600 *********************************************************************** 00009610 * *** **** ** *** ** *** * 00009620 * * * * * * * * * * * * * 00009630 * *** *** **** * * * * *** * 00009640 * * * * * * * * * * * * 00009650 * * * **** * * *** ** * * 00009660 ***********READ OPERATION INPUT BRANCH TABLE************************** 00009670 * * 00009680 * DEPENDING ON THE TYPE OF OPERATION- ONE OF THE SIX INPUT LEGS WILL * 00009690 * BE SELECTED. EACH LEG STORES AN APPROPRIATE TRACER ( NOT CE TRACE )* 00009700 * TO ENABLE THE MICROPROGRAM TO KEEP TABS ON WHAT IT IS DOING .. THE SIX* 00009710 * INPUT LEGS AND THE TRACERS THEY SET ARE; * 00009720 * 1. READ BACKWARD TRACER 6 * 00009730 * 2. READ FORWARD TRACER 6 * 00009740 * 3. BACKSPACE FILE TRACER 5 * 00009750 * 4. FORWARD SPACE FILE TRACER 5 * 00009760 * 5. BACKSPACE RECORD TRACER 7 * 00009770 * 6. FORWARDS PACE RECORD TRACER 7 * 00009780 * * 00009790 * TRACE REG * 00009800 * 0 CREASER * 00009810 * 1 BOR TRACE * 00009820 * 2 CREASE POSSIBLR * 00009830 * 3 IBGTRACE * 00009840 * 4 TACH TRACE * 00009850 * 5 FILE OP * 00009860 * 6 READ OP * 00009870 * 7 SPACE OP * 00009880 *********************************************************************** 00009890 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 000033 000034 000035 000036 000037 EC 736697 SOURCE STATEMENT ~ / J f / 00009910 00009920 00009940 00009950 00009970 (j ROS2 LaC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 000038 0340 000039 6040 1116 SETFWD 1119 00003A 00003B 00003C 000030 00003E 00003F 000040 000041 000042 000043 000044 000045 1123 1126 1129 1132 1135 1138 1141 1144 1147 1150 1153 1156 0802 603F 0804 603F 0801 0380 lC56 6138 0009 1000 5060 4024 EC 736697 PAGE 23 STMT SOURCE STATEMENT F01MAY72 2/04/74 1110 *********************************************************************** 00009990 1111 * NOW THAT THE OP TRACERS ARE STORED, PUT THE PROPER READ COMMAND ** 00010000 1112 * IN WORK4 AND BRANCH TO START TAPE MOTION. 00010010 1113 *********************************************************************** 00010020 EXECRDB STO BU STO BU EXECBSF STO BU EXECBSR STO SETBKWD STO CHGDIREC STO BU CREMOVE STO STOH XFRH XFR WORK4,RDFWDD CHGDIREC TRACER,READOP SETBKWD TRACER,FILEOP SETBKWD TRACER,SPACEOP WORK4,RDBKWD LINK1,STARTAPE TRNARND WORK1,DEVSEL+MOVE WORK1,0 WORK1,TUBO WORK 1 , TUTAG SET RD FWD TO LSR ALL SET,GO AHEAD TRN ON READ TRACER TRN ON THE FILE TRACER TRN ON THE SPACE TRACER SET RD BKWD TO LSR SET UP RETURN REG AND BR TO TURNAOUND BRING MOVE SET HIGH SENSE TO TAPE UNIT BACK UP 00010040 00010050 00010070 00010080 00010090 00010100 00010110 00010120 00010130 00010140 00010150 00010160 00010170 00010180 ROS2 LOC 000046 0000"46 000047 000048 000049 00004A 00004B 00004C 00004D 00004E 00004F 000050 000051 000052 000053 000054 000055 000056 000057 000058 OBJECT CODE 000059 00005A 00005B 00005C 00005D 00005D 00005E AOOl 2161 CDEF 4D42 00005F 000060 000061 000062 000063 000064 000065 8404 60AF 2F87 A301 3C69 D820 2069 ADDRl ADDR2 1229 1230 1231 1232 ,,1233 1234 1236 1239 1242 1245 1247 1249 1252 1254 1256 1259 1262 1265 1268 1271 1274 9800 35AF MODE6400 EQU * STATIMG,PERMRDWT READTAPE ORI XFR STATIMG,STAT ANDM TRACER,READOP DBUS,NOTREAD BOC XOUTAIM,SYNC ORI XOUTAIM,XOUTA XFR WORK2,1 NOTREAD STO WORK 1 ,ONES-19 SETUXCNT STO STO WORK3,ONES-187 WORK4,0 STO FRU,ONES-5 STO RDTIME,CHKBOR CHKCLOCK BOC CHKCLOCK BU BOR,TRACEBOR CHKBOR BOC DEVATTN,ABORTRD CHKINTPT BOC XOUTAIM,O ORM DREG 1 , FWDRD BOC 6250, LOOKSUM BOC NTM,CHKIBG FWDRD BOC ~,/' PAGE 24 ,( \. j " SET READ CONDITION TO DATA FLOW IF WE ARE NOT A READ OP DONT SET SYNC IMAGE SYNC SET SYNC TO HARDWARE SET NOISE BIT FOR ALUl SET CNT FOR 20 BIT CELLS LOAD SAGC ID CTR CLEAR SKEW CTR SET NOISE RECORD BYPASS WAIT FOR READTIME TO RISE BR ON BOR BR ON TU INTERRUPT TEST LSR BR IF FWD STATUS ON BR IF GCR BR IF TAPE MARK NOT DET 00010310 00010320 00010330 00010340 00010350 00010360 00010370 00010380 00010390 00010400 00010410 00010420 00010430 00010440 00010450 00010460 00010470 00010480 00010490 00010500 *********************************************************************** 00010520 * POSSIBLE TM CONFIGURATION.BUMP A COUNTER AMD RETURN.WHEN COUNT * 00010530 * GETS LARGE ENOUGH, CALL IT A TM AND GO WAIT FOR IBG * 00010540 * 20 BIT CELLS OF TM BOC NEEDED TO RECOGNIZE A TAPE MARK. * 00010550 * THESE 20 BIT CELLS DO NOT HAVE TO BE CONTIGUOUS. * 00010560 *********************************************************************** 00010570 TMCONFIG ADD WORK1,1 BUMP UEX CNT BY ONR 00010580 BOC NALCO,CHKIBG ****** W 00010590 AND XOUTAIM,ONES-SYNC RESET SYNC - DONT NEED UT 00010600 XFR XOUTAIM,XOUTA 00010610 CHKUEX EQU * 00010620 ORM TRACER, 0 GET TRACE REG TO DBUS FOR BRANCHING 00010630 BOC DREG5,WAITEND SKIP IF FILE SEARCH IS ON 00010640 * SET UNIT EXCEPTION 00010650 'ORI STATIMG,SETSTATB TRN ON STAT B FOR ENDUP 00010660 BU WAITEND FLAGS UNIT EXCEPTION TO ALU1 00010670 CHKIBG BOC IBG,IBGYES1 BR IF IBG IS ON 00010680 ADD WORK4,1 BUMP SKEW CTR 00010690 BOC NBLOCK,CLOKWAIT BR NO DATA DETECTED 00010700 ANDM TRACER,X' 20' IS FWD HITCH ON 00010710 BOC DBUS,CLOKWAIT BE GOING ON IF NOT 00010720 1278 BLOCKCHK ADD A EC 736697 SOURCE STATEMENT F01MAY72 2/04/74 STMT 1161 *********************************************************************** 00010220 1162 * READ NOT LOAD POINT * 00010230 1163 ********************************************************************** 00010240 * THIS IS THE ENTRY POINT IF BOT IS NOT ON IN TU SENSE BYTE O. * 00010250 1164 * 00010260 1165 * HERE WE CYCI,E UNTIL A BOR,TU INTERRUPT,TAPE MARK OR IBG DROPS US * 00010270 1166 * OUT OF THE LOOP. A TM WILL NOT DROP US OUT OF THE LOOP UNTIL WE * 00010280 1167 * ARE SATISFIED THAT IT IT A TRUE TAPE MARK (20 CELLS OF TM BOC). 1168 ********************************************************************** 00010290 1170 1172 1175 1178 1181 1184 1187 1190 1193 1196 1199 1202 1205 1208 1211 1214, 1217 1220 1223 1226 8440 4428 D802 204C 8Dl0 4D42 0101 OOEC 0244 0300 09FA 2453 6051 2E6B 3FB2 9DOO 3158 38CA 3D61 000066 A901 G PN 1846378 3803-2 MICROCODE LISTING FRU,l 00010740 BUMP BYPASS CNT BY , "- f j '" ) ~ / () ~ \ ' ROS2 3803-2 MICROCODE LISTING LOC 000067 000068 000069 0OO06A OBJECT CODE 2169 8810 2469 6051 00006B 8840 00006C 367A 00006D 6054 ADDRl ADDR2 PN 1846378 SOURCE STATEMENT STMT 1281 BOC NALCO,CLOKWAIT 1284 ORI TRACER,IBGMARK 1287 CLOKWAIT BOC RDTIME,CLOKWAIT 1290 BO CHKCLOCK EC 736697 RETURN ON NO CARRY TURN ON IBGTRACE WAIT FOR READTIME TO FALL PAGE F01MAY72 25 2/04/74 00010750 00010760 00010770 00010780 1296 *********************************************************************** 00010830 1297 * A BOR DETECTED WILL GET US HERE, BUT IF WE ARE NOT A READ OP * 00010840 1298 * WE WILL RETURN TO THE ORIGINAL LOOP. * 00010850 1299 *********************************************************************** 00010860 1301 TRACEBOR ORI TRACER, BORMARK TURN ON BOR TRACE BIT 00010870 1304 BOC READOP,READYES BR IF A READ OP 00010880 1307 BU CHKINTPT GO BACK TO STARTING LOOP 00010890 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE EC 736697 PAGE SOURCE STATEMENT STMT FO 1MAY 72 26 2/04/74 1312 *********************************************************************** 00010930 ' BIT CELLS- THEN DROP SYNC AND 1313 * WE ARE NOW A READ OP SO COUNT ** 00010940 1314 * NOT ALLOW ENVELOPE LOSS TO THE DATA FLOW,ALSO SET READ CONDITION. 00010950 1315 *********************************************************************** 00010960 00006E A901 00006F 2176 1318 CNTABIT2 ADD 1321 BOC FRU,l NALCO,TRYAGAIN 000070 000070 000071 000072 000073 000074 000075 000076 000077 000078 000079 1324 COUNT16 1326 1329 1332 1335 1338 1341 1344 TRYAGAIN 1347 1350 1353 NOT1600A EQU ORI XFR ORM BOC STO ORI BOC BOC BU BU * XOUTAIM,NOLOSS XOUTAIM,XOUTA XOUTAIM,O DREG6,FORCEON FRU,ONES-5 XOUTAIM,LOGAIN IBG,SETRDCHK RDTIME,TRYAGAIN CNTABIT NOT1600 00007A 3879 00007B 09F5 1357 READYES 1360 BOC STO 6250,NOT1600A FRU,ONES-l0 BR IF 6250 MODE SET CNT FOR 11 BIT CELLS 00011130 00011140 00007C 246E 00007D 607C 1364 CNTABIT 1367 BOC BU RDTIME,CNTABIT2 CNTABIT WAIT FOR READTIME TO RISE 00011160 00011170 8D20 4D42 9DOO 3684 09FA 8D02 2FAC 2476 607C 62AB 1371 1372 1373 1374 1375 1379 1382 1384 1386 1389 1392 1395 1398 1401 1404 00007E A906 00007F 2181 000080 000081 000082 000083 000084 000085 000086 r 60AC 2FAC 2D8E 2481 247E 2D8E 6084 F, \. - BUMP CTR BY 1 TEST FOR CTR 16 00010980 00010990 00011010 00011020 00011030 00011040 00011050 00011060 00011070 00011080 00011090 00011100 00011110 TRN NOLOSS ON STROBE CONTROLS TEST FOR LOGAIN BR IF LOGAIN IS ON SET CT FOR 6 ABEND IF IBG WAIT FOR RD TIME TO FALL GO COUNT AGAIN IT *********************************************************************** 00011200 * WE WILL WE HAVE NOW UNBLOCKED THE DATA FLOW READ CIRCUITS,SO CYCLE LOOKING FOR IBG,DATA READY OR TIMEOUT . DATA READY IS IS THE PROPER EXIT. ALL OTHERS WILL SET UNIT CHECK. 00011210 00011220 00011230 *********************************************************************** 00011240 FRU,6 COUNT PRE ADD BUMP TIME OUT COUNT 00011270 NALCO,CKDTARDY BOC WHILE WAITING FOR BEG ONES 00011280 * TIME OUT EQUALS 40 BIT CELLS WITHOUT SEEING BEGINNING ONES * 00011290 SETRDCHK GO SET START READ CHK 00011300 BU IBG,SETRDCHK BR IF IBG IS ON 00011310 CKDTARDY BOC DATARDY,PREAMBOK WE WANT TO BR HERE ON DATA RDY 00011320 BOC RDTIME,CKDTARDY WAIT FOR READ TIME TI FALL 00011330 BOC RDTIME,COUNTPRE WAIT FORCEON BOC 00011340 DATARDY,PREAMBOK FOR ERADTIME 00011350 BOC FORCEON TO RISE 00011360 BU * * i " j " f -- '\ ~ ) * * n "-~ ROS2 LaC 000087 000088 000089 00008A OOOOSB 00008C 00008D 3803-2 MICROCODE LISTING OBJECT CODE 9800 318B 338B 6069 37AF C8AF 6040 ADDRl ADDR2 PN 1846378 STMT 1410 1411 1412 1413 1414 1415 1417 1420 1423 1426 1429 1432 1435 EC 736697 PAGE SOURCE STATEMENT F01MAY72 *********************************************************************** * WE WILL END UP HERE WHEN AN IBG IS DETECTED, IN TWO INSTANCES. * * THE FIRST IS WHILE WE ARE WAITING FOR IBG TO FALL AFTER WE START * * TAPE MOVING. IN THIS CASE WE WILL GO RIGHT BACK TO THE MAIN LOOP. * * THE SECOND IS ON A SPACE OP WHEN THE ENDING IBG IS DETECTED. * *********************************************************************** IBGYES1 ORM TRACER, 0 GET TRACE REG TO DBUS FOR TESTING BOC BORMARK,IBGYES2 BR IF BOR TRACE IS ON BOC IBGMARK,IBGYES2 BR IF IBG TRACE IS ON BU CLOKWAIT GO BACK TO START LOOP IBGYES2 BOC SPACEOP,WAITEND BR IF SPACE OP IS ON AND TRACER,ONES-BORMARK-IBGMARK RESET TRACERS BU SETUXCNT GO BACK TO START LOOP + RESET UEX CT 27 2/04/74 00011410 00011420 00011430 00011440 00011450 00011460 00011470 00011480 00011490 00011500 00011510 00011520 00011530 00008E 2891 00008F 2FAA 000090 608E 1439 *********************************************************************** 00011560 1440 * TO GET HERE WE MUST BE DOING A READ OP AND HAVE SEEN DATA READY. * 00011570 1441 * THE MAIN JOB NOW IS TO ASSURE END DATA IS FLAGGED NEXT. IBG * 00011580 1442 * SIGNALS AN ERROR CONDITION * 00011590 1443 *********************************************************************** 00011600 ENDATA,READEND BR IF END DATA COMES ON 00011610 1445 PREAMBOK BOC BOC IBG,SETPARTL BO IF IBG COMES ON 00011620 1448 BU PREAMBOK HANG TILL RECORD ENDS 00011630 1451 000091 000092 000093 000094 000095 000096 000097 000098 1455 1456 1457 1458 1459 1460 1461 1462 1464 1467 1470 1473 1476 1479 1482 1485 09E7 2D9C 2F99 2D9C 6092 3FB2 2096 6092 *********************************************************************** * NORMAL READ END- WE HAVE NOW SEEN END DATA. NOW WE MUST COUNT * * THE POSTAMBLE DATA READYS TO ASSSURE PROPER LENGTH. 25 BYTES INTO * * THE PREAMBLE,SYNC IS RESET TO KEEP THE VFC FROM FALLING INTO THE * * IBG. FROM THAT POINT ON TIME SENSE IS USED TO MEASURE TO THE IBG * * TIME. A SECOND CHECK IS MADE TO ASSURE AT LEAST SIX CELLS OF BURST * * OCCUR AFTER ENDDATA. IF NOT,END DATA CHK IS SET ALONE. * *********************************************************************** READEND STO FRU,ONES-24 LOAD THE COMP OF DEC 25 RDYWAITl BOC DATARDY,CNTRDYl BR TO CT ONE DATA ROY BOC IBG,CHKPOST BR TO EXIT BOC DATARDY,CNTRDYl BU RDYWAIT1 WAIT FOR DATA ROY TO RISE IBGLOOKl BOC DEVATTN,ABORTRD ABEND ON TU DEV END BOC DATARDY,IBGLOOKl HANG IN LOOP TILL DATA ROY FALLS BU RDYWAITl NOW GO WAIT FOR NEXT DATA ROY 1489 CHKPOST 1492 1495 READX ADDM BOC BU FRU,12 NALCO,SETENDCK STOPREAD 0OO09C 000090 00009E 00009F DOODAD OOOOAl 0000A2 0000A3 1499 CNTRDYl 1502 1505 1508 1511 1514 Xl0X 1517 1520 ADD BOC AND XFR STO BOC BOC ADD FRU,l ADD ONE TO CNT STAY TILL CT 25 NALCO,IBGLOOKl XOUTAIM,ONES-LOGAIN-SYNC-NOLOSS RESET CONTROLS XOUTAIM,XOUTA LOAD NEW CTR FRU,ONES-24 WAIT FOR FALL RDTIME,Xl0X NORMAL EXIT IBG,READX BUMP CRT FRU,l A901 2196 COCO 4042 09E7 24Al 2F9B A901 00011830 00011840 00011850 ASSURE AT LEAST 6 BIT CELLS OCCUR AFTER ENDING ONES 000099 B90C 00009A 21A6 00009B 60B4 00011660 00011670 00011680 00011690 00011700 00011710 00011720 00011730 00011740 00011750 00011760 00011770 00011780 00011790 00011800 00011810 CTED 00011870 00011880 00011890 00011900 00011910 00011920 00011930 00011940 ROS2 PN 1846378 3803-2 MICROCODE LISTING ADDR 1 ADDR2 LOC OBJECT CODE OOOOM 21A8 SOURCE STATEMENT BOC NALCO,XllX s'rMT 1523 1526 * 1532 PAGE F01MAY72 BR IF 0 K YET ***** SET EXCESSIVE POSTAMBLE ***** ORI 1529 0000A5 8A02 EC 736697 * DTACHK2,EXCPOST 28 2/04/74 00011950 00011970 EXCESSIVE POST AMBLE 00011990 ***** SET END DATA CHECK ***** 00012010 0000A6 1810 000()A7 60AD 1535 SETENDCK STO 1538 BU MPGMERR,ENDATAER SETLONOW SET END DATA CHK RETURN TO WAIT SOME MORE 00012030 00012040 0000A8 24Al 0000A9 60A8 1542 XllX 1545 RDTIME,XlOX XllX WAIT FOR RISE 00012060 00012070 1548 * 1551 SETPARTL ORI 1554 BU OOOOM 8A04 OOOOAB 60A6 1557 OOOOAC OOOOAD OOOOAD OOOOAE OOOOAF OOOOBO OOOOBl BOC BU * 1560 SETRDCHK ORI 1562 SETLONOW EQU 1564 AND 1567 XFR 1570 WAITEND BOC 1573 BOC 1576 BU 8A08 CDCD 4D42 2FB4. 3FB2 60AF 1579 * )000B2 8402 JOOOB3 0100 1582 ABORTRD 1585 )000B4 )000B4 )000B5 )000B6 )000B7 )000B8 1000B9 1000BA )OOOBB lOOOBC lOOOBD 1000BE 1588 1590 1593 1596 1599 1602 1605 1608 1611 1614 1617 1620 3ABE D803 37C3 36BF CDCD 4D42 OOCD AOOl 21BB 6635 6513 ORI STO STOPREAD EQU BOC ANDM BOC BOC READS TOP AND XFR STO DELAY ADD BOC OOTIEX BU DIAGHOOK BU ***** SET PARTIAL RECORD ***** 00012090 DTACHK2,PARTREC SETENDCK 00012110 00012120 SET PARTIAL RECORD ***** SET START READ CHECK ***** 00012140 DTACHK2,STREADCK 00012160 00012170 00012180 00012190 00012200 00012210 00012220 SET START READ CHECK * XOUTAIM,ONES-LOGAIN-SYNC-NOLOSS XOUTAIM,XOUTA IBG,STOPREAD DEVATTN,ABORTRD WAITEND RESET LO SENSE BR IF IBG IS ON ERROR EXIT WAIT FOR IBG ***** SET NOISE ERROR ***** 00012240 STATIMG,SETSTATC WORK2,0 00012260 00012270 FLAG UNIT CHECK CLEAR NOISE BIT * STATC,DIAGHOOK TOUCHE TRACER,SPACEOP+READOP THIS A RECORD SPACE OP SPACEOP,CRESENS BR IF SO REAOOP,CRESENSX XOUTAIM,ONES-NOLOSS-SYNC-LOGAIN XOUTAIM,XOUTA DEACTIVATE FORCE AND NOT ALLOW WORK1,ONES-50 SET 20 MICRO SEC. DELAY WORK1,ONE 00 THE DELAY NALCO,DELAY FOR SERVICE TO STOP STROBTIE PAGE HOP MEASIBG GO MEASURE IBG 00012290 00012300 00012310 00012320 00012330 00012340 00012350 00012360 00012370 00012380 00012390 00012400 1623 *********************************************************************** 00012420 1624 *********************************************************************** 00012430 1625 * NORMAL ENDING OF ANY SPACE OP IS THROUGH THIS ROUTINE. AFTER MOVE * 00012440 1626 * IS DROPPED WE WILL MONITOR THE READ BUS UNTIL THE TACH PULSE SPREAD * 00012450 1627 * SHOWS THE DRIVE TO BE STOPPED. IF ANY READ DATA IS DETECTED, * 00012460 1628 * DURING THIS TIME, MOVE IS RAISED UNTIL IBG IS AGAIN DETECTED. * 00012470 1629 *********************************************************************** 00012480 n ,t " ~/ i \. ~. / , " / / ",,--. '\ . ~/ r) ~. ROS2 LOC OOOOBF OOOOCO OOOOCl 0000C2 0000C3 0000C4 0000C5 0000C6 0000C7 0000C8 0000C9 3803-2 MICROCODE LISTING OBJECT CODE 5821 9AOO 20B8 E803 8880 0008 4024 38DO 0040 4060 621C OOOOCA 2958 OOOOCB A201 OOOOCC 2158 OOOOCD OOOOCE OOOOCF OOOODO OOOODl 0000D2 0000D3 0000D4 0000D5 3FB2 60CD 6131 DD40 31C7 0384 020A lA7A 6769 ADDRl ADDR2 PN 1846378 STMT EC 736697 SOURCE STATEMENT 1632 CRESENSX XFR 1635 ORM 1638 BOC 1641 XO 1644 CRESENS ORI 1647 STO 1650 XFR 1653 BOC 1656 NOW STO 1659 XFR 1662 BU PAGE FO 1MAY 72 MPGMERR,AR DTACHK2,0 TEST FOR READ ERRORS BR IF NONE DBUS,READSTOP TRACER,SPACEOP+READOP INVERT FLAGS TRACER, CREASER SET FLAG FOR TAK RTN WORK1,DEVSEL DROP MOVE WORK1,TUTAG TAG 6250, EXTENDIT SET SENSE BIT ON WORK 1 , DVESNS6 WORK1,TUBO CALL FOR READ BUS AND TACH ZEROCTR 29 2/04/74 00012500 00012510 00012520 00012530 00012540 00012550 00012560 00012570 00012580 00012590 00012600 1665 ********************************************************************** 1666 * THIS CODE IS USED ON BKWD TYPE READ CMDS IN GCR MODE .. CONSTANTLY AND IF IT IS SEEN ASSURE LOAD POINT IS HIT 1667 * MONITOR FOR SAGC BURST 1668 ********************************************************************** 1670 LOOKSUM BOC GO BACK IF NO SIGNAL NSAGCID,FWDRD 1673 ADD BUMP SAGC CTR WORK3,1 1676 BOC NALCO,FWDRD BR ON NO CARRY 00012620 00012630 00012640 00012650 00012660 00012670 00012680 1680 LPWAIT2 1683 1686 TOSETD2 1689 EXTENDIT 1692 1695 1698 1701 1704 00012700 00012710 00012720 00012730 00012740 00012750 00012760 00012770 00012780 BOC DEVATTN,ABORTRD NORMAL EXIT BU LPWAIT2 BU PAGE HOP TOSETD ANDM XOUTAIM,FWDDATA BR IF FWD RD BOC FWDDATA,NOW STO WORK4,EXTEND+RDBKWD STO WORK3,DEVSEL+COMMAND STO LINK3,CRERETRN BU SETCMD3 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE 30 2/04/74 00012810 SENSE BYTES 0 AND 000006 000007 000008 000009 OOOODA OOOODB OOOODC 000000 OOOODE OOOODF 0281 5821 C200 0100 9600 20DE 35EO 8220 8140 60El 1711 EXECSNS 1714 1717 1720 1723 SNSO 1726 1729 1732 1735 SNSl 1738 STO XFR AND STO ORM BOC BOC ORI ORI BU WORK3,X'81, MPGMERR,AR WORK3,ZERO WORK2,O SENSE1,ZERO DBUS,SNSl START,SNS2 WORK3,TUSTB WORK2,INTREQ SNS3 PATTERN FOR MASK MASK AGAINST NOT CAP + NOISE SET IN REG IF ON CLEAR REG FOR LATER IS A DRIVE PRESENT BR IF NOT BR IF START IS ON SET TU STATUS B IF NOT SET INTERVENTION REQUIRED GO DO NEXT TEST 00012830 00012840 00012850 00012860 00012870 00012880 00012890 00012900 00012910 00012920 OO.OOEO OOOOEl 0000E2 0000E3 0000E4 0000E5 0000E6 0000E7 0000E8 0000E9 8240 C504 5021 9400 20E6 8110 DAEF 20E9 6397 6392 1742 1745 1748 1751 1754 1757 1760 1763 1766 1769 SNS2 SNS3 ORI AND XFR ORM BOC ORI ANDM BOC BU BU WORK3,TUSTA SET TU STATUS A ON FLAGS,LWROP RESET ALL BITS EXCEPT L~ EQUIPCK,AR EQUIPMENT CHECKS STATIMG,O ARE ANY EQUIPMENT ERR SET DBUS,SNS4 BR IF NOT WORK2,EQCHK SET EQUIP CHECK ON DTACHK2,ONES-FORMATCK DO NOT DET DC ON FORMATCK DBUS,SNS410 BR IF NO DTA CHK IN LSRS SNS42 GO SET DATA CHK SNS41 PAGE HOP 00012940 00012950 00012960 00012970 00012980 00012990 00013000 00013010 00013020 00013030 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 *********************************************************************** * * * INITIAL SELECTION OF TAPE UNIT * * * *********************************************************************** *********************************************************************** * THIS ROUTINE WILL GET THE TAPE UNIT ADDRESS FROM THE EXTERNAL * * ADDRESS REGISTER IN THE PROPER BIT POSITION AND PUT IT IN THE * * PROPER REGISTER. * * * * TUADDR LSR LAYOUT (LOW) TUADDR LSR LAYOUT (HIGH) * * 0 SELECT TU7 0 SELECT TU15 * * 1 SELECT TU6 1 SELECT TU14 * * 2 SELECT TU5 2 SELECT TU13 * * 3 SELECT TU4 3 SELECT TU12 * * 4 SELECT TU3 4 SELECT TUll * * 5 SELECT TU2 5 SELECT TU10 * * 6 SELECT TUl 6 SELECT T09 * * 7 SELECT TUO 7 SELECT TU8 * OOOOEA OOOOEB OOOOEC OOOOED ~:.., PAGE F01MAY72 SOURCE STATEMENT STMT 1708 * <) EC 736697 SNS4 SNS410 00013050 00013060 00013070 00013080 00013090 00013100 00013110 00013120 00013130 00013140 00013150 00013160 00013170 00013180 00013190 00013200 00013210 00013220 00013230 * * 00013240 *********************************************************************** 00013250 * THERE ARE TWO TUADDR LSRS,ONE HIGH & THE OTHER LOW.WHICH ONE IS USED* 00013260 * DEPENDS ON THE ADDRESS PASSED BY ALl. THIS ALLOWS THE MPGM WITH * 00013270 * THE MEANS TO KNOW WHICH DEVICE HE IS WORKING. * 00013280 1798 GETADR 1801 EXECSTS 1804 1807 0401 4190 34Fl lBOO STO XFR BOC STOH STATIMG,SETSTATD WORK2,XINA SELHIGH,CLEARLO TUADDR,O GET TU ADDR FROM ALUl BR IF OPERATING HI DRIVES CLEAR HIGH ADDR REG f F~ \ j / \.~- ) \ 00013300 00013310 00013320 00013330 () ROS2 3803-2 MICROCODE LISTING LOC OOOOEE OOOOEF OOOOFO OOOOF1 0000F2 OBJECT CODE 4B84 8408 60F3 OBOO 5B84 ADDRl ADDR2 PN 1846378 STMT SOURCE 1810 1813 1816 1819 CLEARLO 1822 STATEMENT XFR TUADDR,XADDR ORI STATIMG,SETSTATA BU ADDREXIT STO TUADDR,O XFRH TUADDR,XADDR EC 736697 PAGE F01MAY72 GET DEV ADDR SET STAT A TO DENOTE LO ORDER GO DO INITIAL SELECTION CLEAR LOW ADDR REG GET DEV ADDR 31 2/04/74 00013340 00013350 00013360 00013370 00013380 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING ADDR 1 ADDR2 OBJECT CODE EC 736697 PAGE SOURCE STATEMENT STMT F01MAY72 1827 *********************** INITIAL STATUS ROUTINE ************************ 1828 * THIS ROUTINE,UPON REQUEST BY ALU1,GETS TWO SENSE BYTES FROM THE * 1829 * SELECTED DRIVE AND PASSES THEM TO ALU1. A CHECK IS MADE TO SEE IF * 1830 * THE DRIVE IS AVAILABLE AND NOT BUSY. STATS ARE USED TO COMMUNICATE * 1831 * FINDINGS TO ALU1. VARIOUS REGISTERS ARE SET TO RESET STATUS. * 1832 * * 1833 * CLEAN STATUS STATD ALONE * 1834 * BUSY STATUS STATB AND STATD -DRIVE IS REWINDING, SWITCHED OR DSE * 1835 * UNIT CHECK STATUS STATC AND STATD-DRIVE IS NOT THERE OR NOT READY * 1836 * DEVICE END PENDING STATB AND STATC * 1837 * UNIT CHK AND DEV END PENDING -STAT C -DSE ONLY * 1838 * IF DEVICE IS FOUND BUSY,A DEVICE END WILL BE PRIMED. * 1839 *********************************************************************** 0000F3 0000F4 0000F5 0000F6 0000F7 0000F8 0000F9 OOOOFA 1842 1845 1848 1851 1854 1857 1860 1863 4428 3EF9 lCF6 62El 0000 4024 3ACF 6200 STATIMG,STAT BSYTACH,GOPRIME LINK1,SRETURNl FCHSTS WORK1,ZERO WORK1,TUTAG STATC,TOSETD2 SETPRIME ENTRY FROM ADDR ROUTINE BR IF SWITCHED SET UP RETURN RETURN TO STATUSl CLEAR DEVICE SEL IF ON TO ASSURE NOT LEFT OUTSTANDING BR TO GET OUT GO PRIME DEVICE END 2/04/74 00013420 00013430 00013440 00013450 00013460 00013470 00013480 00013490 00013500 00013510 00013520 00013530 00013540 00013560 00013570 00013580 00013590 00013600 00013610 00013620 00013630 ORG BEGIN+X' 100 ' 00013650 1866 1867 *********************************************************************** 00013660 INTERROGATE SENSE DATA 00013670 1868 * RETURN FROM FETCH STATUS ROUTINE 1869 ************************************************************************ 00013680 000100 000100 000101 000102 000103 ADDREXIT XFR CHKSWTCH BOC EXECSTSZ STO BU PRIMESET STO XFR GOPRIME BOC BU 32 1872 ISBUSYl 1875 STATUS 1 1878 1881 60F7 4641 4742 3EOO PRIMESET BU XFR SENSE1;XOUTB XFR SENSE2,XOUTA BSYTACH,ISBUSYl BOC SEND TU SNS SEND SECOND SENSE BYTE BR IF BUSY(REW,RUN OR DSE) 00013700 00013710 00013720 00013730 1884 *********************************************************************** 00013750 1885 * INITIALIZE XOUTA IMAGE REG 00013760 1886 ****************.*.**** •• *** ••• * •• ***********.* •• *.**** •••• *.****.***** 00013770 1889 STATUSOK STO 1892 XFR AND 1895 000104 OD45 000105 4721 000106 CD40 XOUTAIM,X'45 , SENSE2,AR XOUTAIM,X'40' SET UP TO LOAD MODEL NO. GET MOD NO TO A REG AND PUT IT IN XOUTA 00013790 00013800 00013810 1898 **.*.*.**.**.*** •• ********.**.*******.**************.**********.******* 00013830 1899 * LOOK FOR DEVICE END PRIME ROUTINE. 00013840 1900 ****.***.*.********* ••• *.*********************************************** 00013850 000107 000108 000109 00010A 00010B 0OO10e ~ 1903 HAVPRIME BOC 1906 MUSTBEHI XFRH 1909 LOWYES XFR BOC 1912 1915 NOPl 1918 XFR 2A09 5006 4F21 2BOD 9000 4E21 ""~~ " j () STATA,LOWYES LSR LODEPB,AR STATB,SOCKEM STAT A ON SAYS LOW ADDR SET HIGH MOVE PRIME LSR TO AREG,(INTRF B) TEST FOR INTERFACE B CLEAR A REG IF NOT MOVE PRIME LSR TO AREG,(INTF A) LODEPA,AR ,( ~ / \ "- / ) 00013870 16 00013880 00013890 00013900 00013910 00013920 () ROS2 3803-2 MICROCODE LISTING LaC OBJECT CODE 00010D DBOO 00010E 2012 ADDR1 ADDR2 PN 1846378 STMT SOURCE STATEMENT 1921 SOCKEM ANDM TUADDR,O 1924 BOC DBUS,NOPRIME PAGE EC 736697 LOOK FOR PRIME BR IF NOT F01MAY72 33 2/04/74 00013930 00013940 ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 00010F lC2F 000110 1932 0001116126 PN 1846378 2/04/74 00013970 00013980 00013990 00014000 00014010 00014020 00014030 1942 1943 1944 1945 *********************************************************************** * NO PRIME - CHECK FOR DRIVE PULSING. IF SO, PRIME FOR DEVICE END AND* * SIGNAL UNIT CHECK STATUS. IF NOT, CONTINUE ON WITH TESTS * *********************************************************************** 00014050 00014060 00014070 00014080 1969 CHKMTI 1972 1975 1978 120A 0910 4960 5224 03FE A301 2120 1008 5024 lCF9 192E XFR BOC STO STO BU LSR STATC,CDSTATS LINK1,GOPRIME2 LINK2,CHKMTI CHKPULSE SET LOW GO SET C AND D LOAD PULSING RETURN LOAD NO PULSE RETURN GO CHECK IF PULSING 16 00014100 00014110 00014120 00014130 00014140 *********************************************************************** * STATUS AT THIS POINT IS - NO PRIME, NO PULSE. LOOK FOR NOT RDY TO * * RDY CONDITION AND SIGNAL DEVICE END IF SO. * *********************************************************************** BOC ANDM BOC BOC DEVATTN,PRETURN3 SENSE1,ONES START,SETD DBUS,CDSTATS GET SEE ALL ALL OUT HERR IF MTI ON IF START IS ON DONE IF IT IS DONE IF DRIVE IS NOT THERE *********************************************************************** * SET THE DRIVE PULSING - DEVICE WAS FOUND NOT READY. IF DRIVE * * ACCEPTS THE PULSE CMD, SIGNAL NOT RDY AND PRIME A DEVICE END. IF IT * * DOES NOT- SET EQUIPMENT CHK (CMD STS REJ) AND DO NOT PRIME. * *********************************************************************** 1981 1982 1983 1984 1985 00011B 00011C 00011D 00011E 00011F 000120 000121 000122 000123 000124 000125 34 SOURCE STATEMENT F01MAY72 *********************************************************************** * WE HAVE A PRIME SO LOOK FOR DRIVE PULSING. IF SO, GIVE UNIT CHK * * STATUS - IF NOT PRESENT DEVICE END. * *********************************************************************** GOTPRIME STO LINK1,CDSTATS LOAD PULSING RETMAGE STO LINK2,PRETURN3 LOAD NO PULSE RETURN BU CHKPULSE GO CHK IF PULSING 1963 1964 1965 1966 000117 3F32 000118 D6FF 00011935E9 00011A 202F PAGE STMT 1928 1929 1930 1931 1933 1936 1939 1948 NOPRIME 1951 1954 1957 1960 000112 4006 000113 3A2F 0001141CF9 000115 1917 000116 6126 EC 736697 1989 SETPULSE STOH STO 1992 XFR 1995 XFRH 1998 STO 2002 ADD 2005 AGAIN BOC 2008 2011 STOH 2014 XFRH STO 2017 STO 2020 WORK3,DEVSEL+COMMAND FRU,PULSE SET THE FRU,TUBO DRIVE PULSING WORK3,TUTAG SEND COMMAND BIT WORK4,ONES-l SET UP WAIT CT WORK4,1 BUMP WAIT COUNT NALCO,AGAIN GO AGAIN IF NO CARRY WORK1,DEVSEL RESET THE WORK1,TUTAG COMMAND TAG LINK1,GOPRIME2 SET UP PULSING RET LINK2,DIDNTGO SET NO PULSE RETURN 00014160 00014170 00014180 00014190 00014210 00014220 00014230 00014240 00014260 00014270 00014280 00014290 00014300 00014330 00014340 00014350 00014360 00014380 00014390 00014400 00014410 00014420 00014430 00014440 2023 *********************************************************************** 00014460 2024 * CHECK FOR DRIVE PULSING ROUTINE. IF PULSING, EXIT ON LINK 1. IF * 00014470 2025 * NOT, EXIT ON LINK 2. * 00014480 2026 *********************************************************************** 00014490 2028 * NOTE 2029 * f~ "'" J !f:~'" \ " j ,# ~.. , \ j THE FOLLOWING INSTRUCTIONS CANNOT BE SINGLE STEPPED AND ACHIEVE RELIABLE RESULTS. 00014510 00014520 () ~: ROS2 LOC 000126 000127 000128 000129 00012A 00012B 00012C 00012D 00012E 00012F 000130 000131 000132 000133 000134 000135 000136 000137 3803-2 MICROCODE LISTING OBJECT CODE 3F2A 3F2D 3F2D 5922 3F2C 612D 3F29 5C22 lD80 3ABB 8402 61E9 2A34 5006 1200 6367 6384 6362 ADDRl ADDR2 PN 1846378 STMT 2033 2036 2039 2042 2046 2049 2052 2055 2058 2061 2064 2067 2070 2073 2076 2079 2082 2085 EC 736697 SOURCE STATEMENT CHKPULSE TACHOFFl TACHOFF2 NOPULSE TACHONl TACHON2 ISPULSE DIDNTGO CDSTATS TOSETD PRETURN3 PRETURNl PRETURN2 PRETURN4 BOC BOC BOC XFR BOC BU BOC XFR STO BOC ORI BU BOC XFRH STOH BU BU BU DEVATTN,TACHONl DEVAT'I'N, ISPULSE DEVATTN,ISPULSE LINK2,IC DEVATTN,TACHON2 ISPULSE DEVATTN,NOPULSE LINK1,IC EQUIPCK,REJCMD STATC,EXECDES STATIMG,SETSTATC SETD STATA,PRETURNl LSR WORK3,0 POLLALL SKIPB GOGETIM PAGE F01MAY72 BR BR BR NO BR IF PULSE PRESENT IF PULSE PRESENT IF PULSE PRESENT PULSE EXIT IF PULSE PRESENT BR IF PULSE PRESENT PULSING EXIT SET COMMAND STATUS REJ TRN ON STATC INITIAL STATUS EXIT IF STAT A IS ON BYPASS SET HIGH CLEAR THIS EREG GO STEP TO NEXT DEVICE 35 2/04/74 00014550 00014560 00014570 00014580 00014600 00014610 00014620 00014630 00014640 00014650 00014660 00014670 00014680 00014690 00014700 00014710 00014720 00014730 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE 000138 DOFF ADDR1 ADDR2 PAGE EC 736697 STMT SOURCE STATEMENT F01MAY72 2089 ***************************** TURNAROUND ****************************** 2090 * TURNAROUND WILL BE LINKED TO BY ALL FUNCTIONAL COMMANDS * 2091 * IMMEDIATELY AFTER RECEIVING CONTROL. TURNAROUND WILL RETURN VIA * 2092 * LINK REG 1 AND REQUIRES WORK4 TO BE LOADED WITH THE BUS OUT COMMAND * 2093 * PRIOR TO BEING ENTERED. * 2094 * TURNAROUND WILL: * 2095 * 1.CHECK DEVICE STATUS FOR LOADPOINT AND IF READ * 2096 * BACKWARD OR BACKSPACE OP, EXECUTE A UNIT CHECK EXIT. * 2097 * 2.CHECK DEVICE STATUS VERSUS COMMAND TO BE EXECUTED AND * 2098 * EXECUTE TURNAROUND DELAY IF IT IS REQUIRED. * 2099 * 3.CHECK DEVICE STATUS IF COMMAND IS BACKWARD AND DO * 2100 * FORWARD WRITE HITCH IF NECESSARY * 2101 * 4.SET DESIRED COMMAND ON BUS OUT AND RAISE THE MOVE TAG * 2102 * 5.EXIT INTO THE VELOCITY ROUTINE WHICH GETS DRIVE UP TO * 2103 * SPEED AND EXITS ON LINK1. * 2104 * * 2105 * * 2106 *********************************************************************** 2110 TRNARND STO WORK1,ONES 36 2/04/74 00014760 00014770 00014780 00014790 00014800 00014810 00014820 00014830 00014840 00014850 00014860 00014870 00014880 00014890 00014900 00014910 00014920 00014930 00014960 FILL THE COUNTER 2113 *********************************************************************** 00014980 2114 * SET UP DATA FLOW MASK * 00014990 2115 *********************************************************************** 00015000 000139 00013A 00013B 00013C 000130 00013E 00013F 0610 2040 0308 2075 9700 3451 23F1 2118 2121 2124 2127 2130 2133 2136 CHKFTR ANDM BOC ANDM BOC ORM BOC BOC SENSE1,BOT DBUS,CHKNRZ WORK4,WRITE DBUS,ISBAKWD SENSE2,0 HIDEN,CHK1601 NRZFEAT,CHK7LP MASK FOR BEGINNING OF TAPE BRANCH IF OFF TO CHECK FOR BACKWARD MASK FOR WRITE COMMAND BRANCH IF NOT TO CHECK FOR BACKWARD GET LSR FOR TEST BR ON BIRCH BR IF FEATURE INSTALLED 00015020 00015030 00015040 00015050 00015060 00015070 00015080 000140 000141 000142 000143 9700 3444 23E3 6145 2140 CHKNRZ 2143 2146 2149 ORM BOC BOC BU SENSE2,0 HIDEN,CHK1602 NRZFEAT,TURNNRZI 0016 TEST STATUS OF DRIVE BR IF 6250 PAGE HOP IF NRZI PRESENT 00015100 00015110 00015120 00015130 000144 000145 000146 000147 000148 000149 00014A 3356 8080 D381 207A CDBF D608 2058 2154 CHK1602 2157 0016 2160 CHKBKWD 2163 2166 2169 2172 BOC ORI ANDM BOC AND ANDM BOC BR IF GCR MODE DREG3,D064 SET FOR DATA FLOW XOUTAIM,PEBIT WORK4,RDBKWD+REW +RUN IS CMD A BKWD TYPE READ OR MOTION DBUS,DEVFWD NO, GO CHECK FOR DEV IN FWD STATUS XOUTAIM,ONES-FWDDATA ASSURE FORWARD IS OFF IS DEV IN WRITE STATUS? SENSE1,WRSTAT DBUS,DEVBKWD NO, GO CHECK FOR BACKWARD STATUS 00015160 00015170 00015180 00015190 00015200 00015210 00015220 2175 *********************************************************************** 00015240 2176 * DEVICE IS IN WRITE STATUS--SET UP AND DO FORWARD HITCH * 00015250 2177 *********************************************************************** 00015260 00014B 0109 00014C 5460 2180 2183 () STO XFRH WORK2,MOVE+DEVSEL STATIMG,TUBO SET CMD AND MOVE TAGS ON CLEAR BIT 6 '~ j ) 00015280 00015290 C) ~. ROS2 3803-2 MICROCODE LISTING LOC 00014D 00014E 00014F 000150 OBJECT CODE 4124 019F 1952 621C 000151 000152 000153 000154 000155 000156 000157 4290 3656 3756 9700 3245 8D08 6146 000158 D680 000159 3061 ADDR1 ADDR2 PN 1846378 STMT SOURCE 2186 2189 TAHITCH 2192 2195 EC 736697 STATEMENT F01MAY72 MOVE TAG IMAGE TO TAG REG XFR WORK2,TUTAG WORK2,ONES-96 SET COUNT FOR .96 IN STO STO LINK2,TRETURN3-BEGIN TO SETLINK1 THEN DODELAY BU GO DO HITCH FORWARD TAKS PAGE 37 2/04/74 00015300 00015310 00015320 00015330 2198 * LOAD POINR DENSITY DETERMINATION 2200 CHK1601 XFR WORK3,XINA 2203 BOC DREG6,D064 2206 BOC DREG7,D064 2209 ORM SENSE2,0 2212 BOC DUALDEN,D016 2215 D064 ORI XOUTAIM,HIDEN 2218 BU CHKBKWD ON GCR DRIVE ****************** BRING IN MODE SEY BR IF 6250 BR IF 800 GET LSR TO TEST BR IF DUAL DENS SET 6250 00015350 00015360 00015370 00015380 00015390 00015400 00015410 00015420 2223 DEVBKWD 2226 IS DEV IN BACKWARD STATUS YES GO AROUND TURNAROUND DELAY 00015450 00015460 ANDM BOC SENSE1,BACKWD DREGO,LETSGO 2229 *********************************************************************** 00015480 2230 * THIS DELAY IS TO ALLOW DRIVE TO STOP IF MOVING AND ALLOW TAPE TO * 00015490 2231 * STABILIZE IN COLUMNS. * 00015500 2232 *********************************************************************** 00015510 00015A 00015B 00015C 00015D 00015E 00015F 000160 D708 3480 0191 AOOl 215D Al01 215D 2235 DODELAY 2238 2241 DODELAYl 2244 MOREYET 2247 2250 2253 ANDM BOC STO ADD BOC ADD BOC SENSE2,HIDEN HIDEN,NODELAY WORK2 , X ' 91 ' WORK1,1 NALCO,MOREYET WORK2,1 NALCO,MOREYET 00015530 ARE WE A 6250 UNIT 00015540 BR IF SO 11.16 MS 00015550 LOAD TURNAROUND DELAY 00015560 BUMP TURNAROUND COUNT BY ONE 00015570 GO BACK IF NOT ALU CARRY OUT 00015580 BUMP OTHER CTR 00015590 GO BACK IF NO CARRY 2256 *********************************************************************** 00015610 2257 * SET CONTROLS TO DF AND ISSUE CMD TO THE DRIVE * 00015620 2258 *********************************************************************** 00015630 000161 000162 000163 000164 000165 000166 000167 000168 000169 00016A 4360 2A65 020A 6166 020C 4224 A2F5 2167 D340 206C 2261 2264 2267 2270 2273 2276 2279 2282 2285 2288 XFR BOC STO BU SETCTRL STO XFR SETAG BACKONCE ADD BOC ANDM BOC LETSGO MOVE COMMAND TO BUS OUT WORK4,TUBO BR IF THIS IS REW, RUN, OR DSE STATA,SETCTRL RAISE COMMAND TAG WORK3,DEVSEL+COMMAND GO SET CMD TO DRIVE SETAG SET CONTROL AND SELECT TAG WORK3,CONTROL+DEVSEL MOVE TAG IMAGE TO TAG REG WORK3,TUTAG DELAY WORK3,X'F5' ONE TIME NALCO,BACKONCE CMD RDFWD WORK4,RDFWDD BR IF CMD NOT READ BKWD OP-RE-RUN DBUS,MSKSTS 00015650 00015660 00015670 00015680 00015690 00015700 00015710 00015720 00015730 00015740 2291 *********************************************************************** 00015760 2292 * TEST RESPONDING COMMAND STATUS FROM DRIVE * 00015770 2293 *********************************************************************** 00015780 00016B 00016C 00016D 00016E C3BF 4981 2A6F C9FE 2296 RDFMSK 2299 MSKSTS 2302 2305 AND XFR BOC AND WORK4,ONES-RDFWDD FRU,TUBI STATA,SKIPMOD FRU,ONES-POSIT MODIFY COMMAND BYTE FOR READ FORWARD 00015800 00015810 FETCH STATUS BYTE 00015820 BR IF CONTROL CMD 00015830 TRN OFF POSIT IF ON ROS2 3803-2 MICROCODE LISTING LOC 00016F 000170 000171 OBJECT CODE 4921 F300 2082 AD DR 1 ADDR2 000172 2ACE PN 1846378 EC 736697 PAGE 38 SOURCE STMT 2308 SKIPMOD 2311 2314 STATEMENT FRU,AR XFR WORK4,ZERO XOM BOC DBUS,RDYMOVE F01MAY72 MOVE CMD BYTE TO ALU INPUT REG COMPARE STATUS BRANCH IF ALL ZERO 2/04/74 00015840 00015850 00015860 2318 BOC BR IF A CONTROL REJECT 00015880 2321 STATA,CTRLREJ ***** SET COMMAND STATUS REJECT ***** * 00015900 000173 1080 000174 61CF 2324 SETREJ 2327 STO BU EQUIPCK,REJCMD CLRXOUTA SET CMD STATUS REJECT GO TO UNIT CHECK ENDUP 000175 2A45 000176 D380 000177 2045 000178'8402 000179 61CF 2331 ISBAKWD 2334 2337 2340 2343 BOC ANDM BOC ORI BU STATA,D016 WORK4,RDBKWD DBUS,D016 STATIMG,SETSTATC CLRXOUTA BR IF ON A RUN AT LP IS COMMAND READ BACKWARD NO, GO CHECK FOR FORWARD STATUS FLAG UNIT CHK GO TO ENDUP (BKWD AT LP) 2347 DEVFWD 2350 2353 2356 2359 2362 ANDM BOC BOC ANDM BOC BU SENSE1,BACKWD+WRSTAT IS DRIVE IN BACKWARD OR WRT STA DBUS,LETSGO NO, GO SKIP DELAY BACKWD,DODELAY BR IF BACKWARD WORK4,RDFWDD MASK FOR READ FORWARD DBUS,LETSGO NO, GO SKIP DELAY DODELAY OTHERWISE DO TURNAROUND DELAY 00016010 00016020 00016030 00016040 00016050 00016060 000180 19E6 000181 66DA 2366 NODELAY 2369 STO BU LINK2,CRETURNl CHKPOSIT LOAD LINK RETURN - LETSGO 00016080 00016090 000182 000183 000184 000185 000186 2373 RDYMOVE 2376 2379 2382 2385 SHORTDLY aRM BOC XOM BOC STO WORK4,0 SETDIAG,ASSURFWD WORK1,ONES DBUS,GOMOVE WORK2,ONES-49 IS THIS LWR BR IF LWR TEST THE COUNTER BR IF TURNAROUND NOT NEEDED LOAD A NEW 00016110 00016120 00016130 00016140 00016150 00017A 00017B 00017C 00017D 0OO17E 00017F D688 2061 305A D340 2061 615A 9300 329F FOFF 208B 01CE OR REG 00015920 00015930 00015950 00015960 00015970 00015980 00015990 2388 *********************************************************************** 00016170 * 00016180 2389 * USE THIS DELAY ONLY IF PREVIOUS DELAY WAS USED AT 'DO DELAY' * 00016190 2390 * DELAY IS FOR APPROX 5 MIL SEC 2391 *********************************************************************** 00016200 000187 000188 000189 00018A 000188 00018C 00018D 00018E 000181- ~j \ 2394 HOLDUP 2397 2400 2403 2406 GOMOVE 2409 2412 2415 2418 AOOl 2187 Al0l 2187 2ACF 4D42 8484 4428 C4FB ,.~ " . II \,_/ ADD BOC ADD BOC BOC XFR ORI XFR AND WORK1,1 COUNT NALCO,HOLDUP AND WORK2,1 COUNT NALCO,HOLDUP DOWN STATA,CLRXOUTA BR IF CTRL COMMAND XOUTAIM,XOUTA SET DATA FLOW CONTRILS STATIMG,SETSTATB+TAPEOP SET B FOR ALUl ALSO TAPEOP STATIMG,STAT TRN ON TAPE OP TO DATA FLOW STATIMG,ONES-SETSTATB RESET B STAT IN THE IMAGE / " / f \ \ 00016220 00016230 00016240 00016250 00016260 00016270 00016280 00016290 00016300 f~, \, / ROS2 LOC 000190 000191 000192 000193 000194 3803-2 MICROCODE LISTING OBJECT CODE 9500 3796 359B 010B 4124 ADDRl ADDR2 PN 1846378 STMT SOURCE STATEMENT 2424 2427 2430 2433 2436 2439 2440 2441 2442 EC 736697 ORM BOC BOC STO XFR PAGE F01MAY72 FLAGS, 0 IS THIS LWR CHGDIR,CHKREAD BR IF DONE - EARLY EXITLWROP,LPNMOVE BR IF SO WORK2,DEVSEL+COMMAND+MOVE RAISE MOVE TAG WORK2,TUTAG XFER TAG IMAGE TO TAG REG *********************************************************************** * THE DRIVE IS STARTING TO MOVE---EXIT TO ASSURE THIS AND RECEIVE * * GAP CONTROL * *********************************************************************** 000195 6219 2445 BU EXECVEL 000196 3098 000197 61CF 2449 CHKREAD 2452 BOC BU DREGO,READCHAN CLRXOUTA 000198 4011 000199 27CF 00019A 6199 2455 * CHANNEL BUFFER READ UDIAG -- EXITS ON STOP ********************** 2457 READCHAN XFR INDF START BUFFER READ OUT 2460 READWAIT BOC STOP,CLRXOUTA HANG TILL CMD OUT 2463 READWAIT BU 39 2/04/74 00016340 00016350 00016360 00016370 00016380 00016400 00016410 00016420 00016430 00016450 BR IF CHANNEL BUFFER READ CHG DIR EXIT 00016470 00016480 00016500 00016510 00016520 00016530 2466 *********************************************************************** 00016550 2467 * THE FOLLOWING USED FOR LWR OP 00016560 2468 *********************************************************************** 00016570 00019B 5460 00019C 0209 00019D 4224 2471 LPNMOVE 2474 2477 00019E 6600 00019F 8D40 0001AO 6186 2481 BU 2484 ASSURFWD ORI 2487 BU XFRH STO XFR STATIMG,TUBO WORK3,DEVSEL+MOVE WORK3,TUTAG CLEAR THE BUS DROP THE COMMAND TAG 00016590 00016600 00016610 LWRDELAY XOUTAIM,FWDDATA SHORTDLY SET FWD FOR LWR 00016630 00016640 00016650 2490 ********************** GENERAL AND SELECTIVE RESETS ******************* 2491 ** 2492 * * DEPENDING ON ENTRY POINT, A SELECTIVE OR GENERAL RESET WILL BE 2493 * PERFORMED. SELECTIVE BYPASSES RESET OF DEVICE END PRIMES AND * 2494 * COMMITTED LATCH. OTHERWISE THE TWO RESETS ARE THE SAME. 2495 *********************************************************************** 0001Al 0001Al 0001A2 0001A2 0001A3 0001A3 0001A4 0001A4 0001A5 2BA5 OEOO lEOO 61A7 2497 2499 2501 2503 2505 2507 2509 2511 2513 STEPOO07 EQU EXECGRST BOC STEP0071 EQU STO STEPOO72 EQU STOH STEP0073 EQU BU STEPOO08 EQU * STATB,RESTDEB * LODEPA,O * * EXECSRST * LODEPA,O 00016670 00016680 00016690 00016700 00016710 00016720 00016740 BRANCH IF RESET IS FOR INTERFACEB *M 00016750 THRU HERE FOR CHNL A, ODD DRIVES 00016760 CLEAR DE PRIME REGISTER A 00016770 00016780 CLEAR DE PRIME REGISTER A HIGH *16 00016790 00016800 00016810 THRU HERE FOR CHNL B, EVEN DRIVES 00016820 ROS2 LOC OBJECT CODE 0001A5 OFOO 0001A6 0001A6 lFOO 0001A7 0001A7 0001A8 0001A8 0001A9 0001A9 OOOlAA 0001AA 0001AB 0001AB 0001AC 0001AC 0001AD 0001AD 0001AE 0001AE 0001AF 0001AF 0001BO 0001BO 0001Bl 0001Bl 0001B2 0001B2 0001B3 0001B3 0001B4 0001B4 0001B5 0001B5 0001B6 0001B6 0001B7 0001B7 0001B8 0001B8 0001B9 0001B9 0001BA 0001BA <'- ) ADDRl ADDR2 STMT SOURCE 2515 RESTDEB 2517 STEP0009 2519 2522 2524 2526 2528 2530 2532 253il 2536 2538 2540 2542 2544 2546 2548 2550 2552 2554 2556 2558 2560 2562 2564 2566 2568 2570 2572 2574 2576 2578 2580 2582 2584 2586 2588 2590 2592 2594 2596 2598 2600 lCFC 62El 100A 1102 5024 1008 5160 3BBO 3ACl OCOO OAOO 1D00 1800 1700 0900 0800 3BCC 0500 Fl09 20Cl 0001BB 0001BB 0000 0001BC 0001BC 4024 h PN 1846378 3803-2 MICROCODE LISTING A '- J PAGE F01MAY72 STATEMENT STO LODEPB,O EQU * STOH LODEPB,O STEP0010 EQU EXECSRST STO STEPOOll EQU BU STEP0038 EQU ZAP 1M STOH STEP0039 EQU STOH STEP0040 EQU XFRH STEP0041 EQU STOH STEP0042 EQU XFRH STEP0043 EQU BOC STEP0044 EQU BOC STEP0045 EQU CLEEREM STO STEP0046 EQU STO STEP0047 EQU STO STEP0048 EQU STO STEP0049 EQU STO STEP0050 EQU STO STEP0051 EQU STO STEP0052 EQU BOC STEP0053 EQU STO STEP0054 EQU XOM STEP0055 EQU BOC EC 736697 CLEAR DE PRIME REGISTER B CLEAR DE PRIME REGISTER B HIGH * LINK1,SRETURN7 00016840 *16 00016850 AND GO SELECT DEVICE * WORK1,DEVSEL+COMMAND S UP COMMAND FOR RESETG * WORK2,RESET GET DRIVE RESET READY * WORK1,TUTAG RAISE COMMAND TAG TO DRIVE * 1 , DEVSEL WORK * WORK2,TUBO * STATD,CLEEREM CLEAR OUT COMMAND TAG ISSUE SENSE RESET TO THE DRIVE AND RESET IT DON'T CHECK STAT C * STATC,RESET1 BR IF THIS IS AN ALU ERR RESET * DTACHK1,0 * DTACHK2,0 ERROR * EQUIPCK,O REGS CLEAR * MPGMERR,O * TIEBYTE,O CLR TIE * FRU,O * TRACER, 0 CLEAR TRACE REGISTER * STATD,CLEARCMD BR IF THIS IS A SENSE RESET * FLAGS, 0 * WORK2,NDXSRST * DBUS,RESET1 2/04/74 *MIS** 00016830 SET UP FOR RETURN * FCHSTS 40 CLEAR FLAGS REG IS THIS A SELECTIVE RESET BR IF SO 00016870 00016880 00016890 00016900 00016910 00016920 00016930 00016940 00016950 00016960 00016970 00016980 00016990 00017000 00017010 00017020 00017030 00017040 00017050 00017060 00017070 00017080 00017090 00017100 00017110 00017120 00017130 00017140 00017150 00017160 00017170 00017180 00017190 00017200 00017210 00017220 00017230 00017240 00017250 00017260 2603 **************** DESELECT TAPE UNIT *********************************** 2604 * THIS ROUTINE IS USED AFTER EACH OPERATION TO ASSURE DE-SELECT OF THE* 2605 * TAPE UNIT. THE COMMITTED LATCH WILL ALSO BE RESET. * 2606 *********************************************************************** 00017280 00017290 00017300 00017310 2608 STEP0056 EQU 2610 EXECDES STO 2612 STEP0057 EQU 2614 XFR 00017330 00017340 00017350 00017360 (-'\ \ .. J * CLEAR TAGS WORK 1 ,ZERO * WORK1,TUTAG TO THE DRIVE f" "\ Cj ROS2 3803-2 MICROCODE LISTING LOC 0001BD 0001BD 0001BE 0001BE 0001BF 0001BF 0001CO 0001CO OBJECT CODE A024 21BD 4050 6011 ADDRl ADDR2 PN 1846378 STMT 2616 2618 2620 2622 2624 2626 2628 2630 SOURCE STEP0058 DESWAIT STEP0059 STATEMENT EQU * ADD WORK 1 ,36 EQU * BOC NALCO,DESWAIT STEP0060 EQU * XFR COMITD STEP0061 EQU * BU SETDLONE EC 736697 PAGE F01MAY72 LOOP THRU HERE EIGHT TIMES ALLOW X POINTS LOOP THRU HERE EIGHT TIMES TO SETTLE 3.2 USEC DELAY RESET THE COMMITTED LATCH RESET THE DEVICE COMMITTED LATCH THRU HERE SIXTEEN TIMES GO SET STAT D AND TERMINATE 2633 * CHECK FOR DEV END PRIME. IF ONE IS FOUND BYPASS RESET TO COMMITTED. 0001Cl 0001C2 0001C3 0001C4 0001C5 0001C6 0001C7 0001C8 0001C9 0001CA 4E21 4F21 DBOO 20C6 61CB 5006 4E21 4F21 DBOO 20BB 2636 2639 2642 2645 2648 2651 2654 2657 2660 2663 2665 2666 2667 2668 2669 2670 RESETl RESET2 RESET3 CHKHI XFR XFR ANDM BOC BU XFRH XFR XFR ANDM BOC LODEPA,AR LODEPB,AR TUADDR, ZERO DBUS,CHKHI EXECABRT LSR LODEPA,AR LODEPB,AR TUADDR,O DBUS,EXECDES SET DEV END PRIMES TO TEST A SET DEV END PRIMES TO TEST B DO ADDR AND DEV PRIME COMPARE BR IF NOT *16 SET HI *16 LOOK FOR *16 HIGH PRIMES *16 BR OUT *16 IF NONE *16 **************************** ABORT ROUTINE **************************** * * * * USED BY ALUl TO INSURE TAPE MOTION IS STOPPED. * * * * THIS ROUTINE MUST FOLLOW RESETS ROUTINE *********************************************************************** CLEAR REG 0001CB 1000 2673 EXECABRT STOH WORK 1 ,ZERO 0001CC 5024 0001CD 6011 2677 CLEARCMD XFRH BU 2680 2682 * DROP ALL DRIVE TAGS WORK1,TUTAG ALL DONE SETDLONE ***** SET CONTROL STATUS REJECT ***** 0001CE 1020 0001CF 0100 2685 CTRLREJ STO 2688 CLRXOUTA STO EQUIPCK,REJCTRL WORK2,0 SET CONTROL STATUS REJECT ASSURE NOISE BIT OFF - READ OP - 41 2/04/74 00017370 00017380 00017390 00017400 00017410 00017420 00017430 00017440 00017460 00017480 00017490 00017500 00017510 00017520 00017530 00017540 00017550 00017560 00017570 00017580 00017590 00017600 00017610 00017620 00017630 00017650 00017670 00017680 00017690 00017710 00017720 ROS2 LOC 000100 000101 000102 000103 000104 000105 000106 000107 000108 000109 00010A 00010B 0001DC 000100 000100 000100 00010E 00010F 0001EO 0001El 0001E2 0001E3 0001E4 OODlES 0001E6 0001E7 ADDRl ADDR2 OBJECT CODE 4018 C41F lCF7 4428 4142 62El 2AEB 9600 34DA 6100 32DC 6100 8404 9600 35EO 1040 DCF6 20E3 61E7 5821 5021 9AOO 20E9 8402 ... EC 736697 PAGE f~ '. / 42 STMT SOURCE STATEMENT F01MAY72 2692 *************************** ENDUP ROUTINE ***************************** 2693 * * 2694 * THE ENDUP ROUTINE IS ENTERED BY ALL CMD ROUTINES. * 2695 * ENDUP SETS THE STATUS INTO THE STAT REG AND SETS STAT 0 TO * 2696 * INDICATE TO ALU1, ALU2 IS FINISHED. ALU2 WILL BE TRAPPED TO ADDRESS * 2697 * ZERO WHEN STAT 0 IS SET AND WILL REMAIN DORMANT UNTIL CALLED BY * 2698 * ALUl AGAIN, (VIA ALUl XOUTB) * 2699 * THE DEVICE STATUS IS ALWYS RETRIEVED AND CHECKED FOR UNIT CHECK * 2700 * AND UNIT EXCEPTION CONDITIONS(EOT ON WRITE). THE MPGM ERROR REG IS * 2701 * CHECKED AND IF ANY BITS ARE ON, THE UNIT CHECK STAT IS SET. * 2702 * * 2703 *********************************************************************** 2/04/74 00017750 00017760 00017770 00017780 00017790 00017800 00017810 00017820 00017830 00017840 00017850 00017860 2707 2710 2713 2716 2719 2722 2725 2728 2731 2734 2737 2740 2743 2745 2746 2748 2751 2754 2757 2760 2763 2766 2769 2772 2775 2778 00017890 00017900 00017910 00017920 00017930 00017940 00017950 00017960 00017970 00017980 00017990 00018000 00018010 00018020 00018030 00018040 00018050 00018060 00018070 00018080 00018090 00018100 00018110 00018120 00018130 00018140 ENDUP XFR ENDUP800 AND STO XFR XFR BU SNSRTN BOC NEXTONE ORM BOC BU CHKEOT BOC BU SETUX ORI ENDCHK EQU CKSTART EQU ORM BOC REWFAIL STO TSTFOERR ANDM BOC BU TSTFOMOR XFR XFR ORM SETUCK BOC ORI BUFFCRC SAMPLE CH BUFFER ERROR STATIMG,ONES-TAPEOP-PERMRDWT-WRTBURST LINK1,SRETURN2 LOAD SENSE RETURN (SNSRTN) STATIMG,STAT RESET TAPE IP AND CONTROLS WORK2,XOUTA SET BYTE FOR ALU1-READ NOISE FCHSTS GO FETCH DEVICE SENSE DATA STATA,BUSYYET BR IF A REW,RUN,ORDSE SENSE1,0 GET SENSE BYTE FIR TEST WRTSTAT,CHKEOT BR IF EOT IS ON ENDCHK EOT,SETUX IS END OF TAPE BIT ON ENDCHK HK OR IF NOT STATIMG,SETSTATB SET UNIT EXCEPTION IF SO * * SENSE1,0 IS DRIVE READY START, TSTFOERR BR IF START IS ON EQUIPCK,REJTU OTHERWISE SET. ERROR ON DTACHK1,ONES-TSAGC-VELTRY DBUS,TSTFOMOR REGS SETUCK OTHERWISE GO SET UNIT CHECK MPGMERR,AR SET UP ERRORS EQUIPCK,AR FOR TEST DTACHK2,0 ANY M-PGM ERRORS DBUS,DUNAGN BR IF NOT STATIMG,SETSTATC SET UNIT CHECK STAT ON XFR REDLIGHT FLAG ALU DETECTED DATA ERROR 2782 2784 DUNAGN EQU * ORI STATIMG,SETSTATD TURN ON STATD 2786 SETD 2789 XFR STATIMG,STAT XFER STAT IMAGE TO STAT REG 2791 *************** ALU2 IS NOW TRAPPED UNTIL CALLED BY ALUl 0001E8 4014 0001E9 0001E9 8401 0001EA 4428 A \ J PN 1846378 3803-2 MICROCODE LISTING f-\ "" ~ ) " '\ / t \. 7 / ** 00018160 00018170 00018180 00018190 00018200 () ROS2 LOC 0001EB 0001EB 0001EC 0001ED 0001EE 0001EF 0001FO 0001Fl 0001F2 0001F3 0001F4 0001F5 0001F6 0001F7 0001F8 3803-2 MICROCODE LISTING OBJECT CODE 4088 F029 201B D6FF 37F2 3BDO 610D 33F5 32F7 61DF 34DF 61DD 34DD 61DF ADDRl ADDR2 PN 1846378 STMT 2794 2795 2796 2797 2798 2799 2800 2801 2803 2806 2809 2812 2815 2818 2821 2824 2827 2830 2833 2836 2839 2842 SOURCE STATEMENT EC 736697 PAGE F01MAY72 43 2/04/74 *********************************************************************** 00018230 * * * * * * * * * ************************************************************************ REWIND , REWIND UNLOAD AND DATA SECURITY ERASE USE THIS ROUTINE TO ASSURE THE DEVICE WENT BUSY. IF IT DIDNT, A CHECK IS MADE CHAINING OF THESE TO SEE IF THE OPERATION HAS BEEN COMPLETED. COMMANDS IS SIGNALED BY ALUl STATD BEING ON, AND ALU2 WILL REMAIN HERE IN ENDUP UNTIL THE TAPE UNIT IS FINISHED. BUSYYET LPLOOK ISITREW ISITDSE EQU XFR XOM BOC ANDM BOC BOC BU BOC BOC BU BOC BU BOC BU * WORK1,XINB WORK 1 , EXECRWU DBUS,SETPULSE SENSE1,ONES NOTBUSY,LPLOOK STATD,ENDUP CKSTART BOT,ISITREW EOT,ISITDSE REWFAIL WRTSTAT,REWFAIL CKSTART WRTSTAT,ENDCHK REWFAIL GET THE CURRENT CMD INDEX IS IT A REWIND UNLOAD BR IF SO GET SENSE BYTE FOR TEST BR IF NOT BUSY IF CHAINED-STATD WILL BE ONIF NOT CHAINED-TAKE NORMAL EXIT BR IF BOT IS ON BR IF EOT IS ON NOT BUSY AND NOT AT LP OR TI BR IF NOT-MUST BE REW/RUN SET U.C.-WE HIT LP ON A DSE SET U.C. IF NOT-WE HIT Tl ON A REW DSE COMPLETE-GO FINISH UP 00018240 00018250 00018260 00018270 00018280 00018290 00018300 00018310 00018320 00018330 00018340 00018350 00018360 00018370 00018380 00018390 00018400 00018410 00018420 00018430 00018440 ROS2 LOC OBJECT CODE ADDR1 ADDR2 STMT f~ / EC 736697 PAGE SOURCE STATEMENT 2848 GOPRIME2 STO 2851 STOH 2854 BU 0001F9 0403 0001FA 1403 0001FB 6202 ,F:c.,) PN 1846378 3803-2 MICROCODE LISTING () F01MAY72 STATIMG,SETSTATD+SETSTATC SET UP FOR LATER STATIMG,SETSTATD+SETSTATC SET UP FOR LATER EXECSDE GO SET A PRIME ON ,,- ---" I -- 44 2/04/74 00018480 00018490 00018500 --\ ) () .~, ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE 000200 000200 000201 000202 000203 000204 000205 000206 000207 000208 000209 00020A 00020B 00020C 00020D 00020E 0405 1405 9BOO 2005 6206 5006 4B21 2B09 8EOO 8FOO 4428 8402 4428 1200 6370 ADDRl ADDR2 PN 1846378 STMT EC 736697 SOURCE STATEMENT 2859 2860 2861 2862 2863 2864 2865 2866 * * * * * 2869 2872 2875 2878 2881 2884 2887 2890 2893 2896 2899 2902 2905 2908 2911 2913 2914 SETPRIME STO STOH EXECSDE ORM BOC BU ISHIGH XFRH I SLOW XFR BOC ORI DOlT ORI XFR ORI XFR STOH BU * * 2917 2918 2919 2920 2921 * * * ORG PAGE F01MAY72 45 2/04/74 BEGIN+X'200' 00018540 ***************SET DEVICE END PRIME ROUTINE**************************** 00018550 THIS ROUTINE IS USED BY ALUl TO PRIME THE DEVICE END STILL HELD BY ALU2 IN TUADDR LES. UPON PRIMING, A BRANCH WILL BE TAKEN TO POLLMTI WHERE A WAIT WILL BE INITIATED IN CASE ALUl WANTS IT TURNED OFF AGAIN. NOTE INITIAL STATUS DOES NOT TAKE THIS BRANCH. 00018560 00018570 00018580 00018590 00018600 *********************************************************************** 00018610 STATIMG,SETSTATB+SETSTATD SET FOR USE LATER STATIMG,SETSTATB+SETSTATD SET FOR USE LATER IF HI TUADDR,O SEE IF LOW LSR HOLDS ADDRESS DBUS,ISHIGH BR IF NOT TO SET HI I SLOW SKIP SET HIGH LSR SET HIGH TUADDR,AR GET PRIME BIT TO A BUS STATB,DOIT BR IF INTERFACE B LODEPA,O PRIME PROPER DEVICE END LODEPB,O STATIMG,STAT SET STAT D IF NECESSARY STATIMG,SETSTATC SET STAT C FOR STATIMG,STAT ALU14 WORK3,0 GO WAIT TO RESET THE DEVICE END POLLMTIX IF STAT D DIDN'T COME ON IN THE PREVIOUS INSTRUCTION * * * * * 16 16 16 16 00018630 00018640 00018650 00018660 00018670 00018680 00018690 00018700 00018710 00018720 00018730 00018740 00018750 00018760 00018770 00018780 00018790 *********************************************************************** 00018820 RETURN HERE AFTER GAP CONTROL IS RECEIVED FROM DRIVE AND EXIT * 00018830 TO ASSURE DRIVE IS AT THE CORRECT VELOCITY-NORMAL RETURN TO 'WRTST'* 00018840 IF LIMITS ARE NOT MET THEN EXIT TO ENDUP. * 00018850 *********************************************************************** 00018860 00020F 000210 000211 000212 9700 3412 6213 3316 2924 WRTSTR 2927 2930 2933 WRTSTR2 ORM BOC BU BOC SENSE:2,0 HIDEN,WRTSTR2 WRTSTRl DREG3,WRTSTR3 GET LSR FOR TEST BR IF BIRCH BR IF 6250 BPI 00018880 00018890 00018900 00018910 000213 000214 000215 000216 1600 13E7 6300 67AD 2937 WRTSTRl 2940 VELSTR 2943 2946 WRTSTR3 STOH STOH BU BU SENSE1,0 WORK4,ONES-24 CHKVEL SETCOUNT CLEAR THE REG FOR VELOCITY SET MAX CNT TO 24 GO ASSURE VELOCITY IS CORRECT 6250 EXIT 00018930 00018940 00018950 00018960 ROS2 .LOC 000217 000218 000219 00021A q0021B PN 1846378 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE PAGE STMT SOURCE STATEMENT F01MAY72 2951 •••••••••••••••••••••••• VELOCITY SUBROUTINE •••••••••••••••••••••••••• 2952 • • 2953. THIS ROUTINE WILL ASSURE THE CAPSTAN STARTS MOVING BY COUNTING • 2954. FOR 256 BIT CELLS, C. DURING WHICH CHECKING FOR A TACH PULSE. • 2955. IF IT DOES NOT APPEAR DURING THIS TIME NOTACH TU ERROR IS SET. • 2956 • • 2957. OTHERWISE WAIT FOR GAP CONTROL AND WHEN RECEIVED RESET COMMAND • 2958. TAG AND RETURN ON LINK1. • 2959 • • 2960 ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 2964 VELl 2967 2970 EXECVEL 2973 VELGAP 2976 4081 313F 1917 OOFF 01FF EC 736697 XFR BOC STO STO STO WORK1,TUBI GAPCTRL,GAPCTLON LINK2,VEL1 WORK1,ONES WORK2,ONES GET CMD STATUS BYTE BR IF GAP CONTROL IS ON POI NY TO RETURN SET UP COUNT REGISTERS1 2979 ••••••••••••••••••••••• TACH COUNT SUBROUTINE ••••••••••••••••••••••••• 2980 • • 2981 • THE NUMBER OF TACH PULSES TO BE MEASURED MUST BE COMPLEMENTED • 2982. AND SET IN REGISTER WORKl AND WORK2 BEFORE ENTRY TO ROUTINE. • 2983. EXAMPLE - TO COUNT 360 TACH PULSES WHICH WOULD EQUAL A DISTANCE • 2984 • OF 3.6 INCHES COMVERT 360 TO HEX = 168 • 2985 • NOW COMPLEMENT TO 2 BYTES = FE96 • 2986 • SET 'FE' IN WORK1 AND SET '96' INWORK2 • 2987 • • 2988 •••••••••••••••••••••• *.* ••••• * ••••• * ••••••• *.* •••••••••••••••••••••••• 00021C 00021C 00021D 0002iE 00021F 000220 000221 000222 2991 2993 2996 2999 3002 3005 3008 3011 TAKS ZEROCTR ROUNDUP NOTLPRD 3014 * EQU STO ORM BOC BOC ANDM BOC BOC 2/04/74 00019000 00019010 00019020 00019030 00019040 00019050 00019060 00019070 00019080 00019090 00019120 00019130 00019140 00019150 00019160 00019180 00019190 00019200 00019210 00019220 000.19230 00019240 00019250 00019260 00019270 WORK3,0 CLEAR TIME OUT CTR GET LSR TO TEST FLAGS, 0 DREG3,CHKBORRD RD CHK SAGC BRST NBLOCK,TACHWAIT SKIP NEXT TESTS IF IBG IS ACTIVE TRACER,ERGFLAG+CREASER SET FOR TESTS DBUS,TACHWAIT BR IF NEITHER FLAG IS ON CREASER,CREMOVEX SKIP OUT IF TAPE CREASE • 00019300 00019310 00019320 00019330 00019340 00019350 00019360 00019370 ••••• SET NOISE ERROR ••• ** 00019390 000223 1880 000224 1002 3017 ERGNOISE STO STO 3020 MPGMERR,NOISE EQUIPCK,PERR SET NOISE ERROR ON ERASE SET EQUIPMENT CHK 00019410 00019420 2427 6225 3E2E 8808 6230 3024 TACHWAIT BOC 3027 BU 3030 TACHYET BOC ORI 3033 BU 3036 RDTIME,TACHYET TACHWAIT BSYTACH,POSITIVE TRACER,TAKTR COUNTUP WAIT FOR READ TIME TO RISE LOOK FOR TACH TRN ON TACH TRACE 00019440 00019450 00019460 00019470 00019480 00022A 2E2C 00022B 6225 3040 CHKBORRD BOC 3043 BU BOR,BORUP TACHWAIT SAMPLE BOR 00019500 00019510 000225 000226 000227 000228 000229 ~ 0200 9500 332A 3C25 D890 2025 304B 46 r~ \. ;' ;:. ~ '\ ) I I .. ." '\ ) 0 ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846378 STMT EC 736697 SOURCE STATEMENT 00022C 8840 00022D 6225 3047 BORUP 3050 00022E 00022F 000230 000231 000232 000233 000234 000235 000236 000237 000238 9800 3439 2430 A201 2110 3F47 D880 2046 0101 3849 60B8 000239 00023A 00023B 00023C 00023D 00023E 00023E C8F7 A101 211C A001 211C 00023F 000240 000241 000242 000243 000244 000245 PAGE F01MAY72 47 2/04/74 TRACER, BORMARK TACHWAIT SET FLAG - BOR SEEN 00019530 00019540 3054 POSITIVE ORM 3057 BOC 3060 COUNTUP BOC 3063 ADD 3066 BOC 3069 BOC 3072 ANDM 3075 BOC 3078 STO 3081 BOC 3084 KRETURN1 BU TRACER, 0 TAKTR,CNTATACH RDTIME,COUNTUP WORK3,l NALCO,ROUNDUP DEVATTN,UCKON TRACER, CREASER DBUS,SETNTACH WORK2,l 6250,SUMMORE READS TOP LOOK FOR TACH TRACE BR IF ON WAIT FOR READ TIME TO FALL BUMP TIME OUT CT AND GET MAYBE BUMP LP OUT ON OVERFLOW 00019560 00019570 00019580 00019590 00019600 00019610 00019620 00019630 00019640 00019650 00019660 TRACER,ONES-TAKTR WORK2,l NALCO,ZEROCTR WORK1,1 NALCO,ZEROCTR RESET TACH TRACE BUMP LOW ORDER CT BUMP HIGH ORDER CT 5922 3088 CNTATACH AND 3091 ADD 3094 BOC 3097 ADD 3100 BOC 3102 CNTNCARY EQU 3104 GOBACK XFR 4160 0009 4024 D502 2045 5560 5C22 3107 * VELOCITY SUBROUTINE EXIT POINT - WHEN GAP CONTROL COMES ON. PUT ZEROS ON TU BUS OUT 3109 GAPCTLON XFR WORK2,TUBO 3112 STO WORK1,DEVSEL+MOVE RESET COMMAND TAG 3115 XFR WORK1,TUTAG TO THE DRIVE 3118 ANDM FLAGS,TUBOMSK IS THE SET TUBO MASK FLAG ON 3·121 BOC DBUS,NOMASK BR IF NOT XFR WORK5,TUBO SET MASK OUT IF SO 3124 RETURN TO CALLER 3127 NOMASK XFR LINK1,IC * 3130 3131 * 3133 * ORI BU 3136 SETNTACH STO 3139 UCKON ORI 3142 GOENDUP BU 000249 00024A 00024B 00024C 00024D 00024E 3146 3149 3152 3155 3158 3161 3163 3164 3165 3167 3170 3173 00024F 6400 000250 66D6 000251 66AC RETURN THIS IS THE TIME OUT FOR THE TACH ROUTINE IF A TACH PULSE DOES NOT APPEAR WITHIN 256 BIT CELLS 000246 1004 000247 8402 000248 61CF 19EA 66DA 2E4E D820 2025 6042 * LINK2,IC ***** SET NO TACH ERROR ***** EQUIPCK,NTACH STATIMG,SETSTATC CLRXOUTA 00019~0 00019.690 00019700 00019710 00019720 0001973"0 00019740 SET NO TACH PULSE ERROR SET UNIT CHECK ONLY ON MTI GO TO END * 00019760 00019770 00019780 00019790 00019800 00019810 00019820 00019830 * * 00019850 00019860 00019880 00019900 00019910 00019920 00019940 00019950 00019960 BR IF BOR UP 00019970 TEST FOR FWD HITCH FLAG 00019980 BR IF NOT 00019990 00020000 *********************************************************************** ********************** TACH COUNT BRANCH TABLE ************************ 00020010 *********************************************************************** 00020020 00020030 TRETURN2 BU NRZILINK WRITE FROM LP RETURN 00020040 TRETURN5 BU WRT2 00020050 WTMSTR2 BU WTMAWAY SUMMORE STO LINK2,CRETURN5 BU CHKPOSIT CREMOVEX BOC BOR,CREMOVEZ ANDM TRACER, X , 20' BOC DBUS,TACHWAIT CREMOVEZ BU CREMOVE LOAD LINK RETURN ROS2 LOC OBJECT CODE 000252 000252 000253 000254 000255 PN 1846378 3803-2 MICROCODE LISTING ADDR1 ADDR2 STMT SOURCE STATEMENT 3175 TRETURN3 EQU * EC 736697 RETURN TO TA HITCH PAGE F01MAY72 48 2/04/74 00020060 3177 ***********************************************************"************ 00020080 3178 * RETURN FROM FORWARD HITCH TO DROP MOVE AND RETURN TO TURN AROUND * 00020090 3179 *********************************************************************** 00020100 WORK3,DEVSEL RESET THE MOVE TAG 00020110 3181 SETLINK1 STO 3184 XFR WORK3,TUTAG PASS TO THE DRIVE 00020120 ORI TRACER, X , 20' SET FLAG FOR CREASE TAPE 3187 00020130 BU DODELAY GO BACK TO TRNARND 00020140 3190 0208 4224 8820 615A t~ , ) ROS2 LOC 000256 000257 000258 000259 00025A 00025B 00025C 3803-2 MICROCODE LISTING OBJECT CODE 9600 3361 9700 345B 335C 6046 2302 ADDRl ADDR2 PN 1846378 EC 736697 PAGE 49 STMT SOURCE STATEMENT F01MAY72 2/04/74 3193 *********************************************************************** 00020160 3194 * THIS IS THE RETURN POINT FROM TURNAROUND ROUTINE. AT THIS POINT * 00020170 3195 * THE TAPE UNIT HAS ACCEPTED THE READ COMMAND AND IS UP TO SPEED. * 00020180 3196 * * 00020190 3197 *********************************************************************** 00020200 3200 STARTAPE ORM 3203 BOC 3206 ORM 3209 BOC 3212 BOC 3215 READS TAR BU 3218 ISNRZI2 BOC 3221 * SENSE1,0 DREG3,LPBURST SENSE2,0 HIDEN,READSTAR NOTPE,ISNRZI2 READTAPE NRZFEAT,ISNRZI SEE IF BOT IS ON - BR IF IT IS GET SNS TO DBUS FOR TEST BR IF 6250 POSSIBLE BR IF NRZI UNIT NO BOT, LOOK FOR DATA BR IF NRZI FEATURE IS INSTALLED ***** SET NOT CAPABLE ***** 00020220 00020230 00020240 00020250 00020260 00020270 00020280 00020300 00025D 1801 00025E 61CF 3224 NOTCOMP 3227 GOEND STO BU MPGMERR,NOTCAP CLRXOUTA SET NOT CAPABLE STOP 00020320 00020330 00025F 335B 000260 6046 3231 READHIGH BOC 3234 BU NOTPE,READSTAR MODE6400 BR IF 1600 BPI GO READ AT 6250 00020350 00020360 RQS2 LOC 000261 000262 000263 000264 PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PAGE 50 STMT SOURCE STATEMENT F01MAY72 2/04/74 3238 *********************************************************************** 00020390 3239 * READ FROM LOAD POINT * 00020400 3240 *********************************************************************** 00020410 3243 LPBURST 3246 3249 LPBURST1 3252 CRETEST 1965 0104 OOFE 621C EC 736697 STO STO STO BU LINK2,READLP WORK2,X'D4' WORK1,X' FE' ZEROCTR SET UP RETURN (READLP¢ THREE INCHES SET UP TO MOVE TAPE GO CT 300 TACH PULSES 00020430 00020440 00020450 00020460 3255 *********************************************************************** 00020480 3257 *********************************************************************** 00020500 3258 * AT THIS POINT WE ARE READY TO SAMPLE THE IDENTIFICATION AREA OF THE * 00020510 3259 * TAPE TO DETERMINE DENSITY. BASICALLY THIS ROUTINE CONSISTS OF * 00020520 3260 * THREE COUNTERS (EACH SPANS TWO LSR) WHICH VIE FOR INCREMENTATION. * 00020530 3261 * THE FIRST TO OVERFLOW DETERMINES THE OPERATING MODE. THE TCU RESET * 00020540 3262 * READ MODE FROM LOAD POINT IS 1600 BPI. THUS, IF PTE IS DETECTED,NO * 00020550 3263 * FURTHER ACTION IS REQUIRED AS FAR AS INITIALIZATION. IF 1TE IS * 00020560 3264 * DETECTED, A MODE SET WILL BE ISSUED TO THE TAPE UNIT AND GCR CON* 00020570 3265 * TROLS ACTIVATED, IF NEITHER PTE OR 1TE IS DETECTED,A CHECK IS MADE * 00020580 3266 * TO DETERMINE NRZI CAPABILITIES AND IF POSSIBLE THE OPERATION * 00020590 3267 * CONTINUES. NOT CAPABLE CAN RESULT FROM, GCR TAPE ON AN INCAPABLE * 00020600 3268 * DEVICE. ALSO, THE REQUIRED FEATURES MUST BE RESIDENT ON THE TCU. * 00020610 3269 * * 00020620 3270 *********************************************************************** 00020630 000265 000266 000267 000268 000269 3273 READLP 3276 3279 3282 3285 9700 307C 09FE 03FB 02FE A101 217E A201 217E 000270 000271 000272 000273 000274 D708 205D CD7F 8D08 4D42 000275 198A M \. ) SENSE2,0 SEVTRK,SETNRZI FRU,ONES-1 WORK4,ONES-4 WORK3,ONES-1 RDTIME,OKALREDY 3289 OKALREDY BOC BOC N1TE,COUNTLPB 3292 3294 * ONE TRK ENV COUNT LOOP ADD WORK2,1 3296 NALCO,WAITACEL 3299 BOC 3302 ADD WORK3,1 3305 BOC NALCO,WAITACEL 00026A 246A 00026B 3980 00026C 00026D 00026E 00026F ORM BOC STO STO STO r LOOK SEE IF SEVEN TRK CNT IS 512 BIT CELLS CNT IS 1280 BIT CELLS CLR A CTR 00020650 00020660 00020670 00020680 00020690 WAIT FOR READ TIME TO FALL BR IF NOT 1 TRK ENV 00020710 00020720 00020730 00020740 00020750 00020760 00020770 BUMP CTR BY ONE BR IF NO CARRY BUMP HI CTR BY BR IF NO CARRY 3309 READ6400 ANDM SENSE2,HIDEN ARE WE A BIRCH TAPE UNIT 3312 BOC DBUS,NOTCOMP BR IF NOT 3315 AND XOUTAIM,ONES-PEBIT TRN OFF PE CONTROL ORI XOUTAIM,HIDEN TRN ON BIRCH CONTROL 3318 3321 XFR XOUTAIM,XOUTA DO IT 3323 *********************************************************************** 3324 * GO TO TACH ROUTINE AND MOVE ENOUGH TAPE TO GET INTO THE BEGINNING * 3325 * OF THE SAGC BURST. TAPE IS GCR * 3326 *********************************************************************** 00020790 00020800 00020810 00020820 00020830· 00020840 00020850 00020860 00020870 3330 OKFOR64 00020900 ... if '( j STO LINK2,SETNORM LOAD LINK RETURN /" ~ j '- f '; \ f-:~ \. / ROS2 3803-2 MICROCODE LISTING LOC OBJECT CODE 000276 0165 000277 6263 000278 000279 00027A 00027B 00027C 00027D 00027E 00027F AOOl 217E A301 217E 23E8 625D 246A 627E 000280 2C78 000281 000282 000283 000284 000285 000286 000287 000288 000289 Al0l 217E A901 217E 9700 3488 6046 325B 625D ADDRl ADDR2 PN 1846378 STMT 3333 3336 3339 3341 3344 3347 3350 3353 3356 3359 3362 SOURCE STATEMENT STO WORK2,ONES-154 BU LPBURSTl * NRZI COUNT LOOP CNTNRZI ADD WORK1,1 BOC NALCO,WAITACEL ADD WORK4,1 BOC NALCO,WAITACEL SETNRZI BOC NRZFEAT,SET800 BU NOTCOMP WAITACEL BOC RDTIME,OKALREDY BU WAITACEL NPTE,CNTNRZI 3366 COUNTLPB BOC 3368 * P TRK ENV COUNT LOOP 3370 ADD WORK2,1 3373 BOC NALCO,WAITACEL 3376 ADD FRU,l 3379 BOC NALCO,WAITACEL 3382 ORM SENSE2,0 3385 BOC HIDEN,CHKSUMOR 3388 BU READTAPE STAR 3391 CHKSUMOR BOC DUALDEN,READSTAR 3394 BU NOTCOMP EC 736697 LOAD LO CTR PAGE F01MAY72 BUMP CTR BY ONE BUMP CTR BY ONE BR IF NO OVERFLOW GO SET NRZI NRZI NOT INSTALLED- SET NOT CAPABLE WAIT FOR READTIME TO BECOME ACTIVE BR IF NO P BURST BUMP CTR BY ONE BR IF NO OVERFLOW BUMP CTR BY ONE BR IF NO OVERFLOW LET SENSE FOR TEST BR IF BIRCH DRIVE NOT BIRCH - CONTINUE BR IF 1600 INSTALLED GO SET NOT CAP - NO 1600 FEATURE 51 2/04/74 00020910 00020920 00020940 00020950 00020960 00020970 00020980 00020990 00021000 00021010 00021020 00021040 00021050 00021060 00021070 00021080 00021090 00021100 00021110 00021120 00021130 00021140 3398 *********************************************************************** 00021170 3399 * ENTERING SAGC BURST. LINK OUT TO TURN ON SAGC LOGIC-ALSO SETS 6250 * 00021180 3400 *********************************************************************** 00021190 00028A 00028B 00028C 00028D lA3D 0310 020D 6530 3403 SETNORM 3406 3409 3412 STO STO STO BU LINK3,ZRETURNl SET LINK RETURN WORK4,SETDENS LOAD COMMAND WORK3,DEVSEL+CONTROL+MOVE SETCTRLl 00021210 00021220 00021230 00021240 3415 *********************************************************************** 00021260 3416 * GO BACK TO THE TACH ROUTINE AND CROSS MOST OF THE SAGC BURST * 00021270 3417 *********************************************************************** 00021280 00028E 00028F 000290 000291 000292 OOFD 01F3 1993 8510 621C 3420 NORMDONE STO STO 3423 3426 STO ORI 3429 BU 3432 3435 3436 3437 3438 3439 3440 3441 3442 WORK1,ONES-2 WORK2,ONES-12 LINK2,CHKATT FLAGS, 16 ZEROCTR SET UP TO MOVE TAPE 6 INCHES APPROX LOAD RETURN - CHK ATT SET FLAG FOR BOR CHK GO COUNT 550 TACHS *********************************************** ••• **** •• * •••• ***** •• *** * NEARING END OF SAGC - CHECK RESULTS AS FOLLOWS AND WAIT FOR END • • AS NECESSARY. • • BOR DEVATTN • * 0 0 EQUIPMENT CHECK + SAGC * • 0 1 NOT CAPABLE + SAGC * • 1 1 READ FIRST BLOCK - FORCE SAGC ERROR +NOISE* * 1 0 NORMAL * 00021300 00021310 00021320 00021330 00021340 00021360 00021370 00021380 00021390 00021400 00021410 00021420 00021430 ROS2 LOC 000293 000294 000295 000296 9800 3199 3F97 6719 000297 BCOB 000298 6250 t"" PN 1846378 3B03-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 EC 736697 PAGE 52 STMT SOURCE STATEMENT 2/04/74 . F01MAY72 3443 *********************************************************************** 00021440 3446 CHKATT 3449 3452 3455 ORM BOC BOC BU TRACER, 0 BORMARK,RESETBOR DEVATTN,BRSTCKl EQSAGC TEST LSR FOR BOR SEEN BR IF ALL OK SEE WHAT TAPE UNIT HAS TO SAY 3459 BRSTCKl 3462 ORI BU DTACHK1,TSAGC NOTCOMP SET TEMPORARY ERROR 00021460 00021470 00021480 00021490 * UC * 00021510 00021520 000299 00029A 00029B 00029C CBBF C5EF 3EA5 299B 3466 RESETBOR AND 3469 AND 3472 BRSTCK2 BOC BOC 3475 TRACER,ONES-BORMARK RESET BOR SEEN FLAG FLAGS,X'EF' TRN OFF BaR FLAG BSYTACH,BRSTCK10 WAIT FOR TACH CHG NSAGCID,BRSTCK2 00021540 00021550 00021560 00021570 000290 00029E 00029E 00029F 0002AO 0002Al 0002A2 0002A3 0002A4 0002A4 0002A5 0002A6 0002A7 0002A8 0002A9 0002AA 3FAO 3479 BRSTCK3 3481 BRSTCK4 34B3 BRSTCK41 3486 34B9 BRSTCK5 3492 3495 3498 3500 BRSTCK6 3502 3505 BRSTCK10 350B 3511 BRSTCKll 3514 3517 BRSTCK12 3520 DEVATTN,BRSTCK5 SET SAGC CK IF ON *IBG,MODE6401 WAIT FOR END OF SAGC 00021590 00021600 00021610 00021620 00021630 00021640 00021650 00021660 00021670 00021680 00021690 00021700 00021710 00021720 00021730 00021740 2FEO 629E 8COB DB02 20A4 18BO 629E AOFF 2050 29A9 6290 3EA7 629B ~~ \ BOC EQU BOC BU ORI ANDM BOC STO EQU BU ADD BOC BOC BU BOC BU BRSTCK41 DTACHK 1 , TSAGC TRACER,READOP DBUS,BRSTCK6 MPGMERR,NOISE SET ERROR ARE WE A READ OP BR IF NOT SET ERROR FOR FIRST READ * BRSTCK4 WORK1,ONES DBUS,NOTCOMP NSAGCID,BRSTCK12 BRSTCK3 BSYTACH,BRSTCK11 BRSTCK2 DECREMENT CTR EXIT ON OVERFLOW BR IF STILL NO SAGC ID GOOD EXIT WAIT FOR TACH TO CHG A~ .< I \. / "'-.. *UC* (~:o.., , , - /) ROS2 LOC 0002AB 0002AC 0002AD 0002AE 0002AF 0002BO 0002B1 3803-2 MICROCODE LISTING OBJECT CODE 0200 0018 09F9 4321 A900 21B2 62B4 0002B2 B904 0002B3 21B5 0002B4 09FC ADDR1 ADDR2 PN 1846378 EC 736697 PAGE STMT SOURCE STATEMENT 3523 *** GCR READ OP -- LOAD CONTROL COUNTERS ************* 3525 NOT1600 STO WORK3,ONES-47 LOAD RESYNC CTR 3528 STO WORK 1 , 24 LOAD MARK TIME OUT CTR 3531 STO FRU,ONES-6 LOAD LO GAIN CTR 3534 XFR WORK4,AR PUT SKEW CTR TO A BUS 3537 ADD FRU,O ADD TO CTR 3540 BOC NALCO,OKDOK CHK FOR OVERFLOW 3543 BU SETMIN 3547 OKDOK 3550 3553 SETMIN ADDM BOC STO FRU,4 NALCO,READ001 FRU,ONES-3 ASSURE MINIMUM CT FORCE MINIMUM CT F01MAY72 " 53 2/04/74 00021760 00021770 00021780 00021790 00021800 00021810 00021820 00021830 00021850 00021860 00021870 3556 *********************************************************************** 00021890 3557 * ."CYCLE WAITING FOR ROC ROTATN. IF IBG COMES ACTIVE, OR TIME QUT IS * 00021900 3558 * REACHED - SET START READ CHECK. AT APPROPRIATE POINT SET LO GAIN * 00021910 3559 *********************************************************************** 00021920 0002B5 24B5 3562 READ001 BOC RDTIME, READOO 1 0002B6 0002B7 0002B8 0002B9 0002BA 0002BB 0002BC 2FCO AOFF 20CO A901 21BD 8022 4042 3566 3569 3572 35753578 3581 3584 BOC ADD BOC ADD BOC ORI XFR IBG,SETRDERR ABEND IF IBG WORK1,ONES DECREMENT TIME OUT CTR DBUS,SETRDERR EXIT ON CTR 0 FRU,1 BUMP LOW GAIN CTR NALCO,READ002 BR ON NO CARRY XOUTAIM,LOGAIN+NOLOSS AGE LOW GAIN XOUTAIM,XOUTA SET LO GAIN 00021960 00021970 00021980 00021990 00022000 00022010 00022020 0002BD 0002BE 0002BF 0002CO 24B5 22C1 62BD 60AC 3588 READ002 3591 3594 3597 SETRDERR BOC BOC BU BU RDTIME,READ001 ROCROT,READ003 READ002 SETRDCHK 00022040 00022050 00022060 00022070 WAIT FOR READ TIME TO FALL WAIT FOR RD TIME TO RISE NORMAL EXIT ON FR BUF DATA 00021940 3600 ********************************************************************** 00022090 3601 * MARK HAS BEEN SEEN. DROP SYNC LINE TO DETECTION CIRCUITS * 00022100 3602 ********************************************************************** 00022110 0002C1 0002C2 0002C3 0002C4 CDEF 4042 24C5 62C3 3606 READ003 3609 3612 READ004 3615 0002C5 0002C6 0002(:7 0002C8 0002C9 2DCA AOFF 20CO 24C8 62C3 3619 READ0041 BOC 3622 ADD 3625 BOC 3628 READ0042 BOC 3631 BU AND XFR BOC BU XOUTAIM,ONES-SYNC XOUTAIM,XOUTA RDTIME,READ0041 READ004 RESET SYNC IMAGE DROP SYNC LINE WAIT FOR RD TIM DATARDY,READ0051 WORK1,ONES DBUS,SETRDERR RDTIME,READ0042 READ004 NORMAL EXIT DECREMENY CTR BR ON CTR ZERO WAIT TILL RD TIME FAL TO RISE 00022140 00022150 00022160 00022170 00022190 00022200 00022210 00022220 00022230 3634 ********************************************************************** 00022250 3635 * DATA TIME - WAIT FOR EOD WHILE COUNTING FOR RESYNC BURST. * 00022260 3636 ********************************************************************** 00022270 0002CA 28DF 3639 READ0051 BOC ENDATA,READ008 NORMAL EXIT 00022290 ROS2 PN 1846378 3803-2 MICROCODE LISTING LOC OBJECT CODE 0002CB 2FDE 0002CC 22CA 0002CD 0040 0002CE 2009 0002CF 28DF 000200 A201 000201 21009 000202 ED10 000203 4042 000204 9000 0002D5 3308 000206 02CF 000207 6209 000208 02FF 000209 22CA 0002DA 28DF 0002DB22CD 0002DC 2FDE 000200 62DA ADDR1 ADDR2 STMT 3642 3645 3648 3651 3654 3657 3660 3663 3666 3669 3672 3675 3678 3681 3684 3687 3690 3693 3696 SOURCE STATEMENT BOC IBG,NOENDERR BOC ROCROT,READ0051 TESTFWD ANDM XOUTAIM,FWDDATA BOC DBUS,READ007 BOC ENDATA,READ008 ADD WORK3,1 BOC NALCO,READ007 XO XOUTAIM,SYNC XFR XOUTAIM,XOUTA ORM XOUTAIM,O BOC SYNC,READ006 STO WORK3,ONES-48 BU READ007 .READ006 STO WORK3,ONES READ007 BOC ROCROT,READ0051 READ017 BOC ENDATA,READ008 BOC ROCROT,TESTFWD BOC IBG,NOENDERR BUREAD017 EC 736697 ERRRR EXIT WAIT FOR ROC ROTATIONS TEST FORWARD BIT BR IF BKWD OP NORMAL EXIT BUMP RESYNC CTR BR IF NOT TIME YET INVERT THE SYNC LINE SET OR RESET SYNC TEST LSR BR IF SYNC IS NOW ON LOAD FOR NEW RESYNC BURST PAGE F01MAY72 LOAD COUNT FOR RESYNC ACTIVE GO TO PROPER LOOP WATCH FO EOD WAIT FOR ROC ROTAIONS ERROR EXIT 54 2/04/74 00022300 00022310 00022320 00022330 00022340 00022350 00022360 00022370 00022380 00022390 00022400 00022410 00022420 00022430 00022440 00022450 00022460 00022470 00022480 3699 *********************************************************************** 00022500 3700 * EOD DETECTED N/ POASTAMBLE CHECK * 00022510 3701 *********************************************************************** 00022520 0002DE 8A04 0002DF 0002DF 60AD 3705 NOENDERR ORI 3707 READ008 EQU 3709 READ010 BU DTACHK2,PARTREC 0002EO 1CFB 3713 MODE6401 STO LINK 1 , SRETURN6 SET PARTIAL RECORD· 00022550 00022560 00022570 LOAD LINK RETURN-SETFWD 00022590 * SETLONOW { n A \, j f \. \ / :r------''\ j f" \ () ROS2 LOC 0002El 0002El 0002E2 0002E2 0002E3 0002E3 0002E4 0002E4 0002E4 0002E5 0002E5 0002E6 0002E6 0002E7 0002E7 0002E8 0002E8 0002E8 0002E9 0002E9 0002E9 0002EA 0002EA 0002EB 0002EB 0002EC 0002EC 0002ED 0002ED 0002EE 0002EE 0002EF 0002EF 0002FO 0002FO 0002FO 0002Fl 0002Fl 0002Fl 0002F2 0002F2 0002F3 0002F3 0002F4 0002F4 0002F5 3803-2 MICROCODE LISTING OBJECT CODE 0000 4060 0008 4024 0001 4060 06FE A601 21E8 4021 AOOO 4681 5681 4060 07FE A701 21FO 4781 4021 AOOO ADDRl ADDR2 PN 1846378 EC 736697 STMT SOURCE STATEMENT F01MAY72 3718 ******************************* FETCH STATUS SUBROUTINE *************** 3719 * THIS SUBROUTINE IS USED BY ANY ROUTINE REQUIRING SENSE DATA FROM * 3720 * THE DEVICE. TWO BYTES OF SENSE DATA WILL BE RETURNED AND CONTROL ** 3721 * RELINQUISHED TO THE CALLING ROUTINE VIA LINK REG 1. 3722 * * 3723 *********************************************************************** 3725 3727 3729 3731 3733 3735 3737 3738 3740 3742 3744 3746 3748 3750 3752 3754 3755 3757 3759 3760 3762 3764 3766 3768 3770 3772 3774 3776 3778 3780 3782 3784 3786 3788 3789 3791 3793 3794 3796 3798 3800 3802 3804 3806 3808 3810 STEPOO12 EQU * STO FCHSTS WORK1,0 STEPOO13 EQU * XFR WORK1,TUBO STEPOO14 EQU * STO WORK1,DEVSEL TUBODOWN EQU * STEPOO15 EQU * 1 , TUTAG XFR WORK STEPOO16 EQU * STO WORK1,1 STEPOO17 EQU * XFR FCHSNS WORK1,TUBO STEPOO18 EQU * STO SENSE1,ONES-l STEPOO19 EQU * STEP0021 EQU * HUPl ADD SENSE1,1 STEP0020 EQU * STEP0022 EQU * BOC NALCO,HUPl STEP0023 EQU * WORK1,AR FCHLAST XFR STEP0024 EQU * ADD WORK1,ZERO STEP0025 EQU * XFR SENSE1,TUBI STEP0026 EQU * XFRH SENSE1,TUBI STEP0027 EQU * FCHNEXT XFR WORK1,TUBO STEP0028 EQU * STO SENSE2,ONES-l STEP0029 EQU * STEP0031 EQU * ADD SENSE2,1 HUP2 STEP0030 EQU * STEP0032 EQU * BOC NALCO,HUP2 STEP0033 EQU * XFR SENSE2,TUBI STEP0034 EQU * WORK1,AR XFR STEP0035 EQU * WORK1,0 ADD STEP0036 EQU * CLEAR THE TU BUS OUT SET SELECT & RESET ALL OTHER TAGS IF THEY ARE ON SET FOR SENSE BYTE ZERO ***** XFER TO THE TAPE UNIT BUS OUT REG LOAD WAIT COUNT AND WAIT SHIFT BIT LEFT IF NOT FETCH 1ST SENSE BYTE AND PUT IT IN HIGH REG ALSO MOVE TO TAPE BUS OUT LOAD WAIT COUNT AND WAIT FETCH 2ND SENSE BYTE SET UP FOR SENSE OP PAGE 55 2/04/74 00022630 00022640 00022650 00022660 00022670 00022680 00022700 00022710 00022720 00022730 00022740 00022750 00022760 00022770 00022780 00022790 00022800 00022810 00022820 00022830 00022840 00022850 00022860 00022870 00022880 00022890 00022900 00022910 00022920 00022930 00022940 00022950 00022960 00022970 00022980 00022990 00023000 00023010 00023020 00023030 00023040 00023050 00023060 00023070 00023080 00023090 00023100 00023110 00023120 00023130 00023140 00023150 ROS2 LOC OBJECT CODE 0002F5 5C22 0002F6 0002F7 0002F8 0002F9 0002FA 0002FB 0002FC 0002FC ~. \. ) PN 1846378 3803-2 MICROCODE LISTING ADDR1 ADDR2 STMT 3812 3816 3818 3821 3824 3827 3830 3833 3835 3837 6101 61D6 6365 63F9 6014 6038 61A9 f~" SOURCE STATEMENT XFR LINK1,IC l \" EC 736697 PAGE FO 1MAY 72 RETURN TO CALLLER ********************** STATUS FETCH BRANCH TABLE ********************** STATUS 1 INIT STATUS RETURN SRETURN1 BU ** SNSRTN ENDVP RETURN SRETURN2 BU DEV END RETURN SRETURN3 BU POLL6 SRETURN4 BU SNSLINK RETURN TO SENSE ROUTINE SRETURN5 BU SETUP SRETURN6 BU READ AT LP RETURN SET FWD STEP0037 EQU * SRETURN7 BU ZAPIM "1j .c , ,.- \ t / <- , '\ ) 56 2/04/74 00023160 00023190 00023200 00023210 00023220 0002.3230 00023240 00023250 00023260 00023270 ..~) \. ROS2 3803-2 MICROCODE LISTING LOC OBJECT CODE 000300 ADDR1 ADDR2 PN 1846378 STMT 3840 EC 736697 SOURCE STATEMENT ORG BEGIN+X' 300' PAGE F01MAY72 3842 ********************************~********************* ***************** 3843 * THIS IS THE ENTRY POINT FOR WRITE DELAY VELOCITY CHECK AND * 3844 * FOR CHECKING DURING FC-3. * 3845 * * 3846 * THE ERROR EXIT IN THE CASE THE DRIVE DOES NOT ACHIEVE * 3847 * SPECIFIED VELOCITY IS SET VELOCITY ERROR AND ABORT TO * 3848 * ENDUP. * 3849 * * 3850 * THE NORMAL EXIT FOR FC-3 CHECK IS VIA STOP. * 3851 * THE ERROR EXIT SETS DATA CHECK AND RETURNS TO WRITE ROUTINE * 3852 * IF IBG COMES UP AN EXIT TO WRITE ROUTINE WILL BE TAKEN. * 3853 * * 3854 * NOTE: REGISTER 'SENSE1' IS USED IN THIS ROUTINE TO HOLD THE FLAGS * 3855 *********************************************************************** 3857 000300 000301 000302 000303 000304 1078 1118 9700 360A 3708 3875 000305 10AF 000306 110D 000307 630A 10CD 110A 5006 02FC * STOH STOH ORM BOC BOC COUNT FOR STOH STOH BU * * 75 IN WORK1,ONES-135 WORK2,24 SENSE2,0 ERO DREG6,SETHI DREG7,CNT200 SET VELOCITY COMPARE COUNTS IS THIS 75 IN BR IF SO BR IF 200 IN. 125 IN WORK1,ONES-80 WORK2,13 SETHI STOH STOH XFRH STO WORK1,ONES-50 WORK2,10 LSR WORK3,ONES-3 STO XFR ORI WORK5,ZERO WORK1,AR WORKS, 0 00023480 00023490 00023500 00023510 00023520 00023540 SET VELOCITY COMPARE COUNTS GO INITIAL COUNTS 00023560 00023570 00023580 00023600 SET VELOCITY COMPARE COUNTS SET TO THE HIGH REGISTERS SET INITIAL GO COUNT TRANSFER COUNT TO COUNTER REGISTER 3905 INITCNT 3908 3911 00023310 00023320 00023330 00023340 00023350 00023360 00023370 00023380 00023390 00023400 00023410 00023420 00023430 00023440 00023460 COUNT FOR 200 IN 3890 CNT200 3893 3896 SETHI 3899 SET4 3902 00030C 1500 00030D 4021 00030E 8500 COUNT FOR 3878 3881 3884 3887 000308 000309 00030A 00030B * 3860 CHKVEL 3863 3866 3869 3872 57 2/04/74 00023290 MOVE CONTENTS OF WORK 1 TO WORKS 00023620 00023630 00023640 00023650 00023670 00023690 00023700 00023710 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT PAGE EC. 736697 F01MAY72 SOURCE STATEMENT 58 2/04/74 3915 *********************************************************************** 00023740 00023750 THIS SUBROUTINE DOES THE COUNTING OF TIME FOR EACH LEVEL OF 3916 * 00023760 TACH FLIP FLOP. . 3917 * 3918 *********************************************************************** 00023770 00030F 000310 000311 000312 3921 BOC 3924 NTACHPRZ BOC 3927 ADD 3930 BOC 2619 273F A501 2117 3933 000313 000314 000315 000316 000317 000318 * BR IF ON POSITIVE PORTION RETURN TO WRITE IF PRESENT BUMP THE COUNTER AND BR IF OK BOC BOC BOC BU BOC BU TACHFF,CHKCNTS STOP,VELEXIT DEVATTN,UEXEND WAITL TACHFF,CHKCNTS NTACHPRZ 00023790 00023800 00023810 00023820 00023840 THE DRIVE WAS TOO SLOW 3936 WAITL 3939 3942 3945 3948 NPRZ 3951 2622 273F 3F2C 6313 2622 6310 TACHFF,TACHPRZ STOP,VELEXIT WORK5,ONE NALCO,NPRZ WAIT UNTIL TACHFF CHANGES CREASE TAPE EXIT BR IF DRIVE INTERRUPT HANG IN THERE BR IF SO NORMAL EXIT FROM LOOP BACK FOR NEXT COUNT 00023860 00023870 00023880 00023890 00023900 0002391.0 3954 *********************************************************************** 00023930 000319 00031A 00031B 00031C 3957 TACHPRZ 3960 3963 3966 273F 201B A501 2121 3969 00031D 00031 E 00031F 000320 000321 * STOP,VELEXIT RETURN TO WRITE IF PRESENT WORK5,ONE NALCO,PRZ BUMP COUNTER THE DRIVE WAS TOO SLOW (COUNT EXHAUSTED) 3972 WAIT1L 3975 3978 3981 3984 PRZ 3F2C 273F 261D 6322 2619 BOC NOP2 ADD BOC BOC BOC BOC BU BOC DEVATTN,UEXEND STOP,VELEXIT TACHFF,WAIT1L CHKCNTS TACHFF,TACHPRZ BR ON READY DROP CREASE TAPE EX WAIT UNTIL CONDITION NOT MET GO CHECK THE COUNT BR TO REMAIN IN LOOP 00023950 00023960 00023970 00023980 00024000 00024020 00024030 00024040 00024050 00024060 3987 *********************************************************************** 00024080 3988 * ENTRY TO CHECK THE COUNT. * 00024090 3989 *********************************************************************** 00024100 000322 000323 000324 000325 000326 000327 000328 000329 00032A 3992 CHKCNTS 3995 3998 4001 4004 4007 RECNT 4010 4013 TST28 4016 9600 342E A201 210C 8608 02FB 6332 A301 210C 40~8 4020 * * ORM BOC ADD BOC ORI STO BU ADD BOC BOC 4023 SETVELCK STO 4026 UEXEND XFR 00032B 1D01 00032C 4006 f~ / SENSE1,0 CNTRDY,TSTIME WORK3,ONE NALCO,INITCNT SENSE1,CNTRDY WORK3,ONES-4 WASTET WORK4,ONE NALCO,INITCNT STOP,HIOEXIT IS THIS INITIAL 4 COUNT BR IF NOT ADD FOR 1ST 4 COUNT BR IF NOT DONE YET SET TRACE TO INDICATE 4 COMPLETE RESET COUNT TO 4 GO CHECK THE GO COUNT ADD ONE TO 28 COUNT BR IF NOT TO LIMIT BR ON STOP TO GET OUT ***** SET VELOCITY ERROR ***** EQUIPCK,VELOCERR LSR SET VELOCITY ERROR IF SO SET LOW REGS 00024120 00024130 00024140 00024150 00024160 00024170 00024180 00024190 00024200 00024210 00024230 00024250 00024260 o ROS2 PN 1846378 3803-2 MICROCODE LISTING LOC OBJECT CODE 00032D 6247 ADDR1 ADDR2 STMT 4029 SOURCE STATEMENT BU UCKON PAGE EC 736697 F01MAY72 GO TERMINATE WRITE OP 59 2/04/74 00024270 4032 *********************************************************************** 00024290 00024300 4033 * ENTRY TO TEST TACH COUNT REG 4034 *********************************************************************** 00024310 00032E 00032F 000330 000331 000332 000333 000334 000335 000336 000337 000338 000339 00033A 00033B 00033C 00033D 00033E 3239 4121 B500 213B D680 2048 D601 3738 2F3F 630A 6337 C6DF 6332 D680 2045 8840 6334 4037 4040 4043 4046 4049 4052 4055 4058 4061 4064 4067 4070 4073 4076 4079 4082 4085 TSTIME BOC XFR ADDM WSTLOOP BOC ANDM WASTET BOC ANDM CKFC3 BOC BOC DLYSETHI BU DLYNRZ BU REFIRST AND BU NOTGOOD ANDM BOC ORI BU FIRST,REFIRST WORK2,AR WORK5,ZERO NALCO,NOTGOOD SENSE1,DATATIM DBUS,TSTGO SENSE1,MK800 MK800,DLYNRZ IBG,VELEXIT SETHI DLYSETHI SENSE1,ONES-FIRST WASTET SENSE1,DATATIM DBUS,RETRY MPGMERR,EXVCHG CKFC3 BR IF THIS IS 1ST PASS DURING FC-3 TEST FOR THE DRIVE TOO FAST BR IF SO IS THIS DURING WRT DATA BR IF NOT ARE WE NRZI BR IF NRZI BR IF FC-3 AND IBG UP OTHERWISE GO RESET 4 COUNT EQUALIZE FOR NRZI LEG RESET THE 1ST PASS FLAG GO RESET TO 4 GO COUNT IS THIS DURING DATA TIME BR IF NOT SET ERROR GO BACK TO CHECK IBG 00024330 00024340 00024350 00024360 00024370 00024380 00024390 00024400 00024410 00024420 00024430 00024440 00024450 00024460 00024470 00024480 00024490 4088 *********************************************************************** 00024510 4089 * NORMAL EXIT TO RETURN TO WRITE ROUTINE 00024520 4090 *********************************************************************** 00024530 00033F 000340 000341 000342 000343 000344 D680 204B 4006 3844 2385 6671 4(J93 VELEXIT 4096 4099 4102 4105 4108 VELEXIT1 ANDM BOC XFR BOC BOC BU SENSE1,DATATIM DBUS,WAITLOP LSR 6250,VELEXIT1 NRZFEAT,CKNORPE WRITE28 IS THIS WRITE DELAY BR IF SO SET LOW LSR'S BR IF BIRCH BR TO CHECK DENSITY FOR RETURN 6400 RETURN 00024550 00024560 00024570 00024580 00024590 00024600 4111 *********************************************************************** 00024620 4112 * USE DURING 28 COUNT IF VEL IS OUT OF SPEC. 00024630 4113 *********************************************************************** 00024640 000345 0401 000346 02FC 000347 6329 4116 RETRY 4119 4122 STO STO BU STATIMG,VELTRY WORK3,ONES-3 TST28 SET ERROR ON IN REG TO SAVE SET COUNT AGAIN GO BUMP THE 28 COUNT 00024660 00024670 00024680 4125 *********************************************************************** 00024700 4126 * THIS IS THE NORMAL EXIT FOR 8 COUNT IN WRT DELAY. * 00024710 4127 *********************************************************************** 00024720 000348 A201 000349 2129 00034A 67F9 4130 TSTGO 4133 4136 ADD BOC BU WORK3,ONE NALCO,TST28 VELOCOK IS THE GO COUNT DONE BR IF NOT 00024740 00024750 00024760 00034B 261D 00034C 6313 4140 WAITLOP 4143 BOC BU TACHFF,WAIT1L WAITL RETURN TO PROPER WAIT LOOP TO COUNT ONE TACH 00024780 00024790 ROS2 LaC ~. ~ ) 3803-2 MICROCODE LISTING ADDRl ADDR2 OBJECT CODE ;; ~, PN STMT \ "'- EC 736697 PAGE F01MAY72 / ~ / 1846378 SOURCE STATEMENT ) " '\ ! 60 2/04/74 t'J ROS2 LOC 000340 00034E 00034F 000350 000350 000351 000352 000353 000354 000355 000356 000357 000358 000359 00035A 00035B 00035C 000350 00035E 3803-2 MICROCODE LISTING OBJECT CODE PN 1846378 EC 736697 PAGE STMT 4146 4147 4148 4149 4150 4151 4152 4153 4154 4155 4156 4157 4158 4159 4160 4161 4162 4163 4164 SOURCE STATEMENT F01MAY72 ************************** SCAN FOR DEVICE ENDS *********************** * SEARCH FOR DEV ENDS REQUIRES MAXIMUM COMMUNICATION BETWEEN THE TWO * * ALUS. ALU2 SEARCHS HIS DEPRIME REGS FOR BITS. WHEN HE FINDS ONE, * * THE ADDRESS IS PASSED TO ALU1 VIA XOUTB AND A WAIT IS INITIATED * * WHILE ALU1 SELECTS THE DEVICE. WHEN ALU1 HAS THE DEVICE SELECTED, * * ALU2 IS KICKED OFF TO DETERMINE THE DEVICE STATUS. IF A LIVE DEV * * END IS FOUND,ALU2 AGAIN RETURNS TO ALU1 WITH STAT C ON * * IF NO DEV END IS FOUND FOR THAT DEVICE, A DIFFERENT ADDRESS * * WILL BE PLACED IN XOUTB (NEXT POSSIBLE DEl.WHEN ALU2 RETURNS TO ALU1* * AFTER RUNNING OUT OF DE PRIMES,STATD WILL BE SET. * * * * ALU1 STATS ALU2 STATS * * A A * * B INTERFACE B B DE PRIME FOUND - WAIT * * C STEP ALU2 C DEVICE FREE * * 0 0 FINISHED * * * * * *********************************************************************** EXEC POLL STO STOH EXECPULL STO POLL 1 EQU XFR BOC WORK2,0 WORK3,0 TUADDR,1 4F21 2B54 9000 4E21 DBOO 2086 4141 8404 4428 4167 4170 4173 4175 4177 4180 4183 4186 4189 4192 4195 4198 4201 POLL2 POLL3 LODEPA,AR TUADDR,O DBUS,POLLNEXT WORK2,XOUTB STATIMG,SETSTATB STATIMG,STAT 3A59 3A5C 635A C4FB 4428 3E83 4204 4205 4206 4207 4209 4212 4215 4218 4221 4224 *********************************************************************** * WARNING DO NOT SINGLE STEP THROUGH NEXT INSTRUCTIONS IF MORE THAN * * ONE PRIME *********************************************************************** WTEONC BOC STATC,WTEONC WAIT FOR STATC TO GO OFF POLL4 BOC STATC,POLL5 WAIT FOR ALU1 BU POLL4 STAT C TO COME ON POLL5 AND STATIMG,ONES-SETSTATB XFR STATIMG,STAT TRN OFF STAT B BOC BSYTACH,POLLSTEP BR IF SWITCHED 0100 1200 OB01 ADDR1 ADDR2 Nap 1 POLL10 XFR ANDM BOC XFR ORI XFR * LODEPB,AR STATB,POLL3 CLEAR LSR TO HOLD TU ADDR CLEAR FLAG SET UP TUADDR LSR DO WE HAVE A DEV END B SKIP RESET AR DO WE HAVE A DEV END A DREG NOT ZERO SAYS DEV END BR IF NOT SEND DEV ADDRESS RO ALU1 TELL ALU1 SET STAT B 61 2/04/74 00024810 00024820 00024830 00024840 00024850 00024860 00024870 00024880 00024890 00024900 00024910 00024920 00024930 00024940 00024950 00024960 00024970 00024980 00024990 00025010 00025020 00025030 00025040 MIS* 00025050 MIS* 00025060 MIS* 00025070 00025080 00025090 00025100 00025110 00025120 00025130 00025150 00025160 00025170 00025180 00025190 00025200 00025210 00025220 00025230 00025240 4227 *********************************************************************** 00025260 4228 * GO SEE IF DEVICE IS PULSING - IF SO DO NOT PRESENT DEV END * 00025270 4229 *********************************************************************** 00025280 00035F 0003.60 000361 000362 1C36 1937 6126 1CF8 4232 4235 4238 4241 GOGETIM STO STO BU STO LINK1,PRETURN2 LINK2,PRETURN4 CHKPULSE LINK1,SRETURN3 SET FOR PULSE RET-POLLSTEP SET FOR NO PULSE RET-SKIPB M RETURN TO POLL6 00025300 00025310 00025320 00025330 ROS2 LOC 000363 000364 000365 000366 000367 000368 000369 00036A 00036B 00036C 00036D 00036E 00036F 000370 000370 000371 PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE 4006 62El 2A90 3E83 0004 4060 A055 2169 4681 346E 8404 8402 4428 3B72 6370 ADDRl ADDR2 STMT 4244 4247 4250 4253 4256 4259 4262 4265 4268 4271 4274 4277 4280 4282 4284 4287 SOURCE STATEMENT XFR LSR FCHSTS BU STATA,SETHIMOD POLL6 BOC BSYTACH,POLLSTEP POLL66 BOC WORK1,4 POLLALL STO XFR WORK1,TUBO WORK1,85 BBB ADD BOC NALCO,BBB SENSE 1 , TUBI XFR DREG4,DRVUNTCK BOC DEVDONE ORI STATIMG,SETSTATB STATIMG,SETSTATC DRVUNTCK ORI STATIMG,STAT XFRSTAT XFR POLLMTIX EQU * BOC STATD,DOINDE POLLMTIX BU EC 736697 PAGE F01MAY72 ASSURE LOW GO GET SNS BYTES BR IF HI ADDR SET TO CHECK ASK FOR SNS BUTE 2 USE WKl FOR TIMER BACK TWICE BRING IN SENSE BYTE 2 BR IF NOT WE HAVE A LIVE DEV END SET STATC ON NOT READY CONDo TELL ALUl GO WAIT TO RESET THE DEV END IS STATD ON WAIT FOR IT 62 2/04/74 00025340 00025350 00025360 00025370 00025380 00025390 00025400 00025410 00025420 00025430 00025440 00025450 00025460 00025470 00025480 00025490 4290 *********************************************************************** 00025510 4291 * IF THE TAPE UNIT INTERRUPT IS ON - TAPE WILL BE ISSUED A RESET * 00025520 4292 * ON GO AHEAD FROM ALU1,THE DEVICE END PRIME WILL BE RESET * 00025530 4293 *********************************************************************** 00025540 000372 000373 000374 000375 000376 000377 000378 000379 00037A 00037B 00037C 00037D 00037E 00037F 000380 000381 000382 000383 000384 000385 000386 000387 000388 000389 00038A 00038B 00038C 00038D 00038E 00038F 000390 000391 DOFF 4B21 EOOO 4021 2B79 CEOO 637A CFOO 3F7E 5221 8400 61E9 100A 1102 5160 5024 61CB 1204 1900 5924 Al0l 4B21 ABOO 2150 2A7B 5006 8408 4428 0108 634F 5006 6366 4296 4299 4302 4305 4308 4311 4314 4317 4320 4323 4326 4329 4333 4336 4339 4342 4345 4348 4351 4354 4358 4361 4364 4367 4370 4373 4376 4379 4382 4385 4388 4391 DOINDE FINDTU7 FINDTU77 POLLS TOP SNSTOP RESETTU POLLSTEP SKIPB POLLNEXT SETHIMOD "" / / STO XFR XO XFR BOC AND BU AND BOC XFRH ORI BU STOH STOH XFRH XFRH BU STOH STO XFR ADD XFR ADD BOC BOC XFRH ORI XFR STO BU XFRH BU WORK1,ONES SET MASK TO GET TUADDR,AR ONES COMPLEMENT WORK1,0 OF THE ADDR WORK1,AR TO RESET THE PRIME STATB,FINDTU7 BR IF INTERFACE B LODEPA,O TRN OFF DEV END A FINDTU77 ALL DONE AND RESET ALL STATS LODEPB,O TRN OFF DEV END B BR IF MTI ON DEVATTN,RESETTU WORK3,AR PUT FLAG STATIMG,O INTO SETD STAT REG WORK1,DEVSEL+COMMAND RESET WORK2,RESET OUTSTANDING INTERRUPT WORK2,TUBO WORK1,TUTAG TAPE UNIT EXECABRT SET FLAG (HOLD INTERFACE) WORK3,SETSTATB CLEAR DEVICE LINK2,0 LINK2,TUTAG SELECT WORK2,1 BUMP TU ADDR BY 1 BUMP TU ADR BY 1 TUADDR,AR TUADDR,O BY PROPAGATION BR TO DO NEXT DEV NALCO,POLLl STATA,POLLSTOP BR OUT ON 2ND PASS LSR SET HI STATIMG,SETSTATA TRN ON STAT A ON FIRST PASS TO ALLOW BR ON SECOND PASS STATIMG,STAT TRN ON HIGH ORDER SEL BIT WORK2,8 GO RUN 2ND PASS EXECPULL LSR SET HI POLL66 \ 00025560 00025570 00025580 00025590 MIS* 00025600 00025610 00025620 MIS* 00025630 00025640 00025650 00025660 00025670 00025690 00025700 00025710 00025720 00025730 00025740 00025750 00025760 00025780 00025790 00025800 00025810 00025820 00025830 00025840 00025850 00025860 00025870 00025880 00025890 (1 '- ~/ ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN STMT SOURCE STATEMENT 1846378 EC 736697 PAGE F01MAY72 63 2/04/74 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 000392 000393 000394 000395 000396 000397 000398 000399 4C21 5821 8400 D4F6 2098 8108 299A 8101 4403 SNS41 4406 4409 4412 4415 4418 SNS42 4421 SNS5 4424 00039A 00039B 00039C 000390 00039E 00039F 0003AO 0003A 1 0003A2 0003A3 0003A4 0003A5 0003A6 0003A7 0780 2090 8210 0610 20AO 8208 0608 20A3 8204 9600 31A6 8202 19A8 63EF 4428 4431 4434 4437 4440 4443 4446 4449 4452 4455 4458 4461 4464 4467 SNS6 SNS7 SNS8 SNS9 SNSB 4470. 0003A8 0003A9 0003AA 0003AB 0003AC 0003AD 0003AE 0003AF 0003BO 0003Bl 0003B2 0003B3 0003B4 0003B5 4473 4476 4479 4482 4485 4488 4491 4494 4497 4500 4503 4506 4509 4512 0210 5821 C200 9700 33AE 8204 0680 20Bl 8202 19B6 3CB4 8208 5742 63FO ~ SNSC2 SNSD SNSE SNSLES \ / () 64 2/04/74 00025910 00025920 00025930 00025940 00025950 00025960 00025970 XFR XFR ORI ANDM BOC ORI BOC ORI DTACHK1,AR MPGMERR,AR STATIMG,ZERO STATIMG,X'F6' DBUS,SNS5 WORK2,DATACK NCONVCK,SNS6 WORK2,CONVCK LOOK FOR ANY DATA CHECKS BR IF NO DATA CHECKS SET DATA CHECK ON BR IF NOT DATA CONVERTER CHECK SET THE ERROR 00025990 00026000 00026010 00026020 00026030 00026040 00026050 00026060 ANDM BOC ORI ANDM BOC ORI ANDM BOC ORI SENSE2,SEVTRK DBUS,SNS7 WORK3,SEVENTRK SENSE1,BOT DBUS,SNS8 WORK3,LDPT SENSE1,WRSTAT DBUS,SNS9 WORK3,WRSTA SENSE1,ZERO NFP,SNSB WORK3,FP LINK2,SNSC SNSWAIT IS THIS 7 TRK DR. BR IF NOT SET ON IF SOCU IS THIS BEGIN OF TAPE DR BR IF NOT SET LOAD POINT ON CU IS WRITE STATUS ON DR BR IF NOT SET ON IF SO. CU IS DRIVE FILE PROTECTED BR IF NOT SET FILE PROTECT ON RETURN TO SNSC GO SEND BYTES 0 AND 1 00026080 00026090 00026100 00026110 00026120 00026130 00026140 00026150 00026160 00026170 00026180 00026190 00026200 00026210 ORM BOC ORI STO BU STO XFR AND ORM BOC ORI ANDM BOC ORI STO BOC ORI XFR BU • 00026230 SET UP MASK FOR END DATA CHK SET REG TO AR TO TEST AND IF ON WILL REMAIN ON IS UNIT NOT PHASE ENCODED DR BR IF SO (NRZI) SET PE ON CU IS UNIT BACKWARD DR BR IF NOT SET ON IF SO CU RETURN TO SNSF BR IF NO LOSS OF ENV SET ENV ERROR • UC • GO SEND BYTES 2 AND 3 WORK3,ENDATAER MPGMERR,AR WORK3,ZERO SENSE2,ZERO NOTPE,SNSD WORK3,PE SENSE1,BACKWD DBUS,SNSE WORK3,BKWD LINK2,SNSF NENVLOS,SNSLES WORK3,X'08' TIEBYTE,XOUTA WAIT4 AND STO XFR 00026250 00026260 00026270 00026280 00026290 00026300 00026310 00026320 00026330 00026340 00026350 00026360 00026370 00026380 • 00026400 SENSE BYTE 4 AND 5 4518 SNSF 4521 4524 () PAGE SENSE BYTE 2 AND 3 SNSC 4515. 0003B6 C622 0003B7 0140 0003B8 5021 EC 736697 STMT SOURCE STATEMENT F01MAY72 4394 •••••••••••••••••••••••••••• SENSE ROUTINE •••••••••••••••••••••••••••• 4395 • • 4396. THIS ROUTINE WILL ASSEMBLE AND PRESENT TO ALUl THE SENSE BITS FROM • 4397. ALU2 AND/OR THE DRIVE. • 4398. THE SENSE BITS WILL BE PRESENTED IN XOUTA OR XOUTB IN THE PROPER • 4399. POSITION TO BE OR'ED INTO THE CONTROL UNIT SENSE BYTE. • 4400 ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• CLEAR ALL BITS BUT THESE TWO SET MASK IN REG PUT EQUIPMENT CHK ON AR SENSE1,EOT+DEVCHK WORK2,REJTU EQUIPCK,AR / '\ , ) 00026420 00026430 00026440 A '\ / ~ , , ROS2 3803-2 MICROCODE LISTING LOC 0003B9 0003BA 0003BB 0003BC 0003BD 0003BE 0003BF 0003CO 0003Cl OBJECT CODE ClOD 4621 4521 8100 19C2 2DCO 8201 4A21 63EE 0003C2 0003C3 0003C4 0003C5 0003C6 0003C7 0003C8 4742 19C6 lCF9 62E6 19C9 4641 63Fl 0003C9 0003CA 0003CB 0003CC 0003CD 0003CE 4C42 8240 5821 C200 19CF 63FO ADDRl ADDR2 PN 1846378 STMT SOURCE 4527 4530 4533 4536 4539 VRCOONE 4542 4545 4548 SKIPRPQ 4551 4554 * 4557 4560 4563 4566 4569 4572 4575 SNSG 4578 * 0003CF 000300 000301 0003D2 0003D3 01BD 5D21 C100 19D4 63EF AND MASK AND AR PUT BITS ON AR TO PASS TO REG RETURN TO SNSG SET RPQ BIT PUT REG IN AR GO SET IN WORK3 XFR ORI XFR AND STO BU DTACHK1,XOUTA WORK3;EXVCHG MPGMERR,AR WORK3,ZERO LINK2,SNSK WAIT4 STO XFR AND STO BU PASS REG TO XOVER RETURN TO SNSH RETURN TO SNSLINK GO PULL 2 BYTES OF SENSE SET RETURN TO SNSJ PASS SENSE 1 TO XOVER GO FINISH * 4629 SNSM 4632 SNSN 4635 STO XFR BU 00026760 00026770 00026780 00026790 00026800 00026820 RETURN AFTER SENDING 2 BLANK BYTES 00026840 00026850 00026870 SENSE BYTES 14 AND 15 LINK2,SNSO SENSE2,AR POSBYTE 00026670 00026680 00026690 00026700 00026710 00026720 00026740 WORK2,ONES-REJTU-PERR MASK IN REG EQUIPCK,AR PUT ERROR REG ON AR WORK2,ZERO AND MASK AND AR LINK2,SNSL RETURN TO SNSL SNSWAIT GO PASS TO X OVERS LINK2,SNSM SNSWAIT 00026570 00026580 00026590 00026600 00026610 00026620 00026630 00026650 PASS ERROR REG TO XOVER SET MASK IN REG PUT ERROR REG ON AR AND MASK AND AR SET RETURN TO SNSK GO FINISH SENSE BYTES 12 AND 13 STO BU 65 2/04/74 00026450 00026460 00026470 00026480 00026490 00026500 00026510 00026520 00026530 00026550 SENSE BYTES 10 AND 11 4620 SNSL 4623 4626 0003D6 19D9 0003D7 4721 0003D8 63EE * SENSE2,XOUTA LINK2,SNSH LINK 1 , SRETURN4 FCHSNS LINK2,SNSJ SENSE1,XOUTB WAITO PAGE F01MAY72 SENSE BYTES 8 AND 9 4602 SNSK 4605 4608 4611 4614 4617 000304 19D6 000305 63EF XFR STO SCANLINK STO BU SNSH STO SNSI XFR BU * EC 736697 SENSE BYTES 6 AND 7 4581 SNSJ 4584 4587 4590 4593 SKIPSDR 4596 4599 STATEMENT AND WORK2,ZERO XFR SENSE1,AR XFR FLAGS,AR ORI WORK2,ZERO STO LINK2,SNSG BOC NRPQ,SKIPRPQ WORK3,1 ORI XFR DTACHK2,AR BU POSBYTE RETURN TO SNSO GET TU SERIAL NO-HIGH GO FINISH 00026890 00026900 00026910 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 0003D9 0003DA 0003DB 0003DC 0003DD 19DB 62E6 4642 19DE 63FO 19E4 4742 4F41 2BFl 4E41 63F1 19E6 62E6 19EC 4741 5F42 2BFl 5E42 63Fl * * STO BU XFR STO BU F01MAY72 STO XFR XFR BOC XFR BU RETURN TO SNSP PULL 2 BYTES FROM DRIVE PASS TU SERIAL NO.-LOW RETURN TO SNSQ GO FINISH * RETURN TO SNSS PASS SENSE2 TO X OVER PASS DEV END PRIMES LOW INTF B BE IF B INTERFACE PASS DEV END PRIMES LOW INTF A GO FINISH 00026960 00026970 00026980 00026990 00027000 00027040 00027050 00027060 00027070 00027080 00027090 00027110 LINK2,SNSS FCHSNS LINK2,SNSV SENSE2,XOUTB LODEPB,XOUTA STATB,WAITO LODEPA,XOUTA WAITO RETURN TO SNSS GO GET THE LOAD AND THREAD BYTE RETURN TO SNSV PASS DRIVE LOAD BYTE TO XOVER PASS DEV END PRIMES HI INTF B BR IF B INFT PASS DEV END PRIMES 8-15 INTF A GO FINISH SENSE BYTES 22 AND 23 00027130 00027140 00027150 00027160 00027170 00027180 00027190 00027200 00027220 LINK2,DALONE FRU,AR 4708 SNSV 4711 0003EE 8200 4715 POSBYTE ORI WORK3,ZERO PUT THE AR INTO WORK3 4717 *********************************************************************** 4718 * USE THIS SUBROUTINE TO SEND 2 BYTES TO ALU1 * 4719 *********************************************************************** 00027270 00027280 00027290 00027300 0003EF 0003FO 0003Fl 0003F2 0003F3 0003F4 0003F5 0003F6 0003F7 0003F8 0003F9 0003FA 0003FB 0003FC 4722 4725 4728 4731 4734 4737 4740 4743 4746 4749 4752 4755 4758 4761 00027320 00027330 00027340 00027350 00027360 00027370 00027380 00027390 00027400 00027410 00027420 00027430 00027440 00027450 SNSWAIT WAIT4 WAITO WAIT1 WAIT5 WAIT2 SNSLINK DALONE XFR XFR STO XFR BOC BOC BU XFRH BOC BOC STO STO XFR BU WHEN RETURN MADE SET STAT D SET UP TO PASS EM 00027240 00027250 0003EC 19FC 0003ED 4921 4142 4241 0402 4428 3BF6 27FC 63F3 5428 27FC 3BF7 0100 0200 5922 6011 STO XFR 2/04/74 00027020 LINK2,SNSR SENSE2,XOUTA LODEPB,XOUTB STATB,WAITO LODEPA,XOUTB WAITO SENSE BYTES 20 AND 21 STO BU STO XFR XFRH BOC XFRH BU 66 00026940 LINK2,SNSP FCHSNS SENSE1,XOUTA LINK2,SNSQ WAIT4 SENSE BYTES 18 AND 19 4681 SNSR 4684 4687 SNSS 4690 SNST 4693 4696 4699 4702 4705 PAGE SENSE BYTES 16 AND 17 4660 SNSQ 4663 4666 4669 4672 4675 4678 0003E4 0003E5 0003E6 0003E7 0003E8 0003E9 0003EA 0003EB * 4642 SNSO 4645 4648 SNSP 4651 4654 4657 0003DE 0003DF 0003EO 0003E1 0003E2 0003E3 SOURCE STATEMENT STMT 4639 .EC 736697 WORK2,XOUTA WORK3,XOUTB STATIMG,SETSTATC STATIMG,STAT STATD,WAIT5 STOP,DALONE WAIT1 STATIMG,STAT STOP,DALONE STATD,WAIT2 WORK2,ZERO WORK3,ZERO LINK2,IC SETDLONE PASS BYTE TO ALU1 PASS BYTE TO ALU1 TURN ON STATC FOR ALU2 WHEN D COMES ON GO BR IF STOP IS ON GET NEXT SENSE BYTES CLEAR STATS BR IF STOP IS ON WAIT UNTIL STATD GOES OFF. CLEAR XOUTB INPUT REG CLEAR XOUTA INPUT REG RETURN VIA LINK GO SET STAT D " / ROS2 3803-2 MICROCODE LISTING LOC OBJECT CODE 000400 000400 5A22 ADDR1 ADDR2 PN 1846378 STMT SOURCE STATEMENT 4764 ORG BEGIN+X'400' 4766 NRZILINK XFR LINK3,IC 4769 4770 4771 4772 4773 4774 4775 EC 736697 PAGE F01MAY72 67 2/04/74 00027470 00027480 THIS IS THE RETURN FOR ALL NRZI RTN ***************READ OPERATION - NRZI*********************************** 00027500 00027510 00027520 00027530 00027540 00027550 *********************************************************************** 00027560 * * * * * SET READ CONDITION. THEN WAIT FOR END DATA. FILE SEARCHES CYCLE THE READ OP UNTIL A TM IS DETECTED. SINGLE BIT NOISE REJECTION IS ACCOMPLISHED VIA MICRO CODE TWO DATA RDYS MUST BE SEEN BEFORE ENDDATA OR THE DATA IS IGNORED * * * * * 000401 625D 000402 0100 4778 XXXXX 4781 ISNRZI BU STO NOTCOMP WORK2,0 OTHERWISE SET NOT CAP CLEAR NOISE BIT ALU1 00027580 00027590 000403 000404 000405 000406 000407 000408 000409 00040A 00040B D780· 2007 2501 8410 8440 4428 2DOC 3F3B 6409 4785 4788 4791 4794 4797 ISNRZI3 4800 XFRFOP 4803 NRZILOOP 4806 4809 ANDM BOC BOC ORI ORI XFR BOC BOC BU SENSE2,SEVTRK DBUS,ISNRZI3 NSEVEN,XXXXX STATIMG,NRZI7 STATIMG,PERMRDWT STATIMG,STAT DATARDY,SEENONEl DEVATTN,ABEND800 NRZILOOP ARE WE 7 TRK BR IF NOT 00027610 00027620 00027630 00027640 00027650 00027660 00027670 00027680 00027690 00040C 00040D 00040E 00040F 2DOC 2D10 283D 640D 4813 SEENONEl BOC 4816 SEENONE BOC 4819 BOC 4822 BU DATARDY,SEENONE1 DATARDY,ENDSOON ENDATA,STRTOVER SEENONE WAIT FOR FALL WATCH FOR FIRST CHAR GATE SINGLE BYTE NOISE REJ 00027710 00027720 00027730 00027740 4826 END SOON 4829 4832 BOC BOC BU ENDATA,CHKFOP DEVATTN,ABEND800 END SOON WATCH FOR SECOND CHAR GARE WATCH FOR RDY DROP 00027760 00027770 00027780 BOC ORM BOC ORI ISFOP800 BU NOMARKER ORM BOC NTM,NOMARKER TRACER, 0 DREG5,ISFOP800 STATIMG,SETSTATB STOPNRZI TRACER, 0 DREG5,NRZIFOP DO WE HAVE A TM TM DECTED --- CHK FOR FILEOP SKIP NEXT INSTRUCTION IF YES SET UNIT EXCEPTION GO TO NORMAL END NO TM, ARE WE A FILE SEARCH BR IF YES TO INITIATE NEW READ 00027800 00027810 00027820 00027830 00027840 00027850 00027860 000410 2813 000411 3F3B 000412 6410 000413 000414 000415 000416 000417 000418 000419 3D18 9800 3517 8404 641B 9800 353E 4836 4839 4842 4845 4848 4851 4854 4857 4858 4859 4860 4861 4862 4863 4864 4865 4866 CHKFOP ISITFOP SET 7 TRK CONTROL SET READ CONDITION TO DATA FLOW NORMAL EXIT LOAD POINT OR RDY DROP EXIT TRY AGAIN *********************************************************************** 00027880 * * * * * * * STOP DELAY IS SUCH THAT ON END DATA SIGNAL MOVE IS DROPPED AND THE* READ BUS IS MONITORED FOR APPROXIMATELY 20 BIT CELLS. IF ANY DATA IS DETECTED MOVE WILL BE RAISED AGAIN. IF DATA IS NOT DETECTED, A * NORMAL ENDING ENSUES. IF MOVE IS RAISED WE WILL HAVE TO GO FOR 20 * BIT CELLS WITHOUT SEEING DATA BEFORE WE WILL DROP IT AND TRY FOR * A NORMAL ENDING AGAIN. EACH TIME DATA IS DETECTED WITH MOVE UP, THE * COUNTER IS RESET. * 00027890 00027900 00027910 00027920 00027930 00027940 00027950 *********************************************************************** 00027960 * SET UP FOR STOP DELAY 00027970 ROS2 LOC 00041A 00041B 00041C 000410 00041E 00041F 000420 PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE 3A2E 02EC 1540 5560 1C33 1508 5524 ADDR1 ADDR2 4870 4873 4876 4879 4882 4885 4888 NRZISTOP BOC STOPNRZI STO NRZISTAR STO XFR MOVEDOWN STO STO XFRTAGS XFR 4891 * STATC,TOIBG800 WORK3,ONES-19 WORK5,DVESNS6 WORK5,TUBO LINK1,ENDREAD WORK5,DEVSEL WORK5,TUTAG 000421 0300 000422 4221 000423 A300 O()0424 2427 000425 2D2F 000426 6424 4904 CNTLOOP 4907 4910 BOC BOC BU 000427 000428 000429 00042A A301 212B 3F3B 5C22 4914 4917 4920 4923 00042B 00042C 00042D 00042E 2D2F 242B 6424 6544 4927 GOSOMOR 4930 4933 4936 TOIBG800 4939 000433 000434 000435 000436 000437 000438 000439 00043A 00043B 00043C 3D35 6436 4018 C43F 4428 2945 8402 61Dl 0100 6439 00043D BCOl 00043E 3F3B DIAG HOOK MEAS IBG OTHERWISE SET UP FIR 800BPI ASK FOR TACH PULSES AND READ BUS FROM TU SET FOR RETURN DROP MOVE LOAD TUTAG INITIALIZE COUNT STO WORK4,O XFR WORK3,AR ADD WORK4,O 0101 1509 lC1E 6420 PAGE 68 SOURCE STATEMENT STMT FO 1MAY 72 2/04/74 4867 *********************************************************************** 00027980 4894 4897 4900 00042F 000430 000431 000432 EC 736697 (',() 00028080 CLEAR CTR AND LOAD TIME OUT CT 00028100 00028110 00028120 RDTIME,GO DATARDY,MOVEUP CNTLOOP WAIT RD TIME TO RISE 00028140 00028150 00028160 ADD BOC BOC XFR WORK4,1 NALCO,GOSOMOR DEVATTN,ABEND800 LINK1,IC BUMP CTR & BR IF NOT DONE ERROR OR LP EXIT EXIT 00028180 00028190 00028200 00028210 BOC BOC BU BU DATARDY,MOVEUP RDTIME,GOSOMOR CNTLOOP NRZIIBG WAIT FOR READTIME TO FALL 00028230 00028240 00028250 00028260 * 4942 MOVEUP 4945 4948 4951 00028000 00028010 00028020 00028030 00028040 00028050 00028060 STO STO STO BU ***** SET NOISE ERROR ***** 00028280 WORK2,1 SE WORK5,DEVSEL+MOVE LINK 1 , MOVEDOWN XFRTAGS 00028300 00028310 00028320 00028330 TRN ON NOISE ERROR SET UP TO RAISE MOVE SET UP RETURN 4954 * 4957 4960 4963 4966 4969 4972 4975 4978 4981 4984 ENDREAD BOC BU ENDREAD2 XFR ENDREAD3 AND XFR ALLDONE BOC END ERR ORI ALLDONE1 BU ABEND800 STO BU NTM,ENDREAD2 BR IF NO TM READ ENDREAD3 STROBE CRC ERROR LATC BUFFCRC STATIMG,ONES-TAPEOP-PERMRDWT RESET TAPE OP STATIMG,STP IS DATA CONV CHECK ON NCONVCK,CHK RC SET UNIT CHECK IF SO STATIMG,SETSTATC ENDUP800 WORK2,O END ERR 4987 * ***** SET RESTART ***** 00028480 DTACHK1,RESTART DEVATTN,ABEND800 00028500 00028510 END OR READ OP - DROP TAPE OP AND READ COND , THEN EXIT TO CHK CRC ** 00028350 4990 STRTOVER ORI 4993 NRZIFOP BOC ************ SET RETRY BIT CHK FOR RDY DROP OR BKWD AT LP f .~ \ /' 00028370 00028380 00028390 00028400 00028410 00028420 00028430 00028440 00028450 00028460 ROS2 Inc OHJ r.CI CODr. 00043F 4009 000440 4009 000441 000442 0001.43 000444 PN 1846378 3803-2 MICROCODl'. LISTING C47I4428 8480 6408 ADllRl ADDR2 EC 736697 PAGE 69 2/04/74 SOURCE STATEMENT F01MAY72 STMT XFR RESETERR REEET SENSE DATA 00028520 4996 00028530 4999 XFR RESETERR REEET SENSE DATA 5001 *********************************************************************** 00028540 5002 * READ OP COMPLETE-FILE SEARCH ACTIVE & NO 'I'M DETECTED. RE-INITIALIZE * 00028550 * 00028560 5003 * DATA FLOW TO READ ANOTHER RECORD. 5004 *********************************************************************** 00028570 00028580 AND STATIMG,ONES-TAPEOP RESET TAPE OP 5006 00028590 XFR STATIMG,STAT MOMENTARILY 5009 00028600 ORr STl\TIMG,TAPEOP BRING TAPE OP 5012 00028610 BU XFRFOP GO READ NEXT RECORD 5015 5019 ************** FOUND TRACK - 9 TRACK NRZI ***************************** 5020 * * 5021 * AFTER DROPPING TAPE OP, CHECK CRC FOR MATCH PATTERN. IF OK, EXIT. * 5022 * IF NOT, CHECK FOR CRC EQUAL TO EPR,SHIFTING CRC IF NECESSARY. IF * 5023 * TRACK IN ERROR IS FOUND, PASS TIE BYTE TO ALUl FOR INSERTION INTO * 5024 * SENSE DATA. IF READ WAS BACKWARD, FLOP TIE BYTE BEFORE PASSING IT. * 5025 * * 5026 *********************************************************************** 00028640 00028650 00028660 00028670' 00028680 00028690 00028700 00028710 !)00445 9400 000446 333A 5029 CHKCRC 5032 ORM BOC STATIMG,O NRZI7,ALLDONEl SKIP FOUND TRK IF 7 TRK 00028730 00028740 000447 284D 5036 ROC CRCMAT,TIEEQU03 BR IF MATCH PATTERN 00028760 000448 000449 00044A 00044B 00044C 00044D 00044F 00044F 000450 000451 000452 0201 2253 400A 204C 2259 0203 4221 5006 8700 4006 61Dl 5040 5043 5046 5049 5052 5055 5058 5061 5064 5067 5070 WORK3,1 CRCNEPR,NEXTRK CRC SET TIE FOR TRK7 (FORWPRD) BR IF CRC NOT EQUAL TO EPR CRC EQUAL EPR -STEP CRe ONCE MORE CRCNEPR,SETTIE WORK3,3 WORK3,AR LSR TIEBYTE,O LSR ENDUP800 SHD TAKE BRANCH IF CRC WASNT :"ERO SET TIE TO 03-NO TRK FOUND SEND TIE TO ALUl SET HIGH SET IN TIE SET LO EXIT 00028780 00028790 00028800 00028810 00028820 00028830 00028840 00028850 00028860 00028870 00028880 000453 008454 000455 000456 000457 000458 400A 4221 A200 2149 224D 644A 5074 NEXTRK 5077 5080 5083 5086 5089 XFR XFR ADD. BOC BOC BU CRC WORK3,AR WORK3,0 NALCO,CHKMATCH CRCNEPR,'I'IEEQU03 LASTCHK SHIFT CRC SHIFT TIE BYTE TO NEXT TRACK CYCLE TILL TRACK FOUND OR CARRY OUT CHECK P TRACK 00028900 00028910 00028920 00028930 00028940 00028950 000459 9DOO 00045A 314E 5093 SETTlE 5096 ORM BOC XOUTAIM,O DREG1,XFRTIE IS BACKWARD BIT ON BR IF NOT 00028970 00028980 000458 0001 00045C 9200 0004SD 2063 ********** 50'19 * READ WAS BACKWARD - FLOP THE TIE BYTE SET UP FOR TRK7 5101 FLOPTIE STO WORK1,1 CHK FOR P BIT ORM WORK3,0 5104 BRANCH IF SO BOC DBUS,XFRTIEBl 5107 STO CHKMATCH BOC LASTCHK XFR NOP2 BOC TIEEQU03 STO XFRTIE XFR XFR'I'I EB2 XFRH ORI XFR BU 00029000 00029010 00029020 00029030 , .... ; PN 1846378 EC 736697 PAGE 70 ROS2 3803-2 MICROCODE LISTING LOC 00045E 00045F 000460 000461 000462 000463 000464 OBJECT CODE 4021 AOOO 4221 A200 215E 4021 644E 000465 000466 000467 000468 000469 00046A 00046B 00046C 00046D 00046E 00046F 000470 0088 2068 6611 D780 206B 2501 3A75 194F [)610 2075 lA42 64EB 5150 WRTSTNRZ ANDM BOC 5153 5156 BU ANDM 5159 NRZWRT BOC 5162 BOC 5165 OKTOWRT BOC 5168 5171 STO ANDM 5174 5177 BOC 5180 STO 5183 BU XOUTAIM,PEBIT+HIDEN DBUS,NRZWRT NOTNRZIW SENSE2,SEVTRK DBUS,OKTOWRT NSEVEN,XXXXX X STATC,NOTLPNRZ LINK2,TRETURN2 SENSE1,BOT DBUS,NOTLPNRZ LINK3,NRZIBOTZ SET8001 ARE WE 7 TRK BR IF NOT GO SET NOT CAP LWR--BR IF ON LOAD RETURN TO BR TABLE ARE WE AT BEGIN OF TAPE BR IF NOT RETURN TO NRZIBOT AFTER SET 800 GO SET NRZI MODE 00029300 00029310 00029.320 00029330 00029340 00029350 00029360 00029370 00029380 00029390 00029400 00029410 000471 000472 000473 000474 OOFD 010F 1A75 6027 5187 NRZIBOT 5190 5193 5196 STO STO STO BU WORK 1 ,ONES-2 WORK2,15 LINK3,NOTLPNRZ SETERGF SET UP TO TAPE 7.2 RETURN TO GO COUNT 00029430 00029440 00029450 00029460 000475 000476 000477 000478 0900 9800 3588 367B 5200 NOTLPNRZ STO ORM 5203 BOC 5206 BOC 5209 FRU,O TRACER, 0 ERGOP,NRETURNl WTMOP,NRZTM CLEAR FLAGS SET UP FOR TESTING COMMAND BR IF THIS IS ERASE OP BR IF SO 'ro DO WTM ADDR1 ADDR2 STMT 5111 5114 5117 5120 5123 5126 5129 5131 5132 5133 5134 5135 5136 5137 5138 5139 5140 5141 5142 5143 5144 5145 SOURCE STATEMENT F01MAY72 DONEXTRK XFR WORK1,AR SHIFT LEFT ADD WORK1,0 TO NEXT TRK XFR WORK3,AR SHIFT TIE ADD WORK3,0 BYTE LEFT BOC NALCO,DONEXTRK EXIT ON CARRY XFRTIEB1 XFR WORK1,AR GET BKWD TIE TO AR BU XFRTIE ************************* NRZI WRITE ROUTINE ************************** * ENTRY TO THIS ROUTINE IS 'WRTSTNRZ' AND IF THE WRITE IS * * NRZI A NRZI WRITE TYPE OPERATION WILL BE PERFORMED. * * WITH 'BOT' IN THE SENSE A 'LOAD POINT ERASE' IS PERFORMED AND THEN * * RETURN TO PERFORM THE CORRECT OPERATION - WRT (LWR),WTM (LWTM), OR * * ERG. * * WRITE OPERATION WILL PROCEED AS FOLLOWS: * 2/04/74 00029050 00029060 00029070 00029080 00029090 00029100 00029110 00029120 00029130 00029140 00029150 00029160 00029170 00029180 * * 0{)029190 * SET 'PERMRDWT' WHICH STARTS THE WRITE CLOCK THEN USE A * 00029200 * COUNTER TO CHECK FOR THE 1ST DATA READY. IF AT THIS TIME STOP * 00029210 * IS NOT ON THEN AN EXIT IS MADE TO CHECK VELOCITY VIA THE * 00029220 * 'CHKVEL' SUBROUTINE. * 00029230 * WHEN STOP COMES ON THEN A COUNTER IS MAINTAINED UNTIL * 00029240 * 'ENDATA' IS DETECTED OR THE COUNTER IS EXHAUSTED. % 00029250 *********************************************************************** 00029260 IS THIS NRZI BR IF SO MOVE IN. NOTLPNRZ AFTER LP DELAY 795 TACH PULSES 00029480 00029490 00029500 00029510 5212 *********************************************************************** 00029530 00029540 5213 * THIS IS A WRITE CMD OR LWR 5214 ************************************************************************ 00029550 000479 19BB 00047A 6498 n , j 5217 5220 STO BU LINK2,WRITING VELCK800 SET LINK RETURN GO WAIT FOR READ DATA 00029570 00029580 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 STMT EC 736697 PAGE F01MAY72 SOURCE STATEMENT 71 2/04/74 00047B 1A7E 00047C 3A3A 00047D 6025 5224 ************************ NRZI WRITE TAPE MARK ************************* 5225 * THE TAPE MARK IS WRITTEN ENTIRELY WITH THE MICRO PROGRAM. * 5226 * * 5227 * HOWEVER 'PERMRDWT' IS SET TO ALLOW THE WREAD CLOCK TO RUN * 5228 * AFTER IT HAS BEEN WRITTEN THE NORMAL CHECKS ARE MADE AND IN * 5229 * ADDITION THE 'TM' BR COND IS CHECKED TO ASSURE IT COMES UP * 5230 * * 5231 * THE FOLLOWING ROUTINE IS SHARED BY NORMAL WTM AND LOOP WTM * 5232 *********************************************************************** 5234 NRZTM STO LINK3,NRZTM1 RETURN TO NRZTM1 5237 BOC STATC,ALLDONE1 BR OUT WE ARE ALL DONE 5240 BU ERGCTR GO DO ERG BEFORE WTM 00029610 00029620 00029630 00029640 00029650 00029660 00029670 00029680 00029690 00029700 00029710 00029720 00047E 00047F 000480 000481 5244 NRZTM1 5247 5250 5253 STO ORM BOC STO WORK4,TM7TRK SENSE2,ZERO SEVTRK,SETRET3 WORK4,TM9TRK SET OF IS THIS 7 TRACK BR IF SO TO SET OF SET 13 IN REG 00029740 00029750 00029760 00029770 000482 1A89 000483 OOFF 000484 648F 5258 SETRET3 5261 5264 STO STO BU LINK3,SETUBO WORK1,ONES RDSYNC1 POINT TO RETURN AFTER SETTING LOCK IN ON READ TIME 00029800 00029810 00029820 000485 DD80 000486 20CA 000487 6671 5268 *********************-************************************************* 00029850 5269 * THIS IS RETURN FORM 'CHKVEL' ROUTINE TO DETERMINE (PE OR NRZI) AND * 00029860 5270 * RETURN TO PROPER ROUTINE. * 00029870 5271 *********************************************************************** 00029880 00029890 IS THE WRITE IN NRZI 5273 CKNORPE ANDM XOUTAIM,PEBIT 00029900 BOC DBUS,CHECKEND BR IF SO 5276 00029910 BU WRITE28 OTHERWISE BR TO PE WRITE 5279 030F 9700 3082 0313 ROS2 PN 1846378 3803-2 MICROCODE LISTING LOC OBJECT CODE 000488 6024 ADDRl ADDR2 STMT SOURCE STATEMENT 5284 NRETURNl BU ERGSTR EC 736697 PAGE F01MAY72 GO TO DO ERASE OP 72 2/04/74 00029940 5287 *********************************************************************** 00029960 5288 * WRITE THE DATA CHAR OF TM CONFIGURATION HERE THEN WAIT EITHER * 00029970 5289 * 4 OR 8 'RDTIMES' FOR 7 OR 9 TRACK RESPECTIVELY AND RETURN TO * 00029980 5290 * 'NRZLRC'. * 00029990 5291 *********************************************************************** 00030000 000489 00048A 00048B 00048C 00048D 00048E 00048F 000490 000491 5294 5297 5300 5303 5306 5309 5312 5315 5318 4360 OOFC 9700 308E 00F8 lA95 248F 2492 6490 SETUBO SET7CNT SETCNT NRZSET RDSYNCl RDSYNC2 5322 RDSYNC3 5325 5328 000492 AOOl 000493 218F 000494 5A22 XFR STO ORM BOC STO STO BOC BOC BU WORK4,TUBO WORK1,ONES-3 SENSE2,ZERO SEVTRK,NRZSET WORK1,ONES-7 LINK3,NRZLRC RDTIME,RDSYNCl RDTIME,RDSYNC3 RDSYNC2 WRITE THE DATA CHAR OF TM SET SPACING COUNT BETWEEN CHAR IS THIS A 7 TRK BR IF SO SET COUNT TO RETURN AFTER COUNTING SPACE HANG TILL READ TIME FALLS WAIT FOR RD TIME TO RISE 00030020 00030030 00030040 00030050 00030060 00030070 00030080 00030090 00030100 ADD BOC XFR WORK 1 , 1 NALCO,RDSYNCl LINK3,IC BUMP CTR LOOP TILL OVERFLOW EXIT 00030120 00030130 00030140 5331 *********************************************************************** 00030160 5332 * WRITE THE LRC CHAR OF TM CONFIG * 00030170 5333 *********************************************************************** 00030180 r~ \ / 000495 0300 000496 4360 000497 19B9 5336 NRZLRC 5339 5342 000498 000499 00049A 00049B 00049C 00049D 00049E 00049F 0004AO 0004A 1 5345 5346 5347 5349 5352 5355 5358 5361 5364 5367 5370 5373 5376 D410 209E 0018 399F 0041 2C9F 0064 0169 8440 4428 STO XFR STO WORK4,ZERO WORK4,TUBO LINK2,TMEND WRITE THE LRC CHAR LOAD LINK RETYRN 00030200 00030210 00030220 ********************************************************************** *** VELOCITY WINDOW *** NO DATA EXPECTED ********************************************************************** VELCK800 ANDM STATIMG,NRZI7 IS THIS 7 TRK BOC DBUS,VELCK80A BR IF NOT STO WORK1,24 LOAD CTR FOR 200 BPI BOC DEN200,VELCK80B BR IF 200 BPI STO WORK1,65 LOAD CTR FOR 556 BPI BOC DEN556,VELCK80B BR IF IT IS 556 VELCK80A STO WORK1,100 LOAD VELOCITY WINDOW CTR VELCK80B STO WORK2,ONES-150 LOAD STOP TIME OUT CTR VELCK801 ORI STATIMG,PERMRDWT IMAGE WRITE CONDITION XFR STATIMG,STAT SET WRITE CONDITION 00030240 00030250 00030260 00030270 00030280 00030290 00030300 00030310 00030320 00030330 00030340 00030350 00030360 0004A2 3ME 0004A3 2DM 0004A4 24A3 5380 VELCK802 BOC 5383 VELCK803 BOC 5386 SETERR10 BOC STATC,VELCK805 DATARDY,SETERRl RDTIME,VELCK803 SKIP CK IF LWR SHD NOT BRANCH WAIT FOR RD TIME TO FALL 00030380 00030390 00030400 0004A5 0004A6 0004A7 0004A8 0004A9 5390 ADD 5393 BOC 5396 VELCK804 BOC 5399 SETERR20 BOC 5402 BU WORK1,ONES DBUS,VELCK805 DATARDY,SETERR2 RDTIME,VELCK803 VELCK804 DECREMENT CTR NORMAL EXIT SHD NOT BRANCH WAIT FOR READ TIME 00030420 00030430 00030440 00030450 00030460 AOFF 20AE 2DAC 24A3 64A7 f :..,) '" f \ "'- / ) C) ROS2 3803-2 MICROCODE LISTING LOC 0OO4AA OQ04AB 0004AC 0004AD OBJECT CODE BC10 64A4 8Cl0 64A8 ADDRl ADDR2 PN 1846378 STMT SOURCE 5406 SETERRl 5409 5412 SETERR2 5415 STATEMENT DTACHK1,FASTBGN ORI BU SETERR10 ORI DTACHK1,FASTBGN BU SETERR20 EC 736697 PAGE F01MAY72 SET ERROR - WRITE DELAY NOISE *UC* SET ERROR - WRITE DELAY NOISE 73 2/04/74 00030480 00030490 00030500 00030510 *UC* 0004AE 2DB5 0004'AF 24Bl 0004BO 64AE 5418 *********************************************************************** 00030530 5419 * VELOCITY ERROR WINDOW CLOSED - WAIT FOR READ DATA 00030540 5420 ************************************************************************ 00030550 5422 VELCK805 BOC DATARDY,VELCK808 NORMAL EXIT 00030560 5425 BOC RDTIME,VELCK806 WAIT FOR RDTIME 00030570 5428 BU VELCK805 00030580 0004Bl 0004B2 0004B3 0004B4 27B6 2DB5 24B2 64AE 5432 VELCK806 BOC 5435 VELCK807 BOC 5438 BOC 5441 BU STOP,VELCK809 DATARDY,VELCK808 RDTIME,VELCK807 VELCK805 RUN TIME OUT CTR IF ON NORMAL EXIT WAIT FOR RD TIME TO FALL 00030600 00030610 00030620 00030630 0004B5 5922 5445 VELCK808 XFR LINK2,IC EXIT 00030650 0004B6 A101 0004B7 21B2 0004B8 6634 5449 VELCK809 ADD 5452 BOC BU 5455 WORK2,1 NALCO,VELCK807 VELBAD BUMP TIME OUT CTR CONTINUE IF OK YET GO SET NO BLOCK 00030670 00030680 00030690 0004B9 2DB9 0004BA 66EB 5458 *********************************************************************** 00030710 5459 * THIS ROUTINE LOOKS FOR 'ENDATA' AS NORMAL EXIT ON WRT OR WTM * 00030720 5460 *********************************************************************** 00030730 5462 TMEND BOC DA'I'ARDY,TMEND WAIT FOR FALL 00030740 BU TMLOOPl 00030750 5465 0004BB 2DBB 0004BC 2DC6 0004BD 24BC 5471 5472 5473 5474 5476 5479 5482 WRITING BOC NRZl1000 BOC BOC DATARDY,WRITING DATARDY,NRZI1004 RDTIME,NRZl1000 WAIT FOR DATA ROY TO FALL WATCH FOR 2ND OME WAIT FOR FALL 00030840 00030850 00030860 0004BE 0004BF 0004CO 0004C1 0004C2 27C3 28CC 2DC6 24BC 64CO 5486 BOC 5489 NRZll00l BOC 5492 NRZl1002 BOC 5495 BOC 5498 BU STOP,NRZI1003 ENDATA,INTRUBLE DATARDY,NRZl1004 RDTIME,NRZll000 NRZl1002 WATCH FOR STOP SINGLE BYTE OF NOISE CREATED WATCH FOR 2ND ONE WATCH FOR RISE 00030880 00030890 00030900 00030910 00030920 0004C3 AOOl 0004C4 21CO 0004C5 6634 5502 NRZl1003 ADD 5505 BOC 5508 BU WORK1,1 NALCO,NRZll002 VELBAD BUMP TIME OUT CTR BR IF OK YRT 00030940 00030950 00030960 0004C6 27CA 5512 NRZl1004 BOC STOP,NRZl1005 BYPASS IF STOP IS ON 00030980 *********************************************************************** 00030800 * * WRITE OP - FIRST DATARDY SEEN - CHECK FOR SINGLE BYTE NOISE AND THEN WAIT FOR END DATA ** 00030810 00030820 *********************************************************************** 00030830 PN 1846378 3803-2 MICROCODE LISTING RO$2 LOC 0004C7 0004C8 0004C9 OBJECT CODE 3ACA 16A9 6300 ADDRl ADDR2 EC 736697 SOURCE STATEMENT STMT BYPASS IF LWR STATC,NRZll005 BOC 5515 5518 WRITE888 STOH SENSE1,FIRST+DATATIM+CNTRDY+MK800 CHKVEL BU 5521 • PAGE F01MAY72 74 2/04/74 00030990 00031000 00031010 0004CA 0004CA 28F8 0004CB 64CA 5524 CHECKEND EQU 5526 NRZll005 BOC BU 5529 ENDATA,ENDWRTNZ CHECKEND WAIT FOR END DATA 00031030 00031040 00031050 0004CC 0004CD 0004CE 0004CF 000400 000401 000402 000403 0004D4 000405 3ACA 0980 20Dl A301 21CO 8980 03F5 2DBB 24D6 64D3 5533 INTRUBLE BOC ANDM 5536 SOC 5539 ADD 5542 SOC 5545 5548 LOADCTR ORI STO 5551 5554 NRZll006 BOC BOC 5557 BU 5560 STATC,NRZll005 FRU,128 DBUS,LOADCTR WORK4,1 NALCO,NRZll002 FRU,128 WORK4,ONES-l0 DATARDY,WRITING RDTIME,NRZll007 NRZll006 DONT RETRY ON LWR IS RESTART FLAG ON BR IF NOT BUMP RESTART CTR BR IF NOT TIMED OUT TRN ON RESTART FLAG LOAD RESTART CTR WATCH FOR CHAR GATE WATCH FOR RISE 00031070 00031080 00031090 00031100 00031110 00031120 00031130 00031140 00031150 00031160 000406 0004D7 000408 000409 27DA 2DBB 2407 64D3 5564 NRZll007 BOC 5567 NRZll008 BOC 5570 BOC BU 5573 STOP,NRZll009 DATARDY,WRITING RDTIME,NRZll008 NRZll006 WATCH FOR STIP WATCH FOR DATA ROY WAIT FOR FALL 00031180 00031190 00031200 00031210 0004DA Al0l 0004DB 2107 0004DC 6634 5577 NRZI1009 ADD SOC 5580 BU 5583 WORK2,1 NALCO,NRZI1008 VELBAD BUMP CTR BR IF OK YET 00031230 00031240 00031250 0004DD 0004DE 0004DF 0004EO 0004El 0004E2 5588 END 5591 GOODEND 5594 5597 LWREND 5600 5603 STATC,LWREND TIEBYTE,3 ENDUP RESETERR RESETERR GOODEND BR IF LWR SET TIE BYTE TO 3 00031280 00031290 00031300 00031310 00031320 00031330 0004E3 0004E4 0004E5 0004E6 0004E7 3AEO 1703 6100 4009 4009 64DE 5606 5607 5608 5609 5611 5614 5617 5620 5623 5625 5626 5627 5628 5629 5630 5632 30E6 33E7 6145 8410 6146 0004E8 CD77 SOC STO BU XFR XFR BU ••••••••••••••••••••••••••••••••••••••••••••••••••••• *.*.* ••••••• ** •• * • CONTROL INITIALIZATION FOR TURNAROUND ROUTINE IF NRZI FEATURE IS • INSTALLED. TURNS ON NRZI CONTROLS AND TURNS OFF PE CONTROLS. ••••••••••• * ••••••••• * •••••••••••••••••••••••••••••• * •••• * ••••••••••• * TURNNRZI BOC BOC BU 008007 ORI BU 00800 SEVTRK,008007 NOTPE,D0800 0016 STATIMG, NRZI7 CHKBKWD ~ / ~~, ~ .. • BR IF 7 TRK BR IF NRZI MODE SET 7 TRK BIR .* •••• * •• * ••••• * •••••••••• * •••• * •••••••••• ** •• * •••••••••••••• *••••• * ••• • • • • READ OP ENTRY AFTER LEAVING LOAD POINT WITH NO P BURST DETECTED. HERE. WE WILL TURN ON THE NRZI CONTROLS, TURN OFF THE PE CONTROL AND GO SET NRZI TO 'THE TAPE UNIT. NRZI WRITE OP AT LOAD POINT ENTERS AT • SET 8001 TO INITIALIZE CONTROL LSRS. • • ••• * ••••• * ••••••••••••••••••••••••••••••••••••••••••••• * •••••••••••• **. AND SET800 XOUTAIM,ONES-HIDEN-PEBIT ~~ F~. * /' "\ "- ~ f ) "--f i, 00031350 00031360 00031370 00031380 00031390 00031400 00031410 00031420 00031430 00031440 00031450 00031460 00031470 00031480 00031490 00031500 ~~'", ~j ROS2 3803-2 MICROCODE LISTING LOC 0004E9 0004EA 0004EB 0004EC 0004ED 0004EE 0004EF 0004FO OBJECT CODE 4042 1A41 0310 0200 D7A8 3401 2001 6530 0004F1 0004F2 0004F3 0004F4 0004F5 0004F6 0004F7 0004F8 0004F9 30E6 32F4 6145 4290 37E7 6145 6557 2700 64F8 ADDR1 ADDR2 PN 1846378 STMT SOURCE 5635 5638 5641 SET8001 5644 5647 5650 5653 5656 5660 5662 5665 5668 5671 5674 5677 5680 5683 5686 EC 736697 STATEMENT FO 1MAY 72 XOUTAIM,XOUTA TRN OFF PE CONTROLS XFR STO LINK3,ISNRZIZ RETURN TO RDNRZLP STO WORK4,SETDENS SET UP FOR NRZI MOS STO WORK3,DEVSEL+CONTROL+MOVE REAISE CTRL & MOVE ANDM SENSE2,DUALDEN+SEVTRK+HIDEN IS A NRZI DRIVE BOC HIDEN,XXXXX NRZI TAPE ON GCR DR - SET NOT CAP. DBUS,XXXXX BR IF NOT TO SET NOT CAPABLE BOC BU SETCTRL1 ** DENSITY DETERMINATION FOR MODS 3,5 AND 7 AT LOAD POINT IS THIS A SEVEN TRACK UNIT CHK7LP BOC SEVTRK,008007 BOC DUALDEN,CHK800 BR IF DUAL DEN BU 0016 CHK800 XFR WORK3,XINA IS THIS A 9 TRK NRZ MOS BOC ALU1NRZ,D0800 BR IF SO BU 0016 RETURN TO TURN AROUND ACCESS8 BU ACCESS80 ENDWRTNZ BOC STOP, END BU ENDWRTNZ WAIT FOR STOP PAGE 75 2/04/74 00031510 00031520 00031530 00031540 00031550 00031560 00031570 00031580 00031610 00031620 00031630 00031640 00031650 00031660 00031670 00031680 00031690 00031700 ROS2 3803-2 MICROCOD~ LOC OBJECT CODE 000500 000500 000501 000502 000503 000504 000505 000506 000507 000508 000509 00050A 00050B 00050C 00050D 00050E 00050F 000510 000511 000512 ~~ "'- J 4006 4060 4160 4260 4360 4460 4560 4660 4760 4860 4960 4A60 4B60 4C60 4060 4E60 4F60 5006 6501 F~ ~, J PN 1846378 LISTING ADDR1 ADDR2 STMT 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5719 5722 5725 5728 5731 5734 5737 5740 5743 5746 5749 5752 5755 5758 5761 5764 5767 5770 5773 PAGE EC 736697 SOURCE STATEMENT F01MAY72 ORG BEGIN+X'500' ••••••••••••••• DISPLAY LSR SUBROUTINE •••••••••••••••••••••••••••••••••• • • • AN INDISPENSABLE ROUTINE TO ALLOW DISPLAY OF THE ALU2 LSR'S IN • • THE TUBO INDICATORS. ON FIRST ROUND THE 16 LOW LSRS (0-15) • • ARE DISPLAYED. SECOND ROUND (DONT HIT RESET. ) WILL DISPLAY HIGH • • LSRS (16-31). AN AUTOMATIC STOP IS NOT EMPLOYED IN THIS ROUTINE. • AND IT WILL CONTINUE TO DISPLAY HIGH LSRS FOREVER. RESTART IS THE • • ONLY WAY TO DISPLAY LOW LSRS A SECOND TIME. • • • • IC DISPLAY IN RELATION TO LSRS ON TUBO ARE AS FOLLOWS: • • IC= 502 DISPLAY LSRO -FIRST ROUND & LSR16-SECOND ROUND • • IC=503 DISPLAY LSR1 -FIRST ROUND & LSR17-SECOND ROUND • • IC= 504 DISPLAY LSR2 -FIRST ROUND & LSR18-SECOND ROUND • • IC= 505 DISPLAY LSR3 -FIRST ROUND & LSR19-SECOND ROUND • • IC= 506 DISPLAY LSR4 -FIRST ROUND & LSR20-SECOND ROUND • • IC= 507 DISPLAY LSR5 -FIRST ROUND & LSR21-SECOND ROUND • • IC= 508 DISPLAY LSR6 -FIRST ROUND & LSR22-SECOND ROUND • • IC= 509 DISPLAY LSR7 -FIRST ROUND & LSR23-SECOND ROUND • • IC= 50A DISPLAY LSR8 -FIRST ROUND & LSR24-SECOND ROUND • • IC= 50B DISPLAY LSR9 -FIRST ROUND & LSR25-SECOND ROUND • • IC= 50C DISPLAY LSR10-FIRST ROUND & LSR26-SECOND ROUND • • IC= 50D DISPLAY LSR11-FIRST ROUND & LSR27-SECOND ROUND • • IC= 50E DISPLAY LSR12-FIRST ROUND & LSR28-SECOND ROUND • • IC= 50F DISPLAY LSR10-FIRST ROUND & LSR29-SECOND ROUND • • IC= 510 DISPLAY LSR14-FIRST ROUND & LSR30-SECOND ROUND • • IC= 511 DISPLAY LSR15-FIRST ROUND & LSR31-SECOND ROUND • •••••••• **.*.* ••• *.*.**** ••• * •••••• **.**.* ••••••••••••••••• * •• **** ••••• TRACELSR XFR LSR INSURE IN LOW SET GETHIGH XFR RO,TUBO TAKE LSR TO CE PANEL XFR R1,TUBO TAKE LSR TO CE PANEL XFR R2,TUBO TAKE LSR TO CE PANEL XFR R3,TUBO TAKE LSR TO CE PANEL XFR R4,TUBO TAKE LSR TO CE PANEL XFR R5,TUBO TAKE LSR TO CE PANEL XFR R6,TUBO TAKE LSR TO CE PANEL XFR R7,TUBO TAKE LSR TO CE PANEL XFR R8,TUBO TAKE LSR TO CE PANEL XFR R9,TUBO TAKE LSR TO CE PANEL XFR R10,TUBO TAKE LSR TO CE PANEL XFR R11,TUBO TAKE LSR TO CE PANEL XFR R12,TUBO TAKE LSR TO CE PANEL XFR R13,TUBO TAKE LSR TO CE PANEL XFR R14,TUBO TAKE LSR TO CE PANEL XFR R15,TUBO TAKE LSR TO CE ~ANEL XFRH LSR SET HIGH TRACTRAP BU GETHIGH r", \j ( , '. '\ j 76 2/04/74 00031730 00031740 00031750 00031760 00031770 00031780 00031790 00031800 00031810 00031820 00031830 00031840 00031850 00031860 00031870 00031880 00031890 00031900 00031910 00031920 00031930 00031940 00031950 00031960 00031970 00031980 00031990 00032000 00032010 00032020 00032030 00032040 00032050 00032060 00032070 00032080 00032090 00032100 00032110 00032120 00032130 00032140 00032150 00032160 00032170 00032180 00032190 (j R09 2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 STMT 5776 5777 5778 5779 5780 5781 5782 5783 SOURCE STATEMENT F01MAY72 ********************************************************************** * * * DIAGNOSTIC MEASURE IBG PE OR GCR * * * * THIS ROUTINE CLOCKS ACROSS THE IBG, SENDING A COUNT TO CHANNEL AFTER* * EVERY ACTIVE TRANSITION OF THE TACH.FIRST AND LAST COUNTS ARE * * PARTIAL * ********************************************************************** 0005.13 000514 000515 000516 000517 000518 000519 3B61 9500 302B 8408 4428 272A 0101 5786 MEASIBG 5789 5792 5795 MEASIBGA 5798 SETSTATS 5801 5804 00051A 00051B 00051C 000510 00051E 00051F 000520 000521 2F1D 2F29 651B 3E22 2A23 8408 4428 6523 5808 5811 5814 5817 5820 5823 5826 5829 000522 000523 000524 000525 2A26 Al01 211A E408 5833 TACHUP 5836 RUNCTR 5839 5842 000526 E40C 000527 4141 000528 6517 5846 SENDEMl 5849 5852 000529 C4F7 00052A 60B8 5856 ALLDONEA AND 5859 ZIPOUT BU 00052B 00052C 000520 00052E 00052F 5863 SET LEVEL 5866 5869 5872 5875 0300 5521 8300 0200 lA17 EC 736697 BOC PAGE 77 2/04/74 00032210 00032220 00032230 00032240 00032250 00032260 00032270 00032280 BR IF CNTING STOP TAKS TEST DIAG FLAGS BOC ORI XFR BOC STO STATD,TAKTOSTP FLAGS, 0 DREGO,SETLEVEL STATIMG,SETSTATA STATIMG,STAT STOP,ZIPOUT WORK2,1 CLEAR CTR 00032300 00032310 00032320 00032330 00032340 00032350 00032360 STILLOK BOC WTFORIBG BOC BU OKYET BOC TACHDOWN BOC ORI XFR BU IBG,OKYET IBG,ALLDONEA WTFORIBG BSYTACH,TACHUP STATA,RUNCTR STATIMG,SETSTATA STATIMG,STAT RUNCTR ASSURE IBG IS ON WT FOR NEXT IBG NORMAL ENDING LOOK FOR TACH IS THIS LOCK IN TRN ON STAT A LOCK IN PASS GO COUNT 00032380 00032390 00032400 00032410 00032420 00032430 00032440 00032450 BOC ADD BOC XO STATA,SENDEMl WORK2,1 NALCO,STILLOK STATIMG,SETSTATA SEND CTR IF STAT A IS ON BUMP CTR INVERT STAT A 00032470 00032480 00032490 00032500 XO XFR BU STATIMG,SETSTATA+SETSTATB INVERT B & TRN OFF A WORK2,XOUTB SEND BYTE TO ALUl SETSTATS RUN AGAIN 00032520 00032530 00032540 STATIMG,ONES-SETSTATA READS TOP ASSURE STAT A IS OFF - NORMAL END 00032560 00032570 ORM TRN ON STATA FOR FIRST PASS SET STATSCREQUIRED STO WORK4,0 XFR WORK5 , AR MOVE CMD TO WORK 4 ORI WORK4,0 WORK3,DEVSEL+CONTROL+MOVE STO STO LINK3,SETSTATS LOAD LINK RETURN 00032590 00032600 00032610 00032620 00032630 5878 *************************** SET MODE TO DRIVE ************************* 00032650 000530 000531 000532 000533 000534 000535 000536 000537 4224 4360 01FE Al01 2133 4981 4160 C2FB 5881 SETCTRLl XFR 5884 XFR 5887 SETLEV STO 5890 DLYTIME ADD 5893 BOC 5896 XFR 5899 XFR 5902 AND WORK3,TUTAG WORK4,TUBO WORK2,ONES-l WORK2,1 NALCO,DLYTIME FRU,TUBI WORK2,TUBO WORK3,ONES-CONTROL BRING UP CONTROL TAG SET CMD TO BUS OUT SET FOR DELAY BUMP REGISTER FOR DELAY BACK TWICE GET CONTROLSTATUS BYTE CLEAR CMD FROM BUS OUT RESET CONTOL TAG 00032670 00032680 00032690 00032700 00032710 00032720 00032730 00032740 ~~ \- / ROS2 3803-2 MICROCODE LISTING LOC 000538 000539 00053A 00053B 00053C 00053D 00053E 00053F 000540 000541 000542 000543 OBJECT CODE 4224 4921 F300 2043 61CE 628E 670B 6744 674E 6402 6471 5A22 ADDRl ADDR2 PN 1846378 EC 736697 PAGE STMT 5905 5908 5911 5914 5917 5920 5923 5926 5929 5932 5935 5938 SOURCE STATEMENT XFR WORK3,TUTAG XFR FRU,AR XOM WORK4,0 BOC DBUS,CTLLINK BU CTRLREJ ZRETURN1 BU NORMDONE WRT6 ZRETURN2 BU ERASE6 CTLRET6 BU ERASE 1 • CTLRET3 BU ISNRZI ISNRZIZ BU NRZIBOT NRZIBOTZ BU LINK3,IC CTLLINK XFR • • • DIAGNOSTIC MEASURE IBG NRZI • • • • THIS ROUTINE CLOCKS ACROSS THE IBG, SENDING A COUNT TO CHANNEL AFTER. • EVERY ACTIVE TRANSITION OF THE TACH. FIRST AND LAST COUNTS ARE • • PARTIAL • ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• NRZIIBG BOC STATD,TAKTOSTP BR IF CTING STOP TAKS NRZIIBGA ORI STATIMG,SETSTATA TRN ON STAT A FOR FIRST PASS DOSTATS XFR STATIMG,STAT SET STATS REQUIRED STO WORK2,1 CLR CTR F01MAY72 TO THE DRIVE MASK IT CHK STATUS BR IF OK GO SET CONTROL STATUS REJECT RETURN TO CALLER 78 2/04/74 00032750 00032760 00032770 00032780 00032790 00032800 00032810 00032820 00032830 00032840 00032850 00032860 000544 000545 000546 000547 3B61 8408 4428 0101 5941 5942 5943 5944 5945 5946 5947 5949 5953 5956 5959 000548 000549 00054A 00054B 00054C 00054D 2055 3E4E 2A4F 8408 4428 654F 5963 START800 BOC 5966 BOC 5969 NEGATIVE BOC ORI 5972 5975 XFR 5978 BU DATARDY,CLEANUP BSYTACH,POSITIV STATA,STEPCTR STATIMG,SETSTATA STATIMG,STAT STEPCTR LOCK IN PASS TRN ON STATA GO CNT ONE 00033010 00033020 00033030 00033040 00033050 00033060 00054E 00054F 000550 000551 2A52 Al0l 2148 E408 5982 POSITIV 5985 STEPCTR 5988 5991 BOC ADD BOC XO STATA,SENDEM5 WORK2,1 NALCO,START800 STATIMG,SETSTATA SEND CTR IF STAT A IS ON BUMP CTR BY 1 & LOOK FOR OVERFLOW INVERT STAT A 00033080 00033090 00033100 00033110 000552 E40C 000553 4141 000554 6546 5995 SENDEM5 5998 6001 XO XFR BU STATIMG,SETSTATA+SETSTATB INVERT B & TRN OFF A WORK2,XOUTB SEND CTR YO ALU1 DOSTATS GO AGAIN 00033130 00033140 00033150 000555 C4F7 000556 641B 6005 CLEANUP 6008 AND BU STATIMG,ONES-SETSTATA TRN OFF STAT A STOPNRZI GO TO NORMAL STOP 00033170 00033180 f -.. \_j LOOK FOR DTA ROY LOOK FOR TACH / '\ ) 00032880 00032890 00032900 00032910 00032920 00032930 00032940 00032950 00032970 00032980 00032990 ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 EC 736697 79 S'rMT SOURCE STATEMENT F01MAY72 2/04/74 6012 *********************************************************************** 00033210 6013 * * 00033220 6014 * DIAGNOSTIC MEASURE ACCESS TIME NRZI * 00033230 6015 * * 00033240 6016 * THIS ROUTINE TURNS ON DATA FLOW, RAISES MOVE AND CLOCKS UNTIL DATA * 00033250 6017 * IS DETECTED. TWO BYTES (COUNTERS) ARE THEN SET TO CHANNEL * 00033260 6018 * NRZI STOP DELAY IS DMPLOYED TO SPACE TAPE TO NEXT IBG. * 00033270 6019 *********************************************************************** 00033280 000557 9700 000558 335A 000559 6591 6022 ACCESS80 ORM 6025 BOC 6028 BU SENSE2,0 NOTPE,GOAHEAD ACCESS16 00055A 00055A 00055B 00055C 00055D 00055E 00055F 000560 6031 GOAHEAD 6033 6036 6039 6042 6045 6048 6051 * WORK5,DEVSEL+MOVE SET UP FOR MOVE WORK5,TUTAG RAISE MOVE XOUTAIM,XOUTA STATIMG,TAPEOP+NRZI7 STATIMG,STAT TRN ON RD CONDITION STATIMG,PERMRDWT NRZII BGA GO MEASURE ACCESS TIME 1509 5524 4D42 8490 4428 8440 6545 PAGE EQU STO XFR XFR ORI XFR ORI BU LOOK SEE IF NRZI MODE BR IF SO GO RUN PE MODE 00033300 00033310 00033320 00033340 00033350 00033360 00033370 00033380 00033390 00033400 00033410 ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT 6055 6056 6057 6058 6059 6060 6061 6062 6063 6064 6065 6066 6067 SOURCE STATEMENT F01MAY72 *********************************************************************** * * * DIAGNOSTIC MEASURE TACH ASSYMMETRY * * * * THIS ROUTINE WILL ACCUMULATE COUNTS DURING THE POSITIVE AND NEGATIVE* * PORTIONS OF THE TACH PULSE. THESE COUNTS WILL BE SENT TO CHANNEL * * IN TWO DATA BYTES ON EACH TRANSITION OF THE TACH PULSE. THE * * NUMBER OF TACH PULSES TO COUNT IS CONTROLLED BY BY THE CHANNEL BYTE * * COUNT THE FIRST TWO BYTES SENT TO CHANNEL SHOULD BE DISREGARDED * * AS THESE ARE ACCUMULATED DURING 'LOCKIN'. * * * *********************************************************************** * 000561 000562 000563 000564 000565 000566 000567 000568 000569 00056A 00056B 00056C 0408 4428 0000 0140 4160 02B4 03DE 3A6B 0109 656C 0108 4124 6070 6073 6076 6079 6082 6085 6088 6091 6094 6097 6100 6103 TAKTOSTP STO XFR EXECDMR STO STO XFR TACHASYM STO STO BOC STO BU DROPMOVE STO EDSPLACE XFR STATIMG,SETSTATA STATIMG,STAT WORK1,0 WORK2,DVESNS6 WORK2,TUBO WORK3,X'B4' WORK4,X'DE' STATC,DROPMOVE WORK2,DEVSEL+MOVE EDSPLACE WORK2,DEVSEL WORK2,TUTAG 00056D 00056E 00056F 000570 000571 000572 000573 000574 000575 000576 000577 000578 000579 00057A 00057B 00057C 00057D 00057E 00057F 000580 000581 3E74 3E7A A201 216E A301 216E 657B 3E76 657B A201 2174 A301 2174 657B 2A82 Dl0l 2082 3E66 8408 4428 6566 6107 6111 6114 6117 6120 6123 6126 6130 6133 6136 6139 6142 6145 6148 6152 6155 6158 6161 6164 6167 6170 CHKDETAC Boe NEGTACH BOC ADD BOC ADD BOC BU POSTACH BOC BU UPCOUNTl ADD BOC ADD BOC SENDEM6 BU SENDEM3 BOC ANDM BOC BOC ORI XFR BU BSYTACH,POSTACH BSYTACH,SENDEM6 WORK3,1 NALCO,NEGTACH WORK4,1 NALCO,NEGTACH SENDEM3 BSYTACH,UPCOUNTl SENDEM3 WORK3,1 NALCO,POSTACH WORK4,1 NALCO,POSTACH SENDEM3 STATA,SENDEM4 WORK2,MOVE DBUS,SENDEM4 BSYTACH,TACHASYM STATIMG,SETSTATA STATIMG,STAT TACHASYM 000582 2789 EC 736697 6174 SENDEM4 STOP,STOPEXIT NO STATC-RAISE MOVE DROP MOVE BR ON ACTIVE TACH SEND CTRS WHEN TAK CHANGES BUMP LOW CTR LOOP YILL OVERFLOW BUMP HI CTR LOOP TILL OVERFLOW OVERFLOW-SEND CTRS ASSURE TAK STILL ON TAK CHGD - SEND CTRS BUMP LOW CTR , LOOP TILL OVERFLOW BUMP HI CTR LOOP TILL OVERFLOW OVERFLOW-SEND CTRS IF LOCKED IN-SEND CTRS IF NOT LOCKED IN- SEND CTRS IF MOVE IS DOWN IF TACH ON- DONT LOCK IN MOVE IS UP- TAK IS DOWN- SO SET STAT A TO MARK LOCK IN BR ON STOP / I \ BOC TRN ON STAT A AND TRN OFF READ COND AND TAPE OP CLEAR CTR SET UP TO RECEIVE READ BUS & TACH PULSES CLEAR COUNTERS j PAGE 80 2/04/74 00033440 00033450 00033460 00033470 00033480 00033490 00033500 00033510 00033520 00033530 00033540 00033550 00033560 00033580 00033590 00033600 00033610 00033620 00033630 00033640 00033f50 00033(,60 00033670 00033680 00033690 00033710 00033730 00033740 00033750 00033760 00033770 00033780 00033800 00033810 00033820 00033830 00033840 00033850 00033860 00033880 00033890 00033900 00033910 00033920 00033930 00033940 00033960 () ROS2 3803-2 MICROCODE LISTING LOC 000583 000584 000585 000586 000587 000588 OBJECT CODE 4242 4341 E404 4428 A001 6566 000589 00058A 00058B 00058C 0100 4124 4041 6011 ADDR1 ADDR2 PN 1846378 STMT 6177 6180 6183 6186 6189 6192 SOURCE STATEMENT XFR WORK3,XOUTA XFR WORK4,XOUTB XO STATIMG,SETSTATB XFR STATIMG,STAT ADD WORK1,1 BU TACHASYM 6196 STOPEXIT STO 6199 XFR 6202 XFR 6205 BU WORK2,0 WORK2,TUTAG WORK 1 , XOUTB SETDLONE EC 736697 PAGE 81 F01MAY72 2/04/74 SEND DATA 00033970 TO ALU1 .00033980 INVERT STAT B 00033990 AND THE OTHER OFF (WILL ALTERNATE ) 00034000 BUMPM BYTE CTR 00034010 00034020 CLEAR TAGS TO THE TAPE UNIT AND STOP 00034040 00034050 00034060 00034070 ROS2 3803-2 MICROCODE LISTING ADDR1 ADDR2 1846378 EC 736697 PAGE 2/04/74 00034100 00034110 00034120 00034130 00034140 00034150 000580 00058E 00058F 000590 000591 000592 000593 000594 000595 5460 9700 349A 23F7 8080 4042 8480 4428 1509 00059~ 5524 000597 6516 XFRH 6217 ACCESS 6220 ORM 6223 BOC 6226 BOC 6229 ACCESS 16 ORI 6232 STROBEA XFR 6235 ORI 6238 XFR 6241 STO 6244 XFR 6247 BU STATIMG,TUBO SENSE2,O HIDEN,CHKMORE NRZFEAT,ACCESS8 XOUTAIM,PEBIT XOUTAIM,XOUTA STATIMG,TAPEOP STATIMG,STAT WORK5,DEVSEL+MOVE WORK5,TUTAG MEASI BGA CLR SENS LEVELS GET LSR TO TEST BR IF GCR BR IF NRZI INSTALLED TRN ON PE CONRROLS IMAGE TAPE OP 00034170 00034180 00034190 00034200 00034210 00034220 00034230 00034240 00034250 00034260 00034270 000598 8008 000599 6592 6251 ACCESS64 ORI BU 6254 XOUTAIM,HIDEN STROBEA SET DATA FLOW CTRL 00034290 00034300 00059A 3398 00059B 6591 6258 CHKMORE 6261 NOTPE,ACCESS64 ACCESS 16 BR IF GCR 00034320 00034330 • • e' 82 STMT F01MAY72 6209 ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 6210 • 6211 • DIAGNOSTIC MEASURE ACCESS TIME • 6212 • 6213 • THIS ROUTINE RAISES MOVE - THEN BRANCHES TO THE IBG MEASURE ROUTINE ••••••••••••••••••••••••••••••••••••••••••• ***** •••••••••••••• **.****** 6214 LOC OBJECT CODE PN SOURCE STATEMENT .f~ \j f-'" \ ) BOC BU SET FOR MOVE MOVE / ~ \ (.- < f~ ~ ) ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 PN 1846378 STMT SOURCE STATEMENT 2/04/74 FRU,X'OO' BRING IN BYTE OF ALL ONES EXECTST3 STO XFR WORK1,XINA ADDM WORK1,1 FROM ALU1 & CHK IT HERE BOC NALCO,ZONK2 ONE OR MORE XOUTA BITS MISSING XFR WORK1,XANXB SSET UP XOUTA AND XOUTB FOR ALU * CHECK STATS TO BE OFF-THEN TUR A ON & CHECK IT BOC STOP,ZONK2 STOP SHD BE OFF BOC STATA,ZONKA SHD BR OFF STATB,ZONKB SHD BE OFF BOC STATC,ZONKC SHD BE OFF BOC BOC STATD,ZONKD SHD BE OFF ORI STATIMG,SETSTATA+SETSTATB TRN ON STATS XFR STATIMG,STAT FOR ALU1 BOC STATA,TSTHI TEST STAT A XFR HDWERR STATA PROBLEM (OFF OR ON) ZONKA * CHECK HIGH LSR OPERATION AND DREGS FOR HOT BITS OR BOC'S TSTHI STO R2,0 SET UP LOW DREG7,TRAP4 SHD BE OFF BOC DREG6,TRAP5 SHD BE OFF BOC BOC DREG5,TRAP6 SHD BE OFF BOC DREG4,TRAP7 SHD BE OFF DREG3,TRAP8 SHD BE OFF BOC DREG2,TRAP9 SHD BE OFF BOC BOC DREG1,TRAP10 SHD BE OFF BOC DREGO,TRAPll SHD BE OFF STO RO,ONES LSRS FOR TEST STOH R2,ONES SET UP AND TEST XFRH R2,AR FOR STO HIGH XO RO,O AN D XFR HIGH BOC DBUS, TSTHI 10K XFR HDWERR STOH OR XFRH WENT IN LOW LSR'S 00034480 00034490 00034500 00034510 00034520 00034530 00034540 00034550 00034560 00034570 00034580 00034590 00034600 00034610 00034620 00034630 00034640 00034650 00034660 00034670 00034680 00034690 00034700 00034710 00034720 00034730 00034740 00034750 00034760 00034770 00034780 0005Al 0005A2 0005A3 0005A4 0005A5 0005A6 0005A7 0005A8 0005A9 27Fl 2AA9 2BE9 3AEB 3BED 840C 4428 0005AA 0005AB 0005AC 0005AD 0005AE 0005AF 0005BO 0005Bl 0005B2 0005B3 0005B4 0005B5 0005B6 0005B7 0005B8 0200 37Dl 36D3 35D5 34D7 33D9 32DB 310D 30DF OOFF 12FF 5221 EOOO 20B9 4044 6278 6281 6284 6287 6290 6292 6294 6297 6300 6303 6306 6309 6312 6315 6318 6320 6322 6325 6328 6331 6334 6337 6340 6343 6346 6349 6352 6355 6358 6361 6364 0005B9 0005BA 0005BB 0005BC 0005BD 0005BE 0005BF 5006 9200 20BF 4221 E200 20CO 4044 6368 TSTHI10K XFRH 6371 ORM BOC 6374 6377 XFR XO 6380 BOC 6383 6386 ZONK XFR LSR R2,0 DBUS,ZONK R2,AR R2,0 DBUS,XFRLO HDWERR 6390 XFRLO LSR 0005CO 4006 F01MAY72 83 00034400 00034410 00034420 00034430 00034440 00034450 00034460 0900 4090 BOOl 21Fl 4043 2AAA PAGE 6269 ***************ALU CHECKOUT ROUTINE************************************ 6270 * * 6271 * THIS ROUTINE RUNS CONTINUALLY DURING TCU IDLE TIME, CONSTANTLY * 6272 * CHECKING THE CIRCUITS IT NEEDS TO FUNCTION PROPERLY. IF A FAILURE * 6273 * IS DETECTED, A HARDWARE ERROR IS FORCED * 6274 * * 6275 *********************************************************************** 00059C 00059D 00059E 00059F 0005AO 4044 EC 736697 XFR SET HIGH ASSURE HI IS SET ASSURE XFR LO USES HI LSR SET LO * * 00034800 00034810 00034820 00034830 00034840 00034850 00034860 00034880 ROS2 LOC OBJECT CODE ADDRl ADDR2 EC 736697 PAGE SOURCE STATEMENT STMT F01MAY72 0005CF 4044 6393 6395 6398 6401 6404 6407 6410 6413 6416 6419 6422 6425 6428 6431 6434 6436 6438 * CHECK ADDER OPERATION- ALSO BOC DREGS, NALCO,DBUS CLEAR REG 0 TESTONE STO RO,O FILL REG 4 R4,ONES STO BUMP REG 0 BY 1 TESTl RO,l ADD BR IF NO OVERFLOW BOC NALCO,AA ON OVERFLOW DBUS SHD BE 0 DBUS,BB BOC FALSE CARRY TRAP 1 XFR HDWERR DECREMENT R4 BY ONE MORE R4,ONES BB ADD NALCO,OPCODES SHD BE NO CARRY HERE BOC HDWERR TRAP2 XFR DECREMENT R4 BY 1 ADD R4,ONES AA NALCO,CCTRAP SHD BE A CARRY BOC R4 TO ABUS R4,AR XFR MATCH AGAINST RO ADDM RO,O NALCO,DD SHD BE NO CARRY BOC WAS A CARRY *CCTRAP XFR HDWERR NO CARRY WHEN XPECTED 0005DO 0005Dl 0005D2 000503 000504 000505 000506 0005D7 000508 000509 00050A 0005DB 00050C 0005DD 0005DE 0005DF 6443 6446 6449 6452 6455 6458 6461 6464 6467 6470 6473 6476 6479 6482 6485 6488 DD TRAP4 EE TRAPS FF TRAP6 GG TRAP7 HH TRAP8 II TRAP9 JJ TRAP10 KK TRAP11 0005Cl 0005C2 0005C3 0005C4 0005C5 0005C6 0005C7 0005C8 0005C9 0005CA 0005CB 0005CC 0005CD 0005CE 0000 04FF AOOl 21CA 20C7 4044 MFF 21EO 4044 MFF 21CF 4421 BOOO 2100 37D2 4044' 36D4 4044 35D6 4044 34D8 4044 33DA 4044 320C 4044 31DE 4044 30C3 4044 0005EO 0000 0~05El 4060 4981 B9FF 21E6 4044 0005E6 27E8 0005E7 65E6 ~ j DREG7,EE HDWERR DREG6,FF HOWERR OREG5,GG HOWERR DREG4,HH HDWERR DREG3,II HDWERR DREG2,JJ HDWERR DREG 1 ,KK HDWERR DREGO,TEST1 HDWERR BIT SHD BE BIT WAS OFF BIT SHO BE BIT WAS OFF BIT SHD BE BIT WAS OFF BIT SHD BE BIT WAS OFF BIT SHO BE BIT WAS OFF BIT SHO BE BIT WAS OFF BIT SHD BE BIT WAS OFF BIT SHD BE BIT WAS OFF n l \ \,- / ~ ;' , j \ 84 2/04/74 * ON 00034900 00034910 00034920 00034930 00034940 00034950 00034960 00034970 00034980 00034990 00035000 00035010 00035020 00035030 00035040 00035050 00035060 00035090 00035100 00035110 00035120 00035130 00035140 00035150 00035160 00035170 00035180 00035190 00035200 00035210 00035220 00035230 00035240 ON ON ON ON ON ON ON * 6500 CHKBOCS EQU * POSSIBLE HOT BITS 6501 * CHECK TUBI FOR BRING IN TU BUS IN FRU,TUBI XFR 6503 BUMP TU BUS IN BY 255 ADDM FRU,ONES S 6506 SHD BE NO CARRY NALCO,STOPWAIT BOC 6509 HOT TUBI BITS OR BSY TACH HOT XFR HDWERR 6512 ZONK10 6514 * WAIT FOR STOP STAT TO COME ON, THEN CHK OTHER STATS FOR ACTIVE STOP,CHKSTATS 6516 STOPWAIT BOC STOPWAIT 6519 BU 0005E2 0005E2 0005E3 0005E4 0005E5 BOC XFR BOC XFR BOC XFR BOC XFR BOC XFR BOC XFR BOC XFR BOC XFR SET IN DATA 6491 OPCODES EQU * SIGNALS FOR INACTIVE STATE 6492 * CHECK DATA FLOW CLEAR WORK REG WORK1,0 6494 CHKDTRDY STO WORK1,TUBO CLEAR TU BUS OUT 6497 XFR 0005EO \ PN 1846378 3803-2 MICROCODE LISTING (r ~ \ / * * 00035260 00035270 00035280 00035290 00035310 00035320 00035330 00035340 00035350 00035360 00035370 00035380 00035390 f-c., \/ ROS2 3803-2 MICROCODE LISTING LOC 0005E8 0005E9 0005EA 0005EB 0005EC 0005ED 0005EE 0005EE OBJECT CODE 2BEA 4044 3AEC 4044 3BEE 4044 0005EF 0005'FO 0005Fl 0005F2 0005F3 0005F4 AOFF 21F2 4044 5443 0403 4428 4090 ADDRl ADDR2 PN 1846378 STMT 6522 6525 6528 6531 6534 6537 6539 6541 6543 6545 6548 6551 6554 6557 6560 EC 736697 F01MAY72 SOURCE STATEMENT CHKSTATS BOC STATB,CHKC HDWERR ZONKB XFR STATC,CHKD CHKC BOC ZONKC XFR HDWERR CHKD STATD,CHKA BOC ZONKD HDWERR XFR CHKA EQU * WORK1,XINA CHK XINA CHKXINA XFR * CHECK XINA FROM ALUl FOR NO BITS - THEN CLEAR XOUTS TO ALUl ADD WORK1,ONES FOR ALL NALCO,SETUPX ZEROES BOC ZONK2 XFR HDWERR CLEAR XOUTA AND XOUTB SETUPX XFRH STATIMG,XANXB STATIMG,SETSTATC+SETSTATD ALU2 COMP STO ALL DONE XFR STATIMG,STAT PAGE 85 2/04/74 00035400 00035410 00035420 00035430 00035440 00035450 00035460 00035470 00035480 00035490 00035500 00035510 00035520 00035530 00035540 6563 *********************************************************************** 00035560 0005F5 0005F6 0005F7 0005F8 0005F9 0005FA 0005FA 000600 lCFA C4DF 4428 2FFA 65F8 000600 000601 000602 000603 000604 000605 000606 000607 000608 000609 000609 00060A 3804 0080 2004 CDBF 8010 4042 0502 2009 5560 62El A202 2109 6567 6570 6573 6576 6579 6581 6583 6585 6586 6588 6591 6594 6597 6600 6603 6606 6609 6612 6614 6616 6619 WRTP2 STO LINK1,SRETURN5 SET RETURN TO SETUP AND STATIMG,ONES-WRTBURST XFR AND WRITE P BURST STATIMG,STAT WAIT UNTIL WAITIBG BOC IBG,DONE BU WAITIBG IN IBG DONE EQU * BU BR IF NOT TO STOP DRIVE FCHSTS ORG BEGIN+X' 600' ** THE FOLLOWING INSTRUCTIONS USED FOR LWR ******** BR IF GCR LWRDELAY BOC 6250,STAYFWD TEST FOR PE BIT ANDM XOUTAIM,X' 80 , BOC DBUS,STAYFWD BR IF NRZI AND XOUTAIM,ONES-FWDDATA XOUTAIM,SYNC SET SYNC STAY FWD ORI XFR XOUTAIM,XOUTA FOR LWR OP ANDM FLAGS, TUBOMSK CHK FOR FLAG DBUS,NOMASKW BOC BR IF OFF WORK5,TUBO XFR SET MASK TO TU BUS OUT NOMASKW EQU * WORK3,2 DELAY FOR ALUl ZEBRA ADD NALCO, ZEBRA TO CATCH UP BOC 00035590 00035600 00035610 00035620 00035630 00035640 00035650 00035660 00035670 00035680 00035690 00035700 00035710 00035720 00035730 00035740 00035750 00035760 00035770 00035780 00035790 ROS2 LOC 00060B 00060B 00060C 00060D 00060E 00060F 000610 000611 000611 000612 000613 000614 000615 PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 9600 33DO 9800 36A9 35A8 6673 000616 1937 PAGE 86 STMT SOURCE STATEMENT F01MAY72 2/04/74 6622 *********************************************************************** 00035810 6623 * * 00035820 6624 * X X xxx X XXXXX XXXX xx xxx * 00035830 6625 * X X X X X X X X X X X * 00035840 6626 * X X X XXX X X XXX X X XXX * 00035850 6627 * X X X X X X X X X X X X * 00035860 6628 * X X X X X X XXXX XX X * 00035870 6629 * * 00035880 6630 * * 00035890 6631 * * 00035900 6632 * * 00035910 6633 * * 00035920 6634 *********************************************************************** 00035930 6636 WRTAWAY 6638 6641 6644 6647 6650 6653 6655 NOTNRZIW 6657 ALLOK 6660 6663 6666 6669 2365 D718 2011 3411 1801 61CF EC 736697 EQU BOC ANDM BOC BOC STO BU EQU ORM BOC * NRZFEAT,WRTSTNRZ SENSE2,NOTPE+HIDEN DBUS,ALLOK HIDEN,ALLOK MPGMERR,NOTCAP CLRXOUTA CHECKINK FOR NRZI BR IF NEITHER BR IF BIRCH SET NOT CAP TU IN NRZI AND NO NRZI FEAT BOC BOC * SENSE1,O BOT,WRTl TRACER, 0 WTMOP,DOWTM64 ERGOP,ERGAWAY GET LSR FOR BR IF LP IS SEE WHAT WE BR IF WRITE BR IF ERASE STO LINK2,IBGGONE SET UP LINK RETURN ORM 00035950 00035960 00035970 00035980 00035990 00036000 00036010 00036020 00036030 00036040 00036050 00036060 00036070 TEST ON ARE DOING TAPE MARK GAP 00036090 6676 *********************************************************************** 00036110 6677 * WAIT FOR READ DATA- WRITE OP HAS BEEN INITIATED. IF READ DATA IS * 00036120 6678 * SEEN TOO SOON, EARLY BEGIN CHECK WILL BE SET. EXIT OCCURS WHEN BLK * 00036130 6679 * RISES. IF BLK DOES NOT RISE WITHIN A SPECIFIC TIME AFTER STOP IS * 00036140 6680 * SEEN, NO BLOCK WILL BE SET AND AN ERROR EXIT TAKEN. * 00036150 6681 *********************************************************************** 00036160 ~...., \ ) 000617 000618 000619 00061A 00061B 00061C 000610 8Dl0 4D42 8D22 381C CDFD 02FA 0100 6683 ******** SEQUENCE 0 ********** XOUTAIM,SYNC N IMAGE SYNC 6685 SETSYNC ORI XFR XOUTAIM,XOUTA SET SYNC TO DATA FLOW 6688 ORI XOUTAIM,LOGAIN+NOLOSS SET LO GAIN FOR LATER 6691 6694 BOC 6250,SETSYNC2 AND XOUTAIM,ONES-LOGAIN RESET LOGAIN. FOREPE 6697 WORK3,ONES-5 LOAD BLOCK RECOGNITION COUNT 6700 SETSYNC2 STO STO WORK2,0 CLR TIME OUT CTR 6703 00061E 00061E 00061F 000620 000621 000622 8440 4428 00C8 3A2C 2422 6706 VELCHKl 6708 6711 6714 6717 6720 VELCHK2 f'~ \, ,-\ \",) EQU ORI XFR STO BOC BOC MARK SEQ 0 * STATIMG,PERMRDWT STATIMG,STAT WORK1,200 STATC,VELCHK4 RDTIME,VELCHK2 IMAGE WRITE CONDITION SET WRITE CONDITION LOAD CTR LWR BR WAIT FOR RDTIME TO FALL f , ,, * 00036180 00036190 00036200 00036210 00036220 00036230 00036240 00036250 00036270 00036280 00036290 00036300 00036310 00036320 ,t:~, ~, / ROS2 3803-2 MICROCODE LISTING LOC 000623 000624 000625 000626 000627 000628 000629 00062A 00062B OBJECT CODE AOFF 202C 3C2A 8Cl0 3829 662A lD02 2422 662A ADDRl ADDR2 PN 1846378 STMT SOURCE STATEMENT 6723 ADD WORK 1 , ONES 6726 BOC DBUS,VELCHK4 6729 VELCHK10 BOC NBLOCK,VELCHK3 6732 ORI DTACHK1,FASTBGN 6735 BOC 6250,SETEQCK 6738 BU VELCHK3 6741 SETEQCK STO EQUIPCK,PERR 6744 VELCHK3 BOC RDTIME,VELCHK2 6747 BU VELCHK3 00062C 242C 000620 3C2F 00062E 5922 6750 ******** SEQUENCE 1 ********** 6752 VELCHK4 BOC RDTIME,VELCHK4 BOC NBLOCK,VELCHK5 6755 6758 XFR LINK2,IC 00062F 2732 000630 000630 242C 000631 6630 6762 VELCHK5 6764 VELCHK6 6766 VELCHK7 6769 000632 000633 000634 000635 000635 000636 6772 6774 6777 6780 6782 6784 6787 Al0l 2130 1010 4012 61DO BOC EQU BOC BU * RUN TIME OUT VELCHK8 ADD BOC VELBAD STO VELOUT EQU STROBTIE XFR BU EC 736697 DECREMENT CTR BY ONE EXIT ON NO CARRY IBG SHD NOT FALL HERE SET EARLY BEGIN BR IF GCR PAGE F01MAY72 * UC CANT RECOVER FROM THIS ONE WAIT FOR RDTIME TO RISE WAIT FOR RDTIME TO FALL WAIT FOR IBG TO FALL RETURN STOP,VELCHK8 IS STOP ON * RDTIME,VELCHK4 WAIT FOR RISE OF READ TIME VELCHK7 COUNTER IF STOP IS ON ********************************* WORK2,1 BUMP CTR NALCO,VELCHK6 WAIT FOR OVERFLOW EQUIPCK,NBLOCK SET NO BLOCK ERROR * POINTERS ENDUP GET TIE TO BUS * 87 2/04/74 00036330 00036340 00036350 00036360 00036370 00036380 00036390 00036400 00036410 00036430 00036440 00036450 00036460 00036480 00036490 00036500 00036510 00036530 00036540 00036550 00036560 00036570 00036580 00036590 6791 *********************************************************************** 00036620 6792 * BLK HAS FALLEN SO CONTINUE READ BACK CHECK WHILE WAITING FOR THE * 00036630 6793 * MARK1. * 00036640 6794 *********************************************************************** 00036650 000637 000638 000639 00063A 00063B 00063C 00063C 00063D 00063E 00063F 000640 000641 000642 000643 000644 OOFC 03E8 383C 00F5 0307 243C 2F43 3C43 A201 2144 8901 2E44 8C80 AOOl 6797 6799 6802 6805 6808 6811 6813 6815 6818 6821 6824 6827 6830 6833 6836 6839 ******** SEQUENCE 2 ********** IBGGONE STO WORK1,ONES-3 STO WORK4,ONES-23 BOC 6250,WRITE20 STO WORK1,ONES-l0 STO WORK4,ONES-40 WRITE20 EQU * RDTIME,WRITE201 WRITE201 BOC BOC IBG,WRITE30 NBLOCK,WRITE30 WRITE33 BOC ADD WORK3,1 BOC NALCO,WRITE22 ORI FRU,l BOC BOR,WRITE22 DTACHK1,IBGDROP WRITE30 ORI WRITE22 ADD WORK1, 1 LOAD LO GAIN CTR LOAD MARK TIME OUT CTR BR IF BIRCH MODE LOAD LO GAIN CTR LOAD BEG ONES TIME OUT ET SEQ WAIT FOR RDTIME TO FALL IBG SHD NOT RISE SHD NOT TAKE BRANCH BUMP BLOCK CTR BR ON NO CARRY SET BOR SEEN SEQ 7 BOR SHD BE UP SET ERROR BUMP CTR 00036680 00036690 00036700 00036710 00036720 00036730 00036740 00036750 00036760 00036770 00036780 00036790 00036800 00036810 00036820 00036830 ROS2 3803-2 MICROCODE LISTING OBJECT CODE 214C 4D42 384E 9DOO 364F 8D02 OOFA LOC 000645 000646 000647 000648 000649 00064A 00064B 00064C 00064C 243C 00064D 664C ADDR1 ADDR2 PN 1846378 STMT SOURCE STATEMENT 6842 BOC NALCO,WRITE220 6845 XFR XOUTAIM,XOUTA 6848 BOC 6250,RESYNC 6851 ORM XOUTAIM,O 6854 BOC DREG6,WRT01 6857 ORI XOUTAIM,LOGAIN 6860 STO WORK1,ONES-5 6862 WRITE220 EQU * 6864 WRITE221 BOC RDTIME,WRITE201 6867 BU WRITE221 EC 736697 PAGE F01MAY72 BR ON NO CARRY SET LO GAIN BR IF GCR TEST LSR BR IF LOGAIN IS ON SET LO GAIN LOAD PHASE WINDO CTR WAIT FOR RDTIME TO RISE 88 2/04/74 00036840 00036850 00036860 00036870 00036880 00036890 00036900 00036910 00036920 00036930 6871 *********************************************************************** 00036960 6872 * LO GAIN HAS BEEN SET SO MONITOR FOR BEGINNNING MARK SET START .. 00036970 6873 * READ CHECK IF BEGINNING MARK IS MISSED,AND DROP La GAIN. 00036980 6874 ****************************~************************* ****************" 00036990 00064E CDEF 00064F 2451 000650 664F 6877 RESYNC 6880 WRT01 6883 AND BOC BU XOUTAIM,ONES-SYNC RDTIME,WRT02 WRT01 RESET FOR USE LATER WAIT ~OR READ TIME 000651 000652 000653 000654 000655 000656 000657 000658 226A 3C57 A201 2158 8901 2E58 8C80 2458 6887 6890 6893 6896 6899 6902 6905 6908 BOC BOC ADD BOC ORI BOC ORI BOC ROCROT,WRITE27 NBLOCK,WRT04 WORK3,1 NALCO,WRT05 FRU,l BOR,WRT05 DTACHK1, IBGDROP RDTIME,WRT05 WATCH FOR ROC ROTATION TEST NO BLOCK BUMP BLOCK CTR BR IF NO CARRY SET SEQ (7) BOR SEEN TEST BOR SET ERROR - NO BOR OR BLOCK WAIT FOR FALL 000659 00065A 00065B 00065C 00065D 00065E 00065F 000660 000661 000662 000663 000664 000665 000666 000667 000668 000669 D901 205C 2D6C 2767 A301 214F 2261 8C04 8A08 CDFD 4D42 0901 204F 6671 A101 214F 667C 6912 6915 6918 6921 6924 6927 6930 6933 6936 6939 6942 6945 6948 6951 6954 6957 6960 ANDM BOC BOC BOC FRU,l DBUS,WRT07 DATARDY,WRITE23 STOP,WRT08 WORK4,1 NALCO,WRTO1 ROCROT,SKIPSLO DTACHK 1 , SLOWBGN DTACHK2,STREADCK XOUTAIM,ONES-LOGAIN XOUTAIM,XOUTA FRU,l DBUS,WRT01 WRITE28 WORK2,1 NALCO,WRT01 WRITE25X HAS BOR BEEN SEEN BR IF NOT NORMAL EXIT ON FRAME BUFFER DATA LOOK FOR STOP BUMP TIME OUT CTR WRT02 WRT03 WRT04 WRT05 WRT06 WRT07 ADD SKIPSLO WRT08 BOC BOC ORI ORI AND XFR ANDM BOC BU ADD BOC BU RLC ONLY SKIP SLOW BGN IF ROC ROTATION SET ERROR SET ERROR -- START REDA CHK RESET IMAGE RESET LOGAIN AND SYNC HAVE EE SEEN BOR BR IF NOT BUMP TIME OUT CTR BR IF OK ERRROR 00037010 00037020 00037030 00037050 00C~7060 000.'7070 00037080 0003'090 0003'l10D CREASI 00037110 00037120 00037140 00037150 00037160 00037170 00037180 00037190 00037200 00037210 00037220 00037230 00037240 00037250 00037260 00037270 00037280 00037290 00037300 6965 *********************************************************************** 00037340 6966 * MARK 1 HAS BEEN SEEN. RESET SYNC BIT IN XOUTA * 00037350 6967 * AND EXIT TO CHECK VELOCITY IF STOP HAS NOT BEEN SEEN. * 00037360 ROS2 LOC 3803-2 MICROCODE LISTING OBJECT CODE ADDR1 ADDR2 PN 1846378 00066A 4D42 00066B 6652 6971 ******** SEQUENCE 3 ********** 6973 WRITE27 XFR XOUTAIM,XOUTA 6976 BU WRT03 00066C 00066C 00066D 00066E 00066F 000670 000671 6979 WRITE23 6981 6984. 6987 6990 WRITE999 6993 6996 WRITE28 4D42 2771 3A71 16A8 6300 2F83 EC 736697 PAGE 89 STMT SOURCE STATEMENT F01MAY72 2/04/74 6968 *********************************************************************** 00037370 EQU XFR BOC BOC STOH BU BOC 00037400 00037410 00037420 DROP SYNC LINE 00037440 00037450 00037460 00037470 00037480 00037490 00037500 * XOUTAIM,XOUTA ASSURE SYNC IS RESER STOP,WRITE28 DONT VELOCITY CHECK IF STOP IS ON BR IF LWR STATC,WRITE28 SENSE1,FIRST+DATATIM+CNTRDY CHKVEL IBG,DROPGO 6999 *********************************************************************** 00037520 7000 * WAIT FOR END DATA- THEN EXIT TO POSTAMBLE CHECK. * 00037530 7001 ****************** •• * •••••• ***.***.* •••••••• * •••• **.**** ••••• ********** 00037540 000672 000672 000673 000674 000675 000676 000677 000678 000679 00067A 00067B 00067C 00067D 00067E 00067F 000680 000681 000682 000683 000684 000685 000686 000687 2474 6672 2888 2474 277A 2888 2474 6677 Al0l 2177 8C02 277F: 667D D901' 2034 2F35 6681 9500 3072 1508 5524 6672 7003 7004 7006 7009 7012 7015 7018 7021 7024 7027 ••• ***.* SEQUENCE 4 ••• ** •• ** •• • WRITE28X EQU WRITE280 BOC RDTIME,WRITE32 BU WRITE280 WRITE32 BOC ENDATA,WRITE40 BOC RDTIME,WRITE32 BOC STOP,WRITE25 WRITE34 BOC ENDATA,WRITE40 BOC RDTIME;WRITE32 BU WRITE34 7030 7032 7035 7038 7041 7044 7047 7050 7053 7056 7059 7062 7065 7068 7071 * RUN TIME OUT WRITE25 ADD BOC WRITE25X ORI CHKBORXlI. BOC BU CHKBORXY ANDM BOC LOOKIBG BOC BU DROPGO ORM BOC STO XFR BU CTR IF STOP IS ON WORK2,1 NALCO,WRITE34 DTACHK1,SLOWEND STOP,CHKBORXY CHKBORXX FRU,X' 01.' DBUS,VELBAD IBG,VELOUT LOOKIBG FLAGS, 0 DREGO,WRITE280 WORK5,DEVSEL WORK5,TUTAG WRITE280 00037560 00037570 00037580 00037590 00037600 00037610 00037620 00037630 00037640 00037650 J WAIT FOR RDTIME TO RISE BR ON EOD WAIT FOR RD TIME TO FALL GO RUN TIMEOUT CTR NORMAL EXIT WAIT FOR RD TIME TO RISE BUMP TIME OUT SHD NEVER CARRY SET ERROR WAIT FOR STOP IF NECESSARY HAVE WE SEEN BOR BR IF NOT WAIT FOR IBG TEST FOR DIAG WRITE GO BACK IF SO DROP MOVE * UC * 00037670 00037680 00037690 00037700 00037710 00037720 00037730 00037740 00037750 00037760 00037770 00037780 00037790 00037800 00037810 7075 ***************.*************.** •• **.********************************** 00037840 7076 * END OF DATA DETECTED. CHECK POSTAMBLE * 00037850 7077 ************.*******.************************* •• *********************** 00037860 EC 736697 PAGE 90 3803-2 MICROCODE LISTING LOC 000688 000688 000689 00068A 00068B 00068C 00068D 00068E 00068F 000690 OBJECT CODE CDDF 4D42 00F4 388D 00E2 2D91 2FA3 2D91 668D STMT SOURCE 7078 WRITE40 7080 7083 7086 7089 7092 7095 WRITE41 7098 7101 7104 000691 000692 000693 000694 000695 000696 AOOl 219E 38M CDCF 4D42 OOEC 7108 WRITE420 ADD 7111 BOC 7114 BOC AND 7117 7120 XFR 7123 STO WORKl , 1 BUMP ONES CTR NALCO,WRITE43 BR ON NO CARRY 6250,SETENDER BR IF GCR XOUTAIM,ONES-SYNC-NOLOSS LINE TO DATA FLOW XOUTAIM,XOUTA LOAD NEW CTR WORK1,ONES-19 000697 000698 000699 00069A 00069B 2497 2FA6 AOOl 219C 8A02 7127 HERENOW 7130 7133 7136 7139 SOC BOC ADD BOC ORI RDTIME,HERENOW IBG,WRITE50 WORK1,1 NALCO,THERE DTACHK2,EXCPOST WAIT FOE RD TIME TO FALL NORMAL EXIT BUMP CTR BR IF OK YET SET ERROR 00038050 00038060 00038070 00038080 00038090 00069C 00069D 00069E 00069F 2497 669C 2D9E 668D 7143 THERE 7146 7149 WRITE43 7152 BOC BU BOC BU RDTIME,HERENOW THERE DATARDY,WRITE43 WRITE41 WAIT FOE RD TIME TO RISE 00038110 00038120 00038130 00038140 0006AO 0006Al 0006A2 0006A3 0006A4 0006A5 BOOl 21M 667D 38AO 8A02 667D 7156 7159 7162 7165 7168 7171 ADDRl ADDR2 r:;,., "- ) \ f '" STATEMENT EQU * RESET NOLOSS AND XOUTAIM,ONES-NOLOSS XOUTAIM,XOUTA XFR DO IT WORK 1 ,ONES-ll LOAD ONES CTR 12 GRPS STO 6250,WRITE41 BR IF HI DENS SOC STO WORK1,ONES-29 RELOAD CTR FOR 1600 BOC DATARDY,WRITE420 WAIT FOR ONE$ TO RISE IBG,WRITE49 NORMAL EXIT BOC 420WATCH AGAIN FOR ONES DATARDY,WRITE420 BOC WRITE41 BU WRITE54 ADDM WRITE542 BOC BU WRITE49 BOC SETENDER ORI BU 7175 WRITE50 7178 0006A6 BOOF 0006A7 66Al ,-;~ \,,~_/' PN 1846378 ROS2 - ) ADDM BU F01MAY72 00037980 00037990 00038000 00038010 00038020 00038030 WAIT FOR ONES TO FALL WORK1,1 NALCO,SETENDER CHKBORXX 6250,WRITE54 DTACHK2,EXCPOST CHKBORXX CK RESULTS SHD CARRY BR IF GCR SET ERROR WORK1,15 WRITE542 * UC ASSURE MORE THAN 5 BYTES GO CHK RESULTS I '. 2/04/74 00037870 00037880 00037890 00037900 00037910 00037920 00037930 00037940 00037950 00037960 r ~ \ / * 00038160 00038170 00038180 00038190 00038200 00038210 00038230 00038240 ~-~ "-) ROS2 PN 1846378 3803-2 MICROCODE LISTING LOC OBJECT CODE 0006A8 6024 ADDRl ADDR2 STMT SOURCE STATEMENT 7183 ERGAWAY BU ERGSTR EC 736697 PAGE F01MAY72 GO DO ERASE GAP 91 2/04/74 00038270 7186 *********************************************************************** 00038290 7187 * WRITE TAPE MARK HAS BEEN INITIATED - READ BACK CHECK TO ASSURE * 00038300 7188 * GOOD TAPE MARK. IF READ DATA IS SEEN TOO SOON, EARLY BEGIN CHECK * 00038310 7189 * WILL BE SET. IF NO READ DATA IS SEEN, NO BLOCK ERROR IS SET. * 00038320 7190 * ONCE BLK RISES, THE TAPE MARK BRANCH CONDITION MUST STAY UP * 00038330 7191 * UNTIL BLK FALLS AGAIN. IBGDROP ERROR INDICATES THAT THIS * 00038340 7192 * DID NOT HAPPEN. * 00038350 7193 *********************************************************************** 00038360 0006A9 1951 0006M 3MC 0006AB 6025 7196 DOWTM64 7199 7202 STO BOC BU LINK2,WTMSTR2 STATC,WTMAWAY ERGCTR LOAD LINK RETURN BR IF LWTM GO DO ERG FIRST 00038380 00038390 00038400 0006AC 19AE 0006AD 661C 7206 WTMAWAY 7209 STO BU LINK2,WTM20 SETSYNC2 LOAD LINK RETURN GO WAIT FOR DATA 00038420 00038430 0006AE 0006AF 0006BO 0006Bl 0006B2 0006B3 0006B4 0006B5 0006B6 0006B7 0006B8 0006B9 0006BA 0006BB 0006BC 0006BD 0006BE 0006BF 0006CO 0006Cl 0006C2 0006C3 OOCA 03CE 24BO AOOl 21BB 01E3 24B4 Al0l 21B8 8C02 2FCA 24B4 66B8 3CC8 A201 21BF 8901 3DC5 A301 . 21C3 8902 24BO 7213 7216 7219 7222 7225 7228 7231 7234 7237 7240 7243 7246 7249 7252 7255 7258 7261 7264 7267 7270 7273 7276 STO STO BOC ADD BOC STO BOC ADD BOC ORI BOC BOC BU BOC WORK1,ONES-53 WORK4,ONES-49 RDTIME,WTM21 WORK1,1 NALCO,WTM22 WORK2,ONES-28 RDTIME,WTM21B WORK2,1 NALCO,WTM26 DTACHK1,SLOWEND IBG,WTM30 RDTIME,WTM21B WTM26 NBLOCK,WTM27A WORK3,1 NALCO,WTM23 FRU,l NTM,WTM27 WORK4,1 NALCO,WTM24 FRU,2 RDTIME,WTM21 LOAD TM WINDOW CTR SET TM COUNTER WAIT FOR RDTIME TO FALL BUMP WINDOW CTR BR IF STILL OPEN LOAD TIME OUY WAIT FOR RDTIME TO FALL BUMP TIME OUT BR ON NO CARRY SET ERROR NORMAL EXIT WAIT FOR RD TIME TO RISE 0006C4 0006C5 0006C6 0006C7 0006C8 0006C9 66C3 9900 37C8 66C3 8C80 66C3 7280 7283 WTM27 7286 7289 7292 WTM27A 7295 0006CA 9900 0006CB 37CD 0006CC 6634 WTM20 WTM21 WTM21A WTM21B WTM25 WTM26 WTM22 ADD WTM23 BOC ORI BOC ADD WTM24 7300 WTM30 7303 7306 BOC ORI BOC BU ORM BOC BU ORI BU ORM BOC BU WTM24 FRU,O DREG7,WTM27A WTM24 DTACHK1,IBGDROP WTM24 FRU,O DREG7,WTM31 VELBAD SHOULD NOT BRANCH BUMP BLOCK CTR BR ON NO CARRY SET SEQ 7 - BLOCK SEEN BR IF NO TAPE MARK BUMP TM COUNTER BR ON NO CARRY SET, SEQ 6 - TM GOOD WAIT FOR RD TIME 00038450 00038460 00038470 00038480 00038490 EC736696 00038500 00038510 00038520 00038530 * UC * 00038540 00038550 00038560 00038570 00038580 00038590 00038600 00038610 00038620 00038630 00038640 00038650 00038660 BR IF BLOCK OK SET ERROR GET REGISTER FOR TEST BR IF BLOCK OK GO SET NOBLOCK ERROR '" UC * 00038680 00038690 00038700 00038710 00038720 00038730 00038760 00038770 00038780 ROS2 3803-2 MICROCODE LISTING LOC 0006CD 0006CE 0006CF OBJECT CODE 36CF 8A20 6100 0006D6 0006D7 0006D8 0006D9 0006DA 0006DB 0006DC 0006DD 0006DE 0006DF 0006EO 0006E1 0006E2 0006E3 0006E4 0006E5 EC 736697 PAGE 2/04/74 00038790 00038800 00038810 4428 1950 DOFF 0100 621C 7318 7320 7322 7323 7324 7325 7327 7330 7333 7336 7339 *** LOAD POINT - WRITE 10 BURST ****** WRTl ORI STATIMG,WRTBURST+SETSTATB *********************************************************************** * TURN ON WRITE CONDITION & WRITE BURST STAT - THEN MOVE FIRST TWO * * INCHES WITHOUT CHECKING. * *********************************************************************** XFR STATIMG,STAT SET WRITE BURST STAT STO LINK2,TRETURN5 LOAD RETURN - WRT2 STO WORK1,ONES LOAD HIGH COUNTER STO WORK2,0 LOAD LOW COUNTER - 2 INCHES BU ZEROCTR 00038830 00038840 00038850 00038860 00038870 00038880 00038890 00038900 00038910 00038920 00038930 1900 8820 03FO 6703 7342 7343 7344 7345 7347 7350 7353 7356 *********************************************************************** * TURN ON FLAG FOR TAK COUNTER (CHECK BURST), THEN MOVE NEXT FOUR * * * INCHES CHECKING B U R S T . · *********************************************************************** WRT2 STO LINK2,WRT4 LOAD LINK RETURN WRT21 ORI TRACER, LPMARK SET FLAG FOR TRK CTR STO WORK4,ONES-15 CLEAR ID CTR WRT3 BU WRT30 00038950 00038960 00038970 00038980 00038990 00039000 00039010 00039020 5460 020A 4224 A278 21DD 3FE5 4281 37DF 0208 4224 5922 6710 7360 ******** CHECK POSITIONING SUBROUTINE ********************************* 7361 * * 7362 * CHECK FOR POSITIONING RESPONSE TO COMMAND TAG - IF ON, WAIT * 7363 * FOR IT TO FALL. * 7364 * * 7365 *********************************************************************** 7368 CHKPOSIT XFRH STATIMG,TUBO ASSURE TUBO IS CLEAR 7371 STO WORK3,DEVSEL+COMMAND 7374 XFR WORK3,TUTAG RAISE CMD TAG 73770NEMORE ADD WORK3,120 BUMP WAIT COUNTER 7380 BOC NALCO,ONEMORE WAIT FOR CARRY OUT 7383 WAITSOME BOC DEVATTN,ZAPl ABNORMAL EXIT 7386 XFR WORK3,TUBI BRING IN DEVICE RESPONSE 7389 BOC DREG7,WAITSOME WAIT FOR POSITIONING TO FALL 7392 STO WORK3,DEVSEL RESET CMD TAG IMAGE 7395 XFR WORK3,TUTAG DROP CMD TAG 7398 XFR LINK2,IC RETURN TO CALLER 7401 ZAP1 BU ENDUPEX 00039050 00039060 00039070 00039080 00039090 00039100 00039120 00039130 00039140 00039150 00039160 00039170 00039180 00039190 00039200 00039210 00039220 00039230 ADDRl ADDR2 STMT SOURCE 7309 WTM31 7312 SETWTMCK 7315 WTM32 STATEMENT BOC DREG6,WTM32 ORI DTACHK2,WTMERR BU ENDUP 0006E6 6161 7405 CRETURN1 BU LETSGO 0006E7 675E 0006E8 677C 0006E9 674C 7409 CRETURN2 BU 7412 CRETURN3 BU 7415 CRETURN4 BU ERASE4 BKWDINIT DOBOTXX F01MAY72 92 * 000600 8424 000601 000602 000603 0006D4 0006D5 PN 1846378 BR IF TM IS OK SET UNIT CHECK EXIT * UC 00039250 TRNARND RETURN 00039270 00039280 00039290 \ / ROS2 PN 1846378 3803-2 MICROCODE LISTING LaC OBJECT CODE 0006EA 60B8 AD DR 1 ADDR2 EC 736697 STMT SOURCE STATEMENT 7418 CRETURN5 BU READS TOP PAGE F01MAY72 93 2/04/74 00039300 0006EB 2DFA 0006EC 28F1 0006ED 24EB 7421 ** 7423 TMLOOP1 7426 TM10BOR 7429 NRZI TM - READ BACK CHECK DATARDY,SETBOR1 BOC ENDATA,TMFINIS BOC BOC RDTIME,TMLOOP1 COMPLETION FRaN PAGE 4 WATCH FOR SECOND DATA RDY NORMAL EXIT WAIT. FOR FALL 00039320 00039330 00039340 00039350 0006EE A101 0006EF 21F7 0006FO 8C02 7433 7436 7439 ADD BOC ORI WORK2,1 NALCO,TMLOOP2 DTACHK 1 , SLOWEND BUMP TIME OUT CTR BR IF OK YET SET ERROR 00039370 00039380 00039390 0006F1 9900 0006F2 37F4 0006F3 6634 7443 TMFINIS 7446 7449 aRM BOC BU FRU,O DREG7,TMEND2 VELBAD TEST BaR SEEN BR IF OK 00039410 00039420 00039430 0006F4 3DCE 0006F5 6100 7453 TMEND2 7456 BOC BU NTM,SETWTMCK ENDUP SHD NOT BR 00039450 00039460 8901 2DF6 24EB 66F7 7461 SETBOR2 7464 TMLOOP2 7467 TM20BOR 7470 ORI BOC BOC BU FRU,1 DATARDY,SETBOR2 RDTIME,TMLOOP1 TMLOOP2 SET BaR SEEN FLAG WATCH FOR DATA RDY WAIT FOR RISE 00039490 00039500 00039510 00039520 0006FA 8901 0006FB 66EC 7474 SETBOR1 7477 ORI BU FRU,1 TM10BOR SET BaR SEEN FLAG 00039540 00039550 000700 000700 000701 000702 000703 000704 7480 7482 WRT4 7485 7488 7491 WRT30 7494 ORG STO BOC STO STO BU BEGIN+X' 700' LINK2,WRT5 6250,WRT30 LINK2,ARETURN1 WORK1,ONES-212 CLRCTR1 LOAD LINK RETURN BR IF HI DENS LOAD LINK FOR PE RETURN 00039570 00039580 00039590 00039600 00039610 00039620 0006F6 0006F7 0006F8 0006F9 000705 000706 000707 000708 000709 00070A 1905 3803 197B 002B 6783 C4DB 4428 1A3E 0312 020D 6530 00070B 8444 00070C 8840 7497 *********************************************************************** 00039640 AND GO SET NORMALIZE 7498 * RESET WRITE BURST STAT AND * 00039650 * 00039660 7499 * TO THE TAPE UNIT. 7500 *********************************************************************** 00039670 00039680 AND STATIMG,ONES-WRTBURST-SETSTATB 7502 WRT5 00039690 7505 XFR STATIMG,STAT RESET STATS 00039700 STO LINK3,ZRETURN2 LOAD LINK RETURN 7508 00039710 7511 STO WORK4,SETDENS+SETERASE D SET NORMALIZE CMD 00039720 WORK3,DEVSEL+CONTROL+MOVE 7514 STO 00039730 7517 BU SETCTRL1 00039740 7519 * SAGC CIRCUITS MUST WAIT WRT TO RD HEAD DISTANCE BEFORE ADJUSTING 7521 *********************************************************************** 00039760 7522 * TURN ON WRT CONDITION AND STATB TO ALLOW ALU1 TO BEGIN WRITE OF * 00039770 7523 * SAGC BURST. THEN EXIT TO TAK COUNTER 512 TACHS WITH NO CHECKING * 00039780 7524 *********************************************************************** 00039790 00039800 7526 WRT6 STATIMG,SETSTATB+PERMRDWT ORI 00039810 7529 SET FLAG FOR TAK COUNTER TRACER,CHKBRST ORI ROS2 3803-2 MICROCODE LISTING LOC 000700 00070E 00070F 000710 OBJECT CODE 1911 0000 4428 6783 ADDRl ADDR2 PN 1846378 STMT 7532 7535 7538 7541 SOURCE STATEMENT STO LINK2,WRT7 WORK1,0 STO XFR STATIMG,STAT BU CLRCTRl F01MAY72 94 LOAD RETURN LOAD COUNT - 256 TACKS NOTIFY ALU TO GO AHEAD 2/04/74 00039820 00039830 00039840 00039850 SET RETURN GO COUNT 256 TACHS 00039870 00039880 7545 WRT7 7548 000713 1916 000714 009B 000715 6783 7552 WRT8 STO LINK2,WRT9 SET RETURN WORK1,ONES-l00 SET COUNT - 101 TACHS 7555 STO CLRCTRl 7558 BU 7560 *********************************************************************** 7561 * INTERRUPT WRITE READ BOR ** EQUIP CK EQUIP CK 0 0 7562 * 10 BURST CK 1 READ ERROR + SAGC BIT 1 7563 * 7564 * NORMAL NORMAL 1 0 1 ID BURST CK NOT CAP 7565 * 0 * 00039900 00039910 00039920 00039930 00039940 00039950 00039960 00039970 00039980 000716 000717 000718 000719 00071A 0820 201F 3F1B 1002 671C 7568 WRT9 7571 7574 7577 EQSAGC 7580 ANDM BOC BOC STO BU TRACER, LPMARK DBUS,WRT90 DEVATTN,DTASAGC EQUIPCK,PERR ENDUPEXA CHK BOR FLG / SHD BE OFF BR IF OK BYPASS EQUIP CHK IF TU HOLLERS SET EQUIPMENT CHECK * UC " 00040000 000400'0 00040020 00040030 00040040 00071B 00071C 000710 00071E 8Al0 8C08 C4FB 61CF 7584 DTASAGC 7587 ENDUPEXA 7590 END UP EX 7593 ORI ORI AND BU DTACHK2,FORMATCK SET ERROR DTACHK 1 , TSAGC SET ERROR STATIMG,ONES-SETSTATB CLRXOUTA 00071F 000720 000721 000722 000723 000724 000725 000726 000727 000728 000729 00072A 00072B 00072C 000720 00072E 00072F 000730 000731 000732 0087 01FE 2421 2424 6722 271B 291F AOOl 2121 Al0l 2121 272C 672A 3F1B 2F2F 6720 lCFA C4BB 4428 62El 7598 7601 7604 7607 7610 7613 7616 7619 7622 7625 7628 7631 7634 7637 7640 7643 7646 7649 7652 7655 STO STO BOC BOC BU BOC BOC ADD BOC ADD BOC BOC BU BOC BOC BU STO AND XFR BU WORK1,ONES-120 LOAD CTR LOAD CTR WORK2,ONES-l WAIT FOR FALL RDTIME,ID3 WAIT FOR RISE RDTIME,ID5 104 STOP,DTASAGC ERROR EXIT NSAGCID,WRT90 WAIT FOR ID WORK1,1 BUMP CTRS NALCO,ID3 WORK2,1 BUMP CTR NALCO,ID3 STOP,ID14 NORMAL EXIT 1012 ERROR EXIT DEVATTN,DTASAGC WAIT FOR IBG IBG,WRT95 10145 LINK1,SRETURN5 LOAD LINK RETURN STATIMG,ONES-SETSTATB-PERMRDWT STATIMG,STAT RESET SOMETHING FCHSTS 103 104 ID5 ID12 1014 10145 WRT95 LINK2,WRT8 CLRCTRl PAGE 000711 1913 000712 6783 WRT90 STO BU EC 736697 * UC * * UC 00040060 00040070 00040080 00040090 00040120 00040130 00040140 00040150 00040160 00040170 00040180 00040190 00040200 00040210 00040220 00040230 00040240 00040250 00040260 00040270 00040280 00040290 00040300 00040310 7660 *********************************************************************** 00040350 r\ \j f~\ \, ) () ROS2 LOC PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE ADDRl ADDR2 STMT 7661 7662 7663 7664 7665 7666 7667 EC 736697 SOURCE STATEMENT F01MAY72 * * * THIS SUBROUTINE IS USED BY ALL WRITE OPS TO DETERMINE IF ERASE HEAD* * POSITIONING IS REQUIRED. THREE CASES ARE CONSIDERED - 1.BACKWARD AT* * LOAD POINT 2.BACKWARD READ STATUS AND NOT LOAD POINT 3.FORWARD * * READ STATUS. REQUIRED TAPE MOTIONS ARE PERFORMED BY THIS CODE. * * * *********************************************************************** PAGE 95 2/04/74 00040360 00040370 00040380 00040390 00040400 00040410 00040420 000733 D708 000734 205B 7670 NEEDERG 7673 ANDM BOC SENSE2,HIDEN DBUS,ERGNONE IS THIS A BIRCH TAPE UNIT EXIT IF NOT 00040440 00040450 000735 000736 000737 000738 7677 7680 7683 7686 ORM BOC BOC BOC SENSE1,0 WRTSTAT,ERGNONE BOT, DOBOT BACKWD,DOBACKWD GET SENSE BYTE FOR TEST EXIT IF ALREADY IN WRT STATUS BR IF BOT IS ON BR IF BKWD READ STATUS 00040470 00040480 00040490 00040500 9600 345B 334A 305C 7689 *********************************************************************** 00040520 7690 ******** WRITE AFTER FORWARD READ ************************************* 00040530 7691 *********************************************************************** 00040540 000739 19E7 00073A 66DA 7694 7697 STO BU LINK2,CRETURN2 CHKPOSIT LOAD LINK RETURN ERASE4 GO CHECK FOR POSITIONING 00073B 00073C 00073D 00073E 00073F 000740 000741 000742 000743 OOFF 0340 1940 lA81 6768 lA3F 0302 020D 6530 7702 ERASE5 7705 7708 7711 7714 7717 ERASE8 7720 ERASE7 7723 7726 STO STO STO STO BU STO STO STO BU WORK1,ONES LOAD CTR WORK4,RDFWDD PRELOAD CMD LOAD LINK RETURN LINK2,ERASE8 LINK3,TAKMOVE LOAD LINK FOR SET CMD SETCMD2 LINK3,CTLRET6 PRELOAD LINK RETURN - ERASE 6 WORK4,SETERASE PRELOAD CTRL WORK3,DEVSEL+CONTROL+MOVE SETCTRLl GO SET CTRL CMD 00040600 00040610 00040620 00040630 00040640 00040650 00040660 00040670 00040680 000744 0089 000745 1947 000746 6781 7730 ERASE6 7733 7736 STO STO BU WORK1,ONES-118 LINK2,ERASE9 TAKMOVE 00040700 00040710 00040720 000747 lA56 000748 0308 000749 6768 7740 ERASE9 7743 7746 STO STO BU LINK3,ERASE3 WORK4,WRITE SETCMD2 00074A 19E9 00074B 66DA 7749 7750 7751 7753 7756 00074C lA40 00074D 6741 7760 DOBOTXX 7763 STO BU LINK3,CTLRET3 ERASE 7 LOAD LINK RETURN - ERASE 00040840 00040850 00074E 0069 00074F 1951 7767 ERASE 1 7770 STO STO WORK1,ONES-150 LINK2,ERASE2 LOAD BKWD TAK CT LOAD LINK RETURN 00040870 00040880 LOAD FWD TAK CT . LOAD LINK RETURN LOAD LINK RETURN LOAD CMD GO SET WRITE MODE *********************************************************************** ******** WRITE FROM LOAD POINT **************************************** *********************************************************************** DOBOT STO LINK2,CRETURN4 LOAD RETURN--- DOBOTXX BU CHKPOSIT 00040560 00040570 00040740 00040750 00040760 00040780 00040790 00040800 00040810 00040820 ROS2 PN 1846378 3803-2 MICROCODE LISTING LOC OBJECT CODE 000750 6781 ADDRl ADDR2 STMT 7773 SOURCE STATEMENT BU TAKMOVE EC 736697 GO RAISE MOVE PAGE F01MAY72 000751 000752 000753 000754 000755 1956 0091 0308 lA81 6768 7777 ERASE2 7780 7783 7786 7789 STO STO STO STO BU LINK2,ERASE3 WORK1,145 WORK4, WRITE LINK3,TAKMOVE SETCMD2 LOAD LINK RETURN LOAD FWD TAl< CT PRELOAD CMD LOAD LINK FOR SET CMD GO SET WRITE 000756 000757 000758 000759 00075A 00075B 0208 4224 C67F 8608 0308 6138 7793 ERASE3 7796 7799 7802 7805 7808 ERGNONE STO XFR AND ORI STO BU WORK3,DEVSEL IMAGE TUTAGS WORK3,TUTAG DROP MOVE SENSE1,ONES-BACKWD RESET BKWD BIT SENSE1,WRSTAT TURN ON WRET STATUS WORK4,WRITE LOAD CMD CHECK THIS ************************** TRNARND * 96 2/04/74 00040890 00040910 00040920 00040930 00040940 00040950 00040970 00040980 00040990 00041000 00041010 00041020 7811 *********************************************************************** 00041040 7812 ******** WRITE AFTER BACKWARD READ ************************.************ 00041050 7813 *********************************************************************** 00041060 00075C 19E8 000750 66DA 7816 DOBACKWD STO 7819 BU LINK2,CRETURN3 CHKPOSIT LOAD LINK RETUEN 00075E 00075F 000760 000761 000762 000763 000764 7824 ERASE4 7827 7830 7833 7836 ERASE40 7839 7842 WORK1,ONES-140 SENSE2,0 DREG3,ERASE40 WORK1,ONES-146 LINK2,ERASE5 WORK4,RDBKWD LINK3,TAKMOVE LOAD BKWD TAK CT TEST LSR BR IF GCR MOPE CHG CONSTANT FOR PE LOAD LINK RETURN PRELOAD CMD LOAD LINK FOR SET CMD 0073 9700 3362 0060 193B 0380 lA81 STO ORM BOC STO STO STO STO BKWDINIT 7845 ******** SET COMMAND SUBROUTINE *************************************** 7846 * * 7847 * RAISE MOVE TO DEVICE IF ENTRY POINT IS SETCMD1. ASSUME MOVE * 7848 * IS ON IF ENTRY POINT IS SETCMD2. SET CMD TO TUBO & RAISE * 7849 * COMMAND TAG. CHECK TAPE UNIT RESPONSE - IF SATISFACTORY, CLEAR * 7850 * THE TUBO AND DROP CMD TAG. EXIT ROUTINE WITH MOVE STILL UP. * 7851 * * 7852 *********************************************************************** 000765 000766 000767 000768 000769 00076A 00076B 00076C 000760 00076E 00076F 000770 000770 020A 4360 4224 020B 4224 4360 A270 216B 0340 2070 0300 4981 7855 7858 7861 7864 7867 7870 7873 7876 7879 7882 7885 7887 7889 SETCMDl STO XFR XFR SETCMD2 STO SETCMD3 XFR XFR ONCEAGN ADD BOC ANDM BOC STO GETSTATS EQU STATSNOW XFR WORK3,DEVSEL+COMMAND RAISE COMMAND IN IMAGE WORK4,TUBO PASS CMD WORK3,TUTAG GIVE CMD TO DEVICE WORK3,DEVSEL+COMMAND+MOVE WORK3,TUTAG RAISE CMD TAG WORK4,TUBO SET CMD TO TUBO WORK3,112 BUMP COUNTER NALCO,ONCEAGN WAIT FOR OVERFLOW WORK4,RDFWDD IS CMD READ FWD DBUS,GETSTATS BR IF NOT WORK4,0 MODIFY STATUS BYTE FOR READ FWD * S CMD SET SAGC FRU,TUBI BRING IN DEVICE RESPONSE 00041080 00041090 00041120 00041130 00041140 00041150 00041160 00041170 00041180 00041200 00041210 00041220 00041230 00041240 00041250 00041260 00041270 00041290 00041300 00041310 00041320 00041330 00041340 00041350 00041360 00041370 00041380 00041390 00041400 00041410 ROS2 3803-2 MICROCODE LISTING LOC 000771 000772 000773 000774 000775 OBJECT CODE C9AE 4321 F900 2076 6173 000776 000777 000778 000779 00077A C209 5460 4224 5A22 60C7 ADDR1 ADDR2 PN 1846378 STMT 7892 7895 7898 7901 7904 EC 736697 SOURCE STATEMENT AND FRU,ONES-GAPCTRL-OPPDIR-POSIT OONT CARE BITS XFR WORK4,AR SET UP STATUS MASK XOM FRU,O MASK STATUS BOC DBUS,CMDEXIT NORMAL EXIT BU SETREJ GO SET CMD STATUS REJECT 7908 CMDEXIT 7911 7914 7917 7920 CRERETRN AND XFRH XFR XFR EU WORK3,DEVSEL+MOVE STATIMG,TUBO WORK3,TUTAG LINK3,IC NOW PAGE FO 1MAY 72 SET FOR,CMD DROP CLEAR BU OUT DROP CMD TAG RETURN TO USER 97 2/04/74 00041420 00041430 00041440 00041450 00041460 00041480 00041490 00041500 00041510 00041520 00077B 65F5 7925 ******** MOTION CONTROL VIA TACH LINE SUBROUTINE ********************** 7926 * * 7927 * THIS CODE CAN BE ENTERED WITH MOVE UP OR DOWN. ITS MAIN * 7928 * FUNCTION IS TO HOLD MOVE UP FOR A PRE-SPECIFIED AMOUNT. EACH * 7929 * TIME A TACH PULSE IS SEEN, WORK 1 IS INCREMENTED. EXIT OCCURS WHEN * 7930 * WORK 1 OVERFLOWS. * 7931 * CHKBRST FLAG LPMARK FLAG * 7932 * D 0 NOT LP CHECK * 7933 * 0 1 CHECK ID TRACK * 7934 * 1 1 NO CHK ON ID OR SAGC BRST * 7935 * 1 0 CHECK SAGC - ONCE BOR IS SEEN * 7936 * * 7937 *********************************************************************** 7939 ARETURN1 BU WRTP2 00041560 00041570 00041580 00041590 00041600 00041610 00041620 00041630 00041640 00041650 00041660 00041670 00041680 00041690 00077C 00077D 00077E 00077F 000780 0074 9700 3380 0079 193B 7943 BKWDINIT STO 7946 ORM 7949 BOC 7952 STO STO 7955 ERASER WORK1,ONES-139 SENSE2,0 DREG3,ERASER WORK 1 ,ONES-1 34 LINK2,ERASE5 00041710 00041720 00041730 00041740 00041750 000781 000782 000783 000784 020B 4224 0200 01FE 7959 TAKMOVE 7962 7965 CLRCTR1 7968 STO XFR STO STO WORK3,DEVSEL+MOVE+COMMAND MOVE TAG WORK3,TUTAG RAISE MOVE IF NECESSARY WORK 3 ,0 FILL TIME OUT COUNTER WORK2,X'FE' LOAD HI CTR 00041770 00041780 00041790 00041800 000785 000786 000787 000788 000789 2487 6785 3E8A 8808 678C 7972 TACH 1 7975 7978 TACH2 7981 7984 BOC BU BOC ORI BU RDTIME,TACH2 TACH 1 BSYTACH,YESTAK TRACER,TAKTR COUNTDWN WAIT FOR RDTIME TO RISE LOOK FOR ACTIVE TACH TURN ON TAK TRACE 00041820 00041830 00041840 00041850 00041860 00078A 00078B 00078C 00078D 00078E 9800 3492 248C A201 2185 7988 YESTAK 7991 7994 COUNTDWN 7997 8000 ORM BOC BOC TRACER, 0 TAKTR,COUNTONE RDTIME,COUNTDWN WORK3,1 NALCO,TACH1 LOOK AT TAK TRACE BR IF TAK TRACE ON WAIT FOR RD TIME TO FALL BUMP TIME OUT CTR WAIT SOME MORE 00041880 00041890 00041900 00041910 00041920 ADD BOC LOAD BKWD TAK CTS GET LSR TO TEST BR IF GCR MODE CHG CONSTANT FOR PE LOAD LINK RETURN PN 1846378 EC 736697 ROS2 3803-2 MICROCODE LISTING LOC 00078F 000790 000791 OBJECT CODE Al0l 2185 6246 000792 000793 000794 000795 000796 000797 000798 000799 00079A 00079B C8F7 31A9 32Al 5381 339C AOOl 2183 0209 4224 5922 TRACER,ONES-TAKTR 8013 COUNTONE AND CHKBRST,CHKID BOC 8016 LPMARK,CHK10RP BOC 8019 XFRH WORK4,TUBI 8022 OPPDIR,SUBONE BOC 8025 ADD WORK1,1 8028 TACH3 NALCO,CLRCTRl 8031 BOC WORK3,DEVSEL+MOVE STO 8034 WORK3,TUTAG XFR 8037 LINK2,IC XFR 8040 00079C 00079D 00079E 00079F 0007AO AOFF 209F 6783 m08 6710 0007A 1 39A3 0007A2 6797 SUBTRACT ONE FROM COUNTER ADD WORK 1 , ONES 8044 SUBONE SET DYNAMIC REVERSAL ERROR BOC DBUS,SETDRCK 8047 BU CLRCTRl 8050 EQUIPCK,DYREV SET ERROR 8053 SETDRCK STO BU ENDUPEX EXIT 8056 8058 * CHECK FOR CREASE IN SINGLE TRK ENVELOPE N1TE,CHKPORl 8060 CHK10RP BOC BU TACH 3 8063 0007A3 2CA5 0007A4 6797 8067 CHKPORl 8070 0007A5 0007A6 0007A7 0007A8 A301 2197 8Al0 6710 8074 CNTFORER ADD 8077 BOC 8080 lBGON ORI 8083 BU 0007A9 0007AA 0007AB 0007AC 2EAB 6797 C8DF 6797 8087 CHKID 8090 8093 CHKID2 8096 ADDRl ADDR2 STMT 8003 8006 8009 SOURCE STATEMENT ADD WORK2,1 BOC NALCO,TACHl BU SETNTACH BOC BU BOC BU AND BU BUMP CTR BR ON NO CARRY ERROR EXIT PAGE F01MAY72 98 2/04/74 00041930 00041940 00041950 RESET TAK TRACE BR ON FLAG BR ON FLAG BRING IN CMD STATUS BR IF ON TO DECREMENT CTR BUMP CTR KEEP COUNTING TILL OVERFLOW 00041970 00041980 00041990 00042000 00042010 00042020 00042030 00042040 00042050 00042060 DROP CMD TAG RETURN - NORMAL EXIT 00042080 00042090 00042100 00042110 00042120 00042130 00042140 00042150 NPTE,CNTFORER TACH 3 00042170 00042180 WORK4,1 NALCO,TACH3 DTACHK2,FORMATCK ENDUPEX 00042200 00042210 00042220 00042230 BOR,CHKID2 TACH3 TRACER,ONES-LPMARK TACH3 SET ERROR CREASE IN BURST SAMPLE BOR REST NO CHECK FLAG * UC * 00042250 00042260 00042270 00042280 8099 ************** VELOCITY CHECK FOR WRITE OPS ON 6250 UNITS ************ 00042300 *********** *********** * * 00042310 8100 * * 00042320 8101 * * TACH * * * * * 00042330 8102 * * LINE ************* * * *********** * 00042340 ******* 8103 * B C D * 00042350 A 8104 * * 00042360 8105 * * 00042370 8106 * AT RISE OF GAP CONTROL, CHECK ONE FULL TACH FOR BEING IN SPEC. 8107 * IF TACH A+B IS OUT OF SPEC, DROP COUNT ACCUMULATED ON A AND COUNT * 00042380 IF A+B IS * 00042390 8108 * ACROSS C. NOW CHECK FOR B+C IN SPEC. IF SO, EXIT * 00042400 8109 * NOT IN SPEC - VELOCITY RETRY WILL BE SET. * 00042410 8110 * VELOCITY LIMITS + OR - 6 PER CENT * 00042420 8111 * MOD 4 118.1US 131.1US * 00042430 8112 * MOD 6 70.8US 79.8US * 00042440 8113 * MOD 8 44.3US 49.9US * 00042450 8114 * * 00042460 8115 * f .~ " ) ROS2 LOC 0007AD 0007AE 0007AF 0007BO 0007Bl 0007B2 0007B3 0007B4 0007B5 0007B6 PN 1846378 3803-2 MICROCODE LISTING OBJECT CODE 101F 1118 9700 36B7 37B5 1077 1111 67B7 10AA 110B ADDRl ADDR2 EC 736697 8119 SETCOUNT STOH 8122 STOH 8125 ORM 8128 BOC 8131 BOC 8134 STOH 8137 STOH 8140 BU 8143 NOW200 STOH 8146 STOH WORK1,ONES-224 WORK2,24 SENSE2,0 DREG6,ISOKNOW DREG7,NOW200 WORK1,ONES-136 WORK2,17 ISOKNOW WORK 1 ,ONES-85 WORK2,11 LOAD BASE COUNT FOR MOD LOAD PEAK COUNT FOR MOD SEE WHAT KIND OF DRIVE BR IF MOD 3 BR IF MOD 7 LOAD BASE COUNT FOR MOD LOAD PEAK COUNT FOR MOD LOAD BASE COUNT FOR MOD 7 LOAD PEAK COUNT FOR MOD 7 VELOC001 BOC BSYTACH,VELOC002 BU VELOC003 VELOC002 ADD WORK3,1 BOC NALCO,VELOC001 * DRIVE WAS TOO SLOW VELOC004 BOC DEVATTN,UNTCHKl NOP2 BOC BSYTACH,VELOC004 LOOK AT TACH NORMAL EXIT BUMP CTR A LOOK FOR CARRY 00042710 00042720 00042730 00042740 00042750 00042760 00042770 00042780 00042790 00042800 00042810 0007BD 0007BE 0007BF 0007CO 3EBF 67C4 A201 21BD 8173 8176 8179 8182 8184 8186 8189 8192 8194 8195 8196 XFRH STO STO BOC BOC BU ********************** * CLOCK ACROSS TACHB EXIT ON READY DROP HANG TILL TACH CHANGES * ********************** 0007C8 3FDB 0007C9 3ECB 0007CA 67C8 WORK4,0 8199 VELOC003 STO BSYTACH,VELOC006 8202 VELOC005 BOC WORK4,1 8205 ADD NALCO,VELOC005 8208 BOC 8210 * DRIVE TOO SLOW DEVATTN,UNTCHK1 8212 VELOC007 BOC BSYTACH,VELOC006 8215 BOC VELOC007 8218 BU 0007CB 0007CC 0007CD 0007CE 0007CF 0007DO 0007Dl 8221 * CHECK ACCUMULATED COUNTS WORK4,AR 8223 VELOC006 XFR WORK3,0 ADD 8226 NALCO,VELOC008 BOC 8229 VELOC021 8232 VELOC009 BU WORK1,AR 8235 VELOC008 XFR WORK3,0 8238 ADD NALCO,VELOC011 8241 BOC 4321 A200 21CF 67F4 4021 A200 21D3 00042600 00042610 00042620 00042640 00042650 00042660 00042670 00042680 00042690 8154 ISOKNOW 8157 8160 8163 WAITONE 8166 ONEMORET 8169 21C5 5 5 00042490 00042500 00042510 00042520 00042530 00042540 00042550 00042560 00042570 00042580 SET HIGH MODE LOAD A CTR LOAD RETRY CTR GET IN SYNC EXIT ON RISE 5006 0200 15E1 3EBA 3EBD 67BB 0300 3ECB A301 3 3 LSR WORK3,0 WORK5,ONES-30 BSYTACH,WAITONE BSYTACH, VELOCOO 1 ONEMORET 0007B7 0007B8 0007B9 0007BA 0007BB 0007BC 0007C4 0007C5 0007C6 0007C7 99 STMT SOURCE STATEMENT F01MAY72 2/04/74 8116 *********************************************************************** 00042470 8149 ********************** 8150 * CLOCK ACROSS TACHA * 8151 ********************** 0007C1 3FDB 0007C2 20C3 0007C3 3ECl PAGE CLEAR CTR B NORMAL EXIT BUMP CTR B LOOK FOR CARRY EXIT ON READY DROP HANG TILL TACH CHANGES GET CTR A TO A REG ADD CTR A TO CTR B TAKE BR IF OK GET BASE CT TO A REG ADD BASE TO CTR B TAKE BR IF OK 00042830 00042840 00042850 00042860 00042870 00042880 00042890 00042900 00042920 00042930 00042940 00042950 00042960 00042970 00042980 00042990 ROS2 3803-2 MICROCODE LISTING LOC 0007D2 0007D3 0007D4 0007D5 0007D6 0007D7 0007D8 0007D9 0007DA OBJECT CODE 67F7 4121 B200 21D7 67F9 0401 A501 21DE 632B ADDRl ADDR2 PN 1846378 SOURCE STATEMENT STMT 8244 VELOC010 BU VELOC024 WORK2,AR 8247 VELOCOll XFR ADDM WORK3,0 8250 BOC NALCO,VELOCOUT 8253 BU VELOCOK 8256 STATIMG,VELTRY 8259 VELOCOUT STO ADD WORKS, 1 8262 BOC NALCO,VELOC012 8265 BU SETVELCK 8268 EC 736697 PAGE F01MAY72 SET VELOCITY RETRY BUMP RETRY CTR GO RETRY AGAIN GO ABORT 2/04/74 00043000 00043010 00043020 00043030 00043040 00043050 00043060 00043070 00043080 GET PEAKING CT TO A REG ADD TO ACCUMULATED CTS SHOULD CARRY NORMALLY 0007DB 4006 0007DC 8402 0007DD 61DO 8272 UNTCHKl 8275 8278 XFR ORI BU LSR STATIMG,SETSTATC ENDUP SET LOW MODE SET UNIT CHECK GO SET UNIT CHECK 00043100 00043110 00043120 0007DE 0007DF 0007EO 0007E1 8282 VELOC012 BOC STO 8285 BU 8288 8291 VELOC013 BU BSYTACH,VELOC013 WORK4,4 VELOC005 VELOC014 SEE WHICH WAY TACH SETS 00043140 00043150 00043160 00043170 3EEl 0304 67C5 67E2 8294 ********************** 8295 * CLOCK ACROSS TACHC * 8296 ********************** 0007Fl 3FDB 0007F2 3EFl 0007F3 67E4 8299 8302 8304 8306 8309 8312 8315 8318 8321 8324 8327 8330 8333 8336 8339 8342 8344 8346 8349 8352 VELOC014 STO WORK3,4 VELOC026 BOC BSYTACH,VELOC016 * CHECK ACCUMULATED COUNTS VELOC015 XFR. WORK3,AR ADD WORK4,0 NALCO,VELOC017 BOC WORK1,AR VELOC017 XFR WORK4,0 ADD BOC NALCO,VELOC020 VELOC019 BU VELOC024 VELOC020 XFR WORK2,AR ADDM WORK4,0 NALCO,VELOCOUT BOC BU VELOCOK VELOC016 ADD WORK3,1 BOC NALCO,VELOC026 * DRIVE WAS TOO SLOW DEVATTN,UNTCHKl VELOC027 BOC BOC BSYTACH,VELOC027 BU VELOC015 67F5 67F6 67F7 67F8 67D7 4421 4006 8COO 8357 8360 8363 8366 8369 8372 8375 8378 VELOC021 VELOC022 VELOC023 VELOC024 VELOC025 VELOCOK 0007E2 0204 0007E3 3EEF 0007E4 0007E5 0007E6 0007E7 0007E8 0007E9 0007EA 0007EB 0007EC 0007ED 0007EE 0007EF 0007FO 0007F4 0007F5 0007F6 0007F7 0007F8 0007F9 0007FA 0007FB ~ \ ) 100 4221 A300 21E7 4021 A300 21EB 67F7 4121 B300 21D7 67F9 A201 21E3 ~' ..~ \ / ( ., / I BU BU BU BU BU XFR XFR ORI VELOC022 VELOC023 VELOC024 VELOC025 VELOCOUT STATIMG,AR LSR DTACHK1,0 00043190 00043200 00043210 CLEAR CTR A WAIT FOR TACH TO FALL EXIT HANG TILL TACH CHANGES EXIT 00043230 00043240 00043250 00043260 00043270 00043280 00043290 00043300 00043310 00043320 00043330 00043340 00043350 00043360 00043370 00043380 00043390 00043400 00043410 00043420 GET VELOCITY RETRY TO AR (IF ON) SET LOW MOD SET ERROR IF NEEDED 00043450 00043460 00043470 00043480 00043490 00043500 00043510 00043520 GET CTR B TO A REG ADD CTR B TO CTR A TAKE BR IF OK GET BASE CT TO A REG ADD BASE TO A & B CTRS GET PEAKING CT TO A REG ADD TO ACCUMULATED CTS SHD CARRY NORMALLY BUMP CTR BR ON NO CARRY I 't, \ ) !:-:~ \ / ROS2 3803-2 MICROCODE LISTING LaC OBJECT CODE 0007FC 660B ADDR1 ADDR2 PN 1846378 STMT 8381 8383 8384 * SOURCE STATEMENT BU WRTAWAY EJECT END EC 736697 GO WRITE PAGE F01MAY72 101 2/04/74 00043530 00043540 00043550 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 5674 #ALU1NRZ 00001 000017 00569 0947 2353 #BACKWD 00001 000010 00663 1211 3040 00001 OOOOOE 00321 #BOR 1420 3449 000011 00659 00001 # BORMARK 2824 6660 00001 000013 00546 #BOT 1845 1881 #BSYTACH 00001 DOODlE 00342 8166 8173 2427 #CHGDIR 00001 000017 00671 8016 #CHKBRST 00001 000011 00646 3995 #CNTRDY 00001 000014 00633 5036 #CRCMAT 00001 000008 00313 5043 5052 #CRCNEPR 00001 000002 00307 3011 #CREASER 00001 000010 00651 1392 1401 #DATARDY 00001 OOOOOD 00320 5462 5476 1274 1181 00001 000000 00303 #DBUS 2350 2359 3495 3508 5107 5153 6594 6609 5358 #DEN200 00001 000019 00333 5364 #DEN556 00001 OOOOOC 00318 1214 1479 #DEVATTN 00001 00001F 00346 4320 4806 2449 2226 00001 000010 00323 #DREGO 1220 5096 00001 000011 00324 #DREGl 6340 6473 00001 000012 00325 #DREG2 2154 2933 00001 000013 00326 #DREG3 4271 6334 00001 000014 00327 #DREG4 1252 4842 00001 000015 00328 #DREG5 1335 2203 00001 000016 00329 #DREG6 2206 3872 00001 000017 00330 #DREG7 2757 3459 00458 #DTACHKl 00001 OOOOOC 8378 1529 1551 #DTACHK2 00001 OOOOOA 00456 2212 3391 #DUALDEN 00001 000012 00558 1445 3639 #ENDATA 00001 000008 00314 2737 2827 00001 000012 00544 #EOT 5206 6669 00001 000015 00639 #ERGOP 4037 00001 000012 00632 #FIRST 1745 2424 00451 000005 00001 # FLAGS 1278 1318 00001 000009 00455 #FRU 6899 6912 1692 # FWDDATA 00001 000011 00516 2967 #GAPCTRL 00001 000011 00483 2133 2143 00001 000014 00521 #HIDEN 1262 1344 00001 OOOOOF 00322 #IBG 6818 6996 1423 #IBGMARK 00001 000013 00657 2893 4311 #LODEPA 00001 OOOOOE 00460 2896 4317 #LODEPB 00001 OOOOOF 00461 8019 # LPMARK 00001 000012 00647 2430 00001 000015 00670 .#LWROP 4058 00001 000017 00631 #MK800 PN 1846378 EC 736697 PAGE CROSS-REFERENCE 2/Q4/74 7686 3152 6833 6902 8087 7683 3030 8192 3472 8202 3517 8215 4224 8282 4253 8302 5817 8349 5966 6107 6111 6130 6161 7978 8163 1467 5479 1638 2382 3572 5162 6644 1473 5492 1726 2600 3625 5177 6726 1482 5554 1754 2645 3651 5276 6915 3619 5567 1763 2663 4052 5352 6948 4803 5963 1924 2760 4079 5393 7050 4813 6918 1978 2775 4096 5539 7571 4816 7095 2121 2809 4192 5653 7673 4907 7101 2127 2878 4415 5914 7882 4927 7149 2163 3008 4431 6158 7901 5383 7423 2172 3075 4440 6361 8047 5396 7464 2288 3121 4449 6374 5422 5435 2314 3158 4494 6383 2337 3312 4788 6407 1573 4829 5792 6343 1680 4920 6346 6479 1969 4993 6485 2033 7383 7062 2036 7574 2039 7637 2046 8186 2052 8212 3069 8346 3452 3479 3942 3972 2999 6461 4854 3869 6325 3489 3203 6337 6467 7830 7949 6331 6328 6443 4990 6455 6449 7286 5406 6854 7303 5412 7309 7389 6732 8128 7446 6836 8131 6905 6933 7038 7240 7292 7439 7587 7584 8080 5086 1560 5665 3654 1635 1760 2772 3705 6936 7139 7168 7312 3687 4819 4826 5489 5526 7012 7021 7426 2996 1379 6945 3118 1489 7047 3429 1499 7261 3469 1520 7273 5789 2305 7283 6606 3376 7300 7059 3537 7443 3547 7461 3575 7474 5536 7892 5548 7898 6506 6830 2238 1389 7053 2927 1448 7098 3209 1470 7130 3385 1517 7243 5650 1570 7640 6223 3483 6647 3566 3642 3693 4061 5808 5811 6576 ( \f )" 102 j '\ / ROS2 3803-2 MICROCODE LISTING ROS2 SYMBOL LEN VALUE IJEFN REFERENCES #MPGMERR iQOCh01 ClOOOO8 OD463 4082 #,NALCO 000'01 0,00001 00304 1239 12Bl 2622 3:G66 3796 3930 5545 5580 6548 6619 7270 7380 8265 8312 #NBLOCK 00001 00001C 00339 1268 3002 #NCONVCK 00001 000009 00315 4421 4972 #NENVLOS 00001 00001C 00338 4503 #NFP 00001 000011 00542 4458 #NOTBUSY 00001 000017 00551 2815 #NOTPE 00001 000013 00560 3212 3231 #NPTE 00001 OOOOOC 00317 3366 8067 #NRPQ 00001 000000 00341 4542 #NRZFEAT 00001 000003 00306 2136 2146 #NRZI7 00001 000013 00531 5032 1670 3475 #NSAGCID 00001 000009 00316 4791 5165 #NSEVEN 00001 000005 00319 00001 000010 00340 #NTM 1226 4836 00001 000019 00332 #N1TE 3292 8060 #OPPDIR 00001 000013 00489 8025 1205 1287 #RDTIME 00001 000004 00308 3628 4904 6752 6766 7429 7467 #READOP 00001 000016 00654 1304 1599 #ROCROT 00001 000002 00305 3591 3645 #RO 00001 000000 00414 6358 6401 #Rl 00001 000001 00415 #Rl0 00001 OOOOOA 00424 #Rl1 00001 OOOOOB 00425 #R12 00001 OOOOOC 00426 #R13 00001 000000 00427 #R14 00001 OOOOOE 00428 00001 OOOOOF 00429 #R15 #R16 00001 000000 00430 00001 000001 00431 #R17 00001 000002 00432 #R18 00001 000003 00433 #R19 00001 000002 00416 6371 6380 #R2 00001 000004 00434 #R20 00001 000005 00435 #R21 00001 000006 00436 #R22 00001 000007 00437 #R23 #R24 00001 000008 00438 #R25 00001 000009 00439 #R26 00001 OOOOOA 00440 #R27 00001 OOOOOB 00441 #R28 00001 OOOOOC 00442 #R29 00001 000000 00443 #R3 00001 000003 00417 #R30 00001 OOOOOE 00444 PN 1846378 CROSS-REFERENCE EC 736697 PAGE 103 2/04/74 1321 3094 3966 5839 6777 7436 8321 6729 1382 3100 4001 5893 6827 7622 8333 6755 1492 3299 4016 5988 6842 7628 8342 6821 1502 3305 4046 6117 6896 7876 1523 3344 4133 6123 6927 8000 6890 7252 4485 5614 6025 6258 3218 3353 4105 6226 6638 3511 7616 4957 7264 7453 1347 4930 6815 7604 1364 5312 6864 7607 1395 5315 6880 7972 1398 5386 6908 7994 1514 5399 7006 3684 6431 3690 6887 6930 1614 3350 4265 6139 6957 8006 1676 3373 4367 6145 7035 8031 2008 3379 4917 6287 7111 8077 2247 3540 5083 6404 7136 8182 2253 3550 5123 6416 7159 8208 2282 3578 5325 6425 7225 8229 2397 3660 5452 6434 7237 8241 2403 3762 5505 6509 7258 8253 1542 5425 7015 3024 5438 7024 3060 5482 7127 3289 5495 7143 3359 5557 7219 3562 5570 7231 3588 6720 7246 3612 6744 7276 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 00001 OOOOOF 00445 #R31 6413 6422 000004 00418 00001 #R4 00001 000005 00419 #R5 00001 000006 00420 #R6 00001 000007 00421 #R7 00001 000008 00422 #R8 00001 000009 00423 #R9 1804 #SELHIGH 00001 000014 00572 1723 0941 00001 000006 00452 #SENSEl 4055 4070 2130 2140 #SENSE2 00001 000007 00453 5247 5300 2376 #SETDIAG 00001 000012 00476 3276 5250 #SEVTRK 00001 000010 00556 1429 1596 #SPACEOP 00001 000017 00661 1729 1975 #START 00001 000015 00549 1903 2070 00001 OOOOOA 00334 #STATA 6297 6315 1912 2499 00001 OOOOOB 00335 #STATB 0923 1590 00001 00001A 00336 #STATC 6091 6303 2552 2588 00001 00001B 00337 #STATD 1021 1027 000004 00450 #STATIMG 00001 2902 3139 5006 5012 6005 6042 2460 3924 00001 000007 00312 #STOP 6516 6762 3672 00001 000013 00519 #SYNC 3921 3936 #TACHFF 00001 000006 00311 000014 00642 3057 7991 00001 #TAKTR 5064 #TIEBYTE 00001 000007 00464 1004 1178 #TRACER 00001 000008 00454 3072 3088 7988 8013 1921 2642 #TUADDR 00001 OOOOOB 00457 1236 1611 00001 000000 00446 #WORKl 4302 5114 7619 8028 1735 1757 00001 000001 00447 #WORK2 5577 5836 1673 1717 00001 000002 00448 #WORK3 4488 4497 6893 7255 1265 2005 00001 000003 00449 #WORK4 5869 5911 3911 3927 00001 000005 00462 #WORK5 0944 2731 #WRTSTAT 00001 000014 00548 5209 6666 00001 000016 00664 #WTMOP 1184 1217 #XOUTAIM 00001 OOOOOD 00459 3315 3318 6600 6685 1223 1357 00001 000018 00331 #6250 6404 06422 00001 0005CA AA PN 1846378 EC 736697 PAGE CROSS-REFERENCE 104 . 2/04/74 2223 4446 3206 6641 2347 4455 3273 7670 2728 4491 3309 7827 2748 4518 3382 7946 2812 5174 3791 8125 3200 6657 3866 3757 7677 4428 3992 7799 4482 4004 7802 4785 4049 2318 2331 2406 2725 4250 4370 5820 5833 5969 5982 6152 4180 1951 6717 4284 1256 4218 5349 6164 3957 6984 4308 2061 6987 4734 1582 4274 5373 6183 3975 7018 4669 2556 7199 4749 1751 4277 5620 6235 4737 7041 4696 4209 6300 4212 6522 4870 5168 5237 5380 5515 5533 5588 2418 4794 5856 7502 5564 2710 4797 5953 7526 5683 2743 4845 5972 7590 5801 2778 4966 5991 7649 6174 2786 4975 5995 8275 6294 3948 3978 3984 4140 1249 3155 8093 2660 2244 5322 8044 2250 5890 1732 4506 7377 2124 6120 3963 2833 1271 3187 1284 3446 2875 2379 5390 1242 3581 6691 1653 1972 4076 2209 5647 2118 4093 2235 6022 2169 4437 2924 6220 5303 5611 5662 2751 2264 2302 2890 1860 6528 2818 1172 4198 5029 6048 3939 6921 5159 5786 1813 4326 5795 6309 4746 7613 5949 2064 4376 5823 6570 5432 7631 6306 2340 4409 5842 6708 5486 6534 2412 4412 5846 7320 5512 1301 3466 1417 3492 1432 4839 1593 4851 1641 5203 1644 6663 3005 7350 3033 7529 3047 7568 3054 7981 4189 2394 5502 4364 2618 6189 2806 6284 3097 6545 3341 6723 3505 6839 3569 7108 3622 7133 3770 7156 3808 7175 4262 7222 2400 5985 1742 4545 7873 2160 6142 4043 2839 2596 6155 2279 4584 7908 2285 6924 8262 7680 3091 6774 3063 4590 7997 2296 7267 3296 6954 3302 4715 8179 2311 7879 3370 7032 3657 5080 8226 2334 8074 4358 7234 3998 5104 8238 2356 8205 4418 7433 4130 5120 8250 2373 8309 4424 7625 4434 5902 8339 3347 8318 4527 8003 4443 6114 4536 4608 5449 4452 6136 4461 6616 4479 6824 4013 8330 4900 4914 5542 1326 3606 6697 3081 1332 3648 6851 4102 1341 3663 6857 6588 1505 3669 6877 6694 1564 5093 6939 6735 1602 5150 7080 6805 1689 5273 7117 6848 1895 5632 2157 6229 2166 6251 2215 6591 2484 6597 7089 7114 7165 7485 ROS2 3803-2 MICROCODE LISTING ROS2 REFERENCES SYMBOL LEN VALUE DEFN ABEND800 00001 00043B 04981 4806 4829 ABORTRD 00001 0000B2 01582 1214 1479 00001 00058D 06217 0884 ACCESS ACCESS16 00001 000591 06229 6028 6261 ACCESS64 00001 000598 06251 6258 ACCESS8 00002 0004F7 05680 6226 ACCESS80 00001 000557 06022 5680 ADDREXIT 00001 0000F3 01842 1816 AGAIN 00001 000120 02005 2008 ALLDONE 00001 000438 04972 ALLDONEA 00001 000529 05856 5811 5032 5237 ALLDONEl 00002 00043A 04978 6644 6647 ALLOK 00001 000611 06657 ALU2COMP 00001 0005F3 06557 00001 000021 00278 1632 1714 AR 3766 3804 4533 4548 6377 6428 7488 ARETURNl 00002 00077B 07939 2376 ASSURFWD 00001 00019F 02484 BACKONCE 00001 000167 02279 2282 BACKWD 00001 000080 00662 2223 2347 6407 00001 0005C7 06413 BB 4265 00001 000369 04262 BBB 00001 000000 00821 0920 0923 BEGIN 1252 1262 1392 1395 1502 1514 1680 1692 1924 1933 2046 2052 2206 2212 2353 2359 2556 2588 2809 2815 3002 3008 3146 3152 3330 3344 3475 3479 3612 3619 3713 3762 3966 3972 4102 4105 4271 4284 4500 4503 4681 4687 4819 4826 4957 4972 5165 5168 5309 5312 5425 5432 5515 5526 5650 5653 5839 5875 PN 1846378 EC 736697 PAGE 105 CROSS-REFERENCE 4920 1573 4993 1680 1748 3908 4587 7895 1892 4040 4605 8223 4491 7799 0944 1268 1398 1517 1701 1936 2061 2226 2366 2596 2818 3011 3158 3350 3483 3625 3796 3975 4133 4308 4539 4696 4829 4993 5171 5315 5435 5533 5662 5893 0947 1274 1401 1523 1726 1951 2070 2238 2376 2600 2824 3024 3203 3353 3495 3628 3840 3978 4140 4320 4542 4708 4836 5032 5177 5325 5438 5539 5665 5914 2/04/74 1909 4177 4632 8235 1918 4186 4711 8247 2308 4299 4897 8306 2636 4305 505.8 8315 2639 4323 5077 8327 2654 4'361 5111 8372 2657 4403 5117 2766 4406 5126 2769 4476 5866 2887 4524 5908 3534 4530 6355 0995 1281 1420 1542 1729 1954 2121 2247 2382 2622 2827 3030 3209 3359 3508 3639 3869 3984 4180 4367 4560 4734 4842 5036 5180 5342 5452 5545 5674 5949 1024 1287 1423 1570 1754 1957 2127 2253 2397 2645 2833 3040 3212 3366 3511 3642 3872 3995 4192 4370 4563 4737 4854 5043 5193 5352 5462 5554 5683 5963 1141 1304 1429 1573 1763 1969 2133 2264 2403 2663 2839 3057 3218 3373 3517 3645 3921 4001 4209 4415 4569 4746 4870 5049 5206 5358 5476 5557 5690 5966 1181 1321 1445 1590 1804 1975 2136 2282 2406 2713 2859 3060 3231 3379 3540 3651 3924 4016 4212 4421 4593 4749 4882 5052 5209 5364 5479 5564 5786 5969 1205 1335 1448 1596 1845 1978 2143 2288 2427 2725 2878 3066 3243 3385 3550 3654 3930 4037 4224 4431 4611 4764 4904 5083 5217 5380 5482 5567 5792 5982 1211 1344 1467 1599 1848 2008 2146 2302 2430 2731 2890 3069 3276 3391 3562 3660 3936 4046 4232 4440 4620 4788 4907 5086 5234 5383 5486 5570 5801 5988 1214 1347 1470 1614 1860 2017 2154 2314 2449 2737 2927 3075 3289 3403 3566 3672 3939 4052 4235 4449 4629 4791 4917 5096 5237 5386 5489 5580 5808 6025 1220 1357 1473 1638 1866 2020 2163 2318 2460 2751 2933 3081 3292 3426 3572 3684 3942 4058 4241 4458 4642 4803 4920 5107 5250 5393 5492 5588 5811 6091 1223 1364 1479 1653 1881 2033 2172 2331 2499 2760 2967 3094 3299 3449 3578 3687 3948 4061 4250 4464 4651 4806 4927 5123 5258 5396 5495 5611 5817 6107 1226 1382 1482 1670 1903 2036 2192 2337 2524 2775 2970 3100 3305 3452 3588 3690 3957 4079 4253 4485 4660 4813 4930 5153 5276 5399 5505 5614 5820 6111 1239 1389 1492 1676 1912 2039 2203 2350 2552 2806 2999 3121 3312 3472 3591 3693 3960 4096 4265 4494 4669 4816 4948 5162 5303 5422 5512 5638 5833 6117 ROS2 3803-2 MICROCODE LISTING ROS2 REFERENCES LEN VALUE DEFN SYMBOL 6123 6130 6303 6306 6407 6416 6528 6534 6669 6673 6815 6818 6915 6918 7024 7035 7143 7149 7264 7270 7446 7453 7607 7613 7711 7717 7901 7949 8067 8077 8215 8229 4497 00001 000002 00585 BKWD 7412 BKWDINIT 00001 00077C 07943 BLOCKCHK 00001 000066 01278 1301 1432 BORMARK 00001 000040 00658 3040 00001 00022C 03047 BORUP 2118 0941 000010 00545 00001 BOT 3452 00001 000297 03459 BRSTCKl 3472 BRSTCK10 00001 0002A5 03505 3517 BRSTCK11 00001 0002A7 03511 3511 BRSTCK12 00001 0002A9 03517 3475 3520 BRSTCK2 00001 00029B 03472 3514 BRSTCK3 00001 000290 03479 3502 BRSTCK4 00001 00029E 03481 3486 BRSTCK41 00001 00029E 03483 3479 BRSTCK5 00001 0002AO 03489 3495 BRSTCK6 00001 0002M 03500 2707 4963 BUFFCRC 00001 000018 00299 2725 BUSYYET 00001 0001EB 02801 00001 000000 00839 BYPASS 6425 CCTRAP 00002 0005CF 06438 1933 1951 CDSTATS 00001 00012F 02061 5276 5529 CHECKEND 00001 0004CA 05524 1119 CHGDIREC 00001 000040 01141 6534 00001 0005EE 06539 CHKA 3426 00001 000293 03446 CHKATT 2218 5623 CHKBKWD 00001 000146 02160 CHKBOCS 00001 0005E2 06500 1205 00001 000053 01211 CHKBOR 2999 CHKBORRD 00001 00022A 03040 7044 7162 CHKBORXX 00001 000670 07041 7041 CHKBORXY 00001 00067F 07047 7529 CHKBRST 00001 000040 00644 6522 CHKC 00001 0005EA 06528 1208 1290 CHKCLOCK 00001 000051 01205 3936 3948 CHKCNTS 00001 000322 03992 4972 00001 000445 05029 CHKCRC 6528 00001 000 SEC 06534 CHKD CHKDETAC 00001 000560 06107 ~ \ / ~-:;., \, J ;: .., \ ) PN 1846378 EC 736697 PAGE CROSS-REFERENCE 6139 6315 6425 6548 6694 6821 6921 7041 7159 7276 7464 7616 7733 7955 8087 8241 6145 6325 6434 6567 6717 6827 6927 7050 7165 7286 7467 7622 7740 7972 8128 8253 3047 3466 4437 5174 6152 6328 6443 6576 6720 6833 6930 7053 7196 7303 7480 7628 7753 7978 8131 8265 6158 6331 6449 6585 6726 6842 6948 7062 7199 7309 7482 7631 7760 7991 8163 8282 6161 6334 6455 6588 6729 6848 6957 7089 7206 7330 7485 7637 7770 7994 8166 8302 6174 6337 6461 6594 6735 6854 6984 7095 7219 7347 7488 7640 7777 8000 8173 8312 6223 6340 6467 6609 6744 6864 6987 7098 7225 7380 7508 7646 7786 8006 8182 8321 6226 6343 6473 6619 6752 6880 6996 7101 7231 7383 7532 7673 7816 8016 8186 8333 6258 6346 6479 6638 6755 6887 7006 7111 7237 7389 7545 7680 7830 8019 8189 8342 6287 6361 6485 6644 6762 6890 7012 7114 7243 7423 7552 7683 7836 8025 8192 8346 6294 6374 6509 6647 6766 6896 7015 7127 7246 7426 7571 7686 7842 8031 .8202 8349 6297 6383 6516 6660 6777 6902 7018 7130 7252 7429 7574 7694 7876 8047 8208 106 2/04/74 6300 6404 6522 6666 6805 6908 7021 7136 7258 7436 7604 7708 7882 8060 8212 1978 7171 3981 / \ () 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL CHKDTRDY 00001 0005EO 06494 2731 00001 00010A 02737 CHKEOT 4826 00001 000413 04836 CHKFOP CHKFTR 00001 00013F 02136 2645 CHKHI 00002 0001C6 02651 1226 1239 00001 000061 01262 CHKIBG 8016 00001 0007A9 08087 CHKID 8087 00001 0007AB 08093 CHKID2 1307 CHKINTPT 00001 000054 01214 5083 CHKMATCH 00001 000449 05043 6223 CHKMORE 00001 00059A 06258 1957 00001 000117 01969 CHKMTI 2121 CHKNRZ 00001 000140 02140 8060 CHKPORl 00001 0007A3 08067 2369 3149 CHKPOSIT 00001 0006DA 07368 1470 CHKPOST 00001 000099 01489 1939 1960 00001 000126 02033 CHKPULSE 2427 CHKREAD 00001 000196 02449 6516 CHKSTATS 00001 0005E8 06522 3385 CHKSUMOR 00001 000288 03391 CHKSWTCH 00001 0000F4 01845 00001 00005D 01247 CHKUEX 2943 5521 00001 000300 03860 CHKVEL CHKXINA 00001 0005EE 06541 8019 00001 0007Al 08060 CHKlORP 2133 00001 000151 02200 CHK1601 2143 CHK1602 00001 000144 02154 2136 00001 0004Fl 05662 CHK7LP 5665 00001 0004F4 05671 CHK800 1382 1395 CKDTARDY 00001 000081 01389 4085 00001 000334 04055 CKFC3 4105 00001 000485 05273 CKNORPE 2821 2836 CKSTART 00001 00010D 02746 5963 CLEANUP 00001 000555 06005 2588 CLEARCMD 00001 0001CC 02677 1804 CLEARLO 00001 OOOOFl 01819 2552 CLEEREM 00001 0001BO 02560 1268 1274 CLOKWAIT 00001 000069 01287 7494 7541 00001 000783 07965 CLRCTRl 2343 2327 0001CF 02688 CLRXOUTA 00001 7901 CMDEXIT 00001 000776 07908 1350 1367 CNTABIT 00001 00007C 01364 1364 CNTABIT2 00001 00006E 01318 3057 CNTATACH 00001 000239 03088 8067 CNTFORER 00001 0007A5 08074 4910 4933 CNTLOOP 00001 000424 04904 CNTNCARY 00001 00023E 03102 3366 CNTNRZI 00001 000278 03341 4004 5518 CNTRDY 00001 000008 00634 1467 1473 CNTRDYl 00001 00009C 01499 CNT200 3872 00001 000308 03890 2626 COMITD 00001 000050 00287 1698 1989 COMMAND 00001 000002 00509 2273 3409 CONTROL 00001 000004 00508 PN 1846378 EC 736697 CROSS-REFERENCE 7697 7756 7819 1287 7558 2452 1426 8031 2460 8050 3142 3227 6653 7593 2433 5872 2532 5902 4333 7514 7371 7723 7855 7864 6993 6990 2267 5644 107 2/04/74 4238 1281 7548 2406 PAGE 7959 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 4424 00001 000001 00576 CONVCK 7984 7994 COUNTDWN 00001 00078C 07994 3292 COUNTLPB 00001 000280 03366 7991 08013 00001 000792 COUNTONE 1398 COUNT PRE 00001 00007E 01379 3036 3060 COUNTUP 00001 000230 03060 COUNT16 00001 000070 01324 5046 5074 00001 OOOOOA 00276 CRC 1644 3005 CREASER 00001 000080 00652 3161 CREMOVE 00001 000042 01147 3011 03152 CREMOVEX 00001 00024B 3152 CREMOVEZ 00002 00024E 03161 1701 CRERETRN 00002 00077A 07920 1596 CRESENS 00001 0000C3 01644 1599 CRESENSX 00001 OOOOBF 01632 CRETEST 00002 000264 03252 2366 CRETURNl 00002 0006E6 07405 7694 CRETURN2 00002 0006E7 07409 7816 0006E8 07412 CRETURN3 00002 7753 CRETURN4 00002 0006E9 07415 3146 CRETURN5 00002 0006EA 07418 5914 CTLLINK 00001 000543 05938 7760 CTLRET3 00002 000540 05929 7717 CTLRET6 00002 00053F 05926 2318 5917 CTRLREJ 00001 0001CE 02685 00002C 01027 CTRLSETA 00001 4708 4737 DALONE 00002 0003FC 04761 4418 DATACK 00001 000008 00587 4049 4076 DATATIM 00001 000080 00636 6434 00001 0005DO 06443 DD 1614 00001 OOOOBB 01611 DELAY 2622 DESWAIT 00001 0001BD 02618 2172 DEVBKWD 00001 000158 02223 4518 DEVCHK 00001 000002 00550 DEVDONE 00001 00036D 04274 2163 00001 00017A 02347 DEVFWD 1147 1647 00001 000008 00507 DEVSEL 3735 4333 7793 7855 1590 DIAGHOOK 00002 OOOOBE 01620 00485 DIAGMODE 00001 000020 2020 DIDNTGO 00001 00012E 02058 4058 DLYNRZ 00002 000338 04067 4067 DLYSETHI 00002 000337 04064 5893 DLYTIME 00001 000533 05890 7686 DOBACKWD 00001 00075C 07816 7683 00001 00074A 07753 DOBOT 7415 . DOBOTXX 00001 00074C 07760 2353 2362 00015A 02235 00001 DODELAY DODELAYl 00001 00015C 02241 4284 00001 000372 04296 DOINDE 2890 00001 000209 02896 DOlT 6576 00001 0005FA 06581 DONE 5123 DONEXTRK 00001 00045E 05111 f \ ~ ) PN 1846378 EC 736697 PAGE CROSS-REFERENCE 108 2/04/74 3072 4746 4093 5518 6990 1698 4885 7864 1989 4945 7908 2011 5644 7959 2180 5872 8034 2267 6033 2273 6094 3190 I' 2433 6100 2474 6241 2532 7065 2544 7371 3112 7392 3181 7514 3409 7723 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 6001 ooSTATS 00001 000546 05956 00002 OOOOBD 01617 DOTIEX 6666 DOWTM64 00001 0006A9 07196 2149 2212 00001 000145 02157 0016 2154 2203 00001 000156 02215 0064 5614 5674 00002 0004E7 05623 00800 5611 5662 00001 0004E6 05620 008007 6996 00001 000683 07059 DROPGO 6091 DROPMOVE 00001 00056B 06100 4271 DRVUNTCK 00001 00036E 04277 2560 4403 DTACHKl 00001 OOOOOC 00401 2564 4548 DTACHK2 00001 OOOOOA 00399 7574 7613 DTASAGC 00001 00071B 07584 5647 DUALDEN 00001 000020 00557 2775 DUNAGN 00001 0001E9 02784 1656 4876 DVESNS6 00001 000040 00571 8053 00001 000008 00623 DYREV 6097 EDSPLACE 00001 00056C 06103 6443 00001 000502 06449 EE 5683 05588 00001 000400 END 1535 4473 ENDATAER 00001 000010 00595 2734 2740 00001 000100 02745 ENDCHK 4984 00001 000439 04975 END ERR 4882 ENDREAD 00001 000433 04957 4957 ENDREAD2 00002 000435 04963 4960 ENDREAD3 00001 000436 04966 4816 4832 04826 ENDSOON 00001 000410 1024 2818 02707 000100 00002 ENDUP 7401 8056 ENDUPEX 00001 000710 07590 7580 ENDUPEXA 00001 00071C 07587 4978 5070 ENDUP800 00001 000101 02710 5526 5686 ENDWRTNZ 00001 0004F8 05683 4518 EOT 00001 000020 00543 1757 EQCHK 00001 000010 00586 3455 EQSAGC 00001 000719 07577 1748 2058 EQUIPCK 00001 00001D 00411 8053 7949 00001 000780 07955 ERASER 5929 00001 00074E 07767 ERASE 1 7770 00001 000751 07777 ERASE2 7740 7777 00001 000756 07793 ERASE3 7409 00001 00075E 07824 ERASE4 7830 00001 000762 07836 ERASE40 00001 00073B 07702 7836 7955 ERASES 5926 00001 000744 07730 ERASE6 7763 00001 000741 07720 ERASE 7 7708 ERASE8 0000.1 000740 07717 7733 00001 000747 07740 ERASE9 6669 ERGAWAY 00002 0006A8 07183 00998 5240 000025 7202 ERGCTR 00001 1004 3005 ERGFLAG 00001 000010 00643 ERGNOISE 00001 000223 03017 7673 7680 ERGNONE 00002 00075B 07808 0988 ERGOP 00001 000004 00637 PN 1846378 EC 736697 PAGE CROSS-REFERENCE 2/04/74 2337 5617 5668 5677 5594 8083 6787 7315 7456 8278 2324 2568 2685 2754 2769 2331 2206 109 4581 7637 6Q79 2839 3020 3136 4023 4524 4605 6741 6780 7577 ROS2 3803-2 MICROCODE LISTING ROS2 SYMBOL LEN VALUE DEFN REFERENCES 00001 000024 00995 5284 7183 ERGSTR 1052 ERGTOTI 00001 000004 00496 1529 7139 EXCPOST 00001 000002 00615 00001 0001CB 02673 EXECABRT 0878 2648 EXECBSF 00001 00003C 01129 EXECBSR 00001 00003E 01135 EXECDES 00001 0001B8 02610 0862 2061 EXECDMR 00001 000563 06076 0881 EXECDSE 00001 000031 01052 EXEC ERG 00001 000022 00988 EXECFSF 00001 000035 01100 EXECFSR 00001 000037 01107 EXECGRST 00001 0001Al 02499 0869 EXECPOLL 00001 00034D 04167 0865 EXEC PULL 00001 00034F 04173 4385 EXECRDB 00001 00003A 01123 EXECRDF 00001 ·000033 01093 EXECRWD 00001 00002F 01037 EXECRWU 00001 000029 0.1018 2806 EXECSDE 00001 000202 02875 0875 2854 EXECSNS 00001 0000D6 01711 EXECSRST 00001 0001A7 02524 0872 2511 EXECSTS 00001 OOOOEB 01801 EXECSTSZ 00001 0000F5 01848 EXECTST3 00001 00059C 06278 0859 EXECVEL 00001 000219 02970 2445 EXECWRT 00001 000013 00914 EXECWTM 00001 000020 00970 00001 000004 00490 EXTEND 1695 EXTENDIT 00001 OOOODO 01689 1653 00001 000040 00594 EXVCHG 4082 4584 FASTBGN 00001 000010 00602 5406 5412 FCHLAST 00001 0002EA 03766 FCHNEXT 00001 0002EE 03782 00001 0002E6 03748 FCHSNS 4566 4645 00001 0002El 03727 1851 2528 FCHSTS FDTHRU 00001 000040 00601 6449 FF 00001 0005D4 06455 1129 FILEOP 00001 000004 00655 4308 FINDTU7 00001 000379 04317 00001 04320 4314 FINDTU77 00037A 00001 000020 00635 4070 5518 FIRST 00001 000005 00394 ·0887 2592 FLAGS FWPTIE 00001 00045B 05101 1335 1404 FORCEON 00001 000084 01398 FORFLAG 00001 000004 00640 1760 7584 FORMATCK 00001 0000·10 00612 FP 00001 000002 00583· 4461 1202 1338 FRU 00001 000009 00398 58,96 5908 FWDDATA 00001 000040 00515 1689 2166 FWDRD 00001 000058 01226 1220 1670 GAPCTLON 00001 00023F 03109 2967 GAPCTRL 00001 000040 00484 7892 r.~. \ ) f , 'l ) PN 1846378 CROSS-REFERENCE EC 736697 PAGE 110 2/04/74 7168 4345 2663 6732 4684 2722 4247 6583 7655 1464 6503 3648 1511 7889 6597 1992 6990 4533 8080 1360 6278 2484 1676 1995 2299 2308 2580 3279 3531 3553 4711 5200 3803-2 MICROCODE LISTING ROS2 ROS2 LEN VALUE DEFN REFERENCES SYMBOL 00001 OOOOEA 01798 GETADR 5773 GETHIGH 00001 000501 05722 7882 GETSTATS 00001 000770 07887 GG 00001 0005D6 06461 6455 00001 000427 04914 GO 4904 GOAHEAD 00001 00055A 06031 6025 GOBACK 00001 00023E 03104 GOEND 00002 00025E 03227 GOENDUP 00002 000248 03142 0995 GOGETIM 00001 000362 04241 2085 2382 GOMOVE 00001 00018B 02406 GOOD END 00001 0004DE 05591 5603 1845 GOPRIME 00001 0000F9 01860 1954 2017 GOPRIME2 00001 0001F9 02848 4917 4930 GOSOMOR 00001 00042B 04927 GOTPRIME 00001 00010F 01933 GOTURN 0944 00002 000010 00953 HAVPRIME 00001 000107 01903 00001 000044 00296 6318 6364 HOWERR 6525 6531 HERE 00001 00059F 06287 7127 7143 HERENOW 00001 000697 07127 6461 HH 00001 0005D8 06467 2215 2235 HIDEN 00001 000008 00520 2397 2403 HOLDUP 00001 000187 02394 HUP1 00001 0002E8 03757 3762 00001 0002FO 03791 3796 HUP2 6836 6905 IBGDROP 00001 000080 00600 6673 IBGGONE 00001 000637 06799 I BGLOOK 1 00001 000096 01479 1482 1502 1284 1432 IBGMARK 00001 000010 00656 IBGON 00001 0007A7 08080 1262 IBGYES1 01417 00001 000087 1420 1423 IBGYES2 00001 00008B 01429 0855 2042 Ie 00001 000022 00285 8040 7634 1012 00001 00072A 07631 7631 ID14 00001 00072C 07637 10145 7643 00001 00072D 07640 7604 7622 ID3 00001 000721 07604 104 7610 000722 07607 00001 105 7607 00001 000724 07613 II 6467 00001 0005DA 06473 INDF 2457 00001 000011 00281 INHP 00001 000082 00286 INITCNT 00001 00030C 03905 4001 4016 INTREQ 00001 000040 00578 1735 INTRUBLE 00001 0004CC 05533 5489 2127 ISBAKWD 00001 000175 02331 00002 000100 01872 1881 ISBUSY1 4842 ISFOP800 00002 000417 04848 00002 000205 02884 2878 ISHIGH 2827 1S1TDSE 00001 0001F7 02839 ISITFOP 00001 000414 04839 PN 1846378 EC 736697 PAGE CROSS-REFERENCE 111 2/04/74 6386 6537 6410 6551 6419 6438 6446 6452 6458 6464 3309 3318 5150 5632 5647 6251 6641 7670 3104 3127 3812 4758 4766 4923 5328 6470 6476 6482 6488 6512 5445 5938 6758 7398 7917 7292 2055 7628 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 2824 ISITREW 00001 0001F5 02833 02887 2881 ISLOW 00001 000206 00001 000402 04781 3218 5932 ISNRZI 5638 ISNRZIZ 00002 000541 05932 3212 ISNRZI2 00001 00025C 03218 4788 ISNRZ!3 00001 000407 04797 8128 8140 ISOKNOW 00002 0007B7 08154 2036 2039 ISPULSE 00001 00012D 02055 06479 6473 00001 0005DC JJ 6479 00001 0005DE 06485 KK KRETURNl 00002 000238 03084 5089 LASTCHK 00002 00044A 05046 4443 00001 000008 00581 LDPT 00001 000161 02261 2226 2350 LETSGO 00001 00001C 00410 LINK1 0920 1024 4563 4882 00001 000019 00408 0995 1936 LINK2 4354 4464 4708 4758 7532 7545 1701 3403 00001 00001A 00409 LINK3 7740 7760 1040 1055 LKREWRUN 00001 00002B 01024 5539 LOADCTR 00001 0004Dl 05548 00001 OOOOOE 00403 1918 2503 LODEPA 00001 OOOOOF 00404 1909 2515 LODEPB 1341 1505 LOGAIN 00001 000002 00522 7056 LOOKIBG 00001 000681 07053 1223 LOOKSUM 00001 OOOOCA 01670 1903 LOWYES 00001 000109 01909 3203 LPBURST 00001 000261 03243 LPBURSTl 00001 000263 03249 3336 2815 00001 0001F2 02824 LPLOOK 7350 7568 LPMARK 00001 000020 00645 2430 LPNMOVE 00001 00019B 02471 1683 LPWAIT2 00001 OOOOCD 01680 1906 1948 00001 000006 00277 LSR 6368 6390 2481 LWRDELAY 00001 000600 06588 5588 00002 0004EO 05597 LWREND 1745 00001 000004 00669 LWROP 1620 MEASIBG 00001 000513 05786 6247 MEASIBGA 00001 000516 05795 4055 5518 00001 000001 00630 MK800 3234 MODE6400 00001 000046 01170 3483 MODE6401 00001 0002EO 03713 2247 2253 MOREYET 00001 00015D 02244 1147 2180 00001 000001 00510 MOVE 7864 7908 4948 ~·1<;,/EDOWN 00001 00041E 04882 4907 4927 MOVEUP 00001 o0042F 04942 1535 1632 MPCMERR 00001 000018 00407 00001 OOO16C 02299 2288 r~SKSTS 000108 01906 ~1:.JSTBEHI 00002 p..,. \ j PN 1846378 CROSS-REFERENCE EC 736697 PAGE 112 2/04/74 2049 2359 1141 4923 1957 4500 5171 7552 4766 7786 7405 1848 4948 2020 4539 5217 7694 5180 7842 1933 6567 2042 4560 5342 7708 5193 7917 1954 7646 2192 4569 5445 7733 5234 2017 2055 2524 2713 3127 3713 3812 4232 4241 2366 4593 6673 7753 5258 2970 4611 6758 7770 5309 3104 4620 7196 7777 5328 3146 4629 7206 7816 5638 3243 4642 7330 7836 5875 3330 4651 7347 7955 5938 3426 4660 7398 8040 7508 4235 4681 7482 4351 4687 7488 7711 7717 2507 2519 1564 2636 2639 1602 2654 2657 3581 4186 4177 6691 4672 4666 6697 4699 4693 6857 6939 2073 8154 2651 8272 2884 8375 3896 4026 4099 4244 4373 4388 5061 5067 5719 5770 2433 7959 2474 8034 3112 3409 4945 5644 5872 6033 6094 6155 6241 7514 7723 1714 2572 2766 3017 3224 3498 4406 4476 4587 6650 8093 () 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 6780 00001 000010 00622 NBLOCK 00878 OOOOOB NDXABRT 00002 NDXAXESS 00002 OOOOOD 00884 00002 000006 00862 NDXDES 00002 OOOOOC 00881 NDXDMR NDXFLAGS 00001 OOOOOE 00887 NDXFLAG2 00001 000010 00894 NDXGRST 00002 000008 00869 NDXPOLL 00002 000007 00865 00002 OOOOOA 00875 NDXSDE NDXSNSR 00001 OOOOOF 00889 2596 NDXSRST 00002 000009 00872 NDXTST3 00002 000005 00859 0926 NEEDERG 00001 000733 07670 NEGATIVE 00001 00054A 05969 6123 6117 06111 NEGTACH 00001 00056E NEXTONE 00001 000107 02728 5043 00002 000453 05074 NEXTRK 2238 NODELAY 00001 000180 02366 3642 3693 NOENDERR 00001 0002DE 03705 3017 3498 00001 000080 00593 NOISE 1326 1505 00001 000020 00517 NOLOSS 4836 NOMARKER 00001 000418 04851 3121 03127 00001 000245 NOMASK 6609 NOMASKW 00001 000609 06614 1924 NOPRIME 00002 000112 01948 2052 NOPULSE 00001 000129 02042 5920 NORMDONE 00001 00028E 03420 3224 6650 00001 000001 00596 NOTCAP 3312 3356 NOTCOMP 00001 00025D 03224 4046 04076 NOTGOOD 00001 00033B 5177 5168 05200 000475 NOTLPNRZ 00001 NOTLPRD 00001 00021F 03002 5156 NOTNRZIW 00001 000611 06655 6641 00001 000010 00559 NOTPE 1181 NOTREAD 00001 00004C 01190 1353 NOT1600 00001 0002AB 03525 1357 NOT1600A 00002 000079 01353 1692 7920 01656 00001 0000C7 NOW 8131 00001 0007B5 08143 NOW200 3930 00001 000317 03948 NPRZ 5206 NRETURNl 00002 000488 05284 5935 NRZIBOT 00001 000471 05187 5180 NRZIBOTZ 00002 000542 05935 4854 NRZIFOP 00001 00043E 04993 4936 NRZIIBG 00001 000544 05949 6051 NRZIIBGA 00001 000545 05953 3167 NRZILINK 00001 000400 04766 4809 NRZILOOP 00001 000409 04803 NRZISTAR 00001 00041C 04876 NRZISTOP 00001 00041A 04870 5482 5495 NRZI1000 00001 0004BC 05479 NRZI100l 00001 0004BF 05489 5505 5498 NRZI1002 00001 0004CO 05492 PN 1846378 CROSS-REFERENCE 1602 3581 6691 3394 3462 3508 4778 5545 PAGE 113 2/04/74 1564 5193 EC 736697 7080 7117 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYM80L 5486 NRZI1003 00001 0004C3 05502 5479 5492 NRZI1004 00001 0004C6 05512 5512 5515 NRZll005 00001 0004CA 05526 5560 5573 NRZI1006 00001 0004D3 05554 5557 NRZI1007 00001 0004D6 05564 5570 5580 NRZI1008 00001 0004D7 05567 5564 NRZI1009 00001 0004DA 05577 4794 5349 00001 000010 00530 NRZI7 00001 000495 05336 5309 NRZLRC 00001 00048E 05309 5303 NRZSET 00001 05234 5209 000478 NRZTM 00001 00047E 05244 5234 NRZTMl 00001 000468 05,159 5153 NRZWRT 3136 00001 000004 00624 NTACH 3951 NTACHPRZ 00001 000310 03924 3289 3359 OKALREDY 00001 00026A 03289 3540 00001 000282 03547 OKDOK 03330 OKFOR64 00001 000275 5162 OKTOWRT 00001 000468 05168 00001 00051D 05817 5808 OKYET 7876 ONCEAGN 00001 000768 07873 00001 000001 00570 1611 3927 ONE 7380 ONEMORE 00001 0006DD 07377 8169 ONEMORET 00001 000788 08166 0998 0941 00001 OOOOFF 00567 ONES 1608 1760 2940 2973 3553 3569 4218 4296 5887 5902 6799 6802 7333 7353 7892 7943 06491 6416 0005EO 00001 OPCODES 7892 00001 000010 00488 OPPDIR 1551 3705 PARTREC 00001 000004 00614 4488 00001 000004 00584 PE 2157 3315 00001 000080 00514 PE8IT 1172 2710 PERMRDWT 00001 000040 00528 3020 4602 00001 000002 00625 PERR 00298 6784 000012 POINTERS 00001 2079 POLLALL 00001 000367 04256 2911 4287 POLLMTIX 00001 000370 04282 4192 POLLNEXT 00001 000386 04358 4224 4253 POLLSTEP 00001 000383 04348 4370 POLLS TOP 00001 000378 04323 4367 POLLl 00001 000350 04175 POLL 10 00.001 000356 04195 04186 POLL2 00001 000353 4180 00001 000354 04189 POLL3 4215 00001 00035A 04212 POLL4 4212 00001 00035C 04218 POLL5 3824 00001 000365 04250 POLL6 00001. 000366 04253 4391 POLL66 ~"'" \1 ) M l \ PN 1846378 PAGE 114 2/04/74 5533 5620 6042 3963 3998 4013 4130 1001 1972 2976 3606 4602 6005 6808 7491 7952 1193 2002 3088 3622 4873 6349 6811 7502 8013 1196 2110 3279 3675 4966 6352 6860 7555 8044 1202 2166 3282 3681 5006 6398 6877 7590 8093 1242 2189 3285 3752 5187 6413 6939 7598 8119 1338 2296 3315 3786 5261 6422 7080 7601 8134 1360 2305 3333 3860 5297 6506 7086 7649 8143 5150 4797 6741 5273 4966 7577 5632 5373 6229 6048 6708 7526 7649 1432 2379 3420 3878 5306 6545 7092 7702 8160 1464 2385 3423 3890 5370 6570 7117 7730 l -~ ) EC 736697 CROSS-REFERENCE /1 1505 2418 3466 3899 5390 6597 7123 7767 1511 2710 3505 4007 5551 6697 7213 7799 1564 2757 3525 4070 5632 6700 7216 7824 1602 2812 3531 4119 5856 6723 7228 7833 f~l \. " - ~, 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 4551 4635 POSBYTE 00001 0003EE 04715 7892 00487 2305 000001 00001 POSIT 5966 POSITIV 00001 00054E 05982 3030 POSITIVE 00001 00022E 03054 6107 6139 POSTACH 00001 000574 06130 1392 1401 PREAMBOK 00001 00008E 01445 2070 PRETURNl 00001 000134 02076 4232 PRETURN2 00002 000136 02082 1936 1969 PRETURN3 00001 000132 02070 4235 PRETURN4 00002 000137 02085 1872 PRIMESET 00001 0000F7 01854 3966 00001 000321 03984 PR:b1992 00001 00.0010 00564 PULSE 0947 RQBKLP 00001 00001E 00956 0956 1138 00001 000080 00473 RDBKWD 00001 00016B 02296 RDFMSK 0950 1116 00001 000040 00474 RDFWDD 5264 5312 00001 00048F 05312 RDSYNCl 5318 RDSYNC2 00001 000490 05315 5315 RDSYNC3 00001 000492 05322 2314 RDYMOVE 00001 000182 02373 1476 1485 RDYWAITl 00001 000092 01467 2449 READCHAN 00002 000198 02457 1445 01464 READ END 00001 000091 READHIGH 00001 00025F 03231 3243 00001 000265 03273 READLP 1093 1123 00001 .000002 00653 READOP 3209 3231 READSTAR 00002 00025B 03215 1638 3084 READS TOP 000.01 0000B8 01602 3215 3388 READTAPE 00001 000046 01172 2463 02460 READWAIT 00001 000199 1517 READX 00002 00009B 01495 1304 READYES 00001 00007A 01357 3550 3562 00001 0002B5 03562 READOOl 3578 3594 READ002 00001 0002BD 03588 3591 READ003 00001 0002Cl 03606 3615 3631 READ004 00001 0002C3 03612 3612 READ0041 00001 0002C5 03619 3628 03628 00001 0002C8 READ0042 3619 3645 READ0051 00001 0002CA 03639 3672 READ006 00001 0002D8 03681 3651 3660 READ007 00001 0002D9 03684 3639 3654 READ008 00001 0002DF 03707 READ010 00002 0002DF 03709 3696 READ017 00001 0002DA 03687 READ6400 00001 000270 03309 00001 000327 04007 RECNT 2782 REDLIGHT 00001 000014 00283 4037 REFIRST 00001 000339 04070 2058 2324 00001 000080 00619 REJCMD 2685 REJCTRL 00001 000020 00621 2754 4521 00001 000040 00620 REJTU 2536 4336 00001 000002 00478 RESET 3449 03466 RESETBOR 00001 000299 PN 1846378 CROSS-REFERENCE 1695 2160 2334 7839 2285 5325 2296 2356 7705 1178 3391 5859 1593 1641 3492 3588 3684 3678 3687 4602 PAGE 115 2/04/74 6145 1451 7418 EC 736697 7879 ROS2 3803-2 MICROCODE LISTING ROS2 SYMBOL LEN VALUE DEFN REFERENCES RESETERR 00001 000009 00280 4996 4999 RESETTU 00001 00037E 04333 4320 RESET1 00001 0001Cl 02636 2556 2600 RESET2 00001 0001C2 02639 RESET3 00001 0001C3 02642 RESTART 00001 000001 00606 4990 RESTDEB 00001 0001A5 02515 2499 RESYNC 00001 00064E 06877 6848 RETRY 00001 000345 04116 4079 REW 00001 000001 00498 2160 REWFAIL 00001 00010F 02754 2830 2833 REWIND 00001 000001 00497 1037 ROUNDUP 00001 000210 02996 3066 1018 RUN 00001 000080 00494 RUNCTR 00001 000523 05836 5820 5829 00001 000000 00355 5722 6349 RO 00001 000001 00356 5725 in 5752 R10 00001 OOOOOA 00365 Rl1 00001 OOOOOB 0"0366 5755 5758 R12 00001 oooaoc 00367 5761 R13 00001 OOOOOD 00368 R14 00001 0000 DE 00369 5764 R15 00001 OOOOOF 00370 5767 R16 00001 000010 00371 R17 00001 000011 00372 00001 000012 00373 R18 R19 00001 000013 00374 00001 000002 00357 R2 5728 6322 00001 000014 00375 R20 R21 00001 000015 00376 R22 00001 000016 00377 R23 00001 000017 00378 R24 00001 000018 00379 R25 00001 000019 00380 00001 00001A 00381 R26 R27 00001 00001B 00382 00001 00001C 00383 R28 R29 00001 00001D 00384 R3 00001 000003 00358 5731 00001 DOODlE 00385 R30 R31 00001 00001F 00386 R4 00001 000004 00359 5734 6398 00001 000005 00360 5737 R5 5740 00001 000006 00361 R6 R7 00001 000007 00362 5743 00001 000008 00363 5746 R8 00001 000009 00364 5749 R9 SCANLINK 00001 0003C4 04563 SCOOT 00002 00002E 01033 SEENONE 00001 00040D 04816 4822 SEENONEl 00001 00040C 04813 4803 4813 SENDEM1 00001 000526 05846 5833 SENDEM3 00001 00057B 06152 6126 6133 6152 6158 SENDEM4 00001 000582 06174 ~ \, j f-44. '- / CROSS-REFERENCE 5597 PN 1846378 " PAGE 116 2/04/74 5600 2842 6395 6352 6355 6377 6428 6148 ;: \ ) EC 736697 f '- / "- , F~ \" 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES SYMBOL LEN VALUE DEFN SENDEM5 00001 000552 05995 5982 6111 SENDEM6 00002 00057A 06148 1875 2937 SENSEl 00001 000006 00395 1878 1892 SENSE2 00001 000007 00396 2270 SETAG 00001 000166 02276 SETBKWD 00001 00003F 01138 . 1126 1132 7423 SETBORl 00001 0006FA 07474 7464 SETBOR2 00001 0006F6 07461 SETCMDl 00001 000765 07855 7714 7746 SETCMD2 00001 000768 07864 1704 SETCMD3 00001 000769 07867 SETCNT 00001 00048B 05300 2946 SETCOUNT 00001 0007AD 08119 2264 SETCTRL 00001 000165 02273 3412 5656 SETCTRLl 00001 000530 05881 1975 2067 00001 0001E9 02786 SETD 3406 5641 SETDENS 00001 000010 00495 0938 0950 SETDIAG 00001 000020 00475 2630 2680 SETDLONE 00001 000011 00899 8047 SETDRCK 00001 00079F 08053 1492 1554 SETENDCK 00001 0000A6 01535 7114 7159 SETENDER 00001 0006A4 07168 6735 SETEQCK 00001 000629 06741 7511 7720 SETERASE 00001 000002 00499 5196 SETERGF 00001 000027 01004 5383 00001 0004AA 05406 SETERRl 5409 SETERR10 00001 0004A4 05386 5396 SETERR2 00001 0004AC 05412 5415 SETERR20 00001 0004A8 05399 1096 1103 00001 000038 01116 SETFWD 3869 3884 SETHI 00002 00030A 03896 4250 SETHIMOD 00002 000390 04388 00001 000532 05887 SETLEV 5792 SETLEVEL 00001 00052B 05863 SETLINKl 00001 000252 03181 1538 3709 SETLONOW 00001 OOOOAD 01562 0923 SETLPCMD 00001 000018 00936 3543 00001 0002B4 03553 SETMIN 3330 SETNORM 00001 00028A 03403 00027C·03353 3276 SETNRZI 00001 3075 8009 SETNTACH 00001 000246 03136 1448 SETPARTL 00001 OOOOAA 01551 1863 SETPRIME 00001 000200 02869 2809 SETPULSE 00001 00011B 01989 1344 1386 SETRDCHK 00001 OOOOAC 01560 SETRDERR 00002 0002CO 03597 3566 3572 SETREJ 7904 00001 000173 02324 SETRET3 00001 000482 05258 5250 1027 1813 SETSTATA 00001 000008 00532 6309 SETSTATB 00001 000004 00533 1256 2412 7320 7502 1021 1582 SETSTATC 00001 000002 00534 SETSTATD 00001 000001 00535 0899 1798 PN 1846378 EC 736697 PAGE 117 CROSS-REFERENCE 2/04/74 3752 3786 3774 3800 3778 4557 4268 4632 4530 4663 4572 4690 4648 5518 6990 7789 7517 4329 7511 0956 4761 7726 6205 3833 4064 JV; 1389 3625 3597 4376 5795 5823 5842 5846 5856 5953 5972 5!:j91 5995 6005 6070 6164 2418 7526 2064 2786 2743 7590 2340 2848 2869 7649 2778 2851 2872 4198 4218 4274 4348 4845 5846 5995 6183 6309 2848 2869 2851 2872 2902 6557 3139 4277 4728 4975 6557 8275 ROS2 3803-2 MICROCODE LISTING ROS2 LEN VALUE DEFN REFERENCES SYMBOL SETSTATS 00001 000517 05798 5852 5875 SETSYNC 00001 000617 06685 6694 7209 SETSYNC2 00001 00061C 06700 00001 000459 05093 5052 SETTlE 5258 SETUBO 00001 000489 05294 2763 SETUCK 00001 0001E7 02778 00001 000014 00917 0973 0991 SETUP 00001 0005F2 06554 6548 SETUPX 00001 00010C 02743 2737 SETUX 1435 SETUXCNT 00001 00004D 01193 SETVELCK 00001 00032B 04023 8268 7453 SETWTMCK 00001 0006CE 07312 00001 00030B 03899 SET4 SET7CNT 00001 00048A 05297 00001 0004E8 05632 3353 SET800 5183 SET8001 00001 0004EB 05641 SEVENTRK 00001 000010 00577 4434 4428 4785 SEVTRK 00001 000080 0-0555 2487 SHORTDLY 00001 000186 02385 SKIPB 00001 000384 04351 2082 2302 SKIPMOD 00001 00016F 02308 0003CO 04548 SKIPRPQ 00001 4542 SKIPSDR 00001 0003CD 04593 SKIPSLO 00001 000661 06936 6930 SLOWBGN 00001 000004 00604 6933 SLOWEND 00001 000002 00605 7038 7240 SNSB 00001 0003A6 04464 4458 4464 SNSC 00001 0003A8 04473 00001 0003AD 04488 SNSC2 SNSD 00001 0003AE 04491 4485 4494 SNSE 00001 0003B1 04500 SNSF 00001 0003B6 04518 4500 SNSG 00001 0003C2 04557 4539 00001 0003C6 04569 4560 SNSH SNSI 00001 0003C7 04572 SNSJ 00001 0003C9 04581 4569 4593 00001 0003CF 04602 SNSK 4611 00001 0003D4 04620 SNSL 4503 SNSLES 00001 0003B4 04509 38.27 SNSLINK 00001 0003F9 04752 4620 SNSM ·00001 0003D6 04629 00001 0003D7 04632 SNSN 00001 0003D9 04642 4629 SNSO 00001 0003DB 04648 4642 SNSP 4651 00001 0003DE 04660 SNSQ 4660 00001 0003E4 04681 SNSR 3821 00001 000106 02725 SNSRTN 4681 00001 0003E6 04687 SNSS 00001 0003E7 04690 SNST SNSTOP 00002 00037D 04329 4687 SNSV 00001 0003EC 04708 4467 4614 SNSWAIT 00001 0003EF 04722 00001 OOOODA 01723 SNSO 1726 00001 OOOODE 01735 SNS1 f \ " ) PN 1846378 CROSS-REFERENCE EC 736697 PAGE 118 2/04/74 3830 5159 5647 7439 4623 f-~ \ j ROS2 3803-2 MICROCODE LISTING ROS2 SYMBOL LEN VALUE DEFN REFERENCES SNS2 00001 OOOOEO 01742 1729 SNS3 00001 0000E1 01745 1738 SNS4 00001 0000E6 01760 1754 SNS41 00001 000392 04403 1769 1763 SNS410 00002 0000E9 01769 SNS42 00001 000397 04418 1766 4415 SNS5 00001 000398 04421 00001 00039A 04428 4421 SNS6 SNS7 00001 00039D 04437 4431 SNS8 00001 0003AO 04446 4440 00001 0003A3 04455 4449 SNS9 1912 SOCKEM 00001 00010D 01921 1107 1135 SPACEOP 00001 000001 00660 SRETURNl 00002 0002F6 03818 1848 2713 SRETURN2 00002 0002F7 03821 4241 SRETURN3 00002 0002F8 03824 SRETURN.4 00002 0002F9 03827 4563 6567 7646 SRETURN5 00002 0002FA 03830 SRETURN6 00002 0002FB 03833 3713 2524 SRETURN7 00002 0002FC 03837 STARTAPE 00001 000256 03200. 1141 START800 00001 000548 05963 5988 STAT 00001 000028 00295 0851 0903 4743 4800 6560 6573 STATIMG 00001 000004 00393 0843 0847 2851 2869 5009 5376 6557 6560 STATSNOW 00001 000770 07889 01889 STATUSOK 00001 000104 3818 STATUS 1 00001 000101 01875 6588 6594 STAYFWD 00001 000604 06600 5969 5978 STEPCTR 00001 00054F 05985 STEPOOOl 00001 000000 00837 STEPOO02 00001 000001 00841 STEPOO03 00001 000002 00845 STEPOO04 00001 000003 00849 STEPOO05 00001 000004 00853 STEPOO06 00001 000008 00867 STEPOO07 00001 0001A1 02497 STEPOO08 00001 0001A5 02513 STEPOO09 00001 0001A6 02517 STEP0010 00001 0001A7 02522 STEP0011 Ob001 0001A8 02526 STEPOO12 00001 0002El 03725 STEPOO13 00001 0002E2 03729 STEPOO14 00001 0002E3 03733 STEPOO15 00001 0002E4 03738 STEPOO16 00001 0002E5 03742 STEPOO17 00001 0002E:6 03746 STEPOO18 00001 0002E7 03750 STEPOO19 00001 0002E8 03754 STEP0020 00001 0002E9 03759 PN 1846378 EC 736697 PAGE CROSS-REFERENCE 119 2/04/74 1593 1641 1030 4969 6711 0851 2872 5798 6573 1175 5009 7327 0899 2899 5826 6711 1842 5376 7505 0903 2905 5956 7327 2415 5798 7538 1030 4116 5975 7368 2716 5826 7652 1175 4201 6045 7505 2789 5956 2899 5975 2905 6045 4201 6073 4221 6167 4280 6186 4379 6238 4731 6312 1798 4221 6070 7538 1842 4280 6073 7652 2183 4379 6167 7911 2415 4728 6186 8259 2471 4731 6217 8372 2716 4743 6238 2789 4800 6312 2848 4969 6554 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL STEP0021 00001 0002E8. 03755 STEP0022 00001 0002E9 03760 STEP0023 00001 0002EA 03764 STEP0024 00001 0002EB 03768 STEP0025 00001 0002EC 03772 STEP0026 00001 0002ED 03776 STEP0027 00001 0002EE 03780 STEP0028 00001 0002EF 03784 STEP0029 00001 0002FO 03788 STEP0030 00001 0002Fl 03793 STEP0031 00001 0002FO 03789 STEP0032 00001 0002Fl 03794 STEP0033 00001. 0002F2 03798 STEP0034 00001 0002.F3 03802 STEP0035 00001 0002F4 03806 STEP0036 00001 0002F5 03810 STEP0037 00001 0002FC 03835 STEP0038 00001 0001A9 02530 STEP0039 00001 0001AA 02534 STEP0040 00001 000 lAB 02538 STEP0041 0000.1 0001AC 02542 STEP0042 00001 0001AD 02546 STEP0043 00001 0001AE 02550 STEP0044 00001 0001AF 02554 STEP0045 00001 0001BO 02558 STEP0046 00001 0001Bl 02562 STEP0047 00001 0001B2 02566 STEP0048 00001 0001B3 02570 STEP0049 00001 0001B4 02574 STEP0050 00001 0001B5 02578 STEP0051 00001 0001B6 02582 STEP0052 00001 0001B7 02586 STEP0053 00001 0001B8 02590 STEP0054 00001 0001B9 02594 STEP0055 00001 0001BA 02598 STEP0056 00001 0001BB 02608 STEP0057 00001 0001BC 02612 STEP0058 00001 0001BD 02616 STEP0059 00001 0001BE 02620 STEP0060 00001 0001BF 02624 STEP0061 00001 0001CO 02628 STEP0062 00001 000011 00897 STEP0063 00001 000012 00901 STEP0071 00001 0001A2 02501 STEP0072 00001 0001A3 02505 STEP0073 00001 0001A4 02509 STEP0074 00001 000005 00857 5839 STILLOK 00001 OOOSlA 05808 6174 STOPEXIT 00001 000589 06196 4848 6008 STOPNRZI 00001 00041B 04873 1495 1570 STOPREAD 00001 0000B4 01588 6509 6519 STOPWAIT 00001 0005E6 06516 1560 6936 STREADCK 00001 000008 00613 6254 STROBEA 00001 000592 06232 ~ \. ) r~ \ I ;; \ PN 1846378 CROSS-REFERENCE PAGE 120 2/04/74 ! .~ ) EC 736697 \ ; ./ \ '\i f .~ \. ) ROS2 3803-2 MICROCODE LISTING ROS2 SYMBOL LEN VALUE DEFN REFERENCES STROBTIE 00002 000635 06784 1617 STRTOVER 00001 000430 04990 4819 SUBONE 00001 00079C 08044 8025 SUMMORE 00001 000249 03146 3081 SYNC 00001 000010 00518 1184 1242 TACHASYM 00001 000566 06085 6161 6170 TACH DOWN 00001 00051E 05820 TACHOFFl 00001 000127 02036 TACHOFF2 00001 000128 02039 TACHONl 00001 00012A 02046 2033 TACHON2 00001 00012C 02052 2046 TACHPRZ 00001 000319 03957 3921 3984 TACHUP 00001 000522 05833 5817 TACHWAIT 00001 000225 03024 3002 3008 TACHYET 00001 000227 03030 3024 TACH 1 00001 000785 07972 7975 8000 00001 000787 07978 'rACH2 7972 TACH 3 00001 000797 08028 8063 8070 TAHITCH 00001 00014E 02189 TAKMOVE 00001 000781 07959 7711 7736 TAKS 00001 00021C 02991 1007 2195 TAKTOSTP 00001 000561 06070 5786 5949 TAKTR 00001 000008 00641 3033 3088 00001 000080 00527 TAPEOP 2412 2710 TESTFWO 00001 0002CO 03648 3690 TESTLWR 00001 000016 00923 TESTONE 00001 OOOSCl 06395 TESTl 00001 0005C3 06401 6485 THERE 00001 00069C 07143 7136 7146 TIEBYTE 00001 000017 00406 2576 4509 TIEEQU03 00001 000440 05055 5036 5086 TMCONFIG 00001 000059 01236 TMENO 00001 0004B9 05462 5342 5462 00001 0006F4 07453 TMEND2 7446 0000'1 TMFINIS 0006Fl 07443 7426 TMLOOPl 00001 0006EB 07423 5465 7429 TMLOOP2 00001 0006F7 07464 7436 7470 TM10BOR 00001 0006EC 07426 7477 TM20BOR 00001 0006F8 07467 TM7TRK 00001 OOOOOF 00566 5244 TM9TRK 00001 000013 00565 5253 TOIBG800 00002 00042E 04936 4870 TOSETO 00002 000131 02067 1686 TOSET02 00002 OOOOCF 01686 1860 TRACEBOR 00001 00006B 01301 1211 TRACELSR 00002 000500 05719 TRACER 00001 000008 00397 0914 0970 TRACTRAP 00002 000512 05773 TRAP 1 00002 0005C6 06410 TRAP 1 0 00002 000500 06482 6343 TRAPll 00002 00050F 06488 6346 TRAP2 00002 0005C9 06419 TRAP4 00002 000501 06446 6325 TRAPS 00002 000503 06452 6328 PN 1846378 CROSS-REFERENCE EC 736697 PAGE 121 2/04/74 1505 6192 1564 1602 3606 3027 3043 3050 3158 8077 8090 8096 7773 7786 7842 7981 4966 8013 5006 5012 6042 6235 1093 1100 1107 1123 3663 6600 6685 6877 1129 1135 2584 8006 5591 7467 0988 7117 ROS2 3803-2 MICROCODE LISTING ROS2 SYMBOL LEN VALUE DEFN REFERENCES TRAP6 00002 0005D5 06458 6331 TRAP 7 00002 000507 06464 6334 TRAP8 00002 0005D9 06470 6337 TRAP9 00002 0005DB 06476 6340 TRETURN2 00002 00024F 03167 5171 TRETURN3 00001 000252 03175 2192 TRETURN5 00002 000250 03170 7330 TRNARND 00001 000138 02110 0953 0959 TRY AGAIN 00001 000076 01344 1321 1347 TSAGC 00001 000008 00603 2757 3459 TSTFOERR 00001 0001EO 02757 2751 2760 TSTFOMOR 00001 0001E3 02766 04130 TSTGO 00001 000348 4052 6315 TSTHI 00001 0005AA 06322 TSTHI10K 00002 0005B9 06368 6361 00001 00032E 04037 TSTIME 3995 TST28 00001 000329 04013 4.122 4133 TUADDR 00001 OOOOOB 00400 1807 1810 TUBI 00001 000081 00289 2299 2964 1153 1659 TUBO 00001 000060 00279 5294 5339 5761 5764 TUBODOWN 00001 0002E4 03737 3118 6606 TUBOMSK 00001 000002 00672 2146 TURNNRZI 00001 0004E3 05611 TUSTA 00001 000040 00579 1742 TUSTB 00001 000020 00580 1732 000024 TUTAG 00001 00282 1156 1650 4342 4354 7914 7962 UCKON 00001 000247 03139 3069 4029 UDETERR 00001 000008 00588 UEXEND 3942 3972 00002 00032C 04026 UNTCHKl 8186 8212 00002 0007DB 08272 6130 UPCOUNTl 00001 000576 06136 VELBAD 00001 000634 06780 5455 5508 VELCHKl 00001 00061E 06706 VELCHK10 00001 000625 06729 VELCHK2 00001 000622 06720 6720 6744 VELCHK3 00001 00062A 06744 6729 6738 VELCHK4 00001 00062C 06752 6717 6726 6755 VELCHK5 00001 00062F 06762 06764 VELCHK6 00001 000630 6177 VELCHK7 00001 000630 06766 6769 VELCHK8 00001 000632 06774 6762 5352 VELCK80A 00001 00049E 05367 VELCK80B 00001 00049F 05370 5358 5364 VELCK800 00001 000498 05349 5220 VELCK801 00001 0004AO 05373 VELCK802 00001 0004A2 05380 VELCK803 00001 0004A3 05383 5386 5399 VELCK804 00001 0004A7 05396 5402 VELCK805 00001 0004AE 05422 5380 5393 VELCK806 00001 0004Bl 05432 5425 ~ " , / ~.~ .. ", '"' I / I PN 1846378 CROSS-REFERENCE EC 736697 PAGE 122 2/04/74 1033 1144 3489 7587 1819 3774 1995 5722 5767 1822 3778 2183 5725 5884 2887 3800 2261 5728 5899 4173 4268 2471 5731 6082 4299 5896 2548 5734 6217 4361 6503 3109 5737 6497 7386 3124 5740 6612 7889 3731 5743 7368 8022 3748 5746 7858 3782 5749 7870 4259 5752 7911 4339 5755 4879 5758 1857 4888 8037 1998 5881 2014 5905 2186 6036 2276 6103 2436 6199 2477 6244 2540 7068 2614 7374 2677 7395 3115 7796 3184 7861 3740 7867 5583 7050 7306 7449 6747 6752 6766 5428 5441 7808 8346 f '\ 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES SYMBOL LEN VALUE DEFN 5438 5452 VELCKB07 00001 000482 05435 5422 5435 VELCKSOS 00001 1)004B5 05445 5432 VELCK809 00001 0004B6 05449 3924 3939 VELEXIT 00001 00033F 04093 4102 VELEXITl 00002 000344 04108 00001 00021A 02973 VELGAP 4023 VELOCERR 00001 000001 00626 4136 8256 VELOCOK 00001 0007F9 08372 8253 8333 VELOCOUT 00001 0007D7 08259 8166 8182 VELOCOOl 00001 0007BD 08173 8173 08179 00001 0007BF VELOC002 8176 VELOC003 00001 0007C4 08199 8192 VELOC004 00001 0007Cl 08186 8208 8288 VELOC005 00001 00D7C5 08202 8202 8215 VELOCOO6 ooom OOD7CB 08223 8218 VELOC007 00001 0007C8 08212 8229 VELOC008 00001 0007CF 08235 VELOC009 00002 0007CE 08232 0007D2 08244 00002 VELOC010 8241 VELOC011 00001 0007D3 08247 8265 VELOC012 00001 0007DE 08282 8282 VELOC013 00002 0007El 08291 8291 VELOC014 00001 0007E2 08299 8352 VELOC015 00001 0007E4 08306 8302 VELOC016 00001 0007EF 08339 8312 VELOC017 00001 0007E7 08315 VELOC019 00002 0007EA 08324 VELOC020 00001 0007EB 08327 . 8321 8232 VELOC021 00002 0007F4 08357 8357 VELOC022 00002 0007F5 08360 8360 VELOC023 00002 0007F6 08363 8244 8324 VELOC024 00002 0007F7 08366 8366 0007F8 08369 VELOC025 00002 8342 0007E3 08302 00001 VELOC026 8349 VELOC027 00001 0007Fl 08346 7053 00001 000635 06782 VELOUT 00001 000214 02940 VELSTR 2757 4116 00001 000001 00607 VEL TRY 2970 00001 000217 02964 VELl VRCDONE 00001 0003BD 04539 3299 3305 00027E 03359 WAITACEL 00001 1252 1259 WAITEND 00001 OOOOAF 01570 6579 WAITIBG 00001 0005F8 06576 3945 4143 00001 000313 03936 WAITL 4096 WAITLOP 00001 00034B 04140 8163 WAITONE 00001 0007BA 08163 7389 WAITSOME 00001 0006DF 07383 4575 4669 WAITO 00001 0003Fl 04728 4740 WAITl 00001 0003F3 04734 3978 4140 WAIT1L 00001 000310 03972 4749 00001 0003F7 04746 WAIT2 4512 4596 00001 0003FO 04725 WAIT4 4734 00001 0003F6 04743 WAITS 4010 4073 00001 000332 04049 WASTET PN 1846378 CROSS-REFERENCE 3975 4061 3344 1429 3350 1576 3362 4675 4696 4702 3957 PAGE 123 2/04/74 8336 8369 8363 8259 4654 EC 736697 3373 3379 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 1147 1001 00001 000000 00389 WORK 1 2110 2532 3528 3727 4259 4296 6076 6202 7333 7491 8143 8235 00001 000001 00390 0839 0855 WORK2 2548 2688 4336 4339 5899 5959 8122 8137 1196 1698 00001 000002 00391 WORK3 3184 3285 4873 4897 7371 7374 7962 7965 0917 0938 WORK4 00001 000003 00392 3406 3534 6811 7216 8199 8223 0894 3124 WORKS 00001 000015 00405 7068 8160 0917 0938 WRITE 00001 000008 00477 WRITE20 00001 00063C 06813 6805 6815 6864 WRITE201 00001 00063C 06815 6827 6833 WRITE22 00001 000644 06839 6842 WRITE220 00001 00064C 06862 6867 WRITE221 00001 00064C 06864 6918 WRITE23 00001 00066C 06979 7018 WRITE25 00001 00067A 07032 6960 WRITE25X 00001 00067C 07038 6887 WRITE27 00001 00066A 06973 4108 5279 WRITE28 00001 000671 06996 WRITE28X 00001 000672 07004 WRITE280 00001 000672 07006 7009 7062 6818 6821 WRITE30 00001 000643 06836 WRITE32 00001 000674 07012 7006 7015 WRITE33 00001 00063E 06821 000677 07021 7027 7035 wRITE34 00001 7012 7021 WRITE40 00001 000688 07078 7089 7104 WRITE41 00001 000680 07095 7095 7101 WRITE420 00001 000691 07108 7111 7149 WRITE43 00001 00069E 07149 7098 WRITE49 00001 0006A3 07165 7130 WRITE50 00001 0006A6 07175 07156 7165 WRITE54 00001 0006AO 7178 WRITE542 00001 0006Al 07159 WRITE888 00001 0004C8 05518 WRITE999 00001 00066F 06990 5217 5476 WRITING 00001 000488 05476 4452 WRSTA 00001 000004 00582 WRSTALP 00001 000018 00938 2169 2347 WRSTAT 00001 000008 00547 e ~~ \ ~ ) PN 1846378 CROSS-REFERENCE EC 736697 PAGE 124 2/04/74 2014 3420 4256 5367 7213 8134 1153 2544 3735 4333 6290 7555 1156 2610 3740 4342 6494 7598 1193 2614 3744 5101 6497 7702 1608 2673 3748 5111 6541 7730 1647 2677 3766 5126 6714 7767 1650 2803 3782 5187 6799 7780 1656 2964 3804 5261 6808 7824 1659 2973 3860 5297 6860 7833 1854 3112 3878 5306 7086 7943 1857 3115 3890 5355 7092 7952 2011 3249 3908 5361 7123 8119 1190 2976 4521 6079 8247 1989 3525 5055 7392 8037 0956 5244 7511 1585 3078 4602 6082 8327 1998 3675 5058 7395 8157 1018 5253 7705 1720 3109 4722 6094 1801 3246 4752 6100 2180 3333 4781 6103 2186 3423 4942 6196 2189 3863 4981 6199 2241 3881 5190 6703 2385 3893 5370 7228 2433 4040 5804 7336 2436 4167 5849 7601 2536 4195 5887 7968 2076 3681 5077 7514 8299 1037 5294 7720 2200 3899 5117 7723 8306 1052 5336 7743 2267 4007 5644 7793 2273 4119 5671 7796 2276 4170 5872 7855 2474 4323 5881 7861 2477 4348 5905 7864 . 2908 4473 6085 7867 2993 4725 6177 7914 3181 4755 6700 7959 1116 5339 7783 1138 5551 7805 1199 5641 7839 1695 5863 7858 2002 5884 7870 2261 6088 7885 2940 6180 7895 3282 6802 8022 4876 4879 4885 4888 4945 5866 6033 6036 6241 6244 6612 7065 2124 7743 7783 7805 6951 6984 6987 1150 2540 3731 4305 6281 7535 8315 0998 2719 4382 5998 8146 1711 3409 5040 7386 8034 0950 4894 7353 8285 3905 7071 7024 7152 5554 5567 4446 7802 ! ,. \ \ ) ('l 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL 8381 WRTAWAY 00001 00060B 06636 2710 6570 WRTBURST 00001 000020 00529 7939 00001 0005F5 06567 WRTP2 6638 WRTSTNRZ 00001 000465 05150 0920 00001 00020F 02924 WRTSTR 2930 00001 000213 02937 WRTSTRl 2927 WRTSTR2 00001 000212 02933 2933 WRTSTR3 00002 000216 02946 6854 6883 00001 00064F 06880 WRTOl 6880 00001 000651 06887 WRT02 6976 00001 000652 06890 WRT03 6890 00001 000657 06905 WRT04 00001 000658 06908 6896 6902 WRT05 00001 000659 06912 WRT06 6915 00001 00065C 06921 WRT07 6921 00001 000667 06954 WRT08 6660 00001 000600 07320 WRTl 3170 00001 000606 07347 WRT2 00001 000607 07350 WRT21 00002 000609 07356 WRT3 7356 7485 00001 000703 07491 WRT30 7347 00001 000700 07482 WRT4 7482 00001 000705 07502 WRT5 5923 00001 00070B 07526 WRT6 7532 00001 000711 07545 WRT7 7545 00001 000713 07552 WRT8 7552 00001 000716 07568 WRT9 7571 7616 00001 00071F 07598 WRT90 7640 00001 00072F 07646 WRT95 WSTLOOP 00001 000331 04046 4209 00001 000359 04209 WTEONC 5814 WTFORIBG 00001 00051B 05811 3173 7199 WTMAWAY 00001 0006AC 07206 7312 00001 000020 00611 WTMERR 0970 00001 000002 00638 WTMOP 7196 WTMSTR2 00002 000251 03173 00001 0006AE 07213 7206 WTM20 7219 7276 00001 0006BO 07219 WTM21 00001 0006B3 07228 WTM21A 7231 7246 00001 0006B4 07231 WTM21B 00001 0006BB 07252 7225 WTM22 00001 0006BF 07264 7258 WTM23 7270 7280 WTM24 00001 0006C3 07276 WTM25 00001 0006B5 07234 7237 7249 00001 0006B8 07243 WTM26 00001 0006C5 07283 7264 WTM27 WTM27A 00001 0006C8 07292 7252 7286 WTM30 7243 00001 0006CA 07300 7303 WTM31 00001 0006CD 07309 07315 7309 WTM32 0006CF 00002 1810 1822 XAOOR 00001 000084 00271 6290 6554 XANXB 00001 000043 00294 XFRFOP 5015 00001 000408 04800 XFRLO 6383 00002 OOOSCO 06390 PN 1846378 CROSS-REFERENCE 7320 7502 6927 6948 6908 7289 7295 6957 EC 736697 PAGE 125 2/04/74 3803-2 MICROCODE LISTING ROS2 ROS2 REFERENCES LEN VALUE DEFN SYMBOL XFRSTAT 00001 00036F 04280 4951 XFRTAGS 00001 000420 04888 5096 5129 00001 00044E 05058 XFRTIE 5107 XFRTIEBl 00001 000463 05126 XFRTIEB2 00002 00044F 05061 0887 0894 00290 000090 00001 XINA 0839 2803 00001 000088 00291 XINB 1187 1245 00001 000042 00292 XOUTA 4581 4648 6981 7083 1187 1245 XOUTAIM 00001 OOOOOD 00402 6603 6688 1875 4195 00293 00001 000041 XOUTB 4791 5165 00002 000401 04778 XXXXX 1514 1542 Xl0X 00001 OOOOAl 01514 1523 1545 Xl1X 00001 0000A8 01542 7978 00001 00078A 07988 YESTAK 0891 3837 00001 0001A9 02532 ZAPIM 7383 ZAPl 00002 0006E5 07401 6619 00001 000609 06616 ZEBRA 0914 0843 00568 000000 00001 ZERO 4482 4527 1662 3094 ZEROCTR 00001 00021C 02993 5801 00002 00052A 05859 ZIPOUT 6374 00002 0005BF 06386 ZONK 6297 00002 0005A9 06318 ZONKA 6300 00002 0005E9 06525 ZONKB 6303 06531 0005EB ZONKC 00002 6306 00002 0005ED 06537 ZONKD ZONK10 00002 0005E5 06512 6287 6294 00002 0005Fl 06551 ZONK2 3403 ZRETURNl 00002 00053D 05920 7508 ZRETURN2 00002 00053E 05923 ~ \ ) ~ \. ) (' 4, j PN 1846378 PAGE EC 736697 CROSS-REFERENCE 126 2/04/74 1801 2200 5671 6281 6541 1329 4663 7120 1329 6845 4572 5650 1508 4693 1567 4699 1605 4722 1878 5635 2409 6039 2719 6177 3321 6232 3584 6603 3609 6688 3666 6845 4509 6942 4557 6973 1508 6942 4666 5653 1567 6973 4672 1605 6981 4690 1889 7083 4725 2409 7120 5849 3321 3584 3609 3666 5635 6039 6232 5998 6180 6202 1717 4536 3100 1723 4590 3252 1854 4608 3432 2311 4715 7339 2610 4752 2642 4755 2673 5247 3770 5300 3905 5336 4043 4409 4455 4479 ! f. \. ./ ''\ ('l . / ROS2 3803-2 MICROCODE LISTING NUMBER OF PRINTED LINES = 6021 PRINTED LINES ZRETURN1 00002 00053D 05920 3403 ZRETURN2 00002 00053E 05923 7508 PN 1846378 EC 736697 END OF LISTING PAGE. 127 PAGE 127 OF 127 ( ) -------_. __._. __ ._-_. __._._-_._--_._----------, SUPPLEMENT TO MICROCODE LISTINGS PN 1846377 PN 4764904 ROSI MPL01 PAGE OF (ALU1) THIS SUPPLEMENT PAGE PROVIDES THE MICROCODE MODIFICATIONS DONE BY CARD ASSEMBLY 8555073 OR 8555075 AT OA1-B2J2, INSTALLED BY ECs 845527 OR 847836. () DESCRIPTION. () PRE-REQUISITES. 3803 MODEL 2 WITH ECs 846627 OR 847835 INSTALLED. () INSTRUCTION. INSERT THIS SUPPLEMENT PAGE AT THE BEGINNING OF MICROCODE LISTINGS PN 1846377 AND NOTE REFERENCE TO THIS PAGE AT ENTRY ADDRESS ON APPLICABLE MICROCODE PAGE. PATCH STORE MICROCODE LISTINGS INSTR ADDR PATCH STORE CONTROL rn OBJECT CODE C400 2De ENTER 52DE RETURN 2DD ENTER 4828 3l1li 3B8C 329 c---- 1 - - - - 6380 32A 3A82 380 632B 381 RETURN D981 382 2085 383 6338 384 RETURN 0202 385 4228 385 A202 387 2187 388 0200 389 4828 38A 6384 38B 633A 38C RETURN 4828 lIS5 ENTER 2B82 336 6337 337 RETURN 8520 OM ENTER D50C OA4 34AA OAS 20AA OA6 4642 OA7 14EB OA8 5441 OA9 62% OAA RETURN 1348 OFO ENTER 5322 OFI RETURN ( SOURCE STATEMENT DEPRIM4 FREEAREA CKCONCHA PCHKONA TAGa PAIDLY DEPRIM70 DEPRIM6 RTNI AND WORK 1, ZERO ._ ..._._.BU 2DE XFR STATIMG, STAT STATD, DEPRIM70 BDC -----BU 380, FREEAREA STATC, CKCONCHA BOC BU 32B ANDM FLAGS, CONCON+CHAIN DBUS, TAGO BOC 338 BU STO XOUTAIM, SETSTATIC XFR XOUTAIM, STAT XOUTAIM, X'02' ADD NALCO, PAIDLY BOC STO XOlJTAIM, 0 STATIMG, STAT XFR PCHKONA BU 33A BU XFR STATDMG, STAT STATB, CKCONCHA BOC 337 BU PNDSTS, CUE ORI ANDM PNDSTS, CEND+DEND OREG4, RTNI BOC DBUS, RTNI BOC XFR PNDADDR, XOUTA XOUTBIM, NDXSTS STO XFR XOlJTBIM, XOUTB BU TERMSTA2 STO LINK4, TERMATE XFR LINK4, IC PATCH NAME ALLOCATED BUSY ALTERNATE PATH DEVICE BUSY EXTRA DEVICE END SENSE RESET I' '/ NOTES rn ENTER ENABLES THE PATCH STORE FOR SUCCEEDING INSTRUCTIONS, AND RETURN DISABLES THE PATCH STORE FOR SUCCEEDING INSTRUCTIONS. ==~== ==~=~= HTHIS DOCUMENT IS THE PROPERTY OF IBM. ITS USE IS AUTHORIZED ONLY FOR RESPONDING TO A REQUEST FOR QUOTATION OR FOR THE PERFORMANCE OF WORK FOR IBM. ALL QUESTIONS MUST BE REFERRED TO THE IBM PURCHASING DEPARTMENT." IEC 1846771 DATE 1 1JUN82 I SUPPLEMENT TO MICROCODE LISTINGS PN 1846378 PN 4764911 MPL02 PAGE 1 OF 1 ( ROS2 (ALU2l () DESCRIPTION. THIS SUPPLEMENT PAGE PROVIDES THE MICROCODE MODIFICATIONS DONE BY CARD ASSEMBLIES 65&5073 OR 65&507& AT 0IA-A2G2. INSTALLED BY ECs 6~&&2& OR 6~763&. () PRE-REQUISITES: 3603 MODEL 2 WITH ECs () INSTRUCTION. 8~&&27 OR 8~783& INSTALLED. INSERT THIS SUPPLEMENT PAGE AT THE BEGINNING OF MICROCODE LISTINGS PN 164&376 AND NOTE REFERENCE TO THIS PAGE AT ENTRY ADDRESS ON APPLICABLE MICROCODE PAGE. PATCH STORE MICROCODE LISTINGS PATCH OBJECT INSTR STORE AOOR CW"ROL CODE 213 1&00 STOH SENSE 1. 0 WRTSTRI -----_ ENTER .. - -- - - - - - - - - - - - _ . 1300 VELSTR STOH WORK ~. ZERO RETURN -----f-~--- ---------- ._--_. --ENTER 0200 STO WORK 3. 0 --- ---- ----------RETURN 1500 STOH WORK 5. ZERO ENTER 0706 2"_DELAY ANDM SENSE 2. HIDDEN -&15C BU lSC RETURN BU ERASE& CTLRET& ENTER -&74~ -- - RETURN 0063 STO WORK 1. X'S3' ERASE& ENTER 8402 STATIMG. SETSTATIC DRUVNTCK ORI &3CO BU 3CO. FREEAREA 4426 XFR STATIMG. STAT FREEAREA 3AC4 PPOLMTIX BOC STATC. TAGOO 3BtE eoc STATO. EXITPTCH &3CI PPOLMTIX BU STO WORK 1. RESET 0002 TAGOO XFR ~060 WORK 1. TUBO STO OOOA WORK 1. DEVSEL +COMMO XFR 4024 WORK 1. TUTAG 0000 STO WORK 1. 0 AOOO ADD WORK 1. 0 ~024 XFR WORK I. TUTAG A024 TAG002 ADD WORK 1. 3& 21CB NALCO. TAG002 BOC XFR COMITO ~OSO 6370 BU POLLMTIX EXITPTCH RETURN ~--- 214 SOURCE STATEMENT PATCH NAME VELOCITY RETRY EXTENSION --.~-------- --~ 788 769 1I5A r---- 156 Ii3F 74~ 8IIE 3&F 3CO 3Cl 3C2 3(3 3t~ 3C5 3C& 3C7 3C6 3C9 3CA 3CB 3CC 3CD 3CE ( TURNAROUND DELAY TRUNCATED POSTAMBLE ALTERNATE PATH DEVICE BUSY NOTES OJ ==~== ==~="= ENTER ENABLES THE PATCH STORE FOR SUCCEEDING INSTRUCTIONS. AND RETURN DISABLES THE PATCH STORE FOR SUCCEEDING INSTRUCTIONS. NTHIS DOCUMENT IS THE PROPERTY OF IBM. ITS USE IS AUTHORIZED ONLY FOR RESPONDING TO A REQUEST FOR QUOTATION OR FOR THE PERFORMANCE OF WORK FOR IBM. ALL QUESTIONS MUST BE REFERRED TO THE IBM PURCHASING DEPARTMENT.·I~~ TE 1-~~-3-~-h+-------+----+------+---'---+----+----+------i /
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19 Create Date : 2018:05:24 16:07:39-08:00 Modify Date : 2018:05:24 17:13:05-07:00 Metadata Date : 2018:05:24 17:13:05-07:00 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Format : application/pdf Document ID : uuid:29c0e3aa-ffae-5c40-9d48-134602e6430f Instance ID : uuid:27538510-85a4-7942-b8bc-03f5f22b2184 Page Layout : SinglePage Page Mode : UseNone Page Count : 252EXIF Metadata provided by EXIF.tools