3803 M2_MPL_Sep1973 M2 MPL Sep1973

User Manual: Pdf 3803-M2_MPL_Sep1973

Open the PDF directly: View PDF PDF.
Page Count: 252

Download3803-M2_MPL_Sep1973 3803-M2 MPL Sep1973
Open PDF In BrowserView 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                      : 252
EXIF Metadata provided by EXIF.tools

Navigation menu