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