KS703

KS703 KS703

User Manual: KS703

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

Download
Open PDF In Browser	View PDF

~

T lOKL.'r",:;R [10,1141]

~

~

~
0
~

~'

i
~

=

.~

1:

"
~

>

.~
~

E

~
B

•

~

<
~

~

Ii.

1
14
69
188
393
439
475
523
675
709
732
835
879
930
950
972
1310
1356
1515
1665
1700
1721
1753
1780
1830
1847
1860
1943
1959
1972
2003
2032
2040
2065
2099
2140
2142
2224
2348
2460
2544
2581
2596
2763
2794
2949
3045
3080
3119
3151
3303
3372
3422
3513
3603

15:34 27-0ULY-1984

MICRO 31(254)

KSIU MICROCODE V124, 27-JUL-84
Table of Contents

Page 1

/

13: 19 26-JULY-1984
T10KL.MIC[ 10,1141]
KS10.MIC[10,1141]
07:10 27-JULY-1984
REVISION HISTORY
HOW TO READ THE MICROCODE
CONDITIONAL ASSEMBLY DEFINITIONS
2901 REGISTER USAGE
MICROCODE FIELD~
LISTING FORMAT
MICROCODE FIELDS
DATA PATH CHIP
MICROCODE FIELDS
RAM FILE ADDRESS AND D-BUS
MICROCODE FIELDS
PARITY GENERATION & HALF WORD CONTROL
MICROCODE FIELDS
SPEC
MICROCODE FIELDS
DISPATCH
MICROCODE FIELDS
SKIP
MICROCODE FIELDS
TIME CONTROL
MICROCODE FIELDS
RANDOM CONTROL BITS
MICROCODE FIELDS
NUMBER FIELD
DISPATCH ROM DEFINITIONS
HOW TO READ MACROS
DATA PATH CHIP
GENERAL
MACROS
Q
MACROS
DATA PATH CHIP
MACROS
DATA PATH CHIP
MISC.
MACROS
STORE IN AC
MACROS
MICROCODE WORK SPACE
MACROS
MEMORY CONTROL
MACROS
VMA
MACROS
TIME CONTROL
MACROS
SCAD, SC, FE LOGIC
MACROS
DATA PATH FIELD CONTROL
MACROS
SHIFT PATH CONTROL
MACROS
SPECIAL FUNCTIONS
MACROS
PC FLAGS
MACROS
PAGE FAIL FLAGS
MACROS
SINGLE SKIPS
MACROS
SPECIAL DISPATCH MACROS
DISPATCH ROM MACROS
SIMPLE.MIC[10,1141)
15:31 27-JULY-1984
POWER UP SEQUENCE
THE INSTRUCTION LOOP
START NEXT INSTRUCTION
THE INSTRUCTION LOOP
FETCH ARGUMENTS
THE INSTRUCTION LOOP
STORE ANSWERS
MOVE GROUP
EXCH
HALFWORD GROUP
DMOVE, DMOVN. DMOVEM, DMOVNM
BOOLEAN GROUP
ROTATES AND LOGICAL SHInS
ROT, LSH. JFFO
ROTATES AND LOGICAL SHI FTS.
LSHC
ROTATES AND LOGICAL SHIFTS
ASHC
ROTATES AND LOGICAL SHIFTS
ROTC
TEST GROUP
COMPARE -- CAl, CAM
ARITHMETIC SKIPS .-- ADS, 50S, SKIP
CONDITIONAL JUMPS -- JUMP, AOJ, S00, AOBJ
AC DECODE JUMPS -- JRST,JFCL
EXTENDED ADDRESSING INSTRUCTIONS
/

T10KL.MCR[10,1141]
3644
3666
3763
3796
3848
4047
4076
4109
4160
4301
4378
4499
4564
4604
4650
4727
4740
4774
4827
4915
5074
5182
5256
5257
5302
5331
5381
5416
5453
5520
5531
5620
5681
5735
5845
5846
5901
5943
5988
6019
6067
6091
6152
6284
6442
6496
6515
6530
6537
6548
6611
6634
6648
6681
6705

15:34 27·JULY-1984

MICRO 31(254)

XCT
STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ
STACK INSTRUCTIONS -- .ADJSP
SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA
ILLEGAL INSTRUCTIONS AND UUO'S
ARITHMETIC
ADD, SUB
ARITHMETIC
DADD, DSUB
ARITHMETIC
MUL, IMUL
ARITHMETIC
DMUL
ARITHMETIC
DIV, IDIV
ARITHMETIC
DDIV
ARITHMETIC
DIVIDE SUBROUTINE
ARITHMETIC
DOUBLE DIVIDE SUBROUTINE
ARITHMETIC
SUBROUTINES FOR ARITHMETIC
BYTE GROUP
IBP, ILD8. LDB, IOPB, DPB
BYTE GROUP
INCREMENT BYTE POINTER SUBROUTINE
BYTE GROUP
BYTE EFFECTIVE ADDRESS EVALUATOR
BYTE GROUP
LOAD BYTE SUBROUTINE
BYTE GROUP
DEPOSIT BYTE IN MEMORY
BYTE GROUP
ADJUST BYTE POINTER
BLT
. .
UBABLT'- BLT BYTES TO/FROM UNIBUS FORMAT
FLT.MIC[lO, 1141}
01:4620-MAR-1981
FLOATING POINT
FAD, FSB
FLAOTING POINT
FMP
FLOATING POINT
FDV
FLOATING POINT
FLTR, FSC
FLOATING POINT
FIX AND FIXR
FLOATING POINT
SINGLE PRECISION NORMALIZE
FLOATING POINT
ROUND ANSWER
FLOATING POINT
DFAD. DFSB
FLOATING POINT
DFMP
FLOATING POINT
DFDV
FLOATING POINT
DOUBLE PRECISION NORMALIZE
EXTEND.MIC(10,1141]
11:3526-JULY-1984
DISPATCH ROM ENTRIES
EXTEND
INSTRUCTION SET DECODING
EXTEND
MOVE STRING
SETUP
EXTEND
MOVE STRING
OFFSET/TRANSLATE
EXTEND
MOVE STRING
MOVSRJ
EXTEND
MOVE STRING
SIMPLE MOVE LOOP
EXTEND
COMPARE STRING
EXTEND
DECIMAL TO BINARY CONVERSION
EXTEND
BINARY TO DECIMAL CONVERSION
EXTEND
EDIT
MAIN LOOP
EXTEND
EDIT
DECODE OPERATE GROUP
EXTEND
EDIT
STOP EDIT
EXTEND
EDIT
START SIGNIFICANCE
EXTEND
EDIT
EXCHANGE MARK AND DESTINATION
EXTEND
EDIT
PROCESS SOURCE BYTE
EXTENO
EDIT
MESSAGE BYTE
EXTEND
EDIT
SKIP
EXTEND
EDIT
ADVANCE PATTERN POINTER
EXTEND
FILL OUT DESTINATION
EXTEND SUBROUTINES
EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE

KS10 MICROCODE V124, 27-JUL-84
Table of Contents

\

\,

Page 2

15:34 27-JULY-1984
6742
6828
6857
6878
6922
6961
6962
6993
7099
7201
7242
7273
7312
7326
7366
7507
7522
7710
7734
7815
7870
7962
7964

EXTEND
EXTEND
EXTEND
EXTEND
EXTEND

MICRO 31(254)

SUBROUTINES
TRANSLATE
SUBROUTINES
GET UNMODIFIED SOURCE BYTE
SUBROUTINES
STORE BYTE IN DESTINATioN STRING
SUBROUTINES
UPDATE DEST STRING POINTERS
-- PAGE FAIL CLEANUP
INOUT.MIC[10,1141J
09:1727-JULY-1984

TRAPS
10
INTERNAL DEVICES
10
INTERNAL DEVICES
EBR & UBR
10
INTERNAL DEVICES
KL PAGING REGISTERS
10
INTERNAL DEVICES
TIMER CONTROL
10
INTERNAL DEVICES
WRTIME & RDTIME
10
INTERNAL DEVICES
WRINT & RDINT
10
INTERNAL DEVICES
RDPI & WRPI
10
INTERNAL DEVICES
SUBROUTINES
PRIORITY INTERRUPTS -- DISMISS SUBROUTINE
EXTERNAL 10 INSTRUCTIONS
SMALL SUBROUTINES
UNDEFINED 10 INSTRUCTIONS
UMOVE AND UMOVEM
WRITE HALT STATUS BLOCK
PAGEF.MIC[10,1141]
12:3226-JULY-1984
PAGE FAIL REFIL LOGIC
Cross Reference Index
. DCOD E Loca t ion / Line Number Index
UCODE Location / Line Number Index

KS16 MICROCODE V124, 27-JUL-84
Table of Contents

Page 3

T10KL.MCR[10,1141J
T 10K L . MI C [ 10, 1 14 1 J

15:34 27-JULY-1984
13: 19 26~JULY·1984

1
2

.NOBIN
;KS10 MICROCODE PARAMETER FILE

3
4
5,

;PARAMETER FILE DEFINITIONS FOR T10KL
;TOPS-10 KL PAGING MICROCODE (V7.03)

6

7
8
9

10

.SET/INHCST=1
,SET/UBABLT=1
.SET/KIPAGE=O
. SET /NONSTD= 1

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
T10KL.MIC[10,1141J

ALLOW INHIBIT OF CST UPDATE IF csa = 0
SUPPORT UBABLT INSTRUCTIONS
REMOVE KI PAGING (REQUIRED FOR UBABLT)
FOR NOW., CALL THIS VERSION NON-STANDARD

11

12
13
14

. BIN

Page 4
13:1926-JULY-1984

~
\,

;I

T10KL.MCR[ 10,1141]
KS10.MIC[10,1141]
15
16

.TITLE

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
T10KL.MIC[1O,1141]

.NOBIN
"KS10 MICROCODE V124, 27-JUL-84"

17

:E
; z

'0-

n

~
~

I

E

, i.

3
g

~
>

Ii

i
!
~
~

);

'l

i]

a:

18
19
40
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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

•

•

•

•

"'"

~

•

•

•

•

~

•

•

•

•

•

•

""""'"

•

•

•

-

•

~

-

••

p

•

•

•

•

•

•

•

•

•

••

f_"""""""."",

•••••••

".,.,.

COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982,
1984
DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE
ONLY DN A SINGLE COMPUTER SYSTEM AND MAY BE COPIED
ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT
THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
NOTICE.
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO
ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND
TO ONE WHO AGREES TO THESE LICENSE TERMS.
TITLE TO
AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES
REMAIN IN DEC.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION:
DEC ASSUMES NO RESPONSIBILITY FOR THE USE
OR
RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS
NOT SUPPLIED BY DEC.
DESIGNED AND WRITTEN BY:
DONALD A. LEWINE
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS.
MR1-2/E47 X6430
MAINTAINED AND ENHANCED BY:
DONALD D. DOSSA
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS.
MRl-2/E18 DTN 231-4138
SEAN KEENAN
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS.
MRl-2/E18 DTN 231-4463

TIMLITT
PK01/C-2 223-6334

\

Page 5
13:1926-JULY-1984

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
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
108
109

·,10
111
112

113
114
115
116
117

118
119
120
121

122

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
REVISION HISTORY

.TOC

"REVISION HISTORY"

;REV

WHY
START KS10 MICROCODE BASED bN SM10 MICROCODE VERSION 510
UPDATE TO KS10 VERSION 512
FIX SOME OEFAULTS
CHANGE HARDWARE TO MATCH ECO #215
START TO UPDATE 10 MICROCODE
MORE WORK ON 10
MAKE INTERRUPT THE 8080 BE A PULSE.
ADD NEW RDIO AND WRIO
FIX PROBLEMS IN MUUO CODE & CORRECT T-FIELDS
FIX PROBLEMS IN DDIV
FIX UP PROBLEMS IN PI
TURN ON WRITE FOR FL-EXIT
FIX UP MAP INSTRUCTION
MORE WORK ON KI-STYLE MAP
INVERT HOLD RIGHT AND HOLD LEFT BITS
FIXUP WRIO & ROIO EFFECTIVE ADDRESS CALC.
FIX EDIT 15
HAVE LSH USE FAST SHIFT HARDWARE
FIX T-FIELD VALUES FOR PRODUCTION HARDWARE
REMOVE WRITE TEST FROM 10 READS & WRITES
REWRITE MUL & MULl TO BE FASTER AND SMALLER. ALSO MAKE ADJBP
USE NEW MULSUB
MAKE BYTES USE FAST SHIFT ECO.
MAKE SURE VMA FETCH IS CORRECT
MORE OF 25 (FORGOT FMP)
FIX SOME PROBLEMS WITH TRAPS
SPEED UP EFFECTIVE ADDRESS CALCULATION
.MORE OF 32
SPEED UP ASH & ROT
FIX UP RDTIM SO THAT TIME DOES NOT GO BACKWARDS
MORE OF 35
FIX UP PROBLEMS WITH INTERRUPTS AND DOUBLE F.P.
IMPROVE LISTING FORMAT
SPEEDUP KL-MODE PAGE REFILL
FIX UP DDIV
STILL MORE DDIV STUFF
CORRECT PROBLEMS IN D.P. PARITY STUFF
CORRECT THE BLT CLEAR-CORE CASE TO INTERRUPT CORRECTLY
MORE OF 45
DO NOT ALLOW SOFTWARE INTERRUPTS IF THE PI LEVEL IS NOT
ACTIVE.
MAKE FDV WORK THE SAME AS THE KL10
FIX INTERRUPT IN CVTBDX. MAKE ABORT WORK LIKE SPEC.
FIX BUG IN HALT LOOP
FIX IOEA TO WORK IF NO @ OR INDEXING
EDIT 47 BROKE JEN
FIX FLAGS IN MULTIPLY. ALSO CODE BUMS
MORE CODE BUMS
CORRECT OVERFLOW TRAPS WHICH DO MUUOS TO NOT STORE
THE TRAP FLAGS.

;1
;2
;3
;4
;5
;6
;7

; 10
; 11

; 12
; 13
; 14
; 15
; 16
; 17
;20
; 21
;22

;23
;24
;25
;26
;27
;30
; 31
; 32
;33

; 34
;35
;36
;37
;40
;41
;42
;43
;44

;45
;46
;47
;50
; 51
;52
;53
;54
;55

;56
;57

Page 6

~

T 1OK L:"'ItC~ [ 10; 114 1 ]
KS10.MIC[10,1141]
123
124
125
126
127
128
129
130
131
132
133
134
1'35
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
17A
175
176
177
178

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KSlO MICROCODE V124, 27-JUL-84
REVISION HISTORY

;60
; 61
;62
;63
,
;64
;65
;66
;67
,
;70
,
; 71
;72
,
;73
;74

CORRECT TRAPS SO THAT DSKEA RUNS RIGHT
MORE OF 60. NOTE: MICROCODE REQUIRES ECO #299!!
ONE MORE TRY AT EDIT 60.
.
CORRECT TOPS-10 STYLE PAGING SO THAT A WRITE VIOLATION SETS
BIT 2 IN THE PAGE FAIL WORD (ACCESS ALLOWED).
EDIT 63 BROKE HARD PAGE FAILS. (NXM, BAD DATA, AND 10 NXM)
INTERRUPTS OUT OF MOVSRJ INSTRUCTIONS DO STRANGE THINGS.
10 NXM PAGE FAIL FOR MISSING UBA GIVES PC+1 IN PAGE FAIL BLOCK.
ON A BAD DATA ERROR, STORE THE BAD WORD IN AC BLOCK 7 WORD 0 AND
1
FIX A BUG WHICH CAUSED INTERRUPTS OUT OF CVTBDT TO GENERATE A BAD
ANSWER.
CLEANUP SOME THINGS TO MAKE LIFE EASIER FOR FIELD SERVICE
LOOK FOR 1-MS TRAP ON @ PAGE POINTERS AND ABORT REFILL IF
SET.
CDRRECT EDIT 72.
EDIT 67 GENERATES A DATA PATH PARITY ERROR BECAUSE OF THE BAD
DATA. CORRECT TO NOT CHECK PARITY.
ALSO CHANGE POP TO TIE UP BUS LESS.
;75
EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:.
;76
CORRECT BUG IN DFAD AND DFSB
;77
FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED
,
BY EDIT 76
; 100
CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE
KL10 ANSWERS FOR ALL NORMALIZED INPUTS
,
ALSO FIX A BUG IN CVTBDX PAGE FAIL LOGIC.
; 101
DFDV OF 0.0 / -0.5 HANGS THE MACHINE
; 102
FIX CHOPPED FLOATING POINT INSTRUCTIONS
; 1'03
CORRECT DFOV ROUNDING BUG.
; 104
CORRECT PROBLEMS IN DFMP
; 105
RDTIME SOMETIMES GIVES WRONG ANSWER. CARRY BETWEEN
WORDS GETS LOST SOMETIME.
;106
MOVEM (ALSO, SETZM, SETOM, ETC.) SOMETIMES DOES NOT GENERATE
A WRITE-TRAP IN 100% OF THE CASES THAT IT SHOULO.
;107
PXCT 14, DOES NOT GET THE INDEX REGISTER IN THE PREVIOUS
,
CONTEXT ALL THE TIME.
;110
FIX TYPO IN EDIT 103
;111
63. BIT BYTES DO NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS
;
PROBLEM.
;******* VERSION 111 WENT OUT WITH SYSTEM REV 2 *******

.

; 112
; 113

;
;
;
;
,
;

114
115
116
117
120

; 121

FIX COMMENT IN TEST INSTRUCTIONS
CORRECT IOEA TO COMPUTE CORRECT ADDRESS IF JUST LOCAL INDEXING
IS USED.
CORRECT INTERRUPT BUG IN DMUL
CORRECT COMMENTS HALT STATUS BLOCK
CORRECT PROBLEM WHERE CST MOOIFIED BIT GETS SET BY MISTAKE.
RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANOOM TRASH
IN THE WRONG PLACE. NEED TO LOAD BR NOT AR.
FLOATING POINT OPERATIONS SOMETIMES GET THE WRONG RESULT WITH
INPUTS OF UNNORMALIZED ZEROS. THIS SHOULD NEVER HAPPEN WITH
FORTRAN OR ANY OTHER DEC LANGUAGE.
PREVENT KEEP-ALIVE CRASHES FROM OCCURRING BECAUSE THE MOVSRJ
INSTRUCTION CAN LOCK OUT THE 1MS TIMER INTERRUPTS FROM BEING
HANDLED. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE
PASSAGE OF TIME.

Page 7

T10KL.MCR[10,1141]
KS10.MIC[ 10,1141]
179
180
181
182
183
184
185
186
187

;122
,
; 123
; 124

15:34 27-JULY-1984
07:10 27-JUlY-1984

MICRO 31(254)

DFAD FOLLOWED BY A FSC OF -5 CAUSES THE FSC TO
ANSWER. HAD TO CLEAR FLAG WORD AT EXIT OF OF AD
MORE CODE FOR EDIT 121. ADDED ANOTHER DISPATCH
PAGE FAIL CODE AT PFD:.
ADD ASSEMBLY OPTIONS FOR NOCST. AND INHIBIT CST
ADD BLTUB/BlTBU TO GETUBA STYLE BYTES SWAPPED
ADD ASSEMBLY OPTIONS FOR KI/Kl PAGE.
NEED THE

KS10 MICROCODE V124, 27-JUL-84
REVISION HISTORY
GET WRONG
TO FIX PROBLEM
ADDRESS FOR
UPDATE.
TO/FROM IlDB FORM.
SPACE FOR BlTUB/BU.

Page 7-1

r-,
'''-

/

T10KL.MCR[10,l141]
KS10.MIC[10,l141]
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
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

.TOC

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KSiO MICROCOOE V124, 27-JUL-84
HOW TO READ THE MICROCODE

Page 8

"HOW TO READ THE MICROCODE"

1.0 FIELD DEFINITIONS
THESE OCCUR AT THE BEGINNING OF THE LISTING,
IN THE SOURCE
(CONTROL AND DISPATCH RAM DEFINITIONS). THEY HAVE THE FORM:

FILE

KS10.MIC

SYMBOL/=M,J
THE PARAMETER (J) IS MEANINGFUL WHEN "0" IS SPECIFIED AS THE DEFAULT MECHANISM,
AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL. WHEN "F" IS
SPECIFIED AS THE DEFAULT MECHANISM, (J) IS THE NAME OF A FIELD WHICH CONTAINS
THE DEFAULT VALUE FOR THIS FIELD.
THE PARAMETER (l) GIVES THE BIT POSITION OF THE LEFTMtiST BIT IN THE FIELD.
SAME METHOD IS USED AS FOR (R) BELOW.
THE PARAMETER (R) GIVES
RIGHTMOST BIT OF THE
THE POSITION OF BITS IN
THE ORDERING OF BITS IN
AND SCATTERED.

THE

THE FIELD POSITION IN DECIMAL AS THE BIT NUMBER OF THE
FIELD. BITS ARE NUMBEREO FROM 0 ON THE LEFT. NOTE THAT
THE MICROWORD SHOWN IN THE LISTING BEARS NO RELATION TO
THE HARDWARE MICROWORD, WHERE FIELDS ARE OFTEN BROKEN UP

THE PARAMETER (M) IS OPTIONAL, AND SELECTS A DEFAULT MECHANISM FOR THE FIELD.
THE LEGAL VALUES OF THIS PARAMETER'ARE THE CHARACTERS "0", "F", "T", "Ph, OR
11+11 •

"0" MEANS (J) IS THE DEFAULT VALUE OF THE FIELD IF NO EXPLICIT VALUE
SPECIFIED.

IS

"F" IS USED TO CAUSE THIS FIELD TO DEFAULT TO SOME OTHER FIELD.
"T" IS USED ON THE TIME FIELD TO SPECIFY THAT THE VALUE OF
DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS.
USED IN THE KS10.

THE FIELD
"T" IS NOT

"Ph IS USED ON THE PARITY FIELD TO SPECIFY THAT THE VALUE OF
SHOULD DEFAULT SUCH fHAT PARITY OF THE ENTIRE WORD IS ODD.
USED ON THE KS10.

THE FIELD
"Ph IS NOT

"+" IS USED ON THE JUMP ADDRESS FIELD TO SPECIFY THAT THE DEFAULT JUMP
ADDRESS IS -THE ADDRESS OF THE NEXT INSTRUCTION ASSEMBLED (NOT, IN
GENERAL, THE CURRENT LOCATION +1).
IN GENERAL, A FIELD CORRESPONDS TO THE SET OF BITS WHICH PROVIDE
FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU·S.

SELECT

INPUTS

T10KL.MCR[10,1141)
KS10.MIC[10,1141J

15:34 27-JULY-1984
07: 10 27-JULY-1984

239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
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

2.0 VALUE DEFINITIONS

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
HOW TO READ THE MICROCODE

Page 9

FOLLOWING A FIELD DEFINITION, SYMBOLS MAY BE CREATED IN THAT FIELD TO CORRESPOND
TO VALUES OF THE FIELD.
THE FORM IS:
SYMBOL=N
"N" IS,

IN OCTAL, THE VALUE OF SYMBOL WHEN USED IN THE FIELD.

3.0 LABEL DEFINITIONS
A MICRO INSTRUCTION MAY BE LABELLED BY A SYMBOL FOLLOWED BY COLON PRECEDING THE
MICROINSTRUCTION DEFINITION.
THE ADDRESS OF THE MICROINSTRUCTION BECOMES THE
VALUE OF THE SYMBOL IN THE FIELD NAMED nun.
EXAMPLE:
FOO:

J/FOO

THIS IS A MICROINSTRUCTION WHOSE "J" FIELD (JUMP ADDRESS) CONTAINS THE VALUE
"FOO".
IT ALSO DEFINES THE SYMBOL
"FOO" TO BE THE ADDRESS OF ITSELF.
THEREFORE, IF EXECUTED BY THE MICROPROCESSOR, IT WOULD LOOP ON ITSELF.

4.0 COMMENTS
A SEMICOLON ANYWHERE ON A LINE CAUSES THE REST OF THE LINE TO BE IGNORED BY
ASSEMBLER. THIS TEXT IS AN EXAMPLE OF COMMENTS.

THE

5.0 MICROINSTRUCTION DEFiNITION

A WORD OF MICROCODE IS DEFINED BY SPECIFYING A FIELD NAME, . FOLLOWED BY SLASH
(/),
FOLLOWED BY A VALUE.
THE VALUE MAY BE A SYMBOL DEFINED FOR THAT FIELD, AN
OCTAL DIGIT STRING, OR A DECIMAL DIGIT STRING (DI.STINGUISHED BY THE FACT THAT IT
CONTAINS "R" AND/OR "g" AND/OR IS TERMINATED BY A PERIOD).
SEVERAL FIELDS MAY
BE SPECIFIED IN ONE MICROINSTRUCTION BY SEPARATING FIELD/VALUE SPECIFICATIONS
WITH COMMAS.
EXAMPLE:
AD/ZERO, RAMADR/.AC*#, ACALU/ AC+N, ACN/ 1, DBUS/DP
6.0 CONTINUATION
THE DEFINITION OF A MICROINSTRUCTION MAY CONTINUED ONTO TWO OR MORE LINES BY
BREAKING IT AFTER ANY COMMA.
IN OTHER WORDS, IF THE LAST NON-BLANK, NON-COMMENT
CHARACTER ON A LINE IS A COMMA, THE INSTRUCTION SPECIFICATION IS CONTINUED ON

r"',
\

.i

T 10K L""cR [ 10, 1 1 4 1 ]
KS10.MIC[10,1141]

15:34 27-JULY-1984
07:10 27-JULY-1984

289
290
291
292
293
294
295
296
297
298
299
300
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

THE FOLLOWING LINE.
READ [AR],
SKIP DP18,
SC SHIFT-1,

MICRO 31(254)

KS,V MICROCODE V124, 27-JUL-84
HOW TO READ THE MICROCODE

Page 10

EXAMPLE:

LOAD FE,
INST DISP

;LOOK AT EFFECTIVE ADDRESS
;S[E IF RIGHT OR LEFT SHIFT
;PUT NUMBER OF PLACE TO
;SHIFT IN SC
; AND IN FE
;GO DO THE SHIFT

7.0 MACROS
A MACRO IS A SYMBOL WHOSE VALUE IS ONE OR MORE FIELD/VALUE SPECIFICATIONS AND/OR
MACROS.
A MACRO DEFINITION IS A LINE CONTAINING THE MACRO NAME FOLLOWED BY A
QUOTED STRING WHICH IS THE VALUE OF THE MACRO.
EXAMPLE:
LOAD VMA "MEM/1, LDVMA/1
THE APPEARANCE OF A MACRO IN A MICROINSTRUCTION DEFINITION IS EQUIVALENT TO
APPEARANCE OF ITS VALUE.
MACRO MAY HAVE PARAMETERS ENCLOSED IN [J.

THE

FOR EXAMPLE,

[] [] "AD/A,A/@2,DEST/AD,B/@1"
THE 01 GETS REPLACED BY WHAT IS WRITTEN IN THE
FIRST SET
REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF [],
THUS

OF

[]

AND

02

IS

[AR] [ARX]
HAS THE SAME EFFECT AS SAYING
AD/A,A/ARX,DEST/AD,B/AR
SEE DESCRIPTION OF RULES FOR MACRO NAMES,
8.0 PSEUDO OPS
THE MICRO ASSEMBLER HAS 13 PSEUDO-OPERATORS:
.DCODE AND .UCODE SELECT THE RAM INTO WHICH SUBSEQUENT MICROCODE WILL BE
LOADED,
AND THEREFORE THE FIELD DEFINITIONS AND MACROS WHICH ARE
MEANINGFUL IN SUBSEQUENT MICROCODE
.TITLE DEFINES A STRING OF TEXT TO APPEAR IN THE PAGE HEADER, AND
.TOC DEFINES AN ENTRY FDR THE TABLE OF CONTENTS AT THE BEGINNING.
,SET DEFINES THE VALUE OF A CONDITIONAL ASSEMBLY PARAMETER,
,CHANGE REDEFINES A CONDITIONAL ASSEMBLY PARAMETER,
,DEFAULT ASSIGNS A VALUE TO AN UNDEFINED PARAMETER.
,IF ENABLES ASSEMBLY IF THE VALUE OF THE PARAMETER IS NOT ZERO,
.IFNOT ENABLES ASSEMBLY IF THE PARAMETER VALUE IS ZERO. AND
.ENDIF RE-ENABLES ASSEMBLY IF SUPPRESSED BY THE PARAMETER NAMED.
.NOBIN TURNS OFF THE BINARY A GETS RID OF THE SPACE USED TO LIST IT,
.BIN TURN BINARY BACK ON'AGAIN.
.WIDTH CONTROLS THE NUMBER OF BITS IN THE CRAM

T10KL.MCR[10,l141]
KS10.MIC[10,l141]

15:34 27-JULY-1984
07:10 27-JULY-1984

345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
37'1
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392

~.O

MICRO 31( 254)

KS10 MICROCODE V124, 27-JUL-84
HOW TO READ THE MICROCODE

Page 11

LOCATION CONTROL

A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS AS'SIGNED TO THAT ADDRESS.
THE CHARACTER "." AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF O'S,
l'S,
AND/OR
*'S,
SPECIFIES
A
CONSTRAINT
ON
THE
ADDRESS
OF
FOLLOWING
MICROINSTRUCTIONS. THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING
THE ".") IS THE NUMBER OF LOW~ORDER BITS CONSTRAINED IN THE ADDRESS. THE
MICROASSEMBLER ATTEMPTS TO FIND AN UNUSED LOCATION WHOSE ADDRESS HAS 0 BITS IN
THE POSITIONS CORRESPONDING TO O'SIN THE CONSTRAINT STRING AND 1 BITS WHERE THE
CONSTRAINT HAS l'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS.
IF THERE ARE ANY O'S IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF
<2**N> MICROWORDS, WHERE N IS THE NUMBER OF O'S IN THE STRING.
ALL LOCATIONS IN
THE BLDCKWILL HAVE 1'S IN THE ADDRESS BITS CORRESPONDING TO 1'S IN THE STRING,
AND BIT POSITIONS DENOTED BY *'S WILL BE THE SAME IN ALL LOCATIONS OF THE BLOCK.
IN SUCH A CONSTRAINT BLOCK, THE DEFAULT ADDRESS PROGRESSION IS COUNTING IN THE
"0" POSITIONS OF THE CONSTRAINT STRING, BUT A NEW CONSTRAINT STRING OCCURING
WITHIN A BLOCK MAY FORCE SKIPPING OVER SOME LOCATIONS OF THE BLOCK.
WITHIN A
BLOCK, A NEW CONSTRAINT STRING DOES NOT CHANGE THE PATTERN OF DEFAULT ADDRESS
PROGRESSION, IT MERELY ADVANCES THE LOCATION COUNTER OVER THOSE LOCATIONS.
THE
MICROASSEMBLER WILL LATER FILL THEM IN.
A NULL CONSTRAINT STRING ("." FOLLOWED BY ANYTHING BUT "0", "1", OR "*")
TO TERMINATE A CONSTRAINT BLOCK. EXAMPLES:

SERVES

=0

THIS SPECIFIES THAT THE LOW-ORDER ADDRESS BIT MUST BE ZERO-- THE MICROASSEMBLER
FINDS AN EVEN-ODD PAIR OF LOCATIONS, AND PUTS THE NEXT TWO MICROINSTRUCTIONS
INTO THEM.
'·11
THIS SPECIFIES THAT THE TWO LOW-ORDER BITS OF THE ADDRESS MUST BOTH BE ONES.
SINCE THERE ARE NO C'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION
MEETING tHE CONSTRAINT.
·0*****
THIS SPECIFIES AN ADDRESS IN W~ICH THE "40" BIT IS ZERO.
DUE TO THE
IMPLEMENTATION OF THIS FEATURE IN THE ASSEMBLER, THE' DEFAULT ADDRESS PROGRESSION
APPLIES ONLY TO THE LOW-ORDER 5 BITS, SO THIS CONSTRAINT FINDS ONE WORD IN WHICH
THE "40" BIT IS ZERO, AND DOES NOT ATTEMPT TO FIND ONE IN WHICH THAT BIT IS A
ONE. THIS LIMITATION HAS BEEN CHANGED WITH NEWER ASSEMBLER VERSIONS.
HOWEVER
NONE OF THE LOCATIONS IN THE MICROCODE REQUIRE ANYTHING BUT THE CONSTRAINT
MENTIONED ~BOVE.
'

'~

'~,
.
,/I

a

~S10.MIC[10.1141]

15:34 27-JULY-1984
07:10 27-JULY-1984

.TOC

ASSE~BLY

T10KL.MCR[10.1141]

~

:::

z

l-

e

~'

l!!

~

~

;t

!

!
·1

,
;
;

!

;
;

~

,
;
;

£

.il
E

I
~

<

•

I

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
;420
; 421
422
423
424
;425
;426
427
428
429
430
431
432
433
434
435
436
437
438

"CONDITIONAL

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84 Page 12
CONDITIDNAL ASSEMBLY DEFINITIONS

DEFINITIONS·

.DEFAULT/SIM=O

;O=RUN ON REAL HARDWARE
; 1=RUN UNDER SIMULATOR

.DEFAULT/FULL=1

;O=INCLUDE ONLY BASIC ~NSTRUCTIONS
;1=INCLUDE FULL INSTRUCTION SET

.DEFAULT/INHCST=O

;O=NO CODE TO INHIBIT CST UPDATE IF CSB=O
;1=DON'T UPDATE CST IF CSB=O

.DEFAULT/NOCST=O

;O=INCLUDE SUPPORT FOR WRITING THE CST
;1=COMPLETELY DESUPPORT CST (FOR TOPS-10)

.DEFAULT/UBABLT=O

;O=NO UBABLT SUPPORT
;1=SUPPORT UBA STYLE BLT INSTRUCTIONS.

.DEFAULT/KIPAGE=1

;O=DON'T SUPPORT KI PAGING
; 1=DO

.DEFAULT/KLPAGE=1

;O=DON'T SUPPORT KL PAGING
; 1=DO

.IF/UBABLT
;THESE INSTRUCTIONS
.IF/KLPAGE
.CHANGE/KIPAGE=O
.ENDIF/KLPAGE
.IF/KIPAGE
;ALLOW ONLY ONE PAGING MODE
.CHANGE/KLPAGE=O
.ENDIF/KIPAGE
.ENDIF/UBABLT;OTHERWISE, MAY HAVE EITHER OR BOTH
.IF/NOCST
.CHANGE/INHCST=O
.ENDIF/NOCST
.DEFAULT/NONSTD~O

;O=STANDARD MICROCODE
;1=NON-STANDARD MICROCODE

.WIDTH/10B

;ONLY FIELDS BETWEEN BITS o AND 107 EVER
; GET LOADED INTO THE CRAM. OTHER FIELDS
; ARE USED FbR DEFAULTING PROCESS.

.REGION/O,1377/2000,3777/1400, 1777
;TRY AND KEEP STUFF OUT OF'DROM SPACE

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
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
474

.TOC
;

;0:
,
; 1:
;

;2 :
; 3:

,

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
2901 REGISTER USAGE

"2901 REGISTER USAGE"
!=====~===================================================================!

!
MAG (DNES IN BITS 1-36, REST ZERO)
!
!-------------------------------------------------------------------------!
!
PC (ADDRESS OF CURRENT INSTRUCTION + 1)
!-------------------------------------------------------------------------1
HR (CURRENT INSTRUCTION)
!-------------------------------------------------------------------------1
AR (TEMP -- MEM OP AT INST START)

!------------~--------------~------------~--------------------------------!

;4:
;

15:34 27-JULY-1984
07:10 27-JUlY-1984

ARX (TEMP -- LOW ORDER HALF OF DOUBLE PREC)
!---------------------------~---------------------------------------------!

;5:

!

;

!-----------~--------~----------------------------------------------------!

BR (TEMP)

!

BRX (TEMP -- LOW ORDER HALF OF DOUBLE PREC BR!BRX)

;6:
;

!-----------------------------~-------------------------------------------!

; 7:

!

;

!------------~----------~-------------------------------------------------!

; 10:
; 11 :
;

; 12:
;

; 13:
;

!

ONE (THE CONSTANT 1)
EBR (EXEC BASE REGISTER)

!-------------------------------------------------------------------------1
!
UBR (USER BASE REGISTER)
!
!-------------------------------------------------------------------------!
!
MASK (ONES IN BITS 0-35, ZERO IN -1, -2, 36 AND 37)
!-------------------------------------------------------------------------!
!

FLG (FLAG BITS)

PAGE FAIL CODE

!

I--------------------------------------------~----------------------------!

; 15:

!
PI (PI SYSTEM STATUS REGISTER [RDPI])
!
!-------------------------------------------------------------------------!
XWD 1 (1 IN EACH HALF WORD)
!

; 16:

!

; 14:

;

; 17:

!-------------------------------------------------------------------------!
TO (TEMP)

!

!--------------~-----------~-------------~---~----------------------------!

T1 (TEMP)

,

!=============================~===========================================!

Page 13

n

T10KL:"'¢'R[ 10,1141 1
KS10.MIC[10,11411

15:34 27-JULY-1984
07:10 27-JULY-1984

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
50/3
509
510
511
512
513
514
515
516
517
518
519
520
521
522

"MICROCODE FIELDS -- LISTING FORMAT"

.TOC

MICRO 31(254)

KS,J MICROCODE V124, 27-JUL-84 Page 14
MICROCODE FIELDS -- LISTING FORMAT

3633
3634
3635
3636

U 1561, 1500,2551,0303,0274,4463,7701,4200,0001,0001
[--J

[--J
!
.!

I!!! [J[J
!!!!
I!!!
!!! !
!!! !
!!! !
!!! !
!!! !
!!! !
!!!!
!!! !

!!![-J[J[-J[]! I!!
[----]
!!!!
!!!
I!!!
I!!
+---!!! !
!! !
!!! !
! 1+------------!!! !
1!
!!! !
1+-------------!!! 1
!!! !
+----------- .. --!!!!
!!! !

!!!!
! ! ! !
!!!!
!!! !
! ! !!

I!!!
! ! ! !
!!!!

!!!!
! ! !!
!!!!
!!!!

!

+-----------------

EXIT

# (MAGIC NUMBER)

MULTI PREC, MULTI SHIFT, CALL (4S, 2S, 1S)
FM WRITE, MEM, DIVIDE (4S, 2S, 1S)
CRY38, LOAD SC, LOAD FE (4S, 2S, 1S)

T

+-------~-----------

SKIP

!!!!
+---------------------! ! !!
I I !!
! !! !
!!!+--------------------------!!!
. I !+---------------------------!!

DISP

+------------------------

+--------------------------------+-----------------------------------

!+----~----------------------------------

SPEC
CLOCKS & PARITY (CLKR, GENR, CHKR, CLKL, GENL, CHKL)
DBM
DBUS
RAM ADDRESS

B

A
DEST
RSRC
LSRC

!
+---------~------------------------------

+---------------------------------------------

LOCATION OF THIS MICRO WORD

[AR] AC-[ARj,
AD FLAGS, 3T,

!

!! ! !
1! ! !
!!!!
I+---~------------------------!! ! !
!
!!!!
+-----------------------------!!! !
!!!!
!! !! !
! ! !!
!!! !
!! !+------------------------------------!! !
! !+------------------------~------------!!

!

1561:
SUB:

-

ALU
J

AD

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
.TOC

523
524
525
526
527
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

15:34 27-JULY-1984
07:10 27-JULV-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 15
MICROCODE FIELDS -- DATA PATH CHIP

"MICROCOOE FIELDS -- DATAPATH CHIP"

J/=+

;CRA1
;NEXT MICROCODE ADDRESS

; ALU FUNCTIONS
;NOTE: THE AD FIELD IS A 2 DIGIT FIELD, THE LEFT DIGIT IS THE
; 2901 ALU FUNCTION. THE RIGHT DIGIT IS THE 2901 SRC CODE FOR
; THE LEFT HALF. NORMALV THE RIGHT HALF SRCCODE IS THE SAME AS
; THE LEFT HALF.
AD/=<12:17>D,44
;DPE1 & DPE2
A+O=OO
A+B=01
0+0=02
0+B=03
0+A=04
0+A=05
0+0=06
0+0=07
0-A-.25=10
B-A-.25=11
0-.25=12
B-.25=13
A-.25=14
A-0-.25=15
0-D-.25=16
-0-.25= 17
A-0-.25=20
A-B-.25=21
-0-.25=22
-B-.25=23
-A-.25=24
0-A-.25=25
0-0-.25=26
0-.25=27
A.OR.0=30
A.OR.B=31
0=32
B=33
A=34
0.OR.A=35
D.OR.0=36
D=37
A.AND.0=40
A.AND.B=41

\

,.
"

~

T10KL~~~~[10,1141]

KS10.MIC[ 10,1141]
570
571
572
573
574
575
576
577
578
579
580
581
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

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

;MORE ALU FUNCTIONS
ZERO=42
ZERO=43
ZERO=44
D.AND.A=45
D.AND.Q=46
ZERO=47
.NOT.A.AND.Q=50
.NOT.A.AND.B=51
Q=52
B=53
A=54
.NOT.D.AND.A=55
.NOT.D.AND.Q=56
ZERO=57
A.XOR.Q=60
A.XOR.B=61
Q=62
B=63
A=64
O.XOR.A=65
D.XOR.Q=66
0=67
A.EQV.Q=70
A.EQV.B=71
.NOT.Q=72
.NOT.B=73
.NOT.A=74
D.EQV.A=75
D.EQV.Q=76
.NOT.D=77
;THIS FIELD IS THE RIGHTMOST 3 BITS OF THE
; AD FIELD. IT IS USEO ONLY TO DEFAULT THE RSRC
; FIELD.
LSRC/=<15:17>
;DPE1
;THIS IS THE SOURCE FOR THE RIGHT HALF OF THE
; DATA PATH. IT LETS US MAKE THE RIGHT AND LEFT
; HALF WORDS DO SLIGHTLY DIFFERENT THINGS.
RSRC/=<18:20>F,LSRC
;DPE2
AQ=Q
;A Q
AB=1
;A B
OQ=2
;0 Q
08=3
;0 B
OA=4
;0 A
DA=5
;0 A
DQ=6
;0 Q
00=7
;D 0

KS1V MICROCODE V124, 27-JUL-84 Page 16
MICROCODE FIELDS -- DATA PATH CHIP

T10KL.MCR[10.1141]
KS10.MIC[10,1141]
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 17
MICROCODE FIELDS -- DATA PATH CHIP

;OESTINATION CONTROL
;SEE OPEl AND OPE2 (2'S WEIGHT IS INVERTED ON DPE5)
DEST/=<21:23>D,3
;DPE1 & DPE2
A=O'
; A REG IS CHIP OUTPUT, AD IS WRITTEN
; INTO REG FILE
;REG FILE GETS AD
AO=1
;REG FILE IS NOT LOADED
Q AD=2
;AD OUTPUT IS CHIP OUTPUT
PASS=3
; 0 AND REG FILE LEFT ALONE
;ALSO REG FILE GETS AD*2
Q Q*2=4
;AND Q IS LEFT ALONE
Ai:h2=5
;ALSO REG FILE GETS AD*.5
o 0*.5=6
;AND Q IS LEFT ALONE
AD*.5=7
<24:25>
A/=<26:29>
MAG=O
PC=1
HR=2
AR=3
ARX=4
BR=5
BRX=6
ONE=7
EBR=10
UBR=11
MASK=12
FLG=13
PI=14
XWD1=15
TO=16
T1=17
<30:31>
B/=<32:35>D,0
MAG=O
PC=1
HR=2
AR=3
ARX=4
BR=5
BRX=6
ONE=7
EBR= 10
UBR=11
MASK=12
FLG=13
PI=14
XWD1=15
TO=16
T1=17

;UNUSED
;DPE1 & DPE2
/

;UNUSED
;DPE1 & DPE2

~

T lOKL :MCR [ 10, 1141 ]
KS10.MIC[10,1141]

15:34 27-JULY-1984
07:10 27-JULY-1984

675
676

.TOC

677

RAMADR/=<36:38>D,4
AC#=O
AC*#=l
XR#=2
VMA=4
RAM=6
#=7

678
679
680
681
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

MICRO 31(254)

"MICROCODE FIELDS -- RAM FILE ADORESS AND O-BUS"
;DPE6
;AC NUMBER
;AC .FN. #
;INDEX REGISTER
;VIRTUAL MEMORY REFERENCE
;VMA SUPPLIES 10~BIT RAM ADDRESS
;ABSOLUTE RAM FILE REFERENCE

<39:39>
;LEFT HALF ON OPE3 AND RIGHT HALF ON DPE4
DBUS/=<40:41>D,1
;DPE3 & DPE4
PC FLAGS=O
;PC FLAGS IN LEFT HALF
PI NEW=O
;NEW PI LEVEL IN BITS 19-21
VMA=O
;VMA IN BITS 27-35
DP=1
;DATA PATH
RAM=2
;CACHE, AC'S AND WORKSPACE
DBM=3
;DBM MIXER
;LEFT HALF ON DPM1 AND RIGHT HALF ON DPM2
DBM/=<42:44>D,7
;DPMl & DPM2
SCAD DIAG=O
;(LH) SCAD DIAGNOSTIC
;PAGE FAIL DISP IN BITS 18-21
PF DISP=O
APR FLAGS=O
;APR FLAGS IN BITS 22-35
BYTES= 1
;5 COPIES OF SCAD 1-7
EXP=2
;LH=EXPONENT, RH=TIME FRACTION
DP=3
;DATA PATH
DP SWAP=4
;DATA PATH SWAPPED
VMA=5
; VMA FLAGS .. VMA
MEM=6
;MEMORY BUFFER
#=7
;NUMBER FIELD IN BOTH HALVES

KS10 MICROCOOE V124, 27-JUL-84 Page 18
MICROCOOE FIELDS -- RAM FILE ADORESS AND D-BUS

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723

724
725
726
72'7
728
729
730
7.31

I
;;

.TDC

15!34 27-0ULY-1984
07:10 27-0ULY-1984

MICRO 31(254)

"MICROCODE FIELDS -- PARITY GENERATION

AD PARITY OK/=<108>D,O

KS10 MICROCODE V124, 27-0UL-84 Page 19
MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL

& HALF WORD CONTROL"

;**NOT STORED IN CRAM**
;THIS BIT IS A 1 IF THE ALU IS DOING
,
SOMETHING WHICH DOES NDT INVALIDATE
PARITY. IT DOES NOT APPEAR IN THE
REAL MACHINE" WE0UST USE IT TO SET
THE DEFAULT FOR GENR & GENL

CLKL/=<45i45>D,1

;DPE5
;CLOCK THE LEFT HALF OF THE MACHINE
GENL/=<46:46>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN LEFT H
;STORE PARITY. FOR 2901 LEFT
CHKL/=<47:47>
;DPE4 FROM CRM2 PARITY CHK LEFT H
;CHECK LEFT HALF DBUS PARITY
CLKR/=<48:48>D, 1

;DPE5

~ClOCK THE RIGHT HALF OF THE MACHINE
GENR/=<49:49>F,AD PARITY OK ;DPE4 FRDM CRM2 PARITY EN RIGHT H
STORE PARITY FOR 2901 RIGHT
CHKR/=<50:50>
DPE4 FROM CRM2 PARITY CHK RIGHT H
CHECK RIGHT HALF DBUS PARITY

~
'.,

./

T10KL.MCR[ 10,1141 J
KS10.MIC[ 10,1141]
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
?62
763
764
765
766
767
768
769
770
771
772
773

774
775

776
777
778
779
780
781
782
783

784

.TOC

MICRO 31(254)

15:34 27-JULY-1984
07:10 27-JULY-1984

KS10 MICROCODE V124, 27-JUL-84
MICROCODE FIELDS -- SPEC

"MICROCODE FIELDS -- SPEC"

;THE FOLLOWING SPECIAL FUNCTION ARE DECODED ON OPE1, DPE5. AND DPMA:

!;;;;;;;:;;;;=============================================================!
! S!
!P!
!E!
! C!

EFFECT
ON SHIFT
PATHS
(SEE OPE 1)

!

CRA6 SPEC
EN 40
E102 ON DPE5

!

!

CRA6 SPEC
EN 20
E101 ON DPE5
E411 ON DPMA

!

!

CRA6 SPEC
EN 10
E410 ON DPMA
E 113 ON CRA2

!

!=====~===================================================================!

YO!

NORMAL

CRY 18 INH

PREVIOUS!

#

!----------------~-------------------------------------------~------------!

!1!
ZERO
IR LOAD
XR LOAD
!
CLR 1 MSEC
!-------------------------------------------------------------------------!
!2!
ONES
!

CLR 10 LATCH
!-------------------------------------------------------------------------!
!3!
ROT
PI LOAD
APR FLAGS
CLR 10 BUSY

!-------------------------------------------------------------------------!
!4!

ASHC

!5!

LSHC

!

ASH TEST

!

SET SWEEP

!

PAGE WRITE

!

!-----------------------------------------------------------------------~-!

EXP TEST

APR EN

NICOND!

!----------------~--------------------------------------------------------!

!6!

DIV

!

PC FLAGS

!

PXCT OFF

!

PXCT EN

!

!------------------------------~------------------------------------------!

!7!

ROTC

AC BLOCKS E N !

MEM CLR

MEM WAIT

!========================================;;;=;;==;;=;=;===================!
THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE
DBM MIXER. AS FOLLOWS:
!==========================~==========!

S

!

ACTION WHEN DBM
SELECTS DP
GET DP BITS
GET SCAD 1-7

P
E
C

!==================================;;=!
O!

ALL

!

NONE

!0-6 AND 14-35 !

7-13

!-------------------------------------!
!
!
7-35
!
0-6
!-------------------------------------!
2

!------------------------~------------!

!

3

!0-13 AND 21-35!

14-20

!

!-------------------------------------!
! 4
!0-20 AND 28-35!
21-27
!
!-------------------------------------!
! 5
! 0-27 AND 3 5 !
28-34
!
!-------------------------------------!

! 6
SAME AS ZERO
!
!-------------------------------------!
! 7
SAME AS ZERO

!=====================================!

Page 20

,
I

Tl0KL.MCR[10,1141]
KS10.MIC[10,1141]
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
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834

15:34 27-JULY-i984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MICROCODE FIELDS -- SPEC

;THE SPEC FIELD IS DEFINED AS A 6-BIT FIELD. THE TOP 3 BITS
; ARE SPEC SEL A, SPEC SEL B, AND SPEC SEL C. THE LOW 3 BITS ARE
; THE SELECT CODE.
;DPEl & DPE5 & DPM1 & DPMA
; DECODE # BITS
~CLEAR lMS NICOND FLAG
CLRCLK=11
CLR IO LATCH= 12 ; CLEAR IO LATCH
;CLEAR 10 BUSY
CLR 10 BUSY=13
;WRITE PAGE TABLE
LDPAGE=14
;DOING NICOND OISPATCH
NICOND=15
;LOAD PXCT FLAGS
LDPXCT=16
; MEM WAIT
WAIT=17
;FORCE PREVIOUS CONTEXT
PREV=20
;LOAD XR #, USES PXCT FIELD TO SELECT
LOADXR=21
; CORRECT AC BLOCK
;LOAD APR FLAGS
APR FLAGS=23
;CLEAR CACHE
CLRCSH=24
;SET APR ENABLES
APR EN=25
;CLEAR PAGE FAULT CONDITION
MEMCLR=27
;SET SWEEP
SWEEP=34
;TURN OFF THE EFFECT OF PXCT
PXCT OFF=36
;INHIBIT CARRY INTO LEFT HALF
INHCRY18=40
;LOAD THE IR
LOADIR=41
;LOAD PI SYSTEM
LDPI=43
;TEST RESULT OF ASH
ASHOV=44
;TEST RESULT OF FLOATING POINT
EXPTST=45
;CHANGE PC FLAGS
FLAGS=46
;LOAD AC BLOCK NUMBERS
LDACBLK=47
;LOAD INSTRUCTION
LDINST=6.1

SPEC/=<51:56>D,0
#=10

;THE SPEC'FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF
BYTE/=<54:56>
;DPM1 (SPEC SEL)
BYTE1=1
BYTE2=2
BYTE3=3
BYTE4=4
BYTE5=5
;THE SPEC FIELD IS REDEF NED WHEN USED TO CONTROL SHIFT PATHS
DPE1 (SPEC SEL)
SHSTYLE/=<54:56>
2 40-BIT REGISTERS
NORM=O
SHIFT ZERO INTO 36 BITS (ASH TOP 2901)
ZERO=1
SHIFT IN ONES
ONES=2
ROTATE
ROT=3
ASHC
ASHC=4
LSHC
LSHC=5
SPECIAL DIVIDE
DIV=6
ROTC=7
ROTATE DOUBLE

Page 21

~/
\

.J

\",

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
8S3
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877

878

.TOC

15:34 27-JULY-1984
07:10 27-JULY-1984'

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
MICROCODE FIELDS -- DISPATCH

"MICROCODE FIELDS -- DISPATCH"
!=======================================================!
! 0 !
CRA1
CRA1
DPEA
! I !
DISP
DISP
DISP
! S !
10
20
40
! P !

!=======================================================!
!! _____________________________________________________
O!
DIAG ADR
DIAG ADR:
0
- - I!
! '1!

RETURN

RETURN

! 2!

MULTIPLY

DP 18-21

!-------------------------------------------------------I
J

J!

!-----------------------~-------------------------------I

! 3!

PAGE FAIL

AREAD!

AREAD

!-------------------------------------------------------I
! 4 !

NICOND

! 6!

EA MODE

!

NOT USABLE

NORM

!-------------------------------------------------------I
! 5 !
BYTE
NOT USABLE
DP 32-35
!-------------------------------------------------------I
NOT USABLE!

DROM A

!

!--------------------------------~----------------------I

;NOTE:

! 7 !
SCAD
NOT USABLE
DROM B
!=======================================================!
DISP EN 40 & oISP EN 10 ONLY CONTROL THE LOW 4 BITS OF THE
JUMP ADDRESS. DISP EN 20 ONLY CONTROLS THE HI 7 BITS. TO DO
SOMETHING TO ALL 11 BITS BOT.H 20 & 40 OR 20 & 10 MUST BE ENABLED.

DISP/=<57:62>D,70
CONSOLE=OO
DROM=12
AREAD=13
OP LEFT=31
NDRM=34
DP=35
ADISP=36
BDISP=37
RETURN=41
MUL=62
PAGE FAIL=63
NICOND=64
BYTE=65
EAMODE=66
SCADO=67

;CRA1 & DPEA
;CONSOLE DISPATCH
;DROM
;AREAD
; DP 18 -21
;NORMALIZE
;DP 32-35
;DROM A FIELD
;DROM B FIELD
; RETURN
;MULTIPLY
;PAGE FAIL
;NEXT INSTRUCTION DISPATCH
;BYTE SIZE AND POSITION
;EFFECTIVE ADDRESS MODE
;J!2 IF SCAD BIT 0 = 1

Page 22

15:34 27-JULY-1984
07: 10 27-JULY-1984

Tl0KL.MCR[10,1141]
KS 10. MI C [ 10, 1141 ]

:::

~
:li

~
0

~

~

"£

•

~

1
w
~

;;

~

~

1
~

~

-I
Ii:

879
880
881
882
883
884
885
886
887
888
889
890
89·1
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929

.TOC

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MICROCODE FIELDS -- SKIP

"MICROCODE FIELDS -- SKIP"
!=======================================================1
! S !
CRA2
DPEA
DPEA
! K !
SKIP
SKIP
SKIP
! I !
10
20
40
! P !
. !
!==============================~========================!

! 0

0

!

1

0

0

1-------------------------------------------------------I
! 1!
TRAP CYCLE
1
CRY 02
CARRY OUT
!
!-------------------~--------------- -------------------1
! 2 !

AD=O

!

ADL SIGN

ADL=O!

!--------------~----------------------------------------I

! 3!

. SC S I G N !

ADR SIGN

!

ADR=O

!

USER. lOT

!

-USER

!

1-------------------------------------------------------I
!

4!

EXECUTE

!

!----------------~--------------------------------------I

! 5!

-BUS 10 BUSY

!

JFCL SKIP

!

FPD FLAG

!------------------------~------------------------------I

! 6!

-CONTINUE

! 7!

-1 MSEC

!

fRY 01

!

AC # IS ZERO

!

!-------------------------------------------------------I
TXXX

INTERRUPT REQ

!==========================================~============!

SKIP/=<63:68>D,70
IDLGL=04
LLE=12
CRYO=31
ADLEQO=32
ADREQO=33
KERNEl=34
FPD=35
ACO=36
INT=37
LE=42
CRY2=51
DPO=52
DP18=53
IOT=54
JFCL=55
CRY1=56
TXXX=57
TRAP CYCLE=61
ADEQO=62
SC=63
EXECUTE=64
-10 BUSY=65
-CONTINUE=66
-1 MS=67

;CRA2 & DPEA
; (.NOT.USER)! (USER IOT)! (CONSOLE EXECUTE MOD'E)
;AD LEFT .LE. 0
;AD CRY -2
;ADDER LEFT = 0
;ADDER RIGHT = 0
; .NOT. USER
;FIRST PART DONE
;AC NUMBER IS ZERO
; INTERRUPT REQUEST
; (AD SIGN)! (AD. EQ ..O)
;AD CRY 02
; AD SIGN
;AD BIT 18
;USER lOT
;JFCL SKIP
;AD CRY 1
;TEST INSTRUCTION SHOULD SKIP
;THIS INSTRUCTION IS THE RESULT OF A
; TRAP 1, 2, OR 3
;AD.EQ.O
:SC SIGN BIT
;CONSOLE EXECUTE MODE
; .NOT. I/O LATCH
; . NOT. CONTINUE
;.NOT. 1 MS. TIMER

Page 23

~
""
f

'

T 10K L . fIIC~R [ 10, 1 14 1 ]
KS10.MIC[10,1141]

/

930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949

.TOC

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 24
MICROCODE FiELDS -- TIME CONTROL

"MICROCODE FIELDS -- TIME CONTROL"

DT/=<109:111>D,O

;**NOT STORED IN CRAM**
;DEFAULT TIME FIELD (USED IN MACROS)
; CAN BE OVERRIDDEN IN MACRO CALL

2T=O
3T=1
4T=2
5T=3
T/=<69:71>F,DT
2T=0
3T=1
4T=2
5T=3

; CSL5 (E601)
;CLOCK TICKS MINUS TWO REQUIRED TO .
; DO A MICRO INSTRUCTION
; TWO TICKS
;THREE TICKS
.; FOUR TICKS
; FIVE TICKS

T10KL.MCR[10,1141]
KS10.MIC[ 10,11.41]
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971

.TOC

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS1Q MICROCOOE V124, 27-JUL-84 Page 25
MICROCODE FIELDS -- RANDOM CONTROL BITS

"MICROCODE FIELDS -- RANDOM CONTROL BITS"

CRY38/=<72>
LOADSC/=<73>
LOADFE/=<74>
FMWRITE/=<75>
MEM/=<76>
DIVIDE/=<77>
MULTI PREC/=<78>
MULTI SHIFT/=<79>
CALL/=<80>

DPE5
INJECT A CARRY INTO THE 2901 ADDER
DPM4
LOAD THE STEP COUNTER FROM THE SCAD
DPM4
LOAD THE FE REGISTER FROM THE SCAD
DPE5 (E302)
WRITE THE RAM FILE."
DPM5 (E612) & DPE5 (E205)
START (OR COMPLETE) A MEMORY OR I/O' CYCLE UNDER
CONTROL OF THE NUMBER FIELD.
DPE5
TH~SMICROINSTRUCTION IS DOING A DIVIDE
DPE5
MULTIPRECISION STEP IN DIVIDE, DFAD, DFSB
CSL5 (HAS NOTHING TO DO WITH DPE5 MULTI SHIFT)
FAST SHIFT
CRA2 (STACK IS ON CRA3)
THIS IS A CALL

~

/
Tl0KL.MtR[10,l141]
KS10.MIC[ 10,1141]
\

972
973
974
975
976
977

978
979
980
981
982
983
984
985
986
987
988
989
990
99.1
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017

.TOC

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

"MICROCODE FIELDS -- NUMBER FIELD"

;HERE IS THE GENERAL FIELD
#/=<90:107>
;MANY PLACES
;# REDEFINED WHEN USED AS SCAD CONTROL:
SCAD/=<90:92>
;DPM3
A*2=0
A.DR.B=l
A-B-l=2
A-B=3
A+B=4
A.AND.B=5
A-l=6
A=7
SCADA/ =<93: 95>
; DPM3
SC=O
S#=1
PTR44=2 ;44 AND BIT 6 (SEE DPM3)
BYTE 1 =3
BYTE2=4
BYTE3=5
BYTE4=6
BYTE5=7
SCADB/=<96:97>
;DPM3
FE=O
EXP=1
SHIFT=2
SIZE=3
S#/=<98:107>
;DPM3
;# REDEFINED WHEN USED AS STATE REGISTER CONTROL:
STATE/=<90: 107>
;NOT USED BY HARDWARE
SIMPLE=O
;SIMPLE INSTRUCTIONS
BLT=1
;BLT IN PROGRESS
MAP=400002
;MAP IN PROGRESS
SRC=3
;MOVE STRING SOURCE IN PROGRESS
;MOVE STRING FILL IN PROGRESS
DST=4
SRC+DST=5
;MOVE STRING DEST IN PROGRESS
; F I LUNG OEST
DSTF=6
CVTDB=7
;CONVERT DEC TO BIN
COMP-DST=10
;COMPARE DEST
EDIT-SRC=11
; EDIT SOURCE
EDIT-DST=12
; EDIT DEST
EDIT-S+D=13
;BOTH SRC AND DST POINTERS

KS10 MICROCODE V124, 27-JUL-84 Page 26
MICROCODE FIELDS -- NUMBER FIELD

Tl0KL.MCR[10,1141)
KS10.MIC[10,1141)
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
(

/

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84 Page 27
MICROCODE FIELDS -- NUMBER FIELD

;# REDEFINED WHEN USED AS WORSPACE ADDRESS

DPE6
WORK/=<98: 107>
AC BLK 7 WORD 0 (BAD DATA FROM MEMORY)
BADWO=160
AC BLK 7 WORD 1 (BAD DATA FROM MEMORY)
BADW1=161
TEMP FOR MULTIPLY
MUL=200
TEMP FOR DIVIDE
DIV=201
SAVE VMA
SV.VMA=210
SAVE AR
SV.AR=211
SAVE ARX
SV.ARX=212
SAVE BR
SV.BR=213
SAVE BRX
SV.BRX=214
SPT BASE REGISTER
SBR=215
CST BASE ADDRESS
CBR=216
CST MASK
CSTM=217
PROCESS USE REGISTER
PUR=220
"P" FOR ADJBP
ADJP=221
"S" FOR ADJBP
ADJS=222
BYTE POINTER FOR ADJBP
ADJPTR=223
TEMP FOR ADJBP
ADJQ1=224
TEMP FOR ADJBP
ADJR2=225
(BYTES/WORD) FOR ADJBP
ADJBPW=226
ADDRESS OF HALT STATUS BLOCK
HSBADR=227
APR ENABLES
APR=230
;THE FOLLOWING WORDS ARE USED BY EXTEND INSTRUCTION
ORIGINAL EFFECTIVE ADDRESS
EO=240
EFFECTIVE ADDRESS OF WORD AT EO
E1=241
SOURCE LENGTH
SLEN=242
BYTE MASK
MSK=243
FILL BYTE
FILL=244
SRC BYTE IN STRING COMPARE
CMS=245
PLACE TO SAVE ARX WHILE STORiNG
FSIG=246
THE FLOAT CHAR
BINARY BEING CONVERTED TO
BDH=247
DECIMAL
BDL=250
; TIMER STUFF
TIMEO=300
TIME 1 =301
PERIOD=302
TTG=303

HIGH ORDER 36 BITS OF TIME
LOW ORDER 36 BITS OF TIME
INTERRUPT PERIOD
TIME TO GO TO NEXT INTERRUPT

\

~

T10KL.MCR[ 10.1141]
KS10.MIC[10,1141]
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
.1076
1077

15:34 27-JULY-1984
07: 10 27-JULY-1984

;DDIV STUFF
ACO=314
AC1=315
AC2=316
AC3=317
DDIV SGN=320
DVSOR H=321
DVSOR L=322
;POWERS OF TEN
DECLO=344
DECHI=373
YSAVE=422
PTA.E=423
PTA.U=424
TRAPPC=425
SV.AR1=426

MICRO 31(254)

KSro MICROCODE V124, 27-JUL-84 Page 28
MICROCODE FIELDS -- NUMBER FIELD

;LOW WORD
;HIGH WORD
Y OF LAST IMDIRECT POINTER
ADDRESS OF EXEC PAGE MAP (NOT PROCESS TABLE)
ADDRESS OF USER PAGE MAP
SAVED PC FROM TRAP CYCLE
ANOTHER PLACE TO SAVE AR

Tl0KL.MCR[10,1141]
KS10.MIC[10,1141]
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1-097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116

-15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 29
MICROCODE FIELDS -- NUMBER FIELD

;# REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9)

SETOV/=<90>
SETFOV/=<91>
SETNDV/=<92>

;DPE9
;SET ARITHMETIC OVERFLOW
;SET FLOATING OVERFLOW
; SET NO DIVIDE

,------------------------,---------------------------------------------CLRFPD/=<93>
SETFPO/=<94>
HOLD USER/=<95>

;CLEAR FIRST PART DONE
;SET FIRST PARi DONE
:WHEN THIS BIT IS SET IT:
; 1. PREVENTS SETTING USER lOT IN USER MODE
; 2. PREVENTS CLEARING USER IN USER MODE

,---------------------------------------------------------------------;
<96>
TRAP2/=<97>
TRAP1/=<98>

;SPARE
; SET TRAP 2
;SET TRAP 1

LD PCU/=<99>
<100>
<101>

;LOAD PCU FROM USER
;SPARE
;SPARE

"--------------------------------------------------------------------,
<102>
;
<103>
JFCLFLG/=<104>

;SPARE
;SPARE
;DO A JFCL INSTRUCTION

;-----------------------'----------------------------- ----r-----------LD' FLAGS/=<105>
;
<106>
ADFLGS/=<107>

;LOAD FLAGS FROM DP
;UPDATE CARRY FLAGS

('j
T10KL.MCR[10,1141]
KS10.MIC[ 10,1141]

~
z

~

Q

,;

~

~

,;
e

t

!
.~

~

w

.,~
~

2

E

~
~

~

~
~

,
/

1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 30
MICROCODE FIELDS -- NUMBER FIELD

;# REDEFINED WHEN USED AS MEMORY CYCLE CONTROL

FORCE USER/=<90>
FORCE EXEC/=<91>
FETCH/=<92>

;FORCE USER
;FORCE EXEC
; (DOES NOT
;THIS IS AN

MODE REFERENCE
MODE REFERENCE
WORK UNDER PXCT)
INSTRUCTION FETCH

"------------------.--------------------------------------------------,

READ CYCLE/=<93>
WRITE TEST /=<94>
WRITE CYCLE/=<95>

;SELECT A READ CYCLE
;PAGE FAILE IF NOT WRITTEN
;SELECT A MEMORY WRITE CYCLE

,---------------------------------------------------------------------;
<96>
DONT CACHE/=<97>
PHYSICAL/=<98>

;SPARE BIT
;DO NOT LOOK IN CACHE
;DO NOT INVOKE PAGING HARDWARE

PXCT /=<99: 101>
CURRENT=O

;WHICH PXCT BITS TO LOOK"AT

E 1 =1

D1=3
BIS-SRC-EA=4
E2=5
BIS-DST-EA=6
D2=7

AREAD/=<102>
DP FUNC/=<103>
LDVMA/=<104>

;LET DROM SELECT SYSLE TYPE AND VMA LOAD
;IGNORE # BITS 0-11 AND USE DP 0-13 INSTEAD
; DP9 MEANS "FORCE PREVIOUS"
;LOAD THE VMA

,.-------------------------------~--------------------- ---------------EXT ADR/=<105>
WAIT /=< 106>
BWRITE/=< 107>

PUT VMA BITS 14-17 ONTO BUS
START A MEMORY OR I/O CYCLE
START A MEMORY CYCLE IF DROM ASKS FOR IT

T10KL.MCR[10.1141},
KS10.MIC[10.1141]
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

;THESE BITS ARE USED ONLY TO SETUP DP FOR A DP FUNCTION
<99>
;
10 CYCLE/=<100>
WRU CYCLE/=<101>

;PREV10US
;TH1S IS AN. I/O CYCLE
;WHO ARE YOU CYCLE

VECTOR CYCLE/=<102>
10 BYTE/=<103>
<104>

;READ INTERRUPT VECTOR
; BYTE CYCLE

KS10 MICROCODE V124. 27-JUL-84 Page 31
MICROCODE FIELDS -- NUMBER FIELD

l

..

\

}

T10KLQ[ 10,1141]
KS10.MIC[10,1141]
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
t 185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
f199
1200
1201
1202
1203
1204
1205
1206

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

;# REDEFINED WHEN USED AS PI RIGHT BITS
PI.ZER/=<90:92>
;ZEROS
PI.IP1/=<93>
;PI 1 IN PROG
PI.IP2/=<94>
PI.IP3/=<95>
PI.IP4/=<96>
PI.IP5/=<97>
PI.IP6/=<98>
PI.IP7/=<99>
PI.ON/=<100>
;SYSTEM IS ON
; CHAN 1 IS O·N
PI.C01/=<101>
PI.C02/=<102>
I.C03/=<103>
I.C04/=<104>
I.C05/ c <105>
I.C06/=<106>
I.C07/=<107>
;# REDEFINED WHEN USED AS WRPI DATA
PI.MBZ/=<90:93>
;MUST BE ZERO
PI.DIR/=<94>
;DROP INTERRUPT REQUESTS
PI.CLR/=<95>
;CLEAR SYSTEM
PI.REQ/=<96>
;REQUEST INTERRUPT
PI.TCN/=<97>
;TURN CHANNEL ON
PI.TCF/=<98>
;TURN CHANNEL OFF
PI.TSF/=<99>
; TURN SYSTEM OFF
PI.TSN/=<100>
;TURN SYSTEM ON
PI. SC 1/ =< 10 1>
;SELECT CHANNEL
PI.SC2/=<102>
PI.SC3/=<103>
PI.SC4/=<104>
PI.SC5/=<105>
PI.SC6/=<106>
PI. SC7 /=< 107>

K~'v'MICROCODE

V124, 27-JUL-84 Page 32
MICROCODE FIELDS -- NUMBER FIELD

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231

15:34 27-JULY-1984
07: 10 27-JULV-1984

MI CRO 31 (2154 )

KS10 MICROCODE V124, 27-JUL-84 Page 33
MICROCODE FIELDS -- NUMBER FIELD

;# REDEFINED WHEN USED AS AC CONTROL

;THIS FIELD CONTROLS THE INPUT TO A 74(5181 ON DPE6. THE NUMBER
FIELD HAS THIS FORMAT iN <98:107>:.
!-----!-----!-----!-----!-----!----!CARRY! 58
54 ! S2
S~ I MODE
! IN!
FUNCTION
!
!-----f-----------------------!--~--

-----!----~!----~!-----

B8

! B4
! B2! B1
DATA INPUTS
-----------------------

ACALU/=<98: 103>
8=25
AC+N=62
ACN/=<104: 107>
SRCLEN=O
SRCP=1
DLEN=3
DSTP=4
MARK=3
BINO=3
BIN1=4

r~

'.

I

L ./

AC NAMES FOR STRING INSTRUCTIONS
SO.URCE LENGTH
SOURCE POINTER
DEST LENGTH
DEST POINTER
POINTER TO MARK
HIGH WORD OF BINARY
LOW WORD OF BINARY

\

T10KL .MCR[ 10, 1141]
KS10.MIC[ 10,1141]
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
; ; 1243
; ; 1244
; 1245
; 1246
; ; 1247
; ; 1248
1249
1250
1251
1252
1253
; 1254
; ; 1255
;;1256
; 1257
; 1258
; 1259
; 1260
; ; 1261
;;1262
; 1263
; 1264
;;1265
; ; 1266
1267
1268
1269
1270
1271
; 1272
;;1273
;;1274
1275
1276
1277
1278
1279

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84 Page 34
MICROCODE FIELDS -- NUMBER FIELD

;# FIELD REDEFINED WHEN USE AS APRID DATA
MICROCODE OPTIONS/=<90:98>
;100
- NON-STANDARD MICROCODE
;200
- NO CST AT ALL
;400
INHIBIT CST UPDATE IS AVAILABLE
;040
- UBABLT INSTRUCTIONS ARE PRESENT
;020
- KI PAGING IS PRESENT
;010
- KL PAGING IS PRESENT
MICROCODE OPTION(INHCST)/=<90>
.IF/INHCST
OPT=1
. I FNOT II NHCST
OPT=O
.ENDIF/INHCST
MICROCODE OPTION(NOCST)/=<91>
.IF/NOCST
OPT=1
.IFNOT/NOCST
OPT=O
.ENDIF/NOCST
MICROCODE OPTION(NONSTD)/=<92>
.IF/NONSTD
OPT=1
.IFNOT/NONSTD
OPT=O
.ENDIF/NONSTD
MICROCODE OPTION(UBABLT)/=<93>
.IF/UBABLT
OPT=1
.IFNOT/UBABLT
OPT=O
.ENDIF/UBA8LT
MICROCODE OPTION(KIPAGE)/=<94>
.IF/KIPAGE
OPT=1
.IFNOT/KIPAGE
OPT=O
.ENDIF/KIPAGE
MICROCODE OPTION(KLPAGE)/=<95>
.IF/KLPAGE
OPT=1
.IFNOT/KLPAGE
OPT~O

.ENDIF/KLPAGE
MICROCODE VERSION/=<99:107>
UCV=
I~S'

12f

Ift~Cf;n(t:1'vt

Rhfeil~a:

UC,", -;.. 0

/

T10KL.MCR[10,1141]
KS10.MIC[10,1141}
1280
1281
1282
1283
1284
1285
.1286
1287
1288
1289
1290
1291
1292
1293
, 1294
; ;1295
; ; 1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 35
MICROCODE FIELDS -- NUMBER FIELD

;# FIELD REDEFINED WHEN USED AS A HALT CODE

HAL T /=<90: 107>
POWER=O
HALT=l
CSL=2
IOPF= 100
ILLII=101
ILLINT=102
BW14= 1000
NICOND 5= 1004
MULERR= 1005
.IFNOT/FULL
PAGEF= 1777
.ENDIF/FULL

;CODES 0 TO 77 ARE "NORMAL" HALTS
;POWER UP
;HALT INSTRUCTION
; CONSOLE HALT
;CODES 100 TO 777 ARE SOFTwARE ERRORS
; I/O PAGE FAIL
;ILLEGAL INTERRUPT INSTRUCTION
;BAD POINTER TO UNIBUS INTERRUPT VECTOR
; CODES 1000 TO 1777 ARE HMWWARE ERRORS
;ILLEGAL BWRITE FUNCTION (BAD DROM)
;ILLEGAL NICOND DISPATCH
;VALUE COMPUTED FOR 10**21 WAS WRONG
;PAGE FAIL IN SMALL MICROCODE

;# FIELD REDEFINED WHEN USED AS FLG BITS

FLG.W/=<94>
FLG.PI/=<95>
FLG.C/=<96>
FLG.SN/=<97>

;W BIT FROM PAGE MAP
;PI CYCLE
;CACHE BIT FROM PAGE MAP
;SPECIAL NEGATE IN FDV & DFDV

;RIGHT HALF OF FLG USED TO RECOVER FROM PAGE FAILS

~

~
\

L:

-"

T 10K md<[ 10. 1 1 4 1 ]
KS10.MIC[10.1141]
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355

.TOC

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
DISPATCH ROM DEFINITIONS

"DISPATCH ROM DEFINITIONS"

;ALL ON DPEA
.DCODE
A/=<2:5>
READ=O
WRITE= 1
DREAD=2
DBLAC=3
SHIFT=4
DSHIFT=5
FPI=6
FP=7
RD-PF=10
DFP=11
IOT=12
B/=<8: 11>
SELF=4
DBLAC=5
DBLB=6
AC=15
MEM=16
BOTH=17

;DPERAND FETCH MODE
;READ
; WRITE
;DOUBLE READ
;DOUBLE AC
;SIMPLE SHIFT
;DOUBLE SHIFT
;FLOATING POINT IMMEDIATE
; FLOATING POINT
;READ, THEN START PREFETCH
;DOUBLE FLOATING POINT
;CHECK FOR 10 LEGAL THEN SAME AS I
;STORE RESULTS AS
;SELF
;DOUBLE AC
;DOUBLE BOTH
;AC
;MEMORY
;BOTH

;B-FIELD WHEN USED IN FLOATING POINT OPERATIONS
ROUND/=<8>
;ROUND THE RESULT
MODE/=<9>
:SEPARATE ADD/SUB & MUL/DIV ETC.
;STORE RESULTS AS
FL-B/=<10: 11>
AC=l
;AC
MEM=2
;MEMORY
BOTH=3
;BOTH
J/=<12:23>

;DISPATCH ADDRESS (MUST BE 1400 TO 1777)

ACDISP/=<24>
1/=<25>

;DISPATCH ON AC FIELD
; IMMEDIATE DISPATCH. DISP/AREAD DOES A DISP/DROM
; IF THIS BIT IS SET.
;START A READ AT AREAD
;START A WRITE TEST AT AREAD
;START A MEMORY CYCLE ON BWRITE
;LOAD THE VMA ON AREAD
;START A WRITE ON AREAD

READ/=<26>
TEST/=<27>
COND FUNC/=<28>
VMA/=<29>D,l
WRITE/=<30>
.UCODE

Page 36

T10KL.MCR[10,1141]
KS10.MIC[10,1141]

"

1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
137Q
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395

.TOC

KS10 MICROCODE V124, 27-JUL-84
HOW TO READ MACROS

Page 37

"HOW TO READ MACROS"

,

1.0

REGISTER TRANSFER MACROS

MOST MACROS USED IN THE KS10 ARE USED TO OPERATE ON DATA IN (OR FROM/TO) 2901
REGISTERS,
THE NAMES OF THE :2901 REGISTERS ARE MACRO PARAMETERS AND ARE
ENCLOSED IN []. A TYPICAL MACRO IS:
[ARL[AR]+[BR]
THE SYMBOL
IS PRONOUNCED "GETS".
THEAR PLUS-THE BR".

,THE ABOVE MACRO WOULD BE READ "THE

AR

GETS

IF A MACRO DOES NOT HAVE A
IN IT, THERE IS NO RESULT- STORED. THUS,
[AR]-[BR]
JUST COMPARES THE AR AND THE BR AND ALLOWS FOR SKIPS ,ON THE VARIOUS ALU BITS.

1.1

SPECIAL SYMBOLS

THERE ARE A BUNCH OF SYMBOLS USED IN THE MACROS WHICH ARE
THEY ARE DEFINED HERE:

13~6

1397
1398
1399
1400
1401
1402
1403
1404
1405
1406

MICRO 31(2!54)

15:34 27-JULY-1984
07:10 27-JULY~1984

"

NOT

2901

REGISTERS.

1.

AC -- THE AC SELECTED BY THE CURRENT INSTRUCTION.

2.

AC[] -- AC+N.

3.

APR -- THE APR FLAGS FROM DPMA

4.

EA -- THE EFFECTIVE ADDRESS.
THAT IS, 0
,CONTENTS OF THE HR IN THE RIGHT HALF.

AND

THE

5.

EXP -- THE F.P.
EXPONENT FROM THE SCAD.
[AR] EXP WILL TAKE
EXPONENT OUT OF THE FE AND PUT IT BACK INTO THE NUMBER IN THE AR.

THE

6.

FE -- THE FE REGISTER

7.

FLAGS

8.

Q -- THE Q REGISTER

9.

RAM -- THE RAM FILE, RAM ADDRESS IS IN THE VMA.

AC[ 1] IS AC+1, AC[2] IS AC+2. ETC.

IN

THE

LEFT

THE PC FLAGS (FROM DPE9) IN THE LEFT. HALF.

10.

P -- THE P FIELD OF THE B'HE POINTER.

11.

TIME -- THE 1MS.

12.VMA -- THE VMA.
13.

SEE DPEA

SAME IDEA AS EXP.

TIMER'
WHEN READ IT INCLUDES THE VMA FLAGS

XR-- INDEX REGISTER

HALF

()

T10KL.MCR[10,1141]
KS10.MIC[ 10,1141]
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450 .
1451
1452
1453
1454
1455

"

15:34 27-JULY-1984
07:10 27-JULY-1984

1.2

MICRO 31(254)

/

KS10 MICROCODE V124, 27-JUL-84
HOW TO READ MACROS

Page 38

14.

XWD -- HALF WORD.
USED TO GENERATE CONSTANTS.
FOR EXAMPLE, [AR] 0 XWD
[40] WOULD LOAD THE CONSTANT 40 (OCTAL) INTO THE AR.
-

15.

+SIGN AND -SIGN -- SIGN BITS USED TO SIGN SMEAR
EXAMPLE, [AR]_+SIGN WOULD CLEAR AR BITS 0 TO 8.

16.

WORK[ ] -- LOCATIONS IN THE WORKSPACE USED AS SCRATCH SPACE.
FOR
EXAMPLE,
[AR]_WORK[CSTM] WOULD LOAD THE AR WITH THE CST MASK FROM THE
RAM. CSTM IS A SYMBOL DEFINED IN THE WORK FIELD.

F.P.

NUMBERS.

LONG

LONG IS USED ON SHIFT OPERATIONS TO INDICATE THAT THE Q REGISTER
SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP.

2.0

FOR

IS

ALSO

MEMORY MACROS

MEMORY IS INDICATED BY THE SYMBOL "MEM".
WHEN WE ARE WAITING FOR DATA FROM
MEMORY THE "MEM READ" MACRO IS USED.
WHEN WE ARE SENDING DATA TO MEMORY, THE
"MEM WRITE" MACRO IS USED.
EXAMPLE,
MEM READ,
;WAIT FOR MEMORY
[AR] MEM
;LOAD DATA INTO AR
VMA IS USED-THE LOAD THE VMA.
THUS, VMA_[PC] LOADS THE VMA FROM THE PC.

3.0

TIME CONTROL

THERE ARE 2 SETS OF MACROS USED FOR TIME CONTROL.
THE FIRST,
SELECTS THE RAM
ADDRESS TO SPEED UP THE NEXT INSTRUCTION.
THESE MACROS ARE AC, AC[], XR, VMA,
WORK[].
THE SECOND, SETS THE TIME FIELD.
THESE ARE 2T,
3T, 4T,
AND 5T TO
SELECT 2, 3, 4, OR 5 TICKS.

4.0

SCAD MACROS

THE SCAD MACROS LOOK LIKE THE 2901 MACROS EXECPT NO [] ARE REQUIRED.
ONLY A FEW SYMBOLS USED.
1.

FE

THE FE REGISTER

2.

SC

THE SC REGISTER

THERE

ARE

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483 '
1484
1485
1486
1487
1488
1489
1490
149'
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506

15:34 27-JULY-1984
07: 10 27-JULY-1984

5.0

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
HOW TO READ MACROS

3.

EXP -- THE EXPONENT FROM A F.P.
FE FROM DP BITS 1-8.

NUMBER.

4.

SHIFT -- THE SHIFT COUNT FROM SHIFT INSTRUCTIONS.
AND 28-35.

5.

S# -- THE SMALL NUMBER.
MIXER.

Page 39

FOR EXAMPLE FE_EXP LOADS

THE 10 BIT MAGIC NUMBER

THAT IS DP
INPUT

TO

THE

BITS
THE

18

SCADA

CONTROL MACROS

ALL CONTROL MACROS LOOK LIKE ENGLISH COMMANDS.
SOME EXAMPLES,
HOLD LEFT
;00 NOT CLOCK LEFT HALF OF DP
SET APR ENABLES
;LOAD APR ENABLES FROM DP
SET NO DIVIDE
:SET NO DIVIDE PC FLAG

6.0

SKIPS

ALL SKIPS CAUSE THE NEXT MICRD INSTRUCTION TO COME FROM THE ODD WORD OF AN
EVEN/ODD PAIR.
THE MACROS HAVE THE FORMAT OF SKIP CONDo
THEY SKIP IF CONDITION
IS TRUE,
SOME EXAMPLES,
SKIP AD.EQ.O
:SKIP IF ADDER OUTPUT IS ZERO
SKIP IRPT
;SKIP IF INTERRUPT IS PENDING

7.0

DISPATCH MACROS

DISPATCH MACROS CAUSE THE MACHINE TO GO TO ONE OF MANY PLACES.
IN MOST CASES
THEY HAVE THE WORD "DISP" IN THE NAME OF THE MACRO.
FOR EXAMPLE, MUL DISP, BYTE
DISP.

8.0

SUPER MACROS

FOR
THERE ARE PLACES WHERE ONE MICRO INSTRUCTION IS USED IN MANY PLACES.
EXAMPLE,
MANY PLACES DETECT ILLEGAL OPERATIONS AND WANT TO GENERATE A TRAP TO
THE MONITOR.
WE COULD WRITE
J/UUO
BUT THIS WASTES A MICRO STEP DOING A USELESS JUMP.
INSTEAD WE WRITE,
UUO
THIS MACRO IS THE FIRST STEP OF THE UUO ROUTINE AND JUMPS TO THE SECOND
INSTRUCTION.
WE WRITE THE EXPANSION OF THE UUO MACRO AS THE FIRST INSTRUCTION
OF THE UUO ROUTINE SO THAT THE READER CAN SEE WHAT IT DOES.
SOME EXAMPLES OF

~

/

T 10K L ~IV1CR [ 10. 1 14 1 J
KS10.MIC[ 10.1141]

15:34 27-JULY-1984
07:10 27-JULY-1984

1507
1508
1509
1510
1511
1512
1513
1514

SUPER MACROS ARE:
PAGE FAIL TRAP
DONE
HALT [J

MICRO 31(254)

MICROCODE V124. 27-JUL-84
HOW TO READ MACROS

KSIU

;GENERATE A PAGE FAIL TRAP
;THIS INSTRUCTION IS NOW COMPLETE
; USED WITH A SKIP OR DISP WHERE
; SOME PATHS ARE NOP'S
;JUMP TO HALT LOOP. ARGUMENT IS A
COQE

Page 40

T10KL.MCR[10,1141)
KS10.MIC[10,1141)

15:34 27-JULY-1984
b7: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 41
MACROS -- DATA PATH CHIP -- GENERAL

"MACROS -- DATA PATH CHIP -- GENERAL"
1515 .TOC
1516
"AO/.NOT.A,A/01"
.NOT.[)
1517
"AO/A+8.A/01,8/02"
1518 [ ) + [ )
"AD/A-8- .. 25,A/01,8/02,ADD .25"
1519 [ ) - [ )
"AD/A-0-.25,08US/D8M,D8M/H,A/01,AOD .25"
1520 [ )- H
"AD/D.AND.A,D8US/08M,DBM/H,A/@1"
1521
[].AND.H
"AD/A.AND.Q,A/Ol,DEST/PASS"
1522 [].AND.Q
"AD/A.AND.B,A/@2,B/@1,DEST/PASS"
1523 [ ) . AND. [ )
"AO/.NOT.A_ANO.8.A/02,8/@1,DEST/PASS"
1524 [ 1 . AND. NOT. [ ]
"AO/A.OR.8.A/02,B/@1,DEST/PASS"
1525 [ ) . OR . [ ]
"AD/0.XOR.A,D8US/DBM,DBM/H,A/@1"
1526 [J.XOR.H
"AD/A.XOR.8,A/@2,8/@1 ,DEST/PASS"
1527 [ ] . XOR. [ ]
"AD/D-A-.25.DEST/AO,A/.2,8/@l,D8US/DBM,D8M/H,ADD .25"
1528 [] .H-[]
"AD/D,D8US/DBM,DBM/H,OEST/AO,B/@1"
1529 [CH
"AD/-A-.25,A/ONE,OEST/AD,B/@l,ADD .25"
1530 [] - 1
"AO/-A-.25,DEST/AD*2,A/ONE,8/@l,ADD .25"
[] - 2
1531
"AD/-Q-.25,DEST/AD,8/@l,ADD .25"
1532 [ ] - -Q
"AD/-O-.25,DEST/AO*2,B/@1,ADD .25"
1533 (J -Q*2
"AD/-Q-.25,DEST/AD*.5,8/@1,AOO .25"
1534 []--O*.5
"AD/-A-.25,A/@2,DEST/AO,B/@1,AOO .25"
1535 [] - [ ]
"AD/-A-.25,A/@2,DEST/AD,B/@1"
1536 [] -[J-.25
"AO/-A-.25,A/02,DEST/AD*2,B/01,ADD .25"
1537 []--[]*2
"AD/.NOT.D,D8US/RAM,RAMADR/ACH.DEST/AO,8/01"
1538 [] . NOT. AC
"AD/.NOT.D,DBUS/RAM,RAMADR/AC*H,ACALU/AC+N,ACN/02,DEST/AO,B/@l,OT/3T"
1539 []-.NOT.AC[)
"AD/.NOT.Q,DEST/AO,B/01"
1540 (] . NOT. 0
"AO/.NOT.A,A/@2,DEST/AD,8/@1"
[C.NOT. []
1541
"AD/ZERO,DEST/AD,B/@l"
1542 U-O
"AD/ZERO,DEST/O Q*.5,B/@1~
1543 []-O*.5 LONG
"AD/47,DEST/AO,§/01,OBM/H,OBUS/08M,H/@2,RSRC/OA,A/MASK"
1544 []-O XWO [)
"AO/O,OBUS/RAM,RAMAOR/ACH,OEST/AD,B/@1,AO PARITY"
1545 [ ]-AC
"AD/-0-.25,DBUS/RAM,RAMADR/ACH,DEST/AD,8/@1,ADD .25"
1546 []--AC
"AD/-D-.25,DBUS/RAM,RAMAOR/AC*H,ACALU/AC+N,ACN/02,OEST/AO,B/@1,ADD .25,OT/3T"
1547 [J--AC[]
"AD/O,D8US/RAM,RAMADR/ACH,OEST/AD*.5.B/@1,DT/3T"
1548 []-AC*.5
"AD/D,DBUS/RAM,RAMADR/ACH,DEST/Q Q*.5,B/@l,DT/3T"
1549 []-AC*.5 LONG
"AD/O,DBUS/RAM,RAMADR/ACH,DEST/A5*2,8/@1,DT/3T"
1550 []-AC*2
[]-AC+1
"AD/D+A,DBUS/RAM,RAMADR/ACH,A/ONE,DEST/AD,B/@l"
1551
"AO/0+A,DBUS/RAM,RAMAOR/ACH,A/XWD1,DEST/AD,B/@1"
1552 [ ]-AC+1000001
"AD/D+A,A/@2,DBUS/RAM,RAMADR/ACH,DEST/AD,B/@1,DT/3T"
1553 []-AC+[)
"AO/D-A-.25.DBUS/RAM,RAMADR/ACH,A/ONE,DEST/AD,8/@l,ADD .25"
1554 []-AC-1
"AD/O-A-.25,A/02,D8US/RAM,RAMADR/ACH,DEST/AD,8/@l,ADD .25"
1555 . [)-AC-[]
"AD/D-A-.25,A/@2,DBUS/RAM,RAMADR/ACH,OEST/AD,B/@1"
1556 []-AC-[]-.25
"AD/D-A-.25,A/03,DBUS/RAM,RAMADR/AC*H,ACALU/AC+N,ACN/@2,OEST/AO,B/@1,ADD .25,DT/3T"
1557' [)-AC[)-[]
"AO/D-A-.25,A/ONE,OBUS/RAM,RAMADR/AC*H,ACALU/AC+N,ACN/@2,DEST/AO,B/@l,AOO .25,DT/3T"
1558 [J-AC[]-l
"AO/0.ANO.A,A/@3,DBUS/RAM,RAMADR/AC*H,ACALU/AC+N,ACN/@2,OEST/AD,8/@1,DT/3T"
1559 [ ] - AC [ ] . AND. [ ]
1560 [)-AC.ANO.MASK "AD/D.ANO.A,A/MASK,OBUS/RAM,RAMAOR/ACH,OEST/AO,8/@l,AD PARITY"
[ ]-AC[]
"AO/O,08US/RAM,RAMADR/AC*H,ACALU/AC+N,ACN/@2,OEST/AD,B/@1,AO PARITY,OT/3T"
1561
"AO/0,OBUS/RAM,RAMAOR/AC*#,ACALU/AC+N,ACN/@2,OEST/AD*2,B/01,AO PARITY,DT/3T"
1562 [J-AC[]*2
"AO/0,08US/RAM,RAMAOR/AC*H,ACALU/AC+N,ACN/@2,OEST/AO*.5,B/@1,AD PARITY,DT/3T"
1563 [)-AC[]*.5
"AO/D, 08US/DBM, OHM/ APR FLAGS, DEST / t,O, B/@1 , DT /3T"
1564 [)-APR
1565 [)-CURRENT AC [) "AO/0,DBUS/RAM,RAMAOR/H,ACALU/a,ACN/@2,OEST/AD,B/Ol,AD PARITY,DT/3T"
"AO/57,RSRC/OA,A/@2,OEST/AD,B/@1"
1566 [)-EA FROM [)
1567

,~~""\

i\

\

~
. .J

T10KL.MCR[ 10,1141]
KS10.MIC[ 10,1141]
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602,
1603'
1604
1605
1606
1607
1608
1609
161<;)
1611
1612
1613
1614
1615
1616
1617
1618
1619

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84 Page 42
MACROS -- DATA PATH CHIP -- GENERAL

[] EA
"AD/57,RSRC/OA,A/HR,DEST/AD,B/@1"
{]-EXP
"AD/D,DBUS/DBM,DBM/EXP,A/@l,B/@1,DEST/A,SCAD/A+B,SCADAIS#,s#/O,SCADB/FE,HOLD RIGHT,EXP TEST"
[]-FE
"AD/D,DEST/AD*.5,B/@1,DBUS/DBM,DBM/DP,SCAD/A+B,SCADA/s#,S#IO,SCADB/FE,BYTE/BYTE5"
[]-FLAGS
"AD/D.AND.A,DBUs/pC FLAGS,A/MASK,DEST/AD,B/@l,RSRC/OO"
[]-p
"AD/D,DEST/A,A/@1,B/@1,DBUS/DBM,DBM/DP,BYTE/BYTE1,SCADIA+B,SCADA/s#,s#/O,SCADB/FE"
{]-PC WITH FLAGS "AD/D,DBUS/PC FLAGS,RSRC/OA,A/PC,DEST/AD,B/@1"
[]-O
"AD/O,DEST/AD,B/@l"
[]-0*.5
"AD/O,DEST/AD*.5,B/@1"
[]-0*2
"AD/O,DEST/AD*2,B/@1"
[]-0*2 LONG
"AD/O,DEST/o 0*2,B/@1"
[)-0+1
"AD/A+O,A/ONE,DEST/AD,B/@1"
[]-RAM
"AD/D,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@l,AD PARITY"
[)-TIME
"AD/44,RSRC/OA,A/MASK,OBUS/DBM,DBM/EXP,DEST/AO,B/@1"
(]-VMA
"AD/D,DEST/AO,B/@1,DBUS/DBM,DBM/VMA"
[]-XR
"AO/D,OBUs/RAM,RAMADR/XR#,DEST/AD,B/@1"
[]:[)
"AD/A,A/@2,OEST/AD,B/@1"
[] [] SWAP
"AD/D,DBUS/DBM,DBM/DP SWAP,DEST/A,A/@2,B/@1"
[)-[) XWD 0
"AD/45,DEST/AD,B/@1,DBM/#,DBUS/DBM,#/@2,RSRC/DO,A/MASK"
[] []*.5
"AD/A,A/@2,DEST/AD*.5,B/@1"
[) []*.5 LONG
"AD/A,A/@2,DEST/0 0*.5,B/@1"
[)-[]*2
"AD/A,A/@2,bEST/A5*2,B/@1"
[] []*2 LONG
"AD/A,A/@2,DEST/0 0*2,B/@1"
[]-[]*4
"AO/A+B,A/@2,B/@1-;-DEST/AD*2"
[)-[]+#
"AD/D+A,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1"
[]-[)+.25
"AD/0+A,A/@2,DEST/AD,B/@1, ADD .25"
(] (]+O
"AD/0+A,A/@2,DEST/AD,B/@1"
[) []+1
"AD/A+B,A/ONE,B/@1,B/@2,DEST/AD"
[]-[]+1000001
"AD/D+A,A/@2,DBUS/DBM,DBM/#,#/1,DEST/AD,B/@1"
[]-[]+AC
"AD/D+A,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1"
[]-[)+AC[]
"AD/D+A,A/@2,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@3,DEST/AD,B/@1,DT/3T"
[)-[]+Q
"AD/A+O,A/@2,DEST/AD,B/@1"
[)-[]+RAM
"AD/D+A,A/@2,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@1"
[]-[]+XR
"AD/D+A,DBUS/RAM,RAMADR/XR#,A/@2,DEST/AD,B/@1,HOLD LEFT"
(]-[]+[]
"AD/A+B,A/@3,B/@1,B/@2,DEST/AD"
[] []+[]+.25
"AD/A+B,A/@3,B/@l,B/@2,DEST/AD, ADD .25"
[] []-#
"AD/A-D-.25,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@l, ADD .25"
[]-[]-1
"AD/B-A-.25,B/@1,A/ONE,DEST/AD,ADD .25"
[]-[ ]-1000001
"AD/A-D-.25,A/@2,DBUS/DBM,DBM/#,#/1,DEST/AD,B/@1,ADD .25"
[]-[]-AC
"AD/A-D-.25,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,ADD .25"
[] []-RAM
"AD/A-D-.25,A/@2,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@l,ADD .25"
[]_[]-[]
"AD/B-A-.25,B/@1,B/@2,A/@3,DEST/AD.ADD .25"
[] [)-[] REV
"AD/A-B-.25,B/@1,B/@3,A/@2,DEST/AD,ADD .25"
[)-[].AND.#
"AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1"
[]-[].AND.# CLR LH "AD/ZERO,RSRC/DA,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1"
[]-[].AND.# CLR RH "AD/D.AND.A,RSRC/OQ,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1"
[]-(AC[].AND. [])*.5 "AD/D.AND.A,DEST/AD*.5,A/@3,B/@1,RAMADR/AC*#,DBUS/RAM,ACALU/AC+N,ACN/@2"
[] (0+1)*.5
"AD/A+O,A/ONE,DEST/AD*.5,B/@1"
[]-(H-[])*2
"AD/O-A-.25,DEST/AD*2,A/@2,B/@1,DBUS/DBM,DBM/H,ADD .25"
[]-(-[])*.5
"AD/-A~.25,A/@2,DEST/AD*.5,B/@1,ADD .25"
[]-(-[]-.25)*.5 LONG "AD/-A-.25,A/@2,DEST/Q 0*.5,B/@1"
[]-(-[]-.25)*2 LONG "AD/-A-.25,A/@2,DEST/0_Q*2,B/@1"

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 43
MACROS -- DATA PATH CHIP -- GENERAL

[] ([].AND.#)*.5 "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@2,B/@1"
[] ([].AND.#)*2 "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD*2.A/@2,B/@1"
[]-([].AND.NOT.#)*.5 "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@2,B/@1"
[]-([].AND.NOT.#)*2
"AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1"
[]-([].AND.[])*.5 "AD/A.AND.B,DEST/AD*.5,A/@3,B/@1,B/@2"
.
[] ([].AND.[])*2 "AD/A.AND.B,DEST/AD*2,A/@3,B/@1,B/@2"
[] ([].OR.#)*.5 "AD/D.OR.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@2,B/@1"
[]-([].OR.#)*2 "AD/D.DR.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1"
[]-([]+#)*2
"AD/D+A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1"
[] ([]+1)*2
"AD/A+B,A/ONE,B/@1,B/@2,DEST/AD*2"
[]-([]+[])*.5 LONG
"AD/A+B,A/@3,B/@1,B/@2,DEST/0 0*.5"
[]-([]+[])*2 LONG
"AD/A+B,A/@3,B/@1,B/@2,DEST/0-0*2"
[]-([]-[])*.5 LONG
"AD/B-A-.25,A/@3,B/@1,B/@2,DE~T/0 0*.5, ADO .25"
[)-([]-[])*2 LONG
"AD/B-A-.25,A/@l3,B/@1,B/@2,DEST/0-0*2, ADD .25"
[)-([)+[]+.25)*.5 LONG "AO/A+B,A/@l3,B/@l1,B/@l2.DEST/O O*.g, ADO .25"
[}:[).AND.AC
"AD/D.AND.A,DBUS/RAM,RAMADR/AC#,A/P2,fiEST/AD,B/@1"
[] [].AND.NOT.# "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1"
[] [].AND.NOT.[] "AD/.NOT.A.AND.B,DEST/AD,B/@1,B/@2,A/@l3"
[]-[].AND.NDT.AC "AD/.NOT.D.AND.A,DBUS/~AM,RAMADR/AC#,A/@l2,DEST/AD,B/@1"
[]-[].AND.O
"AD/A.AND.Q,A/@l2,DEST/AD,B/P1"
.
[]-[].AND.[]
"AD/A.AND.B,A/@3,B/@1,B/@2,DEST/AD"
[]-[).EQV.AC
"AD/D.EOV.A,DBUS/RAM,RAMADR/AC#,A/@2,DEST/AD,B/@1"
(]-(].EOV.Q
"AD/A.EQV.Q,A/@2,DEST/AD,B/@1"
(]-[).OR.#
"AD/D.OR.A,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1"
[]-{].OR.AC
"AD/D.OR.AiDBUS/RAM,RAMADR/AC#,A/P2,DEST/AD,B/@1~
[)-[].OR.FLAGS JAD/D.OR.A,DBUS/PC FLAGS,RSRC/OA,A/@1,DEST/AD,B/P1"
[]-[].DR.[]
"AD/A.OR.B,A/@l3,B/@l2,B/P1,DEST/AD"
[)-[].XOR.#
"AD/D.XOR.A,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1"
[] [).XOR.AC
"AD/D.XOR.A,DBUS/RAM,RAMADR/AC#,A/@1,DEST/AD,B/P2"
[]:(].XOR.[]
"AD/A.XOR.B.A/@l3,B/@l1,B/@l2,DEST/AD"
[]
[]
[]
[]

LEFT 0
RIGHT 0
LEFT -=-1
RIGHT_-1

"AD/57,RSRC/OB,DEST/AD,B/@l1"
"AD/53,RSRC/DO,DEST/AD,B/P1"
"AD/54,RSRC/OB,DEST/AD,A/MASK,B/P1"
"AD/53.RSRC/OA,DEST/AD,A/MASK,B/~1"

[) +SIGN
"[@1] [p1I.AND.#, #/777. HOLD RIGHT"
[e-SIGN
"[P1C[@1].OR.#, #/777000, HOLD RIGHT"
;TRE FOLLOWING 2 MACRfis ARE USED IN DOUBLE FLOATING STUFF
; THEY ASSUME THAT THE OPERAND HAS BEEN SHIFTED RIGHT 1 PLACE.
; THEY SHIFT 1 MORE PLACE
[] +SIGN*.5
"AD/.NOT.D.AND.A,A/@l1,B/@1,DEST/AO*.5,OBUS/DBM,DBM/#,#/777400,RSRC/OA"
[]:-SIGN*.5
"AO/O.OR.A,A/@t,B/@1,OEST/AD*.5,DBUS/DBM,DBM/#,#/77740O,RSRC/OA"

/

,~.!

~
""

;/

Tl0KL.MCR[10,1141]
KS10.MIC[10,1141]
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699

.TOC

Q-[]-[]

J

Q- [ ] . AND. [ ]
O-.NDT.AC[]

Q--[]

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MACROS -- DATA PATH CHIP -- Q

Page 44

"MACROS -- DATA PATH CHIP -- 0"

Q-[]
Q.AND.NDT.[]
Q []

Q-[ ]+[

15:34 27-JULY-1984
07:10 27-JULY-1984

"AD/0-A-.25,A/Pl,ADD .25"
"AD/.NOT.A.AND.O,A/Pl,DEST/PASS"
"AD/A,DEST/O AD,A/Pl"
"AD/A-B-.25,'A/@1,B/@2,DEST/Q AD,ADD .25"
"AD/A+B,A/@1,B/@2,DEST/0 AD""AD/A.AND.B,A/Pl,B/@2,DE~T/0 AD"

"AD/.NOT.D,DBUS/RAM,RAMADR/A~*#,ACALU/AC+N,ACN/@l,DEST/0 AD,DT/3T"

"AD/-A-.25,DEST/0 AD,A/Pl, ADD .25"
"0 -[ONE]"
-

Q--1
Q- -AC[] "AD/-D-.25~DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/Pl,DEST/0 AD,ADD .25,DT/3T"
Q--Q
"AD/-0-.25,ADD .25.DEST/0 AD"
Q-AC
"AD/D,DBUS/RAM,RAMADR/AC#~DEST/O AD,~HK PARITY"
Q-AC[ ]
"AD/D.DBUS/RAM,RAMADR/AC*#,ACALU7AC+N,ACN/Pl,DEST/Q AD,CHK PARITY,DT/3T"
O-AC(]. AND. MASK "AD/D. AND. A, A/MASK, DBUS/RAM, RAMiI.DR/ AC*#, ACALU/ AC+N. ACN/@l , DEST /0 AD, CHK PARITY, DT /3T"
Q-AC[].AND.[]
"AD/D.AND.A,A/P2,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@l,DEST/O A5,CHK PARITY,DT/3T"
O-.NDT.Q
"AD/.NOT.O,DEST/O AD"
0-#
"AD/D,DBUS/DBM,DBM/#,DEST70 AD"
Q-O
"AD/ZERO,DEST/O_AD"
Q-O XWD [1
"AD/47,DEST/0 AD,DBM/#,DBUS/DBM,#/@l,RSRC/DA,A/MASK"
0-Q+.25
"AD/O+O,DEST/ij AD,ADD .25"
Q-Q+l
"AD/A+Q.A/ONE,5EST/Q AD"
Q-Q-l
"AD/0-A-.25,A/ONE,DE~T/0 AD, ADD .25"
Q-Q+AC
"AD/D+O,DBUS/RAM,RAMADR/AC#,DEST/O AD"
Q-0*.5
"[MAG] [MASK]*.5 LONG, SHSTYLE/NORi"
Q-Q*2
"[MASK] [MAG]*2 LONG, SHSTYLE/NORM"
Q-O.OR.#
"AD/D.O~.O,DBUS/DBM,DBM/#,DEST/O AD"
Q-Q.AND.#
"AD/D.AND.O,DBUS/DBM,DBM/#,DEST/ij AD"
O-Q.AND;[]
"AD/A.AND.0,A/P1.DEST/0 AD"
Q-O.AND.NOT. []
"AD/.NOT.A.ANO.Q,A/@l,olsT/Q AD"
Q-Q+[ ]
"AD/A+Q.A/@l,DEST/O AD"
O-[].AND.O
"AD/A.AND.Q,A/@l,DE~T/O AD"
"AO/A.OR.O,A/Pl,OEST/O_AD"
Q::)] .OR.Q

T10KL.MCR[10.1141]
KS10.MIC[10,1141]
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720

. TOC

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 45
MACROS -- DATA PATH CHIP -- MISC .

"MACROS -- DATA PATH CHIP -- MISC."

CLEAR [JO
CLEAR ARXO

"AD/D.AND.A.A/~l,DBUS/DBM,DBM/#,#/377777,DEST/AD,B/@1.HDLD

"CLEAR {ARX]O"

;CYCLE CHIP REGISTERS THRU AD SO WE CAN TEST BITS
"AD/D,DBUS/RAM,RAMADR/XR#"
READ XR
"AD/B,B/@ll"
READ [J
"AD/O"
READ 0
;TEST BITS IN RE~ISTERS(SKIP IF ZERO)
TR []
"AD/D.AND.A,DBUS/DBM,DBM/#,A/~l,SKIP ADR.EO.O,DT/3T"
TL [J
"AD/D.AND.A,DBUS/DBM,DBM/#,A/@l,SKIP ADL.EO.O,DT/3T"
;CAUSE BITS -2 AND -1 TO MATCH BIT O.
FIX [] SIGN
"AD/D,DEST/A,A/@l,B/@l~DBUS/DP,HOLD RIGHT"
;GENERATE A MASK IN 0 AND ZERO A 2901 REGISTER
GEN MSK []
"AD/ZERO,DEST/0,-0*2,B/@l,ONES"

RIGHT"

n

T 10K L. """,{[ 10, 1 14 1 ]
KS10.MIC[10,1141]
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752

.TOC

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS,v/MICROCODE V124, 27-JUL-84
MACROS -- STORE IN AC

Page 46

"MACROS -- STORE IN AC"

FM WRITE

"FMWRITE/1"

AC[J [J VIA AD
AC [] VIA AD
ACn [J
AC[J (] TEST
AC[ J-[ J+l
AC[J-[J*2
AC []
AC-[ J TEST
AC-[]+1
AC-[ J+O
ACn [J+O
AC [) [J - [ J
AC[ J-[ J+[]
AC []+[]
ACn [).AND.[]
AC[ ]-O.AND. [)
AC[ )-[]. EOV.O
AC[]--[]
AC
AC-[] .OR. []
ACn .NOT. []
AC . NOT. [)
ACn -0
AC 0ACn 0
AC[J-1
AC[CO

"AD/B,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE,CHK PARITY"
"AD/B,DEST/PASS,B/@1,RAMADR/AC#,DBUS/DP,FM WRITE,CHK PARITY"
"AD/A,DEST/A,B/@2,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP, FM WRITE"
"AD/D,DBUS/DP,DEST/A,B/@2,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP, FM WRITE"
"AD/A+B,DEST/PASS,A/ONE,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE"
"AD/A+B,DEST/PASS,A/@2,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE"
"AD/A,DEST/A,B/@1,A/@I,RAMADR/AC#,DBUS/DP, FM WRITE"
"AD/D,DBUS/DP,DEST/A,B/@I,A/@I,RAMADR/AC#,DBUS/DP, FM WRITE"
"AD/A+B,DEST/PASS,A/ONE,B/@I,RAMADR/AC#, FM WRITE"
"AD/A+Q,DEST/PASS,A/@1,B/@1,RAMADR/AC#, FM WRITE"
"AD/A+O,DEST/PASS,A/@2,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1, FM WRITE"
"AD/A-B-.25,OEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE,ADD .25"
"AD/A+B,DEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1.DBUS/DP,FM WRITE"
"AD/A+B,DEST/PASS,B/@2,A/@I,RAMADR/AC#,DBUS/DP,FM WRITE"
"AD/A.AND.B,DEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBOS/DP,FM WRITE"
"AD/A.AND.O,DEST/PASS,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE"
"AD/A.EQV.Q,DEST/PASS,A/@2,RAMADR/AC*#.ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE"
~AD/-B-.25,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE,ADD .25"
"AD/-A-.25,DEST/PASS,A/@I,RAMADR/AC#,DBUS/DP, ADD .25,FM WRITE"
"AD/A.OR.B,A/@1,B/@2,RAMADR/AC#,DBUS/DP, FM WRITE"
"AD/.NDT.B,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE"
"AD/.NOT.B,DEST/PASS,B/@1,RAMADR/AC#,DBUS/DP,FM WRITE"
"AD/-Q-.25,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,ADD .25"
"AD/Q,RAMADR/AC#,DBUS/DP, FM WRITE"
.
"AD/ZERO,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE"
"AD/B,DEST/PASS,B/ONE,RAMADR/AC*#,ACALU/AC+N,ACN/@I,DBUS/DP,FM WRITE"
"AD/Q,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE"

-n

/

T10Kl.MCR[10,1141]
KS10.MIC[10,1141]

,
I

1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779

.TOC

15:34 27-JUlY-1984
07:10 27-JUlY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUl-84
MACROS -- MICROCODE WORK SPACE

"MACROS -- MICROCODE WORK SPACE"

WORK[].Q
"AD/Q,DEST/PASS,RAMADR/#.WORK/@I,FM WRITE"
Q WORKT]
"AD/D,DEST/Q AD;RAMADR/#,D8US/RAM,WORK/@1,DT/3T"
WfiRK[] 0
"AD/ZERO,DESf/PASS,RAMADR/#,WORK/@I,FM WRITE"
WORK[]-1
"AD/8,DEST/PASS,RAMADR/#,WORK/@I,B/ONE,FM WRITE"
WORK [ ]-[ ]
"AD/B, DEST /PASS, RAMADR/ #, WORK/@ 1 ,B/@2, FM WR ITE"
WORK[]-[] ClR lH "AD/47,RSRC/AB,DEST/PASS,RAMADR/#,WORK/@I,B/@2,A/MASK,FM WRITE"
WORK{]-[]-1
"AD/A-8-.25,A/@l2,8/0NE,DEST/PASS,RAMADR/#,WORK/@I,FM WRITE, ADD .25"
WORK[]-.NOT.[]
"AD/.NOT.B,DEST/PASS,RAMADR/#,WORK/@1,B/@2,FM WRITE"
WORK[]-[].AND.[] "AD/A.AND.B,DEST/PASS,RAMADR/#,WORK/@I,A/@2,B/@3,FM WRITE"
[].AND-:-NOT.WORK[] "AD/.NOT.D.AND.A,A/@I,DBUS/RAM,RAMADR/#,WDRK/@2,DT/3T"
().AND.WORK[)
"AD/D.AND.A,A/@I,DBUS/RAM,RAMADR/#,WORK/@2,OT/3T"
[] []+WORK[]
"AD/D+A,A/@2,DEST/AD,8/@I,D8US/RAM,RAMADR/#,WORK/@3,DT/3T"
[]-(].ANO.WORK(] "AD/D.AND.A,A/@2,DEST/AD,8/@I,OBUS/RAM,RAMADR/#,WORK/@3,DT/3T"
[]-[].AND.NOT.WORK[] "AD/.NOT.D.AND.A,A/@2,DEST/AD,8/@I,DBUS/RAM,RAMADR/#,WORK/@3,DT/3T"
[]-[].OR.WORK[] "AD/D.OR.A,A/@2,DEST/AO,B/@1,DBUS/RAM,RAMAOR/#,WORK/@3,DT/3T"
[]-WORK[]
"AO/D,DEST/AD,B/@I,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T"
[]-.NOT.WORK[]
"AD/.NOT.D,DEST/AD,B/@I,DBUS/RAM,RAMADR/#,WDRK/@2,DT/3T"
[]--WORK[]
"AD/-D-.25,AOD .25,DEST/AD,8/@I,D8US/RAM,RAMADR/#,WORK/@2,DT/3T"
[ ]-WORK [ ) + 1
"AD/O+A, A/ONE, DEST / AD, B/@1 ,DBUS/RAM, RAMADR/ # ,WORK/@2, DT /3T"
Q ij-WORK[]
"AD/Q-D-.25,DEST/Q AD,D8US/RAM,RAMADR/#,WORK/@I,ADD .25,DT/3T"
[1 []-WORK[J
"AD/A-D-.25,DEST/Afi,A/@2,8/@I,DBUS/RAM,RAMADR/#,WORK/@3,ADD .25,DT/3T"
"AD/B,DEST/PASS,RAMADR/RAM,B/@1,FM WRITE"

Page 47

Tl0KL~[10'l141]

KS10.MIC[10,l141]

~

a
~

Q

:g
!!!

~

ii

,x
~

'g
'b

:

iii
"

~

oX

g

~
~
~

!
J.

it '

1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
18'20
1821
1822
1823
1.824
1825
1826
1827
1828
1829

./

,15:34 27-JULY-1984
07:10 27-JULY-1984

.TOC

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MACROS -- MEMORY CONTROL

Page 48

"MACROS -- MEMORY CONTROL"

MEM CYCLE

"MEM/i"

:THE FOLLOWING MACROS CONTROL MEMORY ADDRESS
LOAD VMA
"MEM CYCLE,LDVMA/i"
FORCE EXEC
"FORCE EXEC/i"
VMA PHYSICAL
"PHYSICAL/i,FORCE EXEC/l,FORCE USER/O,EXT ADR/l,LOAD VMA"
VMA PHYSICAL WRITE
"LOAD VMA,VMA PHYSICAL,WAIT/l,MEM/l,WRITE CYCLE/i,WRITE TEST/O"
VMA PHYSICAL READ
"LOAD VMA,VMA PHYSICAL,WAIT/i,MEM/1,READ CYCLE/i,WRITE TEST/O"
VMA EXTENDED
"EXT ADR/i"
PXCT
PXCT
PXCT
PXCT
PXCT
PXCT
PXCT
PXCT

EA
DATA
BLT DEST
BYTE PTR EA
BYTE DATA
STACK WORD
BLT SRC
EXTEND EA

"PXCT/El
"PXCT/Dl
"PXCT/Di
"PXCT/E2
"PXCT/D2
"PXCT/D2
"PXCT/D2
"PXCT/E2

;THE FOLLOWING MACROS GET MEMORY CYCLES STARTED
WRITE TEST
"WRITE TEST/l,WAIT/l"
START READ
"MEM CYCLE,READ CYCLE/l,WAIT/l"
START WRITE
"MEM CYCLE,WRITE TEST,WRITE CYCLE/i.WAIT/l"
START NO TEST WRITE
"MEM CYCLE,WRITE CYCLE/l,WAIT/l"
FETCH
"START READ,FETCH/l,PXCT/CURRENT,WAIT/l"
;THE FOLLOWING MACROS COMPLETE MEMORY CYCLES
MEM WAIT
"MEM CYCLE,WAIT/l"
MEM READ
"MEM WAIT,DBUS/DBM,DBM/MEM"
MEM WRITE
"MEM WAIT,DT/3T"
SPEC MEM READ
"SPEC/WAIT,DBUS/DBM,DBM/MEM"
SPEC MEM WRITE
"SPEC/WAIT.DT/3T"
;THINGS ,WHICH WRITE MEMORY
MEM []
"AD/B,DEST/PASS,B/@l,DBUS/DP,RAMADR/VMA,CHK PARITY"
MEM::::O
"AD/Q,DBUS/DP,RAMADR/VMA"
;THINGS WHICH READ MEMORY
[] 10 DATA
"Ab/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@i"
[]-MEM
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@l,CHK PARITY"
[]-MEM THEN FETCH
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/A,A/PC,B/@l,CHK PARITY, FETCH, LOAO VMA"
[]-MEM*.5
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/@l,CHK PARITY"
[]-MEM.AND.MASK
"AD/D.AND.A,A/MASK,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@l,CHK PARITY"
[]-(MEM.AND.[])*.5
"AD/D.AND.A,A/@2,DBUS/DBM,RAMADR/VMA,DEST/AD*'.5,B/@l,CHK PARITY"
O_MEM
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/Q_AD,CHK PARITY"

T 10K L . MC R [ 10, 114 1 ]
KS10.MIC[10,1141]
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846

.TOC

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MACROS -- VMA

Page 49

"MACROS -- VMA"

"AD/A,A/01,DEST/PASS,LOAD VMA"
VMA [J
VMA-[] WITH FLAGS
"AD/A,A/Oi,DEST/PASS.LOAO VMA,WAIT/1, MEM/l, EXT AOR/1, DP FUNC/1, OT/3T"
VM~-[].OR.[] WITH FLAGS "AO/A.OR.B,A/Ol,B/02,DEST/PASS,LOAO VMA,WAIT/1, MEM/l, EXT ADR/i, DP FUNC/1, OT/3T"
VMA-[]+1
"AD/A+B,A/ONE,B/01,OEST/AD,HOLD LEFT,LOAD VMA"
VMA-[]-1
"AD/B-A-.25,A/ONE,B/Ol,ADD .25,HOLO LEFT,LOAD VMA"
VMA-[ J+XR
"AO/D+A,DBUS/RAM,RAMADR/XR#,A/01,LOAD VMA"
"AD/A+B,DEST/PASS,A/01,B/02,LOAD VMA"
VMA=J J+ []
NEXT [] PHYSICAL WRITE "AD/A+B,A/ONE,B/01,DEST/AD,HOLD LEFT,LOAD VMA, VMA PHYSICAL, START WRITE"
;MACROS TO LOAD
[] VMA FLAGS
[]-VMA IO READ
[CVMA 10 WRITE

A 2901 REGISTER WITH VMA FLAG BITS
"AD/45,DEST/AD,B/01,D8M/#,DBUS/DBM,RSRC/DO,A/MASK"
"[01] VMA FLAGS,READ CYCLE/1,IO CYCLE/l,WRITE TEST/O, PHYSICAL/1, FORCE EXEC/1, FORCE USER/OR
"[@llCVMA FLAGS,WRITE CYCLE/l,IO CYCLE/l,WRITE TEST/O, PHYSICAL/I, FORCE EXEC/1, FORCE USER/OR

~

T10KL.Nr<.;R[ 10,1141]
KS10.MIC[ 10,1141]
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

.TOC

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

"MACROS -- TIME CONTROL"

AC
AC [ ]
XR
VMA
WORK[ ]

"RAMADR/AC#"
"RAMADR/AC*#,ACALU/AC+N,ACN/@l"
"RAMADR/XR#"
"RAMADR/VMA"
"RAMADR/#, WORK/@l"

2T
3T
4T
5T

"T/2T"
"T/3T"
"T/4T"
"T/5T"

KSIU MICROCODE V124, 27-JUL-84
MACROS -- TIME CONTROL

Page 50

T10KL.MCR[10,1141)
KS10.MIC[10,1141]
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
.1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909

.TOC

15:34 27-JULY-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
MACROS -- SCAD, SC, FE LOGIC

"MACROS -- SCAD, SC, FE LOGIC"

LOAD SC
LOAD FE
STEP SC
SHIFT

"LOADSC/l"
"LOADFE/l"
"SCAD/A-l,SCADA/SC,LOAD SC,SKIP/SC"
"SCAD/A+B,SCADA/S#,SCADB/FE,S#/I. LOAD FE, MULTI SHIFT/I"

SC SC-l
SC-SHIFT
SC-SHIFT-1
SC-SHIFT-2
SC--SHIFT
SC- -SHIFT-1
SC--SHIFT-2
SC-SC-EXP
SC-SC-EXP-l
SC-SC-FE-1
SC-SC-FE
SC-EXP
SC-S#-FE
SC-FE+S#
SC-FE
SC-S#

"SCAD/A-l,SCADA/SC,LOAD SCM
"SCAD/A+B,SCADA/S#,S#/O,SCADB/SHIFT,LOAD SCM
"SCAD/A+B,SCADA/S#,S#/1777,SCADB/SHIFT,LOAD SCM
"SCAD/A+B,SCADA/SH,S#/1776,SCADB/SHIFT;LOAD SCM
"SCAD/A-B,SCADA/S#,S#/OOOO,SCADB/SHIFT,LOAD SCM
"SCAD/A-B,SCADA/S#,SCADB/SHIFT.S#/1777,LOAD 'SC"
"SCAD/A-B,SCADA/Sff,SCADB/SHIFT.S#/1776.LOAD SCM
"SCAD/A-B.SCADA/SC.SCADB/EXP,LOAD SCM
·SCAD/A-B-l,SCADA/SC.SCADB/EXP,LOAD SCM
·SCAD/A-B-l.SCADA/SC,SCADB/FE,LOAD SCM
·SCAD/A-B,SCADA/SC,SCADB/FE,LOAD SCM
·SCAD/A+B,SCADA/S#,S#/O,SCADB/EXP,LOAD SCM
"SCAD/A-B,SCADA/S#,SCADB/FE,LOAD SCM
"SCAD/A+B.SCADA/S#,SCADB/FE.LOAD SCM
·SCAD/A.OR.B.SCADA/S#,S#/O,SCADB/FE,LOAD SCM
"SCAD/A,SCADA/S#,LOAD SC·

SC 36.
SC-35.
SC-34.
SC-28.
SC-27 .
SC-26.
SC-24.
SC-22.
SC-20.
SC-19.
SC-14.
SC-ll .
SC-9.
SC-8.
SC-7
SC-6
SC-5
SC-4
SC-3
SC-2
SC-l
SC-O
SC--l
SC=-2

"SC S#,S#/36.;'
"SC-S#,S#/35."
·SC-S#,S#/34. "
"SC-Sff,S#/28." .
"SC-S#,S#/27."
"SC S#,Sff/26."
"SC-S#.S#/24."
"SC Sff,S#/22."
"SC-Sff,S#/20."
"SC-S#,S#/19."
"SC-S#,S#/14."
"SC-S#,S#/II."
"SC-S#,Sff/9.·
"SC-S#,Sff/8 .•
·SC-S#,Sff/7"
·SC-S#,S#/6"
"SC-S#,S#/5"
·SC-S#,SII/4"
"SC-S#.Sff/3"
"SC-S#,Sff/2"
"SC S#.Sff/l"
"SC-S#, S#/O. "
"SC-S#.Sff/1777"
"SC=S#.Sff/1776"

Page 51

a

T10KL.MCR[10,1141]
KS10.MIC[10,1141]
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942

:~
j

/

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MACROS -- SCAD, SC, FE LOGIC

FE -FE
FE--FE-1
FE-FE-19
FE--FE+S#
FE-FE+SC
FE-FE. AND. S#
FE-P
FE-S
FE-S+2
FE--S-20
FE--S-10
FE'-S#
FE-S#-FE
FE--2
FE--12.
FE-O
FE--1
FE-FE+1
FE-FE+2
FE-FE+10
FE-FE-1
FE-FE+4
FE-EXP
FE-SC+EXP
FE-SC-EXP
FE-FE+P
FE-FE-200
FE--FE+200
FE=FE+S#

"SCAD/A-B,SCADA/S#,S#/O,SCADB/FE,LOAD FE"
"SCAD/A-B,SCADA/S#,S#/1777,SCADB/FE,LOAD FE"
"SCAD/A+B,SCADB/FE,SCADA/S#,S#/1550,LOAD FE"
"SCAD/A-B,SCADA/S#,SCADB/FE,LOAD FE"
"SCAD/A+B,SCADA/SC,SCADB/FE, LOAD FE"
"SCAD/A.AND.B,SCADA/S#,SCADB/FE, LOAD FE"
"SCAD/A,SCADA/BYTE1, LOAD FE"
"SCAD/A+B, SCADA/S#, SIlo ,SCADB/SIZE, LOAD FE"
"SCAD/A+B, SCADA/S#, S#/20, SCADB/SIZE, LOAD FE"
"SCAD/A-B,SCADA/S#,S#/1760,SCADB/SIZE, LOAD FE"
"SCAD/A-B,SCADA/S#,S#/1770,SCADB/SIZE, LOAD FE"
"SCAD/A,SCADA/S#,LOAD FE"
"SCAD/A-B,SCADA/S#,SCADB/FE,LOAD FE"
"FE S#,S#/1776"
"FE-S#,S#/1764"
"FE=S#,S#/O"
"FE_S#,S#/1777"
~SCAD/A+B,SCADA/S#,SCADB/FE,S#/1,LOAD FE"
"SCAD/A+B,SCADA/S#,SCADB/FE,S#/2,LOAD FE"
"SCAD/A+B,SCADA/S#,SCADB/FE,S#/10,LOAD FE"
"SCAD/A+B,SCADA/S#,SCADB/FE,S#/1777,LOAD FE"
"SCAD/A+B,SCADA/S#,SCADB/FE,S#/4,LOAD FE"
"SCAD/A+B,SCADA/S#,S#/O,SCADB/EXP,LOAD FE"
"SCAD/A+B,SCADA/SC,SCADB/EXP,LOAD FE"
"SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD FE"
"SCAD/A+B,SCADA/BYTE1,S~ADB/FE, LOAD FE"
"SCAD/A+B,SCADA/S#,S#/1600,SCADB/FE,LOAD FE"
"SCAD/A-B,SCADA/S#,S#/200,SCADB/FE,LPAD FE"
"SCAD/A+B,SCADA/S#,SCADB/FE,LOAD FE"

GEN 17-FE

"SCAD/A-B,SCADA/S#,S#/210,SCADB/FE"

Page 52

T10KL.MCR[ 10,1141]
KS10.MIC[ 10,1141]
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958

,
/

.TOC

15:34 27-JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

"MACROS -- DATA PATH FIELD CONTROL"

HOLD LEFT
ADL PARITY
CHK PARITY L

"CLKL/O,GENL/O"
"GENL/1"
"CHKL/1"

HOLD RIGHT
ADR PARITY
CHK PARITY R

"CLKR/O,GENR/O"
"GENR/1"
"CHKR/1"

AD PARITY
CHK PARITY
BAD PARITY

"AD PARITY OK/1"
"CHKL/1,CHKR/1"
"CHKL/O,CHKR/O"

INH CRY18

"SPEC/INHCRY18"

KS10 MICROCODE V124, 27-JUL-84 Page 53
MACROS -- DATA PATH FIELD CONTROL

~
'\

J

T 10KL .NrC~ [ 10. ! 1411
KS10.MIC[10.11411
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

.Toe

15:34 27-JULY-j984
07: 10 27-JULY-1984

MICRO 31(254)

KS1U'MICROtOOE V124, 27-JUL-84
MACROS -- SHIFT PATH CONTROL

"MACROS -- SHIFT PATH CONTROL"

ASH
LSH

"SHSTYLE/NORM"
"SHSTYLE/NORM"

ROT
LSHC
ASHC
ROTC
ONES
DIV

"SHSTYLE/ROT"
"SHSTYLE/LSHC"
"SHSTYLE/ASHC"
"SHSTYLE/ROTC"
"SHSTYLE/ONES"
"SHSTYLE/DIV"

ASH SHI FT
LSH SHIFT (SAME HARDWARE AS ASH BUT
BITS -2 AND -1 ARE PRESET TO ZERO)

SHIFT IN 1 BITS
SPECIAL PATH FOR DIVIDE (LIKE ROTC BUT
COMPLEMENT BIT AS IT GOES AROUND)

Page 54

T10KL.MCR[10, 1141]
KS10.MIC[10,1141J
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002

.TOC

15:34 27-vULY-1984
07:10 27-vULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-vUL-84
MACROS -- SPECIAL FUNCTIONS

"MACROS -- SPECIAL FUNCTIONS·
;LOAD INSTRUCTION REG FROM
; DBUSO-DBUS8, LOAD AC# FROM
; DBUS9-DBUS12
; UPDATE LAST-INST-PUBLIC PC FLAG

LOAD IR

"SPEC/LOADIR"

LOAD INST
LOAD INST EA
LOAD BYTE EA
LOAD IND EA
LOAD SRC EA
LOAD DST EA
ADD .25
CALL [J
LOAD PXCT
TURN OFF PXCT
LOAD PAGE TABLE
LOAD AC BLOCKS
SWEEP
CLRCSH·
LOAD PI
SET HALT
CLEAR CONTINUE
CLEAR EXECUTE
CLEAR RUN
UNHALT
SET APR ENABLES
ABORT MEM CYCLE
CLR 10 BUSY
CLR 10 LATCH

"SPEC/LDINST"
"SPEC/LOADXR,PXCT/CURRENT"
"SPEC/LOADXR,PXCT/E2"
"SPEC/LOADXR,PXCT/El"
"SPEC/LOADXR,PXCT/BIS-SRC-EA"
"SPEC/LOADXR,PXCT/BIS-DST-EA"
"CRY38/1"
;GENERATE CARRY IN TO BIT 37
"CALL/l,v/@l"
;CALL A SUBROUTINE
"SPEC/LDPXCT"
;LOAD PXCT FLAGS IF EXEC MODE
"SPEC/PXCT OFF"
.
"SPEC/LDPAGE"
"SPEC/LOACBLK"
"SPEC/SWEEP,PHYSICAL/l"
"SPEC/CLRCSH,PHYSICAL/l"
"SPEC/LDPI"
"SPEC/#,#/74"
"SPEC/#,#/40"
"SPEC/#,#/20"
"SPEC/#., #/10"
"SPEC/#,#/62"
"SPEC/APR EN"
"DBUS/DBM,RAMADR/VMA,DBM/MEM,AD/ZERO,SPEC/MEMCLR,LOAD VMA"
"SPEC/CLR 10 BUSY"
"SPEC/CLR 10 LATCH"

Page 55

(j

Tl0KL.M~[10,l141]
KSlO.MIC[ 10,1141]
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031

MICRO 31(254)

KS10 MICROCODE V124, 27-uUL-84
MACROS -- PC FLAGS

"MACROS -- PC FLAGS"

.TOC

CHANGE FLAGS
SET
SET
SET
SET

15:34 27-uULY-1984
07:10 27-uULY-1984

"SPEC/FLAGS"

AROV
"CHANGE FLAGS, HOLD USER/1, SETOV/1, TRAP1/1"
FOV
"CHANGE FLAGS. HOLD USER/1. SETFOV /1. TRAP1/1"
NO DIVIDE
"CHANGE FLAGS. HOLD USER/1. SETOV/1. SETNDV/l, TRAP1/1"
FL NO DIVIDE "SET NO DIVIDE. SETFOV/l"

ASH AROV
SET FPD
CLR FPD

"SPEC/ASHOV"
"CHANGE FLAGS. HOLD USER/l, SETFPD/1"
"CHANGE FLAGS. HOLD USER/l. CLRFPD/l "

SET PDL OV
SET TRAP1

"CHANGE FLAGS. HOLD USER/1, TRAP2/1"
"CHANGE FLAGS. HOLD USER/l, TRAP1/1"

LOAD PCU
UPDATE USER
LEAVE USER

"CHANGE'FLAGS. LD PCU/1"
"CHANGE FLAGS. HOLD USER/1"
"CHANGE FLAGS. HOLD USER/O"

JFCL FLAGS

"CHANGE FLAGS, HOLD USER/1. uFGLFLG/1"

LOAD FLAGS
EXP TEST
AD FLAGS

"CHANGE FLAGS. LD FLAGS/1"
"SPEC/EXPTST"
"CHANGE FLAGS, ADFLGS/l, HOLD USER/l"

NO DIVIDE
FL NO DIVIDE

"SET NO DIVIDE. u/NIDtSP"
"SET FL NO DIVIDE, u/NIDISP"

\
\

Page 56

T10KL.MCR[10,1141)
KS10.MIC[10,1141]
2032
2033
2034
2035
2036
2037
2038
2039

.TOC

15:34 27~JULY-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
MACROS -- PAGE FAIL FLAGS

"MACROS -- PAGE FAIL FLAGS"

STATE []
END STATE

"[FLG] #,STATE/@1,HOLD LEFT"
"[FLGCO, HOLO LEFT"

END BLT
END MAP

"END STATE"
"END STATE"

~\
J

Page 57

'\..

"-

/

\

\

/

i

~
\~

i

T10KL.MCR[ 10,1141]
KS10.MIC[ 10,1141]

15:34 27-JULY-1984
07: 10 27-JULY-1984

2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064

;SKIPS IF:
"SKIP/ACO"
;THE AC NUMBER IS ZERO
"SKIP/OPO"
;DP BIT 0=1
"SKIP/OP18"
;DP BIT 18=1
"SKIP/ADEQO,DT/3T" ;ADDER OUTPUT IS ZERO
"SKIP/LE,OT/3T" ;ADDER OUTPUT IS LESS THAN OR EQUAL
; TO ZERO.
"SKIP/LLE.DT/3T" ;ADDER LEFT IS LESS THAN OR EQUAL
; TO ZERO.
"SKIP/FPD"
;FIRST-PART-DONE PC FLAG IS SET
"SKIP/KERNEL"
;USER=O
"SKIP/IOLGL"
;USER=O OR USER IOT=1
"SKIP/CRYO"
;ADDER BIT CRYO=1 (NOT PC FLAG BIT)
"SKIP/CRY1"
:ADDER BIT CRY1=1 jNOT PC FLAG BIT)
"SKIP/CRY2,DT/3T"
;ADDER BIT CRY2=1
"SKIP/JFCL"
;IF JFCL SHOULD JUMP
"SKIP/ADLEQO"
;ALU BITS -2 TO 17 = 0
"SKIP/ADREQO"
;ALU BITS 18-35 = 0
"SKIP/INT"
;INTERRUPT IS PENDING
"SKIP/-1 MS"
;DON'T SKIP IF 1MS TIMER HAS EXPIRED.
"SKIP/ACREF"
;VMA IS 0-17
"SKIP/EXECUTE"
;CONSOLE EXECUTE
"SKIP/TXXX"
;TEST INSTRUCTION SHOULD SKIP

.TOC
SKIP
SKIP
SKIP
SKIP
SKIP

KSjO MICROCODE V124, 27-JUL-84
MACROS -- SINGLE SKIPS

"MACROS -- SINGLE SKIPS"
IF ACO
DPO
DP18
AD.EQ.O
AD.LE.O

SKIP ADl.LE.O
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
SKIP
TXXX

MICRO 31(254)

FPD
KERNEL
10 LEGAL
CRYO
CRY1
CRY2
JFCL
ADl.EQ.O
ADR.EQ.O
IRPT
-1MS
AC REF
EXECUTE
TEST

Page 58

~

i::
z>0

;~

, II

,

~

,
,

~

i

i

.~

J
"!

iiii

e

~

ij

I

MICRO 31(254)

KS10 MICROCODE V124, 27-uUl-84 Page 59
MACROS -- SPECIAL DISPATCH MACROS

T10Kl.MCR[10,1141]
KS10.MIC[10,1141]

15:34 27-uUlY-1984
07:10 27-uUlY-1984

2065
2066
2067
2062
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098

.TOC

"MACROS -- SPECIAL DISPATCH MACROS"

NEXT INST
NEXT INST FETCH
EA MODE OISP
AREAD
B DISP
BWRITE DISP
INST DISP
EXIT
AD FLAGS EXIT
Fl-EXIT
TEST OISP
SKIP-COMP DISP
..lUMP OISP
DONE
uUMPA
UUO
lUUO
PAGE FAIL TRAP
TAKE INTERRUPT
INTERRUPT TRAP
MUl DISP
DIV DISP
BYTE DISP
SCAD DISP
RETURN [)
PI DISP
NORM DISP
DISMISS
CAll lOAD PI
HALT []
CLEANUP DISP

"DISP/NICOND,SPEC/NICOND,u/NICoNO"
"DISP/NICOND,SPEC/NICOND,u/NICOND-FETCH"
"DISP/EAMODE,RAMAOR/XR#"
"DISP/AREAD,WAIT/1,AREAD/1,MEM/1,u/O" .
"DISP/BDISP"
"B DISP,MEM/1,BWRItE/1,WRITE CYCLE/1,u/BWRITE"
"DISP/DROM,u/O"
"BWRITE bISP,SPEC/O, WRITE TEST/1"
"BWRITE DISP, WRITE TEST/o, AD FLAGS"
"WRITE CYCLE/i,WRITE TEST/1,MEM/1,BWRITE/1,B DISP,u/Fl-BWRITE"
"B DISP,u/TEST-TABlE"
"8 OISP,u/SKIP-COMP-TABLE"
"B DISP,u/uUMP-TABlE"
"VMA [Pt],LOAD VMA, FETCH, NEXT INST FETCH"
"[PCT [ARl,HOLD LEFT,LOAD VMA.FETCH,NEXT INST FETCH"
"[HR]-[HR).AND.#,#/777140,HOLD RIGHT,u/UUOGO"
"[AReO XWD [40], u/lUU01"
"Tl [flG], FLG.PI/1, 0/PFT"
"[FLG] [FlG).OR.#,FLG.PI/1,HOlD RIGHT,u/PI"
"WORK[SV.AR] [AR], u/ITRAP"
"DISP/MUl" .
"DISP/DIV"
"DISP/BYTE, DT/3T"
"DISP/SCADO"
;SKIP (2'S WEIGHT)· IS SCAD IS MINUS
"DISP/RETURN;u/@1"
"DISP/PI"
"DISP/NORM,OT/3T"
"TR [PI], #1077400, CAll [uEN1]'OT/3T"
"[TO]_[PI] SWAP, CAll [lDPI2]"
.'
"AD/47,DEST/AD,B/T1,DBM/#,DBUS/DBM,HAlT/@1,RSRC/DA,A/MASK, u/HAlTED"
"READ [FlGJ. DBUS/DP. DISP/DP. 3T. u/CLEANUP"

l!
~

L

,~
\
/

/'

.",

\.

T10Kl~[10.1141J

KS10.MIC[ 10.1141 J

~\
15:34 27-JUlY-1984
07: 10 27-JUlY-1984

MICRO 31(254)

KS10/MICROCODE V124, 27-JUl-84
DISPATCH ROM MACROS

"DISPATCH ROM MACROS"
2099
.TOC
2100
.DCODE
2101
2102 ;"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS
2103
2104 I
"1/1"
2105 I-PF
"I/1,VMA/O,READ/1"
2106 R
"A/READ,READ/1"
"A/RD-PF,READ/1"
2107 R-PF
"A/WRITE,TEST/1"
2108 W
"A/READ,TEST/1,READ/1"
2109 RW
2110 IW
"1/1,TEST/1"
;IMMED WHICH STORE IN E. (SETZM, ETC.)
2111 ,IR
"I/1.READ/1"
;START READ A GO TO EXECUTE CODE
;AR!ARX
E!E+1
"A/DREAD,READ/1"
2112 DBl R
2113 DBl AC "A/DBlAC"
"A/SHIFT,VMA/O,READ/1"
2114 SH
"A/DSHIFT,VMA/O,READ/1"
21.15 SHC
2116 Fl-R
"A/FP,READ/1"
;FlDATING POINT READ
2117 Fl-RW
"A/fP,READ/1,TEST/1"
2118 Fl-I
"A/~PI,READ/O"
;FLOATING POINT IMMEDIATE
2119 DBl Fl-R "A/DFP,READ/1"
"A/lOT"
;CHECK FOR 10 LEGAL
2120 lOT
2121
2122 ;"B FIELO" MACROS SAY HOW TO STORE RESULTS
2123
2124 AC
"B/AC"
"B/MEM,TEST/1,COND FUNC/1"
2125 M
2126 B
"B/BOTH,TEST/1,COND FUNC/1"
2127 5
"B/SElF,TEST/1,COND FUNC/1"
2128 DAC
"B/DBLAC"
"B/DBlB,TEST/1,COND FUNC/1"
2129 DBl B
"FL-B/AC"
FLOATING POINT
2130 Fl-AC
FLOATING POINT TO MEMORY
2131 Fl-MEM "Fl-B/MEM,TEST/1,CDND FUNC/1"
FLOATING POINT TO BOTH
2132 Fl-BOTH "FL-B/BOTH,TEST/1,COND FUNC/1"
"ROUND/1"
FLOATING POINT ROUNDED
2133 ROUND
2134
2135
2136 ; CONTROL BITS
2137 W TEST "TEST/1"
2138 AC DISP "ACDISP/1"
2139
.UCODE
2140

Page 60

T10KL.MCR[10,1141]
SIMPLE .MIC[ 10,1141]

U
U
U
U
U

0000,
0002,
001:5,
0053,
0061,

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0002,3771,0012,4374,4007,0700,0000,0037,7777
0013,3445,1212,4174,4007,0700,0000,0000,0000
0053,3551,1212,4374,4007,0700,0000,0000,0001
0061,3447,1200,4174,4007,0700,0000,0000,0000
0071,3771,0015,4374,4007,0700,0000,0000,0001

U 0071, 0003,4751,1207,4374,4007,0700,0010,0000,0001
U 0003, 0100,4751,1203,4374,4007,0700,0000,0037,6000
U 0100, 0106,3333,0003,7174,4007,0700,0400,0000,0227
U 0106, 0110,4221,0011,4364,4277,0700,0200,0000,0010
U 0110, 0125,4221,0010,4174,4477,0700,0000,0000,0000
U 0125, 0131,4221,0013,4174,4257,0700,0000,0000,0000
U 0131. 0136,3333,0013.7174,4007.0700.0400.0000,0230
U 0136. 0162,3333,0013.7174,4007,0700,0400,0000,0300
U 0162, 0212.3333.0013,7174.4007,0700,0400,0000,0301
U
U
U
U
U
U
U
U

0212.
0214,
0223,
0226.
0235,
0242,
0244,
0313.

0214.4223,0000,1174,4007,0700.0400,0000,1443
0223.3333,0007.1174,4007,0700,0400.0000,1444
0226,4221,0003,4174,4007,0700,2000.0071,0023
0235.3333,0007,7174,4007,0700,0400,0000,0344
0242,4223,0000,7174,4007,0700,0400,0000,0373
0244,3771,0002,4374,4007,0700,0000,0000,0344
0313,3771,0006.4374.4007,0700,0000,0000,0373
0010,0111,0706,4174,4007,0700,0200,0000,0010

U
U
U
U

0010,
0012.
0315.
0323.

0560.3771,0004, 1276.6007,0701,0010,0000,1444
0315,3333.0005.6174.4007,0700,0400,0000.0000
0323.0111,0702,4174,4007,0700,0200,0000,0010
0224,3333,0004,6174,4007,0630,2400,0060,0000

U 0224, 0313.4443.0000,4174,4007.0700,0000,0000,0000
U 0225, 0140,6553.0500,4374,4007,0321.0000,0033,0656
U 0140, 0104,4751.1217 ,4374,4007 ,0700,0000,0000,1005

\

2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193

KS10 MICROCODE V124, 27-JUL-84
DISPATCH ROM MACROS
.TOC

Page 61

.BIN
"POWER UP SEQUENCE"
.UCODE

;HERE IS WHERE WE FIRE THE MACHINE UP DURING POWER ON
0:

3:

[MASK] #, #/377777
[MASK] [MASK]*2
[MASK]-[MASK].OR.#.#/l
[MAG] [MASK]*.5
[XWD1T_#, #/1

;BUILD A MASK WITH
; A ONE IN 36-BITS AND 0
; IN BITS -2,-1.36.37
;MAKE CONSTANT
;CONSTANT WITH 1 IN EACH
; HALF WORD
[ONE] 0 XWD [1],
;THE CONSTANT 1
CALL/1
;RESET STACK (CAN NEVER RETURN
; TO WHERE MR LEFT US)
[ARJ_O XWD [376000]
;ADDRESS OF HALT STATUS
; BLOCK
WORK[HSBADR] [AR]
;SAVE FOR HALT LDOP
[UBR]_O, ABORT MEM CYCLE ;CLEAR THE UBR AND RESET
; MEMORY CONTROL LOGIC
[EBR]_O, LOAD AC BLOCKS ;CLEAR THE EBR AND FORCE
; PREVIOUS AND CURRENT AC
; BLOCKS TO ZERO
[FLG]_O, SET APR ENABLES ;CLEAR THE STATUS FLAGS AND
; DISABLE ALL APR CONDITIONS
WORK[APR] [FLG]
;ZERO REMEMBERED ENABLES
WORK[TIMEO] [FLG]
WORK[TIME1] [FLG]

;CLEAR TIME BASE

AC[BINO] 0
AC[BIN1j-1
[AR] 0, SC 19.
WORK[DECLOT 1
WORK[DECHI]-O
[HR] #, WORK/DECLO
[BRXT #, WORK/DECHI
[BRX]-[BRX]+1. LOAD VMA
[ARX]-AC[BIN1].
CALL [DBSLOW]
RAM [BR]
[HRT [HR]+1. LOAD VMA
RAM_[ARX], STEP SC

;COMPUTE A TABLE OF POWERS OF
; TEN
;WE WANT TO GET 22 NUMBERS
;STARTING WITH 1

.IF/FULL

;ADDRESS OF LOW WORO
;ADDRESS OF HIGH WORD
TENLP:
;ADDRESS THE HIGH WORD
=0*
;LOW WORD TO ARX
;MULTIPLY BY TEN
;SAVE HIGH WORD
;WHERE TO STORE LOW WORD
;STORE LOW WORD AND SEE IF
; WE ARE DONE
J/TENLP
;NOT YET--KEEP GOING
=0
[BRj.XOR.#. 3T, SKIP ADL.EQ.O. #/330656
DID WE GET THE RIGHT ANSWER
IN THE TOP 18 BITS?
=0**0
HALT [MULERR]
NO--CPU IS BROKEN
.ENDIF/FULL

T10KLQ[ 10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0141, 3622,4221,0014,4174,4007,0700,0010,0000,0000

U 0151, 0324,4751,1217,4374,4007,0700,0000,0000,0120

U 0324, 0332,4221,0001,4174,4467,0700,0000,0000,0004
U 0332, 0116,3771,0017,4374,4007,0700,0000,0000,0000

; 2194
; 2195
; 2196
;;2197
; ; 2198
;: 2199
; ;2200
2201
2202
2203
2204
2205
2206
2207
2208
; 2209
;; 2210
; ; 2211
;;2212
; ; 2213
;; 2214
2215
2216
2217
2218
2219
2220
2221
2222
2223

KS10 MICROCODE V124, 27-JUL-84
POWER UP SEQUENCE
=0**1
=1**1

[PI]_O, CALL [LOADPI]

.IFNOT/FULL
[ARX] 0
[BR] 0
[BRXT 0
.ENDIF/FULL [T1]_0 XWD (120)

Page 62
;CLEAR PI STATE
;CLEAR REGISTERS SO NO
;PARITY ERROR HAPPEN
;WRITTEN WHILE COMPUTING POWERS
;OF 10
;RH OF 120 CONTAINS START ADDRESS
; FOR SIMULATOR. FOR THE REAL
; MACHINE IT IS JUST DATA WITH
; GOOD PARITY.

;THE CODE UNDER .IF/SIM MUST USE THE SAME ADDRESS AS THE CODE
; UNDER .IFNOT/SIM SO THAT MICROCODE ADDRESSES DO NOT CHANGE BETWEEN
; VERSIONS
.IF/SIM
VMA [T1], START READ
;READ THE WORD
MEM-READ, [pe]_MEM, HOLD LEFT, J/START
;GO FIRE UP SIMULATOR AT THE
; PROGRAMS STARTING ADDRESS
.IFNOT/SIM
[PC] 0,
;CLEAR LH OF PC
LEAVE USER,
;ENTER EXEC MODE
LOAD FLAGS
;CLEAR TRAP FLAGS
[T1) #, HALT/POWER,
;LOAD T1 WITH POWER UP CODE
J/PWRON
;ENTER HALT LOOP. DO NOT STORE
; HALT STATUS BLOCK
.ENDIF/SIM

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1400, 0110,3443,0100.4174,4156,4700.0200,0014,0012
U 1401, 0110,0111,0701,4170,4156,4700,0200,0014,0012
U 0260, 0110,0111,0701,4170,4156,4700,0200.0014,00,12
U 0261, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U 0101, 3510,4751,1203,4374,4367,0700,0000,0000,0423
U 0102, 3510,4751,1203,4374,4367,0700,0000,0000,0422
U 0103, 3510,4751,1203,4374,4367,0700,0000,0000,0421
U 0105, 0104,4751,1217,4374,4007,0700,0000,0000,0002

U 0107, 0117,3443,0100,4174,4007,0700,0200,0014,0012

U 0111, 3510,4751,1203,4374,4367,0700,0000,0000,0423
U 0112, 3510,4751,1203,4374,4367,0700,0000,0000,0422
U 0113, 3510,4751,1203,4374,4367,0700,0000,0000,0421
U 0115, 0104,4751,1217,4374,4007,0700,0000,0000,0002

U 0117, 0343,3771,0002,4365,5617,0700,0200,0000,0002

2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239.
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273

KS10 MICROCODE V124, 27-JUL-84 Page 63
THE INSTRUCTION LOOP -- START NEXT INSTRUCTION
.TOC

"THE INSTRUCTION LOOP -- START NEXT INSTRUCTION"

;ALL INSTRUCTIONS EXCEPT JUMP'S AND UUO'S END UP HERE
1400:
DONE:
DONE
1401:
VMA [PC]+1, NEXT INST FETCH, FETCH
=0
SKIP:
VMA [PC]+l, NEXT INST FETCH,. FETCH
DONE
;16-WAY DISPATCH BASED ON NEXT INSTRUCTION
=0000
NICOND:
=0001
[AR]_O XWD [423],
;TRAP TYPE 3
; GET ADDRESS OF TRAP INST
TURN OFF PXCT,
;CLEAR PXCT
J/TRAP
;PROCESS TRAP (INOUT.MIC)
[AR] 0 XWD [422],
=0010
;TRAP TYPE 2
TURN-OFF PXCT,
;CLEAR PXCT
J/TRAP
;GO TRAP
[AR] 0 XWD [421],
;TRAP TYPE 1
=0011
TURN-OFF PXCT,
;TURN OF PXCT
J/TRAP
;GO TRAP
=0101
HALT [CSL]
; "HA" COMMAND TO 8080
=0111
VMA [PC],
START:
;LOAD VMA
FETCH,
;INOICATE INSTRUCTION FETCH
J/XCTGO
;GO GET INSTRUCTION
;THE NEXT SET OF CASES ARE USED WHEN THERE IS A FETCH
; IN PROGESS
=1000
NICOND-FETCH:
=1001
[AR] 0 XWD [423],
;TRAP TYPE 3
TURN-OFF PXCT,
J/TRAP
=1010
[AR] 0 XWD [422],
;TRAP TYPE 2
TURN-OFF PXCT,
J/TRAP
= 1011
[AR] 0 XWD [421],
;TRAP TYPE 1
TURN-OFF PXCT,
J/TRAP
= 1101
HALT [CSL]
;"HA" COMMAND TO 8080
= 1111
XCTGD:
MEM READ,
WAIT FOR MEMORY
[HRj MEM,
PUT DATA IN HR
LOAO-'INST,
LOAD IR 8< AC #
J/INCPC
GO BUMP PC

/

~!
T10KLO[ 10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0343, 0201,0111.0701,2170,4366.6700,0200,0010,0010

U 0201'. 0110,0551,0201,2270,4156,4700,0200,0014,0012

U 0203, 0110.3441,0201,4170,4156,4700,0200,0014,0012

U 0205. 0346,0551,0202,2270,4007,0700,0200,0004,0012

U 0207, 0346,3443,0200,4174,4007,0700,0200,0004,0012

2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310

KS10 MICROCODE V124, 27-JUL-84 Page 64
THE INSTRUCTION LOOP -- START NEXT INSTRUCTION
;HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR
; EFFECTIVE ADDRESS LOGIC TO SETTLE
VMA [PC]+1,
INCPC:
;ADDRESS OF NEXT INSTRUCTION
FETCH/1,
;INSTRUCTION FETCH
TURN OFF PXCT.
;CLEAR EFFECT OF PXCT
;DISPACTH OF INDEXING AND @
EA MODE DISP
;MAIN EFFECTIVE ADDRESS CALCULATION
=0001
EACALC:
THE FIRST 4 CASES ARE USED ONLY FOR JRST
;CASE 0 -- JRST O,FOO(XR)
[PC] [HR]+XR,
HOLD LEFT,
LOAD VMA, FETCH,
NEXT INST FETCH

UPDATE PC
ONLY RH
START GETTING IT
START NEXT INST

;CASE 2 -- JRST O,FOO
[PCL[HR] ,
HOLD LEFT,
LOAD VMA. FETCH,
NEXT INST FETCH

NEW PC
ONLY RH
START GETTING IT
START NEXT INST

;CASE 4 -- JRST O,@FOO(XR)
[HR]_[HR]+XR,
START READ,
LOAD VMA.
J/FETIND

ADD IN INDEX
START TO FETCH @ WORD
PUT ADDRESS IN VMA
GO DD MEM WA IT (FORGET ABOUT JRST)

;CASE 6 -- JRST O.@lFOO
VMA_[HR] .
START READ.
J/FETIND

LOAD UP ADDRESS
START TO FETCH @ WORD
GO DO MEM WAIT (FORGET ABOUT JRST)

T 1OK l . MC R [ 10, 1. 14 1 ]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0211, 0213,0551,0202,2270,4007,0700,0000,0000,0000

U 0213, 0000,5741,0203,4174,4001,3700,0200,0000,0342

U 0215, 0346,0551,0202,2270,4007,0700,0200,0004,0112

U 0217, 0346,3443,0200,4174,4007,0700,0200,0004,0112

U 0346, 0363,3771,0002,4361,5217,0700,0200,0000,0102

U 0363, 0201,3443,0100,2174,4006,6700,0200,0010,0010

2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340·
2341
2342
2343
2344
2345
2346
2347

KS10 MICROCODE V124, 27-JUL-84 Page 65
THE INSTRUCTION LOOP -- START NEXT INSTRUCTION
;THESE 4 ARE FOR THE NON-JRST CASE
;CASE 10 -- JUST INDEXING
INDEX:
[HR] [HR]+XR,
HOLD-LEFT

;ADD IN INDEX REGISTER
;JUST DO RIGHT HALF

;CASE 12 -- NO INDEXING OR INDIRECT
NDMDD:
[AR) EA,
; PUT 0" E IN AR
PXCT-DATA, AREAD
;00 ONE OR MORE OF THE FOLLWING
; ACCORDING TO THE DROM:
;1. LOAD VMA
;2. START READ OR WRITE
;3. DISPATCH TO 40-57
OR DIRECTLY TO EXECUTE CODE
;CASE 14 -- BOTH INDEXING AND INDIRECT
BOTH:
[HR] [HR]+XR,
;ADD IN INDEX REGISTER
LDAD-VMA, PXCT EA,
;PUT ADDRESS IN VMA
START READ, J/FETIND
;START CYCLE AND GO WAIT FOR DATA
;CASE 16 -- JUST INDIRECT
INDRCT: VMA [HR],
START READ. PXCT EA
;HERE TO FETCH INDIRECT WORD
FETIND: MEM READ, [HR] MEM.
HOLD LEFT,
LOAD IND EA
XCT2:

VMA [PC].
FETCH/1,
EA MODE DISP,
J/EACALC

;LOAD ADDRESS OF @ WORD
; START CYCLE

GET DATA WORD
JUST RIGHT HALF
RELOAD @ AND INDEX FLOPS
PUT PC BACK IN VMA
TURN ON FETCH FLAG
REDO CALCULATION FOR
NEW WORD

~,,

~
\
j
T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-J0LY-1984

MICRO 31(254)

U 0040, 0000,3771,0003,4365,5001,2700,0200,0000,0002

U 0041, 0000,3771,0003,0276,600.,2700,0000,0000,0000

U 0042, 0366,3771,0003,4365,5007,0700,0200,0000,0002
U 0366, 0371,0111,0702,4170,4007,0700,0200,0004,0312
U 0371, 0000,3771,0004,4365,5001,2700,0200,0000,0002
U 0043, 0401,3771,0003,0276,6007,0700,0000,0000,0000
U 0401, 0000,3771,0004,1276,6001,2701,0000,0000,1441

U 0044, 0000,3333,0003,4174,4001,2530,3000,0041,5777
U 0045,0406,3772,0000,1275,5007,0701,0000,0000,1441
U 0406, 0431,3776,0005,0274,4007,0701,0000,0000,0000
U 0431. 0044,3446,0505,4174,4007,0700,0000.0000.0000

KS10 MICROCODE V124, 27-JUL-84 Page 66
THE INSTRUCTION LOOP -- FETCH ARGUMENTS

2348
.TOC
"THE INSTRUCTION LOOP -- FETCH ARGUMENTS"
2349
;HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH
2350
;CASE 0 -- READ (E)
2351
2352 40:
MEM READ,
; WAIT FOR DATA
2353
[AR] MEM,
;PUT WORD IN AR
INST-DISP
2354
;GO TO EXECUTE CODE
2355
;CASE
-- WRITE (E)
2356
2357 41:
[AR] AC,
;PUT AC IN AR
INST-DISP
2358
;GO TO EXECUTE CODE
2359
2360 ;CASE 2 - - DOUBLE READ
MEM READ,
2361 42:
; WAIT FOR DATA
2362
;PUT HI WORD IN AR
[ARLMEM
VMA_[HR]+1, PXCT DATA,
2363
;POINT TO E+1
START READ
2364
;START MEMORY CYCLE
MEM READ,
2365
; WAIT FOR DATA
2366.
[ARX] MEM,
;LOW WORD IN ARX
2367
;GO TO EXECUTE CODE
INST DISP
2368
2369 ;CASE 3 - - DOUBLE AC
2370 43:
[AR) AC
;GET HIGH AC
2371
[ARX) AC [ 1 J.
;PUT C(AC+1) IN ARX
2372
INST DISP
;GO TO EXECUTE CODE
2373
2374 ;CASE 4 -- SHIFT
2375 44:
2376 SHI FT : READ [AR],
;LOOK AT EFFECTIVE ADDRESS
2377
SKIP OP18,
;SEE IF LEFT OR RIGHT
2378
SC SHIFT-1,
;PUT NUMBER OF PLACES TO SHIFT IN
; SC AND FE
LOAD FE,
2379
2380
INST DISP
;GO DO THE SHIFT
2381
2382
;CASE 5 -- SHIFT COMBINED
2383 45:
Q AC[1)
PUT LOW WORD IN Q
2384
[BR) AC*.5 LONG
PUT AC IN BR & SHIFT BR!O RIGHT
[BR]-[BR]*.5 LONG,
2385
SHIFT BR!O 1 MORE PLACE RIGHT
2386
J/SHIFT
GO DO SHIFT SETUP
2387

/

T10KL.MCR[10,1141]
SIMP LE . MI C [ 10, 1141 ]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0046, 0304,3770,0303,4344,4007,0700,0000,0000,0000

U 0047, 0304,3771,0003,4365,5007,0700,0200,0000,0002

U 0304, 0434,3333,0003,4174,4007,0520,3010,0041,2000
U 0305, 0000,4221,0004,4'174,4001,2700,0000,0000,0000

U 0050, 0000,3770,0103,4365,5001,2700,0200,0014,0012

U 0051, 0372,3771,0005,4365,5177,0521,3000,0041,2000
U 0372, 0445,0111,0703,4174,4007,0700,0200,0004.,0312
U 0373, 0432,0111,0703,4174,4007,0700,0200,0004,0312
U 0432, 0451,3551,0505,4374,0007,0700,0000,0077,7000
U 0445, 0451,4551,0505,4374,0007,0700,0000,0000,0777
U 0451, 0452,4557,0004,4365,5007,0701,0200,0000,0002
U 0452, 0467,3447,0503,4174,4007,0700,0000,0000,0000

U 0467, 0471,3447,0303,4174,4007,0700,2000,0011,0000
U 0471, 0000,3443,0100,4174,4001,2700,0200,0014,0012

2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
; 2420
; '2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432

KS10 MICROCODE V124, 27-JUL-84 Page 67
THE INSTRUCTION LOOP -- FETCH ARGUMENTS
;CASE 6 -- FLOATING POINT IMMEDIATE
46:
[AR] [AR] SWAP,
;FLIP BITS TO LEFT HALF
J/FPRO
;JOIN COMMON F.P. CODE
;CASE 7 -- FLOATING POINT
47:
MEM, READ,
[ARLMEM
=0
FPRO:
READ [AR],
SC EXP, FE_EXP,
SKIp DPO,
CALL [ARSIGN]
[ARX] 0,
FPR 1 :
INST OISP
;CASE 10 -- READ THEN PREFETCH
50:
MEM READ,
[AR]_MEM THEN FETCH,
INST DISP

;WAIT FOR MEMORY (SPEC/MEM WAIT)
;DATA INTO AR
;LOOK AT NUMBER
;PUT EXPONENT IN SC & FE
;SEE IF NEGATIVE
; EXTEND AR SIGN
;ZERO ARX
;GO TO EXECUTE CODE
; WAIT FOR DATA
;PUT DATA IN AR AND START A REAQ
; VMA HAS PC+1.
;GO DO IT

;CASE 11 -- DOUBLE FLOATING READ
51:
SPEC MEM READ,
;WAIT FOR DATA
[BR] MEM,
;HOLD IN BR
SC EXP, FE EXP,
;SAVE EXPONENT
SKIp DPO, 3T
;SEE IF MINUS
=0
[AR] [AR]+1,
;POINT TO E+1
LOAD-VMA, PXCT DATA,
;PUT IN VMA
START READ, J/DFPR1
;GO GET POSITIVE DATA
[AR] [AR]+1,
;POINT TO E+1
LOAD-VMA, PXCT DATA,
;PUT IN VMA
START READ
;GO GET NEGATIVE DATA
[BR] -SIGN,
;SMEAR MINUS SIGN
J/DFPR2
;CONTINUE BELOW
DFPR1:
[BR] ~SIGN
;SMEAR PLUS SIGN
DFPR2: MEM READ, 3T,
;WAIT FOR MEMORY
[ARX] (MEM.AND.[MAG])*.5,
ASH
;SET SHIFT PATHS
[AR] [BR]*.5
;SHIFT AR
[AR]-[AR]*.5,
;COMPLETE SHIFTING
SC FI
;PAGE FAIL MAY HAVE ZAPPED
; THE SC.
VMA [PC], FETCH,
;GET NEXT INST
INST DISP
;DO THIS ONE

tj

~
/

T10KLQ[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0052, 0402.4443,0000,4174.4007.0040,0000,0000.0000
U 0402, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 0403, 0000,4443.0000,4174,4001,2700,0000,0000,0000

U 0434, 0001,4551.0303,4374,0004,1700,0000,0000,0777
U 0435, 0001,3551,0303,4374,0004,1700,0000,0077,7000

2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459

K$1d MICROCODE V124, 27-JUL-84 Page 68
THE INSTRUCTION LOOP
FETCH ARGUMENTS
; CASE 12 - - TEST FOR 10 LEGAL
52:
SKIP 10 LEGAL
=0
UUO
INST DISP
;CASE 13
;53:

RESERVED

;CASE 14
;54:

RESERVED

;CASE 15
;55:

RESERVED

;CASE 16
;56:

RESERVED

IS 10 LEGAL?
NO
YES--DO THE INSTRUCTION

;CASE 17 - - RESERVED
;57:
;EXTEND AR SIGN.
;CALL WITH SKIP ON ARO, RETURNS 1 ALWAYS
=0·
ARSIGN: [ARC+SIGN, RETURN [1]
;EXTEND + SIGN
[AR] -SIGN, RETURN [1]
; EXTEND - SIGN

T10KL.MCR[10,1141]
SIMPLE. MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1504, 0454,4443,0000,4174,4007,0360,0000,0000,0000

U 1505, 1515,3440,0404,1174,4007,0700,0400,0000,1441

U 1506, 1505,3333,0003,4175,5007,0,701,0200,0000,0002

2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500

KS10 MICROCODE V124, 27-JUL-84 Page 69
THE INSTRUCTION LOOP -- STORE ANSWERS
.TOC

"THE INSTRUCTION LOOP -- STORE ANSWERS"

;NOTE:

lNSTRUCTIONS WHICH STORE IN BOTH AC AND MEMORY
(E.G. ADDB, AOS) MUST STORE IN MEMORY FIRST
SO THAT IF A PAGE FAIL HAPPENS THE AC IS
STILL INTACT.

1500:
BWRITE:

,
;BASE ADDRESS OF BWRITE DISPATCH

;CASE 0
; 1500:

RESERVED

;CASE 1
; 1501 :

RESERVED

;CASE 2
; 1502:

RESERVED

;CASE 3
; 1503:

RESERVED

;CASE 4 -- STORE SELF
1504:
STSELF: SKIP IF ACO,
J/STBTH1

; IS AC # ZERO?
;GO TO STORE BOTH CASE

;CASE 5 -- STORE DOUBLE AC
1505:
DAC:
AC[ 1] [ARX],
J/STAC

;STORE AC 1
;GO STORE AC

;CASE 6 -- STORE OOUBLE BOTH (KA10 STYLE MEM_AR ONLY)
1506:
STDBTH: MEM WRITE,
WAIT FOR MEMORY
MEM [AR],
STORE AR
J/DAC
NOW STORE AC & AC+1
;CASE 7 -- RESERVED
; 1507:

/

T10KLQ[ 10, 1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1514, 0104,4751,1217,4374,4007,0700,0000,0000,1000

U 1515, 0100.3440;0303.0174.4156,4700,0400.0000.0000

U 1516. 1400.3333.0003.4175,5007.0701.0200,0000.0002

U 1517. 1515.3333,0003.4175.5007.0701.0200.0000.0002

U 0454, 1515,3333,0003,4175,5007,0701.0200,0000,0002
U 0455. 1400,3333.0003.4175.5007.0701.0200.0000.0002

2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
; 2542
; 2543

KS10 MICROCODE V124. 27-JUL-84 Page 70
THE INSTRUCTION LOOP -- STORE ANSWERS
;CASE 10
; 1510:

RESERVED

;CASE 11
; 1511 :

RESERVED

;CASE 12
;1512:

RESERVED

;CASE 13
;1513:

RESERVED

;CASE 14
1514:
FL-BWRITE:

RESERVED

HALT

;THE NEXT 4 CASES ARE ALSO
;USED IN FLOATING POINT
[BW14]

;CASE 15 - - STORE AC
1515:
STAC:
AC [ARl.
NEXT INST

;STORE AC
;00 NEXT INSTRUCTION

;CASE 16 - - STORE IN MEMORY
1516:
STMEM:
MEM WRITE.
MEM [AR].
J/DONE

;WAIT FOR MEMORY
;STORE AR
;START FETCH OF NEXT

;CASE 17 -- STORE BOTH
1517:
STBOTH: MEM WRITE.
MEM [ARl.
J/STAC

;WAIT FOR MEMORY
;STORE AR
;NOW STORE AC

=0

STBTH1: MEM WRITE.
MEM [AR].
J/STAC
STORE: MEM WRITE,
MEM [AR],
J/DONt:

;WAIT FOR MEMORY
;STORE AR
;NOW STORE AC
;WAIT FOR MEMORY
;STORE AC
;START NEXT INST

T10KL.MCR[10,1141]
SIMPLE .MIC[ 10,1141]

0
0
0
0

0200, 1015,1515,1100
0201, 0015,1515,3000
0202, 0116,1404,0700
0203, 0004,1504,1700

0
0
0
0

0204, 1015,1402,1100
0205, 0015,1402,3000
0206, 0116,1402,0700
0207, 0004,1402,1700

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31( 254)

0 0210, 1015,1405,1100
0 0211," 0015,1405,3000
D

0212, 0116,1405,0700

0 0213, 0004, 1405, 1700
0
0
0
0

0214, 1015, 1403, 1100
0215, 0015,1515,3000
0216, 0116,1403,0700
0217, 0004,1403,1700

U 1402,

1500,3770,0303,4344,4003,7700,0200,0003,0001

U 1403,

1404,3333,0003,4174,4007,0520,0000,0000,0000

U 1404,

1500,4443,0000,4174,4003,7700,0200,0003,0001

U 1405,

1404,2441,0303,4174,4467,0701,4000,0001,0001

2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580

KSlO MICROCODE V124, 27-JUL-84
MOVE GROUP
.TOC

Page 71

"MOVE GROUP"
.OCOOE
R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

J/STAC
J/STAC
J/MOVE
J/STSELF

204:

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

J/MOVS
J/MOVS
J/MOVS
J/MOVS

;MOVS
;MOVSI
; MOVSM
;MOVSS

210:

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

J/MOVN
J/MOVN
J/MOVN
J/MOVN

;MOVN
;MOVNI
; MOVNM
; MOVNS

214:

R-PF,
I-PF,
W,
RW,
.UCOOE

AC,
AC,
M,
S,

J/MOVM
J/STAC
J/MOVM
J/MOVM

;MOVM
;MOVMI "
; MOVMM
; MOVNS

200:

MOVE
MOVEI
MOVEM
MOVES

1402:
MOVS:

[ARl [ARl SWAP, EXIT

1403:
MOVM:

READ [ARl, SKIP OPO, J/MOVE

1404:
MOVE:
1405:
MOVN:

EXIT
[AR}_-[ARl,
AD FLAGS, 3T,
J/MOVE

NEGATE NUMBER
UPDATE FLAGS
STORE ANSWER

,~
,j

T10KLO[ 10,1141.]
SIMPLE.MIC[10,1141]

15:34 27-vULY-1984
15:31 27-vULY-19S4

MICRO 31(254)

D 0250, 0015,1406,1500

U 1406, 0506,3771,0005,0276,6007,0700,0200,0003,0002
U 0506, 1515,3333,0005,4175,5007,0701,0200,0000.0002

2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595

KS1V MICROCODE V124, 27-vUL-84
EXCH
.TOC

"EXCH"

250:

.DCODE
R,W TEST,
.UCODE

1406:
EXCH:

[BR]_AC,
START WRITE
MEM WRITE,
MEM [BR],
v!STAC

AC,

Page 72

v!EXCH

;COPY AC TO THE BR
;START A WRITE CYCLE
;COMPLETE WRITE CYCLE
;STORE BR (AC) IN MEMORY
;STORE THE AR IN AC. NOTE: AR
; WAS LOADED WITH MEMORY OPERAND
; AS PART OF INSTRUCTION DISPATCH

/

T10KL.MCR[ 10,1141]
SIMPLE.MIC[10,1141]

0
0
0
0

0500,
0501,
0502,
0503,

1015,1410,1100
001 5, 14 10 , 3000
0016,1407,1700
0004,1404,1700

0 0504,

1015,1411.1100
D 0505, 0015 , 14 11 , 3000
0 0506, 0016,1413,1700
0 0507, 0004,1414,1700
D 0510,
~
ii

b

1015,1432,1100

0 0511, 0015,1432,3000

D 0512, 0116,1432,0700
0 0513, 0004,1432,1700

;g
~

c

il'

~

0 0514, 1015,1424,1100
0 0515, 0015,1424,3000

D 0516, 0116,1424,0700

£

0 0517, 0004,1424,1700

E

D 0520,
D 0521,

~

1015, 1433, 1100
0015,1433,3000
0 0522, 0116,1433,0700
0 0523, 0004,1433,1700

~

D

/1
~

1
~

i

1l
~

.t

1015,1425,1100
0525, 0015,1425.3000
0 0526. 0116,1425,0700
0 0527, 0004,1425,1700
0 0524,

1015,1430,1100
0015,1430,3000
0116,1430,0700
0004,1430,1700

0
0
0
0

0530,
0531,
0532,
0533,

0
0
0
0

0534, 1015,1422,1100
0535, 0015.1422,3000
0536, 0116.1422,0700
0537, 0004,1422,1700

15:34 27~JUl.Y-1984
15:31 27-JULY-1984

MICRO 31(254)
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
:2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639

KS10 MICROCODE V124, 27-JUl.-84
HALFWORD GROUP
.TOC

500:

510:

"HALFWORD GROUp·
DESTINATION LEFT HALF
.DCODE
R-PF,
I-PF,
RW,
RW,

AC,
AC,
M,
S,

J/HLL
J/HLL
J/HRR
J/MOVE

R-PF,
I-PF,
RW,
RW,

AC,
AC,
M,
S,

J/HRL
J/HRL
J/HRLM
J/HRLS

R.-PF,
FPF.
W;,
RW\,

AC,
AC,
M,
S,

J/HLLZ
J/HLLZ
J/HLLZ
J/HLLZ

R-PF
I-PF:
W,
RW,

AC,
AC,
M,
S,

J/HRLZ
J/HRLZ
J/HRLZ
J/HRLZ

R-PF,
I-PF,
W,
RI'I,

AC,
AC,
M,
S,

J/HLLO
J/HLLO
J/HLLO
J/HLLO

R-PF,
I-PF,
W,
RW,

AC.
AC,
M,
S,

·J/HRLO
J/HRLO
J/HRLO
J/HRLO

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

J/HLLE
J/HLLE
J/HLLE
J/HLLE

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

J/HRLE
J/HRLE
J/HRLE
J/HRLE

\

520:

530':

Page 73

;HLLM
;HLLS

HRR EXCEPT FOR STORE
MOVES

0

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

D
D
D
D

0540,
0541,
0542,
0543,

1015,1407,1100
0015,1407,3000
0016,1410,1700
0004,1404,1700

D 0544, 1015,1412,1100
D 0545, 0015,1412,3000
D 0546, 0016,1415,1700
0 0547, 0004,1416,1700
0
0
0
0

0550,
0551,
0552,
0553,

1015,1420,1100
0015,1420,3000
0116,1420,0700
0004,1420,1700

0
0
0
0

0554,
0555,
0556,
0557,

1015,1426,1100
0015,1426,3000
0116,1426,0700
0004,1426,1700

0
0
0
0

0560,
0561,
0562,
0563,

1015,1421,1100
0015,1421,3000
0116,1421,0700
0004,1421,1700

0
0
0
0

0564,
0565,
0566,
0567,

1015,1427,1100
0015,1427,3000
0116,1427,0700
0004,1427,1700

D 0570, 1015,1417,1100
0 0571, 0015, 14 17 , 3000
0 0572, 0116,1417,0700
0 0573, 0004,1417,1700
0
0
0
0

0574,
0575,
0576,
0577,

1015,1423,1100
0015,1423;3000
0116,1423,0700
0004,1423,1700

.~

~.
15:34 27 - uUL Y·-1984
15:31 27-uULY-1984

MICRO 31(254)
2640
2641
2642
2643
.2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683

KS10 MICROCODE V124, 27-uUL-84
HALFWORD GROUP

Page 74

DESTINATION RIGHT HALF
540:

550:

560:

570:

R-PF,
I-PF,
RW,
RW,

AC,
AC,
M,
S,

u/HRR
u/HRR
u/HLL
u/MOVE

R-PF,
I-PF,
RW,
RW,

AC,
AC,
M,
S,

u/HLR
u/HLR
u/HLRM
u/HLRS

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

u/HRRZ
u/HRRZ
u/HRRZ
u/HRRZ

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

u/HLRZ
u/HLRZ
u/HLRZ
u/HLRZ

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

u/HRRO
u/HRRO
u/HRRO
u/HRRO

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

u/HLRO
u/HLRO
u/HLRO
u/HLRO

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

u/HRRE
u/HRRE
u/HRRE
u/HRRE

R-PF,
I-PF,
W,
RW,

AC,
AC,
M,
S,

u/HLRE
u/HLRE
u/HLRE
u/HLRE

.UCODE

;HRRM
;HRRS

HLL EXCEPT FOR STORE
MOVES

T10KL.MCR[10,1141]
SIMPLE.MIC{10,1141]

15:34 27-JULY-1984
15:31 27-JULY-19B4

MICRO 31(254),

U 1407, 1500,3771,0003,0276,0003,7700,0200,0003,0001
;

U 1410, 1500,3771,0003,0270,6003,7700,0200,0003,0001

U 1411 , 1410,3770,0303,4344,4007,0700,0000,0000,,0000
U 1412, 1407,3770,0303,4344,4007,0700,0000,0000,0000
U 1413, 0511,3770,0303,4344,4007,0700,0000,0000,0000
U 0511, 1402,3771,0003,0270,6007,0700,0000,0000,0000
U 1414, 1500,3770,0303,4344,0003,7700,0200,0003,0001
U 1415, 0512,3770,0303,4344,4007.0700,0000,0000.0000
U 0512, 1402,3771,0003,0276,0007,0700,0000,0000.0000
U 1416, 1500,3770,0303,4340,4003,7700,0200,0003,0001

2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
27.13
2714
2715
2716
2717
2718
27'19
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731

KS10 MICROCODE V124, 27-JUL-84
HALFWORO GROUP

Page 75

;FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE
;THE AR CONTAINS THE MEMORY OPERAND. SO WE WANT TO PUT THE LH OF
; AC INTO AR TO DO A.HRR. OBVIOUS THING FOR HLL.
1407:
HRR:
[AR]_AC,HOLD RIGHT,EXIT
1410:
HLL:
[AR]_AC,HOLD LEFT,EXIT
;HRL FLOW:
;AT HRL AR CONTAINS:

!------------------!------------------!
!
LH OF (E)
RH OF (E)
!
!------------------!------------------!
!------~-----------!------------------!

RH OF (E)

LH OF (E)

!------------------!------------------!
;AT HLL, AR_AC,HOLD LEFT GIVES:
!----~-------------!------------------!

RH OF (E)

!

RH OF AC

!

!------------------!------------------!

;THE EXIT MACRO CAUSES THE AR TO BE STORED IN AC (AT STAC).
; THE REST OF THE HALF WORD IN THIS GROUP ARE VERY SIMILAR.
1411 :
HRL:
1412:
HLR:
1413:
HRLM:
1414:
HRLS:
1415:
HLRM:
1416:
HLRS:

tAR] [AR] SWAP,J/HLL
[AR]_[AR] SWAP,J/HRR
[AR] [AR] SWAP
[AR]=AC,HOLD LEFT,J/MOVS
[AR] [AR] SWAP,HOLD RIGHT,EXIT
[AR] [AR] SWAP
[ARJ=AC,HOLD RIGHT,J/MOVS
[AR] [AR] SWAP,HOLD LEFT,EXIT

T10KL~[10'1141)

5IMPLE.MIC(10,1141)

15:34"27-JULV-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1417, 1420,3333,0003,4174,4007,0530,0000.0000,0000
U 1420, 1500,5731,0003,4174,4003,7700,0200,0003,0001
U 1421,

1500,5431,1203,4174,4003,7700,0200,0003,0001

U 1422, 1424,3333,0003,4174,4007,0530,0000,0000,0000
U 1424, 1402,3771,0003,4374,0007,0700,0000,0006,0000
U 1425, 1402,3771,0003,4374,0007,0700,0000,0077,7777
U 1423,

1426,3333,0003,4174,4007,0520,0000,0000,0000

U 1426, 1402,3771,0003,4370,4007,0700,0000,0000,0000
U 1427, 1402,3771,0003,4370,4007,0700,0000,0077,7777
U 1430,

1432,3~33,OO03,4174,4007,0520,OOOO,OOOO,OOOO

U 1432, 1500,5371,0003,4174,4003,7700,0200,0003,0001
U 1433,

1500,5341,1203,4174,4003,7700,0200,0003,0001

2732
2733
2734
2735
27;36
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762

K5'I../MICROCODE V124, 27-JUL-84
HALFWORO GROUP

Page 76

;NOW THE HALFWORD OPS WHICH CONTROL THE "OTHER" HALF.
; ENTER WITH O"E (E) OR (AC) IN AR
1417:
HRRE:
1420:
HRRZ:
1421 :
HRRO:
1422:
HRLE:
1424:
HRLZ:
1425:
HRLO:
1423:
HLRE:
1426:
HLRZ:
1427:
HLRO:
1430:
HLLE:
1432:
HLLZ:
1433:
HLLO:

READ [AR),SKIP DP18
[AR) LEFT_O, EXIT
[AR) LEFT_-1, EXIT
READ [AR),SKIP DP18
[AR)_#,#/O,HOLD RIGHT,J/MOVS
[AR)_#,#/777777,HOLD RIGHT,J/MOVS
READ [AR),SKIP DPO
[AR]_#,#/O,HOLD LEFT,J/MOVS
[AR]_#,#/777777,HOLD LEFT,J/MOV5
RE~D

[AR],SKIP DPO

[AR"~

RIGHT_O, EXIT

[AR) RIGHT_-1, EXIT

Tl0KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

o
o

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0120, 0205,1505,1100
0121, 0215,1434,1100

U 1434, 3063,4551,0404,4374,0007,0700,0010,0037,7777
U 1436, 1515,3440,0404,1174,4007,0700,0400,0000,1441
D 0124, 0300,1567,0100
o 0125, 0100,1565,0500

U 1565, 3062,3771,0004,1276,6007,0701,0010,0000,1441

U 1567, 0531,0113,0207,4174,4007,0700,0200,0003,0312
U 0531, 0532,3333,0004,4175,5007,0701,0200.0000,0002

U 0532, 0455,3443,0200,4174,4007,0700,0200,0003,0312

2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779'
2780
2781
2782
2783
2784
2785
2786
, 2787
2788
2789
2790
2791
2792
2793

KS10 MICROCOOE V124, 27-JUL-84
DMOVE, DMOVN, DMOVEM, DMOVNM
.TOC
120:

1434:
DMOVN:
1436:
124:

Page 77

"DMOVE, DMOVN, DMOVEM, DMOVNM"
.DCODE
DBL R,
DB£. R,
.UCODE

DAC,
AC,

J/DAC
J/DMOVN

CLEAR ARXO, CALL [DBLNGA]
AC[1] [ARX] , J/STAC
.DCDDE
DBL AC,
W,
.UCODE

J/DMOVN1
J/DMOVNM

1565:
DMOVNM: [ARX]_AC[l},CALL [DBLNEG]
1567:
DMOVN1 : [HR]+[ONE],
;GET E+1
LOAD VMA,
;PUT THAT IN VMA
START WRITE,
;STORE IN E+1
PXCT DATA
;DATA CYCLE
MEM WRITE, MEM [ARX]
;STORE LOW WORD
VMA_[HR] ,
;GET E
LOAO VMA,
;SAVE IN VMA
PXCT DATA.
;OPERAND STORE
START WRITE,
;START MEM CYCLE
J/STORE
;GO STORE AR

~
'"
Tl0KL.MCR[
10,1141]
/

SIMPLE .MIC[ 10,1141]

D
D
D
D

0400,
0401,
0402,
0403,

,...,.
15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0015,1441,3000
0015,1441,3000
0016,1441,2700
0017,1441,2700

U 1'441, 1500,4221,0003,4174,4003,7700,0200,0003,0001
D 0404,
0405,
D 0406,
D 0407,

0

1015,1442,1100
0015,1442,3000
0016,1442,1700
0017,1442,1700

U 1442, 1500,4551,0303,0274,4003,7700,0200,0003,0001
D 0410, 1015,1443,110f)
D 0411, 0015,1443,3000
D 0412, 00·16,1443,1700
D 0413, 0017,1443,1700

U 1443, 1500,5551,0303,0274,4003,7700,0200,0003,0001
D
D
D
D

0414, 1015,1404,1100
0415, 0015,1404,3000
0416, 0016,1404,1700
0417, 0017,1404,1700

0 0420,

1015,1444,1100
D 0421, 0015,1444,3000
0 0422, 0016,1444,1700
D 0423, 0017 , 1444, 1700

U 1444, 1442,"7441,0303,4174,4007,0700,0000,0000,0000
D
D
D
D

0424,
0425,
0426,
0427,

0000,1400,1100
0000, 1400,2100
0116, 1404,0700
0116,1404,0700

2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2B05
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847

I"'-,

KS10 MICROCODE V124, 27-JUL-84
BOOLEAN GROUP
.TOC
400;

1441:
SETZ;
404:

1442:
AND;
410;

1443:
ANDCA;
414;

420:

Page 78

"BOOLEAN GROUP"
.DCODE
I-PF,
I-PF,
IW,
IW,
.UCOOE

AC,
AC,
M,
B,

J/SETZ
J/SETZ
J/SETZ
J/SETZ

[AR] 0, EXIT

-

.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

J/AND
J/AND
J/AND
J/AND

[AR] [ARJ.AND.AC,EXIT
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

J/ANDCA
J/ANDCA
J/ANDCA
J/ANDCA

[ARJ [ARJ.AND.NOT.AC,EXIT
.DCODE
R-PF,
I-PF,
RW,
RW,
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

AC,
AC,
M,
B,

J/MOVE
J/MOVE
J/MOVE
J/MOVE

[ARJ . NOT. [AR J , J/ AND

424:

.DCODE
R,
W,
W,
.UCODE

M,
M,

;SETMM
;SETMB

=

MOVE
NOP THAT WRITES MEMORY
MOVE THAT WRITES MEMORY

J/AN8CM
J/ANDCM
J/ANDCM
J/ANDCM

1444;
ANDCM;

I ,

; SETM

J/DONE
J/DONE
J/MOVE
J/MOVE

;SETAM = MOVEM
;SETAB, TOO

T10KL.MCR[10,1141]
SIMPLE .MIC[ 10,1141]
D
D
D
D

0430,
0431,
0432,
0433,

U 1445,

D
D
D
D

0434,
0435,
0436,
0437,

U 1446,

D
D
D
D

0444,
0445,
0446,
0447,

U 1450,

D
D
D
D

MICRO 31(254)

1015,1445,1100
0015,1445,3000
0016,1445,1700
0017,1445,1700

1500,6551,0303,0274,4003,7700,0200,0003,0001
1015,1446,1100
0015,1446,3000
0016,1446,1700
0017,1446,1700

1500,3551,0303,0274,4003,7700,0200,0003,0001

0440, 1015,1447,1100
0441, 0015,1447,3000
0442, 0016,1447.1700
0443, 0017,1447,1700

U 1447,

D
D
D
D

15:34 27-JULY-1984
15:31 27-JULY-1984

0450,
0451,
0452,
0453,

U 1451,

1443,7441,0303,4174,4007,0700,0000,0000,0000
10 15, 1450, 1 100
0015,1450,3000
0016,1450,1700
0017,1450,1700

1500,7551,0303,0274,4003,7700,0200,0003,0001
0015,1451,3000
0015,1451,3000
0016,1451,2700
0017,1451,2700

1500,7771,0003,0274,4003,7700,0200,0003,0001

2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897

KS10 MICROCODE V124, 27-JUL-84
BOOLEAN GROUP
430:

1445:
XOR:
434:

1446:
lOR:
440:

1447:
ANDCB:
444:

1450:
EQV;
450:

1451:
SETCA:

.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

J/XOR
J/XOR
J/XOR
J/XOR

[AR] [AR].XOR.AC,EXlT
.DCODE
R-PF,
l-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

J/IOR
J/lOR
J/lOR
J/IOR

[AR] [AR] . OR . AC , EX IT
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE
[AR]

AC,
AC,
M,
B,

J/ANDCB
J/ANDCB
J/ANDCB
J/ANDCB

.NOT.[AR],J/ANDCA

.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

J/EQV
J/EQV
J/EQV
J/EQV

[AR] [AR].EQV.AC,EXIT
.DCODE
l-PF,
I-PF,
lW,
lW,
.UCODE

AC,
AC,
M,
B,

J/SETCA
J/SETCA
J/SETCA
~/SETCA

[AR] . NOT. AC, EXIT

Page 79

T 1OK L . MeR [ 10, 1 14 1 ]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0 0454,

1015,1452,1100.
D 0455, 0015,1452,3000
D 0456, 0016,1452,1700
D 0457, 0017,1452,1700

U 1452, 0552,7771,0005,0274,4007,0700,0000,0000,0000
U 0552, 1500,31f1,0503,4174,4003,7700,0200,OO03,0001
D 0460,

1015,1453,1100
D 0461, 0015,1453,3000
D 0462, 0016,1453,1700
D 0463, 0017,1453,1700

U 1453,

1500,7441,0303,4174,4003,7700,0200,0003,0001

D 0464,

1015,1454,1100
D 0465, 0015,1454,3000
D 0466, 0016,1454,1700
D 0467, 0017,1454,1700

U 1454,

1446,7441,0303,4174,4007,0700,0000,0000,0000

0 0470,

1015,1455,1100
D 0471, 0015,1455,3000
D 0472, 0016,1455,1700
D 0473, 0017,1455,1700

U 1455,

,,,-...,,

,~

('j

1453,4551,0303,0274,4007,0700,0000,0000,0000

D 0474, 0015,1456,3000
D 0475, 0015,1456,3000
0 0476, 0016,1456,2700
0 0477 , 0017,1456,2700

U 1456, 1500,2441,0703,4174,4003,7700,4200,0003,0001

2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921,
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
,2948

KS10 MICROCODE V124, 27-JUL-84
BOOLEAN GROUP
454:

1452:
ORCA:

460:

'1453 :
SETCM:
464:

1454:
ORCM:
470:

1455:
ORCB:
474:

1456:
SETO:

.DCODE
R-PF,
I-PF,
RW,
RW.
.UCODE

AC,
AC,
M,
B,

J/ORCA
J/ORCA
J/ORCA
J/ORCA

[BR] - .NOT.AC
[AR] [AR].OR.[BR],EXIT
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

J/SETCM
J/SETCM
J/SETCM
J/SETCM

[AR] .NOT.[AR],EXIT
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE
[AR]

AC,
AC,
M,
B,

J/ORCM
J/ORCM
J/ORCM
J/ORCM

. NOT. [AR] , J/ IOR

.DCODE
R-PF,
I-PF,
RW.
RW,
.UCODE

AC,
AC,
M,
B,

J/ORCB
J/ORCB
J/ORCB
J/ORCB

[AR] [AR].AND.AC,J/SETCM
.DCODE
I-PF,
I-PF,
IW,
IW,
.UCODE

AC,
AC,
M,
B,

J/SETO
J/SETO
J/SETO
J/SETO

[AR] -[ONE], EXIT

Page 80

T10KL.MCR[10.1141]
SIMPLLMIC[ 10.1141]

o

D
D
D
D

o

D

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0240. 0400.1622.1000
0241. 0400.1632.1000
0242. 0400.1612.1000
0243, 0000,1462,2100
0244. 0000.1466,3000
0245, 0500,1470,1000
0246,0500,1464,1000

U 1612,. 0564,3771.0003,0276.6007,0700, 1000,0031, 1777
U 1613, 0572,4551,1203,0276,6007,0700,1000.0041.0001
U 0564.

1515.3445,0303,4174.4007 .. 0700.1020.0041.0001

2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974

KS10 MICROCODE V124, 27-JUL-84 Page 81
ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO
.TOC

"ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO"

240:

.DCODE
SH,
SH,
SH,
I •

245:

I-PF,
SHC,
SHC,
.UCODE

J/ASH
J/ROT
J/LSH
J/JFFO
J/ASHC
J/ROTC
J/LSHC

;HERE IS THE CODE FOR LOGICAL SHIFT. THE EFFECTIVE ADDRESS IS
; IN AR.
1612:
[AR] AC,
LSH:
;PICK UP AC
FE -FE- 1,
;NEGATIVE SHIFT
J/LSHL
; SHIFT LEFT
1613:
[AR] AC.AND.MASK,
;MAKE IT LOOK POSITIVE
FE FE+1.
;UNDO -1 AT SHIFT
J/ASHR
;GO SHIFT RIGHT
LSHL:

[AR] [AR]*2,
SHIFT, J/STAC

;SHIFT LEFT
;FAST SHIFT & GO STORE AC

a

T10KL.MCR[10,l141]
SIMPLE.MIC[10,1141]

/

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1622, 0604,4222,0000,4174,4007,0700,0000,0000,0000
U 1623, 0572,3771,0003,0276,6007,0700,1000,0041,0001
U 0572,

1515,3447,0303,4174,4007,0700,1020,0041,0001

U 0604, 0502,3777,0003,0274,4007,0631,2000.0060,0000
U 0502, 0502,3444,0303,4174,4447,0630,2000,0060,0000

U 0503,

1515,3445,0303,4174,4007,0700,0000,0000,0000

2975
2976
2977
2978
2979
2980
2981
. , 2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996

KS10 MICROCODE V124, 27-JUL-84 Page 82
ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO
;HERE IS THE CODE FOR ARITHMETIC SHIFT. THE EFFECTIVE ADDRESS IS
; IN AR.
ASH36 LEFT
1622:
ASH:
1623:

"[AR] [AR]*2 LONG, ASHC, STEP SC, ASH AROV"

Q 0,

J/ASHLO
[ARLAC,
FE FE+1
[ARl - [AR]*.5,
ASH, SHIFT.
J/STAC

;HARDWARE ONLY DOES ASHC
;GET THE ARGUMENT
;FE HAS NEGATIVE SHIFT COUNT
;SHIFT RIGHT
;FAST SHIFT
;STORE AC WHEN DONE

[AR] AC*.5.
STEP-SC

;GET INTO 9 CHIPS
;SEE IF NULL SHIFT

=0
ASHL:

ASH36 LEFT. J/ASHL

;SHIFT LEFT
;SLOW BECAUSE.WE HAVE TO
; TEST FOR OVERFLOW

ASHX:

[AR] [AR]*2, J/STAC

;SHIFT BACK INTO 10 CHIPS

ASHR:

ASHLO:

T10KL.MCR[10,1141)
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1632, 0652,3777,0003,0274,4007,0701,1000,0031,1777
U 1633, 0612,3777 ,0003,0274,4007 ,0701,1000,0041,0001
U 0612, 0631,3447,0303,4174,4007,0700,0000,0000,0000
U 0631, 0646,3447,0303,4174,4037,0700,1020,0041,0001
U 0646, 0503,3445,0303,4174,4007,0700,0000,0000,0000
U 0652, 0701,3447,0303,4174,4007,0700,0000,0000,0000

U 0701, 0646,3445,0303,4174,4037,0700, 1020,0041 .0001

\

2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014

KS10 MICROCODE V124, 27-JUL-84 Page 83
ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO
;HERE IS THE CODE FOR ROTATE. THE EFFECTIVE ADDRESS IS
; IN AR.
1632:
ROT:
[AR] AC*.5,
;PICK UP THE AC (& SHIFT)
FE -FE-1.
;NEGATIVE SHIFT COUNT
J/ROTL
; ROTATE LEFT
1633:
;PICK UP THE AC (& SHIFT)
CAR] AC*.5.
FE FE+l
;NEGATIVE SHIFT COUNT
[AR] [AR]*.5
;PUT IN 9 DIPS
[AR] [AR]*.5,
;SHIFT RIGHT
ROT,-SHIFT
; FAST SHIFT
ASHXX:
;SHIFT TO STD PLACE
[AR] [AR]*2,J!ASHX
ROTL:

[AR] [AR]*.5
[AR]-[AR]*2,
ROT, SHIFT,
J!ASHXX

PUT IN RIGHT 36-BITS
ROTATE LEFT
FAST SHIFT
ALL DONE--SHIFT BACK

~

,
./
T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1462, 0514,4551,1205,0276,6007,0622,0000,0000,0000

U 0514, 0706,3441,0301,4174,4007,0700,0200,0014,0012
U 0515, 1400,4223,0000,1174,4007,0700,0400,0000,1441
U 0706, 0534,4443,0000,4174,4007,0700,1000,0071,1764

U
U
U
U

0534,
0535,
0747,
0767.

0534,3445,0505,4174,4007,0520,1000,0041,0004
0747,3777,0003,4334,4057,0700,0000,0041,0000
0767,4251,0303,4374,4007,0700,0000,0000,0077
0100,3440,0303,1174,4156,4700,0400,0000,1441

3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044

KS10 MICROCODE V124, 27-JUL-84 Page 84
ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO
1462:
JFFO:

[BR] AC.AND.MASK, 4T,
SKIP-AD.EQ.O

=0

[PC] [AR],
LOAD-VMA, FETCH,
J/JFF01
AC [ 1 ]_0, J/DONE

JFFO 1 :

FE -12.

=0
JFFOL:

;GET AC WITH NO SIGN
; EXTENSION. SKIP IF
; ZERO.
;NOT ZERD--JUMP
; GET NEXT I NST
; ENTER LOOP
;ZERO--DONE
;WHY -12.7 WELL THE
HARDWARE LOOKS AT
BIT -2 SO THE FIRST
2 STEPS MOVE THE BR
OVER. WE ALSO LOOK AT
THE DATA BEFORE THE SHIFT
SO WE END UP GOING 1 PLACE
TOO MANY. THAT MEANS THE
FE SHOULD START AT -3.
HOWEVER, WE COUNT THE FE BY
4 (BECAUSE THE 2 LOW ORDER
BITS DO NOT COME BACK) SO
FE -12.

[BR] [BR]*2,
;SHIFT LEFT
FE FE+4,
;COUNT UP BIT NUMBER
SKIP DPO, J/JFFOL
;LOOP TILL WE FIND THE BIT
[AR] FE
;GET ANSWER BACK
[AR]-[AR].AND.# CLR LH,#/77 ;MASK TO 1 COPY
AC[1] [AR], NEXT INST
;STORE AND EXIT

Tl0KL.MCR[10,1141]
SIMPLE. MIC [10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1464, 0554,4443,0000,4174,4007,0630,2000,0060,0000
U 1465, 1006,3333,0003,4174,4007,0700,2000,0031,5777
U 1006, 0544,4443,0000,4174,4007,0630,2000,0060,0000
U 0544, 0544,3446,0505,4174,4057,0630,2000,0060,0000
U 0545, 1014,3444,0505,4174,4007,0700,0000,0000,0000
U
U
U
U

0554, 0554,3444,0505,4174,4057,0630,2000,0060,0000
0555, 1014,3444,0505,4174,4007,0700,0000,0000,0000
1014, 1033,3444,0505,4174,4007,0700,0000,0000,0000
1033, 1053,3440,0505,0174,4007,0700,0400,0000,0000

3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079

KS10 MICROCODE V124, 27-JUL-84 Page 85
ROTATES AND LOGICAL SHIFTS -- LSHC
.TOC

"ROTATES AND LOGICAL SHIFTS -- LSHC"

;SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "LSHC" IS DONE:

o

!----!------------------------------------->!OOOO!
HIGH ORDER 36 BITS
!----!------------------------------------

!----!-----------------------------------!OOOO!
LOW ORDER 36 BITS
!----!------------------------------------

o
1464:
LSHC:
1465:

STEP SC, J/LSHCL
READ [AR], SC -SHIFT-1
STEP SC
-

=0

LSHCR:

[BR] [BR]*.5 LONG,STEP SC,LSHC,J/LSHCR
[BR] [BR]*2 LONG,J/LSHCX

=0

LSHCL:
LSHCX:

[BR] [BR]*2 LONG,LSHC,STEP SC,J/LSHCL
[BR]-[BR]*2 LONG
[BR]-[BR]*2 LONG
AC [BRJ, J/ASHCQ1

RAM FILE

Q-REGISTER

~
"'",

j

T lOKl. f;,c;R [ 10, 1141 ]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1466, 0602,3333,0003,4'174,4007,0330,3000,0041,4000
U 0602, 1036,3772,0000,1275,5007,0701,0000,0000,1441
U 0603, 0100,4443,0000,4174,4156,4700,0000,0000,0000
U 1036, 0614,3776,0005,0274,4007,0631,0000,0000,0000
U 0614, 0634,3447,0505,4174,4007,0700,2000,0041,1776
U 0615,0624,3447,0505,4174,4007,0700,2000,0031,1776

U 0624, 0624,3446,0505,4174,4047,0630,2000,0060,0000
U 0625,

1046,3444,0505,4174,4047,0700,0000,0000,0000

U 0634, 0634,3444,0505,4174,4447,0630,2000,0060,0000
U 0635,

1046,3444,0505,4174,4447,0700,0000,0000,0000

U 1046, 0642,0113,0505,0174,4007,0521,0400,0000,0000
U 0642,

"-

1053,4662,0000,4374,0007,0700,0000,0037,7777

U 0643, 1053,3662,0000,4374,0007,0700,0000,0040,0000
U 1053, 0100,3223,0000,1174,4156,4700,0400,0000,1441

3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
31 11
3112
3113
3114
3115
3116
3117
3118

KSIU MICROCODE V124, 27-JUL-84 Page 86
ROTATES AND LOGICAL SHIFTS -- ASHC
.TOC

"ROTATES AND LOGICAL SHIFTS -- ASHC"

1466:
ASHC:

READ [AR],
SC_SHIFT, LOAD FE,
SKIP ADR.EQ.O
Q AC [ 1 ] ,
=0
J7ASHC1
NIDISP: NEXT INST
ASHC 1 :
[BR] AC*.5 LONG,
=0

=0
ASHCR:

=0
ASHCL:

SKIP/SC
[BR] [BR1*.5,
SC FE+S#, S#/1776,
J/ASHCL
[BR] [BR]*.5,
SC S#-FE, S#/1776
[BR] [BR]*.5 LONG,
ASHC-;STEP SC, J/ASHCR
[BRl [BR]*2 LONG,
ASHC-;- J/ASHCX

[BR] [BR]*2 LONG,
ASHC-;- ASH AROV,
STEP SC, J/ASHCL
[BR] [BR]*2 LONG,
ASHC-;- ASH AROV
AC [BR]+[BR], 3T,
ASHCX:
SKIp DPO
Q Q.ANO.#, #/377777,
=0
HOLD RIGHT, J/ASHCQ1
Q Q.OR.#, #/400000,
HOLD RIGHT
ASHCQ1: AC[1] Q, NEXT INST

;PUT AR ON DP
;PUT SHIFT IN BOTH SC AND FE
;SEE IF NULL SHIFT
;NOT NULL--GET LOW WORD
; CONTINUE BELOW
;NULL--ALL DONE
;GET HIGH WORD
;AND SHIFT Q
;SEE WHICH DIRECTION
; ADJUST POSITION
;SUBRTACT 2 FROM FE
;GO LEFT
;ADJUST POSITION
;SC -2-FE, SC +# OF STEPS
;HERE TO GO RIGHT
;GO RIGHT
;SET DATA PATHS FOR ASHC (SEE DPE1)
;COUNT THE STEP AND KEEP LOOPING
;PUT BACK WHERE IT GOES
;COMPLETE INSTRUCTION
;GO LEFT
;SEE IF OVERFLOW
;LOOP OVER ALL PLACES
;SHIFT BACK WHERE IT GOES
;CAN STILL OVERFLOW
;PUT BACK HIGH WORD
;SEE HOW TO FIX LOW SIGN
;POSITIVE, CLEAR LOW SIGN
;GO STORE ANSWER
;NEGATIVE, SET LOW SIGN
; IN LEFT HALF
;PUT BACK Q AND EXIT

'.,
T10KL.MCR[10,1141J
SIMPLE.MIC(10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31 (254)

U 1470, 0742,4443,0000,4174,4007,0630,2000,0060,0000
U 1471, 1062,3333,0003,4174,4007,0700,2000,0031,5777
U 1062, 0644,4443,0000,4174,4007,0630,2000,0060,0000
U 0644" 0644,3446,0505,4174,4077,0630,2000,0060,0000
U 0645, 1014,3444,0505,4174,4007,0700,0000,0000,0000

U 0742, 0742,3444,0505,4174,4077,0630,2000,0060,0000
U 0743,

1014,3444,0505,4174,4007,0700,0000,0000,0000

; 3119
'3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
:?136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150

KS10 MICROCODE V124, 27-JUL-84 Page 87
ROTATES AND LOGICAL SHIFTS -- ROTC
.TOC

"ROTATES AND LOGICAL SHIFTS -- ROTC"

;SHIFT CONNECTIONS WHEN THE SPEtIAL FUNCTION "ROTC" IS DONE:
!----!-----------------------------------..... >!OOOO!
HIGH ORDER 36 BITS
l----~--------------~---------------------

:

!----l--------------------------~---------

.. !OOOO!

LOW ORDER 36 BITS

1----1------------------------------------

:

•

1470:
ROTC:
1471:

~

a

~

......

~

..

..

..

..

..

•

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

..

RAM FILE

Q-REGISTER

:

STEP SC, J/ROTCL
READ [AR], SC -SHIFT-1
STEP SC
-

=0

ROTCR:

[BR] [BR]*.5 LONG, STEP SC,ROTC,J/ROTCR
[BR]-[BR]*2 LONG,J/LSHCX

=0

ROTCL:

[BR] [BR]*2 LONG,ROTC,STEP SC,J/ROTCL
[BR]-[BR]*2 LONG,
J/LSHCX

,/

/

j

T10KL.MCR[10,1141]
SIMP L E . MI C [ 10, 1 14 1 ]

0 0600, 0000, 1400,2100
0 0601, 0000, 1400,2100

D 0602,
0 0603,
0 0604,
0 0605,
0 0606,
0 0607,

0000,1475,2100
0000, 1474, 2 100
0000,1473,2100
0000,1472,2100
0004,1475,2100
0004,1474,2100

0 0610, 0000,1400,2100

D 0611,
0 0612,
0 0613,
0 0614,
D 0615,
0 0616,
0 0617,

0000, 1400, 2 100
0000,1475,1100
0000,1474,1100
0000,1473,1100
0000,1472,1100
0004,1475,1100
0004, 1474 , 1 100

0620,
0621,
0622,
0623,
0624,
D 0625,
0 0626,
0 0627.

0005,1473,2100
0005,1472,2100
0001,1475,2100
0001,1474,2100
0001,1473,2100
0001, 14'72,2100
0005,1475,2100
0005,1474,2100

0
0
0
0
0

~

~,

()
15;34 27-JULY-1984
15;31 27-JULY-1984

MICRO 31(254)
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201

KS10 MICROCODE V124, 27-JUL-84
TEST GROUP
.TOC

Page 88

"TEST GROUP"
.OCOOE

;SPECIAL MACROS USED ONLY IN B-FIELO OF TEST INSTRUCTIONS
IIB/4 11
TNTNE
"B/O"
WORO-TNE
"B/l0"
;USEO IN TIDE
TNA
"B/O'"
TNN
"B/4"
WORO-TNN
"B/14"
;USEO IN TION
TZ"B/5"
TZE
"B/1"
TZA
"B/l"
TZN
"B/5"
TC"B/6
TCE
"B/2"
TCA
"B/2"
TCN
"B/6"
TO"B/7"
TOE
"B/3"
TOA
"B/3"
TON
"B/7"
11

600:

610:

I,
I,
I,
I,
I,
I,
I,
I,

;TRN- IS NOP
;SO IS TLN-

TNE,
TNE,
TNA,
TNA,
TNN,
TNN,

J/OONE
J/OONE
J/TOXX
J/TSXX
J/TOX
J/TSX
J/TOXX
J/TSXX

;TON- IS A NOP
;TSN- ALSO

TNE,
TNE,
TNA,
TNA,
TNN,
TNN,

J/OONE
J/DONE
J/TOXX
J/TSXX
J!TDX
J/TSX
J/TOXX
J/TSXX

I,
I ,

R,
R,
R,
R,
R,
R,
620;

I ,
I ,

I,
I ,
I ,

I,
I,

I,

TZ-,

TZ- ,
TZE,
TZE,
TZA,
TZA,
TZN,
TZN,

J/TOX
J/TSX
J/TOXX
J/TSXX
J/TOX
J/TSX
J/TOXX
J!TSXX

T10KL.MCR[ 10,1141]
SIMPLE.MIC[10,114i]
D 0630,
0631,
0632,
0633,
0634,
0635,
0636,
0637,

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

0640,
0641,
0642,
0643,
0644,
0645,
0646,
0647,

0005,1473,1100·
0005, 1472, 1100
0001,1475,1100
0001,1474,1100
0001,1473,1100
0001,1472,1100
0005,1475,1100
0005,1474,1100
0006,1473,2100
0006,1472,2100
0002,1475,2100
0002 , 1474 , 2 100
0002,1473,2100
0002,1472,2100
0006,1475,2100
0006 , 1474 , 2 100

0 0650, 0006.1473,1100
0 0651, 0006,1472,1100
0 0652, 0002.1475,1100

D 0653,
0654,
0655,
0656,
0657,
0660,
0661,
0662,
0663,
0664,
0665,
0666,
0667,

0
0
0
0
0
0
0
0
0
0
0
0

0002 , 1474, 1 100
0002,1473,1100
0002,1472,1100
0006,1475,1100
0006 , 1474, 1100
0007,1473,2100
0007,1472,2100
0003,1475,2100
0003,1474,2100
0003,1473,2100
0003,1472,2100
0007,1475,2100
0007,1474,2100

0 0670, 0007, 1473,1100
0 0671, 0007,1472,1100

D 0672, 0003,1475,1100
D 0673, 0003,1474,1100
D 0674, 0003, 1473, 1100
0 0675, 0003,1472,1100
D 0676, 0007,1475,1100
0 0677 , 0007,1474,1100

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228'
3229

KS10 MICROCODE V124, 27-JUL-84
TEST GROUP
630:

R,
R,
R,
R,
R,
R,
R,
R,

TZ- ,
TZ-,
TZE,
TZE,
TZA,
TZA,
TZN,
TZN,

J!TDX
J!TSX
J!TDXX
J!TSXX
J!TDX
J!TSX
J!TDXX
J!TSXX

640:

I,

TC-,
TC- ,
TCE,
TCE,
TCA,
TCA,
TCN,
TCN,

J!TDX
u!TSX
J/TDXX
J!TSXX
J!TDX
J!TSX
J/TDXX
J!TSXX

I,

TC- ,
TC-,
TCE,
TCE,
TCA,
TCA,
TCN,
TCN,
TO- ,
TO-,
TOE,
TOE,
TOA,
TOA,
TON,
TON,

J!TDX
J/TSX
J!TDXX
J/TSXX
J!TDX
J/TSX
J!TDXX
J!TSXX
J/TDX
J/TSX
J/TDXX
J!TSXX
J!TDX
J/TSX
J!TDXX
J/Tsxx

R,
R,
R,
R,
R,
R,
R,
R,

TO-,
TO- ,
TOE,
TOE,
TOA,
TOA,
TON,
TON,

J!TDX
J/TSX
J/TDXX
J!TSXX
J!TDX
J/TSX
J/TDXX
J!TSXX

I ,

I,
I ,

I
I
I
I
650:

660:

,
,
,
,

R,
R,
R,
R,
R,
R,
R,
R,
I,
I ,

32~0

I ,

3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245

I ,

I,
I,
I ,

670:

Page 89

/

.~

J

T10KL\::)[10, 1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27~JULY-1984

MICRO 31(254)

U 1472, 1473,3770,0303,4344,4007,0700,0000,0000,0000
U 1473, 0014,4221,0005,4174,4003,7700,0000,0000,0000
U 1474, 1475,3770,0303,4344,4007,0700,0000,0000,0000
U 1475, 0014,4551,0305,0274,4003,7700,0000,0000,0000

3246
3247
3248
3249
3250
3251
3252
; 3253
;,3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278

KS'lv/MICROCODE V124, 27-JUL-84
TEST GROUP

Page 90

!

.UCODE
;THESE 64 INSTRUCTIONS ARE DECODED BY MASK MODE(IMMEDIATE OR MEMORY)
IN THE A FIELD, DISPATCH TO HERE ON THE J FIELD, AND RE-DISPATCH
FOR THE MODIFICATION ON THE B FIELD.
ENTER WITH O,E OR (E) IN AR, B FIELD BITS 2 AND 3 AS FOLLOWS:
0
NO MODIFICATION
o 1 OS
1 0
COMPLfOMENT
1 1
ONES
THIS ORDER HAS NO SIGNIFICANCE EXCEPT THAT IT CORRESPONDS TO THE
ORDER OF INSTRUCTIONS AT TGROUP.

o

;THE BIT 1 OF THE B FIELD IS USED TO DETERMINE THE SENSE
OF THE SKIP
; 1
SKIP IF AC.AND.MASK .NE. 0 (TXX- AND TXXN)
; 0
SKIP IF AC.AND.MASK .EO. 0 (TXXA AND TXXE)
;BIT 0 IS UNUSED AND MUST BE ZERO
1472:
TSX:
1473:
TDX:

[AR] [AR] SWAP

;TSXX AND TLXX

[BR]_O,TEST DISP

;

1474
TSXX
1475
TDXX

[AR] [AR] SWAP

;TSXE, TSXN, TLXE, TlXN

[BR] [AR].AND.AC,
TEST-DISP

;TDXE, TDXN, TRXE, TRXN

ALWAYS AND NEVER SKIP CASES

T10KL.MCR[10,1141]
SIMPLE.MIC[ 10, 1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0014, 1400,3333,.0005,4174,4007,0571,0000,0000,0000
U 0015,

1077,7441,0303,4174,4007,0700,0000,0000,0000

U 0016,

1117,6551,0303,0274,4007,0700,0000,0000,0000

U 0017, 1117,3551,0303,0274,4007,0700,0000,0000,0000

U 1077, 1117,4551,0303,0274,4007,0700,0000,0000,0000
U 1117, 0014,3440,0303,0174,4007,0700,0400,0000,0000

3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302

KS10 MICROCODE V124, 27-JUL-84
TEST GROUP

Page 91

;TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B-FIELD OF DROM
=1100
TEST-TABLE:
;CASE 0 & 4
TXNX
TXXX:
READ [BR], TXXX TEST, 3T, J/DONE
;CASE

& 5 -- TXZ AND TXZX
[AR) .NOT.[AR),0/TXZX

;CASE 2 & 6 -- TXC AND TXCX
[AR) [AR).XOR.AC,J/TDONE
;CASE 3 & 7 -- TXO AND TXOX
[AR) [AR).OR.AC,J/TDONE
;THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF
; AD.EQ.O AND DROM B IS 0-3 OR AD.NE.O AND DROM B IS 4-7.
TXZX:
TOONE:

[AR) [AR).AND.AC
AC [AR),J/TXXX
READ BR,TXXX TEST,J/80NE

~

\}
T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27~JULY-1984

MICRO 31(254)

U 0250, 0110,3443,0100,4174,4156,4700,0200,0014,0012
U 0251,

1400,3333,0003,4174,4007,0520,0000,0000,0000

U 0252,

1400,3333,0003,4174,4007,0621,0000,0000,0000

U 0253,

1400,3333,0003,4174,4007.0421,0000.0000,0000

U 0254, 0110,0111,0701,4170,4156,4700,0200.0014.0012
U 0255, 0260,3333,0003,4174,4007,0520,0000,0000,0000
U 0256, 0260,3333,0003,4174,4007,0621,0000,0000,0000
U 0257, 0260,3333,0003,4174.4007,0421,0000,0000,0000

3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
33~8

3339
3340
3341
3342
3343
3344
3345
3346
3347
3348

KS10 MICROCODE V124, 27-JUL-84
COMPARE -- CAl, CAM
.TOC

"COMPARE

Page 92

CAl .. CAM"

.DCODE
;SPECIAL B-FIELD ENCDDING USED BY SKIP-JUMP-COMPARE CLASS
; INSTRUCTIONS:
SJCSJCL
SJCE
SJCLE
SJCA
SJCGE
SJCN
SJCG

"B/O"
"B/1 "
"B/2" .
"8/3

11

"B/4"
"B/5"
"B/6"
"B/7"

;NEVER
;LESS
;EQUAL
;LESS EQUAL
;ALWAYS
;GREATER THAN OR EQUAL
;NOT EQUAL
;GREATER

.UCODE
;COMPARE TABLE
=1000

SKIP-COMP-TABLE:
;CASE 0 -- NEVER
DONE
;CASE

- - LESS
READ [ARl. SKIP DPO.J/DONE

;CASE 2 -- EQUAL
SKIPE:
READ [ARl. SKIP AD.EQ.O,J/DONE
;CASE 3 -- LESS OR EQUAL
READ [AR], SKIP AD.LE.O,J/DONE
;CASE 4 -- ALWAYS
VMA [PC]+1. NEXT INST FETCH, FETCH
;CASE 5 -- GREATER THAN OR EQUAL
READ [AR], SKIP DPO,J/SKIP
;CASE 6 -- NOT EQUAL
READ [ARl, SKIP AD.EQ.O,J/SKIP
;CASE 7 -- GREATER
READ [AR], SKIP AD.LE.O,J/SKIP

,
/
T10KL.MCR[10,1141]
SlMPLE.MIC[10,1141]
D
D
D
D
D
D
D
D

0300,
0301,
0302,
0303,
0304,
0305,
0306,
0307,

0000,1400,2100
0001,1476,2100
0002,1476,2100
0003,1476,2100
0004,1476,2100
0005,1476,2100
0006,1476,2100
0007,1476,2100

D
D
D
D
D
D
D
D

0310,
0311,
0312,
0313,
0314.
0315,
0316,
0317,

0000,1476,1100
0001,1476,1100
0002,1476,1100
0003,1476,1100
0004,1476,1100
0005,1476,1100
0006,1476,1100
0007,1476,1100

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1476, 0250,2551,0303,0274,4003,7701,4000,0000,0000

3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371

KS10 MICROCODE V124, 27-JUL-84
COMPARE -- CAl, CAM

Page 93

.DCODE
300:

I ,

I,
I ,

I,
I,
I,
I,

I,
310:

R,
R,
R,
R,
R,
R,
R,

R,

SJC-,
SJCL,
SJCE,
SJCLE ,
SJCA,
SJCGE,
SJCN,
SJCG,

J/DONE
J/CAIM
J/CAlM
J/CAIM
J/CAlM
J/CAIM
J/CAlM
J/CAIM

;CAI

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE,
SJCN,
SJCG,

J/CAlM
J/CAlM
J/CAlM
J/CAIM
J/CAIM
J/CAIM
J/CAlM
J/CAlM

;CAM

.UCODE
1476:
CAlM:

[AR] _AC-[AR], 3T, SKIP-COMP DlSP

n

T 1OK l.l>lcR [ 10, 114 1 ]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0330,0000,1477,1100
o 0331,0001,1477,1100
o 0332,0002,1477,1100
00333,0003,1477,1100
D 0334, 0004,1477,1100
D 0335, 0005,1477,1100
o 0336,0006,1477,1100
o 0337, 0007,1477,1100

U 1477, 0744,3770,0303,4174,0007,0360,0000,0000,0000
U 0744, 0250,3 4 40,0303;0174,4003,7700,0400,0000,0000
U 0745, 0250,4443,0000,4174,4003,7700,0000,0000,0000
D 0350,0000,1431,1500
D 0351,0001,1431,1500
o 0352, 0002,1431,1500
o 0353, 0003,1431,1500
o 0354, 0004,1431,1500
o 0355,0005,1431,1500
o 0356,0006,1431,1500
o 0357,0007,1431,1500

U 1431,
U 1122.
U 1127,

1122,0111,0703,4174,4467,0701,0000,0001,0001
1127.4443.0000,4174,4007.0700,0200,0003,0002
1477,3333,0003,4175,5007,0701,0200,0000,0002

D 0370,0000,1437,1500

o
o
o
o

0371,0001,1437,1500
0372, 0002,1437,1500
0373, 0003,1437,1500
0374, 0004,1437,1500
o 0375, 0005,1437,1500
o 0376, 0006,1437,1500
o 0377, 0007,1437,1500

U 1437,

1122,1111,0703,4174,4467,0701,4000,0001,0001

3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393

KS1V MICROCODE V124, 27-JUL-84 Page 94
ARITHMETIC SKIPS -- AOS, SOS, SKIP
.TDC
"ARITHMETIC SKIPS -- ADS. SOS. SKIP"
;ENTER WITH (E) IN AR
.DCODE
330:

R.

R,

R,

R,
R,
R,

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE.
SJCN,
SJCG,

J/SKIPS ;NOT A Nap IF AC .NE. 0
J/SKIPS
J/SKIPS
J/SKIPS
J/SKIPS
J/SKIPS
J/SKIPS
J/SKIPS

.UCODE
1477:
SKIPS:
=0

FIX [AR] SIGN,
SKIP IF ACO
AC [AR],SKIP-C8MP DISP
SKIp-COMP DISP
.DCODE

350:

R\II ,

RW,
RW,
RW,
RW,
RW,
RW,
RW,
.UCODE

~394

3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421

R,
R,

1431:
AOS:
XOS:

370:

1437:
SOS:

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE,
SJCN.
SJCG,

J/AOS
J/AOS
J/AOS
J/AOS
J/AOS
J/AOS

J/AOS
J/AOS

[AR] [AR]+1. 3T, AD FLAGS
START WRITE
MEM WRITE,MEM_[AR],J/SKIPS
.DCODE
RW.
RW.
RW,
RW.
RW.
RW,
RW,
RW,
.UCODE

SJC- ,
SJCL;
SJCE,
SJCLE.
SJCA,
SJCGE.
SJCN,
SJCG,

J/SOS
J/SOS
J/SOS

J/SOS
J/SOS
J/SOS

J/SOS
J/SOS

[AR] [AR]-1, 3T, AD FLAGS. J/XOS

T10KL.MCR[10.1141)
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0270, 0100,3440,0505,0174,4156,4700,0400,0000,0000
U 0271, 0762,3770,0505,0.174,4007,0520,0400,0000,0000
U 0272, 0762,3770,0505,0174,4007,0621,0400,0000,0000
U 0273, 0762,3770,0505,0174,4007,0421,0400,0000,0000
U 0274, 0764,3440,0505,0174,4007,0700,0400,0000;0000
U 0275, 0764,3770,0505,0174,4007,0520,0400,0000,0000
U 0276, 0764,3770,0505,0174,4007,0621,0400,0000,0000
U 0277, 0764,3770,0505,0174,4007,0421,0400,0000,0000
U 0762, 0110,3443,0100,4174,4156,4700,0200,0014,0012
U 0763, 0110,3441,0301,4170,4156,4700,0200,0014,0012
U 0764, 0110,3441,0301,4170,4156,4700.0200.0014,0012
U 0765, 0110,3443,0100,4174,4156,4700,0200,0014,0012

3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460

KS10 MICROCODE V124, 27-JUL-84 Page 95
CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ
.TOC
"CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ"
; ENTER WITH E IN AR
=1000
JUMP-TABLE:
;CASE 0 -- NEVER
AC [BR], NEXT INST
;CASE

-- LESS
AC [BR] TEST, SKIP DPO, J!JUMP-

;CASE 2 -- EQUAL
AC [BR] TEST, SKIP AD.EQ.O, J!JUMP;CASE 3 -- LESS THAN OR EQUAL
4C_[BR] TEST, SKIP AD.LE.O, J!JUMP;CASE 4 -- ALWAYS
JMPA:
AC [BR], J!JUMPA
;CASE 5 -- GREATER THAN OR EQUAL TO
AC_[8R] TEST, SKIP DPO, J/JUMPA
;CASE 6 -- NOT EQUAL
AC [BR] TEST, SKIP AD.EO.O, J!JUMPA
;CASE 7 -- GREATER
AC [BR] TEST, SKIP AD.LE.O, J!JUMPA
=0
JUMP-:
=0
JUMPA:

'\

DONE
JUMPA
JUMPA
DONE

/

n

T10KL:MCR[ 10.1141]
SIMPLE .MIC[ 10.1141]

/

0
0
0
0

D
D
D
D

0320,
0321,
0322,
0323,
0324,
0325,
0326.
0327.

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0000,1400,2100
0001,1440,2100
0002,1440.2100
0003,1440,2100
0004,1520.2100
0005,1440,2100
0006 , 1440, 2 100
0007,1440,2100

U 1440, 0270.3771,0005,0276,6003,7700,0000,0000,0000
D 0340,
0 0341,
D 0342,
0 0343,
D 0344.
0 0345,
0 0346.
0 0347.

0000,1611,3000
0001,1611,2100
0002, 1611 ,2100
0003, 1611 , 2100
0004 , 1 6 1 1 , 2 100
0005, 1611 , 2100
0006, 16 1 1 , 2 100
0007 , 16 1 1 , 2 100

U 1611 , 0270,0551,0705,0274,4463,7702,0000,0001,0001
0360,
0361,
0362,
0363,
0364,
D 0365,
D 0366,
D 0367,

0
0
0
0
0

~c

~

0000,1542,3000
0001,1542,2100
0002,1542,2100
0003,1542,2100
0004, 1542,2100
0005,1542,2100
0006.1542,2100
0007.1542,2100

U 1542, 0270,2551.0705,0274.4463.7702,4000,0001.0001
0 0252, 0005,1547,2100
0 0253, 0001,1547,2100

U 1547, 0270,0551,1505,0274,4403,7701.0000,0000,0000

3461
3462
:1463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
35.03
3504
3505
3506
3507
3508
3509
3510
3511
3512

KS10 MICROCODE V124. 27-JUL-84 Page 96
CONDITIONAL JUMPS - - JUMP. AOJ. SOJ. AOBJ
320:

.OCOOE
I.
I .

I,
I.
I,
I,
I•
I,
.UCODE
1440:
JUMP:
340:

SJC- ,
SJCL.
SJCE,
SJCLE.
SJCA.
SJCGE,
SJCN.
SJCG,

J/OONE
J/JUMP
J/JUMP
J/JUMP
"J/JRST
J/JUMP
J/JUMP
J/JUMP

[BR] - AC,JUMP DISP
.OCODE
I-PF,
I.
I,
I,
I .

I,
I,
I ,

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE,
SJCN,
SJCG,

J/AOJ
J/AOJ
J/AOJ
J/AOJ
J/AOJ
J/AOJ
J/AOJ
J/AOJ

.UCODE
1611 :
AOJ:
360:

[BR] AC+ 1. AD FLAGS, 4T, JUMP DISP
.OCODE
I-PF,
I,
I,
I,
I ,

I,
I,
I,
.UCOOE

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE.
SJCN.
SJCG.

J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ

1542:
SOJ:

[BR] - AC-1. AD FLAGS, 4T, JUMP OISP

252:

I •

.OCODE
I,
.UCODE
1547:
AOBJ:

SJCGE,
SJCL,

[BR] AC+1000001.
INH CRY18, 3T,
JUMP DISP

J/AOBJ
J/AOBJ

ADD 1 TO BOTH HALF WORDS
NO CARRY INTO LEFT HALF
HANDLE EITHER AOBJP OR AOBJN

T10KL.MCR[10,1141l
SIMPLE.MIC[10,1141l

15:34 21-JULY-1984
15:31 21-JULY-1984

MICRO

D 0254, 0000,1520,6000
D 0255,0000,1540,2100

U 1520, 0110,3441,0301,4110,4156,4100,0200,0014,0012
U 1521, 0110,3441,0301,4110,4156,4100,0200,0014,0012
U 1522, 0150,1113,0101,4110,4001,0100,4200,0004,0012
U 1523, 2132,4551,0202,4314,0007,0100,0000,0017,7140
U 1524, 1004,4443,0000,4114,4001,0340,0000,0000,0000

U 1525, 2102,3443,0300,4114,4001,0700,0200,0004,0012
U 1526, 0320,4443,0000,4114,4001,0340,0000,0000,0000
U 1521, 1034,4443,0000,4174,4001,0340,0000,0000,0000
U 1530, 1024,1113,0101,4170,4001,0040,4200,0004,0012
U 1531, 2132,4551,0202,4314,0001,0700,0000,0011,1140

U 1532, 0300,1113,0101,4110,4001,0040,4200,0004,0012
U 1533, 2132,4551,0202,4314,0007,0100,0000,0011,1140
U
U
U
U

1534,
1535,
1536,
1531,

1044,4443,0000,4174,4001,0340,0000,0000,0000
2732,4551,0202,4374,0001,0100,0000,0011,7740
2732,4551,0202,4374,0001,0700,0000,0077,7740
2732,4551,0202,4374,0001,0100.,0000.0077,1140

~1(254)

3513
3514
3515
3516
3511
3518
3519
3520
3521
3522
3523
3524
"3525
3526
3521
3528
3529
3530
3531
3532
3533
3534
3535
3536
3531
3538
3539
3540
3541
3542
3543
3544
3545
3546

KS10 MICROCODE V124, 21-JUL-84
AC DECODE JUMPS -- JRST, JFCL

Page 91

.TOC

"AC DECODE JUMPS

JRST, JFCL"

254:

.DCODE
I,VMA/O, AC DISP,

J/JRST

I ,

J/JFCL

;DISPATCHES TO 1 OF 16
; PLACES ON AC BITS

.UCODE
;JRSJ DISPATCHES TO ONE OF 16 LOC'NS ON AC BITS
=0000
1520:
JRST:
1521:
1522:

JUMPA
JUMP A
VMA [PC l- 1 , START READ,
J/JRSTF
UUO
SKIP KERNEL, J/HALT

; (0) JRST 0,
;(1) PORTAL IS SAME AS JRST
; (2) JRSTF

;(3)
1523:
1524:
; (4 ) HALT
1525:
XJRSTFO: VMA [AR l, START READ, ; (5) XJRSTF
J/XJRSTF
1526:
SKIP KERNEL, J/XJEN
;(6) XJEN
1521:
SKIP KERNEL, J/XPCW
;(7) XPCW
1530:
VMA [PCl-1, START READ, ;(10)
SKIP 10 LEGAL, J/JRST10
1531:
UUO
;(11)
1532:
VMA [PCl-1, START READ, ;(12) JEN
SKIP 10 LEGAL, J/JEN
1533:
; ( 13)
UUO
; ( 14 ) SFM
1534
SKIP KERNEL, J/SFM
; ( 15 )
1535
UUO
; ( 16)
UUO
1536
UUO
; ( 17)
1531

~
\.

,7

T10KL.iVlCR[ 10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0150, 1142,3771,0002,4365,5217,0700,0210,0000,0002
U 0152, 0110,3441,0301,4170,4156,4700,0200,0014,0012
U 1142, 0030,4443,0000,2174,4006,6700,0000,0000,0000

U 0030, 0002,3773,0000,2274,4464,1700,0000,0001,0004

U 0032, 0002,3333,0002,4174,4464,1700,0000,0001,0004

U 0034,

1147,0551,0202,2270,4007,0700,0200,0004,0012

U 0036,

1147,3443,0200,4174,4007,0700,0200,P004,0112

U 1147, 1142,3771,0002,4365,5217,0700,0200,0000,0002

3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576

KS10 MICROCODE V124, 27-JUL-84
AC DECODE JUMPS -- JRST, JFCL
=0*
JRSTF:

JRSTO:
= 100*

JRST1:

Page 98

MEM READ.
[HR] MEM,
LOAD-INST EA,
CALL [JRSTO]
JUMPA

;WAIT FOR DATA
; STICK IN HR
;LOAD @> AND XR
;COMPUTE EA AGAIN
;JUMP

EA MODE DISP

;WHAT TYPE OF EA?

READ XR.
LOAD FLAGS,
UPDATE USER,
RETURN [2]
READ [HR].
LOAD FLAGS,
UPDA TE USER,
RETURN [2]
[HR] [HR]+XR,
LOAD-VMA,
START READ,
J/JRST1
VMA [HR],
START READ.
PXCT EA,
J/JRST1
MEM READ.
[HR] MEM,
LOAD-INST EA,
J/JRSTO

; INDEXED
;GET FLAGS FROM XR
;ALLOW USER TO SET
;ALL DONE
;PLAIN
;LOAD FLAGS FROM INST
;ALLOW USER TO SET
;RETURN
;BOTH
; FETCH IND WORD
;START MEM CYCLE
; CONTINUE BELOW
;INDIRECT
; FETCH IND WORD
;SETUP PXCT STUFF
;CONTINUE BELOW
;WAIT FOR DATA
;LOAD THE HR
;LOAD @l AND XR
;LOOP BACK

' ..

T10KL.MCR[10.1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:~1 27-JULY-1984

MICRO 31(254)

U 1004, 2732,4551,0202,4374,0007,0700,0000,00.77,7740
U 1005, 1155,3441,0301,4174,4007,0700,0000,0000,0000
U 1155, 0104,4751,1217,4374,4007,0700,0000,0000,0001
U 1024, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1025, 0303,4443,0000,4174,4007,0700,0000,0000,0000
U 0300, 2732,4551,0202,4374,0007,0700,0000,0077,7740

U 0301, 1142,3771,0002,4365,5217,0700,0210,0000,0002
U 0303, 2452,4553,1400,4374,4007,0331,0010;0007,7400
U 0307, 3623,3770,1416,4344,4007,0700,0010,0000,0000
U 0317, 0110,3441,0301,4170,4156,4700,0200,0014,0012

U 1540, 0762,4443,0000,4174,4467,0551,0000,0001,0010

3577.
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602

KS10 MICROCODE V124, 27-JUL-84
AC DECODE JUMPS -- JRST, JFCL
=0
HALT:

UUO
[PC] [AR]
HALT [HALT]

=0
JRST10: UUO
J/JEN2
=0000
JEN:
UUO
MEM READ,
[HR] - MEM,
LOAD INST EA,
CALL [JRSTO]
=0011
0EN2:
DISMISS
=0111
CALL LOAD PI
= 1111
JUMPA
1540:
JFCL:

0FCL FLAGS,
SKIP JFCL,
3T,
J/JUMP-

\

,
/

/

Page 99

;USER MODE
;EXEC MODE--CHANGE PC
;HALT INSTRUCTION

;DISMISS INTERRUPT
;

FLAGS
GET INST
LOAD XR & @l
COMPUTE FLAGS
DISMISS INTERRUPT
RELOAD PI HARDWARE
GO JUMP

ALL DONE IN HARDWARE
SEE IF SKIPS
ALLOW TIME
0UMP IF WE SHOULD

.~
T10KLQ[ 10,1141]
SIMPLE.MIC[10,l141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0320, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 0321, 2452,4553,1400,4374,4007,0331,0010,0007,7400
U 0325, 0335,3333,0012,4174,4437,0700,0000,0000,0000
U 0335,

1525,4223,0000,4364,4277,0700,0200,0000,0010

U 2102, 2105,3771,0005,4365,5007,0700,0200,0000,0002
U 2105, 2611,0111,0703,4174,4007,0700,0200,0004,0012
U 2611, 2616,3771,0001,4361,5007,0700,0200,0000,0002
U 2616, 2677,3333,0005,4174,4467,0700,0000,0001,0004
U 2677, 0405,5551,1313,4374,4007,0700,0000,0001,0000

U 1034, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1035, 0060,4521,1205,4074,4007,0700,0000,0000,0000
U 0060, 3702,3443,0300,4174,4007,0700,0210,0003,0012
U 0064, 3703,0111,0703,4170,4007,0700,0210,0003,0012
U 0065, 2102,0111,0703,4174,4007,0700,0200,0004,0002

U 1044, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1045, 2710,3443,0300,4174,4007,0700,0200,0003,0012
U 2710, 0455,4521,1203,4074,4007,0700,0000,0000,0000

3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
'3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643

KS'~

/

MICROCODE V124, 27-JUL-84 Page 100
EXTENDED ADDRESSING INSTRUCTIONS
.TOC

=OOQO
XJEN:
=0101
= 1101

"EXTENDED ADDRESSING INSTRUCTIONS·
UUO
DISMISS
READ [MASK], LOAD PI
ABORT MEM CYCLE,
J/XJRSTFO

XJRSTF: MEM READ, [BR] MEM
[AR] [AR]+1, LOAD-VMA,
START READ
MEM READ, [PC]_MEM,
HOLD LEFT
READ [BR], LOAD FLAGS,
UPDATE USER
[FLG] [FLG].AND.NOT.#,
PISET :
FLG.~I/1. J/PIEXIT

=0
XPCW:

UUO
[BRLFLAGS

=0*0
PIXPCW: VMA [AR], START WRITE,
CALL [STOBR]
VMA [AR]+l, LOAD VMA,
=1*0
START WRITE,
CALL [STOPC]
[AR] [AR]+l,
START READ, J/XJRSTF
=0
SFM:

UUO
VMA [AR], START WRITE
[ART_FLAGS, J/STORE

;HERE IF USER MODE
;CLEAR HIGHEST INTERRUPT
;NO MORE INTERRUPTS
;AVOID INTERRUPT PAGE FAIL
;START READING FLAG WORD
;PUT FLAGS IN BR
;INCREMENT ADDRESS
;PUT RESULT IN VMA
;START MEMORY
;PUT DATA IN PC
;IGNORE SECTION NUMBER
;LOAD NEW FLAGS
;BUT HOLD USER FLAG
;CLEAR PI CYCLE
;RELOAD PI HARDWARE
; INCASE THIS IS AN
; INTERRUPT INSTRUCTION
;USER MODE
;PUT FLAGS IN BR
;STORE FLAGS
;PUT BR IN MEMORY
;PREPEARE TO STORE PC
;PUT PC IN MEMORY
;DO NEW PC PART

;STORE FLAGS
; STORE AND EXIT

T10KL.MCR[10,l141J
SIMPLE .MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0256,0000,1541,1100

U 1541, 1152,4443,0000,4174,4007,0340,0000,0000,0000

U 1152, 2711,3441,0302,4174,4617.0700,0000,0000,0100

U 1153, 1152,3333,0002,4174,4167,0700,0000,0000,0000
U 2711, 0363,4713,1202,7174,4007.0700.0400,0000,0422

3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
; 3665

KS10 MICROCOOE V124, 27-JUL-84
XCT

Page 101

.TOC

"XCT"

256:

.DCODE
R,
.UCODE

1541 :
XCT:
=0
XCT1A:

SKIP KERNEL

; SEE IF MAY BE PXCT

[HR] _[AR],
DBUS!DP,
LOAD INST,
PXCT!E1,
J!XCT1

;STUFF INTO HR
;PLACE ON DBUS FOR IR
;LOAD IR, AC, XR, ETC.
;ALLOW XR TO BE PREVIOUS
; CONTINUE BELOW

READ (HR1,
LOAD PXCT,
J!XCT1A

;LOAD PXCT FLAGS

XCT1 :

J!XCT

;OPERAND FETCHED AS DATA

;

..

;CONTINUE WITH NORMAL FLOW

WORK[YSAVE] [HR] CLR LH, ; SAVE FOR 10 INSTRUCTIDNS
J!XCT2
; GO EXECUT'Ej IT

(

n

T 10KL. MeR [ 10, 1141 ]
SIMPLE.MIC[10,l141]

o
o
o
o

,~.

I

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0260, 0000,1544,2100
0261, 0002,1543,3100
0262,0002,1545,2100
0263, 0000,1546,2100

U 1543, 2712,3771,0005,4365,5007,0700,0200,0000,0002

U 2712, 1156,0551,1504,0274,4407,0311,0200,0003,0712

U 1544, 2712,3741,0105,4074,4467,0700,0000,0005,0000

U 1156, 0220,3333,0005,4175,5003,7701,0200,0000,0002

U 1157, 2713,3333,0005,4175,5007,0701,0:200,0000,0002
U 2713, 0220,4443,0000,4174,4463,7700,0000,0001,2000

U 0220,

0221,3441,0301,417~,4007,0700,0200,0014,0012

U 0221, 0100,3440,0404,0174,4156,4700,0400,0000,0000
f

U 0222, 1400,3440,0404,0174,4007,0700,0400,0000,0000

3666
3667
3668
3669
3670
3671
3672
3673
3674'
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715

KS10 MICROCOOE V124, 27-JUL-84 Page 102
STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ
.TOC

"STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ"

260:

I ,

.DCOOE
IR,
I ,
I ,

B/O,
B/2,
B/2,

J/PUSHJ
J/PUSH
J/POP
J/POPJ

.UCODE
;ALL START WITH E IN AR
1543:
MEM READ,
PUSH:
[BRj MEM
PUSHl :
[ARX] AC+1000001,
INH CRY18,
LOAD VMA,
START WRITE,
PXCT STACK WORD,
3T,
SKIP CRYO,
J/STMAC
1544:
PUSHJ:

[BR] PC WITH FLAGS,
CLR FPD,
J/PUSH1

;PUT MEMOP IN BR
;BUMP BOTH HALVES OF AC
;NO CARRY
;START TO STORE ITEM
;START MEM CYCLE
;THIS IS THE STACK DATA WORD
;ALLOW TIME
;GO TO STMAC, SKIP IF POL OV

;COMPUTE UPDATED FLAGS
;CLEAR FIRST-PART-DONE
; AND JOIN PUSH CODE

=0

STMAC:

MEM WRITE,
; WAIT FOR MEMORY
MEM [BR],
;STORE BR ON STACK
;SEE IF PUSH OR PUSHJ
B DISP.
; BELOW
J/JSTAC
;WE MUST STORE THE STACK WORD PRIOR TO SETTING POL OV IN CASE OF
; PAGE FAIL.
;WAIT FOR MEMORY
MEM WRITE.
;STORE BR
MEM [BR]
SETPDL: SET-POL OV,
;OVERFLOW
B\DISP,
;SEE IF PUSH OR PUSHJ
;BELOW
J/..JSTAC
=00

JSTAC:

[PC,L[AR],
LOAD VMA,
FETCH
JSTAC1: AC [ARX],
NEXT INST
AC [ARX],
J/DDNE

;PUSHJ--LOAD PC
;lOAD ADDRESS
;GET NEXT INST
;STORE BACK STACK PTR
;00 NEXT INST
;UPDATE STACK POINTER
;00 NEXT INST

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1545, 2714,3771,0004,0276,6007,0701,0200,0004,0712
U 2714, 2715,3771,0005,4365,5007,0700,0200,0000,0002

U 2715,

1160,0551,0404,4374,4407,0311,0000,0077,7777

U 1160, 2717,3443,0300,4174,4007,0700,0200,0003,0312

U 1161, 2716,3443,0300,4174,4007,0700,0200,0003,0312

U 2716, 0220,3333,0005,4175,5003,7701,0200,0000,0002

U 2717, 2713,3333,0005,4175,5007,0701,0200,0000,0002

U 1546, 2720,3771,0004,0276,6007,0701,0200,0004,0712

U 2720, 1162,0551,0404,4374,4407,0311,0000,0077,7777
U 1162, 1163,4443,0000,4174,4467,0700,0000,0001,2000
U 1163, 0221,3771,0001,4361,5007,0700,0200,0000,0002

3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747'
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762

KS10 MICROCODE V124, 27-JUL-84 Page 103
STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ
1545:
POP:

=0

POPX1:

1546:
POPJ:

=0

[ARX] AC,
LOAD liMA,
START READ, 3T,
PXCT STACK WORD

;GET POINTER
;ADDRESS OF STACK WORD
; ST ART CYCLE
;FOR PXCT

MEM READ,
[BR]=..-MEM

;LOAD BR (QUIT IF PAGE FAIL)
;STACK WORD TO BR

[ARX] [ARX]+#,
#/777777 ,
INH CRY18, 3T,
SKIP CRYO

;UPDATE POINTER
; -1 IN EACH HALF
;BUT NO CARRY
;SEE IF OVERFLOW

VMA [AR),
PXCT DATA,
ST ART WR ITE,
J/POPXl

;EFFECTIVE ADDRESS
;FOR PXCT
;WHERE TO STORE RESULT
;OVERFLOW

VMA [AR],
PXCT DATA,
START 'WRITE

;EFFECTIVE ADDRESS
;FOR PXCT
;WHERE TO STORE RESULT

MEM WRITE,
MEM[BR],
B DISP,
J/JSTAC

;WAIT FOR MEM
;STORE BR
;POP OR POPJ?
;STORE POINTER

MEM WRITE,
MEM [BR],
J/SETPDL

; WAIT FOR MEMORY
;STORE BR
; GO SET POL OV

[ARX) AC,
LOAD liMA,
PXCT STACK WORD, 3T,
START READ
[ARX) [ARX]+#,
#/777777,
INH CRY18, 3T,
SKIP CRYO
SET POL OV
MEM READ, [PC]_MEM,
HOLD LEFT,
J/JSTACl

;GET POINTER
;POINT TO STACK WORD
;FOR PXCT
;START READ
;UPOATE POINTER
;-1 IN BOTH HALFS
;INHIBIT CARRY 18
;SEE IF OVERFLOW
; SET OVERFLOW
;STICK DATA IN PC
;NO FLAGS
;STORE POINTER

~
>"",,-,i [

T 10K L
10, 1 14 1 ]
SIMPLE .MIC[ 10,1141]

;

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0105, 0000,1551,3000

U 1551, 2721,3770,0303,4344,0007,0700,0000,0000,0000
U 2721, 1164,3771,0005,0276,6007,0521,0000,0000,0000

U 1164,

1166,0113,0503,0174,4407,0521,0400,0000,0000

U 1165, 1170,0113,0503,0174,4407,0521,0400,0000,0000
U

~166,

0100,4443,0000,4174,4156,4700,0000,0000,0000

U 1167, 0603,4443,0000,4174,4467,0700,0000;0001,2000

U 1170, 0603,4443,0000,4174,4467,0700,0000,0001,2000
U 1171, 0100,4443,0000,4174,4156,4700,0000,0000,0000

3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
378"'1
3788
3789
3790
, 3791
3792
3793
3794
3795

KS10 MICROCODE V124, 27-JUL-84
STACK INSTRUCTIONS -- ADJSP
.TOC

"STACK INSTRUCTIONS

105:

.DCODE
I-PF,
.UCDDE

1551:
ADJSP:

=0

B/O,

[ARJ [AR] SWAP,
HOLD-RIGHT
[BR] AC,
3T,
SKIP DPO
AC [BRJ+[ARJ,
INH CRY18,
SKIP DPO,
3T,
J/ADJSPl
AC [BR]+[AR],
INH CRY18,
SKIP DPO,
3T,
J/ADJSP2

Page 104
ADJSP"
J/ADJSP

;MAKE 2 COPIES OF RH
;READ AC, SEE IF MINUS
;UPDATE AC
;NO CARRY
;SEE IF STILL OK
; ALLOW TIME
;TEST FOR OFLO
;UPDATE AC
;NO CARRY
;SEE IF STILL MINUS
;ALLOW TIME FOR SKIP
; CONTINUE BELOW

=0
ADJSP1: NEXT INST
SET PDL OV,
J/NIDISP

NO OVERFLOW
SET PDL OV
GO DO NICOND DISP

=0
ADJSP2: SET PDL OV,
J/NIDISP
NEXT INST

SET PDL OV
GO DO NICOND DISP
NO OVERFLOW

I

Tl0KL.MCR[10,1141]
SIMPLE. MI C [ 10, 114 1 ]

15:34 27-JULY-1984
15:31 27-JUlY-1984

MICRO 31(254)

o
o
o

0264,0000,1552,2100
0265, 0000,1550,2100
0266, 0000,1554,2100
o 0267, 0000,1555,2100

U 1550, 2722,3741,0105,4074,4007,0700,0000,0000,0000
U 2722, 0764,3440,0505,0174,4467,0700,0400,0005,0000

U 1552, 2723,3741,0105,4074,4467,0700,0000,0005,0000
U 2723, 2724,3443,0300,4174,4007,0700,0200,0003,0012
U 2724, 2725,3333,0005,4175,5007,0701,0200,0000,0002

U 2725, 0107,0551,0301,4370,4007,0701,0000,0000,0001

U 1554, 2726,3441,0305,4174,4007,0700,0200,0003,0002
U 2726, 0130,3770,0304,4344,4007,0700,0000,0000,0000
U 0130, 3070,3771,0003,0276,6007,0700,0010,0000,0000
U 0134, 3704,3441,0104,4170,4007,0700,0010,0000,0000

U 0135, 0107,0551,0501,4370,4007.0701,0000,0000,0001

U 1555, 2727,3771,0005,0276',6007,0700,0000,0000,0000
U 2727, 2730,3770,0505,4344,4007,0700,0000,0000,0000
U 2730, 2731,3443,0500,4174,4007,0700,0200,0004,0012
U 2731, 0274,3771,0005,4365,5007,0700,0200,0000,0002

3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842.
3843
3844
3845
3846
3847

KS10 MICROCODE V124, 27-JUL-84 Page 105
SUBROUTINE CALL/RETURN --'JSR, JSP, JSA, JRA
.TOC

"SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA"

264:

I ,

.OCODE
I.
I,
I ,

J/JSR
J/JSP
J/JSA
J/JRA

.UCODE
1550:
JSP:

1552:
JSR:

1554:
JSA:
=0*0
=1*0
=1*1

1555:
JRA:

[BR] PC WITH FLAGS
CLR FPD,
AC [BR],
J/JUMPA

;GET PC WITH FLAGS
;CLEAR FIRST-PART-OONE
;STORE FLAGS
;GO JUMP

[BRj PC WITH FLAGS,
CLR FPD
VMA [AR],
START WRITE
MEM WRITE,
MEM [BR]
[PC] [ARj+l000001,
HOLO-LEFT,
3T,
J/START

;GET PC WITH FLAGS
;CLEAR FIRST-PART-DONE
;EFFECTIVE ADDRESS
;STORE OLD PC WORO
;WAIT FOR MEMORY
;STORE
;PC
E+l
;NO JUNK IN LEFT
;ALLOW TIME FOR DBM
;START AT E+l

[BR] [AR].
START WRITE
[ARX] fAR] SWAP
[AR) AC,
CALL-[IBPX)
[ARX] [PC),
HOLO LEFT,
CALL [AC ARX]
[PC] [BR]+1000001,
3T,
HOLD LEFT,
J/START

;SAVE E
;START TO STORE
;ARX LEFT
E
;GET OLO AC
;SAVE AR IN MEMORY
;ARX NOW HAS E, ,PC

[BR] AC
[BR]-[BR] SWAP
VMA TBR].
START READ
MEM READ,
[BR] MEM,
J/dMPA

;GET AC
;OLD E IN BR RIGHT
;LOAD VMA
; FETCH SAVED AC
; WA IT FOR MEMORY
;LOAO BR WITH SAVE AC
;GO JUMP

;GO PUT ARX IN AC
;NEW PC
;ALLOW TIME
;NO JUNK IN PC LEFT
;START AT E+l

a

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]
"0
0
0
0
0
0
0
0

0030,
0031,
0032,
0033,
0034,
0035,
0036,
0037,

~r

.~.

0000,1557,2100
0001,1557,2100
0002,1557,2100
0003,1557,2100
0004,1557,2100
0005,1557,2100
0006,1557,2100
0007,1557,2100

0 0040, 0000,1556,2100
0 0041, 0000,1556,2100

D 0042, 0000, 1556,2100
D 0043, 0000, 1556, 2 100
0 0044, 0000,1556,2100
0 0045, 0000,1556,2100
0 0046, 0000,1556,2100
D 0047, 0000,1556,2100
D 0050, 0000,1556,2100
0 0051, 0000,1556,2100
0 0052, 0000,1556,2100
0 0053, 0000,1556,2100
0 0054, 0000,1556,2100
0 0055, 0000,1556,2100
0 0056, 0000,1556,2100
0 0057, 0000,1556,2100
0 0060, 0000,1556,2100
D 0061, 0000, 1556, 2100
0 0062, 0000,1556,2100
D 0063, 0000,1556,2100
0 0064, 0000,1556,2100
0 0065, 0000,1556,2100
0 0066, 0000,1556,2100
0 0067, 0000,1556,2100
0 0070, 0000,1556,2100
0 0071, 0000,1556,2100
D 0072, 0000,1556,2100
D 0073, 0000,1556,2100
D 0074, 0000,1556,2100
D 0075, 0000,1556,2100
0 0076, 0000,1556,2100
0 0077, 0000,1556,2100

0 0100, 0000,1556,2100
0 0101, 0000,1661,2100

D 0102, 0000,1662,2100
0 0103, 0000,1663,2100

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886'
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902

r

KS10 MICROCODE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS ANO UUO'S

Page 106

.TOC
"ILLEGAL INSTRUCTIONS AND UUD'S"
;LUUO'S TRAP TO CURRENT CONTEXT
030:

.OCODE
I,
I,
I ,
I ,
I ,

I,
I,

I,

B/O,
B/1,
B/2,
B/3,
B/4,
B/5,
B/6,
B/7,

J/LUUO
J/LUUO
J/LUUO
J/LUUO
J/LUUO
J/LUUO
J/LUUO
J/LUUO

; MONITOR UUO' S -- TRAP TO EXEC
040:

I,
I,
I ,
I ,

I,
I,

I,
I,
I,
I,

I,
I,
I ,

I,
I ,

I,
I,
I ,

I,
I.

I,
I,
I ,

I,
I,
I,
I,
I,
I,
I ,
I,
I ,

J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUD
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUD
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO

;CALL
; INIT

J/UUO
J/UU0101
J/UU0102
J/UU0103

;UJEN

;CALLI
;OPEN
;TTCALL

;RENAME
; IN
;OUT
;SETSTS
;STATO
;GETSTS
;STATZ
; INBUF
;OUTBUF
; INPUT
;OUTPUT
;CLDSE
;RELEAS
;MTAPE
;UGETF
;USETI
;USETO
; LOOKUP
; ENTER

; EXP,ANSION OPCODES
100:

I
I
I
I

,
,
,
,

;GFAD
;GFSB

Tl0KL.MCR[10,l141]
SIMPLE .MIC[ 10,1141]

0
D
D
0
D
0
0
0
D
0
0

0000,
0104,
0106,
0107,
0130,
0131,
0141,
0151,
0161.
0171,
0247,

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0000,1556,2100
0000,1664,2100
0000,1666,2100
0000,1667,2100
0000,1660,2100
0001,1660,2100
0002, 1660, 2 100
0003,1660,2100
0004,1660,2100
0005,1660,2100
0000,1665,2100

U 1661, 2732,4551,0202,4374,0007,0700,0000,0077.7740
U 1662, 2732,4551,0202,4374,0007.0700,0000,0077.7740
U 1663, 2732,4551,0202,4374.0007,0700,0000,0077.7740
U 1664, 2732,4551.0202,4374,0007,0700,0000,0077,7740
U 1666, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1667, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1660, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1665, 2732,4551,0202,4374,0007,0700,0000,0077,7740

3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934

KS10 MICROCODE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S

Page 107

;RESERVED OPCODES
000:
104:
106:
130:
141:
151:
161:
171 :
247:

I•
I,
I,
I,
I.
I,
I.
I .

I,
I.
I,
.ueODE

1661 :
UU010l: UUO
1662:
UU0102: UUD
1663:
UUD103: UUD
1664:
JSYS:
UUO
1666:
UUD106: UUO
1667:
UU0107: UUO
1660:
FP-LONG:UUO
1665:
UUD247: UUO

B/O.
B/l,
B/2,
B/3,
B/4,
B/5,

J/UUO
J/JSYS
J/UU0106
J/UU0107
J/FP-LONG
J/FP-LONG
J/FP-LONG
J/FP-LDNG
J/FP-LONG
J/FP-LDNG
J/UU0247

;JSYS
;GFMP
;GFDV
;UFA
;DFN
;FADL
;FSBL
;FMPL
;FDVL
;RESERVED

r)

T 1OKL .MeR [ 10, 1141 ]
SIMPLE .MIC[ 10,1141]

15:34 27-JULY-t984
15:31 27-JULY-1984

MICRO 31(254)

U 1556, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 2732, 1172,4751,1204,4374,4007,0700,0000,0000,0424
U 1172, 1575,0111,1104,4174,4007,0700,0010,0000,0000

3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949

KS10 MICROCODE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S
;HERE FOR UUO'S WHICH TRAP TO
1556:
UUO:
;THIS TAG IS USED FOR
MUUO:
;THIS TAG IS USED FOR
[HR] [HR]. AND. # ,
#/777740,
HOLD RIGHT
;THE UUO MACRO DOES THE ABOVE
UUDGO:
[ARX]_O XWD [424]
[ARX] [ARX]+[UBR],
CALL TABORT]
.IF/KIPAGE
.IF/KLPAGE
READ [EBRl,

=0

Page 108
EXEC
ILLEGAL THINGS WHICH DO UUO TRAPS
MONITOR CALL INSTRUCTIONS
;MASK OUT @ ANO XR
;MASK
; KEEP RIGHT
INSTRUCTION AND GOES TO UUOGO
;HERE FROM UUO MACRO
;GET OFFSET TO UPT
;ADDRESS OF MUUO WORD
;STOP MEMORY
;IF BOTH POSSIBLE, SEE WHICH IS ENAB

ED

U 1173, 1174,3770,0203,4344,4007,0700,0000,0000,0000
U 1174, 2740,4521,1203,4074,0007.0700,0010,0000,0000
U 1175, 0334,3333,0004,4174,4007,0700,0200,0021,1016
U 0334, 2741,3333,0003,4175,5007,0701,0210,0000,0002
U 0336, 0020,3333,0001,4175,5007,0701,0200,0000,0002
U 0020, 2741,4221,0002,4174,0007,0700,0010,0000,0000

U 0022, 3554,3333,0002,4175,5007.0701,0210,0000,0002
U 0023, 3702,0111,0704,4170,4007,0700,0210,0023,1016

; ; 3950
; ; 3951
; ; 3952
; ; 3953
; ; 3954
; ; 3955
; ; 3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981

SKIP DPO
=0
.ENDIF/KLPAGE
READ [ARX],
LOAD VMA,
VMA PHYSICAL WRITE,
J/KIMUUO
.ENDIF/KIPAGE
.IF/KLPAGE
[AR] [HR] SWAP
=0
[AR]-FLAGS.
HOLD RIGHT,
CALL [UUOFLG]
READ [ARX],
LOAD VMA,
VMA PHYSICAL WRITE
=0*
MEM WRITE,
MEM [AR], CALL [NEXT]
MEM-WRITE,
MEM [PC]
=000
[HR] 0,
HOLD-RIGHT, CALL [NEXT]
.ENDIF/KLPAGE
=010
UUOPCW: MEM WRITE,
MEM_[HR),
CALL [GETPCW]
=011

;KL PAGING ??
;GET THE ADDRESS
; START WRITE
;ABSOLUTE ADDRESS
;GO STORE KI STYLE
;PUT IN RIGHT HALF
;FLAGS IN LEFT HALF
;JUST WANT FLAGS
;CLEAR TRAP FLAGS
;LOOK AT ADDRESS
;LOAD THE VMA
;STORE FLAG WORD
; WA IT FOR MEMORY
;STORE
; WA IT FOR MEMORY
;STORE FULL WORD PC
;SAVE E
;BUT CLEAR OPCODE
;WAIT FOR MEMORY
;STORE INSTRUCTION IN KI
; OR FULL WORD E IN KL
;GET PROCESS-CONTEXT-WORD

NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD
CALL [STOBR)
;STORE PROCESS CONTEXT WORD

T10KL.MCR[10,1141J
SIMPLE.MIC[ 10,1141 J

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0027, 2733,4751,1205,4374,4007,0700,0000,0000,0430
U 2733, 2734,0111,1105,4174,4007,0700,0000,0000,0000
U 2734, 2735,4521,1203,4074,4007,0700,0000,0000,0000
1176,4553,0300,4374,4007,0321,0000,0000,0600

U 2735,

U 1176, 1177,3551,0505,4370,4007,0700,0000,0000,0001
U 1177 , 1200,4553,0300,4374,4007,0321,0000,0001,0000
U 1200, 1201,3551,0505,4370,4007,0700,0000,0000,0004

U 1201, 2736,3333,0005,4174,4007,0700,0200,0024,1016
U 2736, 2737,3771,0003,4365,5007,0700,0200,0000,0002

U 2737, 0764,3333,0003,4174,4467,0700,0000,0000,0404

U 2740, 0001,5551,0303,4374,0004,1700,0000,0000,0600
U 2741,0002,0111,0704,4170,4004,1700,0200,0023,1016

~

..

3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003
4004
4005
4006
4007
; 4008
; ;4009
; ; 4010
; ; 4011
; ; 4012
; ; 4013
; ; 4014
;; 4015
; ; 4016
; ;4017
; ; 4018
; ; 4019
4020
4021
4022
4023
4024
4025
4026
4027
4028

KS10 MICROCOOE V124. 27-JUL-84
ILLEGAL INSTRUCTIONS ANO UUO'S

Page 109

;NOW WE MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS
=111
[BR]_O XWD [430J
;OFFSET INTO UPT
[BR] [BRJ+[UBR]
[AR]-FLAGS
TL CAR],
#/600
=0
[BR] [BRJ.OR.#,
#/1,
HOLD LEFT
TL [AR],
#/10000
=0
[BRj 1BRj.OR.#,
#/4,
HOLD LEFT
R·EAD [BR],
LOAD VMA,
VMA PHYSICAL,
START READ
GOEXEC: MEM READ,
[AR] MEM
READ-[AR] ,
LOAD FLAGS,
LEAVE USER,
LOAD PCU,
J/JUMPA

;ADDRESS OF WORD
;GET FLAGS
;LOOK AT FLAGS
;TRAP SET?
;YES--POINT TO TRAP CASE
;LEAVE LEFT ALONE
;USER OR EXEC
;USER
;POINT TO USER WORDS
;LOOK AT ADDRESS
;PLACE IN VMA
;PHYSICAL ADDRESS
;GET NEW PC WORD
;WAIT FOR DATA
; STICK IN AR
;LOOK AT DATA
;LOAD NEW FLAGS
;ALLOW USER TO LOAD
;SET PCU FROM USER
; JUMP

.IF/KIPAGE
; HERE FOR TOPS-lO STYLE PAGING
=00
KIMUUO: MEM WRITE,
MEM [HR], CALL [NEXT]
=10
[AR] PC WITH FLAGS,
CALL-[UUOFLG]
=11
MEM WRITE,
MEM [AR],
J/UUOPCW
.ENDIF/KIPAGE

;STORE INSTRUCTION
;IN MEMORY
,
; GET PC WORD
;CLEAR TRAP FLAGS
;STORE PC WORD
;GO STORE PROCESS CONTEXT

UUOFLG:

[AR] [AR].AND.NOT.#,
#/600, HOLD RIGHT,
RETURN [1]

NEXT:

NEXT [ARX] PHYSICAL WRITE,
RETURN [2]

;CLEAR TRAP FLAGS
; IN WORD TO SAVE
; BACK TO CALLER
;POINT TO NEXT WORD

r,
"'-_

J

T10KL.MCR[10,1141]
SIMPLE.MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1557, 0400,4751,1203,4374,4007,0700,0000,0000.0040

U 0400. 2742,3333,0003,4174,4007,0700,0200,0003,0012
U 2742, 2743,4551,0202,4374,0007,0700,0000,0077.7740
U 2743, 2744,3333,0002,4175,5007.0701,0200,0000,0002

U 2744. 2521,0111,0703,4170,4007,0700,0200,0004,0012

4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046

KS10 MICROCODE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S

Page 110

;HERE FOR LUUO'S
1557:
LUUO:
[AR] 0 XWD [40]
;AR GET CONSTANT 40
;THE LUUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO LUU01
400:
;FOR SIMULATOR
LUUO 1 : READ [AR],
;LOAD 40 INTO
LOAD VMA,
; THE VMA AND
START WRITE
; PREPARE TO STORE
[HR 1 [HR]. AND. # .
;CLEAR OUT INDEX AND @
#/777740,
HOLD RIGHT
MEM WRITE,
;STORE LUUD IN 40
MEM [HR]
VMA-[AR]+1,
POINT TO 41
LOAD VMA,
PUT 41 IN VMA
START READ,
START FETCH
J/CONT1
GO EXECUTE THE INSTRUCTION

T10KL.MCR[10,1141]
SIMPLLMIC[ 10,1141]

o
o
o
o

MICRO 31(254)

0270, 1015,1560,1100
0271, 0015,1560,3000
0272,0016,1560,1700
0273, 0017,1560,1700

U 1560,

o
o
o
o

15:34 27-JULY-1984
15:31 27-JULY-1984

1500,0551,0303,0274,4463,7701,0200,0001,0001

0274, 10 15 , 156 1 , 1100
0275, 0015,1561,3000
0276, 0016,1561,1700
0277,0017,1561,1700

U 1561,' 1500,2551,0303,0274,4463,7701,4200,0001,0001

4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- ADD, SUB
'
.TOC
270:

1560:
ADD:

"ARITHMETIC
,OCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,

M,
B,

Page 111

ADD, SUB"
J/ADO
J/ADO
J/AOO
J/ADO

[ARL[AR]+AC,
AD FLAGS EXIT, 3T

DO THE ADD
UPDATE CARRY FLAGS
STORE ANSWER
MISSES 3-TICKS BY 3 NS.

.DCOOE
274:

R~PF,

I-PF,
RW,
RW,
.UCODE
1561 :
SUB:

AC,
AC,
M,
B,

J/SUB
J/SUB
J/SUB
J/SUB

[AR] AC- [AR],
AD FLAGS EXIT. 3T

DO THE SUBTRACT
UPDATE PC CARRY FLAGS
ALL DONE
MISSES 3-TICKS BY 3 NS.

~I

~
\
/

T10KL.MCR[10,l141]
SIMPLE. MI C [ 10, 1141

,

J

15:34 27-JULY-1984
15:31 27-JULY-1984

MI~RO

D 0114, 0205,1457,1100
D 0115, 0205,1615,1100

U 1457, 1202,0551,0404,1274,4007,0562,0000,0000,1441

U 1202, 2746,0551,0303,0274,4467,0702,4000,0001,0001
U 1203, 2745,7441,1205,4174,4007,0700,0000,0000,0000
U 2745,

1202,3111,0503,4170,4007,0700,0000,0000,0000

U 1615, 1204,2551,0404,1274,4007,0562,4000,0000,1441
U 1204, 2746,2551,0303,0274,4467,0702,0000,0001,0001
U 1205, 2746,2551,0303,0274,4467,0702,4000,0001,0001
U 2746, 1206,3770,0303,4174,0007,0520,0000,0000,0000
U 1206, 1404,4551,0404,4374,0007,0700,0000,0037,7777
U 1207, 1404,3551,0404,4374,0007,0700,0000,0040,0000

31(254)
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DADD, DSUB
.TOC
114 :

14~;( :
DADD:

=0
DADD1:

1615:
DSUB:

"ARITHMETIC
.DCODE
DBL R,
DBL R,
.UCODE

DAC,
DAC,

Paga 112

DADD, DSUB"
J/DADD
J/DSUB

[ARX] [ARX]+AC[1], 4T,
SKIP CRY1

;ADD LOW WORDS
;SEE IF CARRY TO HIGH WORD

[AR] [AR]+AC,
ADD -:-25,
AD FLAGS, 4T,
J/CPYSGN
[BR] .NOT.[MASK]
[AR]-(AR].OR.[BR],
HOLD-LEFT, J/DADD1

;ADD HIGH WORDS
;ADD IN ANY CARRY FROM LOW WORD
;UPDATE PC FLAGS
;COPY SIGN TO LOW WORD
;SET BITS 35 AND 36 IN
; AR SO THAT ADD .25 WILL
; ADD 1.

[ARX] AC[ 1 ]-[ARX], 4T,
SKIP CRY1
[~R] AC-[AR]-.25,
AD FLAGS, 4T,
J/CPYSGN
[AR] AC-[ARJ. 4T,
AD FLAGS

;SUBTRACT LOW WORD
;SEE IF CARRY
;NO CARRY
;UPDATE PC FLAGS
;GO COPY SIGN
;THERE WAS A CARRY
;UPDATE CARRY FLAGS

CPYSGN: FIX [AR] SIGN, SKIP DPO
=0
[ARX] [ARX].AND.#, #/377777, HOLD RIGHT, J/MOVE
[ARX]-[ARX].OR.#, #/400000, HOLD RIGHT, J/MOVE

T 10KL. MCR [ 10, 1141 ]
SIMPLE .MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

o
o
o

0220, 1015,1641,1100
0221, 0015,1641,3000
0222, 0016,1641,1700
D 0223,0017,1641,1700
U 1641, 2747,3441,0306,0174,4007,0700,0000,0000,0000
U 2747, 0021,3772,0000,0275,5007,0700,2000,0071,0043
U
U
U
U

0021,
0025,
1210,
1211,

2773,3446,0606,4174,4007,0700,0010,0000,0000
1210,3333,0004,4174,4007,0621,0000,0000,0000
2750,3445,0404,4174,4007,0700,0000,0000,0000
1500,3221,0003,4174,4003,7700,0200,0003,0001

U 2750, 12 12 , 51 13 , 04 1 2 , 4 1 74 , 4007 , 062 1 ,0000,0000,0000
U 1212,

1214,3770,0404,4174,0007,0520,0000,0000,0000
U 1213, 1500,7001,0003,4174,4003,7700,0200,0003,0001
U 1214, 1404,3221,0003,4174,4467,0700,0000,0041,1000
U 1215, 1404,7001,0003,4174,4467,0700,0000,0041,1000

o
o

0224, 1005,1571,1100
0225,0005,1571,3000
D 0226, 0016,1571,1700
D 0227, 0006,1571,1700

U 1571, 2751,3442,0300,0174,4007,0700,0000,0000,0000
U 2751, 2752,3441,0316,4174,4007,0700,0000,0000,0000
U 2752,' 0031,3771,0006,0276,6007,0700,2000,0071,0043
U 0031, 2773,3446,0606,4174,4007,0700,0010,0000,0000
U 0035, 2753,3445,0403,4174,4007,0700,0000,0000,0000
U 2753, 1216,3770,0303,4174,0007,0520,0000,0000,0000
U 1216, 1500,4001,0004,4174,4003,7700,0200,0003,0001
U 1217, 1220,4113,0616,4174,4007,0520,0000,0000,0000
U 1220. 1500,7001,0004,4174,4003,7700,0200,0003,0001
U 1221, 1404,7001,0004,4174,4467,0700,0000,0041,1000

4109
4110
4111
4112
41'13
4114
4115
4116
4117
4118
4119
4120
4121
4122
; 4123
; . 4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- MUL, IMUL
.TOC
220:

1641:
I MUL :
=0**
=0
I MUL 1 :
IMUL2:
=0
=0
IMUL3:

224:

1571:
MUL:

"AR ITHMETI C
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

=0
=0

M,
B,

IMUL"

J/IMUL
J/IMUL
J/IMUL
J/IMUL

[BRX] [AR], AC
;COPY C(E)
Q AC,~SC 35.
;GET THE AC
[BRX] [BRX]*.5 LONG,
;SHIFT RIGHT
CALL [MULSUB]
;MULTIPLY
READ. [ARX], SKIP AD.EQ.O ;SEE IF FITS
[ARX] [ARX]*2, J/IMUL2
;NOT ZERO--SHIFT LEFT
(AR]_Q, EXIT
;POSITIVE
[MASK).AND.NOT.[ARX],
SKIP AD.EQ.O
FIX [ARX] SIGN,
SKIP DPO, J/IMUL3
[AR] [MAG].EQV.Q, EXIT

;SEE IF ALL SIGN BITS
;NOT ALL SIGN BITS
;GIVE + OR - OVERFLOW
;NEGATIVE

[AR] Q, SET AROV, J/MOVE
[AR]-[MAG].EQV.Q, SET AROV, J/MOVE
.DCODE
R-PF,
I-PF,
RW,
RW,
.UGODE

DAC,
DAC,

M,
DBL B,

J/MUL
J/MUL
J/MUL
J/MUL

[AR], AC
;COPY C(E)
[AR]
;SAVE FOR OVERFLOW TEST
[BRXT AG, SG 35.
;GET THE AG
[BRX]-[BRX]*~5 LONG,
;SHIFT OVER
CALL TMULSUB]
;MULTIPLY
[AR] [ARX]*2
; SHI FT OVER
FIX TAR] SIGN, SKIP DPO ;SEE IF NEGATIVE
[ARX] [MAG].AND.Q,
; POSITIVE
EXIT
[TOJ.AND.[BRX], SKIP OPO ;TRIED TO SQUARE lBO?·
[ARX] [MAG].EQV.Q, EXIT ;NO
[ARX] [MAG].EQV.Q,
;YES
SET AROV, J/MOVE
Q

[TO]

=0**

AC,
AC,

MUL,

Page 113

~
\

j

T 10K L. MeR [ 10, 1 14 1 ]
SIMP L E . MI C [ 10, 1 14 1 ]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0116,0205,1566,1100

U 1566, 2754,3447,0303,4174,4007,0700,0000,0000,0000
U 2754, 2755,4117,0004,4174,4007,0700,0000,0000,0000
U 2755, 0120,3441,0405,4174,4007,0350,0000,0000,0000

U 0120, 2767,4557,0006,1274,4007,0701,0010,0000,1441
U 0121, 2757,4557,0004,1274,4007,0701,0000,0000,1442
U 0124, 0171,3223,0000,1174,4007,0700,0400,0000,1443

U 0171, 0563,3442,0300,4174,4007,0700,2010,0071,0043
U 0175, 2756,3441,0416,4174,4007,0700,0000,0000,0000
U 2756, 0310,3227,0004,1174,4007,0700,0400,0000,1442
U 2757, 0310,3777,0016,1276,6007,0701,0000,0000,1441

U 0310, 2770,3777,0006,0274,4007,0701,0010,0000,0000
U 0311, 2772,0113,1616,1174,4007,0701,0400,0000,1441
U 0314, 2760,3223,0000,1174,4007,0700,0400,0000,1442
U 2760, 0543,0111,1604,4174,4007,0700,0000,0000,0000

U 0543, 0563,3442,0300,4174,4007,0700,2010,0071,0043
U 0547, 2761,3445,0404,4174,4467,0700,0000,0005,0000

4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC --. DMUL
.TOC

"ARITHMETIC -- DMUL"

116 :

.DCODE
DBL R,
.UCOOE

DAC,

Page 114

J/DMUL

. I F'/FULL
1566:
[AR] [AR]*.5
;SHIFT MEM OPERAND RIGHT
DMUL:
[ARX) ([ARX].AND.[MAG])*.5
[BR] TARX],
;COPY LOW WORD
SKIP-FPD
;SEE IF FIRST PART DONE
BRX * BR ==> C(E+1) * C(AC+1)
=000

[BRX] (AC[1].AND.[MAGJ)*.5, 3T, ;GET LOW AC
CALL TOMULGO]
;START MULTIPLY
[ARX] (AC[2].ANO.[MAG])*.5, 3T, ;FIRST PART DONE
J/DMULl
;GO DO SECOND PART
AC[3l_Q
;SALT AWAY 1 WORD OF PRODUCT

=100

BRX * Q ==> C(E) * C(AC+1)
=0**

DMUL1:
=0*0
,
; BRX
,
OMUL2:

Q [ARl. SC 35.,
CALL [QMULT]
[TO] [ARX]
AC[2) Q, [ARXLQ*.5,
J/DMUL2
[TOl_AC[1]*.5

*

;SAVE PRODUCT
;SAVE PRODUCT
;GO DO HIGH HALF
;RESTORE TO

BR ==> C(AC) * C(E+1)
[BRX] AC*.5.
CALL TOBLMUL]
AC[1] [TO]*2, 3T,
J/DMLINT
AC [2 LQ

;PREPARE TO DO HIGH HALF
; GO DO IT
; INTERRUPT, SAVE TO
;SET FPD AND INTERRUPT
;SAVE PRODUCT

[ARX] [ARX]+[TO]

;PREPARE FOR LAST MUL

BRX * Q ==> C(AC)
0**

;GO MULT NEXT HUNK

*

C(E)

Q [AR], SC 35.,
CALL [QMULT]
[ARX] [ARX]*2,
CLR FPO

DO THE LAST MULTIPLY
GO DO IT
SHIFT BACK
CLEAR FPD

T10KL.MCR[10,1141]
SIMPLE .MIC( 10,1141]
U
U
U
U
U
U
U

2761,
1222,
1223,
2762,
2763,
2764,
2765,

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

1222,3770,0404,0174,4007,0520,0400,0000,0000
2766,3223,0000,1174,4007,0700,0400,0000,1441
2762,7003,0000,1174,4007,0700,0400,0000,1441
2763,3772,0000,1275,5007,0701,0000,0000,1442
2764,7003,0000,1174,4007,0700,0400,0000,1442
2765,3772,0000,1275,5007,0701,0000,0000,1443
2766,7003,0000,1174,4007,0700,0400,0000,1443

U 2766, 1224,3741,0103,4074,4007,0520,0000,0000,0000
U 1224, 0110,3443,0100,4174,4156,4700,0200,0014,0012
U 1225, 1400,4443,0000,4174,4467,0700,0000,0041,1000

U 2767, 2770,4221,0004,4174,4007,0700,0000,0000,0000
U 2770, 2771,3442,0500;4174,4007,0700,2000,0071,0043
U 2771, 0563,3447,0606,4174,4007,0700,0000,0000,0000
U 0563, 2775,3446,1200,4174,4007,0700,0010,0000,0000
U 0567, 0004,0113,0404,4174,4464,1701,0000,0001,0001
U 2772, 2675,4443,0000,4174,4467,0700,0000,0003,0000

4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238

KS10 MICROCOOE V124, 27-JUL-84
ARITHMETIC -- DMUL

Page 115

AC (ARX] TEST, SKIP DPO ;PUT BACK INTO AC
AC[ll Q, J/DMTRAP
; POSITIVE
AC[lC(MAG].EQV.Q
;NEGATIVE
Q_AC(2]
AC[2] [MAG].EQV.Q
Q AC(3]
AC[3] [MAG).EQV.Q
DMTRAP: [AR] PC WITH FLAGS,
;LOOK AT FLAGS
SKIP-OPO
;SEE IF AROV SET?
=0
DONE
;NO--ALL OONE
SET AROV, J/DONE
;YES--FORCE TRAP 1 ALSO
=0

;WAYS TO CALL MULTIPLY
DMULGO: [ARX] 0
DBLMUL: Q [BR], SC 35.
[BRX] [BRXT*.5
=0**
QMULT:
Q Q*.5,
CALL [MULTIPLY]
[ARX]+[ARX] , AD FLAGS,
3T, RETURN [4]
DMLINT: SET FPO, J/FIXPC

;CLEAR ARX

;TEST FOR OVERFLOW
; AND RETURN
; SET FPO, BACKUP PC
; INTERRUPT

.IFNOT/FULL
1566:
DMUL:
UUO
. ENOIF /FULL
/

~
\,
;I

T 10KL. MeR [ 10,1141 ]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 2773, 2774,3446,0606,4174,4007,0700,0000,0000,0000
U 2774, 0122,4226,0004,4174,4007,0630,2000,0060,0000

U 2775, 0122,3446,1200,4174,4007,0630,2000,0060,0000

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DMUL

Page 116

4239
;MULTIPLY SUBROUTINE
4240 ; ENTERED WITH:
4241
MULTI PLI ER IN 0
4242
;
MULTIPLICAND IN BRX
4243
;RETURNS 4 WITH PRODUCT IN ARX!O
4244
4245 MUL STEP
"A/BRX,B/ARX,DEST/O O*.5,ASHC,STEP SC,MUL DISP"
4246 ·MUL FINAL
"A/BRX,B/ARX,DEST/O=O*2"
4247
4248 MULSUB: [BRX] [BRX]*.5 LONG
4249 MULSB1: [ARX]-0*.5 LONG,
;CLEAR ARX AND SHIFT 0
4250
STEP SC,
;COUNT FIRST STEP
4251
J/MUL+
;ENTER LOOP
4252
4253
;MULTIPLY SUBROUTINE
4254
; ENTERED WITH:
4255
MUL TIPLI ER IN 0
MULTIPLICAND IN BRX
4256
4257
;
PARTIAL PRODUCT IN ARX
4258
; RETURNS 4 WITH O*BRX+ARX IN ARX! Q
4259
4260 MULTI PLY:
4261
o 0*.5,
SHIFT 0
4262
STEP SC,
COUNT FIRST STEP
J/MUL't; 4263
ENTER LOOP
; 4264

T10KL·.MCR[ 10,1141]
SIMPlE.MIC(10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0122, 0122,3336,0604,4174,4046,2630,2000,0060,0000

U 0123, 0004,3334,0604,4174,4004,1700,0000,0000,0000

U 0126,0142,1116,0604,4174,4046,2630,6000,0060,0000

U 0127, 0004,1114,0604,4174,4004,1700.4000,0000.0000

U 0142. 0122,0116.0604,4174.4046,2630.2000,0060.0000

U 0143, 0004.0114,0604,4174,4004,1700,0000,0000,0000

U 0146, 0142,3336,0604,4174,4046,2630.2000,0.060,0000

U 0147, 0004,3334,0604,4174,4004,1700,0000,0000,0000

\

4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
i286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300

KS10 MICROCODE V124. 27-JUL-84
ARITHMETIC -- DMUL
;HERE FOR POSITIVE STEPS
=010
MUL+:
AD/B.
MUL STEP,
J/MUL+
=011
AD/B,
MUL FINAL,
RETURN [4]

=110

AD/B-A-.25, ADD .25,
MUL STEP,
J/MUL= 1 11

AD/B-A-.25, ADD .25,
MUL FINAL.
RETURN [4]

Page 117

;0 IN A POSITIVE STEP
;DON'T ADD
;SHIFT
;KEEP POSITIVE
;DONE
; DON'T ADD
;SHIFT
;SHIFT Q AND RETURN
; 1 IN A POSITIVE STEP
; SUBTRACT
;SHIFT AND COUNT
;NEGATIVE NOW
;DONE
; SUBTRACT
;SHIFT
; AND RETURN

;HERE FOR NEGATIVE STEPS
=010

MUL-:

AD/A+B,
MUL STEP.
J/MUL+

=011
AD/A+B,
MUL FINAL,
RETURN [4 J
= 110

AD/B.
MUL STEP,
J/MUL= 111
AD/B,
MUL FINAL.
RETURN [4]

;0 IN NEGATIVE STEP
;ADD
;SHIFT AND COUNT
; POSITIVE NOW
;DONE
;ADD
;SHIFT
;FIX Q AND RETURN
;1 IN NEGATIVE STEP
;DON'T ADD
;SHIFT AND COUNT
; STILL NEGATIVE
;DONE
;DON'T ADD
; SHIFT
;FIX Q AND RETURN

~

Tl0KL.MCR[10,l141]
SIMPLE .MIC[ 10,1141]

D
D
D
D

0230, 1005,1600,1100
0231,0005,1600,3000
0232, 0016,1600,1700
0233,0006,1600,1700

D
D
D
D

0234, 1005,1601,1100
0235,0005,1601,3000
0236,0016,1601,1700
0237, 0006,1601,1700

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1600, 2776,3441,0305,0174,4007,0700,0000,0000,0000
U 2776,

1226,3772,0000,0275,5007,0520,0000,0000,0000

U 1226, 0161,4221,0003,4174,4007,0700,0000,0000,0000
U 1227, 0161,2441,0703,4174,4007,0700,4000,0000,0000
U 1601, 2777,3441,0305,4174,4007,0700,0000,0000,0000
U 2777, 3000,3771,0003,0276,6007,0700,0000,0000,0000
U 3000, 3001,3772,0000,1275,5007,0701,0000,0000,1441
U 3001, 0160,3333,0003,4174,4007,0621,0000,0000,0000
U 0160,

1230,7443,0300,4174,4007,0621,0000,0000,0000

U 0161, 0164,3333,0005,4174,4007,0621,0000,0000,0000
U 0164, 0370,4443,0000,4174,4007,0700,2010,0071,0042
U 0165, 0603,4443,0000,4174,4467,0700,0000,0051,1000
U 0166,

1211,3441,0304,4174,4007,0700,0000,0000,0000

U 1230, 3002,3441,0306,4174,4007,0700,0000,0000,0000
U 1231, 0164,3333,0005,4174,4007,0621,0000,0000,0000

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -~ DIV, IDIV

4301
.TOC
4302
4303
4304 230:
4305
4306
4307
4308
4309 234:
4310
4311
4312
4313
4314
4315 1600:
4316 IDIV:
4317
4318
4319 =0
4320
4321
4322
4323
4324 1601 :
4325 DIV:
4326
4327
4328
4329
4330 =000
4331
4332
4333 =001
4334 DIV1:
4335
4336 =100
4337 DIV2:
4338
4339 =101
4340 =110
4341
4342
4343
4344
4345 =0
4346 DIVA:
4347
4348
4349'
4350
4351

"ARITHMETIC -- DIV,
.DCODE
R-PF,
I-PF,
RW,
RW,
R-PF,
I -PF ,
RW,
RW,
.UCODE

DAC,
DAC,

IDIV"

DBL B,

J!IDIV
J/IDIV
J!IDIV
J!IDIV

DAC,
DAC,
M,
OBL B,

J/DIV
J/DIV
J!DIV
J/DIV

M,

Page 118

[BR] [AR], AC
AC-;
SKIP OPO
[AR] 0,
J/DI\ll
[AR] -1,
J/DI\ll

;COPY MEMORY OPERAND
;LDAD 0
;SEE IF MINUS
;EXTEND + SIGN
;NOW SAME AS DIV
;EXTEND - SIGN
;SAME AS DIV

[BR] [AR)
[AR]-AC

;COPY MEM OPERAND
;GET AC
;AND AC+1
;TEST FOR NO DIVIDE

o

o AcT 1)
READ [AR],
SKIP AD.EO.O
. NOT. [AR) ,
SKIP AD.EO.O,
J/DIVA

;SEE IF ALL SIGN BITS IN AR
; CONTINUE BELOW

READ [BR],
SKIP AD.EO.O

;SEE IF DIVIDE BY
; ZERO

SC 34.,
CALL [DIVSUB)
NO DIVIDE
[ARX) [AR),
J/IMULl

;NOT ZERO--LOAD STEP COUNT
;DIVIDE
;DIVIDE BY ZERO
;COPY REMAINDER
;STORE ANSWER

[BRX) [AR],
J/DIVB
READ [BR),
SKIP AD.EO.O,
J/DIV2

;HIGH WORD IS NOT SIGNS
;GO TEST FOR NO DIVIDE
;ALL SIGN BITS
;SEE IF ZERO DIVIDE
;BACK TO MAIN FLOW

/

T10KL.MCR[10,1141]
SIMPLE. MI C [ 10, 114 1 ]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254).

U 3002, 3003,3221,0004,4174,4007,0700,0000,0000,0000
U 3003, 0330,3333,0003,4174,4007,0520,0000,0000,0000
U 0330,

,
/

1232,3333,0005,4174,4007,0520,0000,0000,0000

U 0331, 3064,4551,0404,4374,0007,0700,0010,0037,7777
U 0333,

1232,3333,0005,4174,4007,0520,0000,0000,0000

U 1232, 1234,2113,0305,4174,4007,0521,4000,0000,0000

U 1233, 1234,0113,0305,4174,4007,0521,0000,0000,0000
U 1234, 0603,4443,0000,4174,4467,0700,0000,0051.1000
U 1235, 0161,3441,0603,4174,4007,0700,0000,0000.0000

4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371
4372
4373
4374
4375
4376
4377

KS10 MICROCODE V124, 27-JUL-84
ARITHMETI~ ~- DIV.
IOIV

Page 119

OIVB:

;MAKE ABS VALUES
; SEE IF +

=00

=11

=0
DIVC:

=0
NODIV:

[ARX] Q

READ TAR],
SKIP DPO
REAb [BR],
SKIP DPO,
J/OIVC
CLEAR [ARX]O,
CALL [OBLNG11
READ [BR1,
SKIP OPO,
J/OIVC
[ARJ-[BRJ,
SKIP OPO,
3T,
J!NOOIV
[AR1+[BR1,
SKIP OPO,
3T,
J!NODIV
NO DIVIDE
[AR] [BRX1,
J/Dl\11

;SEE IF +
; CONTINUE BELOW
;FLUSH DUPLICATE SIGN
;NEGATE AR!ARX
;SEE IF TOO BIG

;COMPUTE DIFFERENCE
;SEE IF IT GOES
;ALLOW TIME
;TEST
;SAME TEST FqR -VE BR

TOO BIG
FITS

GO BACK AND DIVIDE

T10KLQ 10,1141 J
SIMPLE.MIC[10,1141J

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0117,0205,1627,1100

U 1627, 3004,4112,0400,4174,4007,0700,0000,0000,0000
U 3004,

1236,3447,0305,4174,4007,0421 ,0000,,0000,0000

U 1236, 1242,3446,0505,4174,4007,0700,0000,0000,0000
U 1237, 1240,3446,0505,4174,4007,0520,0000,0000,0000
U 1240, 1242,4003,0000,4174,4007,0621,0000,0000,0000
U 1241, 3005,4751,1217,4374,4007,0700,0000,0000,0005
U 3005, 3006,3662,0000,4374,0007,0700,0000,0060,0000
U 3006, 3007,2222,0000,4174,4007,0700,4000,0000,0000
U 3007, 3011,2446,0505,4174,4047,0700,0040,0000,0000
U
U
U
U

1242,
1243,
3010,
3011,

3010,3446,0505,4174,4047,0700,0000,0000,0000
0603,4443,0000,4174,4467,0700,0000,0051,1000
3011,4751,,1217,4374,4007,0700,0000,0000,0004
3012,3221,0006,0174,4007,0700,0000,0000,0000

U 3012, 0054,3777,0003,0274,4007,0520,0000,0000,0000
U

0054, 1244,4552,0000,1275,5007,0701,0000,0000,1441

U 0055, 3053,6551,1717,4374,4007,0700,0010,0000,0007
U 0075, 0054,3447,0303,4174,4007,0700,0000,0000,0000

U 1.244, 3035,3446,0303,4174,4007,0700,0010,0000,0000
U 1245, 1246,2113,0305,4174,4007,0521,4000,0000,0000
U 1246, 1250,2113,0305,4174,4007,0620,4000,0000,0000
U 1247, 3013,3221,0004,4174,4007,0700,0000,0000,0000
U
U
U
U

1250,
1251,
1252,
1253,

0033,3333,0017,4174,4003,5701,0000,0000,0000
1252,1003,0600,4174,4007,0521,4000,0000,0000
0033,3333,0017,4174,4003,5701,0000,0000,0000
3013,3221,0004,4174,4007,0700,0000,0000,0000

4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
4411
4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
4429
4430
4431

KS10 MICROCODE V124. 27-JUL-84
ARITHMETIC -- DOIV
.TOC

"ARITHMETIC

1 17 :

.DCODE
DBL R,
,UCODE

DAC,

Page 120

DDIV"
J/DDIV

. IF/FULL
1627:
DDIV:
o [ARXJ.AND.[MAG)
;COPY LOW WORD
[BR) [AR) * .5,
; COPY MEMORY OPERAND
SKIP-AD.LE.O
;SEE IF POSITIVE
=0
[BR) [BR)*.5 LONG,
;POSITIVE
J/DDIV1
;CONTINUE BELOW
[BR) [BR)*.5 LONG,
;NEGATIVE OR ZERO
SKIP-DPO
;SEE WHICH?
[MAG).AND.O,
;SEE IF ALL ZERO
=0
SKIP AD. EO.O, J/DDIV1
;CONTINUE BELOW
[T1) 0 XWD [5]
;NEGATE MEM OP
o Q.BR.#, #/600000,
;SIGN EXTEND THE LOW
HBLO RIGHT
WORD
Q -0
;MAKE 0 POSITIVE
[BRJ (-[BR)-.25)*.5 LONG, ;NEGATE HIGH WORD
ASHC~ MULTI PREC/1,
;USE CARRY FROM LOW WORD
J/ODIV3
;CONTINUE BELOW
=0
DDIV 1 :
;SHIFT OVER 1 PLACE
[BRJ [BRJ*.5 LONG.
ASHC~ J/DDIV2
; CONTINUE BELOW
NO DIVIDE
;DIVIDE BY ZERO
[T1] 0 XWD [4J
;MEM OPERAND IS POSITIVE
DDIV2:
DDIV3:
[BRX1_O, AC
;COPY Q
[ARJ_AC*.5, 2T, SKIP DPO ;GET AC--SEE IF NEGATIVE
=0*1*0
DDIV3A:

=0
DDIV4:
=0

=0
DDIV5:
=0

o

AC[I].AND.[MAGj,
J7DDIV4
[ T 1 J [T 1 ] . XOR . # ,
#/7,-CALL [ODNEG]
[AR] [AR)*.5,
J/DDIV3A

;POSITIVE (OR ZERO)
; CONTINUE BELOW
;NEGATIVE
;UPDATE SAVED FLAGS
;SHIFT AR OVER
;GO BACK AND LOAD Q

[ARl [AR]*.5 LONG,
CALL-[DDIVS]
[AR] - [BR], 3T, SKIP OPO
[AR]-[BRl. 2T,
SKIP ~D.EO.O, J/DDIV5
[ARX]_O, J/DDIV5A

;SHIFT AR OVER
;SHIFT 1 MORE PLACE
;TEST MAGNITUDE
; ANSWER FITS

READ [T1], 3T, DISP/DP, J/NODDIV
O-[BRX], 3T, SKIP DPO
READ [T1l, 3T, DISP/DP, J/NODDIV
[ARXl_Q
;COPY LOW WORD

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141)
U
U
U
U
U
U
U
U

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

3013, 03'54,4552,0000,1275.5007.0701.0000,0000.1442
0354, 1276,3446,1200.4174.4007,0700,2010.0071,0042
0356, 3014,3224,0016,4174,4007,0700,0000,0000.0000
3014, 3015,0002,1600,4174,4007,0700,0000,0000,0000
3015, 1254,4003,0000,1174,4007,0700,0400,0000,1440
1254, 3035,3442,0400,4174,4007,0700,0010.0000,0000
1255, 3016,3221,0004,4174,4007.0700,0000.0000,0000
3016.0411.4552,0000,1275.5007.0701,0000,0000,1443

U 0411, 1276,3446,0316,4174,4007,0520,2010,0071,0042
U 0413, 3017,3224,0016,4174,4007.0700,0000,0000.0000
U 3017, 0056,3333,0017,4174,4003,5701,0000,0000.0000
U 0056, 3022,0001,1616,4174,4007.0700,0000,0000,0000
U 0057, 3020,2225,0016,4174,4007,0700,4000,0000.0000
U
U
U
U

3020,
3021,
1256,
1257,

3021,1772,0000,0274,4007,0701,0040,0000,0000
1256,3223,0000,0174,4007,0621,0400,0000,0000
3023,3440,1616,1174,4007,0700,0400,0000.1441
3025,4223,0000,1174,4007,0700,0400,0000,1441

U 3022,3025,4113,1600,1.174,4007,0700,0400,0000,1441
U 3023, 3024,3551,1616,4374.0007,0700,0000,0040,0000
U 3024, 3025,3440,1616,1174,4007,0700,0400,0000,1441
U 3025,

1260,3333,0003,4174,4007,0520,0000,0000,0000

U 1260, 3031,3442,0400,4174,4007,0700,0000,0000,0000
U 1261, 3026,0112,0406,4174,4007,0700,0000,0000,0000
U 3026, 3027,0111,0503,4174,4007.0700.0040,0000.0000
U 3027, 3030,0002,0600,4174,4007.0700,0000,0000,0000
U 3030, 3031,0111,0503,4174,4007,0700,0040,0000.0000
U 3031, 0355,3333,0017,4174,4003,5701,0000,0000,0000
U 0355, 3033,3444,0303,4174,4047,0700,0000,0000,0000
U 0357, 3032,2222,0000,4174,4007,0700,4000,0000,0000
U 3032, 3033,2444,0303,4174,4047,0700,0040,0000,0000

4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- OOIV

Page 121

;HERE WITH EVERYTHING SETUP AND READY TO GO
ODIV5A: Q AC[2].AND.[MAG]
=0*
Q-Q*.5. SC 34 .. CALL [DBLDIV]
[TO] Q*2 LONG
Q Q+[TO)
AC[O] Q.AND.[MAG]
;STORE ANSWER
;SHIFT OUT EXTRA ZERO BIT
Q [ARX), CALL [DDIVS]
=0
[tiRX) Q
Q AC[3].AND.[MAG]
;SHIFT Q, PUT AR ON DP
[TO) [AR)*.5 LONG,
=0*
SC 34.,
;LOAD SHIFT COUNT
SKIP DPO,
;LOOK AT AR SIGN
CALL [DBLDIV]
;GO DIVIDE
[TO] Q*2 LONG
REAO-[Tl), 3T, DISP/DP ;WHAT SIGN IS QUO
[TO] [TO]+Q,
;POSITIVE QUO
=1110
J/DDIV5B
;CONTINUE BELOW
[TO] -Q*2
;NEGATIVE QUO
AD/-D-.25. DBUS/RAM, 3T,
RAMADR/AC#, DEST/Q AD,
MULTI PREC/1
AC Q, SKIP AD.EQ.O
=0
AC[l] [TO], J/DDIV5C
AC[1J=0, J/DDIV6
DDIV5B: AC[l)_[TO].AND.[MAG], J/DDIV6

;STORE LOW WORD IN + CASE

DDIV5C:

[TO] [TO].OR.#, #/400000, HOLD RIGHT
AC[ 1] [TO]

DOIV6:
=0
DDIV7:

READ [AR], SKIP OPO

DDIV8:
= 1101
DOIV8A:

;LOOK AT AR SIGN

Q [ARX], J/DDIV8
Q-[ARX]+[BRX]
[AR] [AR]+[BR],
MULTI PREC/l
Q Q+[BRX]
[AR], [AR]+[BR],
MULTI PREC/1
READ [Tl], 3T, DISP/DP
POSITIVE REMAINDER
[AR] [AR]*2 LONG, ASHC,
J/DDIV9
CONTINUE BELOW
Q -Q
NEGATE REMAINDER IN AR!Q
[AR] (-[AR]-.25)*2 LONG,
MULTI PREC/l, ASHC

T10KL~[10'1141]

SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 3033, 1262,0113,0303,1174,4007,0521,0400,0000,1442
U 1262, 0100,4003,0000,1174,4156,4700,0400,0000,1443
U 1263, 3034,4002,0000,1174,4007,0700,0000,0000,1443
U 3034, 0100,7003,0000,1174,4156,4700,0400,0000,1443

U 0033, 3053,4443,0000,417,4,4007,0700,0010,0000,0000
U 0037,0603,4443,0000,4174.4467,0700,0000,0051.1000
U 3035, 0001,3446.0303,4174,4044,1700,0000,0000,0000

4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
:4497
4498

KS10 MICROCODE V124. 27-JUL-84
ARITHMETIC -- DDIV
DDIV9:
=0

Page 122

AC[2] [AR]+[AR]. 3T.
SKIP DPO
AC[3] Q.AND.[MAG],
NEXT INST
Q Q.AND.[MAG], AC[3]
AC[3] [MAG].EQV.Q.
N~XT INST

"
;HERE IF WE WANT TO SET NO DIVIDE
=11011
NODDIV: CALL [QDNEG]
;FIXUP AC TO AC+3
NO DIVIDE
;ABORT DIVIDE
DDIVS:
[AR] [AR]*.5 LONG. ASHC, RETURN [1]
. IFNOT !FULL
1627:
DDIV:
UUO
.ENDIF!FULL

T10KL.MCR[10,1141]
SIMPLE .MIC[ 10,1141]

U
U
U
U
U

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

0370, 3036,4662,0000,4374,0007,0700,0010,0037,7777
0374, 0002,4443,0000,4174,4004,1700,0000,oqoo,0000
0375, 0002,2222,0000,4174,4004,1700,4000,0000,0000
0376, 0377,2222,0000,4174,4007,0700,4000.0000,0000
0377,0002.2441,0303,4174,4004,1700,4000,0000,0000

4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
4511
4512
4513
4514
4515
45.16
4517
4518
4519

KS10 MICROCODE V124, 27-JUL-84 Page 123
ARITHMETIC -- DIVIDE SUBROUTINE
.TOC

"ARITHMETIC -- DIVIDE SUBROUTINE"

;HERE IS THE SUBROUTINE TO DO DIVIDE
; ENTER WITH:
AR!Q = D/END
BR = D'SOR
; RETURN 2 WITH:
AR = REMAINDER
,
0 = QUOTIENT
;CA~LER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL
,
=1000
DIVSUB: o Q.AND.#,
;CLEAR SIGN BIT IN
#7377777,
;MASK
HOLD RIGHT,
;JUST CLEAR BIT 0
CALL {DIVSGN]
;00 REAL DIVIDE
= 1100
RETURN [2]
; ALL POSITIVE
=1101
Q -Q, RETURN [2J
;-QUO +REM
O--Q
=1110
; ALL NEGATIVE
= 11 11
[AR] -[AR], RETURN [2]
;NEGATIVE REMAINDER

T1o.KL~[1o.'1141]

SIMPLE.MIC[1o.,1141]

U
U
U
U
U

30.36,
1264,
1265,
1266,
1267,

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO. 31 ("254)

1264,3333,0.0.0.3,4174,40.0.7,0.520.,0.0.0.0.,0.0.0.0.,0.0.0.0.
30.40.,4221,0.004,4174,40.0.7,0.700,0.0.0.0.,0.0.0.0.,0.0.0.0.
1266,2222,0.0.0.0.,4174,40.0.7,0.621,40.0.0.,0.0.0.0.,0.0.0.0.
30.37,7441,0.30.3,4174,40.0.7,0.700,0.0.0.0.,0.0.0.0.,00.00
30.37,2441,0.30.3,4174,4007,070.0.,4000.,0.00.0.,0000

U 30.37, 30.40.,3771,0.0.0.4,4374,4007,0.700.,0.0.00,0.010.,0.000
U 30.40., 1270.,3333,0.0.0.5,4174,40.0.7,0520.,00.0.0.,0.00.0.,0.0.0.0.
U 1270., 30.42,3446,0.30.3,4174,40.0.7,0.70.0.,0.0.0.0.,0.0.00.,0.00.0

U 1271, 3041,2441,0.505,4174,4007,0700,4000.,0000,0.0.0.0
U
U
U
U

30.41,
30.42,
30.43,
3044,
U 30.45,

1270.,3551 ,0.40.4,4374,4007,070.0.,0.0.00.,0.004,.0000
30.43,3447,0.30.3,4174,40.07,0.700,0000,000.0,0000
30.44,3447,0.50.5,4174,4007,070.0.,0000,0.000.,00.00
30.45,3447,0.505,4174,400.7,070.0.,0.0.0.0.,00.00,0.00.0
1272,1114,0.50.3,4174,40.67,0.630.,600.0.,0.0.60.,0.0.0.0.

U 1272, 1272,0.114,0.50.3,4174,40.67,0.630.,2100,0.0.60.,0.0.0.0.
U 1273, 30.46,3444,1717,4'174,40.67,0.700,0.10.0.,0.0.0.0.,0.0.0.0.
U 30.46, 1274,3447,0.30.3,4174,40.07,0.520.,0.0.0.0,000.0,0.0.0.0.
U
U
U
U

1274,
1275,
30.47,
30.50.,

30.47,3444,0.30.3,4174,40.0.7,0.700,0.0.00.,0.0.0.0,0.0.0.0.
1274,0.111,0.50.3,4174,40.0.7,0.700,0.0.0.0.,0.0.0.0.,0.0.0.0.
30.50.,3444,0.30.3,4174,40.0.7,0.700,0.0.0.0.,000.0.,0.0.0.0.
30.51,4002,120.0.,4174,40.0.7,0.700,0.00.0.,0000.,00.0.0.

U 30.51, 0.0.14,3333,0.0.0.4,4174,40.0.0.,170.1,0.0.0.0.,0.0.0.0.,0.0.0.0.

4520.
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540.
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550.
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560.
4561
4562
4563

KS10. MICRo.Co.DE V124, 27-JUL-84 Page 124
ARITHMETIC -- DIVIDE SUBRo.UTINE
;HERE IS THE INNER DIVIDE SUBRo.UTINE
;SAME SETUP AS DIVSUB
;RETURNS WITH AR AND Q POSITIVE AND
14 IF ALL Po.SITIVE
15 IF -QUO
16 IF A[L NEGATIVE
17 IF NEGATIVE REMAINDER
BASIC DIV STEP
DIV STEP
FIRST DIV STEP

'"DEST/Q Q*2, DIV, A/BR, B/AR, STEP SC"
"BASIC BIV STEP, AD/A+B, DIVIDE/1"
"BASIC DIV STEP, AD/B-A-.25, ADD .25"

DIVSGN: READ [AR], SKIP DPo.
=0.
[ARX] 0., J/DVSUB2
Q -Q,-SKIP AD.EQ.O
=0.
[AR] .No.T.[AR], J/DVSUB1
[AR]--[AR]

;REMAINDER IS POSITIVE
;Co.MPLEMENT LOW Wo.RD
;COMPLEMENT HI Wo.RD
;TWo.'S COMPLEMENT HI Wo.RD SINCE
; LOW WORD WAS ZERO.
;REMAINDER IS NEGATIVE
;IS THE DIVISOR NEGATIVE

DVSUB1: [ARX] #, #/10.0.0.00.
DVSUB2: READ TBR], SKIP DPo.
=0
DVSUB3: [AR] [AR]*.5 Lo.NG,
;START TO. PUT IN 9-CHIPS
J/DIVSET
;Jo.IN MAIN STREAM
[BR] -[BR]
;COMPLEMENT DIVISo.R
[ARX] [ARX].o.R.#,
;ADJUST SIGN OF QUo.TIENT
#/40.0.00., J/DVSUB3
;USE 9 CHIPS
DIVSET: [AR] [AR]*.5
[BR]-[BRl*.5
[BR]-[BR]*.5
FIRST DIV STEP
;HERE IS THE MAIN DIVIDE Lo.o.P
=0
DIVIDE: DIV STEP, J/DIVIDE
[T1] [T1 ]*2 Lo.NG, DIVIDE/f, DIV
[AR]-[AR]*.5, SKIP DPo.
=0.
FIX++:
[AR] [AR]*2 LONG, J/FIX1++
[AR] [ARl+[BR], J/FIX++
FIX1++: [AR] [AR]*2 LONG
Q [MASK].AND.Q
READ [ARXl, 3T,
RETURN TO. 1 o.F 4 PLACES
DISP/1,
BASED o.N SIGN OF RESULT
J/14
RETURN

Tl0KL.MCR[10,1141]
SIMPLE. MIC[ 10,1141 J

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1276, 3052,1114,0604,4174,4057,0700,4000,0000,0000
U 1277, 3052,0114,0604,4174,4057,0700,0000,0000,0000

U 3052, 1300,0115,0503,4174,4007,0630,2040,0060,0000

U 1300, 3052,0114,0604,4174,4067,0700,0100,0000,0000

U 1301, 0002,4444,0002,4174,4064,1700,0100,0000,0000

4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603

KS10 MICROCODE V124, 27-JUL-84 Page 125
ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE
.TOC
"ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE"
.IF/FULL
;CALL WITH:
AR!ARX!O
3 WORD DV'END
BR!BRX
2 WORD DV'SOR
; RETURN 2 WITH:
AR!ARX
2 WORD REMAINDER
CORRECT IF POSITIVE (0 IS DOD)
WRONG (BY BR!BRX) IF NEGATIVE (0 IS EVEN)
,
0
= 1 WORD OUOTIENT
;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL
;NOTE: THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS
=0
;HERE FOR NORMAL STARTUP
DBLDIV: [ARX] ([ARXJ-[BRXJ)*2 LONG, ;SUBTRACT LOW WORD
LSHC,-J/DIVHI
;GO ENTER LOOP
;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR
[ARX] ([ARX]+[BRX])*2 LONG, ;CORRECTION STEP
LSHC,-J/DIVHI
;GO ENTER LOOP
;HERE IS DOUBLE DIVIOE LOOP
DIVHI:
AD/A+B,
A/BR, B/AR,
DEST/AD*2,
SHSTYLE/NORM,
MULTI PREC/l,
STEP SC
=0
AD/A+B,
A/BRX, B/ARX,
DEST/O 0*2,
SHSTYLE/DIV,
DIVIDE/l,
J/DIVHI
;HERE WHEN ALL DONE
DEST/O 0*2, DIV,
DIVIDE/1,
B/HR, RETURN [2J

\

,
/

;ADD (HARDWARE MAY OVERRIDE)
;DPERANDS ARE AR AND BR
; SHIFT LEFT
;SET SHIFT PATHS (SEE OPEl)
;INJECT SAVED BITS
;CDUNT DOWN LOOP
;ADD (HARDWARE MAY OVERRIDE)
;LOW WORDS
;SHIFT WHOLE MESS LEFT
;SET SHIFT PATHS (SEE DPE1)
;SAVE BITS
;KEEP LOOPING
SHIFT IN LAST 0 BIT
GENERATE BIT
ZERO HR AND RETURN

~/
"-,

T 1OKL . MeR [ 10, 1141 ]
SIMPLE.MIC[10,1141]

15:34 27-JULV-1984
15:31 27-JULY-1984

MICRO 31(254)

U 3053, 3054,1772,0000,1274,4007,0701,4000,0000,1443
U 3054, 1302,4003,0000,1174,4007,0621,0400,0000,1443
U 1302, 3057,7772,0000,1274,4007,0701,0000,0000,1442
U 1303, 3055,1772,0000,1274,4007,0701,4000,0000,1442
U 3055,

1304,4003,0000,1174,4007,0621,0400,0000,1442

U 1304, 3060.7772,0000,1274,4007,0701,0000,0000,1441
U 1305, 3056,1772,0000,1274,4007,0701,4000,0000,1441
U 3056, 1306,4003,0000,1174,4007,0621,0400,0000,1441
U 1306, 3061,7771,0003,0274,4007,0700,0000,0000,0000
U 1307, 3061,1771,0003,0274,4007,0701,4000,0000,0000
U 3057, 1304,4003,0000,1174,4007,0700,0400,0000,1442
U 3060, 1306,4003,0000,1174,4007,0700,0400,0000,1441
U 3061, 0024,3440,0303,0174,4004,1700,0400,0000,0000

U 3062, 3063,4551,0404,4374,0007,0700,0000,0037,7777
U 3063,

1310,2441,0404.4174,4007,0621,4000,0000,0000

U 1310, 2236,7441,0303,4174,4467,0700,0000,0001,0001
U 1311 , 2236,2441,0303,4174,4467,0701,4000,0001,0001
U 3064, 1312,2441,0404,4174,4007,0621,4000,0000,0000
U 1312, 2236,7441,0303,4174,4007,0700,0000,0000,0000
U 1313, 2236,2441,0303,4174,4007,0700,4000,0000.0000

KS10'MICROCODt V124, 27-JUL-84 Page 126
ARITHMETIC -- SUBROUTINES FOR ARITHMETIC

4604
.TOC
"ARITHMETIC -- SUBROUTINES FOR ARITHMETIC"
4605
4606 ;QUAD WORD NEGATE
4607 ;ARGUMENT IN AC!AC1!AC2!AC3
4608 ;LEAVES COpy OF AC!AC1 IN AR!Q
4609
;RETURNS TO CALL!24
4610 QDNEG:
Q -AC[3]
4611 '
AC[3] Q.AND.[MAG],
;PUT BACK LOW WORD
4612
SKIP AD.EQ.O
;SEE IF ANY CARRY
4613 =0
4614 COM2A:
Q .NOT.AC[2], "J/COM2
;CARRY--DO 1'5 COMPLEMENT
Q--AC[2]
4615
;NEXT WORD
4616
AC[2] Q.AND. [MAG],
;PUT BACK WORD
4617
SKIP AD.EQ.O
4618 =0
4619 COM1A:
Q .NOT.AC[l], J/COM1
Q- -AC[ 1]
4620
4621
AC[ 1] Q.AND. [MAG],
4622
SKIP AD.EQ.O
4623 =0
4624 COMOA:
[AR]. NOT. AC, J/COMO
[AR]--AC, 3T, J/COMO
4625
4626
4627 COM2:
AC[2] Q.AND.[MAG]. J/COM1A
4628 COM1:
AC[1]-Q.AND.[MAG]. J/COMOA
4629 COMO:
AC [AR], RETURN [24]
4630 .ENDIF/FULL
4631
4632 ;DOUBLE WORD NEGATE
4633 ;ARGUMENT IN AR AND ARX
4634
;RETURNS TO CALL!2
4635
4636 DBLNEG: CLEAR ARXO
;FLUSH DUPLICATE SIGN
4637 DBLNGA: [ARX] -[ARX],
; FLIP LOW WORD
'4638
SKIP AD.EQ.O
;SEE IF CARRY
4639 =0
[AR] .NOT. [AR],
;NO CARRY-- 1 COMP
4640
AD FLAGS, J/CLARXO
;CLEAR LOW SIGN
4641
[AR] -[ARl.
;CARRY
4642
AD FLAGS, 3T, J/CLARXO
4643
4644
;SAME THING BUT DOES NOT SET PC FLAGS
4645 DBLNG1: [ARX] -[ARXl. SKIP AD.EQ.O
4646 =0
[AR] ~NOT.[AR], J/CLARXO
4647
[AR] -[AR], J/CLARXO
4648

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

KS10.MICROCODE V124, 27-JUL-84 Page 127
ARITHMETIC -- SUBROUTINES FOR ARITHMETIC

4649
.NOBIN
4650 . . TOC
IBP, ILDB, LOB, lOPB, DPB"
"BYTE GROUP
4651
4652
4653 ;ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER
;IN THE AR.
ALL INSTRUCTIONS SHARE COMMON SUBROUTINES.
4654
4655
4656
; IBP OR ADJBP
;IBP IF AC#O, ADJBP OTHERWISE
4657
; HERE WITH THE SASE POINTER IN AR
4658
4659
4660 ;HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS:
THE AR IS PUT ON THE DP.
4661
THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD
4662
THE SCAD COMPUTES P-S
4663
IBPS IS CALLED WITH A 4-WAY DISPATCH ON SCADO AND FIRST-PART-DONE
4664
4665
;THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS
4666
; IN THE MICRO ASSEMBLER
4667
"AD/D, DEST/A, A/AR, B/BR, DBUS/DBM, DBM/DP, BYTE/BYTE1"
4668 IBP DP
"SCAD/A-B, SCADA/BYTE1, SCADB/SIZE"
4669 IBP SCAD
"SCAD DISP, SKIP FPD"
4670 IBP SPEC
"IBP DP, IBP SCAD, IBP 'SPEC, CAll [IBPS], DT/3T"
4671 CALL IBP
4672
"AD/D,DEST/A,A/BR,B/AR,DBUS/DBM,DBM/DP,SCAD/A-B,SCADB/SIZE,BYTE/BYTE1,SCADA/PTR44"
4673 SET P TO 36-S
4674
;THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT
4675
; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP I~ A 2S WEIGHT SKIP NOT 1S.
4676
"SCAD/A+B,SCADA/S#,S#/1770,SCADB/FE,LOAD FE, 3T,SCAD DISP"
4677 BYTE STEP
4678

~
\
V
',,~

T10KL.MCR[10,1141]
SIMPLE.MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0133, 0015,1610,1100
D 0134, 0000,1620,1500
D 0135, 0000,1624,1100
D 0136, 0000,1630,1500
D 0137, 0000,1634,1100
U 1610, 0240,4443,0000,4174,4007,0360,0000,0000,0000
U 0240, 3122,3333,0003,7174,4007,0700,0400,0000,0223
U 0241, 0350,3770,0305,4334,4016,7351,0010,0033,6000
U 0245, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U

1620, 0350,3770,0305,4334.,4016,7351,0010,0033,6000

U 1624, 3072,3333,0003,4174,4217 ,0701,1010,0073,0500

U 1625, 0414,3443,0100,4174,4007,0700,0200,0014,0012

U 0414, 0340,3333,0003,4174,4006,5701,1010,0051,0770
U 0416, 0603,3440,0303,0174,4467,0700,0400,0005,0000
U 1630, 0350,3770,0305,4334,4016,7351,0010,0033,6000
U 1634, 3065,3775,0004,0274,4007,0701,0000,0000,0000
U 3065, 3066,3443,0400,4174,4007,0701,1000,0077,0000
U 3066, 0264,3771,0004,0276,6007,0700,0000,0000,0000
U 0264, 3072,3333,0003,4174,4217,0700,0010,0000,0500
U 0265, 0360,3333,0003,4174,4006,5701,0010,0000,0000
U 0267, 1400,4443,0000,4174,4467,0700,0000,0005,0000

,

,

.I

4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726

KS10 MICROCODE V124, 27-JUL-84 Page 128
BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB
.BIN
133:
134:

.DCODE
R,
AC,
R,W TEST,
R,

R,W TEST,
R,

J/IBP
J/ILDB

;OR ADJBP
;CAN'T USE RPW BECAUSE OF FP

J/LDB
J/IDPB
J/DPB

.UCODE
1610:
IBP:
=000
=001
= 101
1620:
ILDB:
1624:
LDB:
1625:
=0*

1630
IDPB
1634
DPB:

=100

= 111

SKIP IF ACO
WORK[ADJPTR] [AR] ,
J/ADJBP
CALL IBP
DONE

;SEE IF ADJBP
;SAVE POINTER
;GO ADJUST BYTE POINTER
;BUMP BYTE POINTER
;POINTER STORED

CALL IBP

;BUMP BYTE POINTER

READ [AR],
LOAD BYTE EA, FE P, 3T,
CALL [BYTEA]
VMA [PC], FETCH
READ [AR],
FE FE.AND.S#, S#/0770,
BYTE DISP,
CALL [LDB1]
AC [ARl, CLR FPD,
J/NIDISP

;LDOK AT POINTER
;GET STUFF OUT OF POINTER
;COMPUTE EFFECTIVE ADDRESS
;START FETCH OF NEXT INST
;LOOK AT POINTER
;MASK OUT JUNK IN FE
;DISPATCH ON BYTE SIZE
;GET BYTE
;STORE AC
;GO DO NEXT INST

CALL IBP

;BUMP BYTE PDINTER

[ARX] AC*2
AD/A,-A/ARX, SCAD/A,
SCADA/BYTE5, 3T,
LOAD FE
[ARX] AC
READ TAR],
LOAD BYTE EA,
CALL [BYTEA]
READ [AR],
BYTE DISP,
CALL [DPB1]
CLR FPD, J/DONE

;PUT 7 BIT BYTE IN 28-34
;PUT THE BYTE INTO
; INTO THE FE REGISTER
; FE REGISTER
;PUT BYTE IN ARX
;LOOK AT BYTE POINTER
;LOAD UP EFFECTIVE ADDRESS
;COMPUTE EFFECTIVE ADDRESS
;LOOK AT POINTER AGAIN
;DISPATCH ON SIZE
;GO STORE BYTE
;ALL DONE

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

U
U
U
U

0350,
0351,
0352,
0353,

15:34 27-JULY-1984
15~31 27-JULY-1984

MICRO 31(254)

3070,3441,0503,4174,4007,0700,0200,0003,0002
0004,4443,0000,4174,4004,1700,0000,0000,0000
3067.3770.0503,4334,4017,0700,0000,0032,6000
0004,4443,0000,4174,4004.1700,0000,0000,0000

I

U 3067, 3070,0111,0103,4170.4007,0700,0200,0003,0002
U 3070,0004,3333,0003,4175,5004,1701,0200,0000,0002

U 3071, 0070.4443,0000,2174,4006,6700,0000,0000,0000
U 3072, 0070,4443,0000,2174,4466,6700,0000,0003,0000

U 0070, 3074,0553,0300,2274,4007,0700,0200,0004,0712

U 0072, 3074,3443,0300,4174,4007,0700.0200,.0004,0712

U 0074, 3073,0553,0300,2274,4007,0700,0200,0004,0512

U 0076, 3073,3443,0300,4174,4007.0700,0200,0004,0512

U 3073, 3071,3771,0003,4361,5217 ,0700,0200,0000,0502

U 3074, 0001,4551,1205,4365,5004,1700.0200.0000,0002

4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773'

KS10 MICROCODE V124, 27-JUL-84 Page 129
BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE
.TOC

"BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE"

=00

IBPS:

[AR] [BR]. START WRiTE. J/IBPX
RETURN [4J
SET P TO 36-S, J/NXTWRD
RETURN [4]

;NO OVERFLOW. BR HAS ANSWER
;FIRST PART DONE SET
;WORD OVERFLOW
;FPD WAS SET IGNORE OVERFLOW
; AND RETURN

NXTWRD: [AR] [ARJ+1. HOLD LEFT. START WRITE
IBPX:
MEM WRITE, MEM_[AR], RETURN [4]
.TOC

;BUMP Y AND RETURN

"BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR"

;ENTER WITH POINTER IN AR
;RETURN1 WITH (EA) IN VMA AND WORD IN BR
BYTEAS: EA MODE DISP.
;HERE TO AVOID FPD
J/BYTEAO
;GO COMPUTE EA
BYTEA:
SET FPD,
;SET FIRST-PART-DONE
;DISPATCH
EA MODE DISP
=100*

BYTEAO: VMA {AR]+XR.
START READ.
PXCT BYTE DATA.
J/BYTFET
VMA [AR],
START READ,
PXCT BYTE DATA,
J/BYTFET
VMA [AR]+XR,
ST.A,RT READ.
PXCT BYTE PTR EA.
J/BYTIND
VMA [AR],
START READ,
PXCT BYTE PTR EA
BYTIND: MEM READ.
[AR] MEM,
HOLD-LEFT,
LOAD BYTE EA,
J/BYIEAS
BYTFET: MEM READ,
[BR] MEM.AND.MASK,
RETURN [1]

; INDEXING
;FETCH DATA WORD
;FOR PXCT
; GO WAIT
;PLAIN
;START CYCLE
;FOR PXCT
;GO WAIT
;BOTH
;START CYCLE
;FOR PXCT
;GO DO INDIRECT
;JUST @l
;START READ
;FOR PXCT
;WAIT FOR @ WORD
;PUT IN AR
;JUST IN RH (SAVE P & s)
;LOOP BACK
WAIT FOR BYTE DATA
WORD. UNSIGNED
RETURN TO CALLER

T10KL~[10"141)

SIMPLE.MIC[10,1141)

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0340, 0410,4443,0000,4174,4006,7701,0000,0031,0210
U
U
U
U
U

0341,
0342,
0344,
0345,
0347.

3075,3770,0505,4334.4057,0700,0000.0073,0000
3075,3770,0505,4334,4057,0700,0000,0074,0000
3075.3770,0505,4334,4057,0700,0000,0075,0000
3075,3770,0505,4334,4057,0700,0000,0076,0000
3075,3770,0505,4334,4057,0700.0000,0077,0000

U 3075,0002,4257,0503,4374,4004,1701,0000,0000,0376

4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806

K~,~/MICROCODE V124, 27-JUL-84 Page 130
BYTE GROUP -- LOAD BYTE SUBROUTINE

.TOC

"BYTE GROUP -- LOAD BYTE SUBROUTINE"

;CALL WITH:
WORD IN BR
POINTER IN AR
P IN FE
;
BYTE DISPATCH
;RETURN2 WITH BYTE IN AR
LDB SCAD
"SCAD/A,BYTE/BYTE5"
7-BIT LDB
"AD/D,DBUS/DBM,DBM/DP,DEST/A,A/BR,B/BR, LDB SCAD"
=000
LDB1 :

GEN 17-FE, 3T,
SCAD DISP,
J/LDBSWP

;HERE ARE THE
7-BIT
=001
7-BIT
=010
7-BIT
=100
= 101
7-BIT
= 111
7-BIT

7-BIT BYTES
LDB, SCADA/BYTE1,
LDB, SCADA/BYTE2,
LDB, SCADA/BYTE3,
LDB, SCADA/BYTE4,
LDB, SCADA/BYTE5,

;GO SEE IF ALL THE BITS
; ARE IN THE LEFT HALF
;GO TO LDBSWP & SKIP IF LH
J/LDB7
J/LDB7
J/LDB7
J/LDB7
J/LDB7

;FOR 7-BlT BYTES WE HAVE BYTE IN BR 28-35 AND JUNK IN REST OF BR.
; WE JUST MASK THE SELECTED BYTE AND SHIFT ONE PLACE RIGHT.
AD/ZERO,RSRC/DA,
;LH ZERO, RH D.AND.A
LDB7:
DBUS/DBM,DBM/#,#/376,
;D INPUT IS 376
A/BR,
;A IS BR
B/AR,
;PUT RESULT IN AR
DEST/AD*.5, 3T,
;SHIFT RESULT 1 PLACE
RETURN [2]
;RETURN TO CALLER

T10Kl.MCR[10,1141]
SIMPlE.MIC[ 10,1141]

15:34 27-JUlY-1984
15:31 27-JUlY-1984

MICRO 31(254)

U 0410, 3077,4443,0000,4174,4007,0700,1000,0031,0000
U 0412, 3076,3770,0505,4344,4007,0700,0000,0000,0000
U 3076, 3077,4221,0005,4174,0007,0700,1000,0031,0220

U 3077 , 3100,3447,0505,4174,4007,0700,1020,0041,0010
U 3100, 3101,3333,0003,4174,4007,0700,1000,0031,7770
U 3101, 3102,4222,0000,4174,4007,0700,0000,0000,0000
U 3102, 3103,4224,0003,4174,4027,0700,1020,0041,0010
U 3103, 3104,4224,0003,4174,4027,0700,0000,0000,0000
U 3104, 0002,4001,0503,4174,4004,1700,0000,0000,0000

4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825

KS10 MICROCODE V124, 27-JUl-84 Page 131
BYTE GROUP -- lOAD BYTE SUBROUTINE
;HERE FOR NORMAL BYTES
=00
lDBSWP: FE -FE,
J/LDBSH
= 10
[BR] [BR] SWAP

LDBSH:

[BR] 0, HOLD RIGHT,
FE -FE+S#, S#/220
[BRL[BR]*.5,
FE_FE+10,
MULTI SHIFT/1
READ [AR] , FE - S-10
Q 0
GEN MSK [AR],
FE_FE+lO,
MUl TI SHIFT/1
GEN MSK [AR]
[AR] [BR].AND.Q, RETURN

;MAKE P NEGATIVE
;JOIN MAIN LOB LOOP
;SHIFT 18 STEPS
;PUT ZERO IN LH
;UPDATE FE
;SHIFT RIGHT
;UPDATE THE FE
;FAST SHIFT
;GET SIZE
; CLEAR Q
;PUT MASK IN Q (WIPEOUT AR)
;COUNT UP All STEPS
;FAST SHIFT
; ONE MORE BIT
[2 ]

.~.

~
\

)

Tl0KL.MCR[ 10, 1141]
SIMPLE. MI C [ 10, 114 1 ]
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867

.TOC

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

.NOBIN
"BYTE GROUP -- DEPOSIT BYTE IN MEMORY"

;FLOW FOR DPB (NOT 7-BIT BYTE)
,
;FIRST SET ARX TO -1 AND Q TO ZERO AND ROTATE LEFT
S PLACES GIVING:
Q
ARX
+------------------!------------------+
!111111111111000000!000000000000111111!
+------------------!------------------+

!<--->!

S BITS
;NDW THE AC~IS LOAD INTO THE ARX AND BOTH THE ARX AND Q
ARE SHIFTEb LEFT P BITS GIVING:
+------------------!------------------+
!??????BBBBBBOOOOOO!000000111111000000!
+------------------!------------------+
<----><---->

JUNK

BYTE

<----><---->

MASK P BITS

;AT THIS POINT WE ARE ALMOST DONE. WE NEED TO AND
THE BR WITH .NOT. Q TO ZERO THE BITS FOR THE BYTE
AND AND ARX WITH Q TO MASK OUT THE JUNK THIS GIVES:
ARX
+------------------+
!OOOOOOBBBBBBOOOOOO!
+------------------!
AR
+-----------------~+

!DDDDDDOOOOOODDDDDD!
~------------------+

,
;WE NOW OR THE AR WITH ARX TO GENERATE THE ANSWER.

KS10 MICROCODE V124, 27-JUL-84 Page 132
BYTE GROUP -- LOAD BYTE SUBROUTINE

T10KL.MCR[10,1141)
SIMPLE.MIC[10,1141)

U
U
U
U
U
U

0360,
0361,
0362,
0364,
0365,
0367,

15:34 27-JULY-1984
15:31 27-JULY~1984

MICRO 31(254)

3107,3333,0003,4174,4007,07'00, 1000,0031,7770
3105,3770,0503,4334,4017,0700,0000,0041,0000
3105,3770,0503,4334,4027,0700,0000,0041,0000
3105,3770,0503,4334,4037,0700,0000,0041,0000
3105,3770,0503,4334,4047,9700,0000,0041,0000
3105,3770,0503,4334,4057,0700,0000,0041,0000

U 3105, 3106,3447,1200,4174,4007,0700,0200,0003,0002
U 3106, 0002,3333,0003,4175,5004,1701,0200,0000,0002
U 3107, 3110,4222,0000,4174,4007,0700,0000,0000,0000
U
U
U
U

3110,
3111 ,
3112,
3113,

3111,4224,0000,4174,4027,0700,1020,0041,0010
3112,4224,0000,4174,4027,0700,0000,0000,0000
3113,3333,0003,4174,4007,0701,1000,0073,0000
3114,4443,0000,4174,4007,0700,1000,0051,0770

U 3114, 3115,4002,1200,4174,4007,0700,1000,0031,0000
U 3115, 3116,3444,0404,4174;4007.0700,1020;0041,0010
U 3116, 3117,7221,0003,4174,4007,0700,0000,0000,0000
U 3117, 3120,4111,0503,4174,4007,0700,0000,0000,0000
U 3120, 3121,4001,0404,4174,4007,0700,0000,0000,0000
U 3121, 3105,3111,0403,4174,4007,0700,0000,0000,0000

4868
4869
4870
4871
4872
4873
4874
4875
4876
4877
4878
11879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
49034904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914

KS10 MICROCODE V124, 27-JUL-84 Page 133
BYTE GROUP -- DEPOSIT BYTE IN MEMORY
.BIN
;DEPOSIT BYTE SUBROUTINE
; CALL WITH:
BYTE POINTER IN AR
BYTE TO STORE IN ARX
WORD TO MERGE WITH IN BR
(E) OF BYTE POINTER IN VMA
7-BIT BYTE IN FE
;
BYTE DISPATCH
;RETURN2 WITH BYTE IN MEMORY
DPB SCAD
7-BIT DPB
=000
DPBl :
=001
=010
=100
=101
=1 11
DPB7:

"SCAD/A+B,SCADA/S#,SCADB/FE,S#/O"
"AD/D,DEST/A,A/BR,DBUS/DBM,DBM/DP,B/AR, DPB SCAD"

READ [AR),
7-BIT DPB,
7-BIT DPB,
7-BIT DPB,
7-BIT DPB,
7-8IT DPB,

FE -S-10, J/DPBSLO
BYTE/BYTE1, J/DP87
BYTE/BYTE2, J/DPB7
BYTE/BYTE3, J/DPB7
BYTE/BYTE4, J/DPB7
BYTE/BYTE5, J/DPB7

;NOT SPECIAL

[MAG) [MASK)*.5, START WRITE
MEM W~ITE, MEM [AR], RETURN [2)

DPBSLO: Q 0
GEN MSK [MAG),
FE FE+10,
MULTI SHI FT /1
GEN MSK [MAG)
READ [AR], 3T, FE P
FE FE.AND.S#, S#/0770
Q Q.AND.[MASK),
FE -FE
[A~XJ [ARX]*2 LONG,
FE FE+lO,
MULTI SHI FT /1
;AT THIS POINT WE HAVE DONE ALL
; IN ARX AND THE MASK IS IN Q.
[AR] .NOT.Q
[AR1-[AR).AND. [BR]
[ARX] [ARX].AND.Q
[AR] [AR].OR.[ARX],
J/DPB7

;CLEAR Q
;GENERATE MASK IN Q (ZAP MAG)
;COUNT STEPS
;FAST SHIFT
; ONE MORE BITS
;AMOUNT TO SHIFT
;MASK OUT JUNK
;CLEAR BITS 36 AND 37
;MINUS NUMBER OF STEPS
;SHIFT BYTE AND MASK
;COUNT OUT STEPS
;FAST SHIFT
THE SHIFTING WE NEED. THE BYTE IS

~
\

//

T10KL.MCR(10,l141]
SIMPLE .MIC[ 10,1141]

U 3122,

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

1314,3770,0304,4344,4007,0700,2000,0071,0011

U 1314, 1314,3447,0404,4174,4007,0630,2000,0060,0000
U 1315, 3123,4557,0404,4374,4007,0701,0000,0000,0176
U 3123, 3124,3771,0004,4374,0007,0700,0000,0000,0000
U 3124, 3125,3333,0004,7174,4007,0700,0400,0000.0221
U 3125, 3126,4557,0305,4374,4007,0701,0000,0000,7700
U 3126, 3127,3770,0505,4344,4007,0700,2000,0071,0003
U 3127,

1316,4221,0005,4174,0007,0700,0000,0000,0000

4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
.' 4951
4952
4953
4954
4955
4956
4957

KS10 MICROCODE V124, 27-JUL-84 Page 134
BYTE GROUP -- ADJUST BYTE POINTER
.TOC
"BYTE GROUP -- ADJUST BYTE POINTER"
. IF IFULL
;FIRST THE NUMBER OF BYTES PER WORD IS COMPUTED FROM THE
FOLLOWING FORMULA:

(
BYTES PER WORD = INT(

P

( 36-P
+ INT(

(

S

(

S

;THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE:
!=====================================!
6
12
6
!IIIIIIIIIIII!
!=====================================!
P=18 AND S=12
;WE GET 3 BYTESIWORD IF THE BYTES FALL IN THE NATURAL PLACE:
!=====================================!
!\\\\\\\\\\\\!
12
12
!=====================================!
P=12 AND S=12
;WE COME HERE WITH THE BYTE POINTER IN AR, AND ADJPTR
; MOVE SIZE OVER
ADJBP:
[ARX] [AR) SWAP,
SC 9.
;REAOY TO SHIFT
=0
ADJBPO: [ARX] [ARX)*.5,
;SHIFT P OVER
STEP SC,
J/ADJBPO
[ARXj ([ARX).AND.#)*.5, ;SHIFT AND MASK
3T,
;WAIT
#/176
;6 BIT MASK
[ARX] #,
;CLEAR LH
#10,

HOLD RIGHT
WORK[ADJP] [ARX]
[BR] ([AR]~AND.#)*.5,
3T,
#/007700
[BR] [BR] SWAP,
SC 3

[BR]

0,

HOLD-RIGHT

;SAVE P
;START ON S
;EXTRACT S
;SHIFT 18 PLACES
;CLEAR LH

Tl0KL.MCR[10,l141]
SIMPLE .MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

-MICRO 31(254)

U 1316, 1316,3447,0505,4174,4007,0630,2000,0060,0000
U 1317,

1320,3333,0005,7174,4007,0621,0400,0000,02'22

U 1320, 0660,3442,0400,4174,4007,0700,2000,0071,0042
U 1321, 1404,3771,0003,7274,4007,0701,0000,0000,0223

U 0660, 0370,3771,0003,4374,4007,0700,0010,0000,0000
U 0662, 3130,3223,0000,7174,4007,0700,0400,0000,0224
U
U
U
U

3130,
3131,
3132,
3133,

3131,3772,0000,4370,4007,0700,0000,0000,0044
3132,1662,0000,7274,4007,0701,4000,0000,0221
3133,3771,0005,7274,4007,0701,0000,0000,0222
0664,4443,0000,4174,4007,0700,2000,0071,0042

U 0664, 0370,3771,0003,4374,4007,0700,0010,0000,0000
U 0666, 3134,3333,0003,7174,4007,0700,0400,0000,0225
U 3134, 3135,3771,0003,4374,4007,0700,0000,0077,7777

U 3135,

1322,0661,0005,7274,4007,0622,0000,0000,0224

U 1322, 0550,0662,0000,0274,4007,0522,2000,0071,0042
U 1323, 0603,4443,0000,4174,4467,0700,0000,0051,1000

4958
4959
4960
4961
4962
4963
4964
4965
4966
49674968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999

KS10 MICROCODE V124, 27-JUL-84 Page 135
BYTE GROUP -- ADJUST BYTE POINTER
=0
ADJBP1:

=0

=0*
ADJBP2:

[BRJ [BRJ*.5,
; SHI FT S OVER
STEP-SC,
J/ADJBP1
WORI<[ADJSJ [BR),
;SALJ S AWAY
SKIP AD.EQ-:-O
;SEE IF ZERO
Q [ARXJ,
;DIVIDE P BY S
SC 34.,
; STEP COUNT
J/ADJBP2
;SKIP NEXT WORD
[ARJ_WORK[ADJPTR), J/MOVE
;S=O -- SAME AS MOVE
[AR J #,
#/0,
CALL [DIVSUB)
WORK[ADJQ1J Q
Q #,

-

#736. ,
HOLD LEFT
Q Q-WORK[ADJP)
(SR J WORK [ADJS J
SC 34.
=0*

=0

[AR)

#,

#/0,CALL [DIVSUBJ
WORK [ADJR2) [AR)
[AR] #,
#/777777
AD/D+Q,
DEST/AD,
B/BR,
RAMADR/#,
DBUS/RAM,
WORK/ ADJQ 1,
4T,
SKIP AD.EQ.O
Q Q+AC,
SC 34.,
SKIP DPO,
4T,
J/ADJBP3
NO DIVIDE

;FILL AR WITH SIGN BITS
; POSITIVE
;GO DIVIDE
; SAVE QUOTIENT
;COMPUTE (36-P)/S
;SMALL ANSWER
;SUBTRACT P
;DIVIDE BY S
;STEP COUNT
;MORE SIGN BITS
; GO DIVIDE
;SAVE REMAINDER
;ASSUME NEGATIVE ADJ
; EXTEND SIGN
;BR_(P/S)+«36-P)/S)

; SEE IF ZERO
;GET ADJUSTMENT
; STEP COUNT
;GO DO DIVIDE
; WAIT FOR DP
;BELOW
;0 BYTES/WORD

/

~
•...

/

T10KL.MCR[ 10,1141]
SIMPLE .MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0550, 0551,3771,0003,4374,4007,0700,0000,0000,0000
U 0551·, 0370,3333,0005,7174,4007,0700,0410,0000,0226

U 0553, 3136,3772,0000,4374,0007,0700,0000,0000,0000
U 3136,

1324,3333.0003,4174,4007,0421,0000.0000,0000

U 1324, 3140,0661,0005,7274,4407,0701,0000,0000.0223
U 1325, 3137,1002,0700,4170,4007,0700,4000,0000,0000
U 3137, 1324,0551,0303,7274,4007,0701,0000,0000.0226

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037

KS10 MICROCODE V124, 27-JUL-84 Page 136
BYTE GROUP -- ADJUST BYTE POINTER
;WE NOW DIVIDE THE ADJUSTMENT BY THE BYTES PER WORD AND FORCE THE
REMAINDER (R) TO BE A POSITIVE NUMBER (MUST NOT BE ZERO). THE
QUOTIENT IS ADDED TO THE Y FIELD IN THE BYTE POINTER AND THE NEW
P FIELD IS COMPUTED BY:
(

NEW P

36 - ( (R

*

S) +

(

( 36 -P »
RMDR(
»
(

S

))

;WE NOW HAVE BYTES/WORD IN BR AND ADJUSTMENT IN Q. DIVIDE TO GET
; WORDS TO ADJUST BY.
=00
ADJBP3: [AR] #,
;POSITIVE ADJUSTMENT
11/0.

WORK[ADJBPW] [BR],
;SAVE BYTES/WORD & COMPUTE
CALL [DIVSUB]
; ADJ/(BYTES/WORD)
;WE NOW WANT TO ADJUST THE REMAINDER SO THAT IT IS POSITIVE
Q #,
= 11
;ONLY RIGHT HALF
#70,

HOLD RIGHT
READ [AR],
SKIP AD.LE.O
=0
ADJBP4: AD/D+Q,
DEST/AD.
B/BR,
RAMADR/#,
DBUS/RAM,
WORK/ADJPTR,
INH CRY18,
3T.
J/ADJBP5
Q Q-1,
HOLD LEFT
[AR] [AR]+WORK[ADJBPW].
J/ADJBP4

;ALREADY +
;ADD Q TO POINTER AND STORE
;RESULT TO BR
; PTR I SIN RAM
;,JUST RH
;WAIT FOR RAM
;CONTINUE BELOW
;NO--MAKE Q SMALLER
;MAKE REM BIGGER
;NOW HAVE + REMAINDER

T10KL.MCR[ 10,1141]
SIMPLE.MIC[10,l141]

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 3140, 3141,3441,0306,4174,4007,0700,2000,0071,0043
U 3141, 0062,3772,0000,7274,4007,0701,0000,0000,0222
U 0062, 2773,3446,0606,4174,4007,0700,0010,0000,0000

U 0066, 3142,0661,0003,7274,4007,0701,0000,0000.0225
U 3142, 3143,2555,0303,4374,4007,0701,4000,0000,0044
U 3143, 3144,3770,0303,4344,4007,0700,2000,0071,0011
U 3144,

1326,3771,0003,4370,4007,0700,0000,0000,0000

U 1326, 1326,3445,0303,4174,4007,0630.2000,0060,0000
U 1327, 3145,4551,0505,4374,0007,0700,0000,0000,7777
U 3145, 1400,3113,0305,0174,4007,0700,0400,0000,0000

5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072

KS10 MICROCODE V124, 27-JUL-84 Page 137
BYTE GROUP -- ADJUST BYTE POINTER
ADJBP5: [BRX] [AR],
SC 35-:Q WORK[ADJS]
=01*
[BRX] [BRX]*,5 LONG,
CALL [MULSUB]
AD/D+Q,
DEST lAD,
B/AR,
RAMADR/#,
3T,
DBUS/RAM,
WORK/ADJR2
[AR] (#-[AR])*2,'
3T,
#/36,
[AR] [AR] SWAP,
SC 9-:[AR] #,

#/0,HOLD LEFT
=0
ADJBP6:

[AR] [AR]*2,
STEP-SC,
J/ADJBP6
[BR] [BR],AND,#,
#/007777,
HOLD RIGHT
AC [AR],OR,[BR],
J/DONE
,IFNOT/FULL

ADJBP:

UUO

.ENDIF/FULL

;COMPUTE R*S
;STEP COUNT
;GET S

;SHIFT OVER
;AR_(R*S)+RMDR(36-P)/S

;COMPUTE 36-AR
;AND START LEFT
;PUT THE POSITION BACK
;CLEAR JUNK FROM RH

;LOOP OVER ALL BITS

;ALL DONE

;NO ADJBP IN SMALL
MICROCODE

a

T10Kl.MCR[10,1141}
SIMPlE.MIC[10,1141}
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088

.TOC

15:34 27-JUlY-1984
15:31 27-JUlY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUl-84 Page 138
BYTE GROUP -- ADJUST BYTE POINTER

.NOBIN
"BlT"

;THIS CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLETION OF
THE TRANSFER (EXCEPT IN THE CASE AC IS PART OF BUT NOT THE lAST WORD
OF THE DESTINATION BLOCK). WHEN AC IS NOT PART OF THE DESTINATION
BLOCK, IT IS LEFT CONTAINING THE ADDRESSES OF THE FIRST WORD FOLLOWING
THE SOURCE BLOCK (IN THE LH), AND THE FIRST WORD FOLLOWING THE DESTINATION BLOCK (IN THE RH). IF AC IS THE LAST WORD OF THE OESTINATION
BLOCK, IT W1.LL BE A COpy OF THE LAST WORD OF THE SOURCE BLOCK.
IN ADDITION, A SPECIAL-CASE CHECK IS MADE FOR THE CASE IN WHICH EACH
WORD STORED IS USED AS THE SOURCE OF TH~ NEXT TRANSFER. IN THIS CASE,
ONLY ONE READ NEED BE PERFORMED, AND THAT DATA MAY BE STORED FOR EACH
TRANSFER. TH0s THE COMMON USE O~ BLT TO CLEAR CORE IS SPEEDED UP.

/

T10KL.MCR[10,1141]
SIMPLE .MIC[ 10,1141]

U 3146,

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

1330,3770,0604,4344,4007,0700,0000,0000,0000

U 1330, 3676,3443,0400,4174,4007,0700,0210,.0004,0712
U 1331,
U 3147,

3147,4221,0006,4174,0007,0700,0000,0000,0000
3150,2112,0306,4174,4007,0700,4000.0000,0000
U 3150, 3151,0001,0705,4174,4007,0700,0000,0000,0000
U 3151, 3152,3770,0505,4344,0007,0700,0000,0000,0000
U 3152, 3153,0551,0505,0274,4407,0701,0000,0000,0000
U 3153, 0002,3771,0013,4370,4004,1700,0000,0000,0001

D 0251, 0000,1640,2100

U 1640, 3146,3771,0006,0276,6007,0700,0010,0000,0000
U 1642, 3675,3440,0505,0174,4007,0700,0410;0000,0000
U 1643, 3154,0551,0405,4370,4007,0701,0000,0000,0001
U 3154,

1332,2113,0506,4174,4007,0331,4000,0000.0000

U 1332, 3157,3443,0600,4174,4007,0700,0200,0003,0312

5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
51·07
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
; 5118
; ,5119
5120
5121
5122
5123
5124
5125
5126
5127
5128

KS10 MICROCODE V124, 27-JUL-84
BLT

Page 139

.BIN
;HERE TO SEJUP FOR A BLT/UBABLT
SETBLT: [ARXJ [BRXJ SWAP
=0
VMA CARX],
START READ,
PXCT BLT SRC,
CALL [ClARXL]
[BRX] 0,
HOLD RIGHT
Q [ARJ-[BRX]
[BR] Q+1
[BR]-[BR] SWAP,
HOLD-RIGHT
[BR] AC+[BR],
INH CRY18
STATE [BLT],RETURN [2J

;COPY TO ARX (SRC IN RH)
;ADDRESS OF FIRST WORD
;CLEAR THE lEFT HALF OF
; BOTH SRC AND DEST
;NUMBER OF WORDS TO MOVE
;lENGTH +1
;COPY TO BOTH HALFS
;FINAL AC
;KEEP AC CORRECT IF DEST IS 777777
;SET PAGE FAIL FLAGS

.DCODE
251 :

I,

J/BLT

.UCODE
1640:
BlT:
1642:
1643:

[BRX] AC,CALL [SETBLT]
AC [BR],
CALL [lOADQ]
[BR] [ARX]+1000001,
3T,
HOLD LEFT
[BR] - [BRXl, 3T,
SKIP ADR.EQ.O

=0
Bl TLP 1 : VMA [BRX],
START WRITE,
PXCT BlT DEST,
J/BLTGO

;FETCH THE AC (DEST IN RH)
;STORE BACK IN AC
;LOAD FIRST WORD INTO Q
;SRC+1
;IS THIS THE CORE CLEAR CASE
;NO, GET DEST ADR
;START TO STORE NEXT WORD
;WHERE TO STORE

;SKIP TO NEXT PAGE IF CLEARING CORE

~
\ ..

~

_./:f

Tl0KL.MCR[10,l141]
SIMPLE.MIC[ 10,1141]

15:34 27-JULY-1984
15:31 27-JUL~-1984

MICRO 31(254)

U 1333, 3155,3443,0600,4174,4007,0700,0200,0003,0312
U 3155, 1334,3223,0000,4174,4007,0671,0200,0.000,0002
U 1334, 3160,4443,0000,4174,4007,0700,0000,0000,0000
U 1335, 1336,2113,0603,4174,4007,0521,4000,0000,0000
U 1336,

1400,4221,0013,4170,4007,0700,0000,0000,0000

U 1337, 1340,0111,0704,4174,4007,0370,0000,0000,0000

U 1340, 3155,0111,0706,4170,4007,0700,0200,0003,0312

U 1341, 3157,0111,0706,4170,4007,0700,0200,0003,0312

U 3156,

1332,3772,0000,4365,5007,0700,0200,0000,0002

U 3157, 3160,3223,0000,4174,4007,0701,0200,0000,0002
U 3160,

1342,2113,0603,4174,4007,0521,4000,0000,0000

U 1342, 1400,4221,0013,4170,4007,0700,0000,0000,0000
U 1343, 3161,0111,0706,4174,4007,0700,0000,0000,0000

U 3161, 3156,0111,0704,4170,4007.0700,0200,0004,0712

U 3162, 3163,3770,0303,4344,4007,0700,0000,0000,0000

,

U

3163~

3164,3771,0003,7270,4007,0701,0000,0000,0214

U 3164,

1100,3440,0303,0174,4007,0700,0400,0000,0000

5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5163
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180

KS10 MICROCODE V124, 27-JUL-84
BLT
;CLEAR CORE CASE
VMA [BRX],
START WRITE,
PXCT BLT DEST
BLTCLR: MEM WRITE,
MEM Q,
SKIP/-1 MS
=0
J/BLTGOT
[BRX]- [AR J.
3T,
SKIP DPO
=0
END BLT,
J/DONE
[ARX] [ARX]+1,
SKIP IRPT
=0
VMA [BRX]+1,
LOAD VMA,
PXCT BLT DEST,
START WRITE,
J/BLTCLR
VMA [BRX]+1,
LOAD VMA,
PXCT BLT DEST,
START WRITE,
J/BLTGO
;HERE FOR NORMAL BLT
BLTLP:
MEM READ,
Q MEM,
J7BL TLP1
MEM WRITE,
BLTGO:
MEM Q
BL TGOT: [BRX]- [AR],
3T,
SKIP DPO
=0
END BLT,
J/DONE
[BRX] [BRX]+1
VMA [ARX]+1,
LOAD VMA,
PXCT BLT SRC,
START READ,
J/BLTLP

Page 140

;STORE WORD
; 1 MS TIMER UP
;GO TAKE INTERRUPT
;BELOW E?
;NO--STOP BLT
;FOR PAGE FAIL LOGIC

;YES--KEEP STORING
; INTERRUPT

;FETCH
;STORE
;BELOW E?
;NO--STOP BLT
;UPDATE DEST ADDRESS

;YES--MOVE 1 MORE WORD

;HERE TO CLEAN UP AFTER BLT PAGE FAILS
BLT-CLEANUP:
[AR] [AR] SWAP
;PUT SRC IN LEFT HALF
[AR]-WORK[SV.BRX],
HOLD-LEFT
AC [AR],
;STORE THE AC AND RETURN
J/CLEANED

T10KL.MCR[10,1141]
SIMPLE.MIC[10,1141]

15:34 27-0ULY-1984
15:31 27-JULY-1984

MICRO 31(254)

.~

o

U 0670, 3146,3771,0006,0276,6007,0700,0010,0000,0000
U 0672, 3165,3440,0505,0174,4007,0700,0400,0000,0000

U 3165, 0006,3772,0000,4365,5003,7700,0200,0000.0002

5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208

KS10 MICROCODE V124, 27-JUL-84
BlT

Page 141

.IF/UBABLT
.TOC
"UBABLT - BlT BYTES TO/FROM UNIBUS FORMAT"
;THESE INSTRUCTION MOVE WORDS FROM BYTE TO UNIBUS AND UNIBUS TO BYTE
;FORMAT.
FORMATS ARE:
;BYTE FORMAT:
;; BYTE 0 ;; BYTE 1

..

....................
""',.,
, ,""""

BYTE 2 ;; BYTE 3

; 4 BITS;

. ........................... .

."""""""",,.,,,,,,,,,

;UNIBUS FORMAT:

..............
;; 2

"., I.""""

ITS;; BYTE 1

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . "... .
".,"""",.,"""""""'" ""'"

BYTE 0 ;; 2 BITS ;; BYTE 3 ;; BYTE 2 ;

;;;;;;;;;;;;;;;;;;;:;;;;;;;;;;;;;;;;;; ;

=0*
BLTX:

[BRX] AC,
CALL [SETBLT]
AC_[BR]

BLTXLP: MEM READ,
MEM,
B-DISP
=110
0_0*.5,

;FETCH THE AC (DEST IN RH)
;00 THE REST OF THE SETUP

;STORE THE FINAL AC IN AC

°

;READ THE SOURCE WORD
;FROM MEMORY
;SKIP IF BLTUB (OPCODE 717)
;BLTBU (OPCODE 716) - SHIFT RIGHT 1

0/BLTBU1

;CONTINUE INSTRUCTION

IT

U 0006, 3173,3446,1200,.4174,4007,0700,0000,0000,0000
U 0007, 0570,4665,0017,4374,4007,0700,0000,0000.0377
U 0570, 3200,4443,0000,4174,4007,0.700,1010,0071,1767
U 0571, 3201,4443,0000,4174,4007,0700, 1010,0071,1772
U 0573, 3166,4662,0000,4374,4007,0700,0000,0000,1774
U 3166, 3167,3001,1717,4174,4007,0700,0000,0000,0000
U 3167, 3170,5742,1700,4174,4007,0700,0000,0000,0000
U 3170, 3171,3444,0012,4174,4007,0700,0000,0000,0000
U 3171, 3172,3444,0012,4174,4007,0700,0000,0000,0000
U 3172, 3177,4521,1717,4374,4007,0700,0000,0077,7774

5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227

=00
=01
=11

AD/D.AND.O,DBUS/DBM,
;BLTUB - MASK lOW BYTES, SHIFT LEFT
DBM/#,#/377,DEST/AD*2,B/T1
;AND STORE RESULT
FE S#,S#/1767,
;-9 MORE BITS TO PUT LOW BYTE OF LH
CALL [T1LSH]
; IN TOP OF LH SHIFT LEFT
FE S#,S#/1772,
;-6 BITS TO PUT HI BYTE TO RIGHT
CALL [Q RSH]
; OF LOW BYTE.
0_0.AND~#,#/001774
;KEEP ONLY HI BYTES
AD/A.OR.Q,A/T1,DEST/AD,
B/Tl
AD/57,RSRC/OA,A/T1,
DEST/O AD
o 0*2 Q-O*2
(,f1] [Tl].AND.# ClR RH,
#/777774,0/BLTXV

;MERGE PAIRS OF BYTES. NOW SWAPPED,
;BUT STILL IN HALF-WORDS
;CLEAR LH OF 0 WHILE LOADING
;RH WITH LOW WORD
;SHIFT LOW WORD ACROSS 1/2 WORD
;ANO INTO FINAL POSITION
;CLEAR ALL BUT HIGH 16-BIT WORD
;FROM Tl AND CONTINUE

/

,~

(J
T 10K L . Mci<[ 10, 1 14 1 ]
SIMP LE . MI C [ 10, 1141 ]

1

15:34 27-JULY-1984
15:31 27-JULY-1984

MICRO 31(254)

U 3173, 3174,3446,1200,4174,4007,0700,0000,0000,0000
U 3174, 3175,3446,1200,4170,4007,0700,0000,0000,0000
U 3175, 3176,3446,1200.4170,4007,0700,0000,0000,0000
U 3176, 0610,4665,0017,4374,4007,0700,0000,0000,0377
ION
U 0610, 3200,4443,0000,4174,4007,0700,1010,0071,1771
U 0611, 3201,4443,0000,4174,4007,0700,1010,0071,1770
U 0613, 3177,4662,0000,4374,4007,0700,0000,0000,0377

U 3177, 3202,3002,1700,4174,4007,0700,0000,0000,0000
U 3200, 0001,3445,1717,4174,4004,1700,1020,0041,0001
U 3201, 0002,3446,1200,4174,4004,1700,1020,0041,0001
U
U
U
U
U

3202,
3203,
3204,
1344,
1345,

3203,3443,0600,4174,4007,0700,0200,0003,0312
3204,3223,0000,4174,4007,0701,0200,0000,0002
1344,2113,0603,4174,4007,0521,4000,0000,0000
1400,4221,0013,4170,4007,0700,0000,0000,0000
3205,0111,0706,4174,4007,0700,0000,0000,0000

U 3205, 3165,0111,0704,4170,4007,0700,0200,0004,0712

KS10 MICROCODE V124, 27-JUL-84 Page 142
UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT

5228
5229
5230
5231
5232

BLTBU1: 0 0*.5
;NOW IN 1/2 WORDS
0-0*.5,HOLD LEFT
;INSERT A NULL BIT
O=0*.5,HOLD LEFT
;ONE MORE - NOW IN
AD/D.AND.O,DBUS/DBM,
;BUT NOT SWAPPED.
DBM/#,#/377,DEST/AD*2,B/T1
;TO T1 AND

5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256

=00

IN RH
HALF WORDS
COPY RIGHT BYTE
SHIFT LEFT 1 POSI

FE 5#,5#/1771,
CALL [T1LSH]
FE 5#,5#/1770,
CALL [0 RSH]
0_O·.AND-:#,#/377

; -7 BITS MORE
;TO FINAL RESTING PLACE
;-8. LEFT BYTES MOVE RIGHT
;TO FINAL RESTING PLACE
;WANT ONLY THE NEW BYTES

BLTXV:

°J7BLTXW
[T1].OR.0,

;MERGE RESULTS
;ANO STUFF IN MEMORY

T1LSH:
O_RSH:

[T1] [T1]*2,SHIFT,RETURN [1]
Q_O*-:5,SHIFT,RETURN [2]

=01
=11

BLTXW:

VMA [BRX],START WRITE,
;DEST TO VMA
PXCT BLT DEST
MEM WRITE,MEM
;STORE
[BRX]-[AR],3T~SKIP DPO
;DONE?
=0
END BLT,J/DONE
;YES
[BRX] [BRX]+1
;NO, INC DEST
VMA [ARX]+1 ,LOAD VMA,
; AND SOURCE (LOADING VMA)
PXCT BLT SRC,START READ,;START UP MEMORY
J/BLTXLP
;AND CONTINUE WITH NEXT WORD
.ENDIF/UBABLT

°

T10KL.MCR[10,1141]
FLT.MIC[10,1141]

D
D
D
D
D
D
D

0140, 0701,1577,1100
0142,0702,1577,1700
0143,0703,1577,1700
0144, 0711,1577,1100
0145,0611,1577,0100
0146,0712,1577,1700
0147, 0713,1577,1700

D
D
D
D
D
D
D

0150, 0701,1576,1100
0152,' 0702,1576,1700
0153, 0703,1576,1700
0154, 0711,1576,1100
0155,0611,1576,0100
0156, 0712,1576,1700
0157, 0713,1576,1700

15:34 27-JULY-1984
01 :46 20-MAR-1981

MICRO 31(254)

U 1576, 1577,2441,0303,4174,4007,0700,4000,0000,0000
U 1577, 0674,3771,0005,0276,6006,7701,2000,0020,2000
U
U
U
U
U
U
U

0674,
0676,
3206,
3207,
3210,
1346,
1347,

1350,3333,0005,4174,4007,0520,0000,0000,0000
3206,3441,0304,4174,4007,0700,0000,0000,0000
3207,3441,0503,4174,4007,0700,2000,0041,2000
3210,3441,0405,4174,4007,0700,2000,0020,0000
1346,3333,0003,4i74,~007,0520, 1000,0041,2000
3211,4551,0303,4374,0007,0700,0000,0000,0777
3211,3551,0303,4374,0007,0700,0000,0077,7000

U 1350, 3211,4551,0505,4374,0007,0700,0000,0000,0777
U 1351, 3211,3551,0505,4374,0007,0700,0000,0077,7000
U 3211,

1352,4222,0000,4174,4007,0630,2000,0060,0000

U 1352, 1352,3446,0505,4174,4047.0630,2000,0060,0000
U 1353, 0420,0111,0503,4174,4003,4701,0000,0000,0000

KS1Q MICROCODE V124, 27-JUL-84
FLOATING POINT -- FAD, FSB

Page 143

5257 .TOC
"FLOATING POINT
FAD, FSB"
5258
5259
.DCODE
FL-R,
FL-AC,
5260 140:
J/FAD
142:
FL-RW,
FL-MEM,
5261
J/FAD
FL-RW,
FL-BOTH,
5262
J/FAD
5263
FL-R,
FL-AC, ROUND,
J/FAD
5264
FL-I,
FL-AC, ROUND,
J/FAD
FL-RW,
FL-MEM, ROUND,
5265
J/FAD
FL-RW,
5266
FL-BOTH, ROUND, J/FAD
5267
FL-R,
FL-AC,
5268 150:
J/FSB
FL-RW,
FL-MEM,
5269 152:
J/FSB
FL-RW,
FL-BOTH,
5270
J/FSB
FL-R,
5271
FL-AC, ROUND,
J/FSB
FL-I,
5272
FL-AC, ROUND,
J/FSB
FL-RW,
5273
FL-MEM, ROUND,
J/FSB
5274 .
FL-RW,
FL-BOTH, ROUND, J/FSB
5275
.UCODE
5276
5277 ;BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN AR
5278
, SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE.
5279 1576:
5280 FSB:
[AR] -(AR]
;MAKE MEMOP NEGATIVE
5:281
5282 1577:
5283 FAD:
[BR]_AC, SC_SC-EXP-1, 3T, SCAD DISP
5284 =0*
5285 FAS 1 :
READ [BR], SKIP DPO, J/FAS2
;BR .LE. AR
5286
[ARX] [AR]
;SWAP AR AND BR
5287
[AR] TBR], SC EXP
5288
(BR] [ARX], sf SC-FE-l
;NUMBER OF SHIFT STEPS
REAO-[AR], FE EXP, 2T, SKIP DPO
5289
5290 =0
[AR] +SIGN, J7FAS3
[AR]--SIGN, J/FAS3
5291
5292
5293 =0
;SIGN SMEAR BR AND UNNORMALIZE
5294 FAS2:
[BR] +SIGN, J/FAS3
[BR]--SIGN, J/FAS3
5295
5296
5297 FAS3:
0_0, STEP SC
5298 =0
5299 FAS4:
[BR] [BR]*.5 LONG, STEP SC, ASHC, J/FAS4
5300
[AR] [ARJ+[BRJ, NORM DISP, J/SNORM
5301

r,
'-,_

:7

T 10K L . McR [ 10, 1141 ]
FL T .MIC[ 10,1141]

15:34 27-vULY-1984
01:4620-MAR-1981

MICRO 31(254)

D 0160, 0701,1570,1100
D 0162, 0702, 1570,1700
D 0163, 0703,1570,1700
D
D
D
D

U
U
U
U

0164,
0165,
0166,
0167,

1570,
1354,
1355,
3212,

0711,1570,1100
0611,1570,0100
0712,1570,1700
0713,1570,1700

1354,3771,0006,0276,6007,0521,1000,0040,2000
3212,4551,0606,4374,0007,0700,0000,0000,0777
3212,3551,0606,4374,0007,0700,0000,0077,7000
0163,3442,0300,4174,4007,0700,2000,0071,0033

U 0163, 2773,3446,0606,4174,4007,0700,0010,0000,0000
U 0167, 3213,4662,0000,4370,4007,0700,0000,0077,7000
U 3213, 3214,3441,0403,4174,4007,0700,1000,0041,0002
U 3214, 0420,3446,0303,4174,4003,4701,1000,0041,1600

5302
5303
5304
5305
5306
5307
5308
5309
5310
5311
5312
5313
5314
5315
5316
5317
5318
5319
5320
5321
5322
5323
5324
5325
5326
5327
5328
5329
5330

KS10 MICROCODE V124, 27-vUL-84
FLAOTING POINT
FMP
.TOC
160:
162:

"FLAOTING POINT -- FMP"
.DCODE
FL-R,
FL-RW,

FL-RW,
FL-R,
FL-I,

FL-RW,
FL-RW,
.UCODE
1570:
FMP:
=0
FMP 1:
=01*

Page 144

FL-AC,
FL-MEM,
FL-BOTH,

J/FMP
J/FMP
J/FMP

FL-AC, ROUND,
FL-AC, ROUND,
FL-MEM, ROUND,
FL-BOTH, ROUND,

J/FMP
J/FMP
J/FMP
J/FMP

[BRX] AC,
FE SC+EXP, 3T,
SKIp DPO
[BRX] +SIGN, J/FMP1
[BRX]--SIGN, J/FMP1
Q [AR], SC 27.
[SRX] [BRX]*.5 LONG,
CALL [MULSUB]
Q Q.AND.#, #/777000,
HOLD LEFT
[AR] [ARX], FE FE+2
[AR] [AR]*.5 LONG,
FE FE-200,
NORM DISP, J/SNORM

;GET AC
;EXPONENT OF ANSWER
;GET READY TO SMEAR SIGN
; POSITIVE
;NEGATIVE
;GET MEMORY OPERAND
;SHIFT RIGHT
;MULTIPLY
;WE ONLY COMPUTED
27 BITS
;SET SHIFT PATHS
;SHIFT OVER
;ADJUST EXPONENT
;NORMALIZE & EXIT

/

T10KL.MCR[10,1141]
FLT.MIC[10,1141]

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO.31(254)

D 0170, 0701,1574,1100
D 0172,0702,1574,1700
D 0173,0703,1574,1700
D
D
D
D

0174,0711,1574,1100
0175, 0611,1574,0100
0176,0712,1574,1700
0177, 0713,1574,1700

U 1574, 1356,3441,0305,0174,4007,0621,0000,0000,0000
U 1356, 1360,3771,0003,027,6,6007.0520,1000,0030,2000
U 1357, 0603,4443,0000,4174,4467,0700,0000,0071,1000
U
U
U
U
U

1360,
1361,
3215,
3216,
3217,

3215,4551,0303,4374,0007,0700,0000,0000,0777
3216,3551,0303,4374,0007,0700,0000,0077,7000
3217,3441,0304,4174,4007,0700,1000,0031,0200
3217,2441,0304,4174,4007,0700,5000,0031,0200
1362,3445,0506,4174 i 4007 ,0520,0000,0000,0000

U 1362, 1364,2113,0406,4174,4007,0311,4000,0000,0000
U 1363, 1362,2445,0506,4174,4007,0700,4000,0000,0000
U 1364, 1366,3447,0606,4174,4007,0700,0000,0000,0000
U 1365, 0603,4443,0000,4174,4467,0700,0000,0071,1000

U 1366, 3700,3445,0303,4174,4007,0700,0010,0000,0000
U 1367, 0144,2113,0604,4174,4007,0421,4000,0000,0000
U 0144, 3036,4222,0000,4174,4007,0700,2010,0071,0033
U 0145, 0144,3447,0303,4174,4007,0700,1000,0041,0001
U 0154, 3220,3227,0003,4174,4007,0700,0000,0000,0000
U 0155, 2070,3333,0003,4174,4007,0621,0010,0000,0000
U 0156, 2070,3333,0003,4174,4007,0621,0010,0000,0000
U 0157, 3220,3227,0003,4174,4007,0700,0000,0000,0000
U 0177, 3220,2227,0003,4174,4007,0700,4000,0000,0000
U 3220, 1377,4222,0000,4174,4007,0700,0000,0000,0000

5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- FDV
.TOC

"FLOATING POINT -- FDV"

170:
172:

,DCODE
FL-R,
FL-RW,
FL-RW,
FL-R,
FL-I,
FL-RW,
FL-RW,
.UCODE

1574:
FOV:
=0

=0
FDVO:
FDV1 :
FOV2:
FDV3:
=0
FDV4:
=0
FDV5:

Page 145

FL-AC,
FL-MEM,
FL-BOTH,

J/FDV
J/FDV
J/FOV

FL-AC, ROUND,
FL-AC, ROUND,
FL-MEM, ROUND,
FL-BOTH, ROUND,

J/FDV
J/FDV
J/FDV
J/FDV

[BR] [AR], SKIP AD. EQ.O, AC

;COPY OIVSOR SEE fF 0

[AR] AC, FE SC-EXP, SKIP DPO,
,J/FDVO
FL NO DIVIDE

;GET AC & COMPUTE NEW
EXPONENT
; DIVIDE BY ZERO

[AR] +SIGN, J/FDVl
[AR]--SIGN, J/FDV2
[ARXT [AR],FE -FE+200,J/FDV3
;COMPUTE 2*DVND
[ARX]--[AR],FE -FE+200,J/FDV3
;ABSOLUTE VALUE
[BRX] [BR]*2, SKIP DPO ;ABSOLUTE VALUE
[ARX]-[BRX], SKIP CRYO, 3T, J/FDV5
;FLOATING NO DIV?
[BRX] -[BR]*2, J/FDV4
;FORCE ABSOLUTE VALUE
[BRX] [BRX]*.5, J/FDV6
FL NO-DIVIDE

;SHIFT BACK ARX
;UNNORMALIZED INPUT

[AR] [AR]*2,
CALL-[SBRL]
[BRX]-[ARX], SKIP AD.LE.O

;DO NOT DROP A BIT
;AT FDV7+1
; IS ANSWER . LE. 1?

o

0, SC 27., CALL [DIVSGN]
[AR] [AR]*.5, FE_FE+1, J/FDV7

; DIVIDE
; SCALE DV FEND

=01111
=11111

[AR] 0*.5, J/FDV9
READ-[AR], SKIP AD.EQ.O,
CALL [SETSN]
READ [AR], SKIP AD.EO.O,
CALL [SETSN]
[ARl 0*.5, J/FDV9
[AR]--0*.5, J/FDV9

;PUT ANSWER IN AR
;-VE ANSWER, LOOK AT RMDR
; SEE HOW TO NEGATE
;-VE ANSWER, LOOK AT RMDR
, SEE HOW TO NEGATE
;PUT ANSWER IN AR
;ZERORMDR

FDV9:

0_0, J/SNORMO

; GO NDRMAL! ZE

=0
FOV6:
=00100
FDV7:
=00101
=01100
FDV8:
=01101
=01110

.~,

~
\.

)I

Tl0KL.MCR[ 10, 1141]
FLT .MIC[ 10,1141]

o
o

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

0127, 0011,1616,1100
0132, 0001,1621,2100

U 1616, 1370,4553,0300,4374,4007,0321,0000,0077,7000
U 1370, 1372,2441,0305,4174,4007,0521,4000,0000,0000
U 1371, 1377,4222,0000,4174,4007,0 7 00,1000,0071,0233
U 1372, 1374,4553,0500,4374,4007,0321,0000,0077,7000
U 1373, 3221,4222,0000,4174,4007,0700,1000,0071,0244
U 1374, 3221,4222,0000,4174,4007,0700,1000,0071,0244
U 1375, 1377,4222,0000,4174,4007,0700,1000,0071,0233

U 3221, 1376,3446,0303,4174,4047,0700,2000,0071,0006
U 1376, 1376,3446,0303,4174,4047.,0630,2000,,0060,0000
U 1377, 0420,3333,0003,4174,4003,4701,0000,0000,0000

U
U
U
U
U

..

1621,
3222,
3223,
2000,
2001,

3222,3333,0003,4174,4007,0700,2000,0041,4000
3223,4222,0000,0174,4007,0700,0000,0000,0000
2000,3771,0003,0276,6007,0520,1000,0040,2000
1377,4551,0303,4374,0007,0700,0000,0000,0777
1377,3551,0303,4374,0007,0700,0000,0077,7000

5381
5382
'5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5411
5412
5413
5414
5415

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT
FLTR, FSC

Page 146

.TOC

"FLOATING POINT -- FLTR, FSC"

127:
132:

.DCODE
R,
I,
.UCODE

1616:
FLTR:
=0
=0
F LTR 1 :

FL-AC,ROUND,
FL-AC,

J/FLTR
J/FSC

[AR].AND.#, #/777000, 3T, SKIP ADL.EQ.O ;SMALL POS NUMBER?
[BR) -[AR], SKIP DPO, 3T, J/FLTRl
;NO--SEE IF MINUS
O_O,-FE 5#, S#/233, J/SNORMO
;FITS IN 27 BITS
[BRl.AND.#, #/777000, 3T,
SKIP ADL.EO.O, J/FLTR1A ;SMALL NEGATIVE NUMBER
0_0, FE 5#, 5#/244, J/FLTR2
;LARGE POS NUMBER

=0
FLTR1A: 0_0, FE_S#, 5#/244, J/FLTR2
;BIG NUMBER
0, FE 5#, S#/233, J/SNORMO
;FITS IN 27 BITS
;AT THIS POINT WE KNOW THE NUMBER TAKES MORE THAN 27 BITS. WE JUST
; SHIFT 8 PLACES RIGHT AND NORMALIZE. WE COULD BE MORE CLEVER BUT
; THIS IS THE RARE CASE ANYWAY.
FLTR2:
[ARl [ARl*.5 LONG, ASHC, SC_6
;SHOVE OVER TO THE RIGHT
=0
FLTR3:
[AR) [AR)*.5 LONG, ASHC,
;SHIFT ,RIGHT 9 PLACES
STEP SC, J/FLTR3
; SO IT WILL FIT
SNORMO: READ [AR], NORM DISP, J/SNORM
;NORMALIZE ANSWER

°

1621 :
FSC:
=0

READ [AR], SC SHIFT
0, AC
AC, FE SC+EXP, SKIP OPO
[AR)-+SIGN, J/SNORMO
[AR]--SIGN, J/SNORMO

°[AR)

;DON'T SHIFT IN JUNK
;SIGN SMEAR

T10KL.MCR[10,l141]
FLT.MIC[10,1141]

15::34 27-JULY-1984
01:46 20~MAR-1981

MICRO 31(254)

D 0122, 0701,1626,1100
D 0126,0711,1626,1100

U 1626, 0720,4222,0000,4174,4006,7701,0000,0041,1534
U 0720, 0603,4443,0000,4174,4467,0700,0000,0041,1000
U 0722, 0724,4443,0000,4174,4006,7701,2000,0041,1544
U 0724, 2004,4443,0000,4174,4007,0630,2000,0060,0000
U 0726, 3224,4443,0000,4174,4007.,.0700,2000,0031 ,0232
U 3224, 2002,4443,0000,4174,4007,0630,2000,0060,0000
2002,3446,0303,4174,4047,0630,2000,0060,0000
U 2003. 0063.3447,0705.4174,4003,7700,000.0,0000,0000

U 2002,

U 2004, 2004,3445,0303,4174,4007,0630,2000,0060,0000
U 2005, 0100,3440.0303,0174,4156,4700,0400,0000,0000
2006,3333,0003,4174,4007,0520,0000,0000,0000
U 0073, 1514,011·1,0503,4174,4003,7700,0200,0003,0001

U 0063,

U 2006, 0100, 3440,0303 , 0174 , 4156 , 4700,0400,0000',0000
U 2007, 2010,3223,0000,4174,4007,0621,0000,0000,0000
U 2010, 1514,0111,0703,4174,4003,7700,0200.0003,0001

U 2011, 0073,7441,1205,4174,4007,0700,0000,0000,0000

5416
5417
5418
·5419
, 5420
5421
5422
5423
5424
5425
5426
5427
5428
'3429
5.430
5431
5432·
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- FIX AND FIXR

Page 147

.TOC

"FLOATING POINT -- FIX AND FIXR"

122:
126:

.DCODE
FL-R,
FL-R,
.UCODE

FL-AC,
FL-AC,ROUND,

J/FIX
J/FIX

1626:
FIX:

=0*
=0*

=0
FIXR:

=0
FIXL:
=0*11
FIXX:
F IXX 1 :

=0
FIXT:
=0

Q 0, SCAD/A+B, SCADA/S#,
CLEAR Q, SEE IF
S#/1534, SCADB/FE, 3T,
ANSWER FITS IN
SCAD DISP
35 BITS.
SET AROV, J/NIDISP
TOO BIG
SC FE+S#, S#/1544, 3T, SCAD DISP ;NEED TO MOVE LEFT?
STEP SC, J/FIXL
SC_S#-FE, S#/232
;NUMBER OF PLACES TO SHIFT
RIGHT
;ALREADY THERE
STEP SC
[AR] [AR]*.5 LONG, ASHC,
STEP SC, J/FIXR
[BR]_[ONE]*.5, B DISP, J/FIXX

;SHIFT BINARY POINT
; TO BIT 35.5
;WHICH KIND OF FIX?

[AR] [AR]*2, STEP SC, J/FIXL
AC_[AR], NEXT INST

;SHIFT LEFT
;WE ARE NOW DONE

READ [AR], SKIP DPO, J/FIXT
[AR]_[AR]+[BR], FL-EXIT

;FIX--SEE IF MINUS
;FIXR--ROUND UP

AC [AR], NEXT INST
READ Q, SKIP AD.EQ.O
[AR] [AR]+1, FL-EXIT
[BR]-.NOT.[MASK],
J/FIXX1

;FIX & +, TRUNCATE
;NEGATIVE--ANY FRACTION?
;YES--ROUND UP
;MAYBE--GENERATE .75
;ROUND UP IF BIT 36 OR
; 37 SET

I

T10K~[10'1141]
FLT.MIC[10,1141]

i

J

U
U
U
U
U
U
U
U
U
U

0420,
0421,
0422,
0423,
0424,
0425,
0426,
0427,
0430,
0436,

15:34 27-JULY-1984
01;4620-MAR-1981

MICRO 31(254)

0420,3444,0303,4174,4063,4701,1000,0041,1777
2014,2222,0000,4174,4007,0311,4000,0000,0000
0262,3333,0003,4174,4003,4701,0010,0000,0000
2014,2222,0000,4174,4007,0311,4000,0000,0000
026.2,3447,0303,4174,4007,0700,1010,0041,0001
2014,2222,0000,4174,4007,0311,4000,0000,0000
0262,3447,0303,4174,4007,0700,1010,0041,0001
2014,2222,0000,4174,4007,0311,4000,0000,0000
2012,3223,0000,4174,4007,0621,0000,0000,0000
2013,3770,0303,4324,0457,0700,0000,004;,0000

U 2012, 0420,3444,0303,4174,4063,4701,1000,0041,1777
U 2013, 1514,4443,0000,4174,4003,7700,0200,0003,0001

5453
5454
5455
5456
5457
5458
5459
5460
5461
5462
5463
5464
5465
5466
5467
5468
5469
5470
5471
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
, 5491
5492
5493
5494
5495

K$10'MICROCODE V124, 27-JUL-84 Page 148
FLOATING POINT
SINGLE PRECISION NORMALIZE
.TOC

"FLOATING POINT -- SINGLE PRECISION NORMALIZE"

;NORMALIZE DISPATCH IS A 9-WAY DISPATCH. THE HARDWARE LOOKS AT
4 SIGNALS; DP=O, DP BIT 8, DP BIT 9, DP BIT -2. THE 9 CASES
ARE:
DP=O
0

DP08
0

DP09
0

0

0

0

0

0

0

0

0

0

1

ALL DONE
NEGATE AND RETRY

0

0

SHIFT RIGHT
NEGATE AND RETRY

0

0\

ACTION TO TAKE
SHIFT LEFT
NEGATE AND RETRY

0

0

0

DPOO
0

SHIFT RIGHT
NEGATE AND RETRY

\

LOOK AT Q BITS

; ENTER HERE\ WITH UNNORMALI ZED NUMBER IN ARIQ. FE HOLDS THE NEW
; EXPONENT. CALL WITH NORM DISP
=0000
;9-WAY DISPATCH
SNORM;
[AR] [AR]*2 LONG, DIV, FE FE-1, NORM DISP, J/SNORM
Q -Q~ SKIP CRYO, 3T, J/SNNEG
READ [AR], NORM DISP, CALL [SROUND]
Q -Q, SKIP CRYO, 3T, J/SNNEG
[AR] [AR]*.5, FE FE+1, CALL [SROUND]
Q -Q~ SKIP CRYO,-3T, J/SNNEG
[AR] [AR]*.5, FE FE+1, CALL [SROUND]
Q -Q~ SKIP CRYO,-3T, J/SNNEG
READ Q, SKIP AD.EQ.O, J/SNORM1
=1110
[AR] EXP, J/FLEX
=0 .
SNORM1; [AR] [AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNDRM
FLEX;
FL-EXIT

T 1OKL. MCR [ 10, 1141]
FLT.MIC[1O,1141]

15:34 27-JULY-1984
01:46 20-MAR-1981

MICRO 31(254)

U 2014, 0440.7441.0303.4174,4003,4701,0000,0000,0000
U 2015, 0440,2441,0303,4174,4003.4701,4000,0000,0000
U
U
U
U
U
U

0440,
0442,
0444,
0446,
0450,
0456,

0440.3444,0303,4174,4063,470 1 ,1000,0041,1777
0262,3333,0003,4174,4003,4701,0010,0000,0000
0262,3447,0303,4174,4007,0700,1010,0041,0001
0262,3447,0303,4174,4007,0700,1010,0041,0001
0440,3444,0303,4174,4063,4701,1000,0041,1777
0327,3770,0303,4324,0453,7700,0000,0041,0000

U 0327, 2016,4553,1300,4374,4007,0321,0000,0000,2000
U 0337, 2021,4111,1203,4174,4007,0700,0000.,0000,0000
U
U
U
U
U

2016,
2017,
2020,
2021,
3225,

3225,7441.0303,4174,4007,0700,0000,0000,0000
2020,3223,0000,4174,4007,0621,0000,0000,0000
3225,7441,0303,4174,4007,0700,0000,0000,0000
3225,2441,0303,4174,4007,0700,4000,0000,0000
1514,4221,0013,4174,4003,7700,0200,0003,0001

U 0262, 0407,3447,0705,4174,4003,7700,0000,0000,0000
U 0266, 0262,3447,0303,4174,4007,0700,1000,0041,0001
U
U
U
U

0407,
0417,
0302,
0306,

0016,4443,0000,4174,4004,1700,0000,0000,0000
0302,Ol11,Q503,4174,4003,4701,0000,OGOO,0000
0016,4443,0000,4174,4004,1700,0000,0000,0000
0016,3447,0303,4174,4004,1700,1000,0041,0001

KS10 MICROCODE V124, 27-JUL-84 Page 149
FLOATING POINT -- SINGLE PRECISION NORMALIZE

5496 ·=0
5497 SNNEG:
5498
5499
5500 =0000
5501 SNNORM:
5502 =0010
5503 =0100
5504 '=0110
5505 =1000
5506 = 1110
5507
5508 =0111
5509
5510
=0
5511
5512 SNNOT:
5513
5514 =0
5515 SNNOT 1 :
5516 SNNOT2:
5517
5518
5519
5520 .TOC
5521
5522 =*01*
5523 SROUND:
5524
5525 =0111
5526 SRND1:
5527
5528 =*01*
5529
5530

[AR]

.NOT.[AR], NORM DISP, J/SNNORM ;NEGATE HIGH WORD
(NO CARRY)
[AR] -[AR], NORM DISP, J/SNNORM ;NEGATE HIGH WORD (W/CARRY)
[AR] [AR]*2 LONG, DIV, FE FE-l, NORM DISP, J/SNNORM
READ-[AR], NORM DISP, CALL [SROUND]
[AR] [AR]*.5, FE FE+1, CALL [SROUND]
[AR]-[AR]*.5, FE-FE+1, CALL [SROUND]
[AR]-[AR]*2 LONG~ DIV, FE FE-1, NORM DISP, J/SNNORM
[AR] EXP, B DISP
TL [FLG], FLG.SN/1, J/SNNOT
[AR] [AR}.AND.[MASK],
;CLEAR ANY LEFT OVER BITS
J/SNNOTl
[AR] .NOT.[AR], J/SNNOT2
REAO-Q, SKIPAD.EQ.O
[AR] .NOT. [AR], J/SNNOT2
[AR] -[AR], J/SNNOT2
;NORMAL NEGATE AND EXIT
[FLG]_O, FL-EXIT

"FLOATING POINT -- ROUND ANSWER"
[BR] [ONE]*.5, B DISP, t.I/SRNDl
[AR] [AR]*.5, FE FE+1, J/SROUND ;WE WENT TOO FAR
RETURN [16]
;NOT ROUNDING INSTRUCTION
[AR] [AR]+[BR], NORM DISP
RETURN [16]
[AR] [AR]*.5, FEJE+1, RETURN [16]

C

T10KL.MCR[10,1141]
FLT .MIC[ 10,1141]

/

15:34 27-JULY-1984
01:4620-MAR-1981

, MICRO 31(254)

o

0110, 1100,1637,1100
D 0111, 1100,1635,1100

U 1635, 3226,2441,0404,4174,4007,0700,4000,0000,0000
U 3226, 1637,2441,0303,4174,4007,0700,0040,0000,0000
U 1637, 3227,4557,0006,1274,4007,0701,0000,0000,1441
U 3227, 2022,3777,0005,0274,4007,0521,2000,0020,2000
U 2022, 2024,5547,0505,0374,4007,0631,0000,0077,7400
l)

2023. 20'24.3547,0505.0374,4007,0631 ,0000.0077 , 7400

U 2024, 2026,3442,0600.4174,4007,0700,0000,0000,0000
U 2025, 3231,3771,0016,0276,6007,0700,2000,0041,2000

5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
·5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT
DFAD, DFSB
.TOC

"FLOATING POINT

110:
111 :

.DCODE
DBL FL-R,
DBL FL-R,
,UCODE

Page 150

DFAD, DFSB"
J/DFAD
J/DFSB

;ENTER FROM A-READ CODE WITH:
;FE/
EXP
EXP
;SC/
;AR/
C(E) SHIFT RIGHT 2 PLACES
;ARX/
C(E+1) SHIFTED RIGHT 1 PLACE
1635:
DFSB:
[ARX] -[ARX]
;NEGATE LOW WORD
[AR] ~[AR]-.25, MULTI PREC/1
1637:
DFAD:
[BRX] (AC[1].AND.[MAG])*.5, 3T ;GET LOW WORD
[BR] AC*.5, 3T,
;GET AC AND START TO SHIFT
SC SC-EXP-1,
;NUMBER OF PLACES TO SHIFT
;SEE WHAT SIGN
SKIP DPG
=0
[BR] +SIGN*.5, 3T,
;SIGN SMEAR
AC, SKIP/SC, J/DFAS1
;SEE WHICH IS BIGGER
;SIGN SMEAR
[BR] -SIGN*.5, 3T,
AC, SKIP/SC, J/OFAS1
;SEE WHICH IS BIGGER
=0

DFAS1 :

Q [BRX],
J70FAS2
[TO] AC,
SC_EXP, 2T, J/DFAS3

AR IS BIGGER
ADJUST BR!O
BR IS BIGGER OR EQUAL
SET SC TO THAT EXPONENT

T10KL.MCR[10,l141]
FLT.MIC[10,1141]

15:34 27-JULY-1984
01 :46 20-MAR-1981

MICRO 31(254)

U 2026, 0153,3441,0516,4174,4007,0700,0010,0000,0000
U 2027, 3230,3441, 1605.4174,4007,0700,0000,0000,0000
U 3230, 3234,0002,0400,4174,4007,0700,0000,0000,0000

U
U
U
U
U

3231,
3232,
2030,
2031,
3233,

3232,3442,0400,4174,4007,0700,2000,0020,0000
2030,3333,0016,4174,4007,0700,1000,0041,2000
0153,3441,0316,4174,4007,0700,0010,0000,0000
3233,3441,1603,4174,4007,0700,0000,0000,0000
3234,0002,0600,4174,4007,0700,0000,0000,0000

U 3234, 3235,0116,0503,4174,4047,0700,0040,0000,0000
U 3235, 0433,3444,0303,4174,4046,2700,0000,0000,0000
U 0433, 3236,5111,1217,4174,4007,0700,0000.0000.0000
U 0437, 0433,0222,0000.4174,4007.0700.4000,0000,0000
U 3236, 3237,3444,0303,4174,4047,0700,1000,0041,1777
U 3237. 3240,3444,0303,4174,4047,0700,1000.0041,1777
U 3240, 2043,3002, 1700,4170.,4007, ()700, 0000,0000,0000

5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFAD, DFSB

Page 151

;HERE IF AR!ARX IS GREATER THAN
=0
DFAS2:
[TO] [BR], CALL [DFADJ]
[BR]-[TO]
Q_Q+TARX], J/DFAS5

BR!BRX

;HERE IS BRIBRX IF
DFAS3:
0 [ARX].
SC SC-FE-1
READ [TO],
=0
[TO] [AR].
[AR]-[TO]
Q_Q+TBRX].

;ADJUST BR!Q
;PUT ANSWER BACK
;ADD LOW WORDS

GREATER THAN OR EQUAL TO ARIARX
;SETUP TO SHIFT ARIARX
;COMPUTE # OF-PLACES
FE EXP
;EXPONENT OF ANSWER
CA[L [DFADJ] ;ADJUST AR!O
;PUT ANSWER BACK
J/DFAS5
;ADD LOW WORDS

;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO
; ARIQ
DFAS5:
[AR] ([AR]+[BR])*.5 LONG, ;ADD HIGH WORDS
MULTI PREC/l, ASHC
;INJECT SAVED CRY2
[AR] [AR]*2 LONG,
;SHIFT BACK LEFT
ASHC-;- MUL DISP
;SEE IF WE LOST A 1
=1011
DFAS6:
[Tl] [Tl].AND.NOT.[MASK], J/DFAS7
o Q+~25, J/DFAS6
DFAS7:
[AR] [AR]*2 LONG, ASHC. ;PUT IN GUARD BITS
FE FE-l
[AR] [AR]*2 LONG, ASHC.
FE FE-l
O_TT 1] . OR. Q, HOLD LEFT, J/DNORMO

n

T lOKL .lVlI..R [ 10, 1141 ]
FLT .MIC[ 10,1141]

15:34 27-JULY-1984
01 :46 20-MAR-1981

MICRO 31(254)

U 0153, 2071,3444,1616,4174,4067,0700,0010,0000,0000
U 0173, 3241,3444,1616,4174,4067,0700,0000,0000,0000
U 3241, 3242,3444,1616,4174,4067,0700,0000,0000,0000
U 3242,

0472,3446,1616,4174.4047,0630.2000,0060.0000

U 0472, 0472,3446,1616,4174,4046,2630,2000.0060,0000
0453,3221,0017,4174,4006,2700,0000,0000,0000
U 0476, 2032,3551,1313,4374,0007,0700,0000,0000,2000
U 0477, 2033,3551,1313,4374,0007,0700,0000,0000,2000

U 0473,

U 2032,

2032,3446,1616,4174,4047,0630.2000,0060,0000
U 2033, 0453,3221,0017,4174,4007,0700,0000,0000,0000
U 0453, 3243,3446,1616,4174,4047,0700,0000,0000,0000
U 0457, 0453,3551,1313,4374,0007,0700,0000,0000,2000
U 3243. 0001,3446.1616,4174,4044,1700,0000,0000,0000

KS1U MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFAD, DFSB

Page 152

5590 ;SUBROUTINE TO ADJUST NUMBER IN TO!O
5591
; RETURNS 1 WITH
5592
TO!O ADJUSTED
5593
FLG.SN=l IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT)
5594
Tl HAS 0 TWO STEPS PRIOR TO BEING DONE
5595 DFADJ
"STEP SC, ASHC, MUL DISP"
5596
5597=0**11
5598 DFADJ:
[TO] [TO]*2 LONG, DIV,
;MOVE EVERYTHING 2 PLACES
5599
CALL-[CLRSN]
5600
[TO] [TO]*2 LONG, DIV
5601
[TO]-[.TO]*2 LONG, DIV
5602
[TO]:-[TO]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE
5603
STEP-SC
5604 =1010
5605 DFADJ1: [TO] [TO]-.5 LONG,
;UNNORMALIZE TO!O
5606
DFADJ, J/DFADJl
;LOOP TILL DONE
5607 DFADJ2: [T1] 0,
;SAVE GUARD BITS
5608
MUL DISP, J/DFADJ5
;LOOK AT LAST BIT
5609
[FLG] [FLG].OR.#, FLG.SN/1. HOLD RIGHT, J/DFADJ3
5610
[FLG]-[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ4
5611 .
5612 =0
5613 OFADJ3: [TO] [TO]*.5 LONG, ASHC, STEP SC, J/DFADJ3
5614 DFADJ4: [Tl]=O
;SAVE 2 GUARD BITS
5615 = 1011
5616 DFADJ5: [TO] [TO]*.5 LONG, ASHC, J/DFADJ6
[FLG] [FLG].DR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ5
5617
5618 DFADJ6: [TO] [TO]*.5 LONG, ASHC, RETURN [1]
5619

T10KL.MCR[10,1141]
FLT.MIC[10,1141]

D 0112.

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

1105.1631.1100

U 1631. 2034.3442.0400.4174 .• 4007.0700.2000.0071,0006
U 2034. 2034,3444.0303.4174,4047,0630.2000,0060,0000
U 2035, 3244.3446.1200.4174,4007.0700.0000.0000.0000
U 3244. 3245,4662.0000.4374.0007.0700 .. 0000,0007.7777
U 3245. 3246.3221,0005,4174.4007.0700.0000.0000,0000

U 3246,0623.4557,0006,1274.4007.0700.0000.0000.1441
U 0623. 2774.3447.0606.4174.4007,0700.2010.0071,0043

U
U
U
U

0627.
0730,
0734,
3247.

0730.3442.0300,4174,4007,0700,2000.0071,0043
2775.4443,0000.4174,4007,0700,0010.0000,0000
3247.3441.0416,4174.4007.0700,0000.0000,0000
3250,3227,0004,4174,4007,0700,2000,0011,0000

U 3250, 2036,3777.0006,0274,4007,0521,1000.0040,2000
U 2036, 0732,5547.0606,4374,4007,0701,0000,0077,7400
U 2037, 0732,3547,0606.4374,4007,0701,0000,0077,7400

U 0732, 2775,3442,0500,4174,4007.0700,2010,0071,0043
U 0736, 3251,3221.0017.4174,4007.0700.0000,0006.0000
U 3251. 1012,0111.1604.4174.4007.0700.0000.0000.0000

U 1012. 2775.3442.0300.4174.4007,0700,2010.0071.0043

5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664

KS10 MICROCODE V124. 27-JUL-84
FLOATING POINT -- DFMP
.TOC

"FLOATING POINT -- DFMP"

112 :

.DCODE
DBL FL-R.
.UCODE

DAC,

Page 153

J/DFMP

;SAME ENTRY CONDITIONS AS DFAD/DFSB
1631 :
DFMP:
;SHIFT MEM OP 8 PLACES
=0
DFMPl : [AR] [AR]*2 LONG. ASHC. ;SHIFT
STEP-SC. J/DFMPl
o 0*.5
O-O.AND.#. #/077777. HOLD RIGHT
[BR]_O
;COPY LOW WORD
BRX * BR ==> C(E+l) * C(AC+l)
=0**

[BRX] (AC[1].AND.[MAG])*.5 ;GET LOW AC
[BRX] [BRX]*.5. SC 35 .. CALL [MULSB1]

; BRX * 0 ==> C(E)

* C(AC+l)

o
=0**

[AR]. SC 35.
cALL [MULTIpLY]
[TO] [ARX]
[ARX]_0*.5, SC_FE

;GO MULT NEXT HUNK
;SAVE PRODUCT
;PUT IN NEXT STEP

BRX * BR ==> C(AC) * C(E+l)
[BRX] AC*.5.
;PREPARE TO DO HIGH HALF
FE SC~EXP,
;EXPONENT ON ANSWER
SKIp DPO. 3T
[BRX] +SIGN*.5. 3T. J/DFMP2
[BRX]--SIGN*.5. 3T

=0
=0**
DFMP2:

BRX

0 [BR], SC 35 .. CALL [MULTIPLY] ;GO MULTIPLY
[Tl] 0
;SAVE FOR ROUNDING
[ARX] [ARX]+[TO]
;PREPARE FOR LAST MUL

* 0 ==> C(AC) * C(E)

o

[AR], SC 35 ..
CALL [MULTIpLY]

;DO THE LAST MULTIPLY

~
"'~-

-y.

T10KL.MCR[ 10.1141]
FLT.MIC[10.1141]

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

U 1016. 0243.3446.0403.4174.4007.0700.1000.0041.1576
U 0243. 2070.3333.0017.4174,4007,0621.0010,0000,0000
U 0263. 3252,3444,0303.4174.4047.0700.0000.0000,0000
U 3252. 3253.3447.0705.4174.4007.0700.0000.0000.0000
U 3253. 2040.4553.1700.4374.4007,0321.0000.0020.0000
U 2040. 2041.0002.0500.4174.4007,0700.0000.0000,0000
U 2041. 3254.3444.0303.4174.4047.0700.0000,0000,0000
U 3254. 2042.4553.1700.4374.4007.0321.0000.0010,0000
U 2042, 2043.0002,0500,4174,4007,0700,0000,0000,0000
U 2043, 0520,3333,0003.4174,4003,4701.1000.0041.0002

5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680

KS10 MICROCODE V124. 27-JUL-84
FLOATING POINT -- DFMP

Page 154

;OK, WE NOW HAVE THE PRODUCT IN ARX!Q!T1. ALL WE NEED TO DO
; IS SOME BIT DIDDLES TO GET EVERYTHING IN THE RIGHT PLACE
[AR] [ARX]*.5 LONG.
;SHIFT THE ANSWER
FE FE+S#, S#/1576
;CORRECT EXPONENT
=0**11 READ [T1], SKIP AD.EQ.O, ;SEE IF LOW ORDER 1
CALL [SETSN]
; BITS AROUND SOMEPLACE
[AR] [AR]*2 LONG, ASHC
;SHIFT LEFT
;PLACE TO INSTERT BITS
[BR] [ONE]*.5
TL [T11. #/200000
;ANYTHING TO INJECT?
=0
Q Q+[BR]
;YES--PUT IT IN
[AR] [AR]*2 LONG, ASHC
;MAKE ROOM FOR MORE
TL [T11. #/100000
;ANOTHER BIT NEEDED
=0
Q Q+[BR]
;YES--PUT IN LAST BIT
DNORMO: READ [AR], NORM DISP.
;SEE WHAT WE NEED TO DO
FE FE+S#. S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS

Tl0KL.MCR[10,l141]
FLT.MIC[10,1141]

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

D 0113, 1105,1636,1100
U 1636, 0132,3441,0406,4174,4007,0700,0000,0000,0000
U 0132, 2071,4221,0017,4174,4007,0700,0010,0000,0000
U 0133, 2044,3441,0305,1174,4007,0421,0000,0000,1441
U 2044, 3257,4557,0004,1274,4007,0700,0000,0000,1441
U 2045, 3255,7441,1717,4174,4007,0700,0000,0000,0000
U 3255, 3256,2441,0606,4174,4007,0700,4000,0000,0000

U 3256, 2044,2331,0005,1174,4007,0521,0040,0000,1441
!

U
U
U
U
U

3257,
2046,
2047,
3260,
3261,

2046,3777,0003,0274,4007,0521,1000,0030,2000
2050,5547,6~03,4374,4007,0701,OOOO,0077,7400

3260,7441,11n,4174,4007,0100,0000,0000,0000
3261,3547,0303,4374,4007,0701,0000,0077,7400
3262,2442,0400,4174,4007,0700,4000,0000,0000

U 3262, 2051,2446,0303,4174,4047,0700,0040,0000,0000
U
U
U
U
U
U

2050,
2051,
2052,
2053,
1054,
1056,

3035,3442,0400,4174,4007,0700,0010,0000,0000
2052,2113,0305,4174,4007,0521,4000,0000,0000
0603.,4443,0000,4174,4467,0700,0000,0071,1000
1054,3221,0004,4174,4007,0700,0000,0000,0000
1276,4222,0000,4174,4007,0700,2010,0071,0032
1064,3221,0016,4174,4007,0700,2000,0071,0043

U 1064, 1276,5002,0000,4174,4007,0621,0010,0000,0000
U 1066, 3263,3446,1200,4174,4007,0700,0000,0000,0000
U 3263,

0513,3444,1616,4174,4046,2700,0000,~00,OOOO

U 0513, 2054,3333,0017,4174,4007,0520,1000,0031,0202
U 0517, 0513,0222,0000,4174,4007,0700,4000,0000,0000
U 2054, 0520,3441,1603,4174,4003,4701,0000,0000,0000
U 2055, 0200,3441,1603,4174,4003,4701,0000,0000,0000

5681
5682
5683
5684
5685
5686
5687
5688
5689
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
5718
5719
5720
5721
5722
5723
5724
5725
5726
5727
5728
5729
5730.
5731
5732
5733
5734

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFDV
.Toe

"FLOATING POINT -- DFDV"

113:

.DCODE
DBL FL-R,
.UCODE

1636:
DFDV:

[BRX] [ARX]

=1**10
=0
DFDV1:

DFDV2:
=0

=0
OFDV3:
DFDV4:
=0

=0*
=0*

J/DFDV

;COPY OPERAND (COULD SAVE TIME
, WITH SEPERATE A-READ FOR DFDV)
[Tl] 0, CALL [CLRSNl
;CLEAR FLAG
[BRl-[AR]. SKIP AD.LE.O, ;SEE IF POSITIVE
AC[l]
;WARM UP RAM
[ARX] (AC[1].AND.[MAG])*.5, ;POSITIVE--GET AC
J/DFDV2
, AND CONTINUE BELOW
[T1] .NOT. [T1]
;DV'SOR NEGATIVE (OR ZERO)
[BRX] -[BRX]
;NEGATE LOW WORD
AD/-B~.25, B/BR, DEST/AD, ;NEGATE HIGH WORD
MULTI PREC/l, 3T,
;ADDING IN CRY02
SKIP DPO, AC[l],
;SEE IF STILL NEGATIVE
J/DFDVl
, ..
[AR] AC*.5,
;GET AC AND SHIFT
FE SC-EXP, 3T,
;COMPUTE NEW EXPONENT
SKIP DPO
;SEE IF NEGATIVE
[A~] +SIGN*.5, 3T, J/DFDV3
;POSITIVE
[Tl]-.NOT.[Tl]
;NEGATIVE OR ZERO
[AR]--SIGN*.5, 3T
;SIGN SMEAR
Q -[ARX]
;NEGATE OPERAND
[AR] (-[AR]-.25)*.5 LONG, ;NEGATE HIGH WORD
MULTI PREC/1,
;USE SAVED CARRY
ASHC, J/OFDV4
;CONTINUE BELOW
Q [ARX],

;COPY OPERAND
CALL [DDIVS]
;SHIFT OVER
[AR]-[BR], 3T, SKIP DPO ;SEE IF OVERFLOW
FL NO DIVIDE
;START DIVISION
[ARX] Q
Q 0, SC 26., CALL [DBLDIV]
[TO]' Q,-SC 35.
Q Q.AND.NOT. [MAG],
;SEE IF ODD
SKIP AD.EQ.O,
;SKIP IF EVEN
CALL [DBLDIV]
;GD DIVIDE
Q_Q*.5
;MOVE ANSWER OVER
[TO] [TO]*2 LONG, ASHC, ;00 FIRST NORM STEP
MUL OISP
; SEE IF A 1 FELL OUT

=1011
DFDV4A: READ [Tl], SKIP DPO,
FE S#-FE, S#/202,
J/DFDV4B
Q_Q+.25, J/DFDV4A

;SHOULD RESULT BE NEGATIVE
;CORRECT EXPONENT
;LOOK BELOW
;PUT BACK THE BIT

=0

DFDV4B: [AR] [TO], NORM DISP, J/DNORM ;PlUS
[AR] [TO], NORM DISP, J/DNNORM ;MINUS

r \ .I

I

\" ./

DAC,

Page 155

\.

a

Tl0KL.MCR[ 10,11411
FLT .MIC[ 10,1141]

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

U 0520, 0520,3444,0303,4174,4043,4701,1000,0041,1777
U 0521, 2060,4553,1300,4374,4007,0321,0000,0000,2000
U 0522, 0312,3333,0003,4174,4003,4701,0010,0000,0000
U 0523, 2060,4553,1300,4374,4007,0321,0000,0000,2000
U 0524, 0312,3446,0303,4174,4047,0700,1010,0041,0001
U 0525, 2060,4553,1300,4374,4007,0321,0000,0000,2000
U 0526, 0312,3446,0303,4174,4047,0700,1010,0041,0001
U 0527, 2060,4553,1300,4374,4007,0321,0000,0000,2000
U 0530, 3265,4002,0000,4174,0007,0700,0000,0000,0000
U 0536, 3264,4221,0013,4174,4007,0700,0000,0000,0000
U 3264, 15'15,4113,0400,1174,4007,0700,0400,0000,1441
U 3265, 2056,3223,0000,4174,4007,0621,0000,0000,0000
U 2056, 0520,3444,0303,4174,4043,4701,1000,0041,1777
U 2057, 1515,3440,0303,t174,4007,0700,0400,OOOO,1441

5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767

KS10 MICROCODE V124, 27-JUL-84 Page 156
FLOATING POINT
DOUBLE PRECISION NORMALIZE
.TOC

"FLOATING POINT -- DOUBLE PRECISION NORMALIZE"

;NORMALIZE AR!O
;DNORMO:
READ [AR1, NORM DISP,
;SEE WHAT WE NEED TO DO
FE FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS
=0000
DNORM:
[AR] [AR]*2 LONG,
;SHIFT LEFT
FE FE-1, ASHC,
;ADJUST EXPONENT
NORM DISP, J/DNORM
;TRY AGAIN
TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE
READ [AR1, NORM DISP,
;SEE IF WE WENT TOO FAR
CALL [DROUNDl
; AND ROUND ANSWER
TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE
[ARl [ARJ*.5 LONG, ASHC,
FE FE+1, CALL [DROUND]
TL-[FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE
[AR] [AR]*.5 LONG, ASHC,
FE FE+1, CALL [DROUND]
TL-[FLGJ, FLG.SN/l, J/DNEG ;RESULT IS NEGATIVE
Q [MAG].AND.Q,
;HIGH WORD IS ZERO
HOLD RIGHT, J/DNORMl
;GO TEST LOW WORD
= 1110
[FLGJ_O
;[122J CLEAR FLAG WORD
AC[1] [ARXJ.AND.[MAG],
J/STAC
DNORM1: READ Q, SKIP AD.EQ.O
=0
[AR] [ARJ*2 LONG,
FE FE-1, ASHC,
NORM DISP, J/DNORM
AC[1J [AR], J/STAC

;STORE LOW WORD
;GO DO HIGH WORD
TEST LOW WORD
LOW WORD IS NON-ZERO
ADJUST EXPONENT
KEEP LOOKING
WHOLE ANSWER IS ZERO

T10KL.MCR[10,1141]
FLT.MIC[10,1141]

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

U 2060, 3266,7222,0000,4174,4007,0700,0000,0000,0000
U 2061, 2062,2222,0000,4174,4007,0511,4000,0000,0000
U 3266, 2062,4221,0013,4174,4007,0700,0000,0000,0000
U 2062" 0200,7441,0303,4174; 4003 ,4701,0000,0000,0000
U 2063, 0200,2441,0303,4174,4003,4701,4000,0000,0000

U 0200, 0200,3444,0303,4174,4043,4701,1000,0041,1777
U 0202, 0312,3333,0003,4174,4003,4701,0010,0000,0000
U 0204, 0312,3446,0303,4174,4047,0700,1010,0041,0001
U 0206, 0312,3446,0303,4174,4047,0700,1010,0041,0001
U 0210, 3271,4002,0000,4174,0007,0700,0000,0000,0000
U 0216, 0630,4111,1204,4174,4007,0700,0000,0000,0000
U 0630, 3272,4111,0004,4174,4007,0700,0010,0000,0000
U 0632, 3267,6111,0004,4174,4007,0700,0000,0000,0000
U 0633, 2064,2441,0404,4174,4007.0561.4000.0000,0000
U 3267, 2064,4221,0013,4174,4007,0700,0000,0000,0000
U 2064, 3270,7333,0003,0174,4007,0700,0400,0000,0000
U 2065, 3270,2443,0300,0174,4007,0701,4400,0000,0000
U 3270,0100,4113,0400,1174,4156,4700,0400,0000,1441
U 3271, 2066,3223,0000,4174,4007,0621,0000,0000,0000
U 2066, 0200,3444,0303,4174,4043,4701,1000,0041,1777
U 2067. 1515,3440,0303,1174,4007,0700,0400,0000,1441

\.,

/

5768
5769
5770
5771
5772
5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5.794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812

KS10 MICROCOOE V124, 27-JUL-84 Page 157
FLOATING POINT -- DOUBLE PRECISION NORMALIZE
;HERE TO NORMALIZE NEGATIVE D.P. RESULTS
=0
DNEG:
o .NOT.O, J/DNEG1
;ONES COMP
0--0, SKIP CRY2, J/DNEG2
DNEG1 :
(FLG]_O
=0
DNEG2:
[AR] .NOT. [AR],
;NO CARRY
NORM-DISP, J/DNNORM
;GO NORMALIZE
[AR] -[AR],
;CARRY
NORM-DISP, J/DNNORM
; NORMALIZE
=000*
DNNORM: [AR] [AR]*2 LONG,
FE FE-1, ASHC,
NORM DISP, J/DNNORM
READ [AR), NORM DISP,
=001*
CALL [DROUND]
[AR] [AR]*.5 LONG, ASHC,
=010*
FE FE+1, CALL [DROUND]
[AR] [AR]*.5 LONG, ASHC,
=011 *
FE FE+1, CALL [DROUND]
=100*
o TMAG] .AND.O,
HOLD RIGHT, J/DNNRM1
=111 * [ARX]_[ARX].AND.[MASK]
=00

[ARX] [ARX].AND.[MAG],
CALL TCHKSN]

=10

[ARX]_[ARX].XOR.[~AG],

=11

J/DNN1
[ARX] -[ARX], 3T,
SKIPCRY1, J/DNN2

DNN1 :
=0
DNN2:

[FLG]_O

AC .NOT.[AR], J/DNORM2
AC""'-[AR), 3T
DNORM2: AcTl] [ARX].AND.[MAG],
NEXT INST

DNNRM1: READ 0, SKIP AD.EO.O
=0
[AR] [AR]*2 LONG,
FE FE-1, ASHC,
NORM DISP, J/DNNORM
AC[ 1] [AR], J/STAC

\

;SHIFT 1 PLACE
;ADJUST EXPONENT
; LOOP TI LL DONE
;SEE IF WE WENT TOO FAR
AND ROUND ANSWER

;HIGH WORD IS ZERO
;GO TEST LOW WORD
;REMOVE ROUNDING BIT
;ALSO CLEAR SIGN
;ONES COMP?
;YES--ONES COMP
;CONTINUE BELOW
;NEGATE RESULT
;CLEAR FLAG

;STORE LOW WORD
;ALL DONE
TEST LOW WORD
LOW WORD IS NON-ZERO
ADJUST EXPONENT
KEEP LOOKING
WHOLE ANSWER IS ZERO

\.,

/

a

T10KL.MCR[10,1141}
FLT.MIC[10,1141]

15:34 27-JULY-1984
01:4620-MAR-1981

MICRO 31(254)

U 3272,0002,4553,1300,4374,4004,1321,0000,0000,2000

U 2070, 0023,3551,1313,4374,0004,1700,0000,0000,2000
U 2071, 0023,5551,1313,4374,0004,1700,0000,0000,2000

U 0312, 0462,0007,0704,4174,4007,0511,0000,0000,0000
U 0316, 0312,3446,0303,4174,4047,0700,1000,0041,0001
U 0462, 0016,3770,0303,4324,0454,1700,0000,0041,0000

U 0463, 0462,0441,0303,4174,4003,4701,4000,0000,0000
U 0466, 0462,3447,6~03,4174,4007.0700,1000,0041,0001

5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845

KS10 MICROCODE V124, 27-JUL-84 Page 158
FLOATING POINT
DOUBLE PRECISION NORMALIZE
CHKSN:

TL [FLG], FLG.SN/1. RETURN [2]

;SUBROUTINE TO SET/CLEAR FLG.SN
; CALL WITH:
;
CALL [SETSN]. SKIP IF WE SHOULD CLEAR
;RETURNS 23
=0
SETSN:
[FLG} [FLG1.OR.#, FLG.SN/1, HOLD RIGHT, RETURN [23]
CLRSN:
[FLG] [FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT, RETURN [23]
;SUBROUTINE TO ROUND A FLOATING POINT NUMBER
; CALL WITH:
;
NUMBER IN AR!O AND NORM DISP
;RETURNS 16 WITH ROUNDED NUMBER IN AR!ARX
=*01*
DROUND: [ARXl (0+1)*.5,
SKIP CRY2,
J/DRND1
[ARj [AR1*.5 LONG,
FE FE+1, ASHC, J/DROUND
=*010
DRND1:
[AR] EXP, RETURN [16]
=011
[ARj-[ARj+.25,

=110

NORM DISP,
J/DRND1
[ARj [AR]*.5,
FE FE+1,
J/DRN01

;ROUND AND SHIFT
;SEE IF OVERFLOW
;COMPLETE ROUNDING
;WE WENT TOO FAR
;SHIFT BACK AND ROUND
;NO OVERFLOW
;ADD CARRY (BITS 36 AND 37
; ARE COPIES OF Q BITS)
;SEE IF OVERFLOW

;SHIFT RIGHT
;KEEP EXP RIGHT
;ALL SET NOW

Tl0KL.MCR[10,1141]
EXTEND.MIC[10,1141]

D
D
D
D
D
D
D

0001,
0002,
0003,
0004,
0005,
0006,
0007,

000 1 , 1 740, 2 100
0002,1740,2100
0003 , 1 740, 2 100
0002 , 174 1 , 2 100
0005, 1740, 2 100
0006,1740,2100
0007, 1740, 2100

D
D
D
0

0010,
0011.
0012.
0013.

0001,1742,2100
0004,1742.2100
0001,1743.2100
0000.1743.2100

D
D
D
0

0014.
0015.
0016.
0017.

0001.1744.2100
0000.1744,2100
0002.1744.2100
0003.1744,2100

0020,'
0021"
0022,
0023,
0024,
0 0025,
0 0026,
0 0027,
0
D
D
D
0

0000.1746.2100
0000,1747,2100
0000,1750,2100
0000,1751,2100
0001 • 1751 ,2100
0002,1751,2100
0004,1751,2100
0010,1751,2100

15:34 27-JULY-1984
11: 35 26-JULY-1984

MICRO 31(254)
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- DISPATCH ROM ENTRIES
.TOC

"EXTEND

001 :

.DCODE
I,
I,
I,
I ,

I ,

I,
I ,

010:

I ,

I,
I ,

I.
014:

I •

I.
I,
I.
020:

I,
I,
I,
I,
I,
I,
I,
I,

;30:
.UCODE

Page 159

DISPATCH ROM ENTRIES"
SJCL,
SJCE,
SJCLE,
B/2,
SJCGE,
SJCN,
SJCG,

J/L-CMS
J/L-CMS
J/L-CMS
J/L-EDIT
J/L-CMS
J/L-CMS
J/L-CMS

B/l,
B/4.
B/l.
B/O.

J/L-DBIN
J/L-DBIN
J/L-BDEC
J/L-BDEC

B/l.
B/O.
B/2.
B/3.

J/L-MVS
J/L-MVS
J/L-MVS
J!L-MVS

;MOVSO
;MOVST
;MOVSLJ
;MOVSRJ

B/O,
B/l,
B/2,
B/4,
B/l0,

J/L-XBLT
J/L-SPARE-A
J/L-SPARE-B
J/L-SPARE-C
J/L-SPARE-C
J/L-SPARE-C
J/L-SPARE-C
J/L-SPARE-C

;XBLT
;GSNGL
;GDBLE
;GDFIX
;GFIX
;GDFIXR
;GFIXR
;DGFLTR
;GFLTR
;GFSC

CVTDBO
CVTDBT

CVTBDO
CVTBOT

(j

T10KL.iVlCR[ 10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11 :35 26-JULY-19S4

MICRO 31(254)

U 1740, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1741, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1742, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1743, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1744, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1746, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1747, 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1750,' 0400,4751,1203,4374,4007,0700,0000,0000,0040
U 1751, 0400,4751,1203,4374,4007,0700,0000,0000,0040

5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900

KS10 MICROCOOE V124, 27-JUL-84
EXTEND -- DISPATCH ROM ENTRIES

Page 160

1740:
L-CMS:
LUUD
1741 :
L-EDIT: LUUO
1742:
L-DBIN: LUUO
1743:
L-BDEC: LUUO
1744:
L-MVS:
LUUO
1746:
L-XBLT: LUUO
1747:
L-SPARE-A: LUUO
1750:
L-SPARE-B: LUUO
1751:
L-SPARE-C: LUUO
;NOTE: WE DO NOT NEED TO RESERVE 3746 TO 3751 BECAUSE THE CODE
AT EXTEND DOES A RANGE CHECK.

T10KL.MCR[10,1141]
EXTEND.MIC[ 10,1141]

o

15:34 27-0ULY-1984
11:3526-0ULY-1984

MICRO 31(254)

0123, 0000,1467,3100

U 1467, 1022,3771,0005,4365,5007,0700,0200,0000,0002
U 1022, 3556,4553,0500,4374,4007,0321,0010,0076,0740
U 1026, 3273,4521,0206,4374,4001,0700,0000,0000,0740
U 3273, 3274,3111,0605,4174,0417,0700,0000,0000,0000
U 3274, 3275,3333,0005.4174,4217,0700,0000.0000,05PO
U 3275, 3276,3333,0003,7174,4007,0700,0400.0000,0240
U 3276, 0170,4443,0000,2174,4006,6700,0000,0000,0000
U 0170, 0172,0551,0505,2270,4007,0700,0000,0000,0000
U 0172, 0556,5741,0505,4174,4003,7700.0200,0000.0010
0174, 3277,0551,0505,2270,4007,0700,0200,0004,0512
U 0176, 3277,3443,0500,4174,4007,0700,0200,0004,0512

U

U 3277, 3276,3771,0005,4361,5217.0700,0200,0000,0502

U 0556, 3400,3333,0005,7174.4001.2700.0400,0000.0241
U 0557, 2072,3333,0005,4174,4007,0530,0000,0000,0000
U 2072, 3400,3333,0005,7174,4001,2700,0400,0000,0241
U 2073, 0556,3771.0005,4374,0007.0700,0000,0077,7777

5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
59n

5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942

KS10 MICROCODE V124, 27-0UL-84 Page 161
EXTEND -- INSTRUCTION SET DECODING
.TOC

"EXTEND -- INSTRUCTION SET DECODING"

;EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES
; 1740-1747 IF NOT UNDER EXTEND
; 3740-3747 IF UNDER EXTEND
123:

.DCODE
I,READ/i,
.UCODE

0/EXTEND

1467:
EXTEND: MEM READ, [BR] MEM
;FEXCH INSTRUCTION
TL [BR], #/760j40,
;IN RANGE 0-17 (AND AC#=O)
=0**
;TRAP IF NON-ZERO BITS FOUND
CAll [BITCHK]
[BRX] (HR].AND.# CLR RH, ;SPLIT OUT AC NUMBER
#/000j40
; FROM EXTEND INSTRUCTION
[BR] [BR] .OR. [BRX],
;LOAD IR AND AC #
HOLD-RIGHT, LOAD IR
READ [BR]. LOAD BYTE EA,
;LOAD XR #
J/EXTEAO
;COMPUTE E 1
EXTEAO: WORK[EO] [AR]
EXTEA1: EA MODE DISP
=100*
EXTEA:
[BR] [BR]+XR
EXTDSP: [BR) EA FROM [BR], LOAD VMA,
B DISP, 0/EXTEXT
[BR] [BR]+XR, START READ, PXCT EXTEND EA, LOAD VMA, 0/EXTIND
VMA TBR], START READ, PXCT EXTEND EA
EXTjND: MEM READ,

[BR]_MEM, HOLD LEFT, LOAD BYTE EA, 0/EXTEA1

;HERE TO EXTEND SIGN FOR OFFSET MODES
= 1110

EXTEXT: WORK[E1] [BR],
DISP/DROM, 0/3400
READ [BR], SKIP DPi8
=0
\iJORK [ E 1] [BR],
DISP/DROM, 0/3400
[BR] #, #/777777, HOLD RIGHT,
0/EXTEXT

;SAVE E1
;GO TO EXTENDED EXECUTE CODE
;NEED TO EXTEND SIGN
; POSITIVE
;NEGATIVE

/

,

T10KLQr 10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY~1984
11:3526-JULY-1984

MICRO 31(254)

U 3744, 3472,0111,0703,4174,4007,0700,0210,0004,0012
U 3754, 2100,3771,0005,1276,6007,0701,0000,0000,1443

U 2100, 3556,4553,0500,4374,4007,0321,0010,0077,7000
2074,3771,0003,0276,6007,0700,0000,0000,0000

U 2104,

U 2074,

3474,4521,0306,4374,4007,0700,0010,0077,7000

U 2075,

2076,2113,0305,1174,4007,0521,4400,0000,1443

U 2076,

3300,7441,0503,4174,4007,0700,0000,0000,0000
U 2077, 3300,7441,0303,4174,4007,0700,0000,0000,0000

U 3300. 0574,3333,0003,7174,4003,7700,0400,0000,0242

U 0574, 0500,3771,0013,4370,4007,0700,0000,0000,0003
U 0575', 3301,3771,0005,1276,6007,0701,0000,0000,1444
U 0576,

3321,3441,0304,4174,4007,0700,0000,0000,0000

U 0577 , 0650,3771,0004,1276,6007,0522,0000,0000,1443
U 3301, 3302,3333,0005,4174,4007,0700.1000,0041,6020
U 3302, 210i,4222,oooO,4174,4006,7701,1000,0041,1770

U 2101, 2101,4224,0003,4174,4026,7701,1000,0041,1770
U '2103, 3303,7221,0003,4174,4007,0700,0000,0000,0000
U 3303, 0507,4113,0312,7174,4007,0700,0400,0000,0243

5943
5944
5945
5946
5947
; 5948
;' 5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
'3977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987

K~10

j

MICROCODE V124, 27-JUL-84
EXTEND -- MOVE STRING -- SETUP
.TOC

Page 162

"EXTEND -- MOVE STRING -- SETUP"

;HERE TO MOVE A STRING
; COME HERE WITH:
AR/ EO
BR/ E1
,
3744:
[AR] [AR]+1,
MVS:
;GO FETCH FILL
LOAD-VMA,
; BYTE
START READ,
CALL [GTFILL]
;SUBROUTINE TO COMPLETE
3754:
[BR] AC[DLEN]
;GET DEST LENGTH AND FLAGS
TL [BR], #/777000,
;ANY FLAGS SET?
=0**
CALL [BITCHK]
;SEE IF ILLEGAL
[AR] AC
;GET SRC LENGTH AND FLAGS
[BRX] [AR].AND.# CLR RH, ;COPY FLAGS TO BRX
=0
#/777000,
CALL [CLRFl-G]
;CLEAR FLAGS IN AR
;NEW DLEN IS --1
= 1100
;TRANSLATE--ALL SET
STATE_[SRC], J/MOVE~P
[BR] AC[DSTP], J/MVSO
;OFFSET BUILD MASK
[ARX] [AR],
; LEFT JUSTI FY
J/MOVSTO
[ARX] AC[DLEN],
;RIGHT JUSTIFYSKIP OPO, 4T,
;WHICH IS SHORTER?
J/MOVRJ
MVSO:
=0*
MVS01:

READ [BR], FE S+2
0_0, BYTE STEP

;GET DST BYTE SIZE
;BUILD AN S BIT MASK

GEN MSK [AR], BYTE STEP, J/MVS01
[AR] .NOT.O
;BITS WHICH MUST NOT BE SET
WORKTMSK] [AR].AND.[MASK], ;SAVE FOR SRCMOD
J/MOVLPO
;GO ENTER LOOP

:..:-

bL

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

U 0500,

15:34 27-JULY-1984
11:35 26-JULY~1984

MICRO 31(254)

1114,0551,0703,7274,4007,0701,0010,0000,0242

U 0501, 1020,3441,0304,4174,4007,0520,0000,0000,0000
U 0504, 3304,1771,0003,7274,4007,0701,4000,0000,0242

U 0505, 3464,3771,0013,4370,4007,0700,0010,0000,0005
U 0507, 0500,3771,0013,4370,4007,0700,0000,0.000,0003

U 3304, 2106,3771,0005, 1276,6007,0522,0000,0000, 1443
U 2106, 3305,3440,0303,1174,4007,0700,0400,0000,1443
U 2107, 2106,1111,0503,4174,4001,0700,4000,0000,0000
U
U
U
U
U

3305,
3306,
2110,
2111 ,
3307,

3306,7771,0003,7274,4007,0701,0000,0000,0242
2110,3333,0005,4174,4007,0520,0000,0000,0000
2111,0111,0503,4174,4007,0700,0000,0000,0000
3307,3111,0603,4174,4007,0700,0000,0000,0000
1515,4221,0013,4170.4007,0700,0000,0000,0000

5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018

KS10 MICROCODE V124, 27-JUL-84 Page 163
EXTEND -- MOVE STRING -- OFFSET/TRANSLATE
.TOC

"EXTEND -- MOVE STRING -- OFFSET/TRANSLATE"

;HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES
=000
MOVELP: [AR] WORK[SLEN)+l,
;UPDATE STRING LENGTH
CALL-[SRCMOD)
;GET A SOURCE BYTE
=001
[ARX] [AR], SKIP DPO,
;(1) LENGTH EXHAUSTED
J/MOVST2
SEE IF FILL IS NEEDED
=100
[AR] -WORK[SLEN),
; (4) ABORT
J/MVABT
STATE [SRC+DST].
~(5) NORMAL--STORE DST BYTE
CALL TpUTDST]
=111
MOVLPO: STATE [SRC), J/MOVELP
; (7) DPB DONE
;HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE
MVABT:

[BR] AC[DLEN],
SKIP-DPO, 4T

=0
MVABT1: AC[DLEN) [AR], J/MVABT2
[AR] [ART-[BR],
J/MVABTl
MVABT2:
=0
MV~ND:

fAR] .NOT.WORK[SLEN]
READ-[BR], SKIP DPO
[AR] [AR]+[BR]
,
[AR] [AR].OR;[BRX]
END STATE, J/STAC

;WHICH STRING IS LONGER
PUT AWAY DEST LEN
DEST LEN WAS GREATER
STICK BACK IN AC
GET UNOECREMENTED SLEN
NEED TO FIXUP SRC?
SRC LONGER BY (DLEN)
PUT BACK SRC FLAGS
ALL DONE

~

r,

j
T 10K l . MeR [ 10, 1 14 1 ]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 0650, 3310,3771,0003,1276,6007,0701,0000,0000,1441
U 0651, 2301,3771.0013,'4370,4007,0700,0010,0000,0006
U 0653, 3322,0551,0704,7274,4007,0701,0000,0000,0242
U 3310, 2112,3440,0303,1174,4007,0670,0400,0000,1441
U 2112, 3313,3333,0003,7174,4007,0700,0400,0000,0211
rrupt.
U 2113, 2114,1111,0704,4174,4007,0521,4000,0000,0000
U 2114, 0750,3770,0305,4334,4016,7371,0000,0033,6000
U 2115, 0546,4223,0000,1174,4007,0700,0400,0000; 1443
U 0750, 3310,3441,0503,4174,4007,0700,0000,0000,0000
U 0751, 3311,7771,0003,7274,4007,0701,0000,0000,0242
U 0752, 3312,3770,0503,4334,4017,0700,0000,0032,6000
U 0753, 3311,7771,0003,7274,4007,0701,0000,0000, 024?_
U 3311, 2116,3440,0303,1174,4007,0700,0400,0000,1443
U 2116, 3677,0111,0403,4174,4007,0700,0010,0000,0000
U 2117. 3733,3113,0306,0174,4007,0700,0400,0000,0000
U 3312, 3310,0111,0703,4170,4007,0700,0000,0000,0000
U
U
U
U
U
U
U

3313,
3314,
3315,
2120,
2122,
3316,
3317,

3314,3333,0005,7174,4007,0700,0400,0000,0213
3315,3333,0004,7174,4007,0700,0400,0000,0212
2120,3333,0006,7174,4007,0700,0400,0000,0214
3573,4443,0000,4174,4007,0700,0010,0000,0000
3316,3771,0003,7274,4007,0701,0000,0000,0211
3317,3771,0005,7274,4007,0701,0000,0000,0213
3320,3771,0004,7274,4007,0701,0000,0000,0212

U 3320, 3310,3771,0006,7274,4007,0701,0000,0000,0214

6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
6066

KS10 MICROCODE V124, 27-JUL-84 Page 164
EXTENO -- MOVE STRING --·MOVSRJ
.TOC
=00
MOVRJ:
= 11

"EXTEND -- MOVE STRING
[ARJ AC[SRCPJ, J/MVSKP
STATE [DSTF],
CALL [MOVFIL]
[ARX} WORK[SLEN]+l,
J/MOVST1

MOVSRJ"
;SRC LONGER, SKIP OVER SOME
;DST LONGER, FILL IT
;DONE FILLING
;GO MOVE STRING

;HERE TO SKIP OVER EXTRA SOURCE BYTES
MVSKP:
AC[SRCP] [AR], SKIP -lMS ;[121J Is there a timer interrupt?
=0
WORK[SV.ARJ [AR], J/MVSK2 ;[121J[123J Yes, save regs for int

=0

[ARXJ [ARXJ-l, 3T.
SKIP OPO
IBP DP, ;BP SCAD~
SCAD DISP. SKIP IRPT,
3T, J/MlfSKPl
AC[DLENJO,
J/MOVST4-

=00
MVSKP 1: I AR J [BR J, J/MVSKP
[AR]-.NOT.WORK[SLEN),
J/MVSK3
SET P TO 36-S,
J/~1VS~(P2

MlfSK3:
=0

[ARJ .NOT.WORK[SLEN]
AC[DLEN] [AR]
[ARJ [AR]+[ARXJ,
CALL-[INCAR]
AC [ARJ.OR.[BRXJ,
J/ITRAP

;DONE SKIPPING?
;NO--START THE IBP
;4-WAY DISPATCH
;GO BUMP POINTER
;LENGTHS ARE NOW EQUAL
;GO MOVE STRING
/

;NO OVERFLOW,
; INTERRUPT
;WORD OVERFLOW
;FIX,UP Y
;[121J INTERRUPT or timer.
;RESET OLEN
;ADD 1 TO AR
;PUT BACK FLAGS
;00 INTERRUPT TRAP

MVSKP2:

[AR] [AR]+1, HOLD LEFT, ;BUMP Y
J/MVSKP
;KEEP GOING

MVSK2:

WORK [SV . BR] [BR J
WORK[SV.ARX] [ARX]
WORK[SV.BRXJ-[BRX)
CALL [TICK]
[ARJ WORK[SV.AR]
[BR]-WORK[SV.BR]
[ARX] WORK[SV.ARXJ
[BRXJ-WORK[SV.BRX),
J/MVSKP

=0*

;BEGIN EDIT [123]
;SAVE ALL
;THE REGISTERS
; FOR THE TICK
;UPDATE CLOCK AND SET INTERUPT
;NOW PUT
;THEM ALL
;BACK SO WE
;CAN CONTINUE
; END EDIT [123J

,I

Tl0KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 3321, 3322,0111,0704,4174,4007,0700,0000,0000,0000
U 3322, 0540,3771,0013,4370,4007,0700,0000,0000,0003
U 0540, 2312,3333,0004,7174,4007.,0520,0410,0000,0242
U 0541, 1020,3441,0304,4174,4007,0520,0000,0000,0000
U 0542, 3464,3771,0013,4370,4007,0700,0010,0000,0005
U 0546, 3322,0551,0704,7274,4007,0701,0000,0000,0242
U 1020, 3323,4223,0000,1174,4007,0700,0400,0000,1443
U 1021, 2301,3771,0013,4370,4007,0700,0010,0000,0004
U 1023, 2161,3440,0606,0174,4007,0700,0400,0000,0000
U 3323, 3324,3113,0406,0174,4007,0700,0400,0000,0000
U 3324, 0252,4221,0013,4170,4007,0700,0000,0000,0000

6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090

KS10 MICROCODE V124, 27-JUL-84 Page 165
EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP
.Toe

"EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP"

;HERE FOR NO-MODIFICATION STRING MOVES
MOVSTO: [ARX] [ARX]+l
;CANT DO [ARX] [AR]+l
MOVST1: STATE-[SRC]
;PREPARE FOR PAGE FAIL
=000
WORK[SLEN] [ARX],
;GO GET A SOURCE BYTE
SKIP DPO, CALL [GSRC]
MOVSTX: [ARX] [AR],
;SHORT STRING RAN OUT
SKIP OPO, J/MOVST2
;GO SEE IF FILL NEEDED
=010
STATE [SRC+DST],
;WILL NEED TO BACK UP BOTH POINTERS
CALL [PUTDST]
;STORE BYTE
= 110
MOVST4: [ARX] WORK[SLEN]+l,
;COUNT DOWN LENGTH
J/MOVST1
;LOOP OVER STRING
=00
MOVST2: AC[DLEN] 0, J!MOVST3
;CLEAR DEST LEN, REBUILD SRC
STATE [DST], CALL [MOVFIL] ;FILL OUT DEST
=11
AC_[BRX], J/ENDSKP
;ALL DONE
MOVST3: AC [ARX].OR.[BRX]
END STATE, J/SKIPE

;REBUILD SRC

..

~,

T10KL\::I[10.11411
EXTEND.MIC[10,1141]

U 3740,
U 2121,
U 2125,

U 2123,
U 2127,
U 2130,
U 2131,
U 2132.

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

2121,3771,0004,1276,6007,0701,0000,0000,1443
3556,4553,0400,4374,4007,0321,0010,0077,7000
2123,3771,0006,0276,6007,0700,0000,0000,0000
3556,4553,0600,4374,4007,0321,0010,0077,7000
2130,2113,0604,4174,4007,0521,4000,0000,0000
2131,0111,0703,4174,4007,0700,0000,0000,0000
2132.0111,0703,4170,4007,0700,0200,0004,0012
3675,4221,'0003,4174,4007,0700,0010,0000,0000

U 2133, 3334.3223.0000,7174,4007.0700,0400,0000,0244

6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106

KS.v/MICROCODE V124, 27-JUL-84
EXTEND -- COMPARE STRING
.TOC
3740:
CMS:
=0**
=0**
=0
=0

Page 166

"EXTEND -- COMPARE STRING"
[ARX] AC[DLEN]
;GET DEST LEN
TL [ARX], #/777000, CALL [BITCHK]
;GET SRC LEN
[BRX] AC
TL [BRX], #/777000, CALL [BITCHK]
[BRX]-[ARX], 3T, SKIP DPO ;WHICH STRING IS LONGER?
[AR] [AR]+1
;SRC STRING IS LONGER
VMA [AR]+1, START READ ;DST STRING
[AR] 0,
;FORCE FIRST COMPARE TO BE
; EQUAL
CALL [LOADQ]
;PUT FILL INTO Q
;SAVE FILLER
WORK[FILL] Q,
;ENTER LOOP
J/CMS2

T10KL.MCR[10,1141]
EXTENO.MIC[10,l141]

15:34 27-JULY-1984
1i:3526-JULY-1984

MICRO 31(254)

U 2134, 0250,4221,0013,4170,4003.7700,0000,0000,0000
U 2135, 3325,3771,0003,1276,6007,0701,0000,0000,1441
U 3325, 1030,3333,0006,4.174,4007,0520,0000,0000,0000
U 1030, 2313,3771,0013,4370,4007,0700,0010,0000,0011
U 1031, 2136,3333,0004,4174,4007,0520,0000,0000,0000
U 1032, 3326,3333,0003,7174,4007,0700,0400,0000,0245
U 3326, 3327,3440,0606,0174,4007,0700,0400,0000,0000
U 3327, 3330,3771,0013,4370,4007,0700,0000,0000,0010
U 3330, 1050,3333,0004,4174,4007,0520,0000,0000,0000
U 1050, 2140,4443,0000,4174,4007,0700,0010,0000,0000
U 1051, 3331,3771,0003,7274,4007,0701,0000,0000,0244
U 1052, 3331,3440,0404,1174,4007,0700,0400,0000,1443

U 3331, 3332,4111,1203,7174,4007,0700,0000,0000,0245
U 3332, 3333,4551,1205,7274,4007,0700,0000,0000,0245
U
U
U
U

3333,
3334,
3335,
3336,

3334,2111,0503,4174,4007,0700,4000,0000,0000
3335,1111,0704,4174,4007,0700,4000,0000,0000
3336,1111,0706,4174,4007,0700,4000,0000,0000
2134,3333,0003,4174,4007,0621,0000,0000,0000

U 2136, 3337,3772,0000,7274,4007,0701,0000,0000,0244
U 2137, 2134,4221,0003,4174,4007,0700,0000,0000,0000
U 3337, 3340,3771,0013,4370,4007,0700,0000,0000,0012
U 3340, 1050,3223,0000,7174,4007,0700,0400,0000,0245

U 2140, 3465,3771,0003,1276,6007,0701,0010,0000,1444
U 2141, 0340,3333,0003,4174,4006,5701,1000,0051,0770

6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- COMPARE STRING

Page 167

;HERE IS THE COMPARE LOOP.
; ARX/ CONATINS REMAINING DEST LENGTH
; BRX/ CONTAINS REMAINING SOURCE LENGTH
=0
CMS3:
;BYTES ARE NOT EQUAL
END STATE,
;NO MORE SPECIAL PAGE FAIL ACTION
;SEE SKIP-COMP-TABLE
SKIP-COMP DISP
CMS4:
[AR] AC[SRCP]
;GET BYTE POINTER
READ-[BRX], SKIP DPO
;MORE IN SOURCE STRING?
=00
STATE [EDIT-SRC],
;PREPARE FOR PAGE FAIL
; GO GET BYTE
CALL TGETSRC]
READ [ARX], SKIP DPO,
;NO MORE SRC--SEE IF MORE DEST
J/CMS5
;SAVE SRC BYTE
WORK[CMS] [AR]

=00
CMS6:

CMS7:

CMS2:

=0
CMS5:
CMS8:
=0
CMPDST:

AC [BRX]
STATE [COMP-DST]
READ TARX] , SKIP OPO

;PUT BACK SRC LEN
;HAVE TO BACK UP IF DST FAILS
;ANY MDRE DEST?

CALL [CMPDST]
[AR)' WORK[FILL],
J/CMS7
.
AC[DLENj [ARX]

;MORE DEST BYTES
;OUT OF DEST BYTES
;GO DO COMPARE
;GOT A BYTE, UPDATE LENGTH

[AR] [ARJ.ANO.[MASK],
;MAKE MAGNITUDES
WORKTCMS]
;WARM UP RAM
[BR] [MASK].AND.WORK[CMS], 2T ;GET SRC MAGNITUDE
[AR] [BR]-[AR] REV
;UNSIGNED COMPARE
[ARX] [ARX]-l
;UPDATE LENGTHS
[BRX] [BRX]-l
READ TAR], SKIP AO.EQ.O,' JiCMS3 ;SEE IF EQUAL
Q WORK[FILL),

J/CMS8
[AR] 0, J/CMS3
STATE [EDIT-OST]
WORK[CMS)_Q, J/CMS6

;MORE OST--GET SRC FILL
;STRINGS ARE EQUAL
;JUST DST POINTER ON PAGE FAIL
;MORE DST--SAVE SRC FILL

[AR] AC[DSTP],
CALL-ClOST]
READ [AR],
FE FE.ANO.S#, S#/0770,
BYTE OISP, J/LOB1

;GET DEST POINTER
;UPDATE IT
;LOOK AT BYTE POINTER
;MASK OUT BIT 6
;GO LOAD BYTE

/

(

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11 :35 26-JULY-1984

MICRO 31(254)

!

U 3742,
U 3341,

3341,4571,1203,4374,4007,0700,0000,0077,7777
3342,3333,0003,7174,4007,0700,0400,0000,0243

U 3342,

3343,3771,0003,0276,6007,0700,0000,0000,0000

U 3343,

2124,4521,0306,4374,4007,0700,0000,0077,7000

U 2124, 2236,3771,0004,1276,6007,0701,0010,0000,1444
2142,3440,0404,1174,4007,0700,0400,0000,1444

U 2126,

U 2142, 2166,3333,0006,4174,4007,0520,0010,0000,0000
U 2143, 0616,4551,0303,4374,0003,7700,0000,0000,0777
U 0616, 3344,3771,0013,4370,4007,0700,0000,0000,0007
U 0617, 0616,3551,0606,4374,0007,0700,0000,0040,0000
U 3344, 0460,7333,0003,7174,4007,0700,0400,0000,0242

U 0460,

1114,0551,0703,7274,4007,0701,0010,0000,0242

U 0461, 2154,4553,0600,4374,4007,0321,0000,0010,0000
U 0464, 3351,7771,0003,7274,4007,0701,0000,0000,0242
U 0465, 2144,1553,0300,4374,4007,0532,4000,0000,0012
U 2144,

3351,7771,0003,7274,4007,0701,0000,0000,0242

13152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187

KS10 MICROCODE V124, 27-JUL-84 Page 168
EXTEND -- DECIMAL TO BINARY CONVERSION
.TOC
3742:
DBIN:

=0

=1110
DBIN1:
DBIN2:

"EXTEND -- DECIMAL TO BINARY CONVERSION"
[AR] [777777] XWD 0
WORKTMSK] [AR]

;IF WE ARE IN OFFSET MODE
; ONLY ALLOW 18 BITS
;RANGE CHECKED (0-10) LATER
[AR] AC
;GET SRC LENGTH
[BRX] [AR].AND.# CLR RH, ;SPLIT OUT FLAGS
#/777000
[ARX] AC[BIN1],
;GET LOW WORcl
CALL [CLARXO]
;CLEAR BIT 0 OF ARX
AC[BIN1] [ARX]
;5TORE BACK
READ [BRX], SKIP DPO,
;15 5 ALREADY SET?
CALL [CLRBIN]
;GO CLEAR BIN IF NOT
[AR] [AR].AND.#,
;CLEAR FLAGS FROM LENGTH
#/000777, HOLD RIGHT,
B DISP
;SEE IF OFFSET OR TRANSLATE
STATE [CVTDB], J/DBIN2
[BRX]-[BRX].OR.#,
#/400000, HOLD RIGHT,
d/DBIN1
WORK[SLEN] .NOT.[AR]

;TRANSLATE--LEAVE 5 ALONE
;OFFSET--FORCE 5 TO 1
;STORE -SLEN-1

;HERE IS THE MAIN LOOP
=0*0

DBINLP: [AR] WORK[SLEN]+1, CALL
TL [BRX], #/100000,
d/DBXIT
[AR] .NOT ,WORK[SLEN],
J/DBABT
[AR]-#, #/10.,
4T, SKIP DP18
=0
[AR] ,NOT.WORK[SLEN],
J/DBABT

[SRCMOD] ; (0) GET MODIFIED SRC BYTE
;(1) DONE, IS M SET?
;(4) ABORT
; (5) NORMAL--SEE IF 0-9
;DIGIT TOO BIG
;GO ABORT CVT

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JU~Y-1984
11:35 26-JULY-1984

MICRO 31(254)

U 2145, 1074,3771,0005,1276,6007,0622,0000,0000,1443
U 1074, 0560,3771,0004.1276,6007,0701,0010,0000,1444
U 1075, 3345,3771,0005,1276,6007,0701,0000,0000,1444
U 1076, 0460,4443,0000,4174,4007,0700,0000,0000,0000
U
U
U
U

3345,
2146,
2147,
3346,

2146,4553,0500,4374,4007,0321,0000,0076,0000
1074,4443,0000,4174,4007,0700,0000,0000,0000
3346,3775,0005,1276,6007,0701,0000,0000,1444
2150,3445,0505,1174,4007,0700,0000,0000,1444

U 2150, 3700,0551,0505,1274,4007,0700,0010,0000,1444
U 2151, 0460,0113,0305,1174.4007,0701,0400.0000.1444

6188
6189
6190
6191
6192
6193
6194
6195
6196
.6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207

KS10 MICROCODE V124, 27-JUL-84 Page 169
EXTEND -- DECIMAL TO BINARY CONVERSION
;HERE TO ADD IN A DIGIT
[BR] AC[BINO], 4T,
SKIP-AD.EQ.O
=00
DBSLO:
[ARX] AC[BIN1],
CALL TDBSLOWl
[BR] AC[BIN1],
J/DBFAST
J/DBINLP
DBFAST: TL [BR], #/760000
=0
J/DBSLO
[BR) AC[BIN1]*2
[BR]-[BR]*2, AC[BIN1]
=0
[BRj-[BRj+AC[BIN1]' 2T,
CAll-[SBRlj
AC[BIN1] [AR]+[BR], 3T.
J/DBINLP-

;GET HIGH BINARY
; SEE I F SMALL
;TOO BIG
;GO USE DOUBLE PRECISION PATHS
; GET LOW WORD
;MIGHT FIT IN 1 WORD
;RETURN FROM DBSLOW
;GO DO NEXT DIGIT
;WILL RESULT FIT IN 36 BITS?
;MAY NOT FIT--USE DOUBLE WORD
;COMPUTE AC*2
;COMPUTE AC*4
;COMPUTE AC*5
;COMPUTE AC*10
;NEW BINARY RESULT
;00 NEXT DIGIT

(j

T10KL:, .. cR[ 10,1141 J
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 0560, 0620,3771,0005, 1276,6007.0701,0010.0000, 1443
U 0561, 2152,0551,0404,1274,4007,0562,0010,0000,1444
U 0565, 0600,0551,0505, 1274,4007,0701,0000,0000,.1443
U 0600, 0621,4443,0000,4174,4007,0700,0010,0000,0000
U 0601, 2152,0111,0304,4174,4007,0561,0010,0000,0000
U 0605, 3347,3440,0404,1174,4007.0700,0400,0000,1444
U 3347, 0002,3440,0505,1174,4004,1700,0400,0000,1443

U 0620, 0621,4443,0000,4174,4007,0700,0010,0000,0000
U 0621, 0622,0111,0505,4174,4007,0700,0000.0000,0000

U 0622, 2152,0111,0404,4174,4007,0561,0010,0000,0000
U 0626, 0001,4443,0000,4174,4004,1700,0000,0000,0000

U 2152, 0004,4443,0000,4174,4004,1700,0000.0000,0000
U 2153, 3350,4551,0404,4374,0007,0700,0000,0037,7777
U 3350, 0004,0111,0705,4174.4004,1700,0000,0000,0000

6208
6209
6210
6211
6212
6213
6214
6215
62.16
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244

MICROCODE V124, 27-JUL-84 Page 170
EXTEND -- DECIMAL TO BINARY CONVERSION

K~.

;HERE IF .NUMBER DOES NOT FIT IN ONE WORO
=000
DBSLO\v:

=101
=000

= 101

[BR] AC[BINO],
CALL-[MULBY4]
[ARX] [ARX]+AC[BIN1],
SKIP CRY1. 4T,
CALL [ADDCRY]
[BR] [BR]+AC[BINO]

;FETCH HIGH WORD
;MULTIPLY BY 4
;COMPUTE VALUE * 5
;SEE IF OVERFLOW
;GO ADD CARRY
;ADD IN HIGH WORD

CALL [DBLDBL]
[ARX] [ARX]+[AR], 3T.
SKIPCRY1,
CALL [ADDCRY]
AC[BIN1] [ARX]

;MAKE * 10
;ADD IN NEW DIGIT
;SEE IF OVERFLOW
;ADD IN THE CARRY
;PUT BACK ANSWER

AC[BINO] [BR],
RETURN C2']

;GO DO NEXT BYTE

;HERE TO DOUBLE BR!ARX
=000
MULBY4: CALL [DBLDBL]
OBLDBL: [BR] [BR]+[BR]

=110

[ARX] [ARX]+[ARX),
SKIP CRY1, 3T,
CALL [AODCRY]
RETU~N [1]

;HERE TO ADD THE CARRY
=0
ADDCRY: RETURN [4)
CLEAR [ARX]O
[BR] [BR]+1,
RETURN [4]

;DOUBLE TWICE
;DOUBLE HIGH WORD FIRST
;(SO WE DON'T DOUBLE CARRY)
;DOUBLE LOW WORD
;SEE IF CARRY
;ADD IN CARRY
;ALL DONE

NO CARRY
KEEP LOW WORD POSITIVE
ADD CARRY
ALL DONE

Tl0KL.MCR[10,l141]
EXTEND.MIC[ 10,1141]

15:34 27-JULY-1984
11 :35 26-JULY-1984

MICRO 31(254)

U 3351, 3352,3111,0306,4174,4007,0700,0000,0000,0000
U 3352, 2155,1111,0701,4170,4007,0700,4000,0000,0000

U 2154, 3355,3771,0004,1276,6007,0701,0000,0000,1444
U 2155, 3353,3771,0003,1276,6007,0701,0000,0000,1444
U
U
U
U

3353,
2156,
2157,
3354,

2156,3771,0005,1276,6007,0522,0000,0000,1443
3354,4551,0303,4374,0007,0700,0000,0037,7777
3354,3551,0303,4374,0007,0700,0000,0040,0000
2160,3440,0303,1174,4007,0700,0400,0000,1444

U 2160, 2166,3770,0606,0174,4007,0520,0410,0000,0000
U 2161, 0260,4221,0013,4170,4007,0700,0000,0000,0000
U 3355, 3356,4551,0404,4374,0007,0700,0000,0037,7777
U 3356, 2162,2441,0404,1174,4007,0621,4000,0000,1443
U 2162, 2165,7771,0003,1274,4007,0700,0000,0000,1443
U 2163, 2164,1771,0003,1274,4007,0621,4000,0000,1443
U 2164, 2165,4571,1204,4374,4007,0700,0000,0040,0000
U 2165, 3357,3440,0303,1174,4007,0700,0400,0000,1443
U 3357, 2155,3440,0404,1174,4007,0700,0400,0000,1444

U 2166,3360,4223,0000,1174,4007,0700,0400,0000,1443
U 2167, 0001.4443.0000,4174.4004,1700,0000,0000,0000
U 3360, 0001.4223.0000.1174.4004,1700,0400,0000,1444

6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283

KS10 MICROCODE V124, 27-JUL-84 Page 171
EXTEND -- DECIMAL TO BINARY CONVERSION
;HERE TO ABORT CONVERSION
DBABT:
[BRX] [BRX].OR.[AR]
[PC] TpC]-1, HOLD "LEFT,
J/DBDONE

;PUT BACK UNUSED LENGTH
;DO NOT SKIP
;GO FIX UP SIGN COPY

;HERE AT END
=0
DBXIT :
[ARX] AC[BIN1],
;GET LOW WORD
J/DBNEG
;GO NEGATE
DBDONE: [AR] AC[BIN1]
;FETCH LOW WORD
[BR]-AC[BINO], 4T,
;GET HIGH WORD
SKIP-DPO
;WHAT SIGN
=0
CLEAR [AR]O, J/DBDN1
;POSITIVE
[AR] [AR].OR.#, #/400000, HOLD RIGHT
DBDN1:
AC[BIN1] [AR]
;STORE AC BACK
AC [BRX]-TEST,
;RETURN FLAGS
=0
SKIP DPO, CALL [CLRBIN] ;CLEAR BIN IS S=O
ENDSKP: END STATE, J/SKIP
;NO--ALL DONE
DBNEG:

CLEAR ARXO
;CLEAR EXTRA SIGN BIT
[ARX) -[ARX], 3T,
;NEGATE AND SEE IF
SKIP AD.EQ.O, AC[BINO]
, ANY CARRY
=0
[AR] .NOT.AC[BINO], 2T, J/STAC34 ;NO CARRY
[AR]--AC[BINO],3T,
;CARRY
SK I P - AD . E Q • 0
;SEE IF ALL ZERO
=0
[ARX] [400000] XWD 0
;MAKE COpy OF SIGN
; UNLESS HIGH WORD IS ZERO
STAC34: AC[BINO] [AR]
;PUT BACK ANSWER
AC[BIN1] [ARX], J/DBDONE
, ..

;HELPER SUBROUTINE TO CLEAR AC[BINO] AND AC[BIN1] IF S=O
;CALL WITH:
,
READ [BRX], SKIP DPO, CALL [CLRBIN]
;RETURNS 1 ALWAYS
=0
CLRBIN: AC[BINO] 0, J/CLRBl
RETURN [1]
CLRB1:
AC[BIN1]_0, RETURN [1]

,~.

~
,

/

Tl0KL.MCR[10,l141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 3743,2170,3771,0006,1276,6007,035'1,0000,0000,1443
U
U
U
U

2170,
2171,
3361,
3362,

3361,4551,0606,4374,4007,0700,0000,0077,7000
3377,3771,0003,0276,6007,0700,0000,0000,0000
3362,3771,0004,1276,6007,0701,0000,0000,1441
2174,3771,0003,0276,6007,0700,2000;0071,0024

U 2174, 2236,3333,0004,7174,4007,0700,0410,0000,0250
U 2176, 2172,3333,0003,7174,4007,0520,0400,0000,0247
U 2172, 2202,4221,0006,4170,4007,0700,0000,0000,0000
U 2173, 2175,3551,0606,4374,0007,0700,0000,0010,0000
U 2175, 3064,4551,0404,4374,0007,0700,0010,0037,7777
U 2177, 2200,3770,0303,0174,4007,0520,0400,0000,0000
U 2200, 2172,3440,0404,1174,4007,0700,0400,0000,1441
U 2201, 3363,0111,0704,4174,4007.0700,0000,0000,0000
U 3363, 2175,3551,0606,4374,0007,0700,0000,0004,0000
U 2202, 0441,3771,0003,0276,6007,0700,0000,0000.0000
U 2203, 2206.3551,0606,4374,0007.0700,0000,0020.0000
U 0441, 2226,3771,0004,1276,6007,0701,0010,0000,1441
U 0443, 2202,0111,0706,4174,4007,0630,2000.,0060,0000
U 0447, 2204,4553,0600,4374,4007,0331,0000,0077,7777

U 2204, 2206,3551,0606,4374,0007,0700,0000,0020,0000
U 2205, 2206,0111,0706,4174,4007,0700,0000,0000,0000

6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
.6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6830

KS10 MICROCODE V124, 27-JUL-84 Page 172
EXTEND -- BINARY TO DECIMAL CONVERSION
.TOe
3743:
BDEC:
=0
DOCVT:
BDECO:
=0*

=0
BDEC 1 :

=0*
BDEC2:

=0

=0
BDEC3:

=001
BDEC4:
=011
=111
=0

"EXTEND -- BINARY TO DECIMAL CONVERSION"
[BRX] AC[DLEN],
SKIP FPD
[BRX] [BRX].AND.#,

;GET LENGTH AND FLAGS
;CONTINUE FROM INTERUPT?
;JUST KEEP THE FLAGS

J/BDECO
[AR] AC, J/DOCVT1
[ARX] AC[ 1]
[AR] AC, SC 20.
WORKTBDL] [ARX],
CALL [CLARXO]
WORK[BDH] [AR],
SKIP DPO

;COMPUTE NEW FLAGS
;ALL SET PRIOR TO TRAP
;GET LOW BINARY
;GET HIGH WORD, SET STEP COUNT
;SAVE IN CASE OF ABORT
;MAKE SURE BIT 0 IS OFF
;SAVE HIGH WORD AND
; TEST SIGN

[BRX] 0, HOLD LEFT,
J/BDEC3
[BRX] [BRX] .OR.#,
#/100000, HOLD RIGHT

;POSITIVE, CLEAR RH OF BRX
;COMPUTE # OF DIGITS REQUIRED
;NEGATIVE, SET M

#/77iooo,

CLEAR ARXO, CALL [DBLNG1] ;NEGATE AR!ARX
AC [AR] TEST,
;PUT BACK ANSWER
SKIP DPO
;IF STILL MINUS WE HAVE
lBO, AND NO OTHER BITS
AC [ 1] [ARX], J/BDEC 1
; POSITIVE NOW
[ARX]-[ARX]+1
;JUST 1BO--ADD 1
[BRX]-[BRX].OR.#,
;AND REMEMBER THAT WE DID
#/040000, HOLD RIGHT,
; IN LEFT HALF OF AC+3
J/BDEC2
; NEGATE IT AGAIN
[AR] AC, J/BDEC4
[BRX] [BRX].OR.#,
#/200000,
HOLD RIGHT, J/BDEC5

; GET HIGH AC
;NO LARGER POWER OF 10 FITS
;SET N FLAG (CLEARLY NOT 0)
;SETUP TO FILL, ETC.

[ARX] AC[l],
CALL TBDSUB]
[BRX] [BRX]+1,
;NUMBER
STEP SC, J/BDEC3
TR [BRX], #/777777

;GET HIGH WORD
;SEE IF 10**C(BRX) FITS
FITS--TRY A LARGER ONE
;UNLESS WE ARE OUT OF NUMBERS
;ANY DIGITS REQUIRED?

[BRX] [BRX].OR.#,
#/200000, HOLD RIGHT,
J/BDEC5
[BRX] [BRX]+1

SOME DIGITS NEEDED,
SET N FLAG
CONTINUE BELOW
ZERO--FORCE AT LEAST 1 DIGIT

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 2206, 3474,3771,0003,1276,6007,0701,0010,0000,1443
U 2207, 3364,4221,0005,4174,4007,0700,0000,0000,0000
U 3364, 3365,3441,0605,4170,4007,0700,0000,0000,0000
U 3365, 2210.1111.0305,4174,4007,0421,4000,0000,0000
U 2210. 3407.3771,0004,7274,4007,0701,0000,0000,0250
U 2211, 2212.3333,0006.4174,4007;Ci520,ooOO,OOOO,OOOO
U 2212, 2171,3440,0606,1174,4007,0700,0400,0000,1443

U 2213. 3366,3441.0603,4174.0007.0700,0000,0000,0000
U 3366. 3367,3440,0303.1174,4007,0700,0400;0000,1443
U 3367. 3370.3771.0003.7274,4007,0701.0000,0000,0240
U
U
U
U

3370.
3371,
3372.
3373,
U 3374,

3371,0111,0703,4174,4007,0700,0200,0004,0012
3372,3771,0016,4365,5007,0700,0200,0000,0002
3373,3771,0013.4370,4007,0700,0000,0000,0012
3374,2113,0507,7174,4007,0701,4400,0000,0242
3375,3441,1603.7174,4007,0700,0000,0000,0242

U 3375, 0640,0551,0705.7274,4007,0521.,0000,0000,0242
U 0640, 2171.3440,0606,1174,4007,0700,Ci400,0000,1443
U 0641. 3464.3333,0005.7174,4007,0700,0410;0000.0242
U 0647. 33.76.2551.0705,1274.4007,0701.4000.0000,1443

U 3376. 3374,3440,0505. 1174,4007.0700,0400.0000, 1443

6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
; 6341
6342
6343
6344
6345
6346
6347
6348
'6349
; 6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364

KS10 MICROCODE V124,. 27-JUL-84 Page 173
EXTEND -- BINARY TO DECIMAL CONVERSION
=0
BOEC5:

=0
=0

[AR] AC[DLEN].
CALL-[CLRFLG]
[BR] 0
[BR]-[BRX], HOLD LEFT
(BR]-[BR]-[AR) •
SKIP-AD.LE.O
[ARX] WORK[BDL].
J/BDABT
READ [BRX), SKIP DPO
AC[DLEN) [BRX).
J/DOCVT

;HERE TO STORE LEADING FILLERS
[AR] [BRX], HOLD RIGHT
AC[DLEN] [AR]
[AR] WORK[EO]
[AR]-[AR]+1. LOAD VMA.
START READ
MEM READ. [TO] MEM
STATE [EDIT-DST]
WORK[SLEN] [BR]-l, 3T
BDFILL: [AR]_[TO],-WORK{SLEN)

=000
=001

=111

[BR] WORK[SLEN]+1. 3T.
SKIP-DPO
AC{DLEN] [BRX]. J/DOCVT
WORK[SLEN] [BR].
CALL [PUTOST]
[BR]_AC[DLEN)-1

;GET LENGTH
;REMOVE FLAGS FROM AR
;GET # OF DIGITS NEEDED
;NUMBER OF FILLS NEEDED
;SEE IF ENOUGH ROOM
;DOES NOT FIT IN SPACE ALLOWED
DO NOT DO CONVERT
;IS L ALREADY SET
;NO--NO FILLERS
;GO CHURN OUT THE NUMBER

;MAKE SURE THE FLAGS GET SET
BEFORE WE PAGE FAIL
;ADDRESS OF FILL (-1)
;FETCH FIL'I..,ER
;GET FILLER INTO AR
;PAGE FAILS BACKUP DST
;SAVE # OF FILLERS
;RESTORE FILL BYTE AND
, WARM UP RAM FILE
;MORE FILLERS NEEDED?
;ALL DONE FIX FLAGS AND CONVERT
;SAVE UPDATED LENGTH
, AND STORE FILLER
;COUNT DOWN STRING LENGTH

AC[DLEN] [BR], 0/BDFILL ;KEEP FILLING

r\

I

\

,

j

/

~
\. /

T 10K L . ,.,eR [ 10, 1 14 1 ]
EXTEND.MIC[10,1141]

~!
15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 3377 , 3406,3771 ,0004, 1276·,6007,0701 ,0000,0000, 1441
U 0562, 2226,0111,0705,4174,4007,0700,0010,0000,0000
U 0566, 3400,3333,0003,7174,4007,0700,0400,0000,0247
U 3400, 0636,0551,0503,7274,4003,7701,0000,0000,0241
U
U
U
U
U
U
U
U
U
U
U
U
U
U

U
U
U
U
U
U

0636,
0637,
0510,
Q516,
3401,
3402,
3403,
2214,
2215,
3404,
3405,
3406,
2216,
2217,

2220,3333,0003,4174,4007,0700,0200,0004,0012
0510,3333,0004,7174,4007,0700,0400,0000,0250
3464,3771,0013,4370,4007,0700,0010,0000,0012
3401,2551,0705,1274,4007,0701,4000,0000,1443
3402,3771,0003,7274,4007,0701,0000,0000,0247
3403,3771,0004,7274,4007,0701,0000,0000,0250
2214,4553,0500,4374,4007,0321,0000,0004,0000
3410,0111,0704,4174,4007,0700,0000,0000,0000
3404,3440,0303,0174,4007,0700,0400,0000,0000
3405,3440,0404,1174,4007,0700,0400,0000,1441
3406,3440,0505,1174,4007,0700,0400,0000,1443
2216,1111,0706,4174,4007,0531,4000,0000,0000
0562,2441,0705,4174,4467,0701,4000,0003,0000
0260,4221,0013,4170,4467,0700,0000,0005,0000

2220,
2221,
2222,
2223,
2224,
2225,

3673,4221,0013,4170,4007,0700,0010,0000,0000
2222,4553,0600,4374,4007,0331,0000,0077,7777
0637,4221,0003,4174,0007,0700,0000,0000,0000
2224,4553,0600,4374,4007,0321,0000,0010,0000
2225,3770,0303,4344,4007,0700,0000,0000,0000
0637,4221,0003,4174,0007,0700,0000,0000,0000

U 3407,

1505,3771 ,0003,7274,4007,0701 ,OQOO, 0000, 0247

U 3410, 2215,5551,0505,4374,0007,0700,0000,0004,0000
I

I

6365
6366
6367
6368
6369
6370.
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398

K~,JMICROCODE

V124, 27-JUL-84 Page 174
EXTEND -- BINARY TO DECIMAL CONVERSION
;HERE TO STORE THE ANSWER

DOCVT 1: [ARX] AC [ 1 ] ,
J/DOCVT2
=010
BDECLP: [BR] [BR]+1,
CALL-[BDSUB)
=110
WORK[BDH] [AR]

;COUNT DIGITS
;KEEP SUBTRACTING 10**C(BRX)
;SAVE BINARY

[AR] [BR]+WORK[E11,
;OFFSET DIGIT
B DISP
;SEE WHICH MODE
= 1110
READ [AR], LOAD VMA,
;TRANSLATE, START READING TABLE
START READ, J/BDTBL
; GO GET ENTRY FROM TABLE
BDSET : WORK[BDL] [ARX]
;SAVE LOW BINARY
STATE [EDIT-DST), CALL [PUTDST]
=00*
[BR] AC[DLEN]-1
;UPDATE STRING LENGTH
= 1 1*
[AR)-WORK[BDH]
[ARX] WORK[BDL]
TL [BR], #/040000
;ARE WE CONVERTING 1BO?
=0
[ARX] [ARX]+1, J/BDCFLG ;YES--FIX THE NUMBER AND CLEAR FLAG
DOCVT3: AC [AR]
AC[1] [ARX]
AC[DLEN] [BR]
;STORE BACK NEW STRING LENGTH
DOCVT2: [BRX] [BRX]-1, 3T, SKIP DP18
=0
[BR] ~1, SET FPD, 3T, J/BDECLP
END STATE, CLR FPD, J/SKIP
;HERE TO TRANSLATE 1 DIGIT
=0
BDTBL:
END STATE,

=0

639~

6400
6401
6402
6403
6404
6405
6406
6407
6408

; GET LOW WORD
;ENTER LOOP FROM BOTTOM

=0
BDABT:

;DON'T CHANGE BYTE POINTER IF
; THIS PAGE FAILS
CALL [LOADAR)
;GO PUT WORD IN AR
TR [BRX), #/777777
; LAST DIGIT
[AR) 0, HOLD RIGHT, J/BDSET
TL [BRX], #/100000
;AND NEGATIVE
[AR) [AR] SWAP
;LAST AND MINUS, USE LH
[ARCO, HOLD RIGHT, J/BDSET
[AR]_WORK[BDH], J/DAC

BDCFLG: [BR) [BR].AND.NOT.#,
#/040000, HOLD RIGHT,
J/DOCVT3

CLEAR FLAG THAT TELLS US
TO SUBTRACT 1 AND
CONTINUE CONVERTING

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:35 26-JULY-1984

MICRO 31(254)

U 2226, 2230,0551,0616,4374,4007,0701,0000,0000,0344
U 2227, 2675,4443,0000,4174,4007,0700,0000.0000,0000
U 2230, 2236,3441,1617,4174,4007,0700,0210,0000,0010
U
U
U
U

2232,
2234,
2235,
3411,

2234,1551,0404,6274,4007,0561,4000,0000,0000
2235,1111,0703,4174,4007,0700,4000,0000,0000
3411,0551,0616,4374,4007,0701,0000,0000,0373
3412,3333,0016,4174,4007,0700,0200,0000,0010

U 3412, 2236, ;551,0303,6274,4007,0522,4000,0000,0000
U
U
U
U

2236,
2237,
3413,
3414,

0002,4551 ,0404,4374,0004, 1700,0000,0037,7777
3413,0551,0303,6274,4007,0700,0000,0000,0000
3414,3333,0017,4174,4007,0700,0200,0000,0010
2240,0551,0404,6274,4007,0561.,0000,0000,0000

U 2240, 0006,4551,0404,4374,0004,1700,0000,0037,7777
U 2241, 2240,0111,0703,4174,4007,0700,0000;0000,0000

6409
6410
6411
6412
6413
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437,
6433
6439
6440
6441

KS10 MICROCODE V124, 27-JUL-84 Page 175
EXTEND -- BINARY TO DECIMAL CONVERSION
;SUBROUTINE TO SUBRTACT A POWER OF 10 FROM AR!ARX
; CALL WITH:
AR!ARX/ NUMBER TO BE CONVERTED
;
BRX(RIGHT)/ POWER OF 10
;RETURNS:
2 RESULT IS STILL POSITIVE
6 RESULT WOULD HAVE BEEN NEGATIVE (RESTORE DONE)
=0
BDSUB:
[TO] [BRX]+#, 3T, WORK/DECLO, ;ADDRESS OF LOW WORD
J/BDSUB1
;NO INTERRUPT
J/FIXPC
; INTERRUPT
=0*
BDSUB1: [Tn [TO], LOAD VMA,
;PUT IN VMA,
CALL [CLARXO]
;FIX UP SIGN OF LOW WORD
[ARX] [ARX]-RAM, 3T,
;SUBTRACT
; SEE IF OVERFLOW
SKIP CRY 1
=0
[AR] [AR]-1
;PROCESS CARRY
[TO] [BRX]+#, 3T, WORK/DECHI ;ADORESS OF HIGH WORD
READ-LTO], LOAD VMA
;PLACE IN VMA
[AR] [AR]-RAM, 4T,
; SUBTRACT
SKIP-OPO
;SEE IF IT FIT
=0
CLARXO: CLEAR ARXO,
;IT FIT, KEEP LOW WORD +
RETURN [2]
; AND RETURN
[AR] [AR]+RAM
;RESTORE
READ-[T1), LOAD VMA
[ARX] [ARX]+RAM, 3T, SKIP CRY1
=0
BDSUB2: CLEAR ARXO,
KEEP LOW WORD +
RETURN [6]
RETURN OVERFLOW
[AR] [AR]+1,
ADD BACK THE CARRY
J/BDSUB2
COMPLETE SUBTRACT

r,

T 10K L . MeR [ 10, 1 14 1 ]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 3741, 3472,0111,0703,4170,4007,0700,0210,0004,0012
U 3751, 2242,3771,0006,0276,6007,0700,0000,0000,0000
U
U
U
U

2242,
2246,
3415,
3416,

3556,4553,0600,4374,4007,0321,0010,0004,7777
3415,3443,0600,4174,4007,0700,0200,0004,0012
3416,4221,0013,4170,4007,0700,0000,0000,0000
2244,3770,0605,4344,4007,0700,0000,0000,0000

U 2244, 3673.0115,0505,4174,4007,0700,0010.0000,0000
U 2245, 0654,3333,0005,4174,4003,1701,0000,0000,0000
U
U
U
U

0654, 2250,3770,0303,4344,4007,0700,2000,0071,0007
0655, 2251,3770,0303,4344,4007,0700,0000,0000,0000
0656, 2250,3447,0303,4174,4007,0700,2000,0071,0006
0657, 3417,4551,0303,4374,4007,0700,0000;0000,0777

U 2250, 2250,3447,0303,4174,4007,0630,2000,0060,0000
3417,4551,0303,4374,4007,0700,0000,0000,0777

U 2251,

6442
6443
6444
6445
6446
6447
6448
6449
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
646;3
6464
6465
6466
6467
6468
6469

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- EDIT -- MAIN LOOP
.TOC

Page 176

"EXTEND -- EDIT -- MAIN LOOP"

;HERE FOR EDIT INSTRUCTION
;CALL WITH:
AR/
EO
ADDRESS OF FILL, FLOAT, AND MESSAGE TABLE
BR/
E1
TRANSLATE TABLE
3741 :
EDIT :

VMA [AR)+l, START READ, ;FIRST GET FILL BYTE
CALL [GTFILL]
;GO GET IT
3751 :
[BRX] AC
;GET PATTERN POINTER
TL [BRX], #/047777,
;MAKE SURE SECTION 0
=0**
CALL [BITCHK]
EDITLP: VMA [BRX], START READ
;FETCH PATTERN WORD
END-STATE
;NO SPECIAL PAGE FAIL ACTION
;GET PBN IN BITS 20 & 21
[BR) [BRX) SWAP
=0
[BR] (BR]*4,
CALL [LOADAR]
;GET PATTERN WORD
READ [BR], 3T, DISP/DP LEFT
= 1100
(AR] [AR] SWAP, SC 7, J/MOVPAT
; (0) BITS 0-8
(AR]-[AR] SWAP, J/MSKPAT
;(1) BITS 9-17
[AR]-(AR]*.5, SC 6, J/MOVPAT
;(2) BITS 18-27
[AR]-(AR].AND.#,-#/777, J/EDISP ;(3) BITS 28-35
=0
MOVPAT: [AR] (AR]*.5, STEP SC, J/MOVPAT ;StjIFT OVER
MSKPAT: [AR]-[AR].AND.#, #/777

T10KL.MCR[10,1141]
EXTEND.MIC[ 10,1141}

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 3417, 2252,3447,0305,4174,4007,0700,2000,0071,0002
U 2252, 2252,3447,0505,4174,4007,0630,2000,0060,0000
U 2253, 0661,3333,0005,4174,4003.5701,0000,0000,0000
U 0661, 2254,1553,0300,4374,4007,0532,4000,0000,0005
U 0663, 2266,3333,0006,4174,4007,0520,0000,0000,0000
U 0665, 3437,4443,0000,4174,4007,0700,0000,0000,0000
U 0667, 3437,4443,0000,4174,4007,0700,0000,0000,0000
U 0671, 3437,4443,0000,4174,4007,0700,0000,0000,0000
U 0673, 2272,4553,0600,4374,4007,0321,0000,0010,0000
U 0675, 2272,4553,0600,4374,4007,0321,0000,0020,0000
U 0677, 2272,4443,0000,4174,4007,0700,0000,0000,0000

U 2254, 3437,4443,0000,4174,4007,0700,0000,0000,0000
U 2255, 0710,3333,0003,4174,4003,5701,0000,0000,0000
U 0710, 3420,0111,0701,4174,4007,0100,0000,0000,0000
U 0711, 2231,3771,0013,4370,4007,0700,0000,0000,0011
U 0712, 0246,3333,0006,4174,4001,0520,0000,0000,0000

U 0713, 3437,4551,0606,4374,0007,0700,0000,0007,7777
U 0714, 0715,3771,0005,1276,6007,0701,0000,0000,1443
U 0715, 2260,3443,0500,4174,4007,0700,0200,0004,0012

6470
6471
6412
6473
6474
6475
6476
6477
6478
6479
6480
6481
, ; 6482'
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
6508
6509
6510
6511
6512
6513
6514·

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- EDIT -- MAIN LOOP

Page 177

;HERE WITH PATTERN BYTE RIGHT ADJUSTED IN AR
EDISP:
[BR] [AR]*.5, SC 2
;SHIFT OVER
=0
EDISP1: [BR] [BR]*.5, STEP SC, J/EDISP1
READ-[BR], 3T, DISP/DP ;LOOK AT HIGH 3 BITS
=0001
;(0) OPERATE GROUP
[AR]-#, #/5, 4T,
SEE IF 0-4
SKIP DP18, J/EDOPR
;(1) MESSAGE BYTe
READ [BRX], SKIP OPO,
J/EDMSG
; (2) UNDEFINED
J/EDNOP
; (3) UNDEFINED
J/EDNOP
; (4) UNDEFINED
J/EDNOP
;(5) SKIP IF M SET
TL [BRX], #/100000,
J/EDSKP
;(6) SKIP IF N SET
TL [BRX], #/200000,
J/EDSKP
;(7) SKIP ALWAYS
J/EDSKP
.TOC

"EXTEND -- EDIT -- DECODE OPERATE GROUP"

;HERE FOR OPERATE GROUP. SKIP IF IN RANGE
=0
EDOPR:
J/EDNOP
;OUT OF RANGE
READ [AR], 3T, DISP/DP ;DISPATCH ON TYPE
[PC] [PC]+1, J/EDSTOP
; (0) STOP EDIT
=1000
STATE [EDIT-SRC],
;(1) SELECT SOURCE BYTE
J/EDSEL
READ [BRX], SKIP DPO,
;(2) START SIGNIFICANCE
J/EDSSIG
[BRX) [BRX) .AND.#,
;(3) FIELD SEPERATOR
#/77777, HOLD RIGHT,
tJ/EDNOP
[BR] AC[MARK]
;(4) EXCHANGE MARK AND DEST
VMA TBR], START READ,
tJ/EDEXMD

/

\

~,

,

r,
T10KL.MtR[ 10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

"
U 3420, 3421,7441,0605,4174,4007,0700,1000,0071,0010
U 3421, 3422,3441,0603,4174,4007,0701,1000,0043,0000
U 3422, 2256,4553,0500,4374,4007,0321,0000,0003,0000

U 2256, 1515,3770,0303,4334,4017,0700,0000,0041,0000
U 2257, 2256,0111,0703,4174,4007,0700,1000,0051,0700

U 0246, 3426,4443,0000,4174,4007,0700,0010,0000,0000
U 0247, 3437,4443,0000,4174,4007,0700,0000:0000,0000

U 2?60, 3673,3772.0000,1275,5007,0701.0010,0000,1444
U 2261, 3423,4443,0000,4174,400"1,0700,0200,0003,0002
U 3423, 3424,3223,0000,4174,4007,0701,0200,0000,0002
U 3424, 3437,3440,0303,1174,4007,0700.0400,0000.1444

6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543
6544
6545
6546
6547

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- EDIT -- STOP EDIT
.TOC

Page 178

"EXTEND -- EDIT -- STOP EDIT"

;HERE TO END AN EDIT OPERATION.
; OR NON-SKIP IF ABORT
EDSTOP: [BR] .NOT.[BRX],
FE sli, S#/10
[AR] [BRX], 3T, FE_FE+P
[BRj-:-AND.#, 3T,
#/030000, SKIP ADL.EQ.O

PC IS SET TO SKIP IF NORMAL END
;AD WILL NOT DO D.AND.NOT.A
;PRESET FE
;MOVE POINTER. UPBATE PBN
;WAS OLD NUMBER 3?

=0

EDSTP1:

[ARj P, J/ST/l.C
[ARj-[ARj+1,
FE F£.AND.S#, S#/0700,
J/£DSTP1

.TOC

"EXTEND -- EDIT -- START SIGNIFICANCE"

;NO--ALL DONE
;YES--BUMP WORD #
;KEEP ONLY FLAG BITS
; GO STOP ED IT

;HERE WITH DST POINTER IN AR

=110

EDSSIG: CALL [EDFLT]
J/EDNOP
.TOC

"EXTEND

;STORE FLT CHAR
;00 NEXT PATTERN BYTE

EDIT -- EXCHANGE MARK AND DESTINATION"

;HERE WITH ADDRESS OF MARK POINTER IN BR
=0

EDEXMD: Q Ac{6STPj,
CALL [LOADARj
START WRITE
MEM WRITE, MEM Q
AC[DSTPj [ARj,-J/EDNOP

;GET OEST POINTER
;GO PUT MARK IN AR
;START WRITE. SEPERATE STEP TO AVOID
; PROBLEM ON DPM5
;PUT OLD DEST IN MARK
;PUT BACK DEST POINTER

Tl0KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:35 26-J~LY-1984

MICRO 31(254)

U 2231,
U 2233,

2313,3771,0003,1276,6007,0701,0010,0000,1441
0700,3447,0303,7174,4007,0700,0000,0000,0241

U 0700,

3457,0551,0303,7274,4007,0700,0010,0000,0241

U 0702,

2262,3333,0003,4174,4007,0621,0000,0000,0000

U 0703,
U 0704,

0606,3771,0013,4370,4007,0700,0000,0000,0011
3420,4443,0000,4174,4007,0700,0000,0000,0000

U 0705, 3464,3771,0013,4370,4007,0700,0010,0000,0013
U 0707, 3437,4443,0000,4174,4007,0700,0000,0000,0000

U 2262, 0705,4443,0000,4174,4007,0700,0000,0000,0000
U 2263, 3437,4443,0000,4174,4007,0700,0000,0000,0000

U 0606, 3426,3333,0004,7174,4007,0700,0410,0000,0246
U 0607, 3425,3771,0003,7274,4007,0701,0000,0000,0246
U 3425, 0705,4251,0303,4374,4007,0700,0000,0007,7777

6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583

KS10 MICROCODE V124, 27-JUL-84 Page 179
EXTEND -- EDIT -- PROCESS SOURCE BYTE
.TOC
=0*
EDSEL:
=000

"EXTEND -- EDIT

PROCESS SOURCE BYTE"

[AR] AC[SRCP],
CALL -[ GETSRC]
[AR] [ARj*.5, WORK[El]
[AR} [AR]+WORK[El],
2T, CALL [TRNAR]

=010
EDFILL: READ [AR],
SKIP AD.EO.O,
J/EDFILl
STATE [EDIT-SRC],
J/EDSFLT
=100
J/EDSTOP
=101
EDSPUT: STATE [EDIT-S+Dj,
CALL [PUTDSTj

;PICK UP SRC POINTER
;GET SOURCE BYTE
;PREPARE TO TRANSLATE
;GO TRANSLATE BY HALFWOROS
;(2) NO SIGNIFICANCE, GO FILL
SEE IF ANY FILLER
GO TO IT
;(3) SIG START, DO FLOAT CHAR
; (4) ABORT
;(5) NDRMAL, STORE AT OST

= 111

J/EDNOP

;(7) BYTE STORED

;HERE TO COMPLETE STORING FILL
=0
EDFIL1: J/EDSPUT
J/EDNOP

;STORE FILLER
;NO FILLER TO STORE

;HERE TO DO FLOAT BYTE
= 110
EDSFLT: WORK[ FSIG] [ARX],
CALL [EDFL T] ,
[AR] WORK[FSIG]
[AR]-[AR].AND.# CLR LH,
#/77777 ,
J/EDSPUT

;SAVE SIG CHAR
;STORE FLOAT CHAR
;RESTORE CHAR
;JUST KEEP THE BYTE IN CASE
; OEST BYTE .GT. 15 BITS
;GO STORE CHAR WHICH STARTED THIS AL

~

T 10K L .MeR [ 10, 1 1 4 1 ]
EXTEND.MIC[10,1141]

U
U
U
U

3426,
3427,
3430,
3431,

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

3427,3771,0005,1276,6007,0701,0000,0000,1443
3430,3443,0500,4174,4007,0700,0200,0003,0012
3431,3771,0005,1276,6007,0701,0000,0000,1444
2264,3333,0005,4175,5007,0701,0200,0000,0002

U 2264, 3433,4751,1203,4374,4007,0700,0010,0000,0002
U 2265, 0740,3771,0003,4365,5007,0621,0200,0000,0002

U 0740, 3464,3551,1313,4370,4007,0700,0010,0000,0012
U 0741, 3432,3551,0606,4374,0007,0700,0000,0040,0000
U 0746, 3432,3551,0606,4374,0007,0700,0000,0040,0000

U 3432, 0007,3440,0606,0174,4004,1700,0400,0000,0000

U 2266, 0760,3771,0003,7274,4007,0622,0000,0000,0244
U 2267, 2270,4251,0303,4374,4007,0700,0000,0000,0077
U 2270, 3433,0111,0703,7174,4007,0700,0010,0000,0240
U 2271, 0760,3771,0003,4365,5007,0700,0200,0000,0002
U 0760, 3464,3771,0013,4370,4007,0700,0010,0000,0012
U 0761, 3437,4443,0000,4174,4007,0700,0000,0000,0000
U 0766, 3437,4443,0000,4174,4007,0700,0000,0000,0000
U 3433, 3434,0551,0303,7274,4007,0701,0000,0000,0240
U 3434, 0001,3443,0300,4174,4004,1700,0200,0004,0012

6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6607
6608
6609
6610
6611
6612
6613
6614
6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
6631
6632
6633

Ksio MICROCODE V124, 27-JUL-84 Page 180
EXTEND -- EDIT -- PROCESS SOURCE BYTE
;SUBRUTINE TO PROCESS FLOAT CHAR
;CALL WITH:
AR/ POINTER TO STORE @ MARK
;RETURN 7 WITH FLOAT STORED
EDFLT:
[BR] AC[MARK]
;ADDRESS OF MARK POINTER
VMA [BR], START WRITE
;READY TO STORE
[BR] AC[DSTP]
;GET DST POINTER
MEM WRITE, MEM [BR]
;STDRE POINTER
=0
[AR] 0 XWD [2]~
;FETCH FLOAT CHAR
CALL-[EDBYTE)
;GET TBL BYTE
MEM READ, [AR) MEM,
;GET FLOAT CHAR
SKIP AO.EQ.O ;SEE IF NULL
=000
[FLG) [FLG].OR.#,
;REMEMBER TO BACKUP DST POINTER
STATE7EOIT-OST,
; WILL ALSO BACKUP SRC IF CALLED
HOLD LEFT,
; FROM SELECT
CALL [PUTOST]
; STORE FLOAT
=001
[BRX) [BRX).OR.#, #/400000,
HOLORIGHT,
J/EDFLT1
;NULL
=110
[BRX) [BRX).OR.#, #/400000,
HOLD RIGHT.
J/EDFL T 1
; MARK STORED
EDFLT1: AC [BRX],

;SAVE FLAGS SO WE OON'T
;TRY TO DO THIS AGAIN IF
;NEXT STORE PAGE FAILS
; AND RETURN

RETURN [7]
.TOC

"EXTEND

EDIT

MESSAGE BYTE"

;HERE WITH SKIP ON S
=0
EDMSG:
[AR] WORK[FILL],
SKIP-AD.EQ.O, 4T,
J/EDMSG1
[AR] [AR).AND.# CLR LH,

GET FILL BYTE
SEE IF NULL
GO STORE
GET OFFSET INTO TABLE

#/77

=0

[AR] [AR]+1, WORK[EO],
CALL -[ EDBYTE)
MEM READ, [AR ]_MEM

PLUS 1
GET TBL BYTE
FROM MEMORY

=000
EDMSG1: STATE [EDIT-DST),
CALL [PUTDST]
=001
J/EDNOP
= 110
J/ EONOP

WHAT TO DO ON PAGE FAILS
STORE MESSAGE BYTE
NULL FILLER
NEXT BYTE

EDBYTE: [AR] [AR]+WORK[EO]
VMA [AR], START READ,
RETURN [1]

GET OFFSET INTO TABLE
START MEMORY CYCLE
RETURN TO CALLER

T1.oKL.MCR[1.o,1141)
EXTEND.MIC[1.o,1141)

15:34 27-JOLY-1984
11:35 26-JULY~1984

MICRO 31(254)

U 2272, 3435,4551,.03.03,4374,4.0.07,.07.0.0,0000,.0.0.0.0,.0.077
U 2273, 3437,4443,0000,4174,4.0.07,.07.0.0,.0.0.0.0,.0.0.0.0,.0.0.0.0
U 3435, 3436,.0115,.07.03,4174,4.0.07,.070.0,00.0.0,.0.0.0.0,.0.0.0.0
U 3436, 344.0,3333,.0.0.03,4'174,4007,.07.01,2.0.0.0,.0.0.07,00.0.0

U
U
U
U
U

3437,
344.0,
3441,
3442,
3443,

344.0,4443,.0.0.0.0,4174,4.0.07,.07.0.0,2.000,.0.071,.000.0
3441,3333,.0.0.06,4174,4.0.07,.07.01,1.0.0.0,.0.073,00.0.0
3442,4443,.0.0.0.0,4174,4.0.07,.07.0.0,1.0.0.0,.0.051,.0.03.0
3443,4443,.0.0.0.0,4174,4.0.07,.07.0.0,1.0.0.0,.0.04.0,.0.000
3444,4443,00.0.0,4174,4.0.07,.07.0.0,1.0.0.0;.0.041,.0.01.0

U 3444, 3445,3777,.0.0.03,4334,4.057,.07.0.0.2.0.0.0,.0.041,.0.0.0.0
U 3445, 2274,4251,.03.03,4374,4.0.07 • .063.0 • .000.0 • .0.0.0.0 • .017.0
U 2274, 2276,3447,.03.03,4174.4007,.0700.2.0.0.0 • .0.071 • .0.0.0.0

U 2275, 2274.3551 • .03.03.437.0.4007.07.0.0,.000.0 • .000.0,.02.0.0
U 2276, 2276,3447,.03.03,4174,4.0.07 • .063.0.200.0,.0.06.0,.0.0.0.0
U 2277 • 3446 • .0111 • .03.06,417.0.4.0.07,07.0.0,.0.000 • .0.0.0.0,.0.0.0.0
U 3446, 3447,377.0,.03.03,4334.4.017,.0700 • .0.0.0.0,.0.041,.0.0.0.0
'-,

U 3447, 345.0.4551,.06.06,4374 • .0.0.07 • .07.0.0,.0.0.0.0,.0.07.0 • .0.0.0.0
U 345.0. 3451.4551 • .03.03.4374.4.0.07 • .07.0.0.00.00,.0.0.03,.0.000
U 3451. 3452.3111 • .03.06.4174 • .0.0.07 • .07.0.0 • .0.0.0.0 • .0.0.0.0 . .000.0
U 3452, 2246,344.0 • .06.06 • .0174,4.0.07,.07.0.0,.04.0.0,0000 • .0.0.0.0

(j

6634
6635
6636
6637
6638
6639
664.0
6641
6642
6643
6644
6645
6646
6647
6648
6649
665.0
6651
6652
6653
6654
6655
6656
6657
6658
6659
666.0
6661
6662
6663
6664
6665
6666
6667
6668
6669
667.0
6671
6672
6673
6674
6675
6676
6677
6678
6679
668.0

KS1.o MICROCODE V124, 27-JUL-84
EXTEND -- EDIT -- SKIP
.TOC

Page 181

"EXTEND -- EDIT -- SKIP"

=.0
;HERE TO SKIP ALWAYS
EDSKP:
(AR] [AR]. AND. #, #/77,
;JUST KEEP SKIP DISTANCE
J/EDSKP1
; CONTINUE BELOW
;HERE IF WE DO NOT WANT TO SKIP
J/EDNOP
EDSKP1: [AR] ([AR]+1)*2
;GIVE 1 EXTRA SKIP
READ-[AR], SCAD/A*2,
;PUT THE ADJUSTMENT
SCADA/BYTE5. 3T, LOAD SC, ; THE SC
J/EDNOP1
;JOIN MAIN LOOP
.Toe

"EXTEND -- EDIT

ADVANCE PATTERN POINTER"

EDNOP: SC .0
EDNOP1: READ [BRX], 3T, FE P
FE FE.AND.S#, S#/30
FE-FE+SC
FE-FE+S#, 5#/1.0
[AR] FE,
LOAD-se

;NO SKIP
;PUT PBN IN FE
;JUST BYTE #
;ADD IN ANY SKIP DISTANCE
;BUMP PBN
;GET NUMBER OF WORDS
:PUT MSB WHERE IT CAN BE TESTED
; QUICKLY
[AR] [AR].AND.# CLR LH, ;KEEP ONLY 1 COPY
#/170, SKIP/SC

=.0
EDN1A:

[AR] [AR]*.5, SC .0,
J/EDNOP2
[AR] [AR] .OR.#, #/200,
HOLD-LEFT,
J/EDN1A

;READY TO SHIFT OFF BYTE WITHIN
,
; WORD
;GET THE SIGN BIT OF THE FE
; INTO THE AR. ONLY HAP'PENS ON
; SKP 76 OR SKP 77

=.0'
EDNOP2: (AR] (AR]*.5, STEP SC, J/EDNOP2
[BRX] [BRX]+[AR),
;UPDATE WORD ADDRESS
HOLD LEFT
[AR] P
;PUT PBN BACK IN BRX
[BRX] [BRX].AND.#,
;JUST KEEP FLAGS
#/7.0.0000,
HOLD RIGHT
(AR] [AR].AND.#,
;JUST KEEP PBN
#/.030.0.0.0
[BRX] (BRX].OR.[AR],
;FINAL ANSWER
HOLD RIGHT
AC_[BRX], J/EDITLP
;DO NEXT FUNCTION

T10KL-Q 10,1141 J
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 0322, 3464,3771,0003,7274,4007,0700,0010,0000.0244
U 0326, 3453,3771.0003,1276.6007,0701,0000,0000.1443
U 3453, 2300,0113,0703,1174.4007,0521,0400.0000.1443
U 2300, 0002,4443,0000,4174.4004,1700,0000.0000,0000
U 2301. 0322,4443,0000,7174.4007.0700,0000.0000.0244

6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6.696
6697
6698
6699
6700
6701
6702
6703
6704

KS10 MICROCODE V124, 27-JUL-84 Page 182
EXTEND SUBROUTINES -- FILL OUT DESTINATION
.TOC

"EXTEND SUBROUTINES -- FILL OUT DESTINATION"

;CALL WITH
AC[DLEN]/ NEGATIVE NUMBER OF BYTES LEFT IN DEST
FILL/ FILL BYTE
RETURN [2] WITH FILLERS STORED
,
;NOTE: THIS ROUTINE NEED NOT TEST FOR INTERRUPTS ON EACH BYTE
BECAUSE EVERY BYTE STORE DOES A MEMORY READ.

.

=01*
MOVF 1:

[AR] WORK[FILLJ. 2T,
CALL-[PUTDST]
[ARJ AC[DLEN]
AC[DLEN] [AR]+1, 3T.
SKIP DPO=0
RETURN [2J
MOVFIL: WORK[FILL]. J/MOVF1

;GET FILL BYTE
;PLACE IN DEST
;AMOUNT LEFT
;STORE UPDATED LEN
; AND SEE IF DONE
;DONE
;00 ANOTHER BYTE
;ENTERING HERE SAVES 150NS
PER BYTE BUT COSTS 300NS
PER FIELD MOVED. I ASSUME (BUT DO
NOT KNOW) THAT THIS SPEEDS
THINGS UP.

T10KL.MCR[10,1141]
EXTEND.MIC[tO,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 1114, 2312,3333,0003,7174,4007,0520,0410,0000,0242
U 1115.' 0001,4221,0013,4170,4004,1700,0000,0000,0000
U 1116, 0716,4443,0000,7174,4003,7700,0000,0000,0241
U 0716, 3456,3447,0303,4174,4007,0700,0000,0000,0000
U 0717, 3454,3770,0303,7174,0007,0700,0000,0000,0241

U 3454, 3455,0551,0303,7274,4007,0700,0000,0000,0241
U 3455,0004,4553,0300,7274,4004,1622,0000,0000,0243

6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741

KS10 MICROCODE V124, 27-JUL-84 Page 183
EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE
.TOC"EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE"
;CALL \IJITH:
;SLEN = MINUS LENGTH OF STRING
;MSK = MASK FOR BYTE SIZE (1 IF BIT MUST BE ZERO)
;E1 = EFFECTIVE ADDRESS OF OPERATION WORD (SIGN EXTENDED IF OFFSET)
;
[AR] WORK[SLEN]+1, CALL [SRCMOD]
;RETURNS:
1 LENGTH EXHAUSTED
2 (EDIT ONLY) NO SIGNIFICANCE
3 (EDIT ONLY) SIGNIFICANCE START:
4 ABORT: OUT OF RANGE OR TRANSLATE FAILURE
5 NORMAL: BYTE IN AR
;DROM B SET AS FOLLOWS:
O' TRANSLATE
1 OFFSET
2 EDIT
4 CVTDBT
=00
SRCMOD: WORK[SLEN] [AR],
SKIP DPO,
CALL [GSRC]
END STATE, RETURN [1]
WORK[E1], B DISP
= 1110

;PUT BACK SOURCE LENGTH
;SEE IF DONE
;GET A SOURCE BYTE
;DONE
;OFFSET OR TRANSLATE?

[AR] [AR]*. 5, J/XLATE
;TRANSLATE
FIX TAR] SIGN, WORK[E1] ;IF WE ARE PROCESSING FULL WORD
; BYTES, AND THEY ARE NEGATIVE,
; AND THE OFFSET IS POSITIVE THEN
; WE HAVE TO MAKE BITS -1 AND -2
; COPIES OF THE SIGN BIT.
[AR] [AR]+WORK[E1], 2T
;OFFSET
[AR]~AND.WORK[MSK],
; VALID BYTE?
SKIP AD.EO.O, 4T,
;SKIP IF OK
RETURN [4]
;RETURN 4 IF BAD, 5 IF OK

~

T10KL.~cR[10.1141]

EXTEND.MIC[10.1141]

"15:3427-vULY-1984
11:3526-vULY-1984

MICRO 31(254)

U 3456. 3457.0551.0303.7274.4007.0701.0000.0000,0241
U 3457. 2302,3333,0003.4174,4007,0700.0200.0004.0012

U 2302, 3674,3445.0303,4174.4007,0700.0010.0000.0000
U 2303, 2304,4553,0300.4374.4007.0331,0000,0000.0001

U 2304. 0721.3441,0403,4174.4003.1701.0000.0000.0000
U 2305. 2304.3770.0404.4344,4007,0700.0000,0000.0000

. K~~u~ICROCOOE V124. 27-vUL-84 Page 184
EXTEND SUBROUTINES -- TRANSLATE

6742 .TOC
"EXTEND SUBROUTINES -- TRANSLATE"
6743
6744 ;HERE WITH BYTE IN AR 1-36. FETCH TABLE ENTRY.
[AR] [AR]+WORK[E1]
;COMPUTE ADDRESS
6745 XLATE:
6746 TRNAR: REAO-[AR]. LOAD VMA.
;FETCH WORD
START READ
6747
6748 =0
[AR] [AR]*2,
;GET BACK LSB
6749
;BIT 36 IS NOT PRESERVED
6750
; BY PAGE FAILS
6751
CALL [LOAOARX]
;PUT ENTRY IN ARX
6752"
TR [AR], #/1
;WHICH HALF?
6753 =0
;RH -- COPY TO AR
6754 XLATE1: [AR] [ARX], 3T,
DISp7DP LEFT,
;DISPATCH ON CODE
6755
v/TRNFNC
;DISPATCH TABLE
6756
[ARX] [ARX] SWAP.
;LH -- FLIP AROUND
6757
6758
v/XLATE1
;START SHIFT
6759

T10KL.MCR[10,114tJ
EXTEND.MIC[10,1141J

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 0721, 2306,3333,0006,4174,4007,0520,0000.0000,0000
U 0723, 0004,4443.0000,4174.4004;1700.0000.0000.0000

U 0725, 0721,5551,0606,4374,0007.0700,0000,0010,0000

U 0727, 0721,3551,0606.4374,0007.0700,0000,0010,0000

U 0731, 0721,3551,0606,4374,0007.0700,0000,0020,0000

U 0733, 0004,3551,0606,4374,0004,1700,0000,0020,0000

U 0735, 0731,5551,0606,4374.0007,0700,0000,0010,0000

U 0737, 0721,3551,0606,4374,0007.0700,0000,0030.0000

6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
. 6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796

KS10 MICROCODE V124, 27-JUL-84 Page 185
EXTEND SUBROUTINES -- TRANSLATE
;HERE ON TRANSLATE OPERATION TO PERFORM FUNCTIONS REQUIRED BY
THE 3 HIGH ORDER BITS OF THE TRANSLATE FUNCTION HALFWORD. WE
DISPATCH ON FUNCTION AND HAVE:
BRX/
FLAGS
ARX/
TABLE ENTRY IN RH
=0001
TRNFNC: READ [BRX], SKIP DPO,
J/TRNRET

; (0) NOP
;S FLAG ALREADY SET?
;(1) ABORT

RETURN [4J
;(2) CLEAR M FLAG
[BRX] [BRX].AND.NOT.#,
#/100000, HOLD RIGHT,
J/TRNFNC
; (3) SET M FLAG
[BRX] [BRX].OR.#,
#/100000, HOLD RIGHT,
J/TRNFNC
;(4) SET N FLAG
TRNSIG: [BRX] [BRX].OR.#.
#/200000, HOLD RIGHT.
J/TRNFNC
;(5) SET N FLAG THEN ABORT
[BRX] [BRXJ.OR.#.
#/200000. HOLD RIGHT,
RETURN [4]
;(6) CLEAR M THEN SET N
[BRX] [BRXJ.AND.NOT.#,
#/100000. HOLD RIGHT.
J/TRNSIG
;(7) SET NAND M
[BRX] [BRXJ.OR.#.
#/300000, HOLD RIGHT.
J/TRNFNC

o

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 2306, 0754,3333,0004,4174,4003,7530,0000,0000,0000
U 2307, 0005,4251,0403,4374,4004,1700,0000,0007,7777

U 0754, 0533,3771,0003,1276,6003,7701,0000,0000,1443
U 0755, 2307,3551,0606,4374,0007, 07 90 ,0000,0040,0000
U 0756, 0002,3771,0003,7274,4004,1701,0000,0000,0244
U 0757, 0003,3771,0003,1276,6004,1701,0000,0000,1444
U 0533, 3460,1111,0703,4174,4007,0700,4000,0000,0000
U 0537, 1114,0551,0703,7274,4007,0701,0000,0000,0242
U 3460, 2310,3770,0303,1174,4007,0520,0400,0000,1443
U 2310, 1114,3771,0003,7274,4007,0701,0000,0000,0242
U 2311" 1114,0551,0703,7274,4007,0701,0000,0000,0242

6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827

KS10 MICROCODE V124, 27-JUL-84 Page 186
EXTEND SUBROUTINES -- TRANSLATE
;HERE TO COMPLETE A TRANSLATE
=0
TRNRET : READ [ARX], SKIP DP18,
;S-FLAG IS ZERO
B DI$P, SKIP DP18,
;SEE IF EDIT OR SIG START
J/TRNSS
TRNSS1 : [AR] [ARX].AND.# CLR LH, ;S IS SET, JUST RETURN BYTE
#/77777, RETURN [5]
= 1100
TRNSS:

=1011
TRNNS1:

[AR] AC[DLEN],
B DIS-P, J/TRNNS1
[BRX] [BRX].OR.#,
#/400000, HOLD RIGHT,
J/TRNSS1
[AR] WORK[FILL],
RETURN [2]
[AR] AC[DSTP],
RETURN [3]

[AR] [ARj-1, J/TRNNS2
[ARj-WORK[SLENj+1,
J/SRCMOD
TRNNS2: AC[DLEN] [AR] TEST,
SKIP DPO=0
[AR] WORK[SLEN],
J/SRCMDD
[AR] WORK[SLEN]+1,
J/SRCMOD

;NO SIG ON MOVE OR D2B
;SEE IF D2B
;SIG START ON MOVE OR D2B
; RETURN BYTE
;EDIT--NO SIG RETURN FILL
;EDIT--START OF SIG

;COMPENSATE FOR IGNORING SRC
;DEC TO BIN HAS NO DEST LENGTH
;JUST UPDATE SRC LENTH
;PUT BACK OLEN AND
; SEE WHICH IS NOW SHORTER
;DEST IS SHORTER. DO NOT CHANGE
; AMOUNT LEFT
;GO LOOK AT NEXT BYTE

T10KL.MCR[10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 2312, 0001,3771,0003,' 1276,6004,1701,0000,0000,1443
U 2313, 3461,3771,0003,1276,6007,0701,0000,0000,1441
U
U
U
U

3461,
0231,
0233,
3462,

0231,3770,0305,4334,4016,7701,0000,003 3,6000
3463,3441,0503,4174,4007,0700,0006,0000,0000
3462,3770,0503,4334,4017,0700,0000,0032,6000
3463,0111,0703,4170,4007,0700,0006,0000,0000

U 3463, 2314,3440,0303,1174,4007,0700,0400,0000,1441
U 2314, 3071,3333,0003,4174,4217,0701,1010,0073,0500

U 2315, 0340,3333,0003,4174,4006,5701;1000,0051;0770

6828
6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856

KS10 MICROCODE V124, 27-JUL-84 Page 187
EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE
.TOC

"EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE"

;CALL:
GSRC WITH SKIP ON SOURCE LENGTH
,
GETSRC IF LENGHT IS OK
;WITH:
;
AC1/ SOURCE BYTE'POINTER
; RETURNS:
1 IF LENGTH RAN OUT
2 IF OK (BYTE IN AR)
,
=0
GSRC:
[AR] AC [OLEN] ,
;LENGTH RAN OUT
RETURN [1]
;RESTORE AR AND RETURN
GETSRC: [ARl AC[SRCP]
;GET SRC PTR
IBP DP, IBP SCAD,
;UPDATE BYTE POINTER
SCAD DISP, 3T
;SEE IF OFLOW
=01
[AR] [BR]. J/GSRC1
;NO OFLOW
SET P TO 36-S
;RESET P
[AR]_[AR]+1, HOLD LEFT ;BUMP Y
GSRC1:
=0

;STORE UPDATED POINTER
AC[SRCP] [ARl
READ [ART. LOAD ~YTE EA,;SETUP TO FIGURE OUT
FE P, 3T, CALL [BYTEASl ; EFFECTIVE ADDRESS
READ [AR1.
;LOOK AT POINTER
BYTE DISP,
;SEE IF 7 BIT
FE FE.AND.S#, S#/0770,
;MA'SK OUT P FIELD
J/[DB1
;GO GET THE BYTE
/

/\

~

T10KL~~C~[10,1141]

EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 3464, 2316,3441,0304,4174,4007,0700,0000,0000,0000
U 2316, 3465,3771,0003,1276,6007,0701,0010,0000.1444
U 2317, 2320,0113,0404,4174,4007,0701,1000,0077,0000
U 2320, 0360,3333.0003,4174.4006,5701,0010,0000,0000
U 2322, 0006,4443,0000,4174,4004.1700.0000.0000,0000

KS10 MICROCODE V124, 27-JUL-84 Page 188
EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING

"EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING"
.TOC
6857
6858
;CALL WITH:
6859
AR/ BYTE TO STORE
6860
6861 , ;
AC4/ DESTINATION BYTE POINTER
;RETURNS:
6862
AR & AC4/ UPDATED BYTE POINTER
6863
6864
ARX/ BYTE TO STORE
BR/ WORD TO MERGE WITH
6865
6866
6 ALWAYS
6867
6868 PUTDST: [ARX] [AR]
;SAVE BYTE
[AR] AC[DSTP],
6869 =0
;GET DEST POINTER
CALL -[ IDST]
6870
;BUMP DEST POINTER
;SHIFT 7-BIT BYTE TO
6871
AD/A+B. A/ARX. B/ARX,
6872
; NATURAL PLACE, AND PUT
SCAD/A. 3T.
; INTO FE
SCADA/BYTE5, LOAD FE
6873
READ [AR], BYTE DISP,
;GO PUT BYTE IN MEMORY
6874 =0*
6875
CALL [DPB1]
; 6876
RETURN [6]
;ALL DONE
; ,6877

T10KL.MCR[10,1141)
EXTEND.MIC[10,1141]

U
U
U
U

3465,
2321,
2323,
3466,

15:34 27~JULY-1984
11:3526-JULY-1984

MICRO 31(254)

2321,3770,0305,4334,4016,7701,0000,0033,6000
3467,3441,0503,4174,4217,0700,0000,0000,0600
3466,3770,0503,4334,4017,0700,0000,0032,6000
3467,0111;0703,4170,4217,0700,0000,0000,0600

U 3467, 0230,3440,0303,1174,4006,6701,1400,0073,1444
U
U
U
U

0230,
0232,
0234,
0236,

3074,0553,0300,2274,4007,0701,0200,0004,0712
3074,3443,0300,4174,4007.0700,0200,0004,0712
3470,0553,0300,2274,4007,0701,0200,0004,0612
3470,3443,0300,4174,4007,0700,0200,0004,0612

U 3470, 3471,3771.0003,4361,5217,0700,0200,0000,0602
U 3471, 0230,4443,0000,2174,4006,6700,0000,0000,0000

U 3556, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 3557,0004,4443,0000,4174,4004,1700,0000,0000,0000

U 3472, 3473,3771,0003,4365,5007,0700,0200,0000,0002
U 3473, 0010,3333,0003,7174,4004,1700,0400,0000.,0244

U 3474, 0001,4551,0303,4374,0004,1700,0000,0000,0777

6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921

KS10 MICROCODE V124, 27-JUL-84 Page 189
EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS
.TOC

"EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS"

;SUBROUTINE TO BUMP DST POINTERS
;CALL WITH:
AC[OSTP]
AR/
RETURN 1 WITH UPDATED POINTER STORED
lOST:
=0*
IDSTX:
=100*
DSTEA:

IBP DP, IBP SCAD, SCAD DISP, 3T
[AR] [BR], LOAD DST EA, J/IDSTX
SET P TO 36-S
[AR] [AR]+1, HOLD LEFT, LOAD DST EA
AC[DSTP] [AR], 3T,
;STORE PTR BACK
FE_P, DISP/EAMODE
;SAVE P FOR CMPDST
VMA_[AR]+XR, START READ, PXCT BYTE DATA, 3T, J/BYTFET
VMA [AR], START READ, PXCT BYTE DATA, J/BYTFET
VMA=[AR]+XR, START READ, PXCT/BIS-DST-EA, 3T, J/DSTIND
VMA_[AR), START READ, PXCT/BIS-DST-EA, J/DSTIND

DSTINO: MEM READ, [AR] MEM, HOLD LEFT, LOAD OST EA
EA MODE DISP, J/DSTEA
;HERE TO TEST ILLEGAL BITS SET
; CALL WITH:
SKIP IF ALL BITS LEGAL
RETURN [4] IF OK, ELSE DO UUO
3556:
;EXTEND OF 0 COMES HERE
BITCHK: UUO
3557:
RETURN [4]
;HERE TO PUT FILL IN [AR] AND WORK[FILL]
GTFILL: MEM READ,
; WAIT FOR DATA
[AR] MEM
;PLACE IN AR
WORK[FILL] [AR],
;SAVE FOR LATER
RETURN [lOT
;RETURN TO CALLER
;SUBROUTINE TO CLEAR FLAGS IN AR
CLRFLG: [AR] [AR].AND.#,
;CLEAR FLAGS IN AR
#/000777,
HOLD RIGHT, .RETURN [1]

~
\ J

T10Kl.'IVlCR[ 10,1141]
EXTEND.MIC[10,1141]

15:34 27-JULY-1984
11:3526-JULY-1984

MICRO 31(254)

U 2324, 3507,3771,0003,1276,6007,0701,0010,0000,1441
U 2325, 2676,3440,0505,1174,4007,0700,0400,0000,1441
U 3475, 3476,3771,0003,7274,4007,0701,0000,0000,0214
U 3476, 2326,0113,0703,0174,4007,0701,0400,0000,0000

U 2326, 3507,3771,0003,1276,6007,0701,0010,0000,1444
U 2327, 2676,3440,0505,1174,4007,0700,0400,0000,1444
U 3477, 3500,1771,0003,7274,4007,0701,4000,0000,0242
U 3500, 2330,3771,0005',1276,6007,0522,0000,0000,1443
U 2330, 3502,3440,0303,1174,4007,0700,0400,0000,1443
U 2331, 2332,3441,0304,4174,4007,0700,0000,0000,0000
U 2332, 3704,3551,0404,7274,4007,0701,0010,0000,0214
U 2333, 3501,1111,0503,4174,4007,0700,4000,0000,0000
U 3501, 2676,3440,0303,1174,4007,0700,0400,0000,1443
U 3502, 3504,0111,0503,4174,4007,0700,0000,0000,0000
U 3503, 3504,1771,0003,7274,4007,0701,4000,0000,0242
U 3504, 3505,3551,0303,7274,4007,0701,0000,0000,0214
U 3505, 2676,3440,0303,0174,4007,0700,0400,0000,0000
U 3506, 3500,7771,0003,7274,4007,0701,0000,0000,0242
U 3507, 0001,3770,0305,4334,4014,1700,0000,0043,6000

6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- PAGE FAIL CLEANUP
.TOC

"E~TENO

Page 190

-- PAGE FAIL CLEANUP"

;BACK UP SOURCE POINTER
=0
BACKS:
[AR] AC[SRCP],
CALL-[BACKBP]
;BACKUP BP
AC[SRCP] [BRl, J/CLDISP
CMSOST:

[AR] WORK[SV.BRX]
;GET OLD SRC LEN
AC C4R]+1, 3T
;BACK UP
;BACK UP DESTINATION POINTER
=0
BACKD:
[AR] AC[OSTP],
CALL-[BACKBPl
AC[OSTP] [BR], J/CLDISP
;FAILURES OURING MOVE STRING (BACKUP LENGTHS)
STRPF:
[AR) -WORK[SLEN]
;GET AMOUNT LEFT
STRPFO: [BR)-AC[DLEN), 4T,'
;WHICH STRING IS LONGER?
SKIP-OPO
=0
STRPF1: AC[DLEN) [ARl, J/STPF1A ;SRC LONGER
[ARX]' [AR)
;COPY SRC LENGTH
=0
[ARXl-[ARX).OR.WORK[SV.BRXl. ;REBUILD FLAGS
CALL TAC ARX]
;RESET AC]SLEN]
[AR] [AR]-[BR]
;MAKE OEST LEN
STRPF3: AC[DLENl [ARl,
;PUT BACK DEST LEN
J/CLDISP
;00 NEXT CLEANUP
STPF 1A:

[AR] [AR]+[BR], .,J/STRPF2

PFDBIN: [ARl -WORK[SLENl
;RESTORE LENGTH
STRPF2: [AR]-[AR].OR.WORK[SV.BRX]
PFGACO: AC [AR], J/CLDISP
;PU·T BACK SRC LEN AND FLAGS
STRPF 4:

[AR]

. NOT. WORK [SLEN], J/STRPFO

BACKBP: IBP OP, SCAD/A+B, SCADA/BYTE1, SCADB/SIZE,
RETURN [1]

/

;P_P+S

T10Kl.MCR[10,1141]
I NOUT . MI C [ 10, 1 14 1 ]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 3510, 3511,3741,0104,407'4,4007,0700,0000,0000,0000
U 3511, 2334,3333,0004,7174,4007,0340,0400,0000,0425

,
!
U 2334, 3512,0111,1103,4364,4007,0700,0200,0024,1016

U 2335, 3512,0111,1003,4364,4007,0700,0200,0024,1016
U 3512, 3513,3771,0002,4365,5617,0700,0200,0000,0002
U 3513, 2336,4553,0200,4374,4007,0321,0000,0070,0000
U 2336, 2711,4443,0000,4174,4467,0700,0000,0001,0000
U 2337, 2732,4551,0202,4374,0007,0700,0000,0077,7740

\

6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991
6992

KS10 MICROCODE V124, 27-JUL-84
TRAPS
.TOC
\

TRAP:
=0

"TRAPS"

[ARX] PC WITH FLAGS
WORK[TRAPPC] [ARX],
SKIP KERNEL
[AR] [AR]+[UBR],
MEM READ,
START READ,
VMA PHYSICAL,
J/TRP1
[AR] [ARJ+[EBRJ,
MEM READ,
START READ,
VMA PHYSICAL,
J/TRP1

TRP 1 :

=0

Page 191

MEM READ, [HRJ_MEM,
LOAD INST
[HRJ.AND.#,
#/700000, 3T,
SKIP ADL.EQ.O
CHANGE FLAGS,
HOLD USER/1,
J/XCT1
UUO

;SAVE THE PC WHICH CAUSED THE
; TRAP
;SEE IF UBR OR EBR
;ADDRESS OF INSTRUCTION
;WAIT FOR PREFETCH TO GET INTO
; THE CACHE. MAY PAGE FAIL BUT
; THAT IS OK
;START FETCH
;ABSOLUTE ADDRESSING
;JOIN COMMON CODE
;WE COME HERE IN EXEC MODE
;WAIT FOR PREFETCH TO GET INTO
; THE CACHE. MAY PAGE FAIL BUT
; THAT IS OK
;START FETCH
;ABSOlUTE ADDRESSING
;JOIN COMMON CODE
PLACE INSTRUCTION IN HR
LOAD IR, XR, @
TEST TO SEE IF THIS
IS A UUO
NOT A UUO
CLEAR TRAP FLAGS
DO THE INSTRUCTION
DO THE UUO

T10KL~10'1141]
INOUT.MIC[10,1141]

".

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

D 0700, 1200,1700,4100
D 0701, 1200,1720,4100
U
U
U
U
U

1701,
1702,
1703,
1706,
1707,

2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000',0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
3516,3771,0005,4304,4007,0701,0000,0000,0000
3514,3771,0005,4304,4007,0701,0000,0000,0000

U
U
U
U
U
U

1710,
1711,
1712,
1713,
1716,
1717,

2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
3517,3441,1405,4174,4007,0700,0000,0000,0000
3515,3441,1405,4174,4007,0700,0000,0000,0000

U 1720, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1726, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1727, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U
U
U
U
U
U
U
U

1730,
1731,
1732,
1733,
1734,
1735,
1736,
1737,

2732,4551 .. 0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,77'40
2732,4551,0202,4374,0007,0700,0000,0077,7740
2732,4551,0202,4374,0007,0700,0000,0077,7740

U 3514, 3515,4251,0505,4374,4007,0706,0000,0000,7770
U 3515, 0260,4113,0305,4174,4007,0330,0000,0000,0000
U 3516, 3517,4251,0505,4374,4007,0700,0000,0000,7770
U 3517, 1400,4113,0305,4174,4007,0330,OOOO,OOQg,9QQQ

6993
6994
6995
6996
6997
6998
6999
7000
7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018
7019
7020
7021
7022
7023
7024
7025
7026
7027
7028
7029
7030
7031
7032
7033

~

KS'lv/MICROCODE V124, 27-JUL-84
10 -- INTERNAL DEVICES
.TOC
700:

1701 :
1702:
1703:
1706:
1707:
1710:
RDERA:
1711 :
1712 :
1713:
1716:
1717:

Page 192

"10 -- INTERNAL DEVICES"

.DCDOE
10T,AC DISP,
IOT,AC DISP,
.UCODE

J/GRP700
J/GRP701

UUO
;DATAI APR,
UUO
;BLKO APR,
UUO
;DATAO APR,
[BR] APR, J/APRSZ ;CONSZ APR,
[BRCAPR, J/APRSO ;CONSO APR,
;BLKI PI,
UUO
UUO
;DATAI PI,
UUO
;BLKO PI,
UUO
;DATAO PI,
[BR] [PI], J/CONSZ ;CONSZ PI,
[BR] [PI], J/CONSO ;CONSO PI,

1720:
GRP701: UUO
1726:
UUO
1727:
UUO

;BLKI PAG,
;CONSZ PAG,
;CONSO PAG,

;6801 AND CACHE SWEEP STUFF
1730:
UUO
1731 :
UUO
1732:
UUO
1733:
UUO
UUO
1734:
UUO
1735 :
1736:
UUO
1737:
UUO
APRSO:
CONSO:

[BR] [BR].AND.# CLR LH, #/7770
[BR]~AND.[AR], SKIP ADR.EQ.O, J/SKIP

APRSZ:
CONSZ,:

[BR] [BR].AND.# CLR LH, #/777~ J~6.
[BR] .ANO. [AR], SKIP AOR. E.Q.O, J/OONE, •

MI CtlDC&IIi:

f,(J~'erI&ii (MIfJfItl.)/r..tCR,

/14 [Cfoc-t>£

~e~-t1'1617 (1IlIVOP,) / Ucp.,

: Fltt)

i

w,,-r"

; ,"v

f,y MWb st"D

~.(·",I

(1i'"(" of

(C>

0"7

e,,)

'A)./o!

T10KL.MCR[10,1141]
lNOUT.MIC[10,1141J

15:34 27~JULY-1984
09:1727-JULY-1984

MICRO 31 (254)

U 1700, 0137,3771,0005,4374,4007,0700,0000,0001,0001

U 0137, 3626,3771,0005,4374,0007,0700,0000,0055,0124
U 1704, 3520,3771,0005,7274,4007,0701,0000,0000:0230
U 3520, 3521,5551,0505,4370,4007,0700,0000,0000,0007
U 3521, 3522,4551,0304,4374,4007,0700,0000,0000,0007
U 3522, 3523,3111,0405,4174,4007,0700,0000,0000,0000
U
U
U
U
U
U
U
U
U
U
U

3523,
3524,
2340,
2341,
2342,
2343,
3525,
2344,
2345,
2346,
2347,

3524,4551,0304,4374,4007,0700,0000,0000,7760
2340,4553,0300,4'374,4007,0331,0000,0010,0000
2341,3111,0405,4174,4007,0700,0000,0000,0000
2342,4553,0300,4374,4007,0331,0000,0004.0000
2343,5111,0405,4174,4007,0700,0000,0000,0000
3525,3771,0006,4304,4007,0701,0000,0000,0000
2344,4553,0300,4374.4007,0331,0000,0002.0000
2345,5111,0406,4174,4007,0700,0000,0000,0000
2346,4553,0300,4374,4007,0331,0000,0001,0000
2347,3111,0406,4174,4007,0700,0000,0000,0000
2350,4553,0300,4374,4007,0331,0000,0003,0000

3530,3333,0006,4174,4007,0700,0000,0000,0000
U 2351, 3526,3333,0005,4174,4007,0700,0000,0000,0000

U 2350,

U 3526, 3527,3333,0005,4174,4257,0700,0000,0000,0000
U 3527, 1400,3333,0005,7174,4007,0700,0400,0000,0230
U 3530,

3531,3333,0006,4174,4237,0700,0000,0000,0000

U 3531,

3532,5551,0606,4370,4007,0700,0000,0000,2000

U 3532, 2351,3333,0006,4174,4237,0700,0000,0000,0000

7034
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082

KS10 MICROCODE V124, 27-JUL-84
10 -- INTERNAL DEVICES
1700:
GRP700:
APRID :
137:

Page 193

[BR) #,
#/4097.
[BR) #,
MICROCODE OPTION(INHCST)/OPT,
MICROCODE OPTION(NOCST)/OPT,
MICROCODE OPTION(NONSTD)/OPT,
MICROCODE OPTION(UBABLT)/OPT,
MICROCODE OPTION(KIPAGE)/OPT,
MICROCODE OPTION(KLPAGE)/OPT,
MICROCODE VERSION/UCV,
HOLD RIGHT,
J/RTNREG

1704:
WRAPR:

[BR] WORK[APR)
[BR]-[BR].AND.NOT.#,
;CLEAR THE OLD PIA
#/7,-HOLD LEFT
, ..
[ARX] [AR],AND.#, #/7
;PUT NEW PIA IN ARX
[BR] TBR].OR.[ARX]
;PUT NEW PIA IN BR
[ARX] [AR].AND.#,
;MASK THE DATA BITS
#/007760
; OOWN TO ENABLES
TR [AR], #/100000
;WANT TO ENABLE ANY?
=0
[BR] [BRJ.OR.[ARXJ
;YES--SET THEM
TR CAR], #/40000
;WANT TO DISABLE ANY?
=0
[BRJ [BRJ.AND.NOT.[ARX] ;YES--CLEAR THEM
(BRX] APR
;GET CURRENT STATUS
TR [AR], #/20000
;WANT TO CLEAR FLAGS?
=0
[BRX] [BRX].AND.NOT.[ARXJ ;YES--CLEAR BITS
TR [AR], #/10000
;WANT TO SET ANY FLAGS?
=0
[BRXJ [BRX).OR.[ARXJ
;YES--SET FLAGS
TR [AR], #/30000
;ANY CHANGE AT ALL?
=0
READ [BRX),
;YES--LOAD NEW FLAGS
J/WR~PR2
;TURN OFF INTERRUPT 8080
WRAPR 1 : READ [BR),
;FIX DPM TIMING BUG
READ [BR],
;ENABLE CONDITIONS
SET APR ENABLES
WORK[APR] [BRJ,
;SAVE FOR RDAPR
J/DONE
;ALL DONE
WRAPR2: READ [BRX).
SPEC/APR FLAGS
[BRX) [BRXj.AND.NOT.#,
#/002000. HOLD LEFT
READ [BRX],
SPEC/APR FLAGS.
J/WRAPR1

;LOAD NEW FLAGS
;CLEAR INTERRUPT THE 8080
; FLAG
;LOAD NEW FLAGS
;LOOP BACK

.,.....,.

()
T 10K l. MeR [ 10, 1 14 1 ]
INOUT.MIC[10,1141]

..

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 1705, 3533,3771,0005,7274,4007,0701,0000,0000,0230
U 3533, 3534,3770,0505,4344,0007,0700,0000,0000,0000
U 3534, 3535,4551,0505,4374,0007,0700,0000,0000,7760
U 3535, 3536,4551,0505,4370,4007,0700,0000,0000,0007
U 3536, 3537,3771,0004,4304,4007,0701,0000,0000,0000
U 3537, 3540,4251,0404,4374,4007,0700,0000,0000,7770
U 3540, 3626,3111,0405,4174,4007,0700,0000,0000,0000

7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
1098

KS10 MICROCODE V124, 27-JUL-84
10 -- INTERNAL DEVICES
1705:
RDAPR:

[BR] WORK[APR]
[BR]-[BR] SWAP,
HOLD-RIGHT
[BR] [BR]. AND. # ,
#/7760,
HoLD RIGHT
[BR] [BRJ.AND.#,

Page 194

;PUT ENABLES IN BOTH
; HALVES
;SAVE ENABLES IN LH
;SAVE PIA IN RH

#/7~

HOLD LEFT
[ARX] APR
;REAO THE APR FLAGS
[ARX]-[ARX].AND.# CLR LH, ;MASK OUT JUNK
;KEEP 8 FLAGS
#/00i770
[BR] [BR].OR.[ARX],
;MASH THE STUFF TOGETHER
J/RTNREG
;RETURN

T10KL.MCR[10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 1723, 3541,3443,0300,4174,4007,0700,0200,0004,0012
U 3541, 2352,3771,0003,4365,5007,0521,0200,0000,0002

U 2352, 2354,4551,0303,4374,0007,0321,0000,0010,0000
U 2353, 3542,4551,1111,4374,0007,0700,0000,0077,0077
U 3542, 2354,4553,0300,4374,4007,0321,0000,0010,0000'

U 2354, 3543,4551,0305,4374,4007,0700,0000,0001,7777

U 2355, 1400,3111,0311,4174,0477,0700,0000,0000,0000
U 3543, 2356,4221,0005,4174,0007,0700,2000,0071,0007

U 2356, 2356,3445,0505,4174,4007,0630,2000,0060,0000
U 2357, 3544,4551,1111,4374,0007,0700,0000,0077,7774
U 3544, 3545,4221,0011,4170,4007,0700,0000,0000,0000
U 3545,3546,3111,0511,4174,4007,0700,0000,0000,0000

U 3546, 2426,3111,0311,4174,0477, 0700, OOOO~ 0000, 0000

\

\

/

7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109
7110
7111
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
'7123
7124
7125
7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145

. KS10 MICROCODE V124, 27-JUL-84 Page 195
10 -- INTERNAL DEVICES -- EBR & UBR
.TOC
1723:
WRUBR:

=0

=0
ACBSl:T:

"10

INTERNAL DEVICES -- EBR

VMA [AR],
START READ
MEM READ,
[AR) MEM, 3T,
SKIP-DPO
[AR] [AR] .AND. #,
#/100000,
HOLD RIGHT,
SKIP ADL.EQ.O, 3T,
J/ACBSET
[UBR) [UBR] .AND. #,
#/770077 ,
HOLD RIGHT
[ARI.AND.#,
#/100000, 3T,
SKIP ADL.EQ.O
[BR] [AR].AND.#,
#/17777,
J/SETUBR
[UBR] [UBR] .OR. [AR],

HOLD RIGHT,
LOAD AC BLOCKS,
J/DONE
SETUBR: [BR] 0,
SC 7-;
HOLD RIGHT
=0
STUBRS: [BR] [BR]*2,
STEP-SC,
J/STUBRS
[UBR] [UBR].AND.#,
#/777774,
HOLD RIGHT
[UBR] 0,
HOLD LEFT
[UBR] [UBR].OR.[BR]
[UBR]-[UBR].OR.[AR],
HOLD RIGHT,
LOAD AC BLOCKS,
J/SWEEP

& UBR"

;LOAD E INTO VMA
;START MEMORY
;WAIT FOR DATA
;PUT IT INTO THE AR
;SEE IF WE WANT TO LOAD
, AC BLOCK NUMBERS
;NO--CLEAR JUNK IN AR
; LEAVE ONLY LOAD UBR
; IN LEFT HALF
;SEE IF WE WANT TO LOAD
;SKIP AROUND UBR LOAD
;MASK OUT THE OLD
, AC BLOCK NUMBERS
;IN THE LEFT HALF
;SEE IF WE WANT TO LOAD
; UBR ALSO
;COPY UBR PAGE NUMBER
; INTO 6R
; GO LOAD UBR.
;00 NOT LOAD UBR
; PUT AC BLOCK # IN
, THE LEFT HALF
;LOAD HARDWARE
;ALL DONE
; CLEAR BR LEFT
;PUT THE COUNT IN SC
;SHIFT BR OVER
; 9 PLACES
;MASK OUT OLD UBR
; BITS IN
LEFT HALF
;CLEAR RIGHT HALF
;PUT IN PAGE TABLE ADDRESS
;PUT IN AC BLOCK #
, IN LEFT HALF
;TELL HARDWARE
; CLEAR CACHE

.~.
/

TlOKLQ 10,1141]
INOUT.MIC[10,l141]

15:34 27-0ULY-1984
09:1727-0UlY-1984

MICRO 31(254)

U 1724, 2360,3445,0303,4174,4007,0700,2000,0071,0006
U 2360, 2360,3445,0303,4174,4007,0630,2000,0060,0000
U 2361, 35'47,3771,0005,7274,4007,0701,0000,0000,0230
U 3547, 3550,4551.0505,4370,4007,0700,0000.0074,7777
U 3550, 2362,4553,0300,4374,4007,0321,0000,0000,0020
U 2362, 2363,3551,0505,4370,4007,0700,0000,0003,0000
HAPPEN
U 2363, 3551,3333,0005,4174,4257,0700,0000,0000,0000
U 3551, 3552,3333,0005,7174,4007,0700,0400,0000,0230

KS10 MICROCODE V124, 27-0UL-84 Page 196
10 -- INTERNAL DEVICES -- EBR & UBR

7146
7147
7148
7149
7150
7151
7152
7153
7154

1724:
WREBR:
[AR] [AR]*2, SC_6
;DO A SHIFT OVER 8 MORE
=0
WREBR1: [AR] [AR]*2, STEP SC, 0/WREBR1
;SKIP WHEN = -1
. IF/FULL
;DO NOT ENABLE PAGING IN SMALL
; MICROCODE.
[BR] WORK[APR]
[BR]-[BR].AND.#, #/747777, HOLD LEFT
[AR]~AND.#, #/20, 3T, SKIP AOL.EQ.O
;BIT 22 - TRAP ENABL

7155

=0

7156
7157
7158
7159
7160
7161
7162
7163

READ [BR], SET APR ENABLES
WORK[APR] [BR]
.ENDIF/FULL

[BR] [BR].OR.#, #/030000, HOLD LEFT

.IF/KIPAGE
.IF/KLPAGE
[EBR] [AR]

[EBR]~AND.#,

;SET - ALLOW TRAPS T

;NOTE: SHIFTED LEFT 9 BITS
#/40, 3T, SKIP ADL.EQ.O
;BIT 21 - KL PAGING

NABLE
;; 7164

=0

[EBR] [EBR].OR.#, #/400000, HOLD RIGHT, 0/SWEEP ;YES, SET IN

ERNAL FLAG
; ; 7165

[EBR] [EBR].AND.NOT.#, #/400000, HOLD RIGHT, 0/SWEEP ;NO, CL

BIT 0

U 3552, 2426,3441,0310,4174,4007,0700,0000,0000,0000

U 1725, 2364,3447,1005,4174,4007,0700,2000,0071,0006
U 2364, 2364,3447,0505,4174,4007,0630,2000,0060,0000
U 2365, 3553,4551,0505,4374,4007,0700,0000,0006,3777
U 3553, 3626,4221,0005,4174,0007,0700,0000,0000,0000

;;7166
; 7167
; 7168
;;7169
; ;7170
7171
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185

.ENDIF/KLPAGE
.ENDIF/KIPAGE
.IFNOT/KLPAGE
[EBR] [AR],0/SWEEP
.ENDIF/KLPAGE

;MUST BE KI ONLY
;SO INTERNAL FLAG ISN'T USED

.IFNOT/KIPAGE
[EBR] [AR],0/SWEEP
.ENDIF/KIPAGE

;MUST BE KL ONLY
;SO INTERNAL FLAG ISN'T USED

1725:
RDEBR:
=0
RDEBR1:

[BR]_[EBR]*.5, SC_6
[BR] [BR]*.5, STEP SC, 0/RDEBR1
[BR]-[BR].AND.#, #/63777 ;MASK TO 0UST EBR
[BR]=O,
CLEAR LEFT HALF
HOLD RIGHT,
BITS
0/RTNREG
RETURN ANSWER

T10KL.MCR[10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 1721, 2366,3441,1105,4174,4007,0700,0000,0000,0000
U 2366, 2370,3447,0506,4174,4007,0700,2010,0071,0006
U 2367, 3626,4551,0505,4374,0007,0700,0000,0050,7700
U 3554, 3555,3441,1105,4174,4007,0700,0000,0000,0000
U 3555, 2370,3447,0506,4174,4007,0700,2000,0071,0006
U 2370, 2370,3447,0606,4174,4007,0630,2000,0060,0000
U 2371, 3560,4551,0606,4374,4007,0700,0000,0001,7777
U 3560, 0001 ,3441 ,0605,4170,4004,1700,0000,0000,0000

,
I

7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198.
7199
7200

KS10 MICROCODE V124, 27-JUL-84 Page 197
10 -- INTERNAL DEVICES -- EBR & UBR
1721:
ROUBR:
=0

GETPCW:

[BR] [UBR]
[BRX] [BR]*.5, SC 6, CALL [GTPCW1]
[BR] [BR].AND.#,
;JUST RETURN USEFUL
#/507700, HOLD RIGHT,
; BITS
J/RTNREG
[BR] [UBR]
[BRX] [BR]*.5, SC_6

=0

GTPCW1:

[BRX] [BRX]*.5, STEP SC, J/GTPCW1
[BRX]-[BRX).ANO.#, #/17777
[BR] [SRX] , HOLD LEFT, RETURN [1]

()
:'""c:R [

T 10KL
iV, 1141 ]
INDUT.MIC[10,1141]

D 0702,

.~

,

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

1216,1760,4700

U 1760, 3626,3771,0005,7274,4007,0701,0000,0000,0215
U 1761, 3626,3771,0005,7274,4007,0701,0000,0000,0216
U 1762, 3626,3771,0005,7274,4007,0701,0000,0000,0220
U 1763, 3626,3771,0005,7274,4007,0701,0000,0000,0217
U 1766, 3626,3711,0005,7274,4007,0701,0000,0000,0227
U 1767, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1770, 3561,4443,0000,4174,4007.0700,0200,0004,0002
U 3561, 3562,3771,0003,4365,5007,0700,0200,0000,0002
U 3562, 1400,3333,0003,7174,4007,0700,0400,0000,0215
U 1771, 3563,4443,0000,4174,4007,0700,0200,0004,0002
U 3563, 3564,3771,0003,4365,5007,0700,0200,0000,0002
U 3564, 1400,3333,0003,7174,4007,0700,0400,0000,0216
U 1772, 3565,4443,0000,4174,4007,0700,0200,0004,0002
U 3565, 3566,3771,0003,4365,5007,0700,0200,0000.0002
U 3566, 1400,3333,0003,7174.4007,0700,0400.0000.0220
U 1773. 3567,4443,0000,4174,4007,0700,0200.0004.0002
U 3567, 3570,3771,0003,4365,5007,0700,0200,0000,0002
U 3570, 1400,3333,0003,7174,4007,0700,0400.0000,0217
U
U
U
U

1776,
3571,
3572,
1777 ,

3571,4443,0000,4174,4007,0700,0200,0004,0002
3572,3771,0003,4365,5007.0700,0200,0000,0002
1400,3333,0003,7174,4007,0700,0400,0000.0227
2732,4551,0202,4374,0007,0700,0000,0077,7740

7201
7202
7203
7204
7205.
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218
7219
7220
7221
7222
7223
7224
7225
7226
7227
7228
7229
7230
7231
,7232
7233
7234
7235
7236
7237
7238
7239
7240
7241

KS10 MICROCODE V124, 27-JUL-84 Page 198
IO -- INTERNAL DEVICES -- KL PAGING REGISTERS

- - INTERNAL DEVICES - - KL PAGING REGISTERS"

.TOC

" 10

702:

.DCODE
IOT,AC DISP,
.UCODE

M,

J/GRP702

1760:
GRP702:
[BR] - VlORK [SBR] , J/RTNREG
RDSPB:
1761:
[BR] - WORK[CBR], J/RT~REG
RDCSB:
1762:
RDPUR:
[BR] VlORK [PUR] , J/RTNREG
1763:
RDCSTM: [BR] - VlORK[CSTM] , J/RTNREG
1766:
RDHSB:
[BR] WORK [HSBADR] , J/RTNREG
1767:
UUO
1770:
VlRSPB:
1771:
WRCSB:
1772:
WRPUR:

START READ
MEM READ. [AR] MEM
WORK[SBR] [AR]-:- J/DONE
START READ
MEM READ, [AR] MEM
WORK[CBR] [AR]-:- J/DONE
START READ
MEM READ, [AR] MEM
WORK[PURl [AR l-:- J/DONE

1773:
WRCSTM: START READ
MEM READ, [ARl MEM
\',IORK[CSTM] [AR], J/DONE
1776:
WRHSB:
START READ
MEM READ, [AR] MEM
WORK[HSBADR] CARl, J/DONE
1777:
UUO

I

T10KL.MCR[10,1141]
INOUT .MIC[ 10,1141]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 3573, 3574,3771,0003,7274,4117,0701,0000,0000,0301

U 3574, 3575,4751,1205,4374,4007,0700,0000,0001,0000
U 3575, 3576,0111,0503,4174,4007,0700,0000,0000,0000
U 3576, 2372,3770,0303,4174,0007,0520,0000,0000,0000
U 2372, 3577,3333,0003,7174,4007,0700,0400,0·000,0301
U 2373, 2374,3771,0003,7274,4007,0701,0000,0000,0300
U 2374, 3605,0111,0703,4174,4007,0700,0010,0000,0000
U 2376, 2372,4221,0003,4174,4007,0700,0000,0000,0000
U 3577, 3600,3771,0003,7274,4007,0701,0000,0000,0303
U 3600, 2400,1111,0503,4174,4007,0421,4000,0000,0000
U
U
U
U

2400,
2401,
3601,
3602,

0002,3333,0003,7174,4004,1700,0400,0000,0303
3601,3771,0003,7274,4007,0701,0000,0000,0302
3602,3771,0005,4304,4007,0701,0000,0000,0000
3603,3551,0505,4374,4007,0700,0000,0000,0040

U 3603, 2400,3333,0005,4174,4237,0700,0000,0000,0000

7242
7243
.7244
7245
7246
7247
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
727'1
7272

KS10 MICROCODE V124, 27-JUL-84 Page 199
10 -- INTERNAL DEVICES -- TIMER CONTROL
.TOC

"10 -- INTERNAL DEVICES -- TIMER CONTROL"

TICK:

[AR] WORK[TIME1],
SPEc7cLRCLK

TOCK:
=0
TaCK 1 :
=0*

TOCK2:
=0
TOCK3:

;BEGIN [123]
;GET LOW WORD
;CLEAR CLOCK FLAG
;END [123]
[BR] 0 XWD [10000]
;2 A 12 UNITS PER MS
[AR]-[AR}+[BR]
; INCREMENT THE TIMER
FIX TAR} SIGN, SKIP DPO ;SEE IF IT OVERFLOWED

WORK[TIME1] [AR},
J/TOCK2
[AR} WORK[TIMEO]
[.AR]-[AR]+1,·
CALL-[WRTIM1]
[AR} 0,
J/TOCKl
[AR] WORK[TTG]
[ARC[AR]-[BR],
SKIP-AD.LE.O

;STORE THE NEW TIME
;SKIP OVER THE OVERFLOW CODE
; GET HIGH WORD
;BUMP IT
;STORE BACK IN RAM
;CAUSE LOW WORD WORD
; TO GET STORED

WORK[TTG] [AR},
RETURN [2}
[AR} WORK[PERIOD}
[BR}-APR
[BR]-[BR].OR.#, #/40
READ-[BR],
SPEC/APR FLAGS,
J/TOCK3

;SAVE NEW TIME TO GO
;ALL DONE

;COUNT OOWN TIME TO GO
;SEE IF IT TIMED OUT

;GET CURRENT FLAGS
;SET TIMER INTERRUPT FLAG
;PLACE ON DP AND
; LOAD INTO HARDWARE
;ALL DONE

~

T10Kl.MCR[ 10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 1774, 3604,4443,0000,4174,4007,0700,0200,0004,0002
U 3604,

1120,3771,0003,4365,5007,0700,0200,0000,0002

U 1120, 3674,0111,0702,4170,4007,0700,0210,0004,0012
U 1121, 3605,4551,0404,4370,4007,0700,0010,0077,0000
U 1123,

1400,3333,0004,7174,4007,0700,0400,0000,0301

U 3605,0002,3333,0003,7174,4004,1700,0400,0000,0300
U 1764, 3606,4451,1205,4324,4007,0700,0000,0000,0000
U 3606, 3607,4451,1204,4324,4007,0700,0000,0000,0000
U 3607, 3610,4451,1206,4324,4007,0700,0000,0000,0000
U 3610, 2402,6113,0405,4174,4007,0621,0000,0000,0000
U 2402, 2403,3441,0604,4174,4007,0700,0000,0000,0000
U 2403, 3611,3771,0005,7274,4007,0701,0000,0000,0300
U 3611,

1124,0551,0404,7274,4007,0671,0000,0000,0301

U 1124, 3574,3771,0003,7274,4117,0700,0010,0000,0301

7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
7301
7302
7303
7304

U 1125, 3612,3333,0002,4174,4007,0700,0200,0003,0012
U 1126, 1764,4443,0000,4174,4007,0700,0000,0000,0000
U 3612, 3613,3333,0005,4175,5007,0701,0200,0000,0002
U 3613, 3614,0111,0702,4170,4007.0700,0200,0003,0012
U 3614, 1400,3333,0004,4175,5007,0701,0200,0000,0002

;

I

,

7305
7306
7307
7308
7309
7310
7311

KS10 MICROCOOE V124, 27-JUL-84 Page 200
10 -- INTERNAL OEVICES -- WRTIME & RDTIME
.TOC

"10 -- INTERNAL DEVICES -- WRTIME & RDTIME"

1774:
WRTIME: START READ
;FETCH WORD AT E
MEM READ,
;WAIT FOR DATA
[AR] MEM
;PUT WORD IN AR
=00
VMA THR]+1,
;BUMP E
START READ,
;START MEMORY
CALL [LOADARX]
;PUT DATA IN ARX
[ARX] [ARX].AND.#,
;CLEAR PART HELD IN
#/770000,
HARDWARE COUNTER
HOLD LEFT,
CALL [WRTIM1]
=11
WORK[TIME1] [ARX],
;IN WORK SPACE
J/DONE
;NEXT INSTRUCTION
WRTIM1: WORK[TIMEO] [AR],
RETURN [2]
1764:
RDTIME:

=0

=00

[BR] TIME
[ARX] TIME
[BRX]-TIME
[BR].XOR. [ARX],
SKIP AD.EQ.O
[ARX] [BRX]
[BR] WORK[TIMEO]
[ARX] [ARX]+WORK[TIME1],
SKIP/~1 MS
SPEC/CLRCLK,
[AR] WORK[TIME1], 2T,
CALL-flOCK]
READ [HR], LOAD VMA,
START WRITE, J/RDTIM1
J/RDTIME

;SAVE THE NEW VALUE

; READ THE TIME
; AGAIN
; AGAIN
;SEE IF STABLE
;NO THEN NEXT TRY MUST BE OK
;COMBINE PARTS
;SEE IF OVERFLOW HAPPENED
;CLEAR CLOCK FLAG
;GET LOW WORD FOR TOCK
;UPDATE CLOCKS
;DID NOT OVERFLOW
;STORE ANSWER
;TRY AGAIN

RDTIM1: MEM WRITE, MEM [BR]
VMA [HR]+1, LOAD VMA, START WRITE
MEM-WRITE, MEM_[ARX], J/DONE

T10KL.MCR[10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 1715, 3615,4443,0000,4174,4007,0700,0200,0004,0002
U 3615, 361'6,3771,0003,4365,5007,0700,0200,0000,0002
U 3616, 3617,3333,OQ03,7174,4007,0700,0400,0000,0302
U 3617, 1400,3333,0003,7174,4007,0700,0400,0000,0303

U 1765, 3626,3771,0005,7274,4007,0701,0000,0000,0302

7312
7313
7314
7315
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325

KS10 MICROCODE V124, 27-JUL-84 Page 201
10 -- INTERNAL DEVICES -- WRINT & RDINT
.TOC
1775:
WRINT:

1765:
RDINT:

"10

INTERNAL DEVICES -- WRINT & RDINT"

START READ
MEM READ, [ARLMEM
WORK[PERIOD] [AR]
WORK[TTGL[AR] ,
J/DONE
[BR] WORK[PERIOD] ,
J/RTNREG

,

\

"

/

(',
,

/

T 10KL. MeR [ 10, 1141 ]
INOUT .MIC[ 10,1141 )

15:34 27~JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 1715, 3626,3441,1405,4174,4007,0700,0000,0000,0000
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U

1714,
2404,
2405,
2406,
2407,
3620,
3621,
2410,
2411,
2412,
2413,
2414,
2415,
2416,
2417,
2420,
2421,
U 0404,
U 0405,

2404,4553,0300,4374,4007,0331,0000,0001,0000
2405,4221,0014,4174,4007,0700,0000,0000,0000
2406,4553,0300,4374,4007,0331,0000,0074,0000
2732,4551,0202,4374,0007,0700,0000,0077,7740
3620,4551,0305,4374,4007,0700,0000,0000,0177
3621,3770,0505,4344,0007,0700,0000,0000,0000
2410,4553,0300,4374,4007,0331,0000,0002,0000
2411,5111,0514,4174,0007,0700,0000,0000,0000
2412,4553,0300,4374,4007,0331,0000,0000,4000
2413,3111,0514,4174,0007,0700,0000,0000,0000
2414,4553,0300,4374,4007,0331,0000,0000,0200
2415,3551,1414,4370,4007,0700,0000,0000,0200
2416,4553,0300,4374,4007,0331,0000,0000,0400
2417,5551,1414,4370,4007,0700,0000,0000,0200
2420,4553,0300,4374,4007,0331,0000,0000,2000
2421,3111,0514,4170,4007,0700,0000,0000,0000
0404,4553,0300,4374,4007,0331,0000,0000,1000
0405,5111,0514,4170,4007,0700,0000,0000,0000
3623,3770,1416,4344,4007,0700,0010,0000,0000

U 0415, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U 3622, 3623,3770,1416,4344,4007,0700,0000,0000,0000
U 3623, 3624,2441,0716,4170,4007,0700,4000,0000,0000
U ~624, 3625,4111,1416,4174,4007,0700,0000,0000,0000
U 3625, 0010,7443,1600,4174,4434,1700,0000;0000,0000

7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365

KS10 MICROCODE V124, 27-JUL-84 Page 202
10 -- INTERNAL DEVICES -- RDPI & WRPI
INTERNAL DEVICES -- RDPI & WRPI"

.TOC

"10 --

1715:
RDPI:

[BR] [PI], J/RTNREG

1714:
WRPI:
=0

TR [AR], PI.CLR/1
[PI] 0
TR [AR], PI.MBZ/17
=0
UUO
[BR] [AR].AND.#,#/177
[BR] [BR] SWAP, HOLD RIGHT
TR [AR], PI.DIR/1
=0
[PI] [PI].AND.NOT.[BR], HOLD RIGHT
TR CAR], PI.REQ/1 .
=0
[PI] [PIJ.OR.[BR], HOLD RIGHT
TR [AR), PI. TSN/1
=0
[PI] [PI].OR.#,PI.ON/l, HOLD LEFT
TR [ARJ, PI. TSF/1
=0
[PI] [PI].ANO.NOT.#,PI.ON/1, HOLD LEFT
TR [AR), PI.TCN/1
[PI] [PI].OR.[BR], HOLD LEFT
=0
tR [AR), PI.TCF/1
[PI] [PI].AND.NOT.[BR], HOLD LEFT
=0**0
PIEXIT: CALL LOAD PI
=1'·*1
DONE
;SUBROUTINE TO LOAD PI HARDWARE
; CALL WITH:
;
CALL LOAD PI
;RETURNS 10 WITH PI HARDWARE LOADED
LOADPI:
LDPI2:

[TO] [PI] SWAP
[TO]--l, HOLD LEFT
[TO)-[TO].AND.[PIJ
.NOT~[TO], LOAD PI,
RETURN [10]

PUT ACTIVE CHANS IN LH
DONT MASK RH
ONLY REQUEST CHANS THAT ARE ON
RELOAD HARDWARE
RETURN TO CALLER

T10KL.MCR[10,1141)
INOUT.MIC[10,1141)

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 3626, 3627,3443,0300,4174,4007,0700,0200,0003,0012
U 3627, 1400,3333,0005,4175,5007,0701,0200,0000,0002

.~
\

/

7366
7367
7368
7369
7370
7371
7372

KS10 MICROCODE V124, 27-JUL-84 Page 203
10 -- INTERNAL DEVICES -- SUBROUTINES
.TOC

"10 -- INTERNAL DEVICES -- SUBROUTINES"

;HERE WITH SOMETHING IN BR STORE IT
RTNREG: VMA [ARl, START WRITE
MEM-WRITE, MEM_[BR), J/DONE

\

~AR

/

~)

~
\
}
T 10K L.McR [ 1O. 1 14 1 ]
INOUT.MIC[10.1141)

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 1722. 3630.3443.0300.4174.4147.0700.0200.0000.0010
U 3630. 2422.4221.0003.4174.4007.0700.0000.0000.0000
U 2422. 3634.3771.0003.4374.4007.0700.0010.0037.7377
U 2423. 3631.3771.0005.4374.4247.0700.0000.0000.1001
U 3631. 2424.3333.0003.4174.4247.0700.0000.0000.1000

"-

U 2424. 2424.1111,0503,4174.4247,0630,6000.0060.1000
U 2425, 2431.3333.0003.4174,4007,0700.0000.0000.0000

U 2426. 3634.3771.0003.4374.4007.0700.0010,0037.7377
U 2427, 3632,3771.0005.4374.4347.0700.0000.0000.1001
U 3632, 2430.3333.0003,4174.4347.0700.0000.0000.1000

U 2430, 2430,1111.0503,4174,4347.0630.6000.0060.1000
U 2431. 3633.4223.0000,7174.4007.0700.0400,0000.0424
U 3633.

1400,4223.0000.7174,4007.0700.0400.0000.0423

U 3634. 0001,4443,0000,4174.4004 ..1700.2000.0071.0375

7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
738B
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401
7402
7403
7404
7405
7406
7407
7408
7409

KS10 MICROCODE V124, 27-JUL-84 Page 204
10 -- INTERNAL DEVICES -- SUBROUTINES
;CACHE SWEEP
1722 :
CLRPT:

VMA [ARl.
LOAD PAGE TABLE
[AR] 0
[AR]-#.#/377377.
CALL-[SSWEEP]
[BRl #, #/1001.
CLRCSH
READ [AR], CLRCSH

;PUT CORRECT ADDRESS IN VMA
;GET SET TO WRITE PAGE TABLE
;CLEAR ENTRY
;INITIAL VMA VALUE
;LOAD THE SC
;CONSTANT TO KEEP ADDING
;START TO CLEAR CACHE
;FIRST THING TO CLEAR

[AR] [AR]-[BRl.
CLRCSH,
STEP SC.
J/CLRPTL
READ [AR], J/lAPPTA

;UPDATE AR (AND PUT ON DP)
;SWEEP ON NEXT STEP
;SKIP IF WE ARE DONE
;LOOP FOR ALL ENTRIES
;CLEAR LAST ENTRY

[AR] #,#/377377,
CALL-[SSWEEPl
[BR] #, #/1001,
SWEEP
READ [AR], SWEEP

;INITIAL VMA
;LOAD NUMBER
;CONSTANT TO
;START SWEEP
;FIRST THING

[ARl [AR]-[BRl,
SWEEP,
STEP SC,
J/SWEEPL

ZAPPTA: WORK[PTA.U] 0
WORK[PTA.E]-O.
J/DONE

;UPDATE AR (AND PUT ON DP)
;SWEEP ON NEXT STEP
;SKIP IF WE ARE DONE
;LOOP FOR ALL ENTRIES
;CLEAR LAST ENTRY AND
; FORGET PAGE TABLE ADDRESS
;FORGET PAGE TABLE ADDRESS
;ALL DONE

SSWEEP: SC S#. S#/375.
RETURN [lJ

;NUMBER OF STEPS
;RETURN

=0

=0

CLRPTL:

=0

SWEEP:

VALUE
OF STEPS INTO SC
KEEP ADDING
TO CLEAR

=0

SWEEPL:

T10KL.MCR[10,1141]
INOUT.MIC[10,1141]

U
U
U
U
U
U
U
U
U
U
U
U
U
U
U

0770,
0771,
0772,
0773,
0774,
0775,
0776,
0777,
3635,
3636,
3637,
3640,
3641,
3642,
3643,

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

0770,3773,0000,4074,4003,1701,0000,0000,0000
3635,3551,141 4 ,4370,4007,0700,0000,0004,0000
3636,3551,1414,4370,4007,0700,0000,0002,0000
3637 .. 3551, 1414.4370,4007,07.00,0000,0001,0000
3640,'3551,1414,4370,4007,0700,0000,0000,4000
3641,3551,1414,4370,4007,0700,0000,0000,2000
3642,3551,1414,4370,4007,0700,0000,0000,1000
3643,3551,1414,4370,4007,0700,0000,0000,0400
3644,4751,1206,4374,4007,0700,0000,0000,0001
3644,4751,1206,4374,4007,0700,0000,0000,0002
3644,4751,1206,4374,4007,0700,0000,0000,0003
3644,4751,1206,4374,4007,0700,0000,0000.0004
3644,4751,1206,4374,4007,0700,0000,0000,0005
3644,4751,1206,4374,4007,0700,0000,0000,0006
3644,4751,1206,4374,4007,0700,0000,0000,0007

U 3644, 3645,4251,1403,4374,4007,0700,0000,0007,7577
U 3645, 3646,7443,0300,4174,4437,0700,0000,0000,0000
U 3646, 2432,4223,0000,4364,4277,0700,0200,0000,0010
U 2432, 3701,4571,1203,4374,4007,0700,0010,0024,1300
U 2433, 2434,3771,0003,4364,4007,0331,0200,0000,0002
U 2434, 3655,4221,0004,4174,4007,0700,0000,0000,0000
U 2435, 3647,3445,0603,4174,4007,0700,0000,0000,0000
U 3647, 3650,0551,0303,4370,4007,0701,0000,0000,0040
U 3650, 3651,0111,1003,4174,4007,0700,0000,0000,0000

7410
7411
7412
7413
7414
7415
7416
7417
7418
7419
7420
7421
7422
7423
7424
7425
7426
7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450
7451
7452

KS10 MICROCODE V124, 27-JUL-84 Page 205
10 -- INTERNAL DEVICES -- SUBROUTINES
;WE COME HERE EITHER FROM NEXT INSTRUCTION DISPATCH OR PAGE FAIL
; LOGIC. IN ALL CASES, THE CURRENT INSTRUCTION IS CORRECTLY SETUP
; TO RESTART PROPERLY.
;FIRST SET THE CORRECT PI IN PROGRESS BIT
[FLG] [FLG].OR.#,FLG.PI/l, HOLD RIGHT,
J/PI
;SET PI CYCLE AND PROCESS
=1000
AD/D, DBUS/PI NEW,
;LOOK AT NEW LEVEL
PI:
DISP/DP LEFT, 3T,
;DISPATCH ON IT
J/PI
;GO TO 1 OF NEXT 7 PLACES
[PI] [PI].OR.#, #/040000, HOLD LEFT, J/PIPl
=1001
[PI] [PI].OR.#, #/020000, HOLD LEFT, J/PIP2
= 1010
= 1011
[PI]-[PI].OR.#, #/010000, HOLD LEFT, J/PIP3
= 1100
[PI] [PIJ.OR.H, #/004000, HOLD LEFT, J/PIP4
[PI]-[PI).OR.#, #/002000, HOLD LEFT, J/PIP5
= 1101
=1110
[PI] [PI].OR.#, #/001000, HOLD LEFT, J/PIP6
= 1111
[PI] [PI].OR.#, #/000400, HOLD LEFT, J/PIP7
PIP 1 :
[BRX] 0 XWD [1], J/PI10 ;REMEMBER WE ARE AT LEVEL
PIP2:
[BRX]-O XWD [2], J/PI10 ;REMEMBER WE ARE AT LEVEL
[BRX]-O XWD [3], J/PI10 ;REMEMBER WE ARE AT LEVEL
PIP3:
[BRX]-O XWD [4], J/PI10 ;I~EMEMBER WE ARE AT LEVEL
PIP4:
PIP5:
[BRX]-O XWD [5], J/PI10 ;REMEMBER WE ARE AT LEVEL
[BRX)-O XWD [6], J/PI10 ;REMEMBER WE ARE AT LEVEL
PIP6:
PIP7:
[BRX]=O XWD [7], J/PI10 ;REMEMBER WE ARE AT LEVEL
Pll0:

=0

=0

[AR) [PI].AND.# CLR LH,
#/077577
.NOT. [AR], LOAD PI
ABORT MEM CYCLE
[AR] VMA 10 READ,
WRU CYCLE/1,
CALL [STRTIO]
MEM READ,
[AR] 10 DATA, 3T,
SKIP-ADR.EQ.O
[ARX] 0, J/VECINT
[AR] [BRX]*2
[AR] [AR]+#, #/40, 3T,
HOLD-LEFT
[AR) [AR)+[EBR],
J/PI40

;TURN OFF PI SYSTEM
; TILL WE ARE DONE
;NO MORE TRAPS
;SETUP TO READ WRU BITS
;START THE CYCLE
; WAIT FOR DATA
;PUT DATA IN AR
;SEE IF ANYONE THERE
;YES--VECTORED INTERRUPT
;N*2
;2*N+40
;ABSOULTE ADDRESS OF
; INTERRUPT INSTRUCTION

PI

1
2
3
4
5
6
7

n

T 10K L >k_o'I [ 10, 114 1 ]
INOUT.MIC[10,1141]

15:34 27-JULY-.1984
09:1727-JULY-1984

MICRO 31(254)

U 3651, 3652,3443,0300,4174,4007,0700,0200,0024,1016
U
U
U
U

3652,
3653,
2436,
2437,

3653,3771,0003,4365,5007,0701,0200,0020,0012
2436,6553,0300,4374,4007,0321,0000,0025,4340
2440,6553,0300,4374,4007,0321,0000,0026,4000
3654,4521,1205,4074,4007,0700,0000,0000,0000

U 3654, 0060,4223,0000,4174,4467,0700,0000,0000,0004

U 2440, 0104,4751,1217,4374,4007,0700,0000,0000,0101
U 2441, 0470,4443,0000,4174,4007,0700,0200,0023,0002
U 0470, 3702,3741,0105,4074,4007,0700,0010,0000,0000
GS
U 0474, 3677,3771,0003,4374,0007,0700,0010,0000,0000
U 0475, 2677,3441,0301,4174,4467,0700,0000,0000,0004

7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465
7466
7467
7468
7469
7470
7471
7472
7473
7474
7475
7476
7477
7478
7479

KS.v MICROCODE V124, 27-JUL-84 Page 206
10 -- INTERNAL DEVICES -- SUBROUTINES
;HERE WITH ABSOLUTE ADDRESS OF INTERRUPT INSTRUCTION IN [AR]
PI40:
VMA [AR], VMA PHYSICAL READ
;FETCH THE INSTRUCTION
PI50:
MEM-READ, [AR] MEM, LOAD VMA,
;FETCH INSTRUCTION
3T, FORCE EXEC;E IS EXEC MODE
[AR).XOR.#, #/254340, 3T, SKIP ADL.EQ.O
=0
[AR].XOR.#, #/264000, SKIP ADL.EQ.O, 3T, J/PIJSR
[BR] FLAGS
;SAVE FLAGS
AD/ZERO, LOAD FLAGS,
J/PIXPCW
;ENTER EXEC MODE AND ASSUME
; WE HAVE AN XPCW
;IF WE HALT HERE ON A VECTORED INTERRUPT, WE HAVE
TO/ WHAT WE READ FROM BUS AS VECTOR
ARX/ EPT+100+DEVICE
BR/ ADDRESS OF ILLEGAL INSTRUCTION
BRX/ VECTOR (MASKED AND SHIFTED)
=0
PIJSR: HALT [ILLII]
NOT A JSR OR XPCW
START WRITE, FORCE EXEC
PREPARE TO STORE OLD PC
[BR] PC WITH FLAGS,
OLD PC
=0*0
CALL-[STDBR]
STORE OLD PC
[AR] #, #/0, HOLD RIGHT,
;PREPARE TO CLEAR FL
=1*0
=1*1

CALL [INCAR]
[PC] [AR], LOAD FLAGS,
J/PISET

BUMP POINTER
NEW PC
CLEAR PI CYCLE & START
INTERRUPT PROGRAM

Tl0KL.MCR[10,1141]
INOUT. MIC[ 10,1141]

15:34 27-JULY~1984
09:1727-JULY-1984

MICRO 31 (254)

U 3655, 2442,3445,0303,4174,4007,0530,0000,0000,0000
U 2442, 3655,0111,1504,4174,4007,0700,0000,0000,0000
U 2443, 2444,4571,1203,4374,4007,0700,0000,0024,1240
U 2444, 3701,3111,0403,4174,4007;0700,0010,0000,0000
U 2445, 2446,3771,0016,4364,4007,0700,0200,0000,0002
U 2446, 3676,0551,1005,4374,4007,0701,0010,0000,0100
U 2447, 3656,0111,0504,4174,4007,0700,0200,0024,1016
U 3656, 2450,3771,0005,4365,5007,0331,0200,0000,0002
U 2450, 3657,4557,1606,4374,4007,0701,0000,0000,0774
U 2451, 0104,4751,1217,4374,4001,0700,0000,0000,0102
U 3657, 3660,3447,0606.4174,4007,0700,0000,0000.0000
U 3660, 3652,0111,0605,4174,4007.0700.0200,0024.0012

KS10 MICROCODE V124, 27-JUL-84 Page 207
10 -- INTERNAL DEVICES -- SUBROUTINES

7480 ;HERE TO PROCESS A VECTORED INTERRUPT. AT THIS POINT:
7481
AR! WRU BITS (BIT 18 FDR DEVICE 0)
7482
ARX/ 0
7483 VECINT: [AR] [AR]*2,
;SHIFT LEFT (UNSHIFTED ON DP)
7484
SKIP DP18
;ANYONE THERE?
7485 =0
[ARX] [ARX]+[XWD1),
;NO--BUMP BOTH HALVES
7486.
J!VECINT
;KEEP LOOKING
7487
[AR) VMA 10 READ.
;SETUP FOR VECTOR CYCLE
7488
VECTOR CYCLE!1
74a9 =0
[AR) [AR].OR.[ARX).
;PUT IN UNIT NUMBER
CALL-[ STRTIO)
7490
;START CYCLE
7491
MEM READ,
;WAIT FOR VECTOR (SEE DPM5)
7492
[TO) 10 DATA
;GET VECTOR
[BR)-[EBR)+#, 3T, #/100,
7493 =0
;EPT+l00
7494
CALL [CLARXL)
;CLEAR ARX LEFT
7495
[ARX) [ARX)+[BR],
; EPT+ 100+DEVICE
7496
VMA PHYSICAL READ
;FETCH WORD
7497
MEM READ, [BR] MEM, 3T, ;GET POINTER
SKIP ADR.EQ.O 7498
;SEE IF NON-ZERO
7499 =0
[BRX] ([TO].AND.#)*.5, 3T, ;OK--MAKE VECTOR MOD 400
7500
#!774~' J/VECIN1
; AND SHIFT OVER
7501
HALT [ILLINT]
7502 VECIN1: [BRX] [BRX)*.5
SHIFT 1 MORE PLACE
7503
[BR] [BR]+[BRX],
ADDRESS OF WORD TO USE
7504
LOAD-VMA, FORCE EXEC,
FORCE EXEC VIRTUAL ADDRESS
7505
START READ, J/PI50
GO GET INSTRUCTION
7506

/

Cj
Tl0KL.MCR[10,1141]
INOUT.MIC[10,1141j

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 2452, 3661,3771,0005,4374,4007,0700,0000,0004,0000
U 2453, 0004,4443,0000,4174,4004,1700,0000,0000,0000
U 3661, 2454,4113,0514,4174,4007,0330,0000,0000,0000
U 2454" 0004,5111,0514,4170,4004,1700,0000,0000,0000
U 2455, 3661,3447,0505,4174,4007,0700,0000,0000,0000

7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520
7521

KS10 MICROCODE V124, 27-JUL-84 Page 208
PRIORITY INTERRUPTS -- DISMISS SUBROUTINE
.Toe

"PRIORITY INTERRUPTS -- DISMISS SUBROUTINE"

:SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS
;RETURNS 4 ALWAYS
;DISMISS:
TR [PIj, #/077400

;ANY PI IN PROGRESS?

~o

JEN1:

[BR] #, PI.IP1/1, J/DSMS1 ;YES--START LOOP
RETURN [4]
.
;NO--JUST RETURN

DSMS1:

[PI].AND.[BR), SKIP ADR.EQ.O
[PI) [PI).AND.NOT.[BRJ. HOLD LEFT, RETURN [4)
[BR) [BR)*.5, J/DSMSl

~O

T1'OKL.MCR[ 10,1141]
INOUT.MIC[10,1141]

D
D
D
a

0710,
07 11,
0720,
0721,

15:34 27~JULY-1984
09:1727-JULY-1984

MICRO 31(254)

1210,1614,0100
12 14, 16 14 ,0100
1200,1614,0100
1204,1614,0100

U 1614, 2456,4443,0000,4174,4007,0700,0010,0000,0000
U 1617, 0014,4551,0305,0274,4003,7700,0000,0000,0000
a
D
D
D

0712,
0713,
0722,
0723,

1210,1460,0100
1210,1461,0100
1200,1460,0100
1200,1461,0100

U 1460, 2456,4443,0000,4174,4007,0100,0010,0000,0000
U 1463, 1400,3440,0303,0174,4007,0790,0400,0000,0000
U 1461, 2466,3771,0005,0276,6007,0700,0000,0000,0000
D
D
D
D

0714, 1210,1644,0100
0715, 1214,1644,0100
0724, 1200,1644,0100
0725, 1204,1644,0100

U 1644, 2456,3441,0306,4174,4007,0700,0010,0000,0000
U 1647~

1013,3441,0305,4174,4003,7700,0000,0000,0000

U 1013, 3662,3551,0505,0274, 4001,0700,OOOO,OOOQ,0000
U 1017, 3662,5551,0505,0274,4007,0700,0000,0000,0000
U

366~,

2466,3441,0603,4174,4007,0700,0000,0000,0000

7522
7523
7524
7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
7566
7567.
7568

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUGTIONS

Page 209

.TOC

"EXTERNAL 10 INSTRUCTIONS"

710:
711 :
720:
721 :

.DCODE
lOT,
lOT,
lOT,
lOT,
.UtODE

1614:
TIOX:
161'7 :

WORD-TNE,
WORD-TNN,
TNE,
TNN,

CALL [lORD]
[BR]_[AR].AND.AC, TEST DISP

712:
713:
722:
723:

.DCODE
lOT,
lOT,
lOT,
lOT,
.UCODE

1460:
RDID:
1463:

CALL [lORD]
AC_[AR], J/DONE

1461 :
WRIO:

[BR]_AC, J/IOWR

714:
715:
724:
725:
1644:
BIXUB:

J/TIOX
J/TlOX
J/TIOX
J/TIOX

B/10,
B/lO,
B/O,
B/O,

.DCOaE
lOT,
lOT,
lOT,
lOT,
.UCODE

J/RDIO
J/WRIO
J/RDIO
J/WRIO

B/10,
B/14,
B/O,
B/4,

J/BIXUB
J/BIXUB
J/BIXUB
J/BIXUB

=1011

[BRX] [AR],
CALL [lORD]
[BR} [AR],
B DISP
[BR] [BR].OR.AC,
J/BIXUB1
[BR} [BR].AND.NOT.AC,
J/BIXUB1

;SAVE EFFECTIVE ADDRESS
;GO GET THE DATA
;COPY DATA ITEM
;SEE IF SET OR CLEAR
; SET BITS
;GO DO WRITE
;CLEAR BITS
;GO DO WRITE

BIXUB1:

[AR] [BRX],
J/IOWR

;RESTORE ADDRESS

1647:

~

Tl0KL.I\'!(.;R[ 10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 2456, 2476,4443,0000,4174,4137,0700,0010,0000,0000
U 2457, 0067,4443,0000,4174,4003,7700,0000,0000,0000
U 0067, 2460,4571,1205,4374,4007,0700,0000,0024,1220
U 0077, 2460,4571,1205,4374,4007,0700,0000,0024,1200

U 2460, 3671,3113,0305,4174,4007,0701,0210,0000,0036
U 2461, 1027,3771,0005,4364,4003,7700,0200,0000,0002
U 1027, 2462,4553,0300,4374,4007,0331,0000,0000,0001
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000

U 2462, 2464,3447.0505,4174,4007,0700,2000.0071,0005
U 2463, 0003,4551,0503,4374,4004,1700,0000,0000,0377

U 2464, 2464,3447,0505,4'174,4007,0630,2000,0060,0000
U 2465, 0003,4551,0503,4374,4004,1700,0000,0000,0377

7569
7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605

KS1Q MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS,

Page 210

;SUBROUTINE TO READ FROM AN 10 DEVICE
; CALL WITH:
SECTION 0 EFFECTIVE ADDRESS IN AR
,
INSTRUCTION IN HR
;RETURN 3 WITH WORD OR BYTE IN AR
=0
lORD:
=10111
=11111
=0
lORD 1 :

=0111

CLR 10 BUSY,
CALL [IOEA]
B DISP
[BR] VMA 10 READ,
10 BYTE/l,
J/IORD1
[BR]_VMA 10 READ

;CLEAR BUSY
; COMPUTE 10 EA
;BYTE MODE
; SET BYTE FLAG
;GO DO CiA CYCLE
;WORD MODE

VMA [AR].OR.[BR] WITH FLAGS,
;WAIT FOR THINGS COMPLETE
CALL [IOWAIT]
;MAKE SURE REALLY READY
MEM READ,
[BR] 10 DATA,
;PUT DATA IN BR
B DISP
;SEE IF BYTE MODE
TR [ARl, #/1, J/IORD2
;BYTE MODE SEE IF ODD
;ALL DONE
[AR] [BRl, RETURN [3]

;HERE ON WORD MODE
=0
IORD2:
[BR] [BRl*.5, SC 5,
J/IORD3
[AR] [BR].AND.#,
#/377, RETURN [3]

LEFT BYTE
GO SHIFT IT
MASK IT
ALL DONE

=0
IORD3:

SHIFT OVER

[BRl [BRj*.5,
STEP-SC, J/IORD3
[AR] [BRj,AND.#,
#/377, RETURN [3]

MASK IT
ALL DONE

/

T10KL.MCR[10,1141]
INOUT.MIC[10,1141}

U
U
U
U

2466,
2467,
0227,
0237,

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

2476,4443;0000,4174,4137,0700,0010,0000,0000
0227,4443,0000,4174,4003,7700,0000,0000,0000
2472,4553,0300,4374,4007,0331,0000,0000,0001
3663,4571,1204,4374,4007,0700,0000,0021,1200

U 3663, 2470,3113,0304,4174,4007,0701.0200,0000,0036
U 2470, 3671,3333,0005,4175,5007,0701,0210,0000,0002
U 2471, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U 2472, 2474,3445,0505,4174,4007,0700,2000,0071,0005
U 2473, 3663,4571,1204,4374,4007,0700,0000,0021,1220

U 2474, 2474,3445,0505,4174,4007,0630,2000,0060,0000
U 2475, 3663,4571,1204,4374,4007,0700,0000,0021,1220

7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630
7631
7632
7633
7634
7635
7636
7637

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 211

;ROUTINE T~ WRITE TO AN 10 DEVICE
;CALL WITH:
SECTION 0 EFFECTIVE ADDRESS IN AR
INSTRUCTION IN HR
;
WORD OR BYTE IN BR
;RETURNS BACK TO USER
=0
IOWR:
= 10111
=11111
IOWR1:
=0

CLR 10 BUSY,
CALL [IDEA]
B DISP
TR [AR], #/1, J/IOWR2
[ARX]_VMA 10 WRITE

;BYTE MODE
; SETUP FLAGS

VMA [AR].OR.[ARX] WITH FLAGS
MEM-WRITE, MEM [BR},
;SEND DATA
CALL [IOWAIT] ;WAIT FOR DATA
DONE
;RETURN

;HERE FOR BYTE MODE
=0
IOWR2:
[BR] [BR]*2, SC 5,
J/IOWR3
[ARX] VMA 10 WRITE,
10 BYTE/1, J/IOWR1
=0
IOWR3:

;CLEAR BUSY
;COMPUTE 10 EA

[BR] [BR]*2, STEP SC,
J/IOWR3
[ARXJ'VMA 10 WRITE,
10 BYTE/1, J/IOWR1

ODD--MOVE LEFT
SETUP FLAGS

SHIFT LEFT
KEEP SHI FTING
SETUP FLAGS

~

T 10KL:I""~[ 10,1141]
I NO UT . MI C [ 10, 1 14 1 ]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 2456, 2476,4443,0000,4174,4137,0700,0010,0000,0000
U 2457, 0067,4443,0000,4174,4003,7700,0000,0000,0000
U 0067. 2460,4571,1205,4374,4007,0700,0000,0024,1220
U 0077, 2460,4571,1205,4374,4007,0700,0000,0024,1200

U 2460, 3671,3113,0305,4174,4007,0701,0210,0000,0036
U 2461, 1027,3771,0005,4364,4003,7700,·0200,0000,0002
U 1027, 2462,4553,0300,4374,4007,0331,0000,0000,0001
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000

U 2462"

2464,3447,0505,4174,4007,0700,2000,0071,0005

U 2463, 0003,4551,0503,4374,4004,1700,0000,0000,0377

U 2464, 2464,3447,0505,4174,4007,0630,2000,0060,0000
U 2465, 0003,4551,0503.4374,4004,1700,0000,0000,0377

; 7569
; 7570
; 7571
;,7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 210

;SUBROUTINE TO READ FROM AN 10 DEVICE
; CALL WITH:
SECTION 0 EFFECTIVE ADDRESS IN AR
INSTRUCTION IN HR
;RETURN 3 WIT~ WORD OR BYTE IN AR
=0
lORD:
=10111
=11111
=0
lORD 1 :

=0111

CLR 10 BUSY,
CALL [IDEA]
B DISP
[BR] VMA 10 READ,
10 BYTE/l,
J/IORDl
[BR]_VMA 10 READ

;CLEAR BUSY
;COMPUTE 10 EA
;BYTE MODE
; SET BYTE FLAG
;GO DO CiA CYCLE
;WORD MODE

VMA [AR].OR. [BR] WITH FLAGS,
CALL [IOWAIT]
;WAIT FOR THINGS COMPLETE
MEM READ,
;MAKE SURE REALLY READY
[BR] 10 DATA,
;PUT DATA IN BR
B DISP
;SEE IF BYTE MODE
TR [AR], #/1, J/IORD2
;BYTE MODE SEE IF ODD
[AR] [BR], RETURN [3]
;ALL DONE

;HERE ON WORD MODE
=0
[BR] [BR]*.5, SC_5,
IORD2:
J/IORD3
[AR] [BR].AND.#,
#/377, RETURN [3]

LEFT BYTE
GO SHIFT IT
MASK IT
ALL DONE

=0
IORD3:

SHIFT OVER

[BR] [BR]*.5,
STEP-SC, J/IORD3
[AR] [BR]. AND. #,
#/377, RETURN [3]

MASK IT
ALL DONE

T10KL.MCR[10,1141]
INOUT.MIC[10,1141]

U
U
U
U

2466,
2467.
02'27,
0237,

15:34 27~JULY-1984
09:11 27-JULY-1~S4

MICRO 31(254)

2476,4443,0000,4174,4137.0700.0010,0000,0000
0227,4443,0000,4174,4003.7700,0000,0000.0000
2472,4553,0300,4374,4007.0331,0000,0000,0001
3663,4571,1204,4374,4007,0700,0000,0021,1200

U 3663, 2470,3113,0304,4174,4007,0701,0200,0000,0036
U 2470, 3671,3333,0005,4175,5007,0701,0210,0000,0002
U 2471, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U2472, 2474,3445,0505,4174,4007.0700,2000,0071.0005
U 2473, 3663,4571,1204,4374,4007,0700,0000,0021.1220

U 2474, 2474,3445,0505,4174,4007,0630,2000.0060.0000
U 2475, 3663,4571,1204,4374,4007,0700.0000,0021,1220

n

7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623.
7624
7625
7626
7627
7628
7629
7630
7631
7632
7633
7634
7635
7636
7637

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 211

~ROUTINE TO WRITE TO AN 10 DEVICE
;CALL WITH:
SECTION 0 EFFECTIVE ADDRESS IN AR
INSTRUCTION IN HR
;
WORD OR BYTE IN BR
;RETURNS BACK TO USER

=0
IOWR:
= 10111
=11111
IOWR1:
=0

CLR 10 BUSY,
CALL [IOEA]
B DISP
TR[AR], #/1, J/IOWR2
[ARX]_VMA ~O WRITE

;BYTE MODE
;SETUP FLAGS

VMA [AR] .OR. [ARX] WITH Fl.AGS
MEM-WRITE, MEM [BR],
;SEND DATA
CALL [IOWAIT] ;WAIT FOR DATA
OONE
;RETURN

;HERE FOR BYTE MODE
=0
IOWR2:
[BR] [BR]*2, SC_5,
J/IOWR3
[ARX] VMA 10 WRITE,
10 ByfE/1, J/IOWR1
=0
IOWR3:

;CLEAR BUSY
;COMPUTE 10 EA

[BR] [BR]*2, STEP SC,
J/IOWR3
[ARX] VMA 10 WRITE,
10 ByfE/1, J/IOWR1

OOD--MOVE LEFT
SETUP FLAGS

SHIFT LEFT
KEEP SHIFTING
SETUP FLAGS

/

/

'\

~
\
J

T lOKL :!vlCR [ 10, 1 141 ]

I NOUT . MI C [ 10, 1 14 1 ]

~.

)

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 2476, 3673,1113,0701,4170,4007,0700,4210,0004,0012
U 2477 , 3664,7441,0306,4174,4007,0700,0000,0000,0000
U 3664, 2500,4553,0600,4374,4007,0321,0000,0070,0000
U 2500, 2502,4553,0200,4374,4007,0321,0000,0000,0020
U 2501, 2500,4713,1203,7174,4007,0700,0400,0000,0422
U 2502, 3665,3771,0003,7274,4007,0701,0000,0000,0422
U 2503, 1055,4443,0000,2174,4006;6700,0000,0000,0000
U 1055, 2506,3771,0004,2274,4007,0120,0000,0000,0000
U 1057, 0001,3771,0003,7274,4124,1701,0000,0000,0422
U 3665,
U 3666,
U 2504,
U 2505,

3666,3333,0002,4174,4217,0700,0000,0000,0000
2504,4553,0200,4374,4007,0321,0000,0000,0017
2505,0551,0303,2270,4007,0701,0000,0000,0000
3667,3443,0300,4174,4007,0700,0200,0004,0012

U 3667, 0001,3771,0003,4365,5124,1700,0200,0000,0002

U 2506, 0001,0551,0403,7274,4124,1701,0000,0000,0422
U 2507, 3670,0551,0403,7274,4007,0701,0000,0000,0422
U 3670, 0001,4221,0003,4174,0124,1700,0000,0000,0000

7638
7639
7640
7641
7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661
7662
7663
7664
7665
7666
7667
7668
7669
7670
7671
7672
7673
7674
7675
7676
7677

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 212

;HERE TO COMPUTE 10 EFFECTIVE ADDRESS
;CALL WITH:
SECTION 0 EFFECTIVE ADDRESS IN AR
INSTRUCTION IN HR
;RETURN 1 WITH EA IN AR
~O

IDEA:

VMA [PC] - 1 ,
START READ,
CALL [LOADAR]
[BRX] . NOT. [AR]
TL [BRX], #/700000

;GET INSTRUCTION
;PUT WORD IN AR
;SEE IF IN RANGE 700-777

~O

IOEA1:
=0
IOEA2:
~

1101

IDEAl:
=0

TL [HR], #/20, J.lIOEA2
;INDIRECT?
WORK[YSAVE] [AR] CLR LH, ;DIRECT 10 INSTRUCTION
J/IOEA1
;SAVE Y FOR EA CALCULATION

[AR] WORK[YSAVE],
J/IOEAI
EA MODE DISP
[ARX] XR, SKIP ADL.LE.O,
2T, J7IOEAX
[AR] WORK[YSAVE],
CLR To LATCH, RETURN [ 1 ]

;@--GET SAVED Y
;GET Y AND GO
;WAS THERE INDEXING?
;SEE IF LOCAL OR GLOBAL INDEXING
;JUST PLAIN 10

READ [HR], DBU5/DP.
;LOAD XR FLOPS IN CASE
LOAD INST EA
; THERE IS INDEXING
TL [HR], #/17
;WAS THERE ALSO INDEXING
[AR] [AR]+XR, 3T, HOLD LEFT ;YES--ADD IN INDEX VALUE
VMA TAR], START READ
;FETCH DATA WORD
MEM-READ, [AR] MEM,
;GO GET DATA WORD
CLR 10 LATCH, RETURN [1]

~o

IOEI\X:

[AR] [ARX]+WORK[YSAVE], ;GLOBAL INDEXING
CLR To LATCH, RETURN [1]
fAR] [ARX]+WORK[YSAVE]
;LOCAL INDEXING
[AR]-O, HOLD RIGHT,
CLR To LATCH, RETURN [1J

/

T10KL.MCR[10,1141]
INDUT.MIC[10,1141]

U 3671,

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

1130,3771,0016,4354,4007,0650,2000,0071,0200

U 1130, 3672,3333,0016,7174,4127,0700,0400,0000,0210
U 1131, 1130,4443,0000,4174,4006,7653,2000,0060,0000
U 1132, 3q72,3333,0016,7174,4127,0700,0400,OOOO,0210
U 1133, 2513,3333,0016,7174,4007,0700,0400,0000,0210
U 3672, 2510,4443,0000,4174,4007,0650,2000,0071,0777
U 2510, 2512,4443,0000,4174,4127,0630,2000,0060,0000
U 2511,0001,4443,0000,4174,4004,1700,0000,0000,0000

U 2512, 2510,4443,0000,4174,4127,0653,0000,0000,0000
U 2513, 1563,4571,1206,4374,4007,0700,0000,00:20,0000

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 213

7678
;WAIT FOR 10 TO COMPLETE
7679 ;RETURNS 1 OR PAGE FAILS
7680
7681
IOWAIT: SC S#, S#/200,
;DELAY
7682
[TO] VMA,
;GET VMA
7683
SKIP7-IO BUSY
;SEE IF BUSY YET
7684 =00
7685 IOW1 :
CLR IO LATCH,
;WENT BUSY
7686
WORK[SV. VMA] [TO),
;MAKE SURE SV.VMA IS SETUP
7687
J/IOII)2
;WAIT FOR IT TO CLEAR
SC SC-1, SCAD DISP, 5T, ;SEE IF DONE YET
7688
7689
SKIP/-IO BUSY,
7690
J/IOW1
;BACK TO LOOP
7691
CLR 10 LATCH,
;WENT BUSY AND TIMEOUT
7692
WORK[SV. VMA) [TO],
;MAKE SURE SV.VMA IS SETUP
7693
J/IDW2
7694
WORK[SV.VMA] [TO],
;MAKE SURE SV.VMA IS SETUP
7695
J/IOW5
;GO TRAP
7696
SC S#, S#/777,
7697 IOW2:
; GO TIME 10
7698
SKIP/-IO BUSY
7699 =0
7700 IOW3:
CLR 10 LATCH,
;TRY TO CLEAR LATCH
7701
STEP SC, J/IOW4
; STILL BUSY
RETURN [1]
7702
;IDLE
7703
7704 .=0
7705 IOW4:
CLR 10 LATCH, 5T,
;TRY TO CLEAR LATCH
7706
SKIP/-IO BUSY,
;SEE IF STILL BUSY
7707
J/IO\v3
7708 IOW5:
[BRX] [200000] XWD 0, J/HARD
7709

a

Tl0KL.MCR[10,1141]
INOUT .MIC[ 10,1141]

~
. /,

\

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO

U 3673, 0001,3771,0003,4365,5004,1700,0200,0000,0002
U 3674, 0001,3771,0004,4365,5004,1700,0200,0000,0002
U 3675, 0001,3772,0000,4365,5004,1700,0200,0000,0002
U 3676, 0001,4221,0004,4174,0004,1700,0000,0000,0000
U 3677, 0001,0111,0703,4174,4004,1700,0000,0000,0000
U 3700, 0001 ,3445,0505,4174,4004, 1700,0000,0000,0000
U

3701, 0001,3443,0300,4174,4004,1701,0200,0000,0036

U 3702, 0004,3333,0005,4175,5004,1701,0200,0.000,0002
U 3703, 0001,3333,0001,4175,5004,1701,0200.0000.0002
U 3704, 0001,3440,0404,0174.4004,1700,0400.0000,0000

31(25~)

7710
7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
7731
7732
7733

KS10 MICROCODE V124, 27-JUL-84
SMALL SUBROUTINES
.TOC

Page 214

"SMALL SUBROUTINES"

;HERE ARE A COLLECTION ON 1-LINE SUBROUTINES
LOADAR: MEM REAO, [AR] - MEM,
;FROM MEMORY TO AR
;RETURN TO CALLER
RETURN [ 1 ]
LOADARX: MEM READ,

[ARX] - MEM, RETURN [1]

LOADQ:

MEM READ, Q_MEM, RETURN [ 1 ]

CLARXL:

[ARX]_O, HOLD RIGHT, RETURN [ 1 ]

INCAR:

[AR] [AR]+l, RETURN [ 1 ]

SBRL:

[BR] [BR]*2, RETURN [1]

STRTIO: VMA [AR] WITH FLAGS, RETURN [1]
STOBR:

MEM WRITE, MEM - [BR], RETURN [4]

STOPC:

MEM WRITE , MEM - [PC], RETURN [ 1 ]

AC ARX: AC [ARX] , RETURN [1]

Tl0KL.MCR[10.1141]
INOUT.MIC[10,l141]

0 0703, 0003,1650,2100
0 0706, 0006,1650,2100
0 0707. 0007,1650,2100

0 0716, 0006, 1651 ,2100
0 0717, 0007.1651,2100
0 0726, 0006.1652,2100
'.21(,)
0 0727, oor,'"
[)

''"0,

~
~

~

0 073'7,

~

D 07,;:;

')

,~,

D C74! .

100
'.\,2100
,2100
,,2100

!)

0
D

D
D 0746,
D 0747' .

~

""'-~?J5 • 6
':)G06, 614.2100

C()C7,

(~54.

2100

D 07:50, 0000. 1G5 5 , 2 100

000 1 . 1655 . 2 100
0'J02, 16,,;,5,2100
0003,1655,2100
0004,1655.2100
0005. 1655,2100
D 0756, 0006,1655,2100
0 0757, 0007,1655,2100

D 0751,
0 0752,
0 0753,
D 075 :1.,.
D
55~
i

0 0760, 0000,1656,2100
0 0761, 0001.1656,2100,

0 0762,
0 0763,
D 0764,
D 0765,
D 0766,
0 0767,

0002,1656,2100
0003,1656,2100
0004,1656,2100
0005,1656,2100
0006,1656,2100
0007,1656,2100

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)
7734
7735
7736
7737
7738
7739
7740
7741
7742
7743
7744
7745
7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
776.7
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782

KS10 MICROCODE V124. 27-JUL-34
UNDEFINED 10 INSTRUCTIONS

Page 215

.TOC

"UNDEFINED IO I NSTRUCTI ONS"

703:
706:

.DCODE
I,
I.
I,

8/3,
8/6,
8/7,

J/IOT700
J/IOT700
J/IOT700

716:

I,
I,

8/6.
8/7,

J/IOT7lO
J/IOT710

726:

I,
I,

8/6.
8/7.

J/IOT720
J/IOT720

730:

I.
I.
I.
.
.
,
.

8/0.
8/1.
8/2,
8/3.
B/4,
8/5.
8/6.
8/7.

J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730

740:

I•
I,
I.
I.
I,
I,
I.
I.

8/0.
8/1,
8/2,
8/3.
8/4,
8/5,
8/6.
8/7.

J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/10T740

750:

I,
I,
I,
I,
I,
I,
I,
I,

8/0,
8/1,
8/2,
8/3,
8/4,
8/5,
8/6,
8/7,

J/IOT750
J/10T750
J/IOT750
J/IOT750
j/IOT750
J/IOT750
J/IOT750
J/IOT750

760:

I,
I,

8/0,
8/1.
8/2,
8/3,
8/4,
8/5,
8/6,
8/7,

J/IOT760
J/IOT760
J/IOT760
J/IOT760
J/IOT760
J/IOT760
J/IOT760
J/IOT760

I •

I
I
I
I

I ,

I,
I,
I,
I,
I,

/

.~.

{j

,

T10KL.rvfCR[ 10,1141]
INOUT.MIC[10,1141]

I
D
D
D
D
D
D
D
D

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

0770, 0000,1657,2100
0771, 0001,1657,2100
0772, 0002,1657,2100
0773, 0003,1657,2100
0774,0004,1657,2100
0775, 0005,1657,2100
0776, 0006,1657,2100
0777, 0007,1657,2100

U 1650, 2732,4551,0202,4374,0007,0700,0000,0077,7740

U 1651, 0670,4443,0000,4174,4007,0700,0000,0000,0000
U 1652, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1653, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1654, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1655, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1656, 2732,4551,0202,4374,0007,0700,0000,0077,7740
U 1657, 2732,4551,0202,4374,0007,0700,0000,0077,7740

7783
7784
7785
7786
7787
7788
7789
7790
7791
7792
7793
7794
7795
; 7796
; ; 7797
;; 7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814

KS10 MICROCODE V124, 27-JUL-84
UNDEFINED 10 INSTRUCTIONS
770:

I,
I,
I,
I,
I ,
I,
I,
I,
.UCODE

1650:
IOT700: UUO
1651:
IOT710:
.IFNOT/U8ABLT
UUO
.IF/U8A8LT
J/8LTX
.ENDIF/U8A8LT
1652:
IOT720: UUO
1653:
IOT730: UUO·
1654:
IOT740: UUO
1655:
IOT750: UUO
1656:
IOT760: UUO
1657:
IOT770: UUO

B/O,
B/l,
8/2,
8/3,
8/4,
8/5,
8/6,
8/7,

Page 216

J/IOT770
J/IOT770
J/IOT770
J/IOT770
J/IOT770
J/IOT770
J/IOT770
J/IOT770

;GO TO COMMON CODE FOR UBABLT INSTRS

T10KL.MCR[10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
27-JULY-1984

MICRO 31(254)

09~17

D 0704, 1200,1754,0100
o 0705, 1200,1755,0100

U 1754, 3705,3443,0300,4174,4207,0700,0200,0004,0012
U 3705,

1515,3771,0003,4365,5007,0700,0200,0000,0002

U 1755, 3706,3443,0300,4174,4207,0700,0200,0003,0012
U 3706, 1516,3771,0003,0276,6007,0700,0000,0000,0000

7815
7816
7817
7818
7819
7820
7821
,7822
7823
7824
7825.
7826
7827
7828
7829
7830
7831
7832
7833
7834
7835
7836

KS10 MICROCODE V124, 27-JUL-84
UMOVE AND UMOVEM
.TOC

"UMOVE AND UMOVEM"

704:

.DCODE
IDT,
IDT,
.UeODE

1754 :
UMOVE:

Page 217

J/UMOVE
J/UMOVEM

VMA [AR] ,
START READ,
SPEC/PREY
MEM READ,
[ARJ_MEM,
J/STAC

1755 :
UMOVEM: VMA [AR],
START WRITE,
SPEC/PREY
[ARJ_AC,
J/STMEM

;LOAD VMA
;START MEMORY
;FORCE PREVIOUS
;WAIT FOR MEMORY
;PUT DATA IN AR
;GO PUT AR IN AC
LOAD VMA
START MEMORY
FORCE PREVIOUS
FETCH AC
STORE IN MEMORY

t~
\

j

T10KL.i\JII,.,R[ 10,1141]
INOUT.MIC[10,1141]

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

U 0104, 3711,3333,0004,7174,4007,0700,0410,0000',0212
U 0114, 3710,4223,0000,4364,4277,0700,0210,0000.0010
U 0116, 3707,4221,0004,4174,4007,0700,0200,0021,1016
U 3707, 2514.3333,0017,4175,5007,0701,0200,0000,0002
U 2514, 3703,0111,0704,4170,4007.0700,0210,0023,1016
U 25,15, 0005,4443,0000,4174,4107.0700,0000,0000.0074

U 0004, 2516,4443,0000,4174.4107,0640,0000,0000,0062
U 0005, 0004,4443,0000,4174,4007,0660,0000,0000,0000

U
!.J

U

16, (, \
2'51'1,

"1

I,

,,100

'~·74.4007,0700,0200.0014,0012

2',,)

1:"74,4007,0700,0000,0024, 1200

j

<,''520, 37"

U2521,27,

:1,0002.4365,5617.0700,0200,0000.0002

7837
7838
7839
7840
7841
7842
78l-l3
7844
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869

KS1V MICROCODE V124, 27-JUL-84
UMOVE AND UMOVEM

Page 218

;HERE WITH HALT CODE IN THE Tl
=010*
HALTED: WORK[SV.ARX] [ARX],
;SAVE TEMP REGISTER
CALL [SAVVMA]
;PUT VMA IN WORK[SV.VMA]
=110*
ABORT MEM CYCLE,
;ABORT CYCLE IN PROGRESS
CALL [WRTHSB]
;WRITE HALT STATUS BLOCK
= 111 *
PWRON:
[ARX]_O, VMA PHYSICAL WRITE ;STORE HALT CODE
=0
Hl:
4:

MEM WRITE, MEM [T1]
; IN LOCATION ,0
NEXT [ARX] PHYSICAL WRITE,
CALL [STOPC]
SET HALT, J/HALTLP
;TELL CONSOLE WE HAVE HALTED
UNHALT,
SKIP EXECUTE. J/CONT

;RESET CONSDLE
;SEE IF CO OR EX

5:

HALTLP: SKIP/-CONTINUE, J/4
=0
CONT :

=0
CONT 1:

VMA [PC].
FETCH,
J/XCTGO
[AR] VMA 10 READ
[AR]~[AR].OR.#,

#/200000,'HOLD LEFT,
CALL [STRTIO]
MEM READ,
[HR] MEM.
LOAD-INST,
J/XCTl

;WAIT FOR CONTINUE
;LOAO PC INTO VMA
;START READ
;DO THE INSTRUCTION
;PUT FLAGS IN AR
;PUT IN ADDRESS
; OF CSL REGISTER
WAIT FOR DATA
PUT IN HR
LOAD IR, ETC.
GO DO THE INSTRUCTION

T10KL.MCR[10.1141J
INOUT.MIC[10.1141J

~
~

zt-

o

~

i

~

i

5
ii
li

m

5

!
.~

~

~

I

I:!

I/!
. c
I

i
.t

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

..

7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880
7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896.
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
'7907
7908
7909

KS10 MICROCODE V124. 27-JUL-84
WRITE HALT STATUS BLOCK
.TOC

Page 219

"W.RITE HALT STATUS BLOCK"

;THE HALT STATUS BLOCK LOOKS LIKE:

!=======================================================!
!bor

MAG

!-------------------------------------------------------I
!01!
PC
!
!-------------------------------------------------------I
!02!
HR
!-------------------------------------------------------I
!03!
AR
!
!-------------------------------------------------------I
!04!
ARX
!-------------------------------------------------------I
!05!
BR
!
!-------------------------------------------------------I
!06!
BRX
!
!-------------------------------------------------------I
!07!
ONE
!-------------------------------------------------------I
! 10!
EBR
!
!-------------------------------------------------------I
!11!
UBR
!~------------------------------------------------------I

! 12!

MASK

1

!~------------------------------------------------------I

!1'3!

FLG

I

!-~-----------------------------------------------------I
! 14)
PI
!--~-------------------------------------------------- --!

!15!

XWD1

!-------------------------------------------------------I
!16!
TO
!-------------------------------------------------------!
!17!
T1

!=======================================================!
VMA FLAGS
VMA
!=======================================================!

~
T 10K L.MCR [ 10, 1 1 4 1 ]
INOUT.MIC[10,1141]

U
U
U
U

0001,
0011,
0024,
0026.

15:34 27-JULY-1984
09:1727-JULY-1984

MICRO 31(254)

3711,3333,0004,7174,4007,070'0,0410,0000,0212
0024,3771,0004,7274,4007,0701,0000,0000,0227
3713,4223,0000,4364,4277,0700,0210,0000,0010
2515,4443,0000,4174,4107,0700,0000,0000,0074

U 3710, 2522,3771,0004,7274,4007,0422,0000,0000,0227
U 2522, 3713,3333,0012,4174,4437,0700,0000,0000,0000
U 2523, 0002,3771,0004,7274,4004,1701,0000,0000,0212
U 3711, 3712,3771,0004,4354,4007,0700,0000,0000,0000
U 3712, 0010,3333,0004,7174,4004,1700,0400,0000,0210

7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
.7924
7925
7926
7927
7928

KS10 MICROCODE V124, 27-JUL-84
WRITE HALT STATUS BLOCK

Page 220

;START AT 1 TO DUMP 2901 REGISTERS INTO MAIN MEMORY
1:
WORK[SV.ARX] [ARXl.
;SAVE TEMP REGISTER
CALL [SAVVMA]
;WORK[SV.VMA] VMA
11:
[ARX] WORK[HSBADR]
ABORT-MEM CYCLE, CALL [DUMP]
=10*
SET HALT, J/H1
WRTHSB:
=0

[ARX] WORK [HSBADR], ; GET ADDRESS OF HSB
SKIP AD.LE.O, 4T
;SEE IF VALID
READ [MASK], LOAD PI,
;TURN OFF PI SYSTEM
J/DUMP
; AND GO TAKE DUMP
[ARX] WORK[SV.ARX],
RETURN [2]
;DO NOT DUMP ANYTHING

SAVVMA: [ARX] VMA

WORK[~V.VMA]

RETURN [10]

[ARX],

T10Kl.MCR[ 10,1141]
INOUT.MIC[10;1141]
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U

3713,
2375,
2377,
3714,
2524,
2526,
2525,
2527,
2530,
2532,
3715,
2,531,
2533,
3716,
2534,
2536,
3717,
2535,
2537,
3720,
2540,
2542,
3721,
2541,
2543,
2544,
2546,
3722,
3723,
3724.

15:34 27-JULY-1984
09: 17 27-JULY-1984

MICRO 31(254)

2375,3333,0004,4174,4007,0700,0200,0021,1016
2741,3333,0000,4175,5007,0701,0210,0000,0002
3714,3333,0001,4175,5007,0701,0200,0000,0002
2524,0111,0704,4170,4007,0700,0200,0023,1016
2741,3333,0002,4175,5007,0701,0210,0000,0002
2525,3333,0003,4175,5007,0701,0200,0000,0002
2741,3333,0003,7174,4007,0700,0410,0000,0211
2530,3771,0003,7274,4007,0701,0000,0000,0212
2741,3333,0003,4175,5007.0701,0210,0000,0002
3715,3333,0005,4175,5007,0701,0200,QOOO,0002
2531,0111,0704,4170,4007,0700,0200,0023,1016
2741,3333,0006,4175,5007,0701,0210,0000,0002
3716,3333,0007,4175,5007,0701,0200,0000,0002
2534,0111,0704,4170,4007,0700,0200;0023,1016
2741,3333,0010,4175,5007,0701,0210,0000,0002
3717,3333,0011,4175,5007,0701,0200,0000,0002
2535,0111,0704,4170,4007,0700,0200,0023,1016
2741,3333,0012,4175,5007,0701,0210,0000,0002
3720,3333,0013,4175,5007,0701,0200,0000,0002
2540,0111,0704,4170,4007,0700,0200,0023,1016
2741,3333,0014,4175,5007,0701,0210,0000,0002
3721,3333,0015,4175,5007,0701,0200,0000,0002
2541,0111,0704,4170,4007,0700,0200,0023,1016
2741,3333,0016,4175,5007,0701,0210,0000,0002
2544,3333,0017,4175,5007,0701,0200,0000,0002
2741,3771,0003,7274,4007,0701,0010,0000,0210
3722,3333,0003,4175,5007,0701,0200,0000,0002
37~3,3771,0003,7274,4007,0701,0000,0000,0211

3724,3771,0004,7274,4007,0701,0000,0000,0210
3725,3443,0400,4174,4007,0700,0200,0000,0010

U 3725, 0006,3771,0004,7274,4004,1701,0000,0000,0212

7929
7930
7931
7932
7933
7934
7935
793q

7937
7938
7939
7940
794·1
7942
7943
7944
; 7945
7946
7947
7948
7949
7950
7951
7952
7953
7954
7955
7956
7957
7958
7959
7960
7961
7962

KS10 MICROCODE V124, 27-JUL-84
WRITE HALT STATUS BLOCK

Page 221

;DUMP OUT THE 2901
DUMP:
READ [ARX], VMA PHYSICAL WRITE
=0*
MEM WRITE, MEM [MAG], CALL [NEXT)
MEM WRITE, MEM-[PC]
NEXT [ARX) PHYSICAL WRITE
=0*
MEM WRITE, MEM [HR], CALL [NEXT]
MEM WRITE, MEM-[AR]
=0*
WORK[SV.AR] [AR], CALL [NEXT]
[AR] WORK[SV.ARX]
=0*
MEM WRITE, MEM [AR], CALL [NEXT]
MEM WRITE, MEM-[BR]
NEXT [ARX] PHYSICAL WRITE
=0*
MEM WRITE, MEM [BRX], CALL [NEXT]
MEM WRITE, MEM-[ONE]
NEXT [ARX] PHYSICAL WRITE
=0*
MEM WRITE, MEM [EBR], CALL [NEXT]
MEM WRITE, MEM-[UBR]
NEXT [ARX] PHYSICAL WRITE
=0*
MEM WRITE, MEM [MASK], CALL [NEXT]
MEM WRITE, MEM-[FLG]
NEXT [ARX] PHYSICAL WRITE
=0*
MEM WRITE, MEM [PI], CALL [NEXT]
MEM WRITE, MEM-[XWD1]
NEXT [ARX] PHYSICAL WRITE
=0*
MEM WRITE, MEM [TO], CALL [NEXT]
MEM WRITE, MEM-[T1]
=9*
[AR) WORK[SV.VMA], CALL [NEXT]
MEM WRITE, MEM [AR]
HSBDON: [AR] WORK[SV.AR]
[ARX] WORK[SV.VMA]
VMA [ARX]
[ARX] WORK[SV.ARX],
RETURN [6)

~
\

J

T10KL:~Ck[10,1141]

PAGEF.MIC[10,1141]

I

!

7963
7964
7965
7966
7967
7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999
8000
8001
8002
8003
8004
8005
8006
8007

.NOBIN
.TOC

15:34 27-JULY~1984
12:32 26-JULY-1984

MICRO 31(254)

KS1U MICROCODE V124, 27-JUL-84
WRITE HALT STATUS BLOCK

Page 222

"PAGE FAIL REFIL LOGIC"

;WHEN THE CPU CAN NOT COMPLETE A MEMORY REFERENCE BECAUSE THE PAGE
; TABLE DOES NOT CONTAIN VALID INFORMATION FOR THE VIRTUAL PAGE INVOLVED
; THE HARDWARE CALLS THIS ROUTINE TO RELOAD THE HARDWARE PAGE TABLE.
;THIS CODE WILL EITHER DO THE RELOAD OR GENERATE A PAGE FAIL FOR THE
; SOFTWARE. THE INFORMATION LOADED CONSISTS OF THE PHYSICAL PAGE NUMBER,
; THE CACHE ENABLE BIT AND THE WRITE ENABLE BIT.
;THIS LOGIC USES MANY VARIABLES. THEY ARE DESCRIBED BRIEFLY HERE:
;THING
;OLD VMA
;OLD AR
;OLD ARX
;OLD BR
;OLD BRX
;KL PAGING BIT

WHERE KEPT
WORKSPACE WORD 210
WORKSPACE WORD 211
WORKSPACE WORD 212
WORKSPACE WORD 213
WORKSPACE WORD 214
EBR BIT 1 (IN 2901)

;W BIT
;C BIT

FLG BIT 4
FLG BIT 6

;PI CYCLE
;MAP FLAG
;CLEANUP CODE
,
;SPT BASE
;CST BASE
;CST MASK
;CST DATA (PUR)
;PAGE TABLE ADDRESS
;PHYSICAL PAGE # (PPN)
;CST ENTRY
;SPT ENTRY
;PAGE TABLE ENTRY
;PAGE NUMBER
;PAGE FAIL WORD

FLG BIT 5
FLG BIT 18
FLG BITS 32-35

. IF /INHCST
SKIP NO CST
.ENDIF/INHCST

WORKSPACE
WORKSPACE
WORKSPACE
WORKSPACE
AR
AR
AR
AR
AR
BR
BRX

WORD
WORD
WORD
WORD

215
216
217
220

USE
SAVES VMA
SAVES AR
SAVES ARX
SAVES BR
SAVES BRX
INDICATES KL STYLE (TOPS-20) PAGING
INSTEAD OF KI STYLE (TOPS-10 AND DIAGNOSTIC)
MODE PAGING
PAGE CAN BE WRITTEN
DATA IN THIS PAGE MAY BE PUT
INTO CACHE
STORING OLD PC DURING PI
MAP INSTRUCTION IN PROGRESS
WHAT TO DO SO INSTRUCTION MAY BE
RESTARTED
ADDRESS OF SHARED-POINTER-TABLE
ADDRESS OF CORE-STATUS-TABLE
BITS TO KEEP ON CST UPDATE
BITS TO SET ON CST UPDATE
WHERE THIS PAGE TABLE IS LOCATED
RESULT OF ~HIS PROCESS
CORE STATUS TABLE ENTRY
WORD FROM SPT
WORD FROM PT
INDEX INTO CURENT PAGE TABLE
W~AT HAPPENED (ALSO MAP RESULT)

"AD/D,DBUS/RAM,RAMADR/#,WORK/CBR,DT/4T,SKIP/ADEQO"

15:34 27-JULY-1984
12:32 26-JULY-1984

T10KL.MCR[10,1141]
PAGEF .MIC[ 10,1141]
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041
8042

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

KL10 PAGING - WORD FORMATS
;Section Pointer
;The section pointer is found in the user or exec section table.
;(Part of UPT or EPT.)
;Section pOinter provides (via the'SPT) the physical address
;the PAGE TABLE for the given section.
Code:

0
1
2
3
4-7

of

No-access (trap)
Immediate
Share
Indirect
Unused, reserved

0 1 2 3 4 5 6

18

35

+----+-+-+-+-+---------+----~-----------------,--+

!CODE!P!W! !C!/////////!
!010 ! ! ! ! !//////I//!

PAGE TABLE IDENTIFIER
(SPT INDEX)

!

+----+-+-+-+-+---------+-------------------------+
NORMAL SECTION POINTER (Code

o

23456

9

= 2)

18

35

+----+-+-+-+-+---+---~~------+------------------------+

!CODE!P!W! !C!///!SECTION
!SECTION TABLE IDENTIFIER!
!011 ! ! ! ! !///!TABLE INDEX!
(SPT INDEX)
+----+-+-+-+-+---+----------~+------------------------+

INDIRECT SECTION POINTER (Code

= 3)

Page 223

\

~i

T 10KL ~ MeR [ 10, 1141 ]
PAGEF.MIC[10,1141]
8043
8044
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
8.062
8063
8064
8065
8066
8067
8068
8069
8070
8071
8072
8073
8074
8075

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
PAGE FAIL REFIL LOGIC

;PAGE POINTERS
;FOUND IN PAGE TABLES

o

1 234 5 6

12

35

+----+-+-+-+-+----+----------------------~-------+

!CODE!P!W! !C!IIII!
!001 ! ! ! ! !IIII!

PHYSICAL ADDRESS OF PAGE
!

+----+-+-+-+-+----+------------------------------+
IMMEDIATE POINTER (code field
B12-35
if
if

o

2 3

=

1)

give PHYSICAL ADDRESS OF PAGE
B12-17 >< 0, page not in core-trap
B12-17 = O. B23-35 give CORE PAGE
NUMBER of page, B18-22 MBZ

6

18

35

+-----+-------+---------+------------------------+
!CODE !SAME AS!IIIIIIIII!
SPT INDEX
!010 ! IMMED. rlllllllll!
+-----+-------+---------+------------------------+
SHARED POINTER (code field

B18-35

= 2)

Give SPT INDEX (SPTX).
SPTX + SPT BASE
ADDRESS = physical core address of word
holding physical address of page.

Page 224

T10KL.MCR[10,1141J
PAGEF.MIC[10,1141]
8076
8077
8078
8079
8080
8081
'8082
8083
8084
8085
8086
8087
8088
8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101
8102
8103
8104

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

o

9
17 18
1 2 3
6
35
+----+--------+---+-------+----------------------+
!CODE!SAME AS !III! PAGE I PAGE TABLE IDENTIFIER!
!011 ! IMMED. !III!NUMBER !
(SPT INDEX)
!
+----+--------+---+-------+----------------------+

INDIRECT POINTER (code field

= 3)

This pointer type causes another pointer to be fetched
and interpreted.
The new pointer is found in word N
(B9-17) of the page addressed by C(SPT. + SPTX).

SPT ENTRY
Found in the SPT,

i.e., when fetching C(SPT +SPTX)

12
35
+--------------------+---------------------------+
!IIIIIIIII///ii/ii//ll PHYSICAL ADDRESS OF PAGE !
l/III/I/IIIII/IIII/II!
OR PAGE TABLE
+-----------------~--+----~----------------------+

B12~35

Give PHYSICAL ADDRESS of page.

The base address (physical core address) of
resides in one AC of the reserved AC block.

the

SPT

Page 225

i

~

PAGEF .MIC[ 10,1141]
8105
8106
8107
8108
8109
8110
8111
8112
8113
8114
8115
8116
8117
8118
8119
8120
8121
8122
8123
8124
8125
8126
8127
8128
8129
8130
8131
8132
8133
8134
8135
8136
8137
8138
8139
8140
8141
8142

(j

,

\ 1
Tl0KL.lV!cR[ 10,l141L

/

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

;PHYSICAL STORAGE ADDRESS

,

;Found in 812-35 of IMMEDIATE POINTERS and SPT ENTRIES.
12

23

35

+---------+----+-----------------+
!MBZ ! CORE PAGE NUMBER!
IF B12-17 = 0 ,

+---------+----+-----------------+
If 812-17 = 0, then B23-35 are CORE PAGE NUMBER (i.e.,
B14-26 of physical core address) of page and 818-22
MBZ.
If B12-17 >< 0, then address
is not core and
pager traps.

,
;CORE STATUS TABLE ENTRY
;Found when fetching C(CBR + CORE PAGENO)

o

32

5

34 35

+-------+-------------------------------+------+-+
! CODE!
!M!
+-------+-------------------------------+------+-+

BO-5

are code field:

o - unavailable, trap
1-77 - available

B32-34 reserved for future hardware specification.
835 is "modified" bit, set on any write ref to page.

Page 226

T10Kl.MCR[ 10.1141]
PAGEF.MIC[10,1141]

~
~0

~

(;

If
,

~

3
~
li
w

il;
.li
~

i

1
~

1
.t

8143
8144
8145
8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8160
8161
8162
8163
8164
8165
8166
8167
8168
8169
8170
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184

15:34
12:32

27~JULY~1984

MICRO 31(254)

26~JULY~1984

KS10 MICROCODE V124. 27~JUL~84
PAGE FAIL REFIL LOGIC

;QUANTITIES IN HARDWARE REGISTERS
;SPT

SPT 8ase Register
14

35

+~~~~~~~~~~~~~~~~----------------+

PHYSICAL CORE WDRD ADDRESS

!

+--------------------------------+
;C8R

CST Base Register
14

35

+--------------~-----------------+

PHYSICAL CORE WORD ADDRESS

+--------------------------------+
;CSTMSK

CST Update Mask
32 35
o
+------------------------------------------+---+-+
MASK

!111!1!

+------------------------~----------------.-+---+-+

ANDed with CST word during update
must be all l's
.;(832-35
;CSTDATA CST Update Data

o

to preserve existing CST information)

32 34 35

+------------------------------------------+---+-+
!
DATA
!OOO!O!
+------------------------------------------+---+-+
IORed with CST word during update

;(832-35 must be all O's to preserve existing CST information)
,
;All unspecified bits and fields are reserved for future
;specification by DEC.

Page 227

,....,
T10KL:,.,,,il[ 10, 1141]·
PAGEF .MIC[ 10, 1141]

o

0257,

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

1215,1553,0100

U 1553, 3726,3551,0303,4374,0007,0700,0000,0016,0000
U 3726, 3727,3771,0006,4354,4007.0700,0000,0000.0000
U
U
U
U
U
U

3727,
3730,
3731,
3732,
2550,
2551,

3730.4551,0606,4374.0007.0700,0000.0040.0000
3731,3333,0006,7174,4007,0700,0400,0000,0210
3732,3771,0005,7274,4007,0701,0000,0000,0230
?550,4553,0500,4374,4007,0331,OOOO,0003,0000
3747,3771,0013,4370,4007,0700,0000,0040,0002
0100,3440,0303,0174,4156,4700,0400,0000,0000

3777, 3733,3333,0003,7174,4007,0700,0400,0000.0211
U 3733, 3734,3333,0006,7174,4007,0700,0400,0000,0214
U 3734, 3735,3771,0006,4354,4007.0700,0000.0000,0000
U 3735, 3736,3333,0006,7174,4007,0700,0400,0000,0210

U

U

3736,

1060,3333,0004,7174,4007,0370,0400,0000,0212

U 1060, 1060,3773,0000,4304,4003,1702,0000,0000,0000
U 1061, 1572,3333,0005,7174,4007,0700,0400,0000,0213

U 1063, 3737,3771,0006,4374,4007,0700,0000,0000.0000
U

1065, 1563,4571,1206,4374,4007,0700,0000.0037,0000

U 1067, 1563,4571,1206,4374,4007,0700,0000,0037,0000
U 1070, 3747,3333,0005,7174,4007,0700,0400,0000,0213
U 1071, 1572,3333,0005,7174,,4007,0700,0400,0000,0213
U 1072, 3747,3333,0005,7174,4007,0700,0400,0000,0213
U 1073, 3747,3333,0005,7174,4007,0700,0400,0000,0213

U 3737, 3745,3333,0006,7174,4007,0700,0400,0000,0160
U 3745, 3746,3333,0006,7174,4007,0700,0400,0000,0161

8185
8186
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240

KS1U MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 228

.BIN
257:

.DCODE
lOT.
.UCODE

AC,

J/MAP

1553:
MAP:

[AR] [AR].OR,#,
;ASSUME PHYSICAL REF
#/160000,
;FAKE ANSWER
HOLD RIGHT
, ..
[BRX] VMA
;PUT VMA AND FLAGS IN BRX
[BRX]-[BRX].AND.#,
;JUST KEEP USER BIT
#/400000, HOLD RIGHT
, ..
WORK [SV . VMA] [BRX]
; SAVE I N WORKSPACE
[BR] WORK[APR]
;GET APR FLAGS
TR [BR], #/030000
;PAGING ENABLED?
=0
STATE [MAP], J/PFMAP
;YES--DO REAL MAP
AC [AR], NEXT INST
;NO--RETURN VIRTUAL ADDRESS
;HARDWARE COMES HERE ON PAGE TABLE NOT VALlO (OR INTERRUPT) WHEN
; STARTING A MEMORY REFERENCE. MICOWORD ADDRESS OF INSTRUCTION DOING
; MEM WAIT IS SAVED ON THE STACK.
3777:
PAGE-FAIL:
WORK[SV.AR] [AR]
ITRAP:
WORK[SV.BRX] [BRX]
[BRX] VMA
WORK[SV.VMA] [BRX]
WORK[SV.ARX]-[ARX],
SKIP IRPT
;SEE IF INTERRUPT (SAVE DISPATCH)
=0000
DBM/PF DISP, DBUS/DBM,
PFD:
;BRING CODE TO 2901'S
AD/D, DEST/PASS, 4T,
;PUT ON DP 18-21
DISP/DP LEFT, J/PFD
;DISPATCH ON IT
=0001
; ( 1) INTERRUPT
WORK[SV.BR] [BR], J/PFPI1
; (3) BAD DATA FROM MEMORY
=0011
[BRX] 10 DATA,
;GET THE BAD DATA
AD PARITY OKlO,
; DO NOT LOOK AT PARITY
J/BADDATA
;SAVE IN AC BLK 7
=0101
; (5) NXM ERROR
[BRX] [370000] XWD 0, J/HARD
=0111
;(7) NXM & BAD DATA
[BRX] [370000] XWD 0, J/HARD
=1000
;(10) WRITE VIOLATION
WORK[SV.BR] [BR], J/PFMAP
=1001
;[123] (11) 1 ms timer and movsrj
WORK[SV.BR] [BR], J/PFPI1
=1010
;(12) PAGE NOT VALID
WORK[SV.BR] [BR], J/PFMAP
= 1011
;(13) EXEC/USER MISMATCH
WORK[SV.BR] [BR], J/PFMAP
BADDATA:
WORK[BADWO] [BRX]
WORK[BADW1] [BRX]

;SAVE BAD WORD
;AGAIN

Tl0KL.MCR[10,l141]
PAGEF.MIC[10,1141]
U 3746,

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

1563,4571,1206,4374,4007,0700,0000,0036,0000

8241
8242

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 228-1

[BRX] [360000] XWD 0, J/HARD

'\

,~
'.
)

~\

~
o

}

T10KL.MCR[ 10,1141]
PAGEF.MIC[10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3747, 3750,4223,0000,4364,4277,0700,0200,0000,0010
U 3750, 3752,3551,1313,4374,0007,0700,0000,0002,4000
U .3752, 2552,4553,0600,4374,4007,0321,0000,0002,0000
U 2552, 2553,3551,0606,4374,0007,0700,0000,0001,0000
U 2553, 3753,4551,0606,4374,0007,0700,0000,0041,1000

U 3753, 3755,6551,0606,4374,0007,0700,0000,0000,1000
U 3755, 2554,3441,0605,4174,4007,0700,2000,0071,0007

U 2554, 2554,3447,0505,4174,4007,0630,2000,0060,0000
U 2555, 3756,4251,0505,4374,4007,0700,0000,0000,0777

U 3756, 2556,3333,0006,4174,4007,0520,0000,0000,0000

8243
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
8277
8278
8279
8280
8281
8282
8283

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 229

;WE HAVE SAVED AR, ARX, BR AND BRX. WE MERGE IN HERE FROM MAP
; INSTRUCTION, SAVE THE VMA AND START THE PAGE FAIL WORD.
;CLEAR PAGE FAIL
PFMAP:
ABORT MEM CYCLE
[FLG) [FLG].OR.#,
;PRESET WAND C TO 1
FLG.w71, FLG.C/1,
;BITS INVOLVED
;LEAVE RH ALONE
HOLD RIGHT
TL (BRX), WRITE TEST/1
;IS THIS A WRITE TEST?
[BRX) [BRX).OR.#,
=0
#/10000,
;YES--TURN INTO WRITE REF
HOLD RIGHT
;START PAGE FAIL WORD
[BRX] [BRX].AND.#,
#/411000,
;SAVE 3 INTERESTING BITS
HOLD RIGHT
;SAVE VIRTUAL ADDRESS
;USER ADDR (400000)
;WRITE REF (010000)
;PAGED REF (001000)
[BRX) [BRX).XOR.#,
;FIX BIT 8
#/1000, HOLD RIGHT
[BR) [BRX),
;COPY VIRTUAL ADDRESS
;PREPARE TO SHIFT 9 PLACES
SC 7
=0

PF25:

[BR) [BR)*.5,
STEP-SC,
J/PF25
[BR) [BR).AND.# CLR LH,

;RIGHT ADJUST PAGE #
;COUNT SHIFT STEPS
;LOOP FOR 9
;MASK TO 9 BITS

#/777
. IF/KLPAGE
.IF/KIPAGE
TL [EBR),
#/40

;KI MODE REFILL?
; FLAG BIT

=0

.ENDIF/KIPAGE
READ [BRX),
SKIP DPO,
J/PF30
.ENDIF/KLPAGE
.IF/KIPAGE
[ARX) [BR)*.5,
J/KIFILL
.ENDIF/KIPAGE

;USER REF? (KL MODE)
;CONTINUE AT PF30
;KI10 MODE REFILL
;GO HANDLE EASY CASE

Tl0KL.MCR[10,1141]
PAGEF .MIC[ 10,1141]

15:34 27-JULY-1984
12:32 26~JULY-1984

MICRO 31(254)

U 2556, 2562,3771,0004,7274,4007,0622,0000,0000,0423
U 2557, 2560,3771,0004,7274,4007,0622,0000,0000,0424
U 2560,

1134,0113,0405,4174,4007,0700,0200~0024,1016

U 2561, 3757,0551,1103,4374,4007,0701,0000,0000,0540

U 2562,

1134,0113,0405,4174,4007,0700,0200,0024,1016

,
U 2563, 3757,0551,1003,4374,4007,0701,0000,0000,0540
U 3757, 3760,3443,0300,4174,4007,0700,0200,0024,1016
U 3760, 1000,3771,0003,4365,5007,0700,0200,0000,0002

U 1000,

1503,4443,0000,4174,4007,0700,2010,0071,0007

U 1001, 2566,4553,0300,4374,4007,0321,0000,0000,0077
U 1002, 2243,0551,0303,7274,4007,0701,0000,0000,0215
U 1003, 1511,0551,0303,7274,4007,0701,0010,0000,0215
U 1007, 2564,4553,0300,4374,4007,0321,0000,0000,0077
U 2564, 2670,4553, 1300,4374,4007,0321,0000,0001.,0000
U 2565,

1010,3445,0303,4174,4007,0630,2000,0060,0000

U 1010, 1010,3445,0303,4174,4007,0630,2000,0060,0000
U 1011 , 1511,4443,0000,4174,4007,0700,0010,0000,0000
U 1015, 1000,4443,0000,4174,4007,0700,0000,0000,0000

8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
8298
8299
8300
8301
8302
8303
8304
8305
8306
8307
8308
8309
8310
8311
8312
8313
8314
8315
8316
8317
8318
8319
8320
8321
8322
8323
8324
8325
8326
8327
8328
8329
8330
8331
8332
8333
8334
8335

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 230

.IF/KLPAGE
;HERE IN TOPS-20 MODE
;PICK UP CORRECT SECTION POINTER
=0
PF30:
[ARX] WORK[PTA.E],
;EXEC MODE
SKIP AD.EQ.O, 4T,
; SEE IF VALID
J/PF35
;CDNTINUE BELOW
[ARX] WORK[PTA.U],
;USER MODE
SKIP AD.EQ.O, 4T
;SEE IF VALID
=0
VMA [ARX]+[BR],
;POINTER VALID
VMA-PHYSICAL READ,
;START MEMORY
J/PF77
.
;CONTINUE BELOW
[AR] [UBR]+#, 3T,
;USER MODE
#/540,
; OFFSET TO UPT
J/PF40
;GO GET PDINTER
=0
PF35:

VMA [ARX]+[BR],
; POINTER VALID
VMA PHYSICAL READ,
;START MEMORY
J/PF77
; CONTINUE BELOW
[AR] [EBR]+#, 3T,
;EXEC MODE
#/540
; OFFSET TO EPT
VMA [AR],
PF40:
;LOAO THE VMA
START READ,
;START THE MEMORY CRANKING
VMA PHYSICAL
;ABSOLUTE ADDRESS
MEM READ,
;WAIT FOR MEMORY
[AR] MEM
;POINT POINTER IN AR
; LOOK AT SECTION POINTER AND DISPATCH ON TYPE
=000
PF45:
SC 7,
;FETCH SECTION 0 POINTER
CALL [SETPTR]
;FIGURE OUT POINTER TYPE
SECIMM: TL [AR],
;IMMEDIATE POINTER
#/77,
;TEST FOR 12-17 = 0
J/PF50
;CONTINUE AT PF50
[AR] [AR]+WORK[SBR],
; SHARED SECTION
J/SECSHR
;GO FETCH POINTER FROM SPT
[AR] [AR]+WORK[SBR],
;INDIRECT SECTION POINTER
CALL-[RDPT)
;GO FETCH SPT ENTRY
= 111
TL [AR],
; 12 TO 17 = O?
#/77
=0
=0*0
PF60:

PAGE FAIL TRAP
[AR] [AR]*2,
STEP-SC

;NO
;FIRST SHIFT
;SC WAS LOADED AT PF45

[AR] [AR]*2,
STEP SC,
J/PF60
CALL [RDPT]
J/PF45

;CONVERT TO ADDRESS OF
; SECTION TABLE
;READ SECTION TABLE
;TRY AGAIN

n

TlOKL.lVrCR[ 10.1141)
PAGEF.MIC[10,1141)

~

f.

I

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2243. 1511.4443.0000.4174,4007,0700.0010.0000,0000
U 2247. 2566,4553.0300.4374,4007,0321.0000.0000.0077

U 2566. 2670.4553,1300.4374.4007,0321.0000.0001,0000
U 2567. 2545.4251.0304.4374.4007.0700.0000.0000.3777
U 2545, 1502,3441.0403.4174.4007.0700.0010.0000.0000
U 2547. 2570.3551.0303.7274.4007.0701.0000.0000.0220

U 2570. 2634.3773.0000.7274.4007,0622.0010.0000.0216
U 2574. 2572.4443.0000.4174.4007.0700,2000,0071,0007

U 2572. 2572.3445.0404.4174.4007,0630,2000.0060,0000

8336
8337
8338
8339
8340
8341
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366

KS10 MICROCODE V124. 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 231

;STILL .IF/KLPAGE
;HERE FOR SHARED SECTION. AR GETS THE ADDRESS OF PAGE TABLE
=0**
;READ WORD FROM SPT
SECSHR: CALL [RDPT)
TL [AR), #/77
;TEST FOR BITS 12-17
o
;HERE WITH ADDRESS OF PAGE T~BLE
; BITS 12 THRU 17 EQUAL TO ZERO
=0
PAGE FAIL TRAP
PF50:
[ARX) [AR].AND.# CLR LH.
#/3777
.IFNOT/NOCST
=0*
[AR] [.ARX],
CALL-[UPCST]
PF70:
[AR] [AR].OR.WORK[PUR]
.IFNOT/INHCST
=0**
START NO TEST WRITE.
CALL [IBPX]
.ENDIF/INHCST
.IF/INHCST
=O*~
SKIP NO CST.
CALL [WRCST]
.ENDIF/INHCST
SC 7
=0
PF75:
[ARX] [ARX]~2.
STEP SC,
J/PF75

IN AR AND SKIP ON
;BITS 12-17 .NE. 0
;PAGE NUMBER OF PAGE TABLE
;11 BIT PHYSICAL PAGE #
;COPY ADDRESS
;UPDATE CSTO
;PUT IN NEW AGE AND
; USE BITS
;START MEMORY WRITE
;GO STORE IN MEMORY
;SEE IF A CST
;AND GO WRITE IN MEMORY
;THIS CAN BE BUMMED
CONVERT PAGE NUMBER TO
PAGE ADDRESS
LOOP OVER 9 STEPS

'"

/

'I

T10KL.MCR[10,1141]
PAGEF .MIC[ 10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2573, 1040,3333,0006,4174,4007,0520,0000,0000,0000
U 1040, 2650,3771,0003,7274,4007,0622,0010,0000,0423
U 1041, 2650,3771,0003,7274,4007,0622,0010,0000,0424
U 1042, 1047,3333,0004,7174,4007,0700,0400,0000,0423
U 1043, 1047,3333,0004,7174,4007,0700,0400,0000,0424

U 1047, 1134,0113,0405,4174,4007,0700,0200,0024,1016

U 1134, 1503,3771,0003,4365,5007,0700,0210,0000,0002
U 1135, 1140,4553,0300,4374,4007,0321,0000,0000,0077
U 1136, 2571,0551,0303,7274,4007,0701,0000,0000,0215

8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
; 8377
;' 8378
8379
8380
8381
8382
8383
8384
8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 232

;STILL .IF/KLPAGE
;WE NOW HAVE THE ADDRESS OF THE PAGE TABLE ENTRY. GO
; READ IT AND START ANALYSIS
;IF WE ARE HERE FOR THE FIRST TIME FOR THE USER OR EXEC SAVE THE
; ADDRESS OF THE PAGE TABLE IN PTA.E OR PTA.U SO THAT WE DO NOT
; HAVE TO DO THE SECTION LOOKUP EVERY TIME.
READ [BRX], SKIP DPO
;USER OR EXEC REF?
=000
[AR] WORK[PTA.E],
;EXEC MODE
SKIP-AD.EQ.O, 4T,
;SEE IF SET YET
CALL [SHOREMj
;SHOULD WE REMEMBER PTR
[AR] WORK[PTA.U],
;USER MODE
SKIP-aD.EQ.O, 4T,
;SEE IF SET YET
CALL [SHDREM]
;SHOULD WE REMEMBER PTR
WORK[PTA.E] [ARX],
;SAVE FOR EXEC
J/PF76
;CONTINUE BELOW
WORK[PTA.U) [ARX],
;SAVE FOR USER
J/PF76
;CONTINUE BELOW
= 111
PF76:
VMA [ARX]+[BR],
;READ PAGE POINTER
START READ,
VMA PHYSICAL
=00
PF77:

MEM READ,
[AR] MEM,
CALL -[ SETPTR]
PTRIMM: TL [AR],
#/77 ,
J/PF80
[AR] [AR]+WORK[SBR),
J/PTRSHR

;START ANALYSIS OF POINTER
IMMEDIATE POINTER
CHECK FOR BITS 0-5
GO TO PF80
SHARED POINTER
GO TO READ SPT

n

T10KL.MtR[10,1141]
PAGEF .MIC[ 10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 1137, 2576,3770,0305,4344,4007,0670,0000,0000,0000
U 2576, 2610,3333,0003,7174,4007,0700,0400,0000,0426
U 2577, 2600,4251,0505,4374,4007,0370,0000,0000,0777

U 2600, 1000,4551,0303,4374,0007,0700,0000,0027,7000
U 2601, 2670,4553,1300,4374,4007,0321,0000,0001,0000
U 2571,

1511,4443,0000,4174,4007,0700,0010,0000,0000

U 2575,

1140,4553,0300,4374,4007,0321,0000,0000,0077

U 1140, 2670,4553,1300,4374,4007,0321,0000,0001,0000

U 1141, 1502,4251,0304,4374,4007,0700,0010,0000,3777

U 1143, 3761,3551,0606,4374,0007,0700,0000,0010,0000
U 3761, 2602,4553,1300,4374,4007,0321,OOOO,0002,OOO?
U 2602, 3762,3551,0606,4374,4007,0700,0000,0002,0000
U 2603, 2604,4553,0600,4374,4007,0321,0000;0003,0000
U 2604, 2670,4553,1300,4374,4007,0321,0000,0001,0000

U 2605, 2613,3551,0303,7274,4007,0701,0000,0000,0220

U 2610, 3574,3771,0003,7274,4117,0701,0010,0000,0301
U 2612, 1137,3771,0003,7274,4007,0701,0000,0000,0426

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 233

8400 ;STILL .IF/KLPAGE
;INOIRECT P01NTER. CHANGE PAGE # AND LOOK FOR PAGE TABLE
8401
8402 PTRIND: [BR] [AR] SWAP,
;PUT IN RIGHT HALF
8403
SKIP7-1 MS
;010 CLOCK GO OFF
8404 =0
WORK[SV.AR1] [AR],
;YES--UPDATE CLOCK
8405
J/PFTICK
8406
[BR] [BR].AND.# CLR LH, ;UPDATE PAGE # AND RESTART
#/777,
8407
;MASK FOR PAGE #
SKIP IRPT
8408
;SEE IF THIS IS A LOOP
[AR] [AR].AND.#,
;CHANGE INDIRECT POINTER
8409 =0
8410
#/277000,
; INTO SHARE POINTER
8411
HOLD RIGHT,
8412
J/PF45
;GO BACK AND TRY AGAIN
8413
PAGE FAIL TRAP
;POINTER LOOP
8414
8415 =0**
8416 PTRSHR: CALL [RDPT]
;GO LOOK AT POINTER
TL [AR],
;BITS 12-17 .EQ. 07
8417
#/77
8418
8419
8420 ,'HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO
84210.- 00
;NO--TAKE A TRAP
8422 .. PF80:
PAGE FAIL TRAP
8423. ~ .IFNOT/NOCST
8424 [ARX] [AR].AND.# CLR LH, ;SAVE PHYSICAL PAGE #(-1/)
8425
#/3777,
;MASK TO 13 BITS
\ 7o,F/N('CSI
;UPOATE CSTO
;--_. =0
8426
CALI.. [UPCST]
8427 [ENDIF/NOCS~
1~,:'6O:
~11e:~ t=.1' '8428 ;HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK
8429.; AT WRITABLE AND WRITTEN BITS
8430 ,{.= 11
8431 PF90:
[BRX] [BRX].OR.#,
;TRANSLATION IS VALID
8432
#/100000, HOLD RIGHT
8433
TL [FLGl. FLG.W/1
;IS THIS PAGE WRITABLE?
[BRX] [BRX].OR.#,
8434 =0
;YES--INDICATE THAT IN PFW
8435
#/020000,
8436
J/PF100
;NOT WRITE VIOLATION
8437
TL [BRX],
;IS THIS A WRITE REF?
WRITE TEST/1, WRITE CYCLE/1
8438
8439 =0
PAGE FAIL TRAP
;WRITE VIOLATION
8440 PF107:
8441
.IFNOT/NOCST
8442
[AR] [AR].OR.WORK[PUR], ;PUT IN NEW AGE
8443
J/PF110
;GO TO STORE CST ENTRY
8444 .ENDIF/NOCST
8445 . IF /NOCST
8446 PFDONE: TR [FLG],
8447
#/400000,
8448
J/PF140
8449 .ENDIF/NOCST
8450
8451 =0*
8452 PFTICK: [AR] WORK[TIME11.
;UPDATE TIMER
8453
SPEc7cLRCLK, CALL [TOCK]
8454
[AR] WORK[SV.AR1],
;RESTORE AR
8455
J/PTRIND
;GO TRY AGAIN

r'

T10KL.MCR[ 10,1141]
PAGEF . "HC[ 10,1141]

15 :3 4 27-JULY-1984
12 :32 26-JULY-1984

MICRO 31(254)

U 1137, 2576,3770,0305,4344,4007,0670,0000,0000,0000
U 2576, 2610,3333,0003,7174,4007.0700,0400,0000,0426
U 2577, 2600,4251,0505,4374,4007 ,03 70,0000,0000 ,0777

U 2600, 1000,4551,0303,4374,0007,0700,0000,0027,7000
U 2601, 2670,4553,1300,4374,4007 , 0321,0000,0001,0000
U 2571,

1511,4443,0000,4174,4007,0700,0010,0000,0000

U 2575,

1140,4553,0300,4 3 74,4007,0321,0000,0000,0077

U 1140, 2670,4553,1300,4 374, 4007 .032 1,0000 ,0001,0000

U 1141,

1502,4251,0304,4374,4007 , 0700,0010,0000,3777

U 1143, 3761,3551,0606,4374,0007,0700,0000,0010,0000
U 3761, 2602,4553,1300,4374,4007.0321,OOOO,0002,000?
U 2602, 3762,3551,0606,4374,4007,0700,0000,0002,0000
U 2603, 2604,4553,0600,4 374 ,4 007,032 1,0000,0003 , 0000
U 2604, 2670,4553,1300,4374,4007 ,032 1,0000,0001,0000

U 2605, 2613.3551,0303,7274,4007,0701,0000,0000,0220

KS10 MICRO CODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 233

8400 ;STILL . IF /KLPAG E
8401
; INDIRECT P01NTER. CHANGE PAGE # AND LOOK FOR PAGE TABLE
;PUT IN RIGHT HALF
8402 PTRIND: [BR] [AR] SWAP,
8403
;010 CLOCK GO OFF
SKIP7-1 MS
;YES--UPDATE CLOCK
8404 =0
WORK[SV . AR1] [AR],
8405
J/PFTICK
[BR] [BR].AND.# CLR LH, ;UPDATE PAGE # AND RESTART
8406
8407
#/777,
;MASK FOR PAGE #
8408
SKIP IRPT
;SEE IF THIS IS A LOOP
8409 =0
[AR] [AR].AND .# ,
;CHANGE INDIRECT POINTER
8410
#/ 277000,
; INTO SHARE POINTER
8411
HOLD RIGHT,
8412
J / PF45
;GO BACK AND TRY AGAIN
8413
PAGE FAIL TRAP
;POINTER LOOP
8414
8415 =0* *
8416 PTRSHR: CALL [RDPT]
;GO LOOK AT POINTER
8417
TL [AR],
;BITS 12-17 .EQ. O?
#/ 77
8418
8419
84200". HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO
8421
=00
8422 PF80 :
PAGE FAIL TRAP
;NO--TAKE A TRAP
8423 [; IFNOT / NOCST
8424
[AR X] [AR].AND .# CLR LH, ;SAVE PHYSICAL PAGE # ( -=")
8425
#/ 3777,
;MASK TO 13 BITS
Qj F=/N("CS"; UPDATE CSTO
=0
8426 ~
CAL !,. [UPCST]
8427 [ ENDIF / NOCS r---"L
~ r' 60 ~
p..u:Ii r= 11 ' L. 't"tM-p
8428
;HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK
8429
; AT WRITABLE AND WRITTEN BITS
8430 =11
8431
PF90:
[BR X] [BRX] . OR .# ,
; TRANSLATION
8432
#/ 100000, HOLD RIGHT
8433
TL [FLG], FLG.W/1
; IS THIS PAGE
8434 =0
[BR X] [BRX].OR .#,
;YES--INDICAT
84 3 5
#/ 020000,
8436
J / PF100
; NOT WRITE VI '
8437
TL [ BRX ],
; IS THI S A WR
8438
WRITE TEST/1, WRITE CYCLE/1
.'v.;
f\\
8439 =0
PAGE FAIL TRAP
; WRITE VIOLAT
8440 PF107 :
8441
. I FNOT / NOCST
8442
[AR] [AR].OR.WORK[PUR], ;PUT . IN NEW A'
8443
J / PF110
; GO TO STORE '
8444 ~ ENDIF / NOCST
8445
. IF / NOCST
8446 PFDONE: TR [FLG],
8447
#/ 400000,
8448
J / PF140
8449 .. . ENDIF / NOCST
8450
8451
=0 *
8452 PFTICK : [AR] WDRK[TIME1],
;UPDATE TIMER
8453
SPEc7cLRCLK, CALL [TOCK]
8454
[AR] WORK[SV.AR1],
;RESTORE AR
8455
J / PTRIND
;GO TRY AGAIN

r-

.T ell
B1 d( .

r

U 2610, 3574,3771,0003,7274,4117,0701,0010,0000,0301
U 2612,

1137,3771,0003,7274,4007,0701,0000 ,0000,0426

.-

lS

T10KL.MCR[10,1141]
PAGEF .MIC[ 10,1141]

15:34 27-JULY-1984
12:32 ~6-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 233-1

8456

/

c-,

T 10K L . MeR [ 10, 1 14 1 ]
PAGEF .MIC[ 10,1141]

~,
15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3762, 2606,4553,0600,4374,4007,0321,0000,0001,0000

U 2606, 2614,3551,0303,4370,4007,0700,0000,0000,0001
U 2607, 2614,4553,0300,4374,4007,0331,0000,0000,0001

U 2614, 2605,3551,0606,4374,0007,0700,0000,0004,0000

U 2615, 2605,5551,1313,4374,0007,0700,0000,0002,0000

U 2613, 2634,3773,0000,7274,4007,0622,0010,0000,0216

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 234

8457
;STILL .IF/KLPAGE
8458
;HERE IF PAGE IS WRITABLE
8459 ·PF100: TL [BRX]. WRITE CYCLE/l ;IS THIS A WRITE REF?
[AR] [AR).OR.#,
;YES--SET WRITTEN BIT
8460 =0
8461
# /1,
HOLD LEFT,
8462
84.63
J/PF105
;NOT WRITE, ALREADY WRITTEN?
TR [AR],
8464
8465
#/1
8466 =0
[BRX) [BRX).OR.#,
;WRITTEN SET BIT
8467 PF105:
;MARK PAGE AS
8468
#/040000,
HOLD RIGHT,
; WRITABLE
8469
;STORE CST WORD
8470
J/PF 107
;NOT WRITTEN, CAUSE TRAP ON
8471
[FLG] [FLG].AND.NOT.#,
; WRITE ATTEMPT
8472
FLG.w71,
;ONLY CLEAR LH
8473
HOLD RIGHT,
; 8474
J/PF107
;.8475
.IFNOT/NOCST
8476 =0**
8477 PF 110:
8478
.IFNOT/INHCST
8479
START NO TEST WRITE,
;STORE CST ENTRY
8480
CALL [IBPX]
8481
.ENDIF/INHCST
8482
.IF/INHCST
8483
SKIP NO CST,
8484
CALL [WRCST]
8485 .ENDIF/INHCST
8486
8487
.ENDIF/KLPAGE
8488

T 10K L. MC R[ 10, 114 1 ]
PAGEF.MIC[10,l141]

15:34 27-JULY-1984
12:32 26-JULY-1984,

MICRO 31(254)

U 2617, 2620,4553,1300,4374,4007,0331,0000,0040,0000

U 2620, 2622,3441;0403,4174,4007,0700,2000,0071,0007
U 2621, 3767,3771,0003,7274,4007,0701,0000;0000,0210

2622,3445,0303,4174,4007,0630,2000,0060.,0000

U 2622,

3763,4551,0303,4374,0007,0700,0000,0000,0003
U 3763, 3764,4221,0013,4170,4007,0700,0000,0000,0000

U 2623,

U 3764, 3765,3551,0606,4374,0007,0700,0000,0010,0000
U 3765, 2624,4553,1300,4374,4007,0321,0000,0000,4000
U 26,24, 2625,3551,0606,4374,0007,0700,0000,0000,2000
U 2625,

3766,4551,0606.4370.4007,0700.0000.0000.0777

U 3766,

1500,3111,0603,4174.4003,7700,0200,0003,0001

,...'

(

8489
8490
8491
8492
8493
8'194
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8519

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 235

;HERE WHEN WE HAVE FIGURED OUT PHYSICAL ADDRESS (IN ARX) AND FLAGS
; (IN BRX) RELOAD PAGE TABLE.
PFDONE: TR [FLG],
;MAP INSTRUCTION?
#/400000
.ENDIF/NOCST
=0
PF140:
[AR] [ARX],
;GET PHYSCIAL PAGE #
SC 7-:
;PREPARE TO CONVERT TO
J/PF 130
; WORD ADDRESS
[AR] WORK[SV.VMA],
;RESTORE VMA
J/PF120
=0
PF130:
[AR] [AR]*2,
;CONVERT TO WORD #
STEP-SC,
J/PF130
[AR] [AR].AND.#.
;JUST ADDRESS SITS
#/3.
HOLD RIGHT
END MAP
;CLEAR MAP FLAGS
[SRX] [SRX] . OR. #.
;TURN ON THE TRANSLATION
#/100000.
; VALID SIT
HOLD RIGHT
; IN LEFT HALF ONLY
TL [FLG], FLG.C/1
; CACHE S IT SET?
=0
[SRX] [SRX]. OR. #.
;YES--SET IN MAP WORD
#/002000. HOLD RIGHT
[SRX] [BRXJ.AND.#,
;PRESERVE WORD #
#/777-: HOLD LEFT
; IN PAGE FAIL WORD
[AR] [AR].OR. [SRX).
;COMPlETE MAP INSTRUCTION
EXIT

rJ

T10KL.MCR[ 10,1141]
PAGEF. Mlct 10, 1141]

15:34 27-JULV-1984
12:32 26-JULV-1984

MICRO 31(254)

U 3767, 3770.3441,0305,4174,4007,0700,0000,0000,0000

U 3770, 3771,5551,0305,4374,0007,0700,0000,0007,0000
U 3771, 3772,3443,0500,4174,4007,0701,0200,0000,0030
U
U
U
U

3772,
3773,
3774,
2626,

3773,4251,0404,4374,4007,0700,0000,0000,3777
3774,3551,0406,4374,4007,0700,0000,0040.0000
2626,4553,1300,4374,4007,0321,0000,0002,0000
2627,3551,0606,4374,4007,0700,0000,0004,0000

U 2627, 2630,4553,1300,4374,4147,0321,0000,0000,4000
U
U
U
U
U

2630,
2631,
3775,
3776,
1435,

3775,3551,0606;4374,4007,0700,0000,0002,0000
3775,3333,0006,4174,4007,0700,0000,0000,0000
3776,3771,0004,7274,4007,0701,0000,0000.0212
1435,3771,0005,7274,4007,0701,0000,0000,0213
1500,3771,0006,7274,4007,0701,0000,0000,0214

U 1500, 1501,3443,0300,4174,4007,0701,0200,0000,0032

U 1501, 0000,3771,0003,7274,4004,1701,0000,0000,0211

8520
8521
8522
8523
8524
8525
8526
8527
8528
8529
8530
8531
8532
8533
8534
8535
8536
8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
8547
8548
8549

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC
PF120:

=0

=0
PF125:

Page 236

[BR] [AR]
;COPY PAGE FAIL WORD
[BR)-[AR].AND.NOT.#,
;CLEAR BITS WHICH START A CY~LE
READ-CYCLE/1,
, ..
WRITE CYCLE/1,
, ..
WRITE TEST/1,
, ..
HOLD RIGHT
;JUST DO LEFT HALF
VMA [BRl. 3T,
;RESTORE VMA
DP FUNC/1
;SET USER ACCORDING TO WHAT IT WAS
[ARX) [ARX].AND.# CLR LH, ;JUST KEEP PAGE #
#/3777
, ..
[BRX] [ARX].OR.#, #/400000 ;SET VALID BITS
TL [FLG], FLG.W/1
;WANT WRITE SET?
[BRX] [BRX].OR.#. #/040000 ;SET WRITE BIT
TL [FLGl. FLG.C/1.
;WANT CACHE SET?
LOAD PAGE TABLE
;LOAD PAGE TABLE ON NEXT
; MICRO INSTRUCTION
[BRX] [BRX] .OR.#.
; SET CACHE BIT
; CACHE BIT
#/020000. J/PF125
READ [BRX]
;LOAD PAGE TABLE
[ARX] ·WORK[SV.ARX]
[BR] WORK[SV.BR]
[BRXT WORK[SV.BRX]
VMA (AR].
MAKE MEM REQUEST
DP FUNC/1, 3T,
FROM DATA PATH
WAIT FOR PREVIOUS CYCLE TO
WAIT/1
COMPLETE. (NEED THIS TO
START ANOTHER CYCLE)
[AR] WORK[SV.AR]~
RETURN [0]

/

T10KL.MCR[10;1141]
PAGEF.MIC[10.1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

,
/

U 1502. 1150.3773,0000.7274.4001,0622,0000,0000,0216
U 1150, 1511,0551.0303,7274,4007,0701,0010,0000,0216
U 1151, 0002,4221,0003,4174;4004,1700,0000.0000,0000
U 1154, 2632,4553,0300,4374,4007,.0321 ,0000,0077 ,0000
U 2632, 0002.4551,0303,7274,4004,1701,0000,0000,0217
U 2633, 2670,4553,1300.4374,4007,0321.0000,0001,0000

U 2634, 3Q70,4443,OOOO,4174,4007,0700,0200,OO01,OO02
U 2635, 0004.4443,0000,4174,4004,1700;0000,0000,0000

8550
8551
8552
8553
8554
; 8.555
; :8556
; ;8557
; ;8558
; ;8559
;;8560
;; 8561
; ;8562
; ;85.63
; ;8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584

KS10 MICROCODE V124, .27-JUL-84
PAGE FAIL RHIL LOGIC

Page 237

.IF/KLPAGE
.IFNOT/NOCST
;SUBROUTINE TO START CST UPDATE
;CALL WITH:
;
AR/ PHYSICAL PAGE NUMBER
;RETURN 2 WITH ENTRY IN AR, PAGE FAIL IF AGE TOO SMALL
. I FNOT/INHCST
=0**
[AR] [AR]+WORK[CBR],
;AOORESS OF CSTO ENTRY
UPCST:
CALL-[ROPT]
;READ OLD VALUE
TL [AR],
;0 - 5 = O?
#/770000
; ..
=0 .
[AR] [AR].AND.WORK[CSTM],
;CLEAR AGE FIELD
RETURN [2]
;AGE IS NOT ZERO
PAGE FAIL TRAP
;AGE TOO SMALL
.ENDIF/INHCST
.IF/INHCST
UPCST: SKIP NO CST
;SEE IF A CST IS PRESENT
=0*0
[AR] [AR]+WORK[CBR],
;YES, ADDRESS OF CSTO ENTRY
CALL -[ RDPT]
;READ OLD VALUE
;NO CST, RETURN
[AR] O,RETURN [2]
TL (AR],
;CHECK AGE FIELD
#/770000
=0

=0
WRCST:

[AR] [ARJ.AND.WORK[CSTMJ,
;CLEAR AGE FIELD
RETURN [2J
;AGE IS NOT ZERO
PAGE FAIL TRAP
;AGE TOO SMALL

START NO TEST WRITE,
J!IBPX
RETURN [4]
.ENDIF/INHCST
.ENDIF/NOCST

(j
T10Kl.Iv,d[ 10,1141]
PAGEF .MIC[ 10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 1503, 1507,3551,0304,4374,4007,0700,0000,0075,3777
U 1507, 1510,4111,0413,4174,0007,0700,0000,0000,0000
U 1510, 2636,3333,0003,4174,4007,0520,0000,0000,0000
U 2636, 2640,4553,0300,4374,4007,0321,0000,0030,0000
U 2637, 2670,4553,1300,4374,4007,0321,0000,0001,0000

U 2640, 2642,4553,0300,4374,4007,0321,0000,0010,0000
U 2641, 2670,4553,1300,4374,4007,0321,0000,0001,0000

'g
h

~
~

U 2642, 2644,4553,0300,4374.4007,0321,0000,0020,0000
U 2643, 0002,4443,0000,4174,4004,1700,0000,0000,0000

~

I'

"

U 2644,0003,4443,0000,4174.4004.1700,0000,0000,0000
U 2645, 0001,4443,0000,4174,4004,1700,0000,0000,0000

8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
8596
8p97

8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613
8614
8615
8616
8617

KS1V MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 238

;STILL .IF/KLPAGE
;SUBROUTINE TO LOOK AT PAGE POINTER
;CALL WITH POINTER IN AR
; RETURNS 1 IF TYPE 1
;RETURNS 2 IF TYPE 2
;RETURNS 3 IF TYPE 3
;GOES TO PFT IF TYPE 0 OR 4 THRU 7
SETPTR: [ARX] [AR].OR.#,
;AND C AND W BITS
#/753777
; OF ALL POINTERS
[FLG] [FLG].AND. [ARX],
; ·.
HOLD RIGHT
;KEEP IN LH OF FLG
READ [AR],
;TYPE 4,5,6 OR 7?
SKIP DPO
; ·.
=0
;HERE WE TEST FOR TYPE
TL [AR] ,
#/300000,
; ZERO POINTER
J/STPTR1
;CHECK AT STPTR1
PAGE FAIL TRAP
;BAD TYPE
=0
STPTR 1 : TL [AR] ,
;NOT ZERO
#/100000,
;SEPERATE TYPE 2
J/STPTR2
; · .
PAGE FAIL TRAP
;TYPE 0
=0
STPTR2: TL [AR] ,
#/200000.
J/STPTR3
RETURN [ 2]

;SEPERATE TYPE 1
; AND 3

=0
STPTR3: RETURN [ 3]
RETURN [1]

;TYPE 3
;TYPE 1

;

·.

;TYPE 2

T10KL.MCR[10,1141]
PAGEF.MIC[10.1141]

15:34 27-JULY-1984
12:32 26-JULY-i984

MICRO 31(254)

U 1511, 2646,3443,0300,4174,4007,0370,0200,0024,1016
U 2646, 0004,3771,0003,4365,5004,1700,0200.0000.0002
U 2647,2670,4553,1300,4374,4007,.0321,0000,0001.0000

U
U
U
U
U

2650,
2651,
1512,
2652,
2653,

0007,4443,0000,4174,4004,1700,0000,0000,0000
1512,7441,1303,4'174,4007,0700,0000,0000,0000
2652,4553,0300,4374,4007,0321,0000,0002,4000
0007,4443,0000,4174,4004,1700,0000,0000,0000
0002,4443,0000,4174,4004.1700,0000,0000,0000

8618
8619
8620
8621
8622
8623
8624
8625
86.26
8627
8628
8629
8630
8681
8632
8633
8634
8635
8636
8637
8638
8639
8640
8641
8642
8643
8644
8645

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 239

;STILL .IF/KLPAGE
;SUBROUTINE TO FETCH A PAGE POINTER OR CST ENTRY
;CALL WITH ADORESS IN AR
;RETURN 4 WITH WORD IN AR
RDPT:

=0

VMA (AR],
START READ,
VMA PHYSICAL,
SKIP IRPT
MEM READ,
[AR] MEM,
RETURN [4]
PAGE FAIL TRAP

;LOAD THE VMA
;START MEM CYCLE
;ABSOLUTE ADDRESS
;CHECK FOR INTERRUPTS
;NO INTERRUPTS
;PUT THE DATA INTO AR
;AND RETURN
; INTERRUPT

;SUBROVTINE TO SEE IF WE SHOULD REMEMBER AN EXEC SECTION PTR
;CALL WITH SKIP ON ADR.EQ.O
;RETURNS 2 IF WE SHOULD STORE AND 7 IF WE SHOULD NOT
=0
SHDREM: RETURN [7]
;INDIRECT PTR
[AR] .NOT. [FLG]
; FLIP BITS
TL CAR], FLG.W/1, FLG.C/l ;BOTH BITS SET
=0
RETURN [7]
;NO--DON'T STORE
RETURN [2]
;STORE
.ENDIF/KLPAGE

C)
T10KL.MCR[ 10,1141 )
PAGEF. MIC[ 10,1141 )

,
!

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)
; ; 8646
; ; 8647
; ; 8648
; ;8649
; ;8650
; ; 8651
; ; 8652
; ; 8653
; ;8654
; ; 8655
;; 8656
; ; 8657
; ; 8658
; ;8659
; ;8660
; ; 8661
;; 8662
; ;8663
; ; 8664
; ;8665
; ; 8666
;; 8667
; ;8668
; ;8669
; ;8670
; ; 8671
; ;8672
; ; 8673
; ;8674
; ; 8675
; ; 8676
;; 8677
; ; 8678
; ; 8679
; ;8680
; ; 8681
; ;8682
; ; 8683

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 240

.IF/KIPAGI'
;HERE IN KIlO MODE
;BR CONTAtNS PAGE # AND ARX CONTAINS PAGE #/2
KIFILL: READ [BRX],
SKI~ DPO
=0
[BR]-#,
#/340,
SKIP DP18, 4T,
J/KIF10
KIUPT:
[ARX] [ARX]+[UBR],
LOAD VMA,
VMA PHYSICAL,
START READ,
J/KIF30
=0
KIF10:
[BR]-#,
#/400,
SKIP DP18, 4T,
J/KIEPT
[ARX] [ARX]+#, 3T,

KIF30:

;EXEC--LESS THAN 340?
;FOLLOW EXEC PATH
;POINTER TO PAGE MAP ENTRY
;PUT ADDRESS IN VMA
;ABSOLUTE ADDRESS
; FETCH UPT WORD
;JOIN COMMON CODE
;EXEC ADDRESS .GE. 340
; SEE IF .GT. 400

J/KIEPT

;LOOK AT KIF20
;EXEC ADDRESS ,LT. 340
; IN EBR+600 .
;JOIN COMMON CODE

[ARX] [ARX]+[EBR],
LOAD VMA,
START READ,
VMA PHYSICAL,
J/KIF30
[ARX] [ARX]+#,
#/220~ 3T,
J/KIUPT
MEM READ,
[ARX] MEM
TR [BR),

; ADD OFFSET TO
; EPT
; ST ART FETCH
;ABSOLUTE ADDRESS
;GO GET POINTER
;PER PROCESS PAGE
; IS IN UPT + 400
;JOIN COMMON CODE
;WAIT FOR DATA
;PLACE IT IN ARX
;SEE IF EVEN OR ODD

#/600~

=0
KIEPT:

;USER REF?

# /1,

T10KL.MCR[10,1141]
PAGEF.MIC[10,1141]

15:34 27-JULY-1984
12:32 26~JULY-1984

MICRO 31(254)
;
;
;
;
;
;
;
;

U 2654, 2670,4553,1300,4374,4007,0321,0000,0001,0000
U 2655, 1513,5551,1313,4374,4007,0700,0000,0002,4000.
U 1513, 2656,4553,0400,4374,4007,0331,0000,0002,0000
U 2656, 2657,3551,1313,4374,0007,0700,0000;0000.4000.
U 2657, 2660,4553,0400,4374,4007,0331,0000,0004,0000

U 2660, 2661,3551,0606,4374,0007,0700,0000,0002,0000
U 2661, 2662,45Q3,0400,4374;4007,0331 ,0000,0010,0000

U 2662, 1562,3551,1313,4374,0007,0700,0000,0002,0000
U 2663, 2664,4553,0600,4374,4007,0321,0000,0001,0000

U 2664, 2654,3551,0606,4374,0007,0700,0000,0010,0000

U 2665, 2617,4443,0000,4174,4007,0700,0000,0000,0000

U 1562, 2617,3551,0606,4374,4007,0700,0000,0004,0000

;8684
;8685
;8686
;8687
;8688
;8689
;8690
; 8691
8692
8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
'8706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723

KS10 MICROCODE V124, 47-JUL-84
PAGE FAIL REFIL LOGIC
;STILL .IF/KIPAGE
=0
KIF40:
READ [ARX],
SKIP DP18,
J/KIF50
[ARX] [ARX] SWAP,
J/KIF40
.ENDIF/KIPAGE
=0
KIF50:
PAGE FAIL TRAP
;AT THIS POINT WE HAVE THE PAGE
[FLG] [FLG].AND.NOT.#,
FLG.w71, FLG.C/1
TR [ARX], #/020000
=0
[FLG] [FLG].OR.#,
FLG.c71, HOLD RIGHT
TR [ARX], #/040000
=0

=0

=0
KIF80:

KIF90:

f

[BRX] [BRX].OR.#,
#/020000,
HOLD RIGHT
TR [ARX],
#/100000
[FLG] [FLG].OR.#,
FLG.w71,
HOLD RIGHT,
J/KIF90
TL [BRX],
WRITE CYCLE/1

Page 241

;000
; SEE I F VALID
;JOIN COMMON CODE
;EVEN--FLIP AROUND
; AND CONTINUE

MAP ENTRY IN RH OF AR
;CLEAR WAND C
; FLAGS
;CACHE ENABLED?
; SET CACHE BITS
;DD NOT CACHE
;SEE IF CACHE BIT SET
;COPY BITS TO BRX

;SAVE W
;ALL DONE
;W=O, WRITE REF?

[BRX] [BRX].OR.#,
#/100000, HOLD RIGHT,
J/KIF50
J/PFDONE

WRITE FAILURE
INDICATE THAT ACCESS WAS ON
GO PAGE FAIL
ALL DONE

[BRX] [BRX].OR.#,
#/40000,
J/PFDONE

PAGE IS WRITABLE
TURN ON IN BRX
ALL SET

/

T'OKl~['O."4'J
PAGEF.MIC[10,1141]

~\
15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 1563, 2666,3333,0005,7174,4007,0700,0400,0000,0213
U 2666, 1575,37"11,0005,4354,4007,0700,0010,0000,0000
U 2667,

1564,4551,0505,4374,0007,0700,0000,0040,1237

U 1564, 2654,3111,0506,4174,4007,0700.0000,0000,0000
U 1572, 1144,4443,0000,4174,4007,0370,0000,0000,0000

U 1144, 3574,3771.0003,7274.4117,0701.0010,0000,0301
U 1145, 2671,4443,0000.4174,4007,0700,0000.0000,0000
U 1146, 1573,4223,0000,4364,4277 ,0700;0200,0000,0010
U 1573, 3775,3771,0003,7274,4007,0701,0000.0000,0210
U 1575. 0001,4223.0000,4364,4274,1700,0200,0000,0010

8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC
;HERE ON HARD PAGE FAILURES
WORK[SV.BR] [BR]
HARD:
=0
[BR] VMA,
CALL-[ABORT]
[BR] [BR] .AND.#,
#/401237,
HOLD RIGHT
[BRX] [BRX].OR.[BR].
J/KIF50
PFPI1:

Page 242

;SAVE BR (CLEANUP MAY NEED IT)
;BUILD PAGE FAIL WORD
;CLEAR ERROR
;SAVE THE FLAGS
;COMPLETE PAGE FAIL WORD
;GO TRAP

SKIP IRPT

; TIMER TRAP?

[AR] WORK[TIME1],
SPEc7cLRCLK,
CALL [TaCK]
J/PFT1
ABORT MEM CYCLE

;YES--GET LOW WORD
;CLEAR CLOCK FLAG
;00 THE UPDATE
;EXTERNAL INTERRUPT
;CLEAR 1MS FLAGS

PFPI2:

[AR] WORK[SV.VMA],
J/PF125

;RESTORE VMA

ABORT:

ABORT MEM CYCLE, RETURN [1]

=00

T10KL.MCR[10,1141]
PAGEF.MIC[10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2670, 0104,4751,1217,4374,4007,0700,0000,0000,0100
U 2671, 2672,3771,0003,7274;4007,0611,0000,0000,0210
U 2672, 2674,4553,0300,4374,4007,0321,0000,0010,0000
U 2673, 1602,3771,0003,7274.,4007,0701,0000,0000,0425
U 1602, 2676,3333,0003,4174,4467,0700,0000,0000,0004
U 2674, 1100,4443,0000,4174,4007,0700,0000,0000,0000
U 2675, 2676,1111,0701,4170,4007,0700,4000,0000,0000
U 2676, 1100,3333,0013,4174,4003,5701,0000,0000,0000

U 1100, 2700,4221,0013,4170,4007,.0370,0000,0000,0000
U 1101, 3162,3771,0003,7274,4007,0701,0000,0000,0212
U 1102, 1604,0111,0701,4174,4007,0700,0000,0000,0000
U 1103, 3477,3771,0013,4370,4007,0700.0000,0000,0011
U 1104, 3477,3771,0013,4370,4007,0700,0000,0000,0012
U 1105, 2326,3771,0013,4370,4007,0700,0000,0000,0003
U 1106, 3506,3771,0013,4370,4007,0700,0000,0000,0012
U 1107, 3503,3771,0013,4370,4007,0700,0000,0000,0011
U 1110, 3475,3771,0013,4370,4007,0700,0000,0000,0011
U 1111, 2324,4221,0013,4170,4007,0700,0000,0000,0000
U 1112, 2326,4221,0013,4170,4007,0700,0000,0000,0000
U 1113, 2326,3771,0013,4370,4007,0700,0000,0000,0011

I

/

8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758·
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
87\39
8770
8771
8772
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
8788

KS10 MICROCOOE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 243

;HERE ON PAGE FAIL TRAP
=0
HALT [IOpn
PFT:
;10 PAGE FAILURE
PFT1 :
[AR] WORK[SV.VMA],
SKIP7TRAP CYCLE
;SEE IF TRAP CYCLE
TL [AR], FETCH/1,
=0
;IS THIS AN INSTRUCTION FETCH
J/PFT1A
;GO LOOK BELOW
[AR] WORK[TRAPPC]
;RESTORE PC
REAO-[AR], LOAD FLAGS, J/CLDISP
=0
;YES--NO PC TO BACK UP
PFT1A:
J/CLEANED
[PC] [PC]-1, HOLD LEFT ;DATA FAILURE--BACKUP PC
FIXPC:
=0
CLDISP: CLEANUP DISP
;GO CLEANUP AFTER PAGE FAIL
=0000
CLEANUP:
CLEANED:
;(0) NORMAL CASE
END STATE, SKIP IRPT,
;NO MORE CLEANUP NEEDED
J/PFT2
;HANDLE PAGE FAIL OR INTERRUPT
[AR] WORK[SV.ARX],
;(1) BLT
J/BLT-CLEANUP
[PC] [PC]+1,
; (2) MAP
J/MAPDON
STATE [EDIT-SRC],
;(3) SRC IN STRING MOVE
J/STRPF
STATE [EDIT-DST],
;(4) DST IN STRING MOVE
J/STRPF
ST ATE [SRC],
;(5) SRC+DST IN STRING MOVE
J/BACKD
STATE [EDIT-DST],
;(6) FILL IN MOVSRJ
J/STRPF4
STATE [EDIT-SRC],
;(7) DEC TO BIN
J/PFDBIN
STATE [EDIT-SRC],
;(10) SRC+DST IN COMP
J/CMSDST
END STATE, J/BACKS
(11) EDIT SRC FAIL
END STATE, J/BACKD
(12) EDIT DST FAIL
STATE [EDIT-SRC],
(13) SRC+DST IN EDIT
J/BACKD

~
./

T10KL.MCR[10,1141]
PAGEF.MIC[10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2700, 1603,0551,1103,4374,4007,0701,0000,0000,0500
U 2701,0770,3551,1313,4374,0007,0700,0000,0001,0000
U 1603, 2702,3443,0300,4174,4007,0700,0200,0021,1016
U 2702,

1606,3333,0006,4175,5007,0701,0210,0000,0002

U 2703, 2706,4521,1205,4074,4007,0700,0000,0000,0000

U 1604, 2704,4221,0013,4170,4007,0370,0000,0000,0000
U 2704, 1500,3441,0603,4174,4003,7700,0200,0003,0001
U 2705, 2701,1111,0701.4174,4007,0700,4000,0000,0000

8789
8790,
8791
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
'8818
8819
8820
8821

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC
=0
PFT2:
PFT3:
PFTlO:
=0

[AR] [UBR]+#,
#/500, 3T,
J/PFT10
TAKE INTERRUPT
VMA [AR],
VMA-PHYSICAL WRITE
MEM WRITE,
MEM [BRX],
CALL [NEXTAR]

.IF/KLPAGE
. IF/KIPAGE
TL [EBR], #/400000
=0
.ENDIF/KIPAGE
[BR] FLAGS,J/EAPF
.ENDIF/KLPAGE
.IF/KIPAGE
[BR] PC WITH FLAGS
MEM WRITE,
MEM [BR],
J/EAPF1
.ENDIF/KIPAGE
MAPDON: END STATE,
SKIP IRPT
=0
[AR] [BRX],
EXIT
[PC] [PC] -1, J/PFT3

Page 244

;PREPARE TO STORE PFW
;PROCESS INTERRUPT
;WHERE TO STORE PFW
;STORE PFW
;ADVANCE POINTER TO
;PREPARE TO STORE PC
;KL PAGING?
;YES--DO EXTENDED THING

;GET OLD PC
;STORE OLD PC

; CLEAR MAP BIT
;ANY INTERRUPT?
;RETURN PAGE FAIL WORD
; INTERRUPTED OUT OF MAP
; RETRY INSTRUCTION

Tl0KL.MCR[10,l141]
PAGEF .MIC[ 10,1141]

15:34 27-JULY-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2706, 1606,3333,0005,4175,5007,0701,0210,0000,0002
U 2707, 1605,3333,0001,4175,5007,.0701,0200,0000,0002

U 1605, 2736,0111,0703,4174,4007,0700,0200,0024,1016
U 1606, 0001,0111,0703,4170,4004,1700,0200,0023,1016

Number of microwords used:
D words= 512
U words= 2032, Highest= 2047
END

8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 245

.IF/KLPAGE
=0
EAPF:
MEM WRITE, MEM [BR],
CALL (NEXTAR] MEM WRITE, MEM [PC]
.ENDIF/KLPAGE
-

;STORE FLAGS
;STORE PC WORD

EAPF1:

(AR] (AR]+l,
VMA PHYSICAL READ,
J/GOEXEC

NEXTAR: NEXT (AR] PHYSICAL WRITE, RETURN [1]

T 10K L ~MCR[ 10. 1 14 1 ]
(U) A
AR

ARX

BR

,
!

~

~

~
'.
y

15:34 27-JULY-1984
637 #
641 #
2727
2972
3269
3457
3735
4098
4330
4476
4639
4937
5286
5389
5487
5515
5675
5776
5963
6166
6385
6525
6668
6821
6944
7064
7251
7438
7590
8306
8402
8568
642 #
4123
4464
4964'
5687
6222
6437
7096
8363
643 #
3077
3148
3833
4469
4793
4910
5299
5674
6043
6387
6936
7155
7347

2389
2730
2984
3274
3525
3770
4101
4340
4479
4641
4950
5290
5390
5490
5524
5690
5780
5967
6183
6400
6546
6669
6843
6948
7066
7332
7448
7617
8315
8409
8571
2489
4126
4465
5094
5707
6232
6754
7282
8386
2188
3078
3429
3841
4543
4794
4953
5300
5677
6134
'6405
6947
7180
7349

MICRO 31(254)

KS1U MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 246

2427
2814
2991
3276
3526
3814
4104
4346
4493
4646
5035
5291
5402
5493
5529
5704
5785
5974
6205
6428
6553
6671
6849
6954
7102
7334
7454
7620
8318
8417
8574
2771
4128
4544
5116
5712
6241
6757
7295
8496
2385
3093
3432
3842
4547
4795
4959
5356
5913
6199
6458
6951
7181
7385

2458
2839
3005
3291
3552
3825
4145
4369
4535
4692
5050
532 7
5413
5499
5571
5708
5803
5994
6246
6462
6580
6677
6886
6959
7116
7338
7458
7666
8322
8442
8598
3710
4170
4637
5326
5797
6265
6871
7489
8530
2422
3099
3438
3994
4549
4811
5102
5393
5926
6203
6511
7031
7189
7495

2716
2886
3011
3370
3641
4022
4184
4421
4554
4749
5100
5354
5440
5505
5630
5751
5836
6046
6272
6467
6638
6738
6895
7055
7147
7346
7544
7831
8346
8505
8640
4084
4229
4911
5568
6095
6386
7060
7959
8706
3071
3111
3450
4391
4730
4886
5203
5553
5965
6353
6846
7090
7268
7561

2457
2824
2995
3288
3532
3818
4118
4365
4518
4647
5038
5321
5404
5497
5545
5706
5787
5985
6219
6433
6554
6675
6868
6955
7108
7336
7457
7648
8320
8424
8592
2772
4150
4636
5288
5758
6264
6803
7299
8528
2420
3096
3435
3989
4548
4802
5062
5359
5925
6202
6473
7028
7188
7398

2521
2856
3006
3294
3579
3827
4146
4387
4536
4697
5053
5346
5414
5501
5579
5714
5808
6009
6257
6463
6618
6731
6890
7029
7120
7340
7475
7667
8326
8460
8603
3712
4186
4645
5358
5804
6273
6945
7672
8594
2426
3102
3441
4092
4552
4815
5104
5444
5928
6216
652.2
7051
7195
7518

2569
2866
3008
3299
3594
3987
4151
4415
4541
4707
5059
5352
5434
5503
5584
5741
5811
6029
6258
6464
6630
6732
6893
7032
7123
7342
7483
7726
8329
8464
8609
3725
4206
4714
5544
6047
6305
7054
7674
8698
2907
3106
3444
4224
4557
4824
5114
5527
5929
6224
6589
7085
7250
7519

2577
2876
3010
3300
3630
3992
4168
4419
4546
4711
5065
5353
5439
5504
5586
5748
5833
6033
6259
6465
6631
6737
6894
7053
7141
7344
7533
7823
8340
8502
8623
3754
4209
4904
5565
6088
6309
7058
7732
8701
3038
3109
3447
4389
4588
4885
5119
5551
5956
6230
6845
7087
7261
7520

2718
2917
3019
3387
3653
4057
4204
4422
4556
4753
5175
5355
5446
5506
5643
5763
5837
6049
6306
6468
6658
6745
6896
7057
7149
7348
7557
7862
8351
8520
8753
4096
4358
4912
5628
6129
6423
7063
8293

2721
2927
3042
3389
3707
4071
4316
4441
4558
4757
5178
5364
5481
5512
5662
5766
5841
6075
6336
6471
6661
6748
6918
7059
7154
7370
7559
8192
8394
8521
8794
4105
4386
4940
5645
6163
6431
7065
8301

2724
2937
3043
3454
3730
4087
4325
4473
4629
4761
5280
5369
5485
5514
5671
5774
5959
6159
6347
6476
6664
6752
6943
7062
7174
7376
7585
8202
8397
8542

3072
3143
3775
4399
4732
4887
5287
5563
6010
6363
6887
7132
7337
7563

3075
3144
3780
4403
4791
4888
5294
5577
6015
6374
6888
7140
7339
7591

3076
3147
3808
4466
4792
4889
5295
5656
6040
6383
6928
7153
7341
7595

4106
4438
4943
5667
6213
6435
7094
8349

T10KL.MCR[10.1141]

BRX

"

EBR
FLG
HR

MAG
MASK

ONE

PC
PI
TO
Tl
UBR
XWDl
(D) A
DBLAC

15:34 27-JULY-1984
7597
8731
644#
4294
5137
5653
6289
6417
6606
7198
8259
8536
646 #
649 #
5821
8531
640 #
3529
3627
4037
7014
7240
638 #
4215
4627
648 #
2257
3663
4559
5632
6131
7431
7629
645#
3420
4321
5448
6100
6370
6695
7722
8834
639 .#
3812
650 #
7421
652 #
5600
6421
6.53 #
5705
647 #
651 #
1315 #
1319 #

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL~84
Cr'oss Referenq~ Listing

Page 247

7601

7603

7627

7633

7724

8200

8264

8267

8406

8526

8728

4120
4298
5161
5654
6302
6426
6672
7199
8261
8703
6975·
3621
6597
8533
2289
3538
3640
5915
7015
7335
2424
4393
4628
215"0
2260
3943
4771
5722
6133
7432
7635
2180
3487
4736
5523
6135
6380
6818
7847

4148
4375
5246
5696
6311
6453
6679
7297
8431
8712
7178
5508
8246
8576
2295
3541
3919
6908
7016
7651
4130
4411
5223
2151
2263
3960
4891
5791
6155
7433
7652
2184
3501
5033
5672
6136
6384
6819
7933

4154
4428
5249
5917
6316
6455
6773
7447
8434
8715
7450
5609
8325
8601
2301
3543
3921
6985
7019
7665
4133
4433
5224
2152
2266
3983
4902
5880
6270
7434
7708
2229
3527
5101
5830
6178
6388
6825
7940

4225
4468
5319
6016
6324
6457
6777
7502
8437
8720
7493
5610
8345
8606
2307
3544
3923
6991
7020
7794
4152
4437
5547
2155
2517
3986
5208
5882
6592
7440
7861
2231
3536
'5142
5951
6242
6389
6847
7943

4248
4580
5320
6086
6326
6488
6781
7503
8459
8817
8304
5617
8413
8630
2316
3545·
3925
7000
7021
7803
4155
4440
5638
2158
2740
4031
5228
5884
7249
7459
8225
2276
3539
5144
5992
6247
6425
6889
7946

4268
4583
5322
6097
6335
6491
6785
7566
8467

4272
4594
5361
6098
6341
6507
6789
7649
8509

4276
5041
5366
6122
6346
6519
6793
8196
8513

4280
5093
5556
6171
6358
6521
6809
8249
8515

4286
5122
5573
6179
6397
6601
7077
8250
8517

4290
5130
5639
6260
6399
6603
7197
8253
8532

5744
8422
8639
2320
3564
3927
7001
7022
7805
4156
4481
5693
2191
2761
4091
5229
5886
7292
7469
8227
2363
3614
5149
6025
6310
6439
6931
7949

5747
8433
8694
2329
3568
3929
7002
7023
7807
4169
4483
5719
2202
2968
4227
5230
5888
7293
7487
8241
2414
3632
5166
6031
6322
6450
7256
7952

5750
8439
8696
2334
3578
3931
7006
7024
7809
4175
4484
5754
2238
3016
4261
5244
5890
7294
7501
8750
2417
3635
5167
6052
6329
6502
7279
8759

5753
8471
8699
2435
3583
3933
7007
7025
7811
4177
4611
5789
2242
3580
4395
5449
5892
7428
7579
8805
2947
3979
5251
6070
6349
6526
7309
8769

5813
8492
8708
2783
3586
3939
7008
7026
7813
4211
4616
5793
2245
3628
4406
5509
5894
7429
7582

5820
8512
8793
2788
3606
3959
7009
7218

3338
4026
5252
6080
6356
6620
7361
8819

3404
4042
5436
6099
6361
6642
7645
8830

2228
3830
3592
7422
4196
5601
7363
4413

2232
4216
3593
7423
4200
5602
7499
4553

2250
4218
3607
7424
4436
5605

2343
4693
7010
7425
4447
5613

2405
4702
7011
7426
4454
5616

2430
6964
7329
7427
4457
5618

3326
7352
7343
7436
4459
5658

3453
7471
7345

3458
7623
7350

3689
7858
7360

3806

4460
5724

5564
5732

5572
5733

5598
6354

5219

5221

5225

5240

5243

5588

5673

5676

5695

3945
3509

3985
3679

6967
7485

7113

7135

7187

7194

8296

8790

2775

4213
4621
5795
2248
3642
4434
5582
5896
7430
7618

7362

~
T 10K L: ••• c/R [ 10. 1141 ]
DFP
DREAD
DSHIFT
FP
FPI
rOT
RO-PF

READ

SHIFT
WRITE
(U) ACALU
AC+N

B
(D) ACOISP
(U) ACN

BINO
BINl
OLEN
OSTP

,-,..
15:34 27-JULY-1984
1325
1318
1321
1323
5274
5341
1322
1326
7550
1324
2635
2832
4137
1316
2623
2675
2852
2923
3205
3227
3362
3383
3412
4139
1320
1317
2659
1219
1221
3117
4212
4460
4621
5955
6114
6211
6272
6361
6694
6934
1220
1346
1222
4175
4215
4483
5547
6367
1229
1230
6222
1226
6332

#
#
#
#

#
#
#

#

#
#
#
#

#
#
#

#
#
#

.~

MICRO 31(254)

KS.O MICROCODE V124. 27-JUL-84
Cross Reference Listing

5534
2766
2957
5260
5305
5419
5264
6996
7551
2547
2642
2849
4304
2550
2628
2680
2861
2932
3206
3237
3363
3393
3413
4140
2952
2549
2664

5535
2767
2958
5261
5306
5420
5272
6997
7552
2552
2647
2859
4309
2555
2633
2809
2862
2933
3207
3238
3364
3394
3414
4306
2953
2554
2669

5623
4079

5684
4080

4163

4381

5262
5307

5263
5309

5265
5311

5266
5312

5268
5334

5269
5335

5270
5336

5271
5338

5273
5340

5310
7204
7553
2557
2652
2869

5339
7525
7818
2562
2657
2879

7526
7819
2600
2662
2899

7527
8188
2605
2667
2910

7528

7536

7537

7538

7539

2610
2672
292.0

2615
2677
2930

2620
2807
4050

2625
2817
4064

2630
2827
4112

2560
2638
2810
2871
3186
3208
3239
3365
3395
3415
4307
2954
2559
2674

2565
2644
2819
2872
3187
3209
3240
3366
3396
3416
4311

2584
2645
2820
2881
3188
3220
3.241
3376
3397
3647
4312

2602
2649
2829
2882
3189'
3221
3242
3377
3398
4052
4682

2603
2650
2830
2901
3190
3222
3243
3378
3399
4053
4683

2607
2655
2834
2902
3191
3223
3244
3379
3400
4066
4684

2608
2660
2835
2912
3202
3224
3359
3380
3409
4067
4685

2613
2665
2842
2913
3203
3225
3360
3381
3410
4114
4686

2618
2670
2851
2922
3204
3226
3361
3382
3411
4115
5384

2564
2679

2612
2776

2617
2844

2622
2845

2627

2632

2637

2654

2173
4084
4213
4479
4627
5963
6129
6213
6273
6363
6695
6936

2174
4096
4214
4481
4628
5973
6146
6216
6280
6367
6807
6940

2181
4175
4215
4483
5547
5976
6161
6222
6282
6380
6814
6943

2371
4177
4327
4484
5638
6006
6163
6224
6287
6386
6821
6948

2383
4179
4411
4610
5691
6009
6189
6252
6293
6387
6840

2489
4187
4433
4611
5693
6022
6192
6254·
6309
6510
6842

2772
4189
4437
4614
5699
6029
6194
6255
6320
6541
6849

2781
4196
4440
4615
5758
6036
6201
6259
6332
6546
6869

3022
4198
4454
4616
5766
6046
6202
6266
6341
65.51
6890

3043
4210
4455
4619
5804
6084
6203
6267
6347
6588
6926

3087
4211
4457
4620
5811
6094
6205
6268
6358
6590
6928

3516
2371
4177
4327
4484
5638
6386
2173
2174
6252
5955
6341

6996
2383
4179
4411
4610
5691

6997
2489
4187
4433
4611
5693

7204
2772
4189
4437
4614
5699

2781
4196
4440
4615
5758

3022
4198
4454
4616
5766

3043
4210
4455
4619
5804

3087
4211
4457
4620
5811

3117
4212
4460
4621
6293

4084
4213
4479
4627
6309

4096
4214
4481
4628
6320

6189
2181
6254
5963
6347
6943
6146

6211
6161
6259
5976
6358
6948
6541

6216
6163
6273
6006
6361

6224
6192
6282
6009
6363

6255
6194

6266
6201

6267
6202

6268
6203

6272
6205

6280
6213

6036
6380

6046
6387

6084
6694

6094
6695

6129
6807

6287
6821

6546

6590

6814

6869

6890

6934

6336

6840

6940

1227 #

5973

Page 248

T10KL.MCR[10.1141]
MARK
SRCLEN
SRCP
(U) AD

A

A+B

A+Q
A-.25
A-B-.25
A-D-.25
A-Q-.25
A.AND.S

/(

\

\

/

15:34 27-vULY-1984
1228 #
1224 #
1225 #
534 #
2266
4395
5926
7432
7652
563 #
2427
3008
3093
3389
3579
3825
4184
4340
4454
4558
4940
5208
5299
5404
5504
5584
5632
5712
5787
6075
6335
6464
6668
6928
7174
7370
7591
7858
8520
536 #
3404
4200
4587
5448
6219
6458
6967
7933
535·#
547 #
552 #
5963
548 #
551 #
568 #

MICRO 31( 254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 249

6510

6588

6022
2155
2320
4406
6155
7433
7708
2150
2430
3010
3096
3429
3594
3830
4186
4346
4460
4629
4959
5223
5321
5434
5505
5586
5639
5722
5808
6086
6341
6467
6679
6936
7178
7376
7595
7959
8526
2180
3614
4229
4593
5527
6230
6502
6975
7940
4436

6029
2158
2517
5221
6270
7434
7861
2152
2489
3011
3099
3441
3630
3842
4204
4375
4464
4693
4964
5224
5322
5436
5523
5598
5643
5724
5811
6122
6346
6471
6731
6943
7180
7447
7601
8202
8542
2184
3632
4285
4736
5577
6232
6526
7250
7943
4447

6114
2191
2738
5880
6592
7440
8225
2228
2521
3019
3102
3453
3641
4118
4206
4387
4473
4702
5038
5228
5326
5439
5524
'5600
5645
5732
5833
6129
6347
6473
6748
6944
7187
7454
7623
8261
8623
2229
3635.
4289
5142
5658
6242
6620
7256
7946
4468

6551
2202
2740
5882
7249
7469
8227
2232
2772
3038
3106
3454
3653
4120
4218
4389
4493
4707
5041
5229
5327
5440
5529
5601
5656
5733
5841
6163
6354
6511
6754
6948
7188
7475
7627
8264
8794
2231
3775
4369
5144
5951
6310
6642
7279
7949
5101

6842
2238
2759
5884
7292
7487
8241
2250
2788
3043
3109
3457
3707
4123
4224
4391
4541
4714
5059
5230
5346
5446
5556
5602
5662
5741
5929
6202
6358
6521
6845
6955
7194
7483
7633
8306
8817
2276
3780
4465
5149
6015
6322
6669
7309
7952
5565

6849
2242
2761
5886
7293
7501
8750
2295
2972
3071
3143
3458
3710
4145
4225
4403
4546
4730
5094
5243
5354
5481
5563
5605
5667
5748
5974
6222
6363
6546
6849
7010
7195
7502
7667
8326

6926
2245
3580
5888
7294
7579

6928
2248
3663
5890
7428
7582

2257
3943
5892
7429
7618

2260
3983
5894
7430
7629

2263
4031
5896
7431
7635

2307
2984
3072
3144
3525
3712
4146
4227
4415
4547
4753
5114
5244
5356
5485
5564
5613
5671
5751
5994
6224
6385
6553
6868
7011
7197
7520
7724
8329

2334
2991
3075
3147
3526
3730
4148
4248
4419
4548
4761
5122
5246
5361
5487
5568
5616
5672
5763
6009
6259
6386
6589
6887
7102
7199
7544
7726
8349

2343
2995
3076
3148
3532
3735
4150
4261
4434
4553
4815
5130
5286
5364
5493
5571
5618
5675
5766
6029
6272
6387
6606
6890
7132
7297
7557
7732
8363

2385
3005
3077
3300
3552
3808
4168
4316
4438
4554
4891
5178
5287
5369
5501
5572
5628
5687
5780
6040
6273
6421
6631
6894
7147
7329
7559
7823
8496

2426
3006
3078
3326
3568
3814
4170
4325
4441
4556
4904
5203
5288
5402
5503
5579
5630
5690
5785
6046
6309
6455
6661
6896
7149
7352
7566
7831
8502

2363
3945
4466
5166
6047
6329
6695
7450
8293
5573

2414
3979
4469
5167
6052
6349
6847
7485
8301
5674

2417
3985
4479
5251
6070
6370
6871
7495
8386
5677

2783
4026
4552
5252
6099
6384
6889
7503
8769
5830

3111
4042
4557
5300
6100
6439
6931
7722
8830

3338
4196
4583
5444
6205
6450
6951
7847
8834

4365
6098
6183

4421
6134
6423

4422
6353
6428

5100

5119

5137

5161

5249

5358

5366

5714

6476

4154

4169

4386

4457

4910

5509

5758

5791

5793

5804

5985

.f

'.

\

/
\,

\

tJ

~.

~
.J

Tl0KL~MC'[10,1141]
A.AND.Q
A.EQV.B
A.EQV.Q
A.OR.B
A.OR.Q
A.XOR.B
A.XOR.Q
B

B-.25
B-A-.25
0

15:34 27-JULY-1984
6131
567 #
4824
595 #
594 #
560 #
7058
8731
559 #
587 #
586 #
562 #
2527
3084
3619
4003
4355
4703
5021
5678
6030
6164
6479
6850
7157
7308
7694
7935
7953
8235
8761
546 #
544 #
6136
8819
566 #
2366
2691
2754
3387
3593
:1812
4151
4692
4811
4977
5157
5558
5998
6077
6161
6292
6379
6541
6671

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

7029
4152
4902

7032
4393
4911

7362
4437
5754

7518
4481
5789

8594
4483

4559

4611

4616

4621

4627

4628

4130
2907
7065

4133
4092
7096

4155
4912
7123

41 :;6
5065
7140

4211
5917
7141

4213
6016
7341

4215
6049
7347

4484
6088
7489

6246
7585

6677
7620

7054
8517

5219
5795

5240
7295

5588

2160
2533
3140
3659
4034
4360
4718
5285
5727
6056
6295
6501
6852
7223
7310
7728
7936
7954
8239
8797

2168
2538
3285
3695
4041
4427
4721
5289
5745
6057
6297
6505
6874
7227
7318
7730
7938
7956
8240
8825

2170
2541
;3329
3701
4122
4429
4737
5372
5783
6058
6340
6557
6914
7231
7319
7839
7939
8198
8275
8827

2171
2572
3332
3740
4267
4446
4818
5374
5919
6073
6359
6965
7235
7371
7846
7941
8208
8374

2174
2591
3335
3746
4271
4462
4884
5406
5922
6115
6372
6591
7067
7239.
7383
7911
7942
8209
8381

2176
2736
3341
3817
4293
4471
4892
5410
5935
6118
6376
6643
7069
7253
7389
7920
7944
8211
8383

2183
2743
3344
3963
4297
4532
4900
5443
5937
6120
6378
6651
7070
7264
7396
7926
7945
8212
8404

2185
2750
3347
3967
4328
4539
4949
5483
5938
6124
6427
6725
7072
7269
7621
7930
7947
8219
8538

2376
2757
3406
3969
4334
4560
4962
5502
5968
6137
6434
6746
7075
7285
7663
7931
7948
8229
8596

2396
2787
3560
3975
4348
4690
4982
5570
5980
6148
6460
6768
7079
7288
7686
7932
7950
8231
8725

2495
3068
3608
3997
4353
4699
5014
5669
6014
6156
6474
6800
7156
7304
7692
7934
7951
8233
8756

3420
6247

3527
6336

3536
6388

3539
6425

4275
6818

4279
6947

4549
7261

4580
7385

6010
7398

6031
7645

6135
8759

2149
2370
2716
2781
3432
3613
3827
4189
4697
4885
4979
5175
5650
6001
6085
6170
6293
6381
6551
6692

2153
2371
2718
2965
3435
3617
3828
4194
4711
4886
4983
5176
5701
6006
6094
6189
6294
6382
6560
6694

2178
2383
2721
2982
3438
3678
3840
4209
4713
4887
5012
5201
5836
6022
6096
6192
6306
6400
6564
6732

2179
2384
2722
2988
3444
3689
3841
,4212
4717
4888
5017
5206
5912
6023
6114
6194
6315
6403
6579
6757

2181
2389
2724
3000
3447
3717
3845
42i4
4732
4889
5040
5283
5931
6033
6116
6201
6320
6452
6588
6807

2219
2394
2727
3003
3450
3723
3959
4216
4765
4937
5053
5316
5940
6043
6123
6211
6332
6457
6590
6812

2269
2405
2728
3041
3473
3750
4002

2339
2411
2730
3087
3549
3759
4104
4326
4792
4953
5093
5412
5958
6061
6140
(;254
6348
6463
6615
6821

2353
2569
2745
3090
3556
3770
4119
4327
4793
4967
5102
5490
5972
6062
6142
6255
6351
6503
6622
6823

2357
2588
2747
3269
3573
3772
4128
4409
4794
4969
5106
5506
5973
6063
6146
6260
6352
6510
6624
6840

2362
2689
2752
3274
3588
3806
4147
4538
4795
4973
5113
5548
5976
6071
6158
6287
6367
6525
6655
6842

6~j77

4317

4791
4946
5055
5348
5955
6060
6127
6252
6338
6462
6594
6814

Page 250

T10KL.MCR[10,1141]

D+A

D+Q
D-.25
D-A-.25
D-Q-.25
D.AND.A

D.AND.Q
D.EQV.A
D.EQV.Q
D.OR.A

D.OR.Q
D.XOR.A
D.XOR.Q
Q

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 251

6846
6983
7209
7255
7379
7547
7866
8201
8452
8742
2289
4057
6080
6630
7674
4985

6869
7003
7211
7260
7381
7588
7913
8210
8454
8751
2301
4084
6178
6737
8296
4993

6886
7004
7213
7266
7392
7655
7918
8216
8483
8755
2316
4087
6203
6745
8304
5024

6888
7036
7215
7267
7394
7658
7922
8221
8499
8767
2329
4749
6213
6819
8318
5043

6898
7038
7217
7278
7418
7660
7925
8288
8539
8771
3487
4757
6216
6825
8320

6913
7050
7222
7298
7444
7668
7937
8291
8540
8773
3509
5035
6356
6893
8397

6926
7061
7226
7302
7455
7682
7955
8310
8541
8775
3564
5104
6374
6895
8568

6930
7084
7230
7317
7471
7713
7957
8358
8547
8777
3679
5116
6417
7299
8790

6934
7085
7234
7323
7473
7716
7958
8375
8567
8779
3725
5925
6426
7448

3370

3501

4071

4096

4098

4101

5050

6361

6380

2422
3538
3628
3960
4636
5413
5913
6257
6468
6985
7019
7062
7181
7342
7651
8253
8437
8576
8712
3113
2886

2424
3541
3640
3986
4771
5508
5915
6264
6488
6991
7020
7064
7189
7344
7665
8315
8439
8598
8728
4511

2435
3543
3642
3987
4943
5547
5956
6289
6491
7000
7021
7066
7198
7346
7794
8322
8459
8601
8753
5211

2457
3544
3919
3992
4950
5638
5959
6305
6507
7001
7022
7087
7218
7348
7803
8325
8464
8603
8805
5217

2771
3545
3921
4037
5062
5673
6095
6324
6522
7002
7023
7090
7240
7459
7805
8340
8492
8606

2814
3578
3923
4105
5225
5676
6097
6383
6638
7006
7024
7108
7282
7499
7807
8345
8505
8609

2937
3583
3925
4175
5290
5693
6133
6397
6672
7007
7025
7113
7332
7533
7809
8394
8512
8630

2968
3586
3927
4177
5294
5744
6159
6399
6675
7008
7026
7116
7334
7590
7811
8409
8515
8640

5231

5237

5324

5633

2151
5320
6302
6809
7427
8509

2420
5353
6311
6945
7561
8513

2458
5414
6316
6954
7862
85.30

2866
5553
6326
7155
8192
8532

3294
5609
6597
7268
8246
8536

3989
5610
6601
7343
8250
8592

3994
5617
6603
7421
8351
8699

3115
2188

4396
2856

3291

4413

7457

7458

8259

3117
4435
5513
6545

4124
4439
5607

4132
4445
5614

4179
4453
5634

4187
4972
5646

4187
5134
5657

4198
5160
5716

15:34 27-JULY-1984
6843
6964
7152
7251
7360
7515
7834
81.99
8402
8736
540 #
3833
6025
6554
7672
541 #
558 #
556 #
557 #
575 #
3529
3627
3939
4440
5393
5813
6241
6465
6918
7016
7059
7154
7340
7649
8249
8433
8574
8706
576 #
599 #
600 #
564 #
5295
6258
6793
7426
8467
8793
565 #
591 #
592 #
561 #
4430
5489
6143

6940
7093
7238
7337
7492
7718
7960
8378
8628
8781
3754
5928
6433
7493

6959
7105
7246
7350
7497
7827
8195
8392
8726
8785
3818
5992
6435
7666

3016
3592
3929
4358
5319
5747
6166
6431
6738
7009
7053
7120
7335
7597
7813
8413
8531
8694

3276
3606
3931
4411
5352
5750
6179
6437
6752
7014
7055
7135
7336
7603
8196
8417
8533
8698

3299
3607
3933
4433
5389
5753
6199
6453
6908
7015
7057
7153
7338
7617
8200
8422
8571
8701

4106
5654
6664
7422
8431
8703

4459
5706
6777
7423
8434
8708

4544
5820
6781
7424
8442
8715

5291
6171
6785
7425
8460
8720

4210
5248
5718

4352
5371
5762

4407
5376
5807

4424
5447
6104

,-.,.)

~I

t",

J\

\

}"

T lOKL .MeR [ 10, 1141 ]
0-.25
0-A-.25
0-D-.25
ZERO

-A-.25
-B-.25
-D-.25
-0-.25
.NOT.A
.NOT.A.AND.B
.NOT.A.AND.O
.NOT.B
.NOT.D
.NOT.D.AND.A
.NOT.D.AND.Q
.NOT.Q
O+A
O+B
O+D
0+0
(U) AD PARITY OK

(U) ADFLGS
(U) AREAD
(U) B

AR

15:34 27-JULY-1984
545 #
543 #
549 #
572 #
2981
4813
5297
5756
6262
6658
7403
8267
8815
555 #
4647
5776
554 #
550 #
553 #
5771
598 #
5497
8639
579 #
578 #
597 #
601 #
6957
583 #
7077
584 if
596 #
539 #
538 #
542 #
537 #
71 1 #
2968
4717
6006
6211
6452
6934
1115 #
4640
1149 #
657 #
661 #
2357
2426
2577
2738
2814
2937
3005

4428
4976
2161
3022
4819
5368
5772
6280
6728
7404
8346

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 252

5033
2161
3042
4820
5379
5800
6282
6803
7436
8406

2163
3271
4823
5391
5981
6300
7028
7439
8424

2166
3609
4895
5395
5983
6334
7031
7446
8508

2173
3970
4896
5397
6017
6390
7094
7460
8528

2175
4223
4899
5398
6036
6394
7128
7675
8570

2177
4249
4955
5411
6084
6398
7138
7720
8740

2194
4319
5098
5424
6089
6401
7182
7841
8746

2216
4455
5140
5516
6101
6456
7258
7844
8765

2400
4533
5164
5689
6112
6580
7333
7914
8783

2804
4800
5250
5717
6141
6618
7378
8245
8784

2577
5280
5797
5697
4450
4398

2947
5355
5803

4321
5359
6265

4399
5390
6389

4476
5499
7361

4518
5515

4536
5544

4543
5545

4637
5696

4641
5707

4645
5708

4610
4449

4615
4475

4620
4516

4625
4517

5996
4534

6268
5377

6939
5482

6953
5484

5486

5488

2839
5512

2876
5514

2917
5695

2927
5705

3288
5774

4091
5965

4330
5967

4535
6519

4639
7363

4646
7438

5449
7648

4126
5719
5802
2896

5582

7060

7063

7339

7349

7519

6174
2906

4614

4619

4624

6013

6041

6045

6181

6185

6267

2824
7345

3621
7563

4022
8471

5551
8521

5653
8696

5704

5821

6405

6773

6789

7051

4909
5837

5770

5984

5583
2181
2982
5113
6022
6252
6510
6940
2578
4642
2321

5730
2357
3016
5201
6094
6254
6551
7547
3404

2370
3473
5283
6096
6255
6588
7834
3420

2371
3717
5316
6114
6287
6590
8222
3487

2588
3750
5348
6146
6292
6694

2689
3772
5412
6158
6293
6807

2691
3828
5558
6161
6294
6814

2722
3840
5955
6189
6315
6840

2728
4147
5958
6192
6320
6842

2781
4189
5973
6194
6332
6869

2965
4326
5976
6201
6367
6926

3501

4058

4072

4089

4099

4102

4229

2158
2362
2427
2689
2740
2824
2947
3006

2160
2370
2457
2691
2743
2839
2965
3008

2175
2376
2458
2716
2745
2856
2968
3010

2238
2389
2495
2718
2747
2866
2972
3011

2242
2394
2521
2721
2750
2876
2982
3041

2245
2396
2527
2722
2752
2886
2984
3042

2257
2405
2533
2724
2754
2896
2988
3043

2260
2414
2538
2727
2757
2907
2991
3068

2263
2414
2541
2728
2759
2907
2995
3084

2320
2417
2569
2730
2761
2917
3000
3140

2353
2417
2572
2736
2804
2927
3003
3269

Tl0KL.MCR[10,1141]

15:34 27-JULY-1984
3274

ARX

3370
3642
4031
4130
4375
4493
4557
4703
4820
4910
5045
5287
5369
5414
5485
5509
5577
5708
5783
5884
5967
6016
6052
6134
6181
6306
6381
6462
6551
6622
6675
6803
6846
6890
6947
7105
7238
7261
7383
7448
7597
7722
8192
8375
8502
8742
662 #
3679
3963
4156
4268
4430
4637
5142

3288
3387
3770
4034
4132
4409
4518
4558
4707
4.823
4910
5050
5289
5371
5434
5487
5509
5579
5732
5785
5886
5968
6016
6052
6134
6185
6315
6385
6463
6553
6630
6692
6807
6847
6898
6948
7108
7239
7261
7385
7450
7603
7827
8202
8378
8505
8751
2181
3710
3979
4169
4272
4439
4645
5142

MICRO 31(254)
32'91
3389
3775
4042
4133
4415
4532
4588
4718
4824
4912
5053
5290
5372
5439
5490
5512
5584
5733
5787
5888
5983
6022
6060
6137
6254
6332
6398
6464
6554
6638
6694
6812
6847
6913
6951
7147
7246
7264
7385
7450
7652
7834
8208
8392
8517
8755
2185
3712
4026
4169
4276
4533
4713
5167

3294
3404
3780
4057
4150
4419
4535
4624
4721
4884
4912
5055
5291
5374
5440
5493
5514
5586
5741
5802
5890
5984
6029
6099
6141
6257
6346
6400
6465
6557
6642
6695
6814
6849
6914
6951
7149
7250
7266
7389
7455
7655
7861
8296
8397
8517
8756
2366
3717
4084
4177
4280
4538
4717
5252

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 253

3299
3404
3828
4071
4151
4462
4536
4625
4730
4885
4967
5059
5300
5376
5443
5497
5515
5630
5745
5808
5892
5992
6030
6099
6146
6258
6347
6401
6467
6579
6642
6725
6818
6850
6918
6953
7222
7250
7278
7392
7473
7660
7862
8304
8404

3335'
3614
3986
4098
4321
4469
4552
4646
4'137
4889
4983
5176
5348
5406
5448
5503
5529
5678
5766
5837
5951
6010
6045
6120
6158
6272
6354
6433
6525
6615
6661
6745
6825
6887
6934
6967
7230
7256
7318
7436
7489
7674
7938
8326
8454
8596
8830
2771
3830
4123
4209
4340
4583
4943
5544

8~j47

8767
2371
3725
4096
4187
4286
4544
4904
5286

3300
3406
3959
4087
4168
4466
4541
4629
4732
4886
4969
5137
5300

5377
5444
5499
5524
5667
5748
5811
5894
5996
6040
6100
6148
6'259
6348
6403
6468
6580
6643
6731
6819
6852
6926
6954
7223
7251
7288
7396
7483
7666
7935
8310
8409
8568
8790
2400
3750
4105
4200
4290
4560
4911
5354

3329
3420
3960
4092
4216
4466
4546
4639
4736
4887
4979
5161
5326
5402
5444
5501
5527
5671
5751
5833
5896
6009
6041
6101
6155
6267
6349
6425
6501
6592
6655
6732
6821
6869
6930
6955
7226
7253
7302
7398
7487
7668
7936
8318
8442
8570
8817
2424
3754
4106
4200
4294
4580
4937
5355

3332
3614
3967
' 4092
4319
4469
4549
4641
4736
4888
4982
5175
5327
5404
5446
5502
5527
5675
5763
5836
5922
6010
6043
6114
6156
6268
6349
6428
6521
6594
6658
6737
6823
6874
6931
6957
7227
7255
7317
7398
7489
7672
7937
8320
8452
8574
8830
2489
3827
4122
4206
4298
4580
4940
5366

3341
3632
4002
4101
4326
4473
4554
4647
4765
4892
5012
5178
5352
5410
5448
5504
5545
5701
5774
5841
5951
6013
6046
6127
6166
6292
6372
6439
6526
6618
6664
6746
6840
6888
6939
6967
7231
7256
7319
7440
7544
7675
7955
8329
8460
8628
8834
2772
3943
4128
4223
4352
4583
4946
5646

3344
3635
4003
4104
4328
4476
4556
4690
4803
4900
5021
5249
5353
5412
5481
5505
5572
5704
5776
5880
5958
6015
6047
6131
6174
6294
6374
6439
6526
6620
6668
6748
6842
6889
6943
6975
7234
7258
7378
7444
7566
7713
7956
8349
8496
8639

3347
3635
4022
4124
4353
4479
4557
4699
4818
4909
5035
5280
5364
5413
5483
5506
5577
5706
5780
5882
5965
6015
6047
6131
6178
6297
6376
6450
6546
6620
6671
6754
6845
6889
6947
6975
7235
7260
7379
7447
7591
7722
7957
8351
8499
8736

2781
3945
4152
4229
4358
4594
4949
5658

2787
3945
4155
4249
4424
4636
5093
5658

~
\

i

T 10K l ." lVIeRJ [ 10, 1 14 1 ]

15:34 27-JULY-1984
~693

BR

BRX

EBR
FLG

5994
6118
6232
6310
6437
7093
7495
7911
7952
8539
663 #
3071
3109
3438
3678
3825
4316
4403
4792
4977
5283
5551
5925
6006
6211
6356
6460
6936
7038
7084
7156
7213
7329
7515
7601
8235
8725
664 #
4346
5166
5547
6063
6260
6340
6669
6793
7195
7502
8225
8467
8731
666 #
669 #
5610

5716
6025
6124
6241
6320
6577
7094
7618
7913
7958
8592
2183
3072
3111
3441
3689
3840
4325
4421
4793
4987
5285
5553
5926
6014
6216
6359
6471
6940
7050
7085
7157
7215
7336
7520
7621
8261
8726
2179
4407
5201
5638
6086
6287
6341
6669
6809
7197
7557
8227
8509
8731
2163
2166
5617

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

Page 254

5791
6031
6129
6252
6338
6757
7282
7620
7918
7960

5791
6057
6135
6264
6367
6800
7285
7629
7922
8212

5793
6062
6161
6265
6378
6868
7293
7635
7925
8288

5793
6070
6163
6270
6382
6871
7297
7658
7926
8291

5795
6070
6192
6273
6384
6944
7299
7716
7930
8346

5795
6073
6213
6293
6384
6945
7310
7720
7933
8363

5797
6075
6219
6295
6386
6964
7446
7732
7940
8381

5830
6080
6219
6305
6423
6965
7485
7839
7943
8383

5974
6094
6222
6309
6431
7053
7485
7844
7946
8424

5976
6098
6232
6310
6435
7055
7495
7847
7949
8528

2384
3075
3143
3444
3695
3841
4334
4422
4794
5014
5288
5564
5928
6033
6224
6361
6473
6959
7051
7087
7178
7217
7337
7533
7627
8264
8728
2180
4465
5251
5639
6088
6289
6358
6672
7061
7198
7648
8239
8513
8797
7174
2168
5756

2385
3076
3144
3447
3845
4348
4539
4795
5026
5294
5634
5931
6056
6230
6363
6474
7003
7054
7090
7180
7249
7371
7547
7633
8267
8805
2180
5038
5251
5650
6096
6300
6388
6677
7063
7294
7708
8240
8515

2411
3077
3147
3450
3723
3983
4355
4543
4811
5062
5295
5672
5935
6061
6230
6370
6510
7004
7054
7096
7181
7267
7381
7559
7724
8293
8825
4118
5041
5316
5653
6115
6302
6452
6677
7063
7428
7941
8241
8530

2420
3078
3148
3473
3740
3985
4360
4547
4813
5065
5299
5690
5937
6133
6242
6370
6519
7010
7058
7096
7182
7268
7394
7561
7728
8301

2422
3090
3271
3487
3746
3985
4365
4548
4815
5101
5346
5697
5938
6189
6242
6380
6588
7011
7058
7120
7187
7269
7459
7563
7939
8386

2588
3093
3276
3501
3772
3989
4369
4692
4950
5102
5390
5714
5940
6194
6255
6387
6590
7028
7060
7128
7189
7292
7471
7579
8199
8402

2591
3096
3285
3509
3806
3994
4387
4697
4953
5104
5436
5912
5955
6201
6334
6389
6591
7029
7060
7132
7194
7295
7493
7582
8219
8406

2906
3099
3429
3613
3808
3997
4389
4711
4955
5114
5449
5917
5963
6202
6335
6405
6843
7031
7069
7152
7199
7298
7497
7585
8229
8520

3016
3102
3432
3619
3812
4091
4391
4771
4959
5116
5523
5917
5973
6203
6336
6457
6886
7032
7070
7153
7209
7308
7503
7588
8231
8521

3038
3106
3435
3628
3817
4170
4399
4791
4962
5203
5548
5919
5980
6205
6336
6458
6928
7036
7072
7155
7211
7323
7503
7595
8233
8540

4120
5098
5319
5654
6122
6311
6479
6679
7065
7429
8195
8250
8532

4147
5100
5320
5687
6136
6316
6505
6768
7065
7430
8196
8253
8536

4148
5113
5322
5696
6159
6322
6507
6773
7067
7431
8198
8259
8538

4175
5119
5356
5915
6164
6322
6601
6777
7075
7432
8209
8275
8541

4194
5144
5358
5959
6171
6326
6603
6781
7077
7433
8210
8374
8703

4225
5149
5359
6049
6246
6329
6606
6785
7079
7434
8211
8431
8715

4248
5166
5361
6058
6246
6329
6651
6789
7188
7499
8221
8434
8720

7944
2170
5772

2171
5800

3621
5820

5106
5821

5140
5972

5164
5998

5250
6001

5516
6017

5609
6023

;;701

T10KL.MCR[10,1141]

HR

MAG
MASK
ONE
PC

PI
TO

T1

UBR
XWDl
(D) B

AC

(
\

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 255

6077
6394
8508
8779
2178
3541
3606
3931
7001
7022
7794
2152
5230
2149
2155
2216
3527
6247

6085
6456
8594
8781
2184
3543
3627
3933
7002
7023
7803
4227
5244
2150
2174
2229
3536
6502

6089
6503
8594
8783
2184
3544
3640
3939
7006
7024
7805
4261
5632
2151
2176
2231
3539
6502

6112
6560
8696
8784
2269
3545
3653
3970
7007
7025
7807
4386
5722
3608
2783
2276
3552
7475

6116
6564
8699
8785
2301
3549
3659
3975
7008
7026
7809
4434
5758
4126
6353
2289
3579
7645

6123
6597
8708
8793
2316
3560
3663
4037
7009
7218'
7811
4457
5804
5223
7942
2295
3594
7730

6142
6624
8761
8815
2329
3564
3919
4041
7014
7240
7813
4891
7931
5224

6170
6728
8765

6262
7948
8771

6352
8201
8773

6379
'8246
8775

2339
3573
3921
4602
7015
7279
7866
4896

2363
3578
3923
6908
7016
7304
7934
4899

2435
3583
3925
6983
7019
7309

3529
3586
3927
6991
7020
7335

5208

5228

5985

7920

7947

3019
3617
7932

3338
3707
8759

3454
3759
8769

3457
3818
8769

3525
3833
8819

2194
7421
3593
4459
5616
7362
2191
4446
5657
8750
2161
2153
3177
3193
3206
3220
3232
3350
3363
3393
3413
3476
3494
3854
5849
5863
7536
7742
7757
7770
7784
2547
2606
2636
2668
2827

7333
7422
4146
4460
5618
7362
2202
4471
5669

7339
7423
4154
5558
5645
7492
2219
4553
5689

7339
7424
4186
5563
5718
7682
2248
5212
5695

7341
7425
4189
5570
5724
7686
2266
5220
5705

7341
7426
4196
5571
6351
7692
2517
5225
5727

7343
7427
4435
5598
6417
7694
3580
5232
6421

7345
7518
4441
5600
6426
7953
4395
5243
6434

7347
7519
4445
5601
6427

7347
7519
4447
5602
7350

7349
7950
4449
5605
7360

4406
5582
7469

4413
5582
7501

4427
5607
7846

7113
7951
3178
3194
3207
3221
3233
3351
3364
3394
3414
3477
3495
3855
5850
5864
7537
7744
7758
7771
7785
2548
2610
2642
2672
2828

7123

7123

7135

7138

7140

7140

7141

7141

7945

3179
3195
3208
3222
3234
3352
3365
3395
3415
3478
3496
3856
5851
5865
7538
7745
7759
7772
7786
2552
2611
2643
2673
2832

3180
3196
3209
3223
3235
3353
3366
3396
3416
3479
3497
3857
5852
5870
7539
7747
7760
7774
7787
2553
2615
2647
2677
2833

3181
3197
3211
3224
3237
3354
3376
3397
3462
3480
3504
3858
5853
5871
7550
7748
7761
7775
7788
2557
2616
2648
2678
2849

3182
3198
3212
3225
3238
3355
3377
3398
3463
3481
3595
3859
5854
5872
7551
7749
7762
7776
7789
2558
2620
2652
2767
2850

3186
3199
3213
3226
3239
3356
3378
3399
3464
3482
3669
3909
5855
5873
7552
7750
7763
7777
7790
2562
2621
2653
2797
2859

3187
3200
3214
3227
3240
3357
3379
3400
3465
3483
3670
3910
5857
5874
7553
7751
7765
7778

3188
3202
3215
3228
3241
3359
3380
3409
3466
3490
3671
3911
5858
7525
7737
7752
7766
7779

3189
3203
3216
3229
3242
3360
3381
3410
3467
3491
3766
3912
5859
7526
7738
7753
7767
7780

3190
3204
3217
3230
3243
3361
3382
3411
3468
3492
3852
3913
5860
7527
7739
7754
7768
7781

2563
2625
2657
2798
2860

2584
2626
2658
2807
2869

2600
2630
2662
2808
2870

2601
2631
2663
2817
2879

15:34 27-JULY-1984
6071
6390
8471
8777
660 #
3538
3588
3929
7000
7021
7663
658 #
5229
668 #
665 #
659 #
3526
3969
8827
670 #
7349
672 #
4454
5613
7361
673 #
4429
5614
7954
667 #
671 #
1328 #
3191
3205
3218
3231
3244
3362
3383
3412
3469
3493
3853
3914
5862
7528
7741
7756
7769
7783
1332 #
2605
2635
2667
2818

\.

~

~~

~

,J

T10KL,,_A{ 10.1141]

15:34 27-JULY-1984
2880
2941
1334 #
2913
1330 #
5628
1331 #
1333 #
2637
2829
2932
1329 #
2638
1158 #
2814
4130
817 #
818 #
6886
819 #
820 #
821 #
822 #
969 #
3631
4176
4490
5042
5373
5644
5786
6074
6193
6333
6555
6875
7442
7647
7944
8380
722 #
2527
3617
3975
4765
6898
7317
7846
7947
8827
729 #
2527
3617
3975
4765

BOTH
DBLAC
DBLB
MEM

SELF
(U) BWRITE
(U) BYTE
BYTE1
BYTE2
BYTE3
BYTE4
BYTE5
(U) CALL

(U) CHKL

(U) CHKR

"

MICRO 31(254)

K~,v'MICROCOOE V124, 27-JUL-84
Cross Reference Listing

Page 256

2889
4050
2800
2923
2766
5684
4140
2549
2644
2834
2942
2550
2645
2569
2824
4153

'2890
4051
2810
2933
4079

2899
4064
2820
2943
4080

2900
4065
2830
4053
4137

2910
4112
2835
4067
4138

2911
4113
2852
4115
4163

2920
4682
2862

2921
8188
2872

2930

2931

2940

2882

2892

2902

4304

4305

4309

4310

4381

4307
2554
2649
2844
4052
2555
2650
2575
2856
4155

4312
2559
2654
2845
4066
2560
2655
2689
2866.
5444

2564
2659
2851
4114
2565
2660
2691
2886
5448

2602
2664
2861
4139
2603
2665
2724
2896
5494

2607
2669
2871
4306
2608
2670
2730
2907
5516

2612
2674
2881
4311
2613
2675
2738
2917
8518

2617
2679
2891
7204
2618
2680
2740
2947
8818

2622
2799
2901

2627
2809
2912

2632
2819
2922

2623

2628

2633

2759
4058

2761
4072

2804
4124

4692
6888
4886
4887
4888
3041
2156
3634
4185
4514
5097
5375
5656
5788
6078
6204
6360
6565
6927
7472
7840
7947
8393
2269
2533
3678
4002
4771
6913
7371
7866
7948

4697
6959

4711

4732

4885

6033

6043

6525

6671

6843

6846

4791
2182
3829
4195
4692
5113
5483
5663
5794
6085
6212
6371
6578
6935
7474
7842
7950
8416
2339
2538
3695
4041
4892
6983
7455
7931
7950

4792
2194
3832
4205
4697
5115
5485
5670
5914
6095
6215
6379
6593
6946
7490
7848
7953
8426
2353
2541
3701
4119
5157
7105
7497
7932
7951

4793
2399
3946
4228
4701
5202
5487
5689
5954
6097
6218
6396
6600
7188
7494
7864

4795
2781
3967
4359
4711
5216
5503
5717
5961
6117
6229
6451
6625
7281
7543
7914
8321
8569
2383
3087
3746
4317
5931
7230
7713
7938
7956

4889
3551
3971
4414
4720
5234
5504
5721
5993
6126
6234
6454
6693
7284
7558
7931
8332
8727
2394
3406
3759
4327
6351
7234
7716
7939
8310

6655
3590
3977
4420
4723
5236
5563
5746
5999
6147
6261
6459
6727
7303
7577
7934
8339
8738
2405
3549
3817
4411
6541
7238
7718
7941
8392

3592
3980
4434
4971
5323
5571
5749
6024
6162
6296
6534
6751
7350
7586
7936
8350
8798
2411
3573
3845
4433
6591
7278
7728
7942
8628

3593
4121
4438
4981
5365
5599
5752
6048
6165
6305
6542
6851
7380
7615
7938
8359
8826
2424
3588
3967
4440
6594
7308
7730
7944
8797

3607
4149
4444
5015
5368
5639
5784
6059
6178
6321
6552
6870
7393
7622
7941
8377

8453
2362
2591
3723
4212
5206
7222
7621
7934
7953

4794
2771
3962
4338
4706
5214
5502
5713
5957
6103
6221
6422
6621
7257
7532
7912
8314
8484
2366
2787
3740
4214
5912
7226
7668
7935
7954

2495
3613
3969
4737
6622
7310
7827
7945
8825

2269
2533
3678
4002
4771

2339
2538
3695
4041
4892

2353
2541
3701
4119
5157

2362
2591
3723
42 '12
5206

2366
2787
3740
4214
5912

2383
3087
3746
4317
5931

2394
3401;l
3759
4327
6351

2405
3549
3817
4411
6541

2411
3573
3845
4433
6591

2424
3588
3967
4440
6594

2495
3613
3969
4737
6622

79~)5

/

T10KL.MCR[10.1141]

(U) CLKL

(U) CLKR

(U) CLRFPD
(D) COND FUNC

(U) CRY38

(U) DBM
APR FLAGS

15:34 27-JULY-1984
6898
7317
7846
7947
8827
718 #
2363
3536
3991
5140
5925
6089
6379
6728
7284
7426
7946
8777
725 #
3114
3606
3941
4459
5294
5617
6257
6431
6790
7009
7046
7240
7807
8469
8793
1087 #
1351 #
2608
2638
2670
2830
2882
2943
4312
5312
952 #
4101
4517
4641
5355
5544
5996
6353
6953
697 #
700 #

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
Cross Refer~nce Listing

Page 257

6913
7371
7866
7948

6983
7455
7931
7950

7105
7497
7932
7951

7222
7621
7934
7953

2229
2691
3539
3996
5144
5928
6100
6390
6847
7309
7427
7949
8779
2420
3116
3627
3961
4513
5295
5633
6258
6437
6794
70.14
7086
7251
7809
8473

2231
2722
3552
4026
5149
5931
6112
6394
6889
7343
7449
7952
8781
2422
3387
3640
3971
4636
5319
5755
6264
6508
6810
7015
7089
7335
7811
8507

2276
2730
3564
4042
5164
5972
6116
6450
6898.
7345
7519
8201
8783
2435
3529
3771
4023
4813
5320
5790
6303
6602
6908
7016
7110
7337
7813
8511

2289
2752
3594
4093
·5167
5998
6123
6456
7052
7347
7645
8462
8784
2457
3538
3919
4039
4948
5352
5820
6305
6604
6920
7019
7115
7339
8194
8514

3690
2549
2612
2644
2674
2834
2891
4052
5261
5335
2577
4275
4518
4645
5358
5583
6010
6361
7261

3807
2550
2613
2645
2675
2835
2892
4053
5262
5336
2947
4279
4534
4647
5359
5696
6031
6380
7361

3813
2554
2617
2649
2679
2844
2901
4066
5265
5340
3370
4321
4536
4976
5366
5707
6098
6388
7385

7003

7004

7061

7226
7668
7935
7954

7230
7713
7938
7956

7234
7716
7939
8310

7238
7718
7941
8392

7278
7728
7942
8628

7308
7730
7944
8797

7310
7827
7945
8825

2290
2754
3618
4736
5177
6001
6142
6503
7078
7349
7666
8508
8785
2458
3541
3921
4104
4956
5353
5821
6312
6674 ,
6991
7020
7125
7341
8197
8525

2296
3338
3632
4766
5229
6017
6170
6560
7092
7361
7666
8516
8815
2689
3543
3923
4105
5019
5413
5836
6318
6678
7000
7021
7130
7473
8248
8595

2301
3454
3760
4975
5230
6023
6247
6564
7139
7421
7847
8759
8834
2724
3544
3925
4106
5064
5414
5918
6327
6732
7001
7022
7137
7675
8252
8700

2316
3457
3819
5034
5250
6052
6262
6599
7153
7422
7863
8765

2317
3525
3831
5057
5252
6071
6300
6624
7155
7423
7933
8771

2329
3526
3835
5106
5325
6077
6335
6665
7199
7424
7940
8773

2340
3527
3979
5118
5588
6085
6352
6670
7279
7425
7943
8775

2728
3545
3927
4128
5099
5490
5940
6346
6774
7002
7023
7142
7720
8255
8705

2745
3578
3929
4151
5103
5506
6167
6398
6778
7006
7024
7183
7794
8260
8710

2747
3583
3931
4358
5290
5609
6172
6401
6782
7007
7025
7190
7803
8411
8716

2771
3586
3933
4397
5291
5610
6241
6406
6786
7008
7026
7218
7805
8432
8730

4207
2555
2618
2650
2680
2845
2902
4067
5266
5341
3420
4365
4543
5033
5377
5714
6134
6389
7398

4707
2559
2622
2654
2799
2851
2912
4114
5269
7204
3501
4398
4549
5050
5390
5730
6135
6423
7645

4724
2560
2623
2655
2800
2852
2913
4115
5270

6390
2564
2627
2659
2809
2861
2922
4139
5273

2565
2628
2660
2810
2862
2923
4140
5274

2602
2632
2664
2819
2871
2932
4306
5306

2603
2633
2665
2820
2872
2933
4307
5307

2607
2637
2669
2829
2881
2942
4311
5311

3527
4421
4580
5100
5482
5771
6136
6425
8759

3536
4422
4610
5119
5484
5776
6183
6428
8819

3539
4428
4615
5137
5486
5797
6247
6476

4071
4449
4620
5161
5488
5803
6265
6818

4088
4475
4625
5249
5499
5837
6268
6939

4096
4516
4637
5280
5515
5963
6336
6947

7093

7267

~,

~/
\

T10KL.MCR[10,1141]
BYTES
DP
DP SWAP
EXP
MEM

PF DISP
SCAD DIAG
VMA
#

(U) DBUS
DBM

15:34 27-JULY-1984
701 #
703 #
4886
6888
704 #
3770
6457
702 #
706 #
3572
5156
7104
7497
8391
699 #
698 #
705 #
707 #
2238
2458
3541
3627
3931
4105
4801
5062
5319
5609
5750
5894
6077
6179
6316
6437
6580
6752
6991
7020
7053
7113
7249
7345
7426
7457
7597
7805
8227
8325
8433
8512
8592
8701
8775
688 #
694 #

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 258

4692
4888

4697
4889

4711
6033

4732
6043

4791
6525

4792
6655

4793
6671

4794
6843

4795
6846

4885
6886

2569
3841
6463
5506
2268
3609
5912
7226
7668
8740

2716
3959
6757
5836
2339
3613
5931
7280
7713
8746

2718
4811
7085
7292
2352
3617
6351
7234
7716

2721
4937
7337
7293
2361
3677
6594
7238
7718

2724
4953
7350
7294
2365
3722
6622
7277
7826

2727
5053
7360

2730
5093
8402

3269
5102

3274
5175

3593
6400

2393
3759
6898
7317
7841

2404
3844
6912
7439
7865

2410
4001
6968
7443
7914

2423
4764
6976
7455
8245

'3548
4770
6983
7491
8309

7682
2149
2242
2517
3543
3640
3933
4106
4943
5106
5320
5610
5753
5896
6085
6183
6324
6453
6592
6773
7000
7021
7055
7116
7268
7346
7427
7458
7603
7807
8241
8340
8434
8513
8598
8703
877.7

7925
2151
2245
2745
3544
3725
3939
4358
4946
5116
5324
5617
5813
5913
6095
6199
6326
6465
6597
6777
7001
7022
7057
7120
7282
7348
7428
7469
7617
7809
8246
8345
8437
8515
8601
8706
8779

8195
2153
2248
2747
3545
3754
3943
4395
4950
5212
5352
5633
5820
5915
6097
6241
6352
6468
6601
6781
7002
7023
7059
7135
7332
7379
7429
7473
7618
7811
8249
8346
8439
8521
8603
8708
8781

8210
2155
2257
2752
3578
3818
3983
4396
4969
5217
5353
5653
5821
5940
6116
6257
6379
6476
6603
6785
7006
7024
7062
7153
7334
7381
7430
7487
7629
7813
8250
8394
8459
8528
8606
8712
8785

8726
2158
2260
2754
3580
3833
3987
4406
4973
5225
5389
5654
5880
5956
6123
6258
6383
6488
6618
6739
7007
7025
7064
7154
7335
7392
7431
7493
7635
7861
8253
8406
8460
8530
8609
8715
8790

2178
2263
2771
3583
3919
3989
4413
4979
5232
5393
5673
5882
5959
6142
6264
6397 .
6491
6624
6793
7008
7026
7066
7155
7336
7394
7432
7499
7649
7862
8259
8409
8464
8531
8630
8720
8793

2179
2266
3042
3586
3921
3992
4459
4983
5237
5413
5676
5884
5972
6155
6270
6399
6503
6638
6803
7009
7028
7077
7181
7338
7421
7433
7501
7651
8192
8267
8413
8467
8532
8640
8728

2188
2420
3113
3592
3923
3994
4511
5012
5290
5414
5704
5886
5998
6159
6289
6405
6507
6658
6809
7014
7031
7087
7189
7340
7422
7434
7515
7665
8196
8296
8417
8471
8533
8694
8750

2191
2422
3115
3606
3925
4022
4538
5017
5291
5508
5706
5888
6001
6166
6302
6417
6522
6664
6908
7015
7036
7090
7198
7342
7423
7436
7579
7708
8200
8304
8422
8492
8536
8696
8753

2202
2435
3529
3607
3927
4031
4544
5050
5294
5551
5744
5890
6023
6170
6305
6426
6560
6672
6918
7016
7038
7094
7218
7343
7424
7440
7582
7794
8201
8315
8424
8505
8571
8698
8771

2219
2457
3538
3621
3929
4037
4636
5055
5295
5553
5747
5892
6071
6171
6311
6431
6564
6675
6985
7019
7051
7108
7240
7344
7425
7448
7590
7803
8225
8322
8431
8509
8576
8699
8773.

2149

2151

2153

2155

2158

2161

2178

2179

2188

2191

2202

3041.
4887
6959
2389
3827
6462
5490
2161
3587
5205
7222
7587
8627
8215

T1O'KL.MCR[1O'.1141]

DP

15:34 27-JULY-1984
2219
2339
2410'
2718
3113
3572
3609
3725
3921
3989
4396
4764
4886
4983
5157
5295
550'8
570'6
5886
5940'
60'95
6199
6326
6431
650'7
6618
6757
6888
G985
70'15
70'36
70'85
7153
7230'
72.92
7342
7421 .
7433
7469
7582
7665
780'3'
7866
8227
8310'
840'9
8464
8531
8627
8712
8777
692 #
2787
3432
3654

2238
2352
2411
2721
3115
3573
3613
3754
3923
3992
4406
4765
4887
50'12
5175
5319
5551
5744
5888
5956
60'97
6241
635.1
6437
6522
6622
6773
6898
6991
7·0'16
70'38
70'87
7154
7234
7293
7343
7422
7434
7473
7587
7668
780'5
7914
8241
8315
8413
8467
8532

8628
8715
8779
2173
30'22
3435
3695

MICRO 31(254)
2242
2353
2420'
2724
3269
3578
3613
3759
3925
3994
4413
4770'
4888
50'17
520'5
5320'
5553
5747
5890'
5959
6116
6257
6351
6453
6525
6622
6777
6898
70'00'
70'19
70'51
70'90'
7155
7234
7294
7344
7423
7436
7487
'7588
7668
780'7
7925
8245
8322
8417
8471
8533
8630'
8720'
8781
2174
30'43
3435
370'1

2245
2361
2422
2727
3274
3580
3617
3759
3927
400'1
4459
4771
4889
50'50'
520'6
5324
560'9
5750' .
5892
5972
6123
6258
6352
6457
6560'
6624
6781
690'8
70'01
70'20'
70'53
70'93
7181
7238
7317
7345
7424
7439
7491.
7590.
7682
7809
8192
8::>46
8325
8422
8492
8536
8640'
8726
8785
2489
30'78
3438 •
3710'

KS10 MICROCOOE V124. 27-JUL-84
Cross Reference Listing
2248
2362
2423
2730
3529
3583
3617
3770
3929
40'0'2
4511
4791
4937
50'53
5211
5352
5610
5753
5894
5998
6142
6264
6379
6462
6564
6638
6785
6912
7002
70'21
70'55
70'94
7189
7238
7317
7346
7425
7440'
7492
7597
770'8
7811
8195
8249
. 8340'
8424
850'5
8571
8694
8728
8790'
2495
3111
3438
3712

2257,
2365
2424
2745
3538
3586
3621
3818
3931
40'22
4538
4792
4943
50'55
5217
5353
5617
5813
5896
60'0'1
6155
6270'
6383
6463
6580'
6655
6789
6913
70'0'3
70'22
70'57
710'4
7198
7240'
7332
7348
7426
7443
7493
760'3
7713
7813
8196
8250'
8345
8431
850'9
8576
8696
8740'
8793
2521
3117
3441
3740'

Page 259

2260'
2366
2435
2747
3541
3587
3627
3827
3933
40'31
4544
4793
4946
50'62
5225
5389
5633
5820'
5912
60'23
6159
6289
6397
6465
6592
6658
6793
6918
70'0'4
70'23
70'59
710'5
7218
7249
7334
7350'
7427
7444
7497
7617
7713
7826
820'0
8253
8346
8433
8512
8592
8698
8746

2263
2389
2457
2752
3543
3588
3640'
3833
3939
40'37
4636
4794
4950'
50'93
5231
5393
5653
5821
5912
60'33
6166
630'2
6399
64G8
6594
6664
680'3
6959
70'0'6
70'24
70'61
710'8
7222
7267
7335
7360'
7428
7448
7497
7618
7716
7827
8201
8259
8391
8434
8513
8598
8699
8750'

2266
2393
2458
2754
3544
3592
3677
3841
3943
410'5
4692
4795
4953
5102
5237
5413
5654
5836
5913
60'43
6170'
630'5
6400
6476
6594
6671
680'9
6968
70'0'7
70'25
70'62
7113
7222
7268
7336
7379
7429
7455
749.9
7629
7716
7841
8210'
8267
8392
8437
8515.
860'1
870'1
8753

2268
2394
2517
2771
3545
3593
3678
3844
3959
410'6
4697
480'1
4969
5106
5290
5414
5673
5880'
5915
60'71
6171
6311
640'5
6488
6597
6672
6843
6976
7008
70'26
70'64
7116
7226
7277
7337
7381
7430'
7455
750'1
7635
7718
7861
8215
8296
8394
8439
8521
860'3
870'3
8771

2269
240'4
2569
30'41
3548
360'6
3722
3845
3983
4358
4711
4811
4973
5116
5291
5490'
5676
5882
5931
60'77
6179
6316
6417
6491
660'1
6675
6846
6983
70'0'9
70'28
70'66
7120'
7226
7278
7338
7392
7431
7457
7515
7649
7718
7862
8221
830'4
840'2
8459
8528
860'6
870'6
8773

2339
2405
2716
3042
3549
3607
3723
3919
3987
4395.
4732
4885
4979
5156
5294
550'6
570'4
5884
5931
60'85
6183
6324
6426
650'3
660'3
6752
6886
6983
70'14
70'31
70'77
7135
7230'
7282
7340'
7394
7432
7458
7579
7651
7794
7865
8225
830'9
840'6
8460
8530'
860'9
870'8
8775

2527
330'0'
3444
3746

2533
3387
3444
3775

2538
3389
3447
3780'

2541
340'6
3447
380'8

259'1
3429
3450'
3817

2772
3432
3450'
3967

~'

/

...-..

~
T lOKL\:IVtGk [ 10, 1141 ]

PC FLAGS
PI NEW
RAM

(U) DEST
A

AD

.

15:34 27-JULY-1984
3969
4210
4484
5134
5811
6163
6306
6606
6955
7931
7950
689 #
8805
690 #
693 #
2689
2937
3294
3772
4175
4440
4757
5176
5701
6025
6133
6203
6294
6382
6588
6819
6940
7217
7563
7955
8378
8568
623 #
624 #
2772
3441
4104
4791
4953
5766
6222
6385
6732
6948
626 #
2180
2245
2320
2411
2691

MICRO 31( 254)

KS,\} MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 260

3975
4211
4611
5160
5963
6205
6309
6679
7251
7932
7951
3628

4041
4213
4616
5178
6009
6222
6341
6695
7308
7934
7953
3642

4104
4215
4621
5203
6029
6224
6347
6732
7310
7935
7954
3689

4128
4437
4627
5248
6036
6259
6358
6821
7371
7938
7956
3806

7418
2181
2691
2965
3299
3828
4177
4450
4967
5201
5925
6041
6140
6211
6315
6403
6590
6823
6945
7246
7655
7957
8397
8574

2289
2722
2968
3370
3840
4189
4610
4976
5283
5928
6045
6146
6213
6320
6423
6615
6825
6953
7255
7658
7958
8442
8736

2301
2728
2982
3473
4057
4194
4614
49775316
5955
6060
6158
6216
6332
6428
6630
6840
6954
7260
7660
7960
8452
8742

2316
2781
2988
·3487
4071
4212
4615
4989
5348
5958
6061
6161
6252
6338
6433
6692
6842
6957
7266
7666
8199
8454
8751

2389
3043
3444
4128
4792
5053
5811
6224
6386
6757
6955
2149
2181
2248
2329
2414
2722

2405
3078
3447
4151
4793
5093
5836
6259
6387
6821
6959
2151
2184
2257
2339
2417
2728

2489
3269
3450
4209
4794
5102
6009
6260
6400
6843
7085
2153
2191
2260
2353
2420
2738

2521
3274
3593
4454
4795
5114
6029
6272
6457
6846
7251
2155
2194
2263
2357
2422
2740

4151
4453
4628
5440
6046
6260
6363
6821
7544
7939
8202
3812

4179
4454
4629
5446
6049
6260
6385
6849
7621
7941
8761
3960

4187
4455
4707
5758
6084
6272
6386
6890
7663
7942
8797
Cl986

4196
4457
4737
57666086
6273
6387
6928
7728
7944
8825
4216

4198
4460
4892
5802
6088
6280
6545
6936
7730
7945
8827
6964

4209
4479
5065
5803
6122
6282
6546
6943
7732
7947

4209
4481
5114
5804
6129
6306
6591
6948
7846
7948

7459

7471

2329
2814
3000
3501
4084
4214
4619
4993
5412
5973
6062
6178
6254
6348
6435
6694
6869
7050
7298
7672
8288 •
8483
8755

2357
2824
3003
3509
4087
4317
4620
5028
5547
5976
6063
6181
6255
6356
6452
6737
6893
7084
7299
7674
8291
8499
8767

2370
2856
3016
3556
4096
4326
4624
5035
5548
5992
6080
6185
6267
6361
6510
6738
6895
7152
7302
7834
8318
8539

2371
2866
3087
3564
4098
4327
4625
5040
5558
5996
6094
6189
6268
6367
6541
6745
6926
7209
7323
7913
8320
8540

2383
2886
3090
3679
4101
4409
4713
5048
5638
6006
6096
6192
6287
6374
6551
6807
6930
7211
7533
7918
8351
8541

2384
2896
3276
3717
4119
4411
4717
5104
5650
6013
6114
6194
6292
6380
6554
6812
6934
7213
7547
7922
8358
8547

2588
2906
3291
3750
4147
4433
4,749
5113
5693
6022
6127
6201
6293
6381
6579
6814
6939
7215
7561
7937
8375
8567

2569
3300
3710
4460
4811
5175
6033
6273
6462
6849
7337
2158
2202
2266
2362
2435
2745

2716
3387
3712
4629
4885
5178
6043
6306
6463
6886
7350
2161
2216
2269
2363
2457
2747

2718
3389
3770
4692
4886
5203
6046
6309
6525
6888
7360
2163
2219
2276
2366
2458
2752

2721
3429
3808
4697
4887
5440
6086
6341
6546
6890
7544
2166
2229
2289
2370
2517
2754

2724
3432
3827
4707
4888
5446
6122
6347
6606
6928
7732
2175
2231
2295
2371
2577
2759

2727
3435
3841
4711
4889
5490
6129
6358
6671
6936
8202
2178
2238
2301
2394
2588
2761

2730
3438
3959
4732
4937
5506
6163
6363
6679
6943
8402
2179
2242
2316
2400
2689
2771

Tl0KL.MCR[10,l141J

15:34 27-JULY-1984
2781
2917
3288
3501
3564
3617
3707
3828
3933
4002
4096
41.52
4326
4439
4557
4736
4969
5098
5167
5288
5352
5499
5571
5687
5772
5882
5926
5974
6016
6061
6099
6136
6181
6241
6267
6311
6346
6380
6417
6452
6554
6615
6677
6793
6845
6934
6975
7010
7026
7061
7113
7181
7218
7258
7297

2804
2927
3291
3509
3573
3621
3717
3830
3939
4022
4098
4155
4340
4447
4624
4765
4977
5101
5176
5290
5353
5509
5572
5689
5774
5884
5928
5976
6017
6062
6100
6141
6185
6242
6268
6315
6348
6381
6421
6456
6560,
6618
6692
6803
6847
6939
6983
7011
7028
7063
7120
7182
7222
7260
7298

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross ,Reference Listing

2814
2937
3294
3525
3578
3627
3723
3833
3943
4026
4101
4156
4346
4459
4625
4771
4979
5104
5201
5291
5354
5512
5582
5690
5776
5886
5931
5984
6022
6063
6101
6142
6189
6246
6270
63.16
6349
6382
6423
6465
6564
6620
6694
6807
6868
6940
6991
7014
7031
7065
7123
7187
7226
7261
7299

2839
2965
3338
3529
3580
3632
3750
3845
3960
4037
4106
4186
4358
4469
4637
4824
4986
5113
5225
5295
5390
5515
5609
5696
5793
5890
5951
5994
6025
6071
6114
6155
6194
6252
6289
6322
6352
6388
6426
6502
6580
6624
6737
6812
6887
6945
7001
7016
7038
7084
7135
7194
7234
7267
7309

2824
2947
3299
3526
3579
3628
3725
3840
3945
4031
4105
4170
4352
4466
4636
4813
4983
5106
5219
529:4
5355
5514
5607
5695
5791
5888
5940
5992
6023
6070
6112
6146
G192
6247
6287
6320
6351
6384
6425
6468
6579
6622
6728
6809
6869
6944
7000
7015
7036
7077
7128
7189
7230
7266
7302

2856
2968
3370
3538
3583
3635
3754
3919
3970
4042
4118
4200
4375
4518
4639
4909
5012
5116
5250
5300
5412
5516
5610
5697
5795
5892
5955
5996
6031
6075
6116
6158
6203
6254
6292
6326
6354
6389
6428
6503
6588
6630
6745
6814
6889
6947
7002
7019
7050
7087
7138
7198
7238
7268
7317

2866
2982
3404
3541
3586
3640
3759
3921
3979
4057
4124
4216
4395
4533
4641
4910
5025
5140
5251
5316
5413
5527
5614
5705
5797
5894
5958
5998
6040
6077
6123
6159
6211
6255
6293
6329
6356
6390
6431
6507
6590
6638
6754
6818
6898
6951
7003
7020
7051
7090
7140
7199
7240
7278
7323

2876
3016
3420
3543
3588
3642
3772
3923
3983
4071
4130
4223
4406
4535
4645
4911
5035
5142
5252
5319
5414
5544
5617
5716
5800
5896
5959
6001
6041
6080
6127
6161
6213
6257
6294
6332
6361
6394
6433
6510
6592
6658
6773
6819
6908
6953
7004
7021
7053
7093
7141
7209
7246
7,279
7329

Page 261
2886
3019
3454
3544
3594
3653
3806
3925
3985
4084
4132
4316
4407
4536
4646
4912
5038
5144
5280
5320
5444
5545
5634
5718
5820
5912
5965
6006
6045
6085
6131
6166
6216
6258
6300
6334
6367
6398
6435
6519
6594
6664
6777
6823
6913
6954
7006
7022
7054
7094
7152
7211
7249
7282
7333

2896
3042
3457
3545
3606
3678
3812
3927
3986
4087
4133
4319
4413
4538
4647
4946
5044
5149
5283
5326
5448
5558
5645
5732
5821
5915
5967
6010
6047
6089
6133
6170
6219
6262
6302
6335
6370
6401
6437
6521
6597
6669
6781
6825
6918
6957
7007
7023
7055
7096
7153
7213
7250
7292
7335

2906
3271
3473
3549
3613
3679
3818
3929
3989
4091
4146
4321
4424
4543
4717
4955
5055
5164
5286
5346
5449
5563
5657
5733
5837
5917
5972
6013
6052
6094
6134
6171
6230
6264
6305
6336
6374
6403
6439
6526
6601
6672
6785
6840
6926
6964
7008
7024
7058
7105
7155
7215
7255
7293
7336

2907
3276
3487
3552
3614
3689
3825
3931
3994
4092
4147
4325
4430
4544
4730
4967
5062
5166
5287
5348
5497
5564
5658
5756
5880
5925
5973
.6015
6060
6096
6135
6178
6232
6265
6310
6338
6379
6405
6450
6551
6603
6675
6789
6842
6930
6967
7009
'7025
7060
7108
7174
7217
7256
7294
7339

.

~

~.

~
j

T10KL.MCR[10,1141]

AD*.5

AD*2

PASS

Q_AD

15:34 27-JULY-1984
7341
7394
7431
7469
7503
7588
7668
7805
7913
7957
8241
8318
8431
8509
8541
8708
8765
8790
633 #
3041
4409
4959
5524
5672
6655
7595
631 #
4713
6458
8329
628 #
2250
2788
3701
3975
4479
4753
57'58
6056
6353
6894
7231
7352
7652
7858
7944
8209
8301
8825
627 #
4224
4464
4615
5040
5379

7343
7398
743~

7471
7515
7591
7672
7807
7918
7958
8246
8320
8434
8513
8547
8715
8767
8793
2152
3093
4415
5361
5529
5693
6661
7601
2150
5050
6642
8363
2160
2307
3111
3730
4041
4481
4761
5802
6057
6359
6896
7235
7370
7667
7911
7945
8211
8306
8827
2383
4317
4465
4619
5100
5391

MICRO 31(254)
7345
7421
7433
7473
7519
7597
7674
7809
7922
7960
8250
8346
8442
8515
8568
8720
8769
8805
2424
3096
4546
5369
5547
5701
6668
8264
2972
5059
6748
8502
2168
2334
3326
3735
4126
4484
4892
5803
6058
6372
6914
7239
7371
7686
7926
7947
·8212
8381
2981
4327
4468
4620
5157
5395

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 262

7347
7422
7434
7475
7533
7603
7675
7811
7925
8192
8253
8349
8452
8517
8570
8726
8771
8815
2426
4168
4547
5371
5548
5704
6731

7349
7423
7436
7485
7547
7618
7682
7813
7933
8195
8259
8351
8454
8520
8574
8728
8773
8817
2427
4169
4548
5376
5551
5706
7178

7361
7424
7440
7487
7557
7629
7708
7827
7937
8196
8261
8375
8460
8521
8592
8731
8775
8819
2984
4175
4554
5377
5553
5830
7180

7362
7425
7444
7489
7559
7635
7713
7834
7940
8199
8267
8378
8467
8528
8594
8736
8777
8830
2988
4177
4804
5436
5638
5841
7188

7378
7426
7446
7492
7561
7648
7716
7844
7943
8201
8288
8392
8471
8530
8628
8742
8779
8834
3000
4187
4815
5485
5639
6464
7195

7379
7427
7448
7493
7563
7655
7720
7847
7946
8210
8291
8397
8496
8532
8639
8750
8781

7381
7428
7450
7495
7566
7658
7722
7861
7949
8221
8296
8406
8499
8536
8696
8751
8783

7385
7429
7455
7497
7579
7660
7794
7862
7952
8225
8304
8409
8505
8539
8699
8755
8784

7392
7430
7459
7501
7582
7666
7803
7866
7955
8227
8310
8424
8508
8540
8703
8759
8785.

3003
4189
4891
5487
5646
6467
7197

3005
4194
4940
5503
5650
6471
7499

3006
4225
4943
5504
5653
6473
7502

3010
4387
4950
5523
5654
6553
7520

2995
5212
7132

3008
5232
7147

3011
5243
7149

3038
5356
7447

4123
5359
7483

4150
5364
7627

4206
5439
7633

4449
6201
7724

4589
6202
8326

2170
2343
3406
3740
4154
4611
4949
5804
6073
6378
6931
7253
7376 .
7692
7931
7948
8216
8383

2171
2430
3453
3746
4196
4616
4962
5922
6104
6455
6965
7264
7403
7694
7932
7950
8219
8386

2174
2495
3458
3775
4211
4621
4972
5929
6120
6511
7029
7285
7404
7726
7934
7951
8229
8404

2176
2527
3532
3780
4213
4627
4982
5935
6143
6577
7032
7288
7454
7728
7935
7953
8231
8526

21'77
2533
3568
3814
4215
4628
5014
5938
6156
6589
7072
7295
7518
7730
7936
7954
8233
8542

2183
2538
3630
3817
4218
4690
5094
5963
6174
6591
7102
7308
7585
7823
7938
7956
8235
8623

2185
2541
3641
3842
4393
4693
5122
5968
6205
6631
7157
7310
7620
7831
7939
7959
8239
8725

2228
2591
3663
3967
4437
4702
5130
5985
6295
6695
7223
7318
7621
7839
7941
8198
8240
8794

2232
2787
3695
3969
4457
4737
5246
6030
6297
6725
7227
7319
7623
7846
7942
8208
8293
8797

3087
4386
4475
4819
5206
5397

3113
4396
4483
4895
5217
5398

3115
4398
4511
4902
5222
5411

4119
4411
4516
4964
5237
5424

4145
4433
4517
4973
5240
5482

4184
4436
4534
4976
5297
5484

4204
4438
4559
4993
5321
5486

4212
4440
4610
5017
5324
5488

4214
4451
4614
5033
5368
5556

.

/

T10KLMCR[ 10.1141]

0_0*.5

0_0*2

(U) DISP
ADISP
AREAD
BDISP

~

a
~

0

A
!
i'O

BYTE
CONSOLE
DP
DP LEFT
DROM
EAMODE
MUL
NICOND

5
'i

..

.~

e

~
!

E

j

NORM

)..

PAGE FAIL
RETURN

~

I
ol:

seADO
(u) DIVIDE
(U) DONT CACHE
(u) DP FUNC

(U) DT
2T
3T

r"

I

\"

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 263

5568
5712

5573
5717

5583
5719

5588
5730

5628
5754

5633
5770

5643
5771

5656
5789

5662
5981

5674
6140

5677
6541

2384
4268
4541
5434
5751
2991
4280
4580
5493
'5724
4561

2385
4276
5041
5577
5785
3072
4290
4583
5501
5741

3071
4286
5208
5602
5787
3075
4298
4595
5505
5763

3090
4294
5228
5605
5833
3076
4435
4600
5579
5780

3099
4389
5229
5613

3143
4391
5230
5616

4120
4399
5244
5618

4148
4403
5299
5632

4227
4419
5322
5667

4248
4434
5327
5708

4249
"4441
5402
5722

3077
44;45
4820
5584
5808

3102
4473
4823
5586
5983

3106
4476
4896
5598

3109
4549
4899
5600

3144
4552
4904
5601

3147
4553
5223
5630

3148
4556
5224
5671

2575
2856
3473
4155
6168

2689
2866
3487
5207
6375

2691
2886
3501
5436
6729

2724
2896
3511
5444
6801

2730
2907
3696
5448
6808

2738
2917
3703
5494
7533

2740
2947
3741
5506
7560

2759
3271
4058
5516
7578

2761
3277
4072
5523
7589

2804
3370
4124
5927
7616

4722

6150

6853

6874

4427
6460
2354
2279
4268
2228
3429
4218
5300
5678

4429
6755
2358
2345
4276
2229
3453
4482
5329
5732

4446
7419
2367
3554
4286
2231
3454
4485
5406
5733

4471
8217
2372
47474
4294
2232
3457
4693
5481
5743

6474

6501

8761

2380
4747
5580
2292
3458
5440
5483
5745

2401
5923
5606
2298
3525
5446
5493
5765

2407
6891
5608
2522
3526
5805
5497
5775

2431
6899
5725
3043
3552
7352
5499
5777

2436
7657

5'336

5939

3089·
3594
7623
5501
5782

3117
3711
8202
5502
5783

3326
3787
5505
5810

2457
4515
5106
6235
6171
7265
7676
7923
8641
4692
7688
4552

2458
4516
5243
6240
6787
7289
7702
7927
8642
4697

3559
4518
5244
6243
6804
7364
7714
7961
8746
4711 .

3563
4602
5526
6281
6813
7408
7716
8548
8834
4787

4024
4629
5528
6282
6815
7516
7718
8570

4027
4731
5529
6432
6841
7519
7720
8575

4230
4733
5618
6438
6876
7591
7722
8581

4273
4737
5813
6609
6909
7598
7724
8612

4281
4772
5820
6632
6915
7604
7726
8615

4291
4805
5821
6697
6920
7661
7728
8616

4299
4824
5836
6728
6960
7669
7730
8629

5283

5426

5428

5981

5983

6034

6844

4553

4597

4601

7585

7620

7726

8527

8543

2181
2988
3438

2371
3000
3447

2383
3003
3450

2384
3017
3592

2494
3087
3592

2526
3090
3607

2532
3332
3607

2537
3335
3694

2540
3344
3700

2590
3347
3739

2781
3406
3745

15:34 27-JULY-1984
5565
5707
7718
632 #
4261
4493
5404
5748
630 #
4272
4558
5481
5675
862 #
869 #
865 #
870 #
2814
3389
4130
5969
8518
875 #
863 #
868 #
866 #
864 #
876 #
872 #
874 #
3338
.3794
867 #
5527
5839
873 #
871

it

4493
4892.
6225
6740
7199
7673
7732
8638
877 #
6886
963#
1133 #
1150 #
932 #
935 #
936 #
2787
3435

2321
2569
2824
3390
4153
6113
8818
4705

\

\

\

~

~

~,
\

T 10K L :IYlGR [ 10, 1 1 4 1 ]

4T
5T
(U) EXT ADR
(U) FETCH
(D) FL-B

AC
BOTH
MEM
(U) FLG,C
(U) FLG. PI
(U) FLG.SN
(U) FLG.W
(U) FMWRITE

15:34 27-JULY-1984
3816
4194
4423
4622
4967
5300
5497
5676
5753
5839
6041
6133
6192
6267
6361
6491
6615
6814
6939
7062
7255
7332
7620
7730
7939
7956
8318
8397
8492
8576
8712
937 #
938 #
1156 #
7844
8388
1122 #
3020
4218
1339 #
1340 #
5339
1342 #
1341 #
1305 #
1304 #
8793
1306 #
1303 #
958 #
2521
3438
4187
4457
4707

MICRO 31 (2,54 )

KSlo MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 264

3966
4212
4433
4638
4976
5329
5499
5678
5762
5913
6045
6137
6194
6268
6367
6510
6616
6819
6940
7064
7260
7334
7621
7846
7941
7957
8320
8413
8499
8598
8736
8358

3968
4214
4440
4645
4977
5346
5501
5690
5765
5955
6060
6140
6199
6269
6374
6541
6630
6823
6945
7066
7262
7338
7649
7913
7942
7958
8322
8417
8512
8601
8742
8483

3974
4327
4453
4692
4992
5366
5502
5701
5771
5956
6061
6146
6201
6287
6380
6545
6692
6825
6953
7084
7266
7340
7651
7918
7944
7960
8325
8422
8531
8603
8751
8567

3987
4329
4534
4697
5022
5372
5505
5720
5775
5973
6062
6150
6203
6293
6381
6551
6694
6840
6954
7093
7267
7342
7655
7919
7945
8199
8340
8433
8533
8606
8753

3992
4331
4610
4705
5035
5374
5508
5732
5777
5976
6063
6161
6211
6320
6382
6554
6737
6842
6957
7152
7296
7344
7658
7922
7947
8200
8345
8437
8539
8609
8755

4040
4335
4612
4711
5040
5406
5513
5733
5782
5992
6080
6178
6213
6324
6383
6558
6738
6853
7003
7209
7298
7346
7660
7931
7948
8249
8351
8439
8540
8630
8767

4084
4349
4614
4713
5104
5447
5527
5743
5783
5996
6094
6179
6216
6332
6397
6579
6739
6869
7004
7211
7299
7348
7665
7932
7950
8288
8375
8442
8541
8640
8796

4096
4388
4615
4722
5133
5481
5548
5744
5807
6006
6095
6181
6252
6337
6399
6588
6745
6874
7050
7213
7302
7371
7672
7934
7951
8289
8376
8452
8547
8694
8825

4122
4394
4617
4737
5159
5483
5650
5745
5810
6013
6097
6185
6254
6338
6403
6590
6752
6926
7057
7215
7308
7585
7674
7935
7953
8291
8378
8454
8568
8698
8827

4127
4409
4619
4892
5176
5489
5669
5747
5813
6022
6114
6189
6255
6348
6453
6591
6807
6930
7059
7217
7310
7590
7726
7937
7954
8292
8379
8459
8571
8701

4189
4411
4620
4963
5248
5493
5673
5750
5831
6025
6127
6190
6266
6356
6488
6595
6812
6934
7061
7246
7323
7617
7728
7938
7955
8315
8394
8464
8574
8706

3965
7847
8625
2228
3326
4693

3979
7930
8795
2229
3338
4702

3999
7933
8831
2231
3453
7352

4026
7940
8834
2232
3454
7623

6972
7943

6980
7946

7454
7949

7496
7952

7585
8294

7620
8302

7726
8308

2251
3457
7859

2277
3458
8753

2291
3525

2297
3526

2344
3552

2405
3594

2430
3709

5260
5384
5262
5261
8247
3622

5263
5385
5266
52'65
8512
8325

52G4
5419
5270
5269
8533
8345

5268
5420
5274
5273
8640
8413

5271

5272

5305

5309

5310

5334

5338

5307
5306
8697
8422

5312
5311
8700
8439

5336
5335

5341
5340

8576

8601

8606

8630

8694

5508
82472160
2772
3441
4196
4460
4949

5609
8433
2168
3022
3444
4198
4479
4962

5610
8472
2170
3043
3447
4209
4481
4972

5617
8531
2171
3078
3450
4210
4484
4982

5744
8640
2173
3111
3663
4211
4611
5014

5747
8697
2174
3117
3710
4213
4616
5065

5750
8709
2176
3300
3712
4215
4621
5114

5753

5813

5820

5821

2177
3389
3775
(437
4627
5178

2183
3429
3780
4453
4628
5203

2185
3432
3808
4454
4629
5440

2489
3435
4179
4455
4690
5446

T10KL.MCR[10,1141]

(U) FORCE EXEC

(U) FORCE USER
(U) GENL

(U) GENR

(U) HALT
BW14
CSL
HALT
ILL! I
ILLINT
IOPF
MULERR
NICOND 5

15:34 27-JULY-1984
5758
6009
6088
6259
6353
6679
6955
7288
7911
8233
1120 #
7496
7940
8834
1119 #
7582
7949
720 #
2363
3536
3991
5140
5925
6089
6379
6728
7284
7426
7946
8777
727 #
3114
3606
3941
4459
5294
5617
6257
6431
6790
7009
7046
7240
7807
8469
8793
1282 #
1292 #
1286 #
1285 #
1289 #
1290 #
1288 #
1294 #
1293 #

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 265

5766
6029
6104
6260
6358
6695
6965
7318
7926
8235
3965
7504
7943

5802
6030
6120
6272
6359
6725
7072
7319
7936
8239
3979
7579
7946

5803
6036
6122
6273
6363
6821
7157
7403
8198
8240
3999
7582
7949

5804
6046
6129
6280
6372
6849
7223
7404
8202
8381
4026
7618
7952

5811
6049
6143
6282
6378
6890
7227
7544
8208
8383
6972
7629
8294

5922
6056
6156
6295
6385
6914
7231
.7652
8209
8404
6980
7635
8302

5935
6057
6163
6297
6386
6928
7235
7686
8211
8725
7440
7844
8308

5938
6058
6174
6306
6387
6931
7239
7692
8212

5963
6073
6205
6309
6546
6936
7253
7694
8219

5968
6084
6222
6341
6577
6943
7264
7732
8229

5985
6086
6224
6347
6606
6948
7285
7839
8231

7454
7847
8388

7456
7861
8625

7470
7930
8795

7487
7933
8831

3965
7618
7952
2229
2691
3539
3996
5144
5928
6100
6390
6847
7309
7427
7949
8779
2420
3116
3627
3961
4513
5295
5633
6258
6437
6794
7014
7086
725'1
7809
8473

3979
7629
8294
2231
2722
3552
4026
5149
5931
6112
6394
. 6889
7343
7449
·7952
8781
2422
3387
3640
3971
4636
5319
5755
6264
6508
6810
7015
7089
7335
7811
8507

3999
7635
8302
2276
2730
3564
4042
5164
5972·
6116
6450
6898
7345
7519
8201'
8783
2435
3529
3771
4023
4813
5320
5790
6303
6602
6908
7016
7110
7337
7813
8511

4026
7844
8308
2289
2752
3594
4093
5167
5998
6123
6456
7052
7347
7645
8462
8784
2457
3538
3919
4039
4948
5352
5820
6305
6604
6920
7019
7115
7339
8194
8514

6972
7847
8388
2290
2754
3618
4736
5177
6001
6142
6503
7078
7349
7666
8508
8785
2458
3541
3921
4104
4956
5353
5821
6312
6674
6991
7020
7125
7341
8197
8525

6980
7861
8625
2296
3338
3632
4766
5229
6017
6170
6560
7092
7361
7666
8516
8815
2689
3543
3923
4105
5019
5413
5836
6318
6678
7000
7021
7130
7473
8248
8595

7440
7930
8795
2301
3454
3760
4975
5230
6023
6247
6564
7139
7421
7847
8759
8834
2724
3544
3925
4106
5064
5414
5918
6327
6732
7001
7022
7137
7675
8252
8700

7454
7933
8831
2316
3457
3819
5034
5250
6052
6262
6599
7153
7422
7863
8765

7487
7940
8834
2317
3525
3831
5057
5252
6071
6300
6624
7155
7423
7933
8771

7496
7943

7579
7946

2329
3526
3835
5106
5325
6077
6335
6665
7199
7424
7940
8773

2340
3527
3979
5118
5588
6085
6352
6670
7279
7425
7943
8775

2728
3545
3927
4128
5099
54.90
5940
6346
6774
7002
7023
7142
7720
8255
8705

2745
3578
3929
4151
5103
5506
6167
6398
6778
7006
7024
7183
7794
8260
8710

2747
3583
3931
4358
5290
5609
6172
6401
6782
7007
7025
7190
7803
8411
8716

2771
3586
. 3933
4397
5291
5610
6241
6406
6786
7008
7026
7218
7805
8432
8730

2517
2248
3580
7469
7501
8750
2191

2266

\

~

Tl0Kl.MCR[ 10,1141]
POWER
(U) HOLD USER

(D) I

N

.~

ll!

~

~

~

E
"~

/~

"
;

~
~

E

~

1<

~

~

~

.~

~

(U)
(U)
(U)
(U)
(U)
(u)
(U)

I.C03
I.C04
I.C05
I.C06
I. C07
10 BYTE
10 CYCLE
(U) J

~

]

ABORT
ACBSET
AC ARX
ADD
ADDCRY
ADJBP
ADJBPO
ADJBP1
ADJBP2
ADJBP3
ADJBP4

15:34 27-'JULY-1984
1284
1089
3702
4132
4642
1347
2636
2800
2891
3175
3195
3217
3352
3468
3492
3671
3857
3872
3884
3899
3914
5851
5865
7739
7754
7768
7781
1184
1185
1186
1187
1188

#
#

#

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 266

2578
3788
4157
4724
2553
2648
2818
2900
3177
3197
3228
3354
3476
3494
3766
3859
3874
3886
3901
4051
5853
5868
7742
7757
7770
7784

3404
3792
4207
4746
2558
2653
2828
2911
3178
3198
3229
3355
3477
3495
3799
3863
3875
3887
3905
4065
5854
5869
7744
7758
7771
7785

3420
3807
4219
4998
2563
2658
2833
2921
3179
3199
3230
3356
3478
3496
3800
3864
3876
3888
3906
4113
5855
5870
7745
7759
7772
7786

3487
3813
4229
5350
2601
2663
2843
2931
3180
3200
3231
3357
3479
3497
3801
3865
3877
3889
3907
4138
5857
5871
7747
7760
7774
7787

3501
4005
4232
5362
2606
2668
2850
2940
3181
3211
3232
3462
3480
3504
3802
3866
3878
3890
3908
4305
5858
5872
7748
7761
7775
7788

3558
4058
4339
5427
2611
2673
2860
2941
3182
3212
3233
3463
3481
3505
3852
3867
3879
3891
3909
4310
5859
5873
7749
7762
7776
7789

3562
4072
4374
5715
2616
2678
2870
2942
3184
3213
3234
3464
3482
3516
3853
3868
3880
3892
3910
5109
5860
5874
7750
7763
7777
7790

7630
7487
2354
3563
4562
5244
6235
6771
7265
7676
7855
8638
8727

7636
7579
2358
4024
4602
5526
6240
6787
7289
7702
7923
8641

7582
2367
4027
4629
5528
6243
6804
7364
7714
7927
8642

7618
2372
4230
4731
5529
6281
6813
7408
7716
7961
8746

7629
2380
4273
4733
5618
6282
6815
7516
7718
8548
8834

7635
2401
4281
4737
5813
6432
6841
7519
7720
8570

7861
2407
4291
4772
5820
6438
6876
7591
7722
8575

3598
4089
4405
6389
2621
2797
2880
2943
3185
3214
3235
3465
3483
3518
3854
3869
3881
3893
3911
5385
5862
5908
7751
7765
7778

3620
4099
4491
6390
2626
2798
2889
2955
3193
3215
3350
3466
3490
3669
3855
3870
3882
3894
3912
5849
5863
7737
7752
7766
7779

3690
4102
4640
6989
2631
2799
2890
2956
3194
3216
"3351
3467
3491
3670
3856
3871
3883
3898
3913
5850
5864
7738
7753
7767
7780

2431
4299
4805
5821
6609
6909
7598
7724
8581

2436
4493
4824
5836
6632
6915
7604
7726
8612

2457
4515
4892
5936
6697
6920
7661
7728
8615

#
#
#
It

#
1169 It
1163 #
525 #

2458
4516
5106
"5939
6728
6960
7669
7730
8616
8746
7120
7732
4057
6240
4937
4940
4959
4969
5012
5024

2219
2217
3758
4133
4707
2548
2643
2808
2892
3176
3196
3218
3353
3469
3493
3672
3858
3873
3885
"3900
3915
5852
5867
7741
7756
7769
7783

MICRO 31(254)

#
#
#
#
#
#
It

#
#
#
#

7580

7440
2321
3559
4518
5243
6225
6740
7199
7673
7732
8629
3946
71 "12
3832
4050
6215
4691
4942
4961
4966
4997
5036

6946
4051
6221

4052
6234

4053

T10KL.MCR[10,1141]
ADJBP5
ADJBP6
ADJSP
ADJSP1
ADJSP2
AND
ANDCA
ANDCB
ANDCM
AOBJ
AOJ
AOS
APRID
APRSO
APRSZ
ARSIGN
ASH
ASHC
ASHC1
ASHCL
ASHCQ1
ASHCR
ASHCX
ASHL
ASHLO
ASHR
ASHX
ASHXX
BACKBP
BACKO
BACKS
BADOATA
BDABT
BDCFLG
BOEC
BOECO
BDEC1
BDEC2
BOEC3
BOEC4
BOEC5
BDECLP
BOFILL
BOSET
BDSUB
BOSUB1
BDSUB2
BDTBL
BITCHK
BIXUB
BIXUB1
BLT
BLT-CLEANUP
. BLTBU1
BLTCLR

n
"'-.

/

15:34 27-JULY-1984
5038 #
5059 #
3770 #
3787 #
3792 #
2814 #
2824 #
2876 #
2839 #
3509 #
3487 #
3404 #
7036 #
7028 #
7031 #
2457 #
2981 #
3084 #
3090 #
3106 #
3117. #
3099 #
3111 #
2991 #
2988' #.
2984 #
2995 .#
3008 #
6959 #
6934 #
6926 #
8238 #
6403 #
6405 #
6287 #
6293 #
6300 #
6305 #
6315 #
6320 #
6332 #
6370 #
6354 #
6378 #
6417 #
6421 #
6437 #
6394 #
6908 #
7557 #
75(56 #
5113 #
5174 #
5228 #
5133 #

5032
5061
3766
3779
3784
2807
2817
2869
2832
3504
3476
3393
7004
7003
2399
2952
2956
3088
3095
3078
3101
3103
2991
2981
2970
3008
3013
6927
8776
8783
8223
6339
6384
6291
6309
6313
6301
6315
6318
6389
6363
6398
6321
6418,.
6440
6377
5914
7550
7562
5109
8768
5209
5148

MICRO 3.1(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

2808
2818
2870
2833
3505
3477
3394

2809
2819
2871
2834

2810
2820
2872
2835

2839
2876

3478
3395

3479
3396

3480
3397

6097
7553

6454

3481
3398

3482
3399

Page 267

3483
3400

3108
3114

6935
8784

8786

6323
'6328
6401
6371

5957
7551
7564

6095
7552

/

~

~
\:

;"

T10KL.MCR[10,1141]
BLTGOT
BLTGO
BLTLP
BL TLP1
BLTX
BLTXLP
BLTXV
BLTXW
BOTH
BWRlTE
BYTEAS
BYTEA
BYTEAO
BYTFET
BYTIND
CAlM
CHKSN
CLARXL
CLARXO
CLDISP
CLEANED
CLEANUP
CLRB1
CLRBIN
CLRFLG
CLRPTL
CLRPT
CLRSN
CMPDST
CMS
CMS2
CMS3
CMS4
CMS5
CMS6
CMS7
CMS8
CMSDST
COMO
COMOA
COM1
COM1A
COM2
COM2A
CONSO
CONSZ
CONT
CONTl
CPYSGN
DAC
DADD
DADD1

15:34 27-JULY-1984
5161
5159
5156
5122
5201
5205
5240
5246
2329
2468
2814
4130
4744
4746
4749
4770
4764
3370
3363
5813
7720
6431
8761
8764
8763
6282
6280
6918
7385
7376
5821
6146
6094
6135
6111
6114
6140
6126
6131
6142
6930
4629
4624
4628
4619
4627
4614
7029
7032
7858
7865
4104
2489
4084
4087

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

5136
5125
5171
5158
7800
5254
5226
5241
2569
2824
4153
4768
4701
4745
4752
4760
3351
3364
5794
5097
4640
6928
5179
8761
6280
6165
5961
7388
5599
6126
6105
6137
6119
6143
6128
6140
8782
4624
4628
4619
4627
4614
7011
7010
78'5:3
4045
4090
2496
4079
4093

MICRO 31(254).

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 268

5153

2575
2856
4155
6851
4720

2689
2866
8518

2691
2886
8818

4756

6893

6894

3352
3365

3353

3366

7494
4642
6936
8758

4646
6949

6261
6333
5689

6141

4625

4100
2766

6403

2724
2896

2730
2907

2738
2917

2740
2947

2759
4058

2761
4072

2804
4124

3354

3355

3356

3357

3359

3360

3361

3362

4647
6955

6162
8756

6296

6422

T10KL.MCR[10,1141]
DBABT
DBDN1
DBDONE
DBFAST
DBIN
DBIN1
DBIN2
DBINLP
DBLDBL
DBLDIV
OBLMUL
DBLNEG
OBLNGA
DBLNGl
DBNEG
DBSLOW
OBSLO
DBXIT
DOIV
DDlV1
DDIV2
DDIV3A
DOIV3
DDlV4
DDIV5A
DDlV5B
DDlV5C
DDlV5
DDIV6
DDlV7
DDlV8A
DDIV8
DDlV9
DDIVS
DFAD
DFADtJ
DFADtJ1
DFADtJ2
DFADtJ3
DFADtJ4
DFADtJ5
DFADtJ6
DFAS1
DFAS2
DFAS3
DFAS5
DFAS6
DFAS7
DFDV
DFDV1
DFDV2
OFDV3
OFDV4A
DFOV4B
DFDV4

15:34 27-tJULY-1984
6246
6259
6254
6199
6155
6170
6174
6178
6230
4580
4224
4636
4637
4645
6264
6211
6192
6252
4386
4403
4406
4411
4407
4419
4433
4457
4459
4427
4462
4464
4473
4471
4479
4493
5547
5598
5605
5607
5613
5614
5616
5618
5556'
5563
5568
5577
5582
5584
5687
5693
5701
5712
5727
5732
5714

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

6182 .
6257
6248
6195
6173
6170
6196
6218
4434
4195
2781
2771
4359
6253
2182
6200
6180
4381
4390
4404
4416
4401
4412
4424
4448
4454
4423
4455
4464
4474
4420
5534
5563
5606
5609
5610
5608
5616
5552
5557
5559
5565
5583
5582
5684
5700
5694
5704
5730
5729
5710

MICRO 31(254)

KS10 MICROCODE V124, 27-tJUL-84
Cross Reference Listing

6186
6273

6206
6229
4444

5717

6305
6193

4394

4457

4438
5571
5613
5617
5554
5573

5713

5721

Page 269

CJ

T10KL.MCR[ 10,1141]
OFMP
DFMP1
DFMP2
DFPR1
DFPR2
DFSB
DIV
DIV1
DIV2
DIVA
DIVB
DIVC
DIVHI
DIVIDE
DIVSET
DIVSGN
DIVSUB
DMLINT
DMOVNM
DMOVN
DMOVN1
OMTRAP
DMUL
DMUL1
DMUL2
DMULGO
DNEG
DNEG1
DNEG2
DNNl
DNN2
DNNORM
DNNRM1
DNORM
DNORMO
DNORM1
DNORM2
DOCVT
DOCVT1
DOCVT2
DOCVT3
DONE

DPB
DPB1
DPB7
DPBSLO
DRND1
DROUND
DSMS1
DSTEA
DSTIND
DSUB

~,

15:34 27-JULY-1984
5628
5630
5656
2422
2423
5544
4325

#
#
#
#
#
#
#

4334 If

4337
4346
4352
4365
4587
4552
4546
4532
4511
4232
2781
2771
2783
4216
4168
4189
4194
4223
5770
5772
5774
5800
5802
5780'
5807
5741
5678
5762
5804
6292
6367
6388
6385
2228
3332
7073
7544
4713
4884
4891
4895
5836
5830
7518
6893
6898
4096

#
H

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#

562-3
5631
5653
2416
2421
5535
4309
4320
4350
4332
4347
4357
4581
4552
4542
4514
4338
4197
2776
2767
2775
4210
4163
4178
4188
4176
5744
5770
5771
5796
5798
5733
5790
5679
5588 .
5755
5802
6342
6292
6368
6407
2528
3335
7127
4686
4723
4885
4884
5832
5746
7515
6899
68954080

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

4310
4322

4311
4376

4312

4362
4584

4598

5368
4971

4981

5015

5747

5750

5753

5775

5777

5782

5732

5743

5765

2542
3350
7223

2842
3462
72.27

2843
3713
7231

3022
4219
7235

3175
4724
7239

6875
4886

4887

4888

4889

4913

5840
5749
7520

5843
5752

5784

5786

5788

Page 270

5810

6358

6896

3176
5066
7286

5834

3184
5141
7310

3185
5165
7320

3285
5250
7371

3329
7032
7405

T10KL.MCR[10.1141]
DUMP
DVSUB1
DVSUB2
DVSUB3
EACALC
EAPF
EAPF1
EDBYTE
EDEXMD
EDFILL
EDFIL1
EOFLT
EDFLTl
EDISP
EDISP1
EDIT
EDITLP
EDMSG
EDMSG1
EDN1A
EDNOP
EDNOP1
EDNOP2
EDOPR
EDSEL
EDSFL T .
EDSKP
EDSKPl
EDSPUT
EDSSIG
EDSTOP
EDSTPl
ENDSKP
EQV
EXCH
EXTDSP
EXTEA
EXTEAO
EXTEAl
EXTEND
EXTEXT
EXTIND
FAD
FAS1
FAS2
FAS3
FAS4
FDV
FDVO
FDV1
FDV2
FDV3
FDV4
FDV5

15:34 27-JULY-1984
7930
4538
4539
4541
2283
8825
8830
6630
6541
6557
6572
6588
6606
6471
6473
6450
6455
6615
6624
6661
6650
6641
6651
6668
6500
6551
6577
6638
6642
6564
6534
6519
6525
6262
2886
2588
5926
5925
5922
5923
5912
5935
5931
5283
5285
5294
52.97
5299
5346
5352
5354
5355
5356
5358
5361

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

MICRO 31(254)

7914
4535
4533
4545
2346
8805

7921

6593
6512

6621

6559
6534
6602
6465
6473
6679
6480
6617
6666
6482
6645
6662
6477·
6504
6561
6489
6639
6572
6506
6502
6528
6086
2879
2584
5920
5931.
5908
5927
5928
5260
5285
5290
5299
5334
5349
5352
5353
5354
5359
5358

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 271

6578
6604

6484

6486

6500

6509

6535

6546

5264

5265

5266

5339

5340

5341

6668

6492

6494

6582
6562
2881

2882

5261

5262

5263

5291

5294

5295

5335

5336

5338

2880

5941

5355

6567

6573

6626

6627

T10KL.MCR[10,1141]
FDV6
FDV7
FDV8
FDV9
FETIND
FIX
FIX++
FIX 1++
FIXL
FIXPC
FIXR
FIXT
FIXX
FIXX1
FL-BWRITE
FLEX
FLTR
FLTR1A
FLTR1
FLTR2
FLTR3
FMP
FMP1
FP-LONG
FPRO
FPR1
FSB
FSC
GETPCW
GETSRC
GOEXEC
GRP700
GRP701
GRP702
GSRC
GSRC1
GTFILL
GTPCW1
H1
HALT
HALTED
HALTLP
HARD
HLL
HLLE
HLLO
HLLZ
HLR
HLRE
HLRM
HLRO
HLRS
HLRZ
HRL
HRLE

!~..

~

~
\,,---/
15:34 27-vULY-1984
5364 #
5368 #
5371 #
5379 #
2339 #
5424 #
4556 #
4558 #
5439 #
8759 #
5434 #
5446 #
5443 #
5444 #
2515 #
5494 #
5389 #
5397 #
5393 #
5402 #
5404 #
5316 #
5321 #
3931 #
2396 #
2400 #
5280 #
5410 #
7194 #
6842 #
4001 #
7035 #
7014 #
7208 #
6840 #
6849 #
6912 #
7197 #
7849 #
3578 #
7839 #
7855 #
8725 #
2691 #
2757 #
2761 #
2759 #
2718 #
2750 #
2727·#
2754 #
2730 #
2752 #
2716 #
2743 #

MICRO 31(254)

KS10 MICROCODE V124, 27-vUL-84
Cross Reference Listing

Page 272

5361
5369
5371
2304
5419
4557
4556
5429
4232
5435
5443
5436
5450
5444
5490
5384
5394
5390
5395
5405
5305
5319
3909
2390
5268
5385
3977
6117
8832
6996
6997
7204
6074
6845
5954
7188
7915
3530
2191
7849
7708
2600
2630
2620
2610
2647
2677
2649
2667
2650
2657
2605
2635

5376
2309
5420

5377
2331

5439
6419

5448

5494

5516

5306
5320
3910

5307

5309

5310

5311

3911

3912

3913

3914

5269

5270

5271

5272

5273

5274

2248

2266

2517

3580

7469

7501

8225
2601
2631
2621
2611
2648
2678

8227
2644.
2632
2622
2612

8241
2716
2633
2623
2613

2679

2680

2668

2669

2670

2658
2606
2636

2659

2660

2637

2638

5397
5312

6552

6727
6451
7197
8750

T10KL.MCR[10.1141]
HRLM
HRLO
HRLS
HRLZ
HRR
HRRE
HRRO
HRRZ
HSBDON
IBP
IBPS
IBPX
IDIV
IOPB
IDST
IDSTX
ILDB
IMUL
IMUL1
IMUL2
IMUL3
INCAR
INCPC
INDEX
lNDRCT
IDEA
IOEA1
IOEA2
IOEAl
IOEAX
lOR
lORD
IORD1
IORD2
IORD3
IOT700
IOT710
IOT720
IOT730
IOT740
IOT750
IOT760
IOT770
IOWl
IOW2
IOW3
IOW4
IOW5
IOWAIT
IOWR
IOWRl
IOWR2
IOWR3
ITRAP
JEN

15:34 27-JLJLY-1984
2721
2747
2724
2745
2689
2736
2740
2738
7957
4689
4730
4737
4316
4711
6886
6890
4697
4118
4124
4126
4132
7722
2276
2316
2334
7645
7651
7655
7663
7672
2866
7576
7585
7595
7601
7794
7796
7803
7805
7807
7809
7811
7813
7685
7697
7700
7705
7708
7681
7614
7620
7627
7633
8209
3586

#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#

2607
2625
2608
2615
2602
2672
2662
2652
4682
4692
3829
4304
4685
6147
6887
4683
4112
4341
4123
4129
6048
2271
7577
7653
7651
7656
7659
2859
7532
7581
7590
7596
7737
7741
7744
7747
7756
776'5
7774
7783
7690
7687
7707
7701
7695
7586
7547
7630
7617
7628
6050
3540

MICRO 31(254)

KS10 MICROCODE V124. 27-JLJL-84
Cross Reference Listing

2626

2627

2628

2616
2642
2673
2663
2653

2617
2643
2674
2664
2654

2618
2718
2675
2665
2655

4697
4730
4305

4711
8580
4306

4a07

4114

4115

2861
7558

2862

2927

7750
7759
7768
7777
7786

7751
7760
7769
7778
7787

Page 273

6870
4113

7474

7615

2860
7543
7602
7738
7742
7745
7748
7757
7766
7775
7784
7693

7622
7567
7636
7634

7739
7749
7758
7767
7776
7785

7752
7761
7770
7779
7788

7753
7762
7771
7780
7789

7754
7763
7772
7781
7790

"'"
//
T10KL.~GR[10,1141J

JEN1
JEN2
JFCL
JFFO
JFF01
JFFOL
JMPA
JRA
JRST
JRSTO
JRST1
JRST10
JRSTF
JSA
JSP
JSR
JSTAC
JSTAC1
JSYS
JUMP
JUMP-TABLE
JUMPJUMPA
KIF50
KIF80
KIF90
L-BOEC
L-CMS
L-OBIN
L-EDIT
L-MVS
L-SPARE-A
L-SPARE-B
L-SPARE-C
L-XBLT·
LOB
LDBl
LOB7
LOBSH
LOBSWP
LOPI2
LOAOAR
LOADARX
LOAOPI
LOAOQ
LSH
LSHC
LSHCL
LSHCR
LSHCX
LSHL
LUUO
LUU01
MAP
MAPOON

~..

~

,~
\
I

15:34 27-JULY-1984
7515
3592
3598
3016
3024
3038
3441
3840
3525
3554
3572
3583
3548
3825
3806
3812
3707
3710
3925
3473
3426
3453
3457
8694
8715
8720
5886
5880
5884
5882
5888
5892
5894
5896
5890
4699
4786
4800
4815
4809
7361
7713
7716
7360
7718
2965
3067
3075
3071
3077
2972
4031
4034
8192
8815

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

3592
3584
3518
2955
3021
3040
3846
3802
3466
3551
3567
3537
3528
3801
3800
3799
3697
3761
3906
3463
3473
3432
3441
8717
8711
5859
5849
5857
5852
5862
5868
5869
5870
5867
4684
4706
4791
4810
4788
3593
6396
6751
2194
5115
2954
2958
3067
3071
3072
2967
3852
5880
8188
8770

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 274

3607

3516
3575
3571

3590

3704

3742

3464
3487
3435
3444
8732

3465
3501
3438
3447

3467
3511
3601
3450

3468

3469

3809

4007

5860
5850
5858

5851

5853

5854

5855

5863

5864

5865

5871

5872

5873

5874

6150
4792

6855
4793

4794

4795

7350
6459
7281

6542

7647

6103
3075
3144

3149

3853
5882

3854
5884

3855
5886

3856
5888

3857
5890

3858
5892

3859
5894

5&96
I

T10KL.MCR[10,1141]
MOVE
MOVElP

, MOVF1

MOVFIl
MOVlPO
MOVM
MOVN
MOVPAT
MOVRJ
MOVS
MOVSTX
MOVSTO
MOVST1
MOVST2
MOVST3
MOVST4
MSKPAT
MUl
MUl+
MUlMUlBY4
MUlSB1
MUlSUB
MULTIPLY
MUUO
MVABT
MVABT1
MVABT2
MVENO
MVS
MVS1
MVSK2
MVSK3
MVSKP
MVSKP1
MVSKP2
MVSO
MVS01
NEXT
NEXTAR
NlCOND
NlCOND-FETCH
NIDlSP
NODDIV
NODlV
NOMaD
NXTWRD
ORCA

(j

15:34 27-JULY-1984
2575
4105
5992
6692
6698
6001
2572
2577
6467
6022
2569
6075
6070
6071
6084
6088
6080
6468
4145
4267
4285
6229
4249
4248
4260
3938
3874
3886
6006
6009
6013
6016
5951
59.68
6056
.6046
6029
6040
6052
5980
5983
4026
7955
8834
2237
5446
2256
3458
3089
5715
4490
4374
2320
4736
2906

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#

#
#
#
#
#
#

2549
4106
5972
6698
6024
5986
2562
2557
6462
5978
2552
5975
6026
5995
6084
6037
6463
4137
4251
4.277
6212
5639
4121
4228
3863
3875
3887
5997
6011
6009
5966
6030
6042
6022
6035
6044
5973
5983
3967

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

Page 275

2572
4132
6001.

2579
4133

2603
4157

2564
2558
6464

2565
2559
6467

2560

2553

2554

2555

4138
4263
4295

4139
4269

4140
4287

4149
5644
3864
3876
3888

5042
5656
3865
3877
3889

5323
5663
3866
3878
3890

6040

6053

6064

3971

7931

2645
4967

2827

2828

2829

2830

2844

2722

2728

2745

2747

2752

2754

3867
3879
3891

3868
3880
3892

3869
3881
3893

3870
3882
3894

3871
3883

3872
3884

3873
3885

7934

7936

7938

7941

7944

7947

7950

7953

3089

3117

3429

3711

3787

3794

4482

4485

5440

2231
3552
4339

2232
3594
4374

2292
4218
4405

2298
4693
4491

3326
7352
4708

2338
7623
4998

3453

3454

3457

5350

5362

5427

2901

2902

2845

6085

6081
6076

8798
2522
5805
2228
3525
3789

·8826
3043
8202
2229
3526
3793

4427
4368

4429
4372

4732
2899 .

2900

~
TlOKL.MCR[ 10,1141]
ORCB
ORCM
PAGE-FAIL
PF100
PF105
PF107
PF 110
PF120
PF125
PF130
PF140
PF25
PF30
PF35
PF40
PF45
PF50
PF60
PF70
PF75
PF76
PF77
PF80
PF90
PFD
PFDBIN
PFDONE
PFGACO
PFMAP
PFPll
PFPI2
PFT
PFTl
PFTlO
PFT1A
PFT2
PFT3
PFTICK
PI
Pll0
PI40
PI50
PIEXIT
PIJSR
PIPl
PIP2
PIP3
PIP4
PIP5
PIP6
PIP7
PISET
PIXPCW
POP
POPJ

1',

-~

---~/

"-

15:34 27-JULY-1984
2937
2927
8207
8459
8467
8440
8477
8520
8539
8502
8496
8264
8288
8301
8306
8313
8345
8329
8351
8363
8386
8391
8422
8431
8215
6953
8492
6955
8245
8734
8742
8750
8751
8794
8758
8790
8793
8452
7418
7436
7454
7455
7350
7469
7428
7429
7430
7431
7432
7433
7434
3621
3630
3717
3750

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#

2930
2920
8436
8463
8470
8443
8500
8537
8498
8266
8277
8290
8298
8333
8317
8331
8365
8382
8295
8396

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

2931
2921

2932
2922

2933
2923

Page 276

8474
8743
8504

8412

8384
8303

8217
8780
8718

8722

8201
8219

8229
8231

8233

8235

8325
8739
8792
8754
8766
8819
8405
7420
7428
7451
7505
3622
7458
7421
7422
742.3
7424
7425
7426
7427
7476
7461
3671
3672

8345

8413

8422

8439

8576

8601

8793
7429

7430

7431

7432-

7433

7434

8606

8630

8694

T10KL.MCR[10,1141]
POPX1
PTRIMM
PTRIND
PTRSHR
PUSH
PUSH1
PUSH')
PUTDST
PWRON
QDNEG
QMULT
Q RSH
RDAPR
ROCSB
ROCSTM
ROEBR
RDEBR1
ROERA
RDHSB
ROINT
ROIO
ROPI
ROPT
ROPUR
ROSPB
ROTIME
ROTIM1
RDUBR
ROT
ROTC
ROTCL
ROTCR
ROTL
RTNREG
SAVVMA
SBRL
SECIMM
SECSHR
SETBLT
SETCA
SETCM
SETa
SETPDL
SETPTR
SETSN
SETUBR
SETZ
SFM
SHOREM
SHIFT
SKIP
SKIP-COMP-TABLE
SKIPE
SKIPS
SNNEG

"-

)

15:34 27-JULY-1984
3745
8394
8402
8416
3677
3679
3689
6868
7844
4610
4227
5244
7084
7211
7215
7178
7180
7006
7217
7323
7543
7329
8623
72'13
7209
7292
7308
7187
3000
3139
3147

.#

3~43

1/

3010
.7370
7925
7724
8315
8339
5093
2896
2917
2947
3702
8592
5820
7128
2804
3640
8638
2376
2231
3323
3332
3387
5497

II
II
II
#
II
#
1/

#
#
1/

II
#
#
#
#
#
1/
1/

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 277

3733
8455
8398
3670
3691
3669
5999
2220
4414 .
4185
5216

6600

6625

6693

7211

7213

7215

7217

3382

3383

3406

6360

6379

6565

8339

8416

8569

7184

7191

7209

5202
2890
2911
2941

2891
2912
2942

2892
2913
2943

2937

8393
5375

5670

2798

2799

2800

3344
3389

3347
3390

6262
6113

6390

7029

3377
5484

3378
5.486

3379
5488

3380

3381

6078
4490
4205
5236

7180

II
#
1/

7536

7538

8321

8332

#
1/
1/

II
1/

1/
II
1/
1/

II
1/

II
1/

7306
7305
2953
2957
3139
3143
3002
7047
7840
5365

3147
7097
7912
6204

1/

1/
II
#
1/

#
II
II
II
1/
II
#
II
#
#
II
#
1/

#

8319
5113
2889
2910
2940
3747
8314
5373
7122
2797
3542
8377
2386
3341
3370
6089
3376
5482

8380

7324

7329

~
T 10K L:,.,,,,R [ 10, 1 14 1 J
SNNORM
SNNOT
SNNOT1
SNNOT2
SNORM
SNORMO
SNORM1
SOJ
SOS
SRCMOD
SRND1
, SROUND
SSWEEP
STAC
STAC34
START
STBOTH
STBTH1
STDBTH
STMAC
STMEM
STOBR
STOPC
STORE
STPF1A
STPTR1
STPTR2
STPTR3
STRPF
STRPFO
STRPF1
STRPF2
STRPF3
STRPF4
STRTIO
STSELF
STUBRS
SUB
SWEEPL
SWEEP
T1LSH
TDONE
TDX

~.

~.

15:34 27-JULY-1984
5501
5512
5515
5516
5481
5406
5493
3501
3420
6725
5526
5523
7407
2521
5759
6272
2250
2532
2537
2494
3694
2526
7728
7730
2540
6951
8603
8609
8615
6939
6940
6943
6954
6948
6957
7726
2484
7132
4071
7398
7392
5243
3300
3271
3232

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

5497
5508
5510
5512
5300
5379
5489
3490
3409
5993
5523
5483
7380
2490
5766
6267
3821

K!'>,J MICROCODE V124, 27-JUL-84
Cross Reference Listing

5499

5501

5505

5514
5329
5391

5515
5406
5398

5481
5413

5493
5414

3491
3410
6178

3492
3411
6820

3493
3412
6824

3494
3413
6826

3495
3414

3496
3415

5485
7393
2534
5811

5487

5502

5503

5504

5524

2539
6017

2547
6525

2548
7828

2563

2592

2772

2973

2986

2995

Page 278

3497
3416

3836

2485
3686
7835
3631
3634
2792
6943
8600
8605
8611
8772
6957

3980
7848
3642

7472

8774

6951
8778
7442
2550
7134
4064
7401
7144
5214
3291
3179
3237

TDXX

3276 #

3177

TENLP
TEST-TABLE
TICK
TIOX
TDCK
TOCK1
TOCK2
TOCK3

3226
2180
3282
7246
7532
7249
7253
7260
7264

3230
2187
3271
6059
7525
7303
7259
7254
7271

#
#
#
#
#
#
#
#

MICRO 31 (254)

7490

7864

4065

4066

4067

7174
5234
3294
3188
3241
3181
3234

3193

3197

3202

3206

3211

3215

3220

3224

3228

3186
3239

3190
3243

3195

3199

3204

3208

3213

3217

3222

3277

7533

7526
8453

7527
8738

7528

T10KL.MCR[10,1141J
TRAP
TRNAR
TRNFNC
TRNNS1
TRNNS2
TRNRET
TRNSIG
TRNSS
TRNSS1
TRP1
TSX
TSXX
TXXX
TXZX
UMOVEM
UMOVE
UPCST
UUO
UU0101
UU0102
UU0103
UU0106
UU0107
UU0247
UUOFLG
UUOGO

UUOPCW
VECINT
VECIN1
WRAPR
WRAPR1
WRAPR2
WRCSB
WRCSTM
WRCST
WREBR
WREBR1
WRHSB
WRINT
WRIO
WRPI
WRPUR
WRSPB
WRTHSB
WRTIME
WRTIM1
WRUBR
XCT
XCT1

15:34 27-JULY-1984
6964
6746
6768
6818
6821
6800
6781
6807
6803
6983
3269
3233
3274
3227
3285
3299
7831
7823
8567
3937
3919
3921
3923
3927
3929
3933
4022
3943
3627
7000
7021
7807
3974
7483
7502
7050
7069
7075
7225
7233
8579
7147
7149
7237
7316
7547
7332
7229
7221
7918
7276
7288
7102
3651
3663

#
#
#
#
#
#
#
#
#
#
#
#

#
#

#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

2241
6555
6756
6808
6818
6769
6791
6802
6811
6973
3180
3238
3178
3231
3300
3288
7819
7818
8350
3898
3899
3900
3901
3907
3908
3915
3962
2435
3640
7001
7022
7809
7446
7500

MICRO 31(254)
2247

2259

2262

6775

6779

6783

6795

3194

3198

3203

3207

3212

3216

3221

3225

3229

3187
3240

3191
3244

3196

3200

3205

3209

3214

3218

3223

3538
3921
7006
7024
7813

3541
3923
7007
7025

3543
3925
7008
7026

3544
3927
7009
7218

3545
3929
7014
7240

3578
3931
7015
7335

3583
3933
7016
7794

3586
6908
7019
7803

3606
6991
7020
7805

6981
3189
3242
3182
3235

2265

/

8426
3905

3529
3919
7002
7023
7811
7486

8484

7149
7537

Page 279

2244

7081
7068
8359

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

7539

7842
7257

7284

3647
3657

6990

7868

,......

~
,

j

\

./

T10KL.MCR[10,1141]
XCT1A
XCT2
XCTGO
XJEN
XJRSTF
XJRSTFO
XLATE
XLATE 1
XOR
XOS
XPCW
ZAPPTA

15:34 27-JULY-1984

(u) LSRC

3653 #
2343 #
2268 #
3606 #
3613 #
3532 #
6745 #
6754 #
2856 #
3405 #
3627 #
7403 #
1344 #
1109 #
1113 #
1101 #
1152 #
2291
2784
3458
3615
3842
4043
5130
5929
6631
7309
7504
7844
7943
8301
8746
956. #
3012
4884
5289
5412
5585
5786
6651
954 #
3071
4119
4434
5039
5410
5613
6462
7147
7627
8364
606 #

(U) MACRO%
ABORT MEM CYCLE
AC

1999 #
1849 #

(D) J
(U) JFCLFLG
(U) LD FLAGS
(u) LD PCU
(U) LDVMA

(u) LOADFE

(U) LOADSC

3661
3664
2252
3534
3533
3610
6731
6758
2849
3420
3535
7389

MICRO 31(254)

,..-...,

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 280

7860
3636

2850

2851

2852

3598
2218
4006
2161
2297
2788
3525
3630
3964
4218
5144
5952
6746
7352
7585
7847
7946
8302
8794
2379
3024
4897
5317
5481
5587
5788
6652
2175
3075
4147
4442
5054
5428
5628
6464
7149
7633
8497

3557

3561

3619

4004

7460

7475

8756

2180
2303
2789
3526
3632
3965
4218
5145
6100
6893
7352
7620
7847
7946
8302
8795
2397
3039
4900
5326
5485
5651
5809
6653
2185
3085
4184
4549
5060
5429
5631
6467
7178
7681
8503

2184
2307
3020
3527
3632
3965
4693
5149
6349
6894
7370
7623
7858
7949
8206
8795
2412
3085
4901
5328
5487
5668
5834
6654
2378
3094
4204
4552
5283
5430
5639
6471
7180
7688

2228
2330
3326
3532
3641
3979
4693
5150
6376
6895
7376
7623
7914
7949
8308
8831
2966
4700
4903
5348
5493
5679
5842
6851
2397
3097
4224
4592
5287
5432
5643
6473
7188
7697

2228
2334
3326
3536
3681
3979
4702
5167
6421
6896
7439
7645
7930
7952
8386
8831
2969
4704
4905
5354
5501
5702
5980
6854
2412
3101
4250
4938
5288
5435
5646
6644
7195
7701

2229
2343
3338
3539
3708
3998
4749
5168
6427
6972
7454
7667
7930
7952
8388
8834
2973
4716
5213
5355
5503
5728
5981
6873
2428
3108
4262
4941
5297
5439
5656
6650
7197
8262

2231
2363
3453
3552
3718
3999
4753
5246
6434
6980
7454
7726
7933
7959
8526
8834
2983
4809
5215
5369
5504
5742
5983
6891
2989
3139
4268
4954
5299
5549
5662
6656
7387
8265

2232
2405
3453
3565
3730
4026
4757
5252
6450
7102
7454
7823
7933
8245
8542

2232
2415
3454
3568
3735
4026
4761
5252
6455
7279
7455
7831
7940
8293
8623

2250
2418
3457
3594
3751
4035
5094
5926
6511
7304
7496
7841
7940
8294
8625

2276
2430
3458
3609
3814
4042
5122
5928
6589
7309
7496
7844
7943
8294
8740

2985
4814
5233
5391
5505
5749
6149

3001
4816
5235
5395
5524
5752
6520

3004
4818
5243
5397
5529
5764
6521

3007
4821
5244
5398
5570
5781
6527

2991
3140
4276
4960
5321
5559
5717
6661
7400
8313

3067
3141
4286
4965
5368
5569
5718
6668
7407
8327

3068
3143
4294
4978
5402
5603
6294
7129
7595
8330

3069
3147
4337
4994
5405
5606
6323
7133
7602
8361

2.161
4118

3609
4145

7439
4316

7841
4407

7914
5346

8245
5411

8740
5552

8746
5554

T10KL.MCR[10,1141]
AC [ ]
AC[] 0
AC[ CO.AND. []
AC [ ] [ ]
AC [ ] [ ] TEST
AC[] [] VIA AO
AC [ ] [J*2
AC [ ] []+1
AC [ ] []+O
AC[C[]+[]
AC[] []-[]
AC [ ] -[ ] . AND. [ J
AC [ ] [].EQV.O
AC[C-O
AC[] - [ ]
AC[ ]_ .NOT.[]
AC[ J 0
AC[ C1
AC_-[]
AC .NOT.[]
AC-O
AC=[ ]
AC_[ J TEST
AC [] VIA AD
AC=[]+1
AC_[ ]+0
AC []+[]
AC-[].OR.[]
AD FLAGS
AD FLAGS EXIT
AD PARITY

ADD .25

ADL PARITY
ADR PARITY
AREAD
ASH

15:34 27-JULY-1984
1850
1751
1740
1727
6163
6387
1728
1725
1730
1729
1735
1737
1736
1739
1741
1747
1742
1745
1749
1750
1743
1746
1748
1731
5114
7732
1732
1726
1733
1734
1738
1744
2027
4640
2075
1953
2968
4717
6006
6211
6452
6934
1984
4101
4517
4641
5355
5544
5996
6353
6953
1946
1950
2070
1961

#
#
#
#

4483
3117
4437
2489
622~

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#

#

#
#
#
#

6546
6821

MICRO 31(254)

KS10 MICROCODE V124, 27-dUL-84
Cross Reference Listing

5691
4179
4481
2772
6n4
6849

5699
4187
4611
3043
6259
6890

6202
4198
4616
4454
6272
6928

6266
4210
4621
4460
6273
6936

4627
5766
6309
6943

4628
5811
6341
6948

Page 281

6009
6347

6029
6358

6046
6363

6129
6386

4629
6955

4707
7544

4196
66954479
5963
4457
4211

6205
5758
4213

5804
4215

4484

2173
2174
5803
5802
4453
2521
5178
8202
3432

3022

4455

6036

6084

6280

6282

3078
5203

3300
5440

3389
5446

3429
6086

3441
6122·

3710
6385

3712
6606

3808
6679

3435

3438

3444

3447

3450

4209

6260

6306

3775
6049
3404

3780
6088
3420

3487

3501

4058

4072

4089

4099

4102

4229

4072
2357
3016
5201
6094
6254
6551
7547
2947
4279
4534
4647
5359
5696
6031
6380
7361

2370
3473
5283
6096
6255
6588
7834
3370
4321
4536
4976
5366
5707
6098
6388
7385

2371
3717
5316
6114
6287
6590

2588
3750
5348
6146
6292
6694

2689
3772
5412
6158
6293
6807 .

2691
3828
5558
6161
6294
6814

2722
3840
5955
6189
6315
6840

2728
4147
5958
6192
6320
6842

2781
4189
5973
6194
6332
6869

2965
4326
5976
6201
6367
6926

3420
4365
4543
5033
5377
5714
6134
6389
7398

3501
4398
4549
5050
5390
5730
6135
6423
7645

3527
4421
4580
5100
5482
5771
6136
6425
8759

3536
4422
4610
5119
5484
5776
6183
6428
8819

3539
4428
4615
5137
5486
5797
6247
6476

4071
4449
4620
5161
5488
5803
6265
6818

4088
4475
4625
5249
5499
5837
6268
6939

4096
4516
4637
5280
5515
5963
6336
6947

6931
3111
5065
2578
4642
4058
2181
2982
5113
6022
6252
6510
6940
2577
4275
4518
4645
5358
5583
6010
6361
7261
2321
2425

2985

T10KL~[10'1141]
ASH AROV
ASH36 LEFT
ASHC

B DISP

BAD PARITY
BASIC DIV STEP
BWRITE DISP
BYTE
BYTE
CALL
CALL
CALL

DISP
STEP
IBP
LOAD PI
[ ]

CHANGE FLAGS

CHK PARITY

CHK PARITY L
CHK PARITY R

,~

~.
j5:34 27-JULY-1984

MICRO 31(254)

KSrv MICROCODE V124, 27-JUL-84

Page 282

Cross Reference Listing
2012 #
2978 #
1966 #
4473
5606
5764
20'71 #
2814
3389
4130
5969,
8518
1955 #
4528 #
2072 #
2814
4130
2089 #
4677 #
4671 #
2095 #
1985 #
3634
4185
4514
5097
5375
5656
5788
6078
6204
6360
6565
6927
7472
7840
7947
8393
2005 #
3598
4006
4232
5362
1954 #
2527
3617
3975
476,5
6898
7317
7846
7947
8827
1947 #
1951 #

2991
2991
2991
4477
5613
5781
2569
2824
3390
4153
6113
8818
4549
2569
2824
4153
4705
5981
4692
3593
2182
3829
4195
4692
5113
5483
5663
5794
6085
6212
6371
6578
6935
7474
7842
7950
8416
2217
3619
4058
4339
5427
2269
2533
3678
4002
4771
6913
7371
7866
7948

3107

3110

3100
4493
5616
5785
2575
2856
3473
4155
6168

3103
5299
5618
5787
2689
2866
3487
5207
6375

3107
5402
5630
5809
2691
2886
3501
5436
6729

3110
5404
5671
5834
2724
2896
3511
5444
6801

4268
5434
5675

4276
5578
5710

4286
5580
5724

4294
5584
5742

4400
5586
5748

4404
5602
5751

2730
2907
3696
5448
6808

2738
2917
3703
5494
7533

2740
2947
3741
5506
7560

2759
3271
4058
5516
7578

2761
3277
4072
5523
7589

2804
3370
4124
5927
7616

2689
2866
8518
6150

2691
2886
8818
6853

2724
2896

2730
2907

2738
2917

2740
2947

2759
4058

2761
4072

2804
4124

6874

2771
3962
4338
4706
5214
5502
5713
5957
6103
6221
6422
6621
7257
7532
7912
8314
8484
3404
3702
4099
4491
6390
2362
2591
3723
4212
5206
7222
7621
79:34
7953

2781
3967
4359
4711
5216
5503
5717
5961
6117
6229
6451
6625
7281
7543
7914
8321
8569
3420
3758
4102
4640
6988
2366
2787
3740
4214
5'912
7226
7668
7935
7954

4552
2575
2856
4155
4722
5983
4697
7350
2194
3R32
4205
4697
5115
5485
5670
5914
6095
6215
6379
6593
6946
7490
7848
7953
8426
2218
3620
4072
4374
5715
2339
2538
3695
4041
4892
6983
7455
7931
7950

/

4711
2399
3946
4228
4701
5202
5487
5689
5954
6097 .
6218
6396
6600
7188
7494
7864
7955
8453
2578
3690
4089
4405
6389
2353
2541
3701
4119
5157
7105
7497
7932
7951

3551
3971
4414
4720
5234
5504
5721
5993
6126
6234
6454
6693
7284
7558
7931
8332
8727
3487
3788
4132
4642
7460
2383
3087
3746
4317
5931
7230
7713
7938
7956

3590
3977
4420
4723
5236
5563
5746
5999
6147
6261
6459
6727
7303
7577
7934
8339
8738
3501
3792
4133
4707
7475
2394
3406
3759
4327
6351
7234
7716
7939
8310

3592
3980
4434
4971
5323
5571
5749
6024
6162
6296
6534
6751
7350
7586
7936
8350
8798
3557
3807
4157
4724
8756
2405
3549
3817
4411
6541
7238
7718
7941
8392

3593
4121
4438
4981
5365
5599
5752
6048
6165
6305
6542
6851
7380
7615
7938
8359
8826
3558
3813
4207
4746

3607
4149
4444
5015
5368
563.9
5784
6059
6178
6321
6552
6870
7393
7622
7941
8377

3631
4176
4490
5042
5373
5644
5786
6074
6193
6333
6555
6875
7442
7647
7944
8380

3561
4004
4219
4998

3562
4005
4229
5350

2411
3573
3845
4433
6591
7278
7728
7942
8628

2424
3588
3967
4440
6594
7308
7730
7944
8797

2495
3613
3969
4737
6622
7310
7827
7945
8825

T10KL.MCR[ 10,1141]
CLEANUP DISP
CLEAR ARXO
CLEAR CONTINUE
CLEAR EXECUTE
CLEAR RUN
CLEAR [ )0
CLR FPD
CLR 10 BUSY
CLR 10 LATCH
CLRCSH
DFADJ
DISMISS
DIV
DI'V DISP
DIV STEP
DONE
DPB SCAD
EA MODE DISP
END BLT
END MAP
END STATE
EXIT
EXP TEST
FETCH
FE - - 1
FE - -12.
FE - -2
FE - -FE
FE - -FE+200
FE - -FE+S#
FE - -FE-1
FE - -S- 10
FE -S-20
FE-O
FE-EXP
F()E+1
FE FE+10
FE-FE+2
FE-FE+4
FE=FE+P
FE FE+S1I
FE-FE+SC
FE-FE-1
FE=FE-19
FE FE-200
FE-FE. AND. S#
FE-P
FE-S
FE=S#

15:34 27-JULY-1984
2097
1703
1994
1995
1996
1702
2014
2000
2001
1991
5595
2094
1969
2088
4529
2080
4880
2069
2037
2038
2035
8508
2074
2814
4155
2026
1806
3338
4702
1926
1924
1923
1910
1937
1913
1911
1920
1919
1925
1.932
1927
5752
1929
1928
1931
1935
1938
1914
1930
1912
1936
1915
1916
1917
1921

11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11

#
11
11
11
11
11
11
11
11
11
11

8761
2771

2771
3690
7576
7661
7382
5606
3592
4549
4552
2228
4885
2279
5140
8508
5140
8765
2569
2824
8518
5490
2228
3453
7352

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

4636

6264

6305

6431

6437

4358
3807
7614
7669
7383

4636
3813

6241
4207

6257
4707

6264
4724

6305
6390

6431

7673
7386

7676

7685

7691

7700

7705

3607
4552

4553

4600

548.1

5493

5501

5505

5598

2232
4886
2345
5164

3326
4887
3554
5250

3453
4888
4744

3458
4889
4747

4218

4693

7352

7623

5923

6899

7657

5164
8783
2575
2856
8818
5506
2229
3454
7623

5250
8784
2689
2866

6017
8815
2691
2886

6089

6112

6262

6390

2724
2896

2730
2907

2738
2917

5836
2231
3457
7859

2232
3458

2251
3525

2291
3526

2412
2983
5788
4821

5289
3004
5834
4897

5570
5369
5842
4905

5485

Page 283

6437

5600

5601

6394

6456

6728

2740
2947

2759
4124

2761
4130

2804
4153

2297
3552

2405
3594

2430
3709

3020
4218

3326
4,693

5487

5503

5504

5524

5529

5749

5742

5764

5781

5809

5395

5397

5398

6520

3024
4809
5354
4814
2966
4818

4903
5355
3001
4884

#
11
11
11

#
11
11

#
11

#
#
#
#
#
#

2397
2969
5786
4816
5326
3039
6521
5668
6653
5481

5679

6654

5493

5501

5505

5585

5587

5328
4704
4700

4901
4900

6149
6651

6527
6851

6652
6891

6854

3024

5213

5215

5233

5235

5391

11

#

\

'"

,~

~.

~
of
,.,./

T10KL.MCR[10.1141]
FE S#-FE
FE-S+2
FE-SC+EXP
FE-SC-EXP
FIRST DIV STEP
FIX [ ] SIGN
FL NO DIVIDE
FL-EXIT
FM WRITE

FORCE EXEC
GEN 17-FE
GEN MSK []
HALT [ ]
HOLD LEFT

HOLD RIGHT

15:34 27-JULY-1984
1922
1918
1933
1934
4530
1716
2030
2076
1723
2521
3438
4187
4457
4707
5758
6009
6088
6259
6353
6679
6955
7288
7911
8233
1786
1941
1719
2096
1945
2363
3536
3991
5140
5925
6089
6379
6728
7284
7426
7946
8777
1949
311'4
3606
3941
4459
5294
5617
6257
6431
6790
7009
7046
7240
7807

#
#
#
#
#
#
#
#

#

#

#
#
#
#

#

5728
5980
5317
5348
4549
3387
5350
5444
2160
2772
3441
4196
4460
4949
5766
6029
6104,
6260
6358
6695
6965
7318
7926
8235
7456
4786
4820
2191
2229
2691
3539
3996
5144
5928
6100
6390
6847
7309
7427
7949
8779
2420
3116
3627
3961
4513
5295
5633
6258
6437
6794
7014
7086
7251
7809

MICRO 31(254)

5412
5702

5651

4104
5362
5448
2168
3022
3444
41·98
4479
4962
5802
6030
6120
6272
6359
6725
7072
7319
7936
8239
7470

4128
5715
5494
2170
3043
3447
4209
4481
4972
5803
6036
6122
6273
6363
6821
7157
7403
8198
8240
7504

4823
2248
2231
2722
3552
4026
5149
5931
6112
6394
6889
7343
7449
7952
8781
2422
3387
3640
3971
4636
5319
5755
6264
6508
6810
7015
7089
7335
7811

4896
2266
2276
2730
3564
4042
5164
5972
6116
6450
6898
7345
7519
8201
8783
2435
3529
3771
4023
4813
5320
5790
6303
6602
6908
7016
7110
7337
7813

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

4151

6732

7251

5516
2171
3078
3450
4210
4484
4982
5804
6046
6129
6280
6372
6849
7223
7404
8202
8381

2173
311 1
3663
4211
4611
5014
5811
6049
6143
6282
6378
6890
7227
7544
8208
8383

2174
3117
3710
4213
4616
5065
5922
6056
6156

4899
2517
2289
2752
3594
4093
5167
5998
6123
6456
7052
7347
7645
8462
8784
2457
3538
3919
4039
4948
5352
5820
6305
6604
6920
7019
7115
7339
8194

5983
3580
2290
2754
3618
4736
5177
6001
6142
6503
7078
7349
7666
8508
8785
2458
3541
3921
4104
4956
5353
5821
6312
6674
6991
7020
7125
7341
8197

Page 284

6385
6914
7231
7652
8209
8404

2176
3300
3712
4215
4621
5114
5935
6057
6163
6297
6386
6928
7235
7686
8211
8725

2177
3389
3775
4437
4627
5178
5938
6058
6174
6306
6387
6931
7239
7692
8212

2183
3429
3780
4453
4628
5203
5963
6073
6205
6309
6546
6936
7253
7694
8219

2185
3432
3808
4454
4629
5440
5968
6084
6222
6341
6577
6943
7264
7732
8229

2489
3435
4179
4455
4690
5446
5985
6086
6224
6347
6606
6948
7285
7839
8231

7469
2296
3338
3632
4766
5229
6017
6170
6560
7092
7361
7666
8516
8815
2689
3543
3923
4105
5019
5413
5836
6318
6678
7000
7021
7130
7473
8248

7501
2301
3454
3760
4975
5230
6023
6247
6564
7139
7421
7847
8759
8834
2724
3544
3925
4106
5064
5414
5918
6327
6732
7001
7022
7137
7675
8252

8750
2316
3457
3819
5034
5250
6052
6262
6599
7153
7422
7863
8765

2317
3525
3831
5057
5252
6071
6300
6624
7155
7423
7933
8771

2329
3526
3835
5106
5325
6077
6335
6665
7199
7424
7940
8773

2340
3527
3979
5118
5588
6085
6352
6670
7279
7425
7943
8775

2728
3545
3927
4128
5099
5490
5940
6346
6774
7002
7023
7142
7720
8255

2745
3578
3929
4151
5103
5506
6167
6398
6778
7006
7024
7183
7794
8260

2747
3583
3931
4358
5290
5609
6172
6401
6782
7007
7025
7190
7803
8411

2771
3586
3933
4397
5291
5610
6241
6406
6786
7008
7026
7218
7805
8432

62~5

T10KL.MCR[10,1141]

!

a
j!

IBP DP
IBP SCAD
IBP SPEC
INH CRY18
INST DISP
INTERRUPT TRAP
JFCL FLAGS
JUMP DISP
JUMP A
LDB SCAD
LEAVE USER
LOAD AC BLOCKS
LOAD BYTE EA
LOAD OST EA
LOAD FE

"

.;

.;(
;;

. If

~

I;;

••

:

~

1
iU

"!.;
oil

~
~

~

1
"

LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD

FLAGS
INO EA
INST
INST EA
IR
PAGE TABLE
PCU
PI
PXCT
SC

g

I

" I;;

LOAD SRC EA
LOAD VMA

15:34 27-JULY-1984
8469
8793
4668
4669
4670
1957
2073
2086
2023
2079
2081
4782
2021
1989
1980
1983
1863
3012
4884
5289
5412
5585
5786
6651
2025
1981
1978
1979
1974
1988
2019
1992
1986
1862
3071
4119
4434
5039
5410
5613
6462
7147
7627
8364
1982
17·85
2291
2784
3458
3615
3842
4043
5130
592'9
6631

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#

#
#

"MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

8473

8507

8511

8514

8525

8595

8700

4692
4692
4692
3510
2354

4697
4697
4697
3680
2358

4711
4711
4711
3727
2367

6033
6033

6843
6843

6886
6886

6959

3756
2372

3776
2380

3781
2401

3487
3457
4792
4005
7126
4719
6889
2397
3039
4900
5326
5485
5651
5809
6653
3557

3501
3525
4793

3511
3526
4794

3552
4795

3594

7143
4767
6898
2412
3085
4901
5328
5487
5668
5834
6654
3561

5919

5931

6850

2966
4700
4903
5348
5493
5679
5842
6851
3619

2969'
4704
4905
5354
5501
5702
5980
6854
4004

3655
3574

6984
3589

7867
7664

7363

7438

7920

2185
3085
4184
4549
5060
5429
5631
6467
7178
7681
8503

2378
3094
4204
4552
5283
5430
5639
6471
7180
7688

2397
3097
4224
4592
5287
5432
5643
6473
7188
7697

2180
2303
2789
3526
3632
3965
4218
5145
6100
6893

2184
2307
3020
3527
3632
3965
4693
5149
6349
6894

2228
2330
3326
3532
3641
3979
4693
5150
6376
6895

3598
3473
345~

4791
2217
2163
4700
6887
2379
3024
4897
5317
5481
5.587
5788
6652
2218
2341
2270
·3550
5918
7377
4006
3608
3660
2175
3075
4147
4442
5054
5428
5628
6464
7149
7633
8497
2161
2297
2788
3525
3630
3964
4218
5144
5952
6746

Page 285
8705

8710

5030
2407

5105
2431

2436

4716
5213
5355
5503
5728
5981
6873
7460

2983
4809
5215
5369
5504
5742
5983
6891
7475

2985
4814
5233
5391
5505
5749
6149
8756

2412
3101
4250
4938
5288
5435
5646
6644
7195
7701

2428
3108
4262
4941
5297
5439
5656
6650
7197
8262

2989
3139
4268
4954
5299
5549
5662
6656
7387
8265

2228
2334
3326
3536
3681
3979
4702
5167
6421
6896

2229
2343
3338
3539
3708
3998
4749
5168
6427
6972

2231
2363
3453
3552
3718
3999
4753
5246
6434
6980

2~73

8716

" 8730

3001
4816
5235
5395
5524
5752
6520

3004
4818
5243
5397
5529
5764
6521

3007
4821
5244
53.98
5570
5781
6527

2991
3140
4276
4960
5321
5559
5717
6661
7400
8313

3067
3141
4286
4965
5368
5569
5718
6668
7407
8327

3068
3143
4294
4978
5402
5603
6294
7129
7595
8330

3069
3147
4337
4994
5405
5606
6323
7133
7602
8361

2232
2405
3453
3565
3730
4026
4757
5252
6450
7102

2232
2415
3454
3568
3735
4026
4761
5252
6455
7279

2250
2418
3457
3594
3751
4035
5094
5926
6511
7304

2276
2430
3458
3609
3814
4042
5122
5928
6589
7309

~

8534

/

,

\

,
/

~
\
j

Tl0KL .•" .... R[ 10.1141]

LSH
LSHC
LUUO
MEM CYCLE

MEM READ

MEM WAIT

.~

~

15:34 27-JULY-1984
7309
7504
7844
7943
8301
8746
1962
·1965
2083
1782
2232
2307
2365
2494
2791
3453
3527
3566
3630
3700
3751
3965
4026
4693
4758
5131
5170
5929
6421
6589
6895
6983
7237
7310
7454
7585
7713
7844
7931
7941
7949
8245
8387
8794
1810
3613
5931
7230
7716
1809
2537
3700
4737
6545
7230

#
#
#
#

#

#

MICRO 31 (254)

K~.v MICROCODE V124.
27-JUL-84
Cross Reference Listing·

Page 286

7352
7585
7847
7946
8302
8794

7352
7620
7847
7946
8302
8795

7370
7623
7858
7949
8306
8795

7376
7623
791:4
7949
8308
8831

7439
7645
7930
7952
8386
8831

7454
7667
7930
7952
8388
8834

7454
7726
7933
7959
8526
8834

7454
7823
7933
8245
8542

7455
7831
7940
8293
8623.

7496
7841
7940
8294
8625

7496
7844
7943
8294
8740

3071
5880
2161
2232
2308
2393
2526
3020
3454
3527
3568
3630
3708
3753
3966
4026
4693
4761
5133
5205
5929
6427
6591
6895
7102
7238
7316
7454
7587
7716
7844
7932
7942
7949
8293
8388
8795
2268
3617
6351
7234
7718
2268
2540
3722
4764
6591
7234

3075
5882
2180
2250
2330
2404
2532
3020
3454
3532
3569
3632
3709
3759
3968
4035
4702
4762
5144
5246
5931
6434
6594
6896
7103
7276
7317
7454
7620
7718
7846
7933
7943
7949
829.4
8391
8795
2339
3677
6594
7238
7826
2339
2590
3739
4770
6594
7238

4581
5884
2184
2251
2331
2405
2537
3326
3457
3532
3572
3632
3718
3814
3974
4036
4702
4764
5145
5246
5952
6450
6622
6896
7104
7277
7352
7455
7621
7726
7847
7933
7943
7950
8294
8526
8796
2352
3722
6622
7277
7865
2352
2787
3745
4892
6622
7277

4584
5886
2228
2268
2334
2405
2540
3326
3457
3536
3587
3633
3719
3815
3979
4040
4730
4770
5147
5248
5953
6450
6631
6898
.7221
7279
7352
7455
7623
7728
7847
7933
7943
7951
8301
8542
8825
2361
3759
6898
7317
8309
2361
3406
3759
5133
6898
7308

5888
2228
2276
2335
2415
2589
3326
3458
3536
3594
3636
3722
3810
3979
4042
4736
4891
5149
5252
6100
6455
6631
6912
7222
7280
7352
7470
7623
7730
7847
7934
7944
7952
8302
8579
8827
2365
3844
6912
7443
8391
2365
3548
3816
5156
6912
7310

5890
2228
2291
2339
2416
2590
3338
3458
3539
3594
3641
3730
3826
3979
4043
4737
4892
5150
5252
6100
6455
6746
6968
7225
7304
7370
7491
7623
7823
7858
7935
7945
7952
8302
8623
8831
2393
4001
6968
7455
8627
2393
3572
3844
5159
6968
7317

5892
2229
2291
2343
2418
2784
3338
3458
3539
3609
3641
3732
3842
3998
4044
4749
5094
.5152
5253
6349
6511
6747
6971
7226
7305
7370
7496
7645
7824
7859
7938
7946
7952
8306
8624
8831
2404
4764
6976
7491

5894
2229
2297
2352
2419
2785
3405
3525
3548
3613
3677
3735
3843
3999
4218
4750
5095
5156
5912
6350
6511
6893
6972
7229
7308
7371
7496
7646
7826
7865
7939
7946
7953
8307
8625
8834
2423
4770
6983
7497

5896
2231
2297
2361
2423
2787
3406
3525
3552
3615
3681
3737
3844
4000
4218
4753
5122
5159
5926
6351
6543
6893
6976
7230
7309
7376
7497
7667
7831
7914
7940
7946
7954
8308
8627
8834
3548
5156
7104
7587

2231
2302
2363
2430
2788
3453
3526
3552
3616
3682
3739
3964
4001
4218
4754
5123
5167
5928
6376
6545
6894
6979
7233
7309
7439
7504
7667
7832
7930
7940
7947
7956
8309
8740
8834
3572
5205
7222
7668

2232
2303
2364
2430
2789
3453
3526
3565
3617
3694
3745
3965
4026
4693
4757
5130
5168
5928
6377
6589
6894
6980
7234
7309
7443
7505
7668
7841
7930
7940
7948
7959
8386
8746

2404
3587
3966
5205
6976
7371

2423
3613
3968
5248
6983
7443

2494
3617
3974
5912
7104
7455

2526
3677
4001
5931
7222
7491

2532
3694
4040
6351
7226
7497

3587
5912
7226
7713

T10KL.MCR[10,1141]

MEM WRITE

MEM_O
MEM - [ ]

MULDISP
MUL FINAL
MUL STEP
NEXT INST
NEXT INST FETCH
NEXT [ J PHYSICAL WRI
NO DIVIDE
NORM DISP
ONES
PAGE FAIL TRAP
PI DISP
PXCT BLT DEST
PXCT BLT SRC
PXCT BYTE DATA
PXCT BYTE PTR EA
PXCT DATA
PXCT EA
PXCT EXTEND EA
PXCT STACK WORD
O-[J
Q.AND.NOT.[J
Q #
Q--l
Q--AC[)
0--0
Q--[]
Q-. NOT. AC[)
Q- .NOT.Q
Q=O
Q 0 XWD [ ]
Q-AC
Q=AC[ ]
o AC[].AND.MASK
O=AC[].AND.[)
o MEM
0-Q*.5
0=0*2

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 287

7621
7934
7953
2494
3816
7308
7939
8796
5134
2495
3817
7728
7945
4268
4272
4268
2522
5805
2228
3525
3979
4339
5300
5678

7668
7935
7954
2526
3966
7310
7941
8825
5160
2527
3967
7730
7947
4276
4280
4276
3043
8202
2229
3526
4026
4374
5329
5732

7713
7938
7956
2532
39,68
7371
7942
8827
5248
2533
3969
7846
7948
4286
4290
4286
3089

7716
7939·
8309
2537
3974
7621
7944

2231
3552
7847
4405
5406
5'733

4820
8325

4823
8345

5124
5096
4751
4759
2321
2330
5928
3683
4428

5132
5169
4755
4763
2363
2335
5929
3720

4973

5017

4610
4398
5707
4614
5770
2981
5717

4615
4475

15:34 27-JULY-1984
7587
7932
795.1
1811
3745
6591
7938
7956
1818
1817
3746
7621
7944
2087
4246
4245
2067
5446
2068
3458
1840
2029
2093
5527
5839
1968
2084
2092
1794
1798
1796
1795
1793
1792
1799
1797
1667
1668
1683
1675
1676
1677
1674
1673
1682
1684
5424
1685
1678
1679
1680
1681
1828
1690
1691

#

#
#

#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#

7718
7941
8391
2540
4040
7728·
7945

7728
7942
8627
2590
4737
7730
7947

7730
7944
8796
2787
4892
7846
7948

7826
7945
8825
3406
5133
7931
7950

7846
7947
8827
3694
5159
7932
7951

7865
7948

7931
7950

3700
5248
7934
7953

3739
6545
7935
7954

2541
4041
7932
7951
5580

2591
4737
7934
7953
5606

2787
4892
7935
7954
5608

3406
6591
7938
7956
5725

3695
7308
7939
8797

3701
7310
7941
8825

3740
7371
7942
8827

3429

3711

3787

3794

4482

4485

5440

2232
3594
7933
4491
5481
5743

2292
4218
7940
4998
5483
5745

2298
4693
7943

3326
7352
7946

3338
7623
7949

3453

3454

3457

7952

8834

5493
5765

5497
5775

5499
5777

5501
5782

5502
5783

4896
8413

4899
8422

5983
8439

8576

8601

8606

8630

8694

5146
5253
6893

5151

5247

2415
3570

6545
2538
3975
7931
7950
4294
4298
4294
3117

5505
5810

6894
2418

2786

2790

3731

3736

4620
4516

4517

4534

5482

5484

5486

5488

5771

4819
5981

4895

5297

5368

5379

5391

5395

5397

5398

4119
2383

4317
3087

4212

4214

4327

6541

4411
5157
4227
5223

4433
5206
4261
5224

4440
7718
4434

5208

5228

5229

5230

5244

5632

5722

3752

4619
5411

a

T10KL.MCR[10,1141]

o

0+.25
0-0+1
O-O+AC
0::::0+[ ]
o 0-1
O-O-WORK[]
O-O.AND.#
O-O.AND.NOT.[]
O::::O.AND.[]
o O.OR.#
O::::WORK[ ]
0_[ ]
O_{]+[]
O_[J-[]
o []. AND. 0
O-[].AND.[]
0-[ ] . OR. 0
RAM_[ ]
READ 0
READ XR
READ []

RETURN []

ROT
ROTC
SCAD DISP
SC -1
SC--2
SC--SHIFT
SC--SHI FT-1
SC--SHIFT-2
SC-O
SC-1
SC-11.
SC-14.
SC-19.
SC::::2

,~

,~

15:34 27-JULY-1984
1686
1687
1689
1696
1688
1775
1693
1695
1694
1692
1757
1669
5643
1671
1670
1697
1672
1698
1778
1708
1706
1707
3329
4003
4462
5021
5678
6148
6643
7079
8538
2091
4493
4892
6225
6740
7199
7673
7732
8638
1964
1967
2090
6886
1907
1908
1871
1872
1873
1906
1905
1896
18'95
1894
1904

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#

#

#
#
#

5583
4993
4436
5033
4976.
3113
5719
4483
3115
5040
4145
5656
4465
5100
4559
4386
5240
2183
5447
3556
2376
3332
4034
4471
5285
5727
6164
6651
7156
8596
2457
4515
5106
6235
6771
7265
7676
7923
8641
3007
3143
4692
7688

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 288

5730
4468

5565,

5573

5674

5677

4511

5217

5237

5324

5633

4902
4396
6140
4184
5662

4204
5712

4224

4438

4464

4964

53-21

5556

5568

5628

5754

5789

5588
2185
5489

5513

5762

5807

2572
3341
4328
4539
5372
5783
6376
6768
7304
8761
3559
4518
5244
6243
6804
7364
7714
7961
8746

2736
3344
4334
4560
5374
5919
6427
6800
7383

2743
3347,
4348
4699
5406
5937
6434
6850
7389

2750
3560
4353
4703
5410
5980
6460
6852
7396

2757
3608
4355
4718
5443
6014
6474
6874
7663

3068
3619
4360
4721
5483
6115
6479
7067
7920

3084
3659
4427
4818
5502
6118
6501
7069
7930

3140
3963
4429
4884
5570
6124
6505
7070
8275

3285
3997
4446
4900
5669
6137
6557
7075
8374

3563
4602
5526
6281
6813
7408
7716
8548
8834

4024
4629
5528
6282
6815
7516
7718
8570

4027
4731
5529
6432
6841
7519
7720
8575

4230
4733
5618
6438
6876
7591
7722
8581

4273
4737
5813
6609
6909
7598
7724
8612

4281
4772
5820
6632
6915
7604
7726
8615

4291
4805
5821
6697
6920
7661
7728
8616

42994824
5836
6728
6960
7669
7730
8629

4711

4787

5283

5426

5428

5981

5983

6034

6844

2396
3335
4122
4532
5289
5745
6340
6746
7269
8756
2458
4516
5243
6240
6787
7289
7702
7927
8642
3012
3147
4697

#
#
#
#

3068

3140

#
#
#
#

6650

6661

#

#
#

2175
6471

/

T 1OKL. MCR [ 10. 1141 ]

~

E
~

0

:g"
~
0

SC 20.
SC-22.
SC-24.
SC-26.
SC-27 .
SC-28.
SC-3
SC-34.
SC-35.
SC-36.
SC-4
SC-5
SC-6
SC-7
SC-8.
SC-9.
SC-EXP
SC-FE
SC-FE+S#
SC::::S#

il:

~

;t

5•
~
~

w

~

.li
~

E

~
II

,/~
<
~

~

ol:

SC S#-FE
SC-SC-1
SC-SC-EXP
SC SC-EXP-1
SC-SC-FE
SC-SC-FE-1
SC-SHIFT
SC-SHIFT-1
SC-SHIFT-2
SET APR ENABLES
SET AROV
SET FL NO DIVIDE
SET FOV
SET FPD
SET HALT
SET NO DIVIDE
SET PDL OV
SET P TO 36-S
SET TRAP1
SHIFT
SKIP AC REF
SKIP AD.EQ.O

SKIP AD.LE.O
SKIP ADL.EQ.O

15:34 '27-vULY-1984
1893
1892
1891
1890
1889
1888
1903
1887
1886
1885
1902.
1901
1900
1899
1898
1897
1878
1881
1880
1882
4965
5662
7188
1879
1867
1874
1875
1877
1876
1868
1869
1870
1998
2007
2010
2008
2013
1993
2009
2016
4673
2017
1865
2061
2045
4394
5372
6269
2046
2057
5753
6491
8315
8459
8640

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#

MICRO 31(254)

KS10 MICROCODE V124. 27-vUL-84
Cross Reference Listing

Page 289

6294
5717
5321

5368

4954
4337
4119

4434
4147

4442
4184

4965
4204

4978
4224

4994
5039

7595
5402
6462

7627
5628
7129

6464
8262

7147
8313

7178
8361

7188
8497

7195

4938
2397
2428
3094
2175
4978
5717
7195
3097
7688

5054
2412
5646
5428
4119
4994
5718
7407
5430

5287

5559

4147
5039
6294
7595

4184
5054
6462
7627

4204
5321
6464
7?81

4224
5368
6471
7697

,5283

5549

5288
3085
2378

5569
5410

2166
4132
5350

7071
4133
5362

7156
4157
5715

4219

5427

4232
7849
4339
3702
4732

4746
7915
4374
3758
6043

6389
4405
3788
6846

4491
3792
6888

4998

5350

2973

2985

3007

3012

5243

5244

3017
4423
5374
6558
3335
2188
5813
6523
8322
8512
8694

3332
4453
5447
6595
3347
3987
5913
6987
8325
8531
8712

3344
4534
5489
6616
3438
3992
5956
7111
8340
8533
8753

3435
4612
5513
6739
3450
5389
6095
7118
8345
8571

3447
4617
5669
7296
4388
5394
6097
7154
8394
8576

4122
4622
5720
8289
5022
5508
6179
7457
8413
8598

5639

5643

5656

5662

5718

4337
5402
6650
8262

4434
5628
6661
8313

4442
5639
7129
8361

4938
5643
7147
8497

4954
5656
7178

5362

5715

4127
4638
5762
8292
5366
5673
6199
7458
8417
8601

4329
4645
5807
8376
5690
5676
6383
7649
8422
8603

4331
4963
6137
8379
6337
5744
6399
7651
8433
8606

4335
4992
6190

4349
5346
6266

7262
5747
6453
7665
8437
8609

7919
5750
6488
8249
8439
8630

.~

.~i

T 1OK L:'''0~ [ 1O. 114 1 ]

15:34 27-JULY-1984

SKIP ADL.LE.O
SKIP ADR.EQ.O
SKIP
SKIP
SKIP
SKIP

CRYO
CRY1
CRY2
DPO

SKIP DP18
SKIP EXECUTE
SKIP FPD
SKIP IF ACO
SKIP 10 LEGAL
SKIP IRPT
SKIP JFCL
SKIP KERNEL
SKIP NO CST
SKIP -1MS
SKIP-COMP DISP
SPEC MEM READ
SPEC MEM WRITE
START NO TEST WRITE
START READ

START WRITE

STATE_[ ]
STEP SC

SWEEP
TAKE INTERRUPT
TEST DISP
TL []

2048
2058
7062
7498
2053
2054
2055
2043
3774
4361
4554
5443
6032
6340
8276
2044
2062
2050
2042
2052
2059
2056
2051
8005
2060
2078
1812
1813
1805
1803
2364
3525
3709
4762
6511
7229
7859
1804
3826
6543
7949
2034
6170
8779
1864
3143
4960
5631
7633
1990
2085
2077
1712
5956
7665

#

#

#
#
#
#

#
#
#

#
#
#

#
#
#
#
#
#
#
#
#

#

#

#

#
#
#
#

7658
3086
7064.
7518
3685
4085
5771
2398
3777
4366
4995
5550
6074
6357
8374
2377
7853
4171
2484
2434
5143
3599
3530
8358
6029
3370
2410
8579
2228
2405
3526
3719
5095
6631
7233
8307
2589
3979
6589
7952
5106
6352
8781
2185
3147
5060
6323
7701
7395
8793
3271
3987
6095
8249

~.

MICRO 31(254)

KS,u MICROCODE V124. 27-JUL-84
Ct'oss Reference Listing

Page 290

3592
7066
7590
3728
4097
5831
2413
3782
4370
5139
5652
6076
6429
8597
2736

3607
7332
7617
3757
5798

5120
7334
8200
5358
6214

6324
7338
8464
5482
6220

6397
7340
8492
5484
6233

6752
7342
8698
5486
6424

7029
7344
8701
5488
6435

7032
7346
8706

7057
7348

7059
7445

2572
4104
4392
5163
5699
6098
6479

2750
4129
4409
5249
5703
6115
6505

2757
4151
4421
5285
5714
6118
6696

3040
4154
4428
5289
5727
6124
6726

3112
4209
4443
5318
5964
6164
6768

3329
4217
4462
5348
5977
6256
6822

3341
4318
4480
5356
5994
6261
6941

3432
4354
4532
5390
6007
6298
7106

3444
4356
4539
5412
6014
6307
7251

2743

5937

6184

6388

6477

6800

6801

7484

4692
3388
3537
6034

4697
4689
3540
8213

4711

6288

8408

8626

8734

8765

8816

3534
8483

3535
8567

3542

3651

6966

3389

3390

6113

2229
2416
3527
3753
5170
6747
7237
8387
2785
4026
7305
8834
5972
6379
8785
2989
4250
5297
6467
8265
7396

2231
2419
3532
3843
5253
6893
7276
8624
2791
4036
7309

2232
2430
3536
4000
5928
6894
7280

2251
3020
3539
4044
5929
6895
7316

2291
3326
3552
4218
5953
6896
7352

2297
3338
3566
4693
6100
6971
7505

2302
3453
3569
4702
6350
6979
7623

2308
3454
3594
4750
6377
7103
7646

2331
3457
3616
4754
6450
7221
7667

2335
3458
3636
4758
6455
7225
7824

3405
4730
7370

3630
4736
7470

3633
4891
7832

3641
5123
7847

3682
5131
7933

3732
5147
7940

3737
5152
7943

3815
5246
7946

5998
6503

6001
6560

6023
6564

6071
6624

6077
8201

6085
8771

6116
8773

6123
8775

6142
8777

2991
4262
5299
6473
8327
7399

3067
4268
5405
6668
8330

3069
4276
5429
7133
8364

3071
4286
5432
7149
8503

3075
4294
5435
7180

3101
4549
5439
7197

3108
4552
5603
7387

3139
4592
5606
7400

3141
4941
5613
7602

3277
3992
6097
8315

7533
5508
6179
8322

5673
6199
8325

5676
6383
8340

5744
6399
8345

5747
6453
8394

5750
6488
8413

5753
6491
8417

5813
7649
8422

5913
7651
8433

Tl0KL.MCR[10.1141J

15:34 27-JULY-1984

TR []
TURN OFF PXCT
TXXX TEST
UNHALT
UPDATE USER
UUO

VMA
VMA EXTENDED
VMA PHYSICAL
VMA PHYSICAL READ
VMA PHYSICAL WRITE
VMA_[ ]

VMA [J WITH FLAGS
VMA=[ J+l
VMA_£ ]+XR
VMA []+[J
VMA-[]-1
VMA=[J.OR.[J WITH FL
WORK[ J
WORK [J . NOT. [ J
WORK[ CO
WORK[ L1
WORK[ LQ
WORK[ L[J

WORK[] [] CLR LH
WORK[ C[ ]-1
WORK[ L[ J .AND. [J
WRITE TEST

XR
[ ] LEFT -1
[ J LEFT-O
[J RIGHT_-1

r\

\~

8437
8609
1711
7334
8698
1987
2.063
1997
2020
2082
3627
7000
7021
7807
,1852
1790
1787
7933
8831
1789
1788
1832
3532
4761
7102
8526
1833
1835
6100
1837
1838
1836
18,34
1853
1763
1758
1759
1756
1760
5938
6372
7239
7926
8239
1761
1762
1764
1802
3826
6543
7949
1851
1653
16,51
1654

#
#
#
#
#

#

#
#
#
#
#
#

#
#

#
#
#
#
#
#
#
#
#
#

#
#
#
#

#
#
#
#

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
,Cross Reference Listing

Page 291

8439
8630
3592
7338
8701
2240
3285
7852
3558
2435
3640
7001
7022
7809

. 8459
8640
'3607
7340
8706
2243

8512
8694
6324
7342

8531
8712
6397
7344

8533
8753
6752
7346

8571

8576

8598

8601

8603

8606

7057
7348

7059
7590

7062
7617

7064
8200

7066
8464

7332
8492

2246

2258

2261

2264

2278

3562
3529
3919
7002
7023
7811

3620
3538
3921
700.6
7024
7813

3541
3923
7007
7025

3543
3925
7008
7026

3544
3927
7009
7218

3545
3929
7014
7240

3578
3931
7015
7335

3583
3933
7016
7794

3586
6908
7019
7803

3606
6991
7020
7805

3965
7940
8834
7454
3965
2228
3568
5094
7352
8542
7726
2229
6450
4749
8293
3527
7585
6132
6174
2177
2176
4972
2160
5968
6378
7253
7936
8240
3663
6353
5985
2589
3979
6589
7952

3979
7943

3999
7946

4026
7949

6972
7952

6980
8294

7454
8302

7496
8308

7844
8388

7847
8625

7930
8795

7496
7844
2232
3630
5122
7370
8623

8294
7930
2250
3641
5130
7376
8794

8302
8795
2307
3730
5246
7454

8831
2334
3735
5929
7623

2343
'3814
6455
7667

2430
3842
6511
7823

2788
4218
6589
7831

3326
4693
6631
7858

3453
4702
6894
7959

3458
4753
6896
8306

2231
7279
4757
8301
3536
7620
6354

2276
7309
6893
8386
3539

2363

3338

3632

4042

5144

5149

5167

5252

6895

6553

6620

6698

6729

6732

7403

7404

6104
2168
6030
6577
7264
8198
'8381
7652

6143'
2170
6056
6725
7285
8208.
8383

2171
6057
6914
7288
8209
8404

4690
6058
6965
7318
8211
8725

4949
6073
7072
7319
8212

4962
6120
7157
7686
8219

4982
6156
7223
7692
8229

5014
6295
7227
7694
8231

5922
6297
7231
7839
8233

5935
6359
7235
7911
8235

2785
4026
7305
8834

2791
4036
7309

3405
4730
7370

3630
4736
7470

3633
4891
7832

3641
5123
7847

3682
5131
7933

3732
5147
7940

3737
5152
7943

3815
5246
7946

7645

2740
2738
2761

!"
\

./

\

Tl0KL.Me:R[ 10,1141]

15:34 27-JULY-1984

[ ] RIGHT_O
[ ]+ [ ]
[]-#
[]-[]
[].AND.#
[].AND.NOT.WORK[]
[].AND.NOT.[]
[].AND.O
[ ] . AND. WORK [ ]
[ ] . AND. [ ]
[ ] . OR . [ ]
[].XOR.#
[].XOR.[]
[ ] #

-

,
/

[] #-[]
[]-(#-[])*2
[)-(-[])*.5
[]-(-[]-.25)*.5 LONG
[] (-[)-.25)*2 LONG
[]=(AC[].AND.[])*.5
[] (MEM.AND.[])*.5
[]-(O+1)*.5
[]-([]+#)*2
[]-([]+1)*2
[)-([]+[])*.5 LONG
[]-([)+[])*2 LONG
[ ] ([]+[]+.25)*.5 LO
[]-([]-[])*.5 LONG
()-([]-[])*2 LONG
[]-([].AND.#)*.5
[]-([].AND.#)*2
[]-([J.AND.NOT.#)*.5
[]-([].AND.NOT.#)*2
[]-([].AND.[])*.5
[}-([].AND.[])*2
[}-([].OR.#)*.5
[ C ( [ 1. OR . #) * 2
[L+SIGN
[]_+SIGN*.5
[ L-l
[ ] -2
[ ] -AC
[C-AC[ ]
[]

~j

~

(j

-Q

[C-0*.5
[ J -0*2
[L -SIGN
[ ] -SIGN*.5
[] -WORK[]
[C -[]

1652
1518
1520
1519
1521
1765
1524
1522
1766
1523
1525
1526
1527
1529
4969
6077
7036
8777
1528'
1615
1616
1617
1618
1613
1827
1614
1628
1629
1630
1631
1634
1632
1633
1620
1621
1622
1623
1624
1625
1626
1627
1657
1662
1530
1531
1546
1547
i532
1534
1533
1658
1663
1773
·1535
5390

#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

MICRO 31(254)

KS 10 MI CROCODE V124, 27-JUL-84
Cross Reference Listing

Page 292

2759
2783
6183
4365
5389

4229
6476
4421
5393

4422
6522

5119
6985

4126
4393
6738
4154

7029

7032

7518

7457

7458

2153
4983
6116
7379
8781

2178
5012
6123
7381
8785

4177

5547

4950

7499

2457
5653
6389

2458
5654
6939
2947
5515

2188
7295
2149
4979
6085
7038
8779

4369
5137
7116

5161
7154

5249

5358

5366

5714

6098

2179
5055
6142
7392

2219
5106
6170
7394

2745
5940
6352
7473

2747
5972
6379
7515

2752
5998
6503
8201

2754
6001
6560
8771

4538
6023
6564
8773

4946
6071
6624
8775

5638

5693

5290
5704
7361

5294

5319

5352

5413

5291
5706
6953
4518
5544

5295

5320

5353

5414

4536
5696

4543
5776

4637
5797

4641
6265

4645

4647

5280

5355

5050
4399
4476
4175
2424
5830

5708

6642
5577
4583
4580
4943

4169

2422
5551
4321
4625
6268
5377
4449
2420
5553
5996
2577
5499

T10KL.MCR[10,l141]

15:34 27-JULY-1984

[] -[]*2
[)--[]-.25
[] . NOT. AC [ ]
[] . NOT. AC
[]

. NOT. Q

[]-.NOT .WORK[]
[ ]-. NOT. [ ]
[ ]_0

[] 0*.5 LONG
[ CAC [ ]

[] AC[]*.5
[]-AC[]*2
[]-AC[]-l
[)-AC[)-[)
[ ] -AC [ ] . AND. [ ]
[CAC
[] AC*.5
[]-AC*.5 LONG
[ ]-AC*2
[ ]-AC+l
[]-AC+l00000l
[]-AC+[]
[]-AC-l
[]-AC-[]
[]-AC-[]-.25
[]-AC.AND.MASK
[]-APR
[]-CURRENT AC []
[ ]-EA
[]-EA FROM []
[] EXP
[ ]-FE

[ CFLAGS
[]-ro DATA

rCMEM

[] MEM THEN FETCH
[]-MEM*.5
[]-MEM.AND.MASK
[CP

1537
1536
1539
1538
1540
1772
1541
5512
1542
4319
5800
6401
7844
1544
4031
6592
1543
1561
6i61
6367
6984
1563
1562
1558
1557
1559
1545
3750
5412
1548
1549
1550
1551
1552
1553
1554
1555
1556
1560
1564
1565
1568
1566
1569
1570
1571
1822
1823
8617
6898
7497
1824
1825
1826
1572

#

#
#
#

#
#
#

#

#

#
#

#
#
#
#
#
#

#

#
#
#
#
#

#
#

#
#
#
#
#
#
#
#
#

5359
5545
6267
2896
4909
6013
2839
551.4
2161
4533
6017
6456
8508
2155
4395
7249
4249
2181
6189
6510
6940
4189
6201
6361
4096
2357
3772
5558
2988
2384
4713
3487
3509
5104
3501
3370
4098
2968
7003

MICRO 31(254)

4624
6045
2917
5705
2166
4955
6101
7128
8765
2202
5880
7429

6181
2927
5774
2175
5098
6112
7138
8783
2238
5882
7430

6185
3288
5965
2194
5140
6141
7182
8784
2242
5884
7431

6957
4091
5967
2216
5164
6262
7258
8815
2245
5886
7432

4535
6519
2400
5250
6300
7333

4639
7648
2804
5516
6334
7378

4646
8639
3271
5689
6390
7446

5449

5497

3970
5756
6394
7675

4223
5772
6398
7720

2257
5888
7433

2260
5890
7434

2263
5892

3943
5894

3983
5896

2371
6192
6551

2781
6194
6588

5955
'6211
6590

5973
6252
6694

5976
6254
6807

6006
6255
6814

6022
6287
6840

6094
6293
6842

6114
6320
6869

6146
6332
6926

2588
3840
6096
3003

2689
4147
6158
4194

2691
4326
6292
4409

2722
4717
6294
5548

2728
5113
6315
5650

2965
5201
6452
5701

2982
5283
7547

3473
5316
7834

3717
5348

7093

7267

3986
8221
2362.
3845
7222
7827

7459

8805

2366
4002
7226
7866

2394
4765
7230
8310

2411
5912
7234
8392

3549
5931
7238
8628

3573
6351
7278

3588
6594
7317

3613
6622
7455

6380
2370
3828
5958
3000
3090
3679
4071

4101

3016
7004

7061

5506
6655
3642.
7492
2339
3723
6983
7713

#
#
#
#

4771
6525

6671

#

Page 293

2906
5984
6041
2876
5695
2163
4813
6089
6728
8570
2158
4406
7428

2320 '
5926
5490
3041
3628
7444
2269
3678
6913
7668
2405

#

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

5836
3960
7588
2353
3759
7105
7716

c

Tl0KL.MCR[10,l1411
[LPC WITH FLAGS
[]_O
[LO*.5
[] 0*2
[CO*2 LONG
[LQ+l
[LRAM
[ LTIME
[ l_VMA
[] VMA FLAGS
[CVMA 10 READ
[] VMA 10 WRITE
[CWORK[ ]

[LWORK[ ]+1
[LXR
[L[ ]

[ ]-[ ] SWAP

[] [] XWD 0
[C[] *.5

[ j

~.

~

[]"'.5 LONG

[]_[]*2
[ L[ ] *2 LONG

[L[ ] *4
[] []+#
[ C[]+·25
[) {]+O
[ C[]+1
[L[ ]+1000001

15:34 27-JULY-1984
1573
1574
5716
1575
1576
1577
1578
1579
1580
1581
1843
1844
1845
1771
6382
7211
7660
8375
8755
1774
1582
1583
3825
5038
5687
6.521
7297
1584
3770
6457
1585
1586
4387
5436
6467
7502
1587
4403
5299
5667
1588
5356
7724
1589
4473
5584
5808
1590
1591
1592
1593
1594
5448
6439
1595

#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#

#
#
#

#

#
#

#
#
#
#
#
#

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

3689
4124
5718
4187

3806
4132

3812
4352

4216
4407

5371

5376

5646

4435
5101

4445

7292
7682
7440
7440
7618
4967
6403
7213
7913
8378
8767
5992
7658
2295
3830
5286
5690
6754
7329
2389
3827
6462
6155
2152
4415
5485
6471
7520
2385
4419
5322
5722
2150
5364
8326
2991
4553
5586

7293
7925
7487
7487
7629
4977
6579
7215
7918
8452

7294
8195
7579
7579
7635
5176
6615
7217
7922
8454

6025

Page 294

6964
4424

7471
4430

4439

5607

8210
7582
7582

8726
7618
7861

7629

7635

7861

6060
6692
7246
7937
8499

6061
6812
7255
7955
8539

6062
6823
7260
7957
8540

6063
6930
7266
7958
8541

6080

6178

6356

6819

6825

3019
4118
5287
5732
6845
7475
2569
3841
6463
6270
2426
4546
5487
6473
7595
3071
4434
5327
5748
2972
5439
8329
3072
4556
5598

3454
4146
5288
5733
6868
7557
2716
3959
6757
7708
2427
4547
5503
6553
7601
3099
4441
5402
5751
2995
6202
8363
3075
4558·
5600

3457
4170
5326
5974
6887
7559
2718
4811
7085
8225
2984
4548
5504
6661
8264
3143
4493
5404
5785
3008
6748
8502
3076
4904
5601

3525
4186
5346
5994
6944
7566
2721
4937
7337
8227
3005
4554
5523
6668

3526
4316
5354
6040
7010
7591
2724
4953
·7350
8241
3006
4815
5524
6731

4120
4541
5434
5787
3011
7132

4148
5041
5602
5833
3038
7147

3077
5223
5630

6458
3725
5837

3754

6417

6426

2180.
5951
6502
3818

2184
6052
6526
3833

2414
6070
6620
5116

2417
6099
6847

5614

5634

5657

6127
7050
7298
7960
8547

6338
7084
7302
8199
8736

6348
7152
7323
8288
8742

6381
7209
7655
8291
8751

3552
4325
5563
6075
7011
8261
2727
5053
7360

3579
4340
5564
6335
7174
8349
2730
5093
8402

3594
4346
5571
6346
7187
8496
3269
5102

3653
4375
5572
6354
7194
8520
3274
5175

3707
4730
5645
6421
7199
8817
3593
6400

3010
4891
5529
7178

3093
4940
5639
7180

3096
4959
5672
7188

4168
5361
5841
7195

4225
5369
6464
7197

4227

5208
5605

4248
5228
5613

4261
5229
5616

4389
5230
5618

4391
5244
5632

4123
7149

4150
7447

4206
7483

5059
7627

5243
7633

3102
5224
5671

3106
5481
5675

3109
5493
5724

3144
5501
5741

3147
5505
5763

3148
5579
5780

7448

7493

8296

8304

8790

3404
6242
6889

3614
6310
7256

3635
6322
7722

4736
6329
8769

5142
6349
8830

5166
6370

5251
6384

T10KL.MCR[10,1141]

15:34 27-JULY-1984

[ ] [ ] +AC
[ ] []+AC[]
[] []+Q
(] [] +RAM
(C( ]+WORK[]

( J[ ]

[]+XR

[ ]+[ J

(]_[]+[]+.25
[]-#
[]-1
(J-l00000l
(]-AC
[] [] - RAM
( C( ] -WORK ( ]

[ ]
[ ]
[]
[J

[]-[]-[]

t]_t)-[] REV
[L(] .AND.AC
(]_(] .AND.NOT. #

[] []. AND. NOT. AC
[]=t].AND.NOT.WORK[]
[J [ 1 . AND. NOT. [ J
[ ] [].AND.Q
[]-[] .AND. WORK[ J
(C[]·AND.[]
( ] [].AND.#

( ]

[ ] . AND. # CLR LH

[ ] [].AND.# CLR RH
- [].EQV.AC
[].EQV.Q
[ ] . OR. #

[ ]
( ]
( ]

[ J [].OR.AC
[ ] [ ] . OR . FLAGS
[ ] ( J • OR . WORK [ )
[ J [ ] . OR. [ ]
[] [J. XOR . AC
[ C[ J . XOR. [ J
[ ] [J.XOR.#

1596
1597
1598
1599
1767
8397
1600
1601
6047
7503
1602
1603
1604
1605
1606
1607
1776
1608
1609
1635
1636
8696
1638
1769
1637
1639
1768
1640
1610
3586
3939
6468
7007
7025
7189
7807
1611
8406
1612
1641
1642
1643
5353
6597
7421
8434
8715
1644
1645
1770
1646
7123
1648
1649
1647

#
#
#
#

#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#

#
#
#
#

#
#

#
#
#
#
#

4057
4084
4447
6433
5035
8568
2289
3945
6219

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 295

4087
6203

6213

6216

6435
6374

6554

6630

6737

6745

7299

7672

7674

8318

8320

2301
3985
6230

2316
4200
·6232

2329
4466
6669

3564
4469
6951

5925
4557
6967

5928
5300
6975

7666
5444
7250

5527
7450

5658
7485

6015
7495

3420

6031

6135

6136

6247

6388

6425

6818

8759

8819

6423

6428

6010
6134
2814
3621

6336

6947

7261

7385

7398

2937
4022

3276
5821

3299
6405

7533
6773

6789

7051

7077

7345

8471

8521

2824

7563

5582
4152
6133
4910
2422
3606
4037
6507
7008
7026
7198
7809
3042
8424
5225
2886
4130
2151
5414
6601
7422
8460
8720
2866

7060
4824
8574
5509
2435
3627
4105
6638
7009
7053
7218
7811
6580
8528
5915

7063
4911

7339

7349

7519

5791
2457
3640
5062
6672
7014
7055
7240
7813
6618

5793
3529
3919
5290
6675
7015
7087
7282
8196
6658

6131
3538
3921
5294
6908
7016
7090
7335
8253
6803

7362
3541
3923
5319
6918
7019
7108
7336
8409
7028

8594
3543
3925
5352
6991
7020
7113
7597
8505
7031

3544
3927
5413
7000
7021
7120
7603
8515
7094

3545
3929
6166
7001
7022
7135
7794
8728
7436

3578
3931
6289
7002
7023
7153
7803

3583
3933
6465
7006
7024
7181
7805

8267

8346

5959

6159

4133
2420
5609
6603
7423
8467
8793
3294

4155
2458
5610
6664
7424
8509

4156
3989
5617
6777
7425
8513

3994
5820
6781
7426
8530

4106
6171
6785
7427
8532

4459
6258
6793
7862
8536

4544
6302
6809
8192
8592

5291
6311
7155
8246
8699

5295
6316
7268
8250
8703

5320
6326
7343
8431
8708

6954
4092
7141
3291

8351
4912
7341.

8442
5917
7347

6016
7489

6246
8517

6677
8731

7054

7058

7065

7096

6945
2907
7140
2856
5795
4413

8259

7561

~

)

\

T 10K L . MCR [ 10, 1 14 1 ]
.NOT.[]
2T
3T

4T
5T
7-BIT DPB
7-BIT LOB
(D) MACRO%
AC

AC DISP
B
DAC
DBL AC
DBL B
DBL FL-R
DBL R
FL-AC
FL-BOTH
FL-I
FL-MEM
FL-R
FL-RW
I

.--..

"
15:34 27-JULY-1984

MICRO 31(254)

,~

KS10 MICROCODE V124, 27 -JUL -84
Cross Reference Listing

Page 296

5559

6133

6203

6267

6555

6692

6737

7302

3285
3778
4421
4715
5162
5486
5706
6233
6474
6890
7456
8791
4096
6476

3370
3783
4427
4786
!::;249
5488
5714
6265
6501
6893
7457

3404
3820
4428
4804
5283
5547
5797
6268
6521
6895
7458

3420
3834
4429
4900
5317
5548
5803
6353
6522
6931
7493

3510
4058
4446
4944
5358
5551
5963
6356
6644
6986
7497

3600
4072
4450
4951
5389
5553
5981
6388
6651
7105
7499

4099
6616

4101
6739

4991
6940

4996
7919

5977
8216

1517
1855
7659
1856
3684
4175
4471
5031
5390
5652
5983
6389
6695
7111
7666
1857
6007
8289
1858
4881
4783

#
#

4330
4409

7363
4422

7438
5289

#

2188
3719
4177
4479
5047
5393
5653
6031
6417
6754
7117
8296
301-6
6184
8292
7688
4885
4791

2413
3727
4196
4560
5051
5425
5654
6035
6423
6844
7154
8304
3487
6189
8376
7705
4886
4792

2423
3752
4230
4625
5117
5428
5698
6098
6426
6851
7419
8526
3501
6214
8379

2578
3756
4:367
4642
5119
5482
5702
6205
6435
6872
7444
8543
4084
6255

3111
3773
4371
4700
5138
5484
5704
6219
6460
6886
7448
8761
4089
6428

4887
4793

4888
4794

4889
4795

2124
2605
2635
2667
2818
2880
2941
2138
2126
2913
2128
5623
2113
2129
2119
2112
2130
5339
2132
2118
2131
2116
2117
5312
21043185
3214
3235
3465
3491
3671
3858
3873

#

2547
2606
2636
2668
2827
2889
4050
3516
2800
2923
2766
5684
2775
4140
5534
2766
5260
5384
5262
5264
5261
5260
5261
5335
2843
3193
3215
3350 .
3466
3492
3672
3859
3874

2548
2610
2642
2672
2828
2890
4051
6996
2810
2933
4079

2552
2611
2643
2673
2832
2899
4064
6997
2820
2943
4080

2553
2615
2647
2677
2833
2900
4065
7204
2830
4053
4137

2557
2616
2648
2678
2849
2910
4112

2558
2620
2652
2767
2850
2911
4113

2562
2621
2653
2797
2859
2920
4682

2563
2625
2657
2798
2860
2921
8188

2584
2626
2658
2807
2869
2930

2600
2630
2662
2808
2870
2931

2601
2631
2663
2817
2879
2940

2835
4067
4138

2852
4115
4163

2862

2872

2882

2892

2902

4304

4305

4309

4310

4381

4307
5535
2767
5263
5385
5266
5272
5265
5263
5262
5336
2955
3194
3216
3351
3467
3493
3799
3863
3875

4312
5623
4079
5264
5419
5270
5310
5269
5268
5265
5340
3175
3195
3217
3352
3468
3494
3800
3864
3876

5684
4080
5268
5420
5274
5339
5273
5271
5266
5341
3176
3196
3218
3353
3469
3495
3801
3865
3877

4163
5271

4381
5272

5305

5309

5310

5334

5338

5307

5312

5336

5341

5306
5305
5269

5311
5309
5270

5335
5334
5273

5340
5338
5274

5419
5306

5420
5307

5311

3177
3197
3228
3354
3477
3496
3802
3866
3878

3178
3198
3229
3355
3478
3497
3852
3867
3879

3179
3199
3230
3356
3479
3504
3853
3868
3880

3180
3200
3231
3357
3480
3505
3854
3869
3881

3181
3211
3232
3462
3481
3516
3855
3870
3882

3182
3212
3233
3463
3482
3518
3856
3871
3883

3184
3213
3234
3464
3483
3669
3857
3872
3884

#

#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#

T10KL.MCR[10,1141]

I-PF

~

~

~
.~

lOT
lR
lW
M

~.
0

1t

. ~

i

R

!
0

~

b

~

;;;

.~

R-PF

.li

i
i

ROUND
RW

~

g

l

~

.t

S
SH
SHC
SJCSJCA
SJCE
SJCG
SJCGE
SJCL
SJCLE
SJCN
TCTCA
TCE

MICRO 31 (254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

3886
3901
5109
5860
5874
7750
7763
7777
7790
2548
2643
2828
2940

3887
3905
5385
5862
5908
7751
7765
7778

3888
3906
5849
5863
7737
7752
7766
7779

3889
3907
5850
5864
7738
7753
7767
7780

3890
3908
5851
5865
7739
7754
7768
7781

3891
3909
5852
5867
7741
7756
7769
7783

3892
3910
5853
5868
7742
7757
7770
7784

3893
3911
5354
5869
7744
7758
7771
7785

3894
3912
5855
5870
7745
7759
7772
7786

3898
3913
5857
5871
7747
7760
7774
7787

3899
3914
5858
5872
7748
7761
7775
7788

2553
2648
2833
2941

2558
2653
2850
2956

2563
2658
2860
3476

2601
2663
2870
3490

2606
2668
2880
3766

2611
2673
2889
4051

2616
2678
2890
4065

2621
2797
2900
4113

2626
2798
2911
4138

2631
2808
2921
4305

6996
7551
3670
2799
2549
2644
2834
2942
2584
3206
3237
3363
3647
2547
2642
2849
4304
5263
5338
2550
2633
2809
2871
3393
3413.
4306
2550
2645
2952
2957
3350
3354
33.52
3357
3355
3351
3353
3356
3211
3215
3213

6997
7552

7204
7553

7525
7818

7526
7819

7527
8188

7528

7536

7537

7538

7539

2800
2554
2649
2844
4052
2842
3207
3238
3364
4682
2552
2647
2859
4309
5264
5339
2555
2638
2810
2872
3394
3414
4307
2555
2650
2953
2958
3359
3363
3361
3366
3364
3360
3362
3365
3212
3216
3214

2891
2559
2654
2845
4066
3186
3208
3239
3365
4683
2557
2652
2869

2892
2564
2659
2851
4114
3187
3209
3240
3366
4684
2562
2657
2879

2942
2602
2664
2861
4139
3188
3220
3241
3376
4685
2600
2662
2899

2943
2607
2669
2871
4306
3189
3221
3242
3377
4686
2605
2667
2910

2612
2674
2881
4311
3190
3222
3243
3378
5384
2610
2672
2920

2617
2679
2891
7204
3191
3223
3244
3379

2622
2799
2901

2627
2809
2912

2632
2819
2922

3202
3224
3359
3380

3203
3225
3360
3381

3204
3226
3361
3382

2615
2677
2930

2620
2807
4050

2625
2817
4064

2630
2827
4112

5265
5340
2560
2644
2819
2881
3395
3415
4311
2560
2655
2954

5266
5341
2565
2645
2820
2882
3396
3416
4312
2565
2660

5271
5384
2602
2649
2829
2901
3397
4052

5272
5420
2603
2650
2830
2902
3398
4053

5273

5274

5309

5310

5311

2607
2655
2834
2912
3399
4066

2608
2660
2835
2913
3400
4067

2613
2665
2851
2922
3409
4114

2618
2670
2852
2923
3410
4115

2623
2675
2861
2932
3411
4139

2603
2665

2608
2670

2613
2675

2618
2680

2623

2628

2633

3376
3380
3378
3383
3381
3377
3379
3382
3220
3224
3222

3393
3397
3395
3400
3398
3394
3396
3399
3221
3225
3223

3409
3413
3411
3416
3414
3410
3412
3415

3462
3466
3464
3469
3467
3463
3465
3468

3476
3480
3478
3483
3481
3477
3479
3482

3490
3494
3492
3497
3495
3491
3493
3496

5850
5855
3504
3505
5851
5854

5853
5849

15:34 27-JULY-1984
3885
3900
3915
5859
5873
7749
7762
7776
7789
2105
2636
2818
2931
4310
2120
7550
2111
2110
2125
2637
2829
2932
2106
3205
3227
3362
3383
2107
2635
2832
4137
2133
5312
2109
2628
2680
2862
2933
3412
4140
2127
2638
2114
2115
3310
3314
3312
3317
3315
3311
3313
3316
3166
3168
3167

#

#
#
#
#

#

#

#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#

Page 297

..-..,.

~,

I ,

./

"
~

T10KL.MCR[10,1141]
TCN
TNTNA
TNE
TNN
TOTOA
TOE
TON
TZTZA
TZE
TZN
W

W TEST
WORD-TNE
WORD-TNN
(U) MEM

15:34 27-JULY-1984
3169
3156
3159
3157
3160
3170
3172
3171
3173
3162
3164
3163
3165
2108
2659
2137
3158
3161
960 II

2232
2307
2364
2430
2724
2804
3326
3457
3532
3572
3632
3718
3814
3968
4035
4218
4750
5095
5156
5444
5953
6450
6631
6898
7221
7279
7352
7455
7587
7713
7841
7930
7940
7946
7954
8306

#
#
#
#
#
#
#
#
#
#
#
#
II
II
#
#
#

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

3217

3218

3226

3227

3179
3177
3181
3228
3232
3230
3234
3193
3197
3195
3199
2549
2664
2584
7525
7526
2161
2232
2308
2365
2494
2730
2814
3326
3457
3536
3587
3633
3719
3815
3974
4036
4218
4753
5122
5159
5448
6100
6455
6631
6912
7222
7280
7352
7455
7620
7716
7844
7930
7940
7947
7956
8307

3180
3178
3182
3229
3233
3231
3235
3194
3198
3196
3200
2554
2669
4683

3188
3186
3190
3237
3241
3239
3243
2202
3206
3204
3208
2559
2674
' 4685

3189
3187
3191
3238
3242
3240
3244
3203
3207
3205
3209
2564
2679

2180
2250
2321
2393
2526
2738
2824
3326
3458
3536
3594
3636
3722
3816
3979
4040
4218
4754
5123
5167
5494
6100
6455
6746
6968
7225
7304
7370
7470
7620
7718
7844
7930
7940
7948
7959
8308

2184
2251
2330
2404
2532
2740
2856
3338
3458
3539
3594
3641
3730
3826
3979
4042
4693
4757
5130
5168
5516
6349
6511
6747
6971
7226
7305
7370
7491
7621
7726
7844
7931
7941
7949
8245
8309

2228
2268
2331
2405
2537
2759
2866
3338
3458
3539
3609
3641
3732
3842
3979
4043
4693
4758
5131
5170
5912
6350
6511
6893
6972
7229
7308
7371
7496
7623
7726
7846
7932
7942
7949
8293
8386

Page 298

7527
7528

2612
2776

2617
2844

2622
2845

2627

2632

2637

2654

2228
2276
2334
2405
2540
2761
2886
3405
3525
3548
3613
3677
3735
3843
3998
4044
4693
4761
5133
5205
5926
6351
6543
6893
6976
7230
7309
7376
7496
7623
7728
7847
7933
7943
7949
8294
8387

2228
2291
2335
2415
2569
2784
2896
3406
3525
3552
3615
3681
3737
3844
3999
4058
4702
4762
5144
5246
5928
6376
6545
6894
6979
7233
7309
7439
7496
7623
7730
7847
7933
7943
7950
8294
8388

2229
2291
2339
2416
2575
2785
2907
3453
3526
3552
3616
3682
3739
3964
4000
4072
4702
4764
5145
5246
5928
6377
6589
6894
6980
7234
7309
7443
7497
7645
7823
7847

2229
2297
2343
2418
2589
2787
2917
3453
3526
3565
3617
3694
3745
3965
4001
4124
4730
4770
5147
5248
5929
6421
6589
6895
6983
7237
7310
7454
7504
7646
7824
7858
7934
7944
7952
8301
8518

2231
2297
2352
2419
2590
2788
2947
3453
3527
3566
3630
3700
3751
3965
4026
4130
4736
4891
5149
5252
5929
6427
6591
6895
7102
7238
7316
7454
7505
7667
7826
7859
7935
7945
7952
8302
8526

2231
2302
2361
2423
2689
2789
3020
3454
3527
3568
3630
3708
3753
3965
4026
4153
4737
4892
5150
5252
5931
6434
6594
6896
7103
7276
7317
7454
7585
7667
7831
7865
7938
7946
7952
8302
8542

2232
2303
2363
2430
2691
2791
3020
3454
3532
3569
3632
3709
3759
3966
4026
4155
4749
5094
5152
5253
5952
6450
6622
6896
7104
7277
7352
7454
7585
7668
7832
7914
7939
7946
7953
8302
8579

7~33

7943
7951
8294
8391

T10KL.MCR[10,1141 ]

15:34

(U) MICROCODE OPTION( INH"V@AH
OPT
(U) MICROCODE OPTION(KIP"W@AH
OPT
(u) MICROCODE OPTION(KLP:"W¢AH
OPT
(u) MICROCODE OPTION(NOC"V¢"H
OPT
(u) MICROCODE OPTION(NOWW
OPT
(U) MICROCODE OPTION(UBA"W "H
OPT
(U) MICROCODE OPTIONS
(u) MICROCODE VERSION
UCV
(D) MODE
(U) MULTI PREC
(u) MULTI SHIFT
(U) PHYSICAL

(U) PI.CLR
(U) PI.C01
(U) PI.C02
(u) PI.DIR
(U) PI.IP1
(U) PI.IP2
(U) PI.IP3
(U) pI.IP4
(U) PI. IP5 '
(U) PI.IP6
(U) PI.IP7
(U) PI.MBZ
(U) PI.ON
(U) PI.REO
(U) PI.SCi
(U) PI.SC2
(U) PI.SC3
(U) PI.SC4
(U) PI.SC5
(U) PI. SC6
(U) PI.SC7
(U) PI.TCF
(U) PI.TCN
(U) PI. TSF
(U) PI. TSN
(U) PI. ZER
(U) PXCT
BIS-DST-EA
BIS-SRC-EA
CURRENT

\"

27~JULY-1984

8623
8825
1240 #
1242 #
1264 #
1268 #
1270 #
1272 #
1246 #
1250 #
1252 #
1254 #
1258 #
1260 #
1233 #
1277 #
1278 #
1.338 #
965 #
967 #
1134 #
7399
7861
8625.
1193 #
1182 #
1183 #
1192 #
1174 #
1175 #
1176 #
1177 #
1178 #
1179 #
1180 #
1191 #
1181 #
1194 #
1199 #
1200 #
1201 #
1202 #
1203 #
1204 #
1205 #
1196 #
1195 #
1197 #
1198 #
1173 #
1138 #
1144 #
1142 #
'1139 #
3338

8624
8827

MICRO 31(254)

KS10 MICROCODE V124, 27-JUl.-84
Cross Reference Listing

Page 299

8625
8831

8627
8831

8740
8831

8746
8834

8794
8834

8795
8834

8795

8795

8796

8818

4452
2985
3979
7454
7933
8831

4467
3007
3999
7487
7940
8834

4470
3012
4026
7496
7943

4477
4817
6972
7579
7946

4591
4822
6980
7582
7949

5545
4898
7382
7618
7952

5578
4906
7383
7629
8294

5698
5243
7386
7635
8302

5709
5244
7395
7844
8308

7396
7847
8388

2291
3526

2297
3550

2405
3552

2430
3574

3020
3589

3326
3594

7039
7043
7044
7040
.7041
7042
7045
4400
2973
3965
7440
7930
8795
7332 .
7338
7515

7334
7343
7340

7345

7348
7346
7344
7342
6887

6889

6895

6896

6898

2228
3453

2229
3454

2231
3457

2232
3458

2251
3525

,

/

,~

.~

J

T10KL\::l[10.1141]

01
02
El
E2
(U) RAMAOR
ACII

AC*II

RAM
VMA

XRII

II

15:34 27-JULY-1984
3709
114.1 II
5151
1145 /I
1140 /I

MICRO 31(254)

KS.v MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 300

4693
2363

4702
2415

7352
2418

7623
2786

7664
2790

7859
3731

3736

5124

5132

3720
2335
4719

3752
2341
4759

4751
3570
4763

4755
3656
4767

5096

5169

5253

6893

6894

1143 /I

4218
2321
5247
3683
2330
4700

5919

5928

5929

5931

6850

617 /I
678 /I
2856
3016
3432
3710
4087
4407
5104
5440
6086
6606
679 II
3117
4212
4460
4621
5955
6114
6211
6272
6361
6694
6934·
682 II
681 II
2527
3617
3975
5912
7226
7492
7846
7945
8628
680 II
4749
683 II
4972
5935
6057
6133
6353
6577
6745
6965
7227
7298
7674

2357
2866
3078
3435
3712
4098
4409
5113
5446
6088
6679
2173
4084
4213
4479
4627
5963
6129
6213
6273
6363
6695
6936
2183
2161
2533
3678
4002
5931
7230
7497
7866
7947
8740
2279
4757
2160
4976
5938
6058.
6140
6354
6579
6812
7050
7231
7299
7686

2370
2886
3090
3438
3717
4101
4451
5114
5548
6096
6931
2174
4096
4214
4481
4628
5973
6146
6216
6280
6367
6807
6940
2185
2269
2538
3695
4041
6351
7234
7588
7914
7948
8746
2289
5923
2168
4977
5968
6060
6143
6356
6615
6819
7072
7235
7302
7692

2384
2896
3111
3441
3750
4118
4453
5178
5552
6122
6955
2181
4175
4215
4483
5547
5976
6161
6222
6282
6380
6814
6943
6423
2339
2541
3701
4737
6545
7238
7621
7931
7950
8797
2301
5925
2170
4982
5985
6061
6156
6359
6620
6823
7084
7239
7318
7694

2521
2906
3276
3444
3772
4119
4624
5201
5554
6158
7533
2371
4177
4327
4484
5638
6006
6163
6224
6287
6386
6821
6948
6428
2353
2591
3723
4765
6591
7278
7668
7932
7951
8825
2316
5928
2171
4988
5992
6062
6174
6372
6630
6825
7152
7246
7319
7839

2588
2937
3291
3447
3775
4145
4625
5203
5558
6260
7544
2383
4179
4411
4610
5691
6009
6189
6252
6293
6387
6840

2689
2965
3294
3450
3780
4147
4629
5283
5650
6292
7547
2489
4187
4433
4611
5693
6022
6192
6254
6309
6510
6842

2691
2968
3299
3473
3808
4194
4707
5316
5701
6294
7561
2772
4189
4437
4614
5699
6029
6194
6255
6320
6541
6849

2722
2982
3300
3487
3828
4209
4713
5346
5802
6306
7563
2781
4196
4440
4615
5758
6036
6201
6259
6332
6546
6869

2728
2988
3370
3501
3840
4316
4717
5348
5803
6315
7732
3022
4198
4454
4616
5766
6046
6202
6266
6341
6551
6890

2814
3000
3389
3509
4057
4317
4993
5411
5958
6385
7834
3043
4210
4455
4619
5804
6084
6203
6267
6347
6588
6926

2824
3003
3429
3679
4071
4326
5065
5412
6049
6452
8202
3087
4211
4457
4620
5811
6094
6205
6268
6358
6590
6928

6433
2362
2787
3740
4771
6594
7308
7713
7934
7953
8827
2329
6893
2176
5014
5996
6063
6178
6374
6692
6914
7157
7253
7323
7911

6435
2366
3406
3746
4892
6622
7310
7716
7935
7954

2394
3549
3759
5134
6898
7317
7718
7938
7956

2405
3573
3817
5157
6913
7371
7728
7939
8221

2411
3588
3845
5160
6983
7439
7730
7941
8245

2424
3609
3967
5206
7105
7444
7827
7942
8310

2495
3613
3969
5248
7222
7455
7841
7944
8392

2345
6895
2177
5027
6013
6073
6181
6378
6698
6930
7209
7255
7403
7913

3554
6899
3663
5035
6025
6080
6185
6381
6725
6939
7211
7260
7404
7918

3556
7657
4690
5040
6030
6104
6295
6382
6729
6945
7213
7264
7652
7922

3564
7658
4949
5046
6041
6120
6297
6403
6732
6953
7215
7266
7655
7926

4744
7666
4962
5176
6045
6127
6338
6553
6737
6954
7217
7285
7660
7936

4747

5146

4967
5922
6056
6132
6348
6554
6738
6957
7223
7288
7672
7937

T10KL.MCR[10,l141]

(D) READ

(U) READ CYCLE

(D) ROUND
(U) RSRC
AB
AO
DO
DA

DO
OA
OB
OQ
(U) S#

15:34 27-,JULY-1984
7955
8231
8378
854-1
1349 #
2565
2613
2633
2652
2672
2809
2834
2870
2902
2933
3189
3221
3242
3377
3398
3490
4079
4305
4686
5272
5336
5908
1126 #
2364
3525
3709
4762
6511
7229
7579
8522
1337 #
5312
611 #
613 #
612 #
619 #
7861
617 #
2266
5884
7028
7433
618 #
616 #
5704
615 #
614 #
1001 #
2985

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 301

7957
8233
8381
8547
2547
2584
2615
2635
2653
2673
2810
2835
2871
2910
2940
3190
3222
3243
3378
3399
3647
4080
4306
5260
5273
5338

7958
8235
8383
8567
2548
2600
2616
2636
2655
2675
2817
2842
2872
2911
2941
3191
3223
3244
3379
3400
3670
4112
4307
5261
5274
5339

7960
8239
8397
8568
2550
2601
2618
2638
2657
2677
2818
2849
2879
2912
2952
3202
3224
3359
3380
3409
3766
4113
4309
5262
5305
5340

8198
8240
8404
8574
2552
2602
2620
2642
2658
2678
2819
2850
2880
2913
2953
3203
3225
3360
3381
3410
4050
4114
4310
5263
5306
5341

8199
8288
8442
8725
2553
2603
2621
2643
2660
2680
2820
2851
2881
2920
2954
3204
3226
3361
3382
3411
4051
4115
4311
5264
5307
5384

8208
8291
8452
8736
2555
2605
2623
2644
2662 2766
2827
2852
2882
2921
2956
3205
3227
3362
3383
3412
4052
4137
4312
5265
5309
5419

8209
8318
8454
8742
2557
2606
2625
2645
2663
2767
2828
2859
2889
2922
2957
3206
3237
3363
3393
3413
4053
4138
4381
5266
5310
5420

8211
8320
8483
8751
2558
2607
2626
2647
2665
2797
2829
2860
2890
2923
2958
3207
3238
3364
3394
3414
4064
4139
4682
5268
5311
5534

8212
8351
8499
8755
2560
2608
2628
2648
2667
2798
2830
2861
2899
2930
3186
3208
3239
3365
3395
3415
4065
4140
4683
5269
5312
5535

8219
8358
8539
8767
2562
2610
2630
2649
2668
2807
2832
2862
2900
2931
3187
3209
3240
3366
3396
3416
4066
4163
4684
5270
5334
5623

2563
2611
2631
2650
2670
2808
2833
2869
2901
2932
3188
3220
3241
3376
3397
3476
4067
4304
4685
5271
5335
5684

2228
2405
3526
3719
5095
6631
7233
7582
8624
5263
5338

2229
2416
3527
3753
5170
6747
7237
7623
8831
5264
5339

2231
2419
3532
3843
5253
6893
7276
7646

2232
2430
3536
4000
5928
6894
7280
7667

2251
3020
3539
4044
5929
6895
7316
7824

2291
3326
3552
4218
5953
6896
7352
7859

2297
3338
3566
4693
6100
6971
7440
7861

2302
3453
3569
4702
6350
6979
7454
8294

2308
3454
3594
4750
6377
7103
7487
8302

2331
3457
3616
4754
6450
7221
7496
8307

23353458
3636
4758
6455
7225
7505
8387

5265
5340

5266
5341

5271
5384

5272
5420

5273

5274

5309

5310

5311

3663

7652

2759
8225
2155
2517
5886
7031
7434

6155
8227
21?8
3042
5888
7094
7436

6270
8241
2191
3580
5890
7249
7469

7440

7487

7579

7582

7618

7629

7635

7708

2202
3943
5892
7292
7501

2238
3983
5894
7293
8267

2242
4031
5896
7294
8346

2245
4395
6580
7428
8406

2248
4406
6592
7429
8424

2257
4800
6618
7430
8528

2260
5880
6658
7431
8750

2263
5882
6803
7432

2320
5706
2738
3628
2175
3001

2761
5926
2740
3642
2378
3004

3689
6964

3806
7471

3812

4216

5221

5551

5553

5653

5654

3960
2397
3007

3986
2397
3012

5225
2412
3024

5915
2412
3039

5959
2428
3041

6159
2966
3068

7459
2969
3085

8805
2-373
3094

2983
3097

8229
8375
8540

c

/

T10KL.MCR[10.1141]

(U) SCAD
A

A*2
A+B

A-1

A-B
A-B-1
A.AND.B
A.OR.B
(U) SCADA
BYTE 1
BYTE2
BYTE3
BYTE4
BYTE5
PTR44
S#

~

~

"-

MICRO 31(254)

KS 10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

4119
4816
4905
5243
5395
5493
5628
5749
5983
6655
7681

4147
4818
4938
5244
5397
5501
5639
5752
6149
6661
7697

4184
4821
4954
5287
5398
5503
5643
5764
6294
6671
8262

4204
4884
4965
5289
5402
5504
5646
5781
6462
6854
8313

4224
4885
4978
5321
5410
5505
5656
5786
6464
7129
8361

4337
4886
4994
5326
5425
5506
5662
5788
6471
7147
8497

4434
4887
5039
5328
5428
5524
5668
5809
6520
7178

4442
4888
5054
5354
5430
5529
5679
5834
6525
7188

4704
4889
5213
5355
5481
5559
5717
5836
6527
7195

4786
4897
5215
5368
5485
5570
5718
5842
6650
7407

4809
4901
5233
5369
5487
5585
5728
5980
6652
7595

2175
4791
5054
5628
6650
7595
6643
2378
3039
4905
5428
5529
5781
6653
2185
3147
5060
6323
7688
2966
4818
6846
5283
4704
2428

3024
4792
5213
5639
6651
7627

4119
4793
5215
5643
6661
7681

4147
4794
5233
5656
6851
7697

4184
4795
5235
5'662
6872
8262

4204
4900
5321
5717
6891
8313

4224
4938
5368
5718
7129
8361

4337
4954
5391
6294
7147
8497

4434
4965
5395
6462
7178

4442
4978
5397
6464
7188

4700
4994
5398
6471
7195

2397
3041
5243
5481
5559
5786
6654
2989
4250
5297
6467
7701
3001
4884
6886
5288
4901
5646

2397
3085
5244
5485
5570
5788
6655
2991
4262
5299
6473
8265
3068
4903
6888
5549
6149

2412
3094
5287
5487
5585
5809
6671
3067
4268
5405
6668
8327
3097
5348

2412
4816
5289
5490
5587
5834
6959
3069
4276
5429
7133
8330
3140
5354

2969
4821
5317
5493
5651
5836

2973
4885
5326
5501
5668
5842

2983
4886
5328
5503
5679
5980

2985
4887
5369
5504
5742
5981

3004
4888
5410
5505
5749
5983

3007
4889
5412
5506
5752
6521

3071
4286
5432
7149
8364
4692
5355

3075
4294
5435
7180
8503
4697
5430

3101
4549
5439
7197

3108
4552
5603
7387

3139
4592
5606
7400

3141
4941
5613
7602

4711
5702

4732
5728

4786
6033

4809
6043

6~;~!7

6652

6854

4697
6959

4700

4711

4791

4900

6033

6521

6651

6843

6851

4795
6043
2378
3004
4147
4818
4938
5244
5397
5501
5639
5752

6644
6846
2397
.3007
4184
4821
4954
5287
5398
5503
5643
5764

6873
6888
2397
3012
4204
4884
4965
5289
5402
5504
5646
5781

2412
3024
4224
4885
4978
5321
5410
5505
5656
5786

2412
3039
4337
4886
4994
5326
5424
5506
5662
5788

2428
3041
4434
4887
5039
5328
5428
5524
::668
5809

2966
3068
4442
4888
5054
5354
5430
5529
5679
5834

2969
3085
4704
4889
5213
5355
5481
5559
5717
5836

2973
3094
4786
4897
5215
5368
5485
5570
5718
5842

2983
3097
4809
4901
5233
5369
5487
5585
5728
5980

15:34 27-JULY-1984
3140
4814
4903
5235
5391
5490
5587
5742
5981
6654
7627
978 #
986 #
4714
5039
5402
6520
7407
979 #
983 #
3012
4897
5424
5524
5764
6525
985 #
3143
4960
5631
7633
982 #
4814
6843
981 #
984 #
980 #
987 #
991 #
6886
992 #
993 #
994 #
995 #
990 #
989 #
2985
3140
4814
4903
5235
5391
5490
5587
5742

4692
6891
4792
4793
4794
4715
4732
2175
3001
411<;3
4816
4905
5243
5395
5493
5628
5749

Page 302

5569

I

T10KL.MCR[10,1141]

SC

(U) SCADS
EXP
FE

SHIFT
SIZE
(U)
(U)
(U)
(U)

SETFOV
SETFPD
SETNOV
SETOV

(U) SHSTYLE

ASHC

OIV
LSHC
NORM
ONES
ROT
ROTC
ZERO
(U) SKIP

ACO
ADEQO

ADLEQO

ADREQO

15:34 27-JULY-1984
5981
6654
7627
988 #
3143
4960
5435
6473
7701
996 #
998 #
5559
997 #
3041
4888
5355
5504
5742
5983
999 #
1000 #
6886
1082 #
1088 #
1083 #
1080 #
5427
825 #
830 #
4473
5606
5764
832 #
5601
831 #
826 #
5230
828 #
829 #
833 #
827. #
903 #
911 #
923 #
4394
5372
6269
8567
907 #
5753
6491
8315
8459
8640
908 #

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

5983
6655
7681
2185
3147
5060
5439
6653
8265

6149
6661
7697
2989
4250
5283
5549
6668
8327

6294
6671
8262
2991
4262
5288
5569
7133
8;;30

6462
6854
8313
3067
4268
5297
5603
7149
8364

6464
7129
8361
3069
4276
5299
5606
7180
8503

6471
7147
8497
3071
4286
5317
5613
7197

6520
7178

6525
7188

6527
7195

6650
7407

6652
7595

3075
4294
5348
5631
7387

3101
4549
5405
5651
7400

3108
4552
5412
5702
7602

3139
4592
5429
6323
7633

3141
4941
5432
6467
7688

2397
5570
2428
3094
4889
5369
5505
5749
6149
2378
4692
6888
5350
4232
4339
4132
5715

2397
5651
2966
3097
4897
5425
5506
5752
6521
3068
4697
6959
5362
4746
4374
4133

2412
5702
2969
4704
4901
5428
5524
5764
6525
3085
4711

2412

5283

5287

5289

5317

5348

5412

5549

2973
4786
4903
5430
5529
5781
6527
3140
4732

2983
4809
4905
5481
5569
5786
6652
5410
4818

2985
4814
5243
5485
5585
5788
6653

3001
4816
5244
5487
5587
5809
6654

3004
4821
5288
5490
5646
5834
6655

3007
4885
5326
5493
5668
5836
6671

3012
4886
5328
5501
5679
5842
6854

3039
4887
5354
5503
5728
5981

4884

5980

6033

6043

6843

6846

5715
6389
4405
4157

4491
4219

4998
4339

5350
4374

5362
4405

5715
4491

4998

5350

5362

2991
4477
5613
5781
4549

3100
4493
5616
5785
4552

3103
5299
5618
5787
4553

3107
5402
5630
5809
4596

3110
5404
5671
5834
4600

4268
5434
5675

4276
5578
5710

4286
5580
5724

4294
5584
5742

4400
5586
5748

4404
5602
5751

5481

5493

5501

5505

5598

5600

3071
2425
5244
4820
3007
3143

3075
2985
5632
4823
3012
3147

4581
4227
5722
4896

4584
4261

4434

4590

5208

5223

5224

5228

5229

4899

5983

2484
3017
4423
5374
6558

3388
3332
4453
5447
6595

4689
3344
4534
5489
6616

3435
4612
5513
6739

3447
4617
5669
7296

4122
4622
5720
8289

4127
4638
5762
8292

4329
4645
5807
8358

4331
4963
6137
8376

4335
4992
6190
8379

4349
5346
6266
8483

2188
5813
6523
8322
8512
8694
3086

3987
5913
6987
8325
8531
8712
3592

3992
5956
7111
8340
8533
8753
3607

5389
6095
7118
8345
8571

5394
6097
7154
8394
8576

5508
6179
7457
8413
8598

5673
6199
7458
8417
8601

5676
6383
7649
8422
8603

5744
6399
7651
8433
8606

5747
6453
7665
8437
8609

5750
6488
8249
8439
8630

5120

6324

6397

6752

7029

7032

7057

7059

Page 303

~

T10KL~IVlCR[ 10.1141]

CRYO
CRY1
CRY2
DPO

DP18
EXECUTE
FPD
INT
IOLGL
lOT
JFCL
KERNEL
LE
LLE
SC

TRAP CYCLE
TXXX
-1 MS
-CONTINUE
-10 BUSY
(U) SPEC
APR EN
APR FLAGS
ASHOV
CLR 10 BUSY
CLR 10 LATCH
CLRCLK
CLRCSH
EXPTST
FLAGS

INHCRY18
LDACBLK
LDINST
LDPAGE
LDPI
LDPXCT

~.

,~

15:34 27-JULY-1984
7062
7498
906 #
919 #
914 #
915 #
3774
4361
4554
5443
6032
6340
8276
916 #
925 #
910 #
912 #
904 #
917 #
918 #
909 #
913 #
905 #
924 #
3141
4941
5603
7197
921 #
920 #
928 #
927 #
926 #
789 #
2814
4155
803 #
801 #
810 #
793 #
792 #
791 #
802 #
811 #
812 #
3598
4006
4232
5362
807 #
813 #
814 #
794 #
809 #
796 #

7064
7518
3685
4085
5771
2398
3777
4366
4995
5550
6074
6357
8374
2377
7853
4171
5143
2434
3599
3530
3335
7658
2185
3143
4960
5606
7387
8752
3285
5135
7855
7683
2569
2824
8518
2166
7076
2991
7576
7661
7247
7382
5490
2217
3619
4058
4339
5427
3510
2163
2270
7377
3608
3660

MICRO 31(254)

KS 1\) MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 304

7066
7590
3728
4097
5831
2413
3782
4370
5139
5652
6076
6429
8597
2736

7332
7617
3757
5798

7334
8200
5358
6214

7338
8464
5482
6220

7340
8492
5484
6233

7342
8698
5486
6424

7344
8701
5488
6435

7346
8706

7348

7445

2572
4104
4392
5163
5699
6098
6479

2750
4129
4409
5249
5703
6115
6505

2757
4151
4421
5285
5714
6118
6696

3040
4154
4428
5289
5727
6124
6726

3112
4209
4443
5318
5964
6164
6768

3329
4217
4462
5348
5977
6256
6822

3341
4318
4480
5356
5994
6261
6941

3432
4354
4532
5390
6007
6298
7106

3444
4356
4539
5412
6014
6307
7251

2743

5937

6184

6388

6477

6800

6801

7484

4692
6034
3537

4697
8213
3540

4711
8408

6288
8626

8734

8765

8816

3534
3347

3535
3438

3542
3450

3651
4388

6966
5022

5366

5690

6337

7262

7919

2989
3147
5060
5613
7400

2991
4250
5297
5631
7602

3067
4262
5299
6323
7633

3069
4268
5405
6467
7701

3071
4276
5429
6473
8265

3075
4286
5432
6659
8327

3092
4294
5435
6668
8330

3101
4549
5439
7133
8364

3108
4552
5552
7149
8503

3139
4592
5554
7180

6029

7300

8403

7689
2575
2856
8818
7071
7080
3107
7614
7669
7301
7383
5506
2218
3620
4072
4374
5715
3680
7126
3655
8534
7363

7698
2689
2866

7706
2691
2886

2724
2896

2730
2907

2738
2917

2740
2947

2759
4124

2761
4130

2804
4153

3558
3813
4207
4746

3561
4004
4219
4998

3562
4005
4229
5350

7156
7270
3110
7673
8453
7386
5836
2578
3690
4089
4405
6389
3727
7143
6984

7676
8737

7685

7691

7700

7705

3404
3702
4099
4491
6390
3756

3420
3758
4102
4640
6988
3776

3487
3788
4132
4642
7460
3781

3501
3792
4133
4707
7475
5030

3557
3807
4157
4724
8756
5105

7438

7920

7867

Tl0KL.MCR[10,1141]
LOADIR
LOADXR
MEMCLR
NICOND
PREV
PXCT OFF
SWEEP
WAIT
#

(U) STATE
BLT
COMP-DST
CVTDB
DST
DSTF
EDIT-DST
EDIT-S+D
EDIT-SRC
MAP
SIMPLE
SRC
SRC+DST
(U) SWITCH%
FULL
INHCST
KIPAGE
KLPAGE
NOCST
NONSTD
SIM
UBABLT
(U) T
2T
3T

15:34 27-JULY-1984
808 #
799 #
6889
804 #
795 #
3338
3794
798 #
806 #
805 #
797 #
790 #
1004 #
10'06 #
1013 #
1012 #
1009 #
1011 #
1015 #
1016 #
1014 #
1007 #
1005 #
1008 #
1010 #

5918
2341
6898
2161
2228
3429
4218
7825
2240
7395
2410
7849

398
4497
7
8481
9

7160
8808
413
7169
404
8449
10
395
8
941 #
944 #
7659
945 #
3684
4175
4471
5031
5390
5652
5983
6389
6695
7111
7666

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 305

3550
7664
3609
2229
3453
4482
7833
2243
7396

3574

3589

4700

4719

4767

5919

5931

6850

6887

7439
2231
3454
4485

7841
2232
3457
4693

7914
2292
3458
5440

8245
2298
3525
5446

8740
2522
3526
5805

8746
3043
3552
7352

3089
3594
7623

3117
3711
8202

3326
3787

2246
7399

2258

2261

2264

2278

7852

7915

6352

6379

6598

6624

8773

8777

6503

6560

8771

8779

8781

8785

5972
5998

6001
6077

6071

8775

1295
4565
401
8482
410
7167
8813
417
7171
425
8475
429
2210
407

1297
4630
1241
8485
418
7173

2172
4916
1243
8556
420
7175

2192
5067
1245
8565
422
8270

2197
5071
8004
8566
1265
8274

2201
7150
8006
8582
1267
8279

4166
7158
8353

4234

4237

4384

4494

8356

8357

8360

8478

1269
8282

3947
8646

3957
8692

4009
8801

4020
8804

419
8269
427
8494
1253
2215
416

1271
8278
1247
8551 .
1255
2222
423

1273
8284
1249
8583
1257

1275
8487
1251

3948
8550
8348

3952
8644
8423

3958
8800
8427

3972
8806
8441

7161
8823
8444

7166
8828
8445

1259

1261

1263

5181

5255

7797

7799

7801

4409

4422

5289

5559

6133

6203

6267

6555

6692

6737

7302

2188
3719
4177
4479
5047
5393
5653
6031
6417
6754
7117
8296

2413
3727
4196
4560
5051
5425
5654
6035
6423
6844
7154
8304

2423
3752
4230
4625
5117
5428
5698
6098
6426
6851
7419
8526

2578
3756
4367
4642
5119
5482
5702
6205
6435
6872
7444
8543

3111
3773
4371
4700
5138
5484
5704
6219
6460
6886
7448
8'761

3285
3778
4421
4715
5162
5486
5706
6233
6474
6890
7456
8791

3370
3783
4427
4786
5249
5488
5714
6265
6501
6893
7457

3404
3820
4428
4804
5283
5547
5797
6268
6521
6895
7458

3420
3834
4429
4900
5317
5548
5803
6353
6522
6931
7493

3510
4058
4446
4944
5358
5551
5963
6356
6644
6986
7497

3600
4072
4450
4951
5389
5553
5981
6388
6651
7105
7499

5106
6123
6170
6085
6023
6142
6564
6116
8201

/

,....,
\"

--_/

T10KL.M~R[10.1141]

4T
5T
(D) TEST

(U) TRAP1
(U) TRAP2
(U) VECTOR CYCLE
(D) VMA

(U) WAIT

~.:!

I~.

;/

15:34 27-JULY-1984
946 #
6007
8289
947 #
1350 #
2560
2608
2623
2638
2655
2670
2799
2829
2851
2881
2912
2942
3410
4066
4306
5262
5274
5336
1097 #
5427
1096 #
1168 #
1352 #
2636
2818
2931
3766
1157 #
2291
2364
2526
3020
3454
3539
3617
3700
3759
3979
4693
4762
5147
5912
6543
6895
7222
7305
7371
7620
7730.
7930

3016
6184
8292
7688
2549
2564
2608
2623
2638
2655
2670
2800
2830
2852
2882
2913
2943
3411
4067
4307
5265
5306
5340
4132
5715
3702
7488
2548
2643
2828
2940
4051
2228
2291
2365
2532
3020
3457
3548
3630
3709
3815
3979
4693
4764
5147
5928
6543
6896
7225
7305
7443
7621
7824
7931

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 306

3487
6189
8376
7705
2549
2564
2612
2627
2644
2659
2674
2800
2830
2852
2882
2913
2943
3412
4067
4307
5265
5306
5340
4133

3501
6214
8379

4084
6255

4089
6428

2550
2565
2612
2627
2644
2659
2674
2809
2834
2861
2891
2922
3393
3413
4114
4311
5266
5307
5341
4157

2550
2565
2613
2628
2645
2660
2675
2809
2834
2861
2891
2922
3394
3414
4114
4311
5266
5307
5341
4219

2554
2584
2613
2628
2645
2660
2675
2810
2835
2862
2892
2923
3395
3415 '
4115
4312
5269
5311
7204
4339

3758

3788

3792

2553
2648
2833
2941
4065
2228
2297
2393
2537
3326
3457
3552
3630
3709
3815
4000
4702
4770
5152
5929
6545
6898
7226
7308
7454
7623
7826
7932

2558
2653
2850
2952
4113
2229
2297
2404
2540
3326
3458
3552
3633
3719
3816
4001
4702
4891
5152
5931
6589
6912
7229
7309
7455
7623
7832
7933

2563
2658
2860
2953
4138
2229
2302
2405
2589
3338
3458
3566
3633
3722
3826
4026
4730
4891
5156
5953
6589
6968
7230
7309
7470
7646
7832
7933

2601
2663
2870
2954
4305
2231
2308
2405
2589
3338
3525
3569
3636
3732
3826
4026
4730
4892
5159
6100
6591
6971
7233
7310
7470
7667
7844
7934

4096
6476

4099
6616

4101
6739

4991
6940

4996
7919

5977
8216

2554
2602
2617
2632
2649
2664
2679
2810
2835
2862
2892
2923
3396
3416
4115
4312
5269
. 5311

2555
2602
2617
2632
2649
2664
2679
2819
2844
2871
2901
2932
3397
4052
4139
4683
5270
5312

2555
2603
2618
2633
2650
2665
2680
2819
2844
2871
2901
2932
3398
4052
4139
4685
5270
5312

2559
2603
2618
2633
2650
2665
2680
2820
2845
2872
2902
2933
3399
4053
4140
5261
5273
5335

2559
2607
2622
2637
2654
2669
2776
2820
2845
2872
2902
2933
3400
4053
4140
5261
5273
5335

2560
2607
2622
2637
2654
2669
2799
2829
2851
2881
2912
2942
3409
4066
4306
5262
5274
5336

4374

4405

4491

4998

5350

5362

2606
2668
2880
2956
4310
2231
2321
2416
2590
3405
3525
3572
3641
3732
3843
4036
4736
5095
5170
6350
6594
6976
7234
7316
7491
7G68
7846
7935

2611
2673
2889
2957

2616
2678
2890
2958

2621
2797
2900
3476

2626
2798
2911
3490

2631
2808
2921
3516

2232
2331
2419
2785
3405
3526
3587
3641
3737
3844
4036
4736
5123
5205
6351
6622
6979
7237
7317
7496
7713
7847
7938

2232
2335
2423
2785
3406
3526
3594
3677
3737
3965
4040
4737
5123
5246
6377
6631
6983
7238
7352
7497
7716
7847
7939

2251
2339
2430
2787
3453
3527
3594
3682
3739
3966
4044
4750
5131
5246
6450
6747
7103
7276
7352
7505
7718
7859
7940

2251
2352
2430
2791
3453
3532
3613
3682
3745
3968
4218
4754
5131
5248
6455
6893
7104
7277
7370
7585
7726
7859
7940

2268
2361
2494
2791
3454
3536
3616
3694
3753
3974
4218
4758
5133
5253
6511
6894
7221
7280
7370
7587
7728
7865
7941

Tl0KL.MCR[10,l141]

(U) WORK
ACO
AC1
AC2
AC3
ADJBPW
ADJP
ADJPTR
ADJQ1
ADJR2
ADJS
APR
BADWO
BADW1
BDH
BDL
CBR
eMS
CSTM
DDIV SGN
DECHI
DECLO
DIV
DVSOR H
DVSOR L
EO
E1
FILL
FSIG
HSBADR
MSK
MUL
PERIOD
PTA.E
PTA.U
PUR
SBR
SLEN
SV.ARX
SV.AR
SV.AR1
SV.BRX
SV.BR
SV.VMA
TIMEO
TIME 1
TRAPPC
TTG
YSAVE
(D) WRITE

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 307

7943
7952
8579

7943
7952
8624

7945
7954
8795

7946
7956
8796

7946
8294
8825

7947
8302
8827

7948
8307
8831

7949
8309
8834

5014
4949
4690
4972
4982
4962
2168
8239
8240
6297
6295
7211
6120
7215

5035
4976
4967
4990
5049
4977
7050

5040
7072

7084

7152

7157

8199

6372
6338
72'27
6132
7235

6381
6378
8358
6133
8574

8567

8568

2177
21.76'

2179
21.78

6426
641.7

5922
5935
6104
6577
2160
5985

6348
5938
6127
6579
7217
6156

6620
6374
6140

6630
6553
6615

6554
6692

6729
6698

6732
6812

6737
6914

6745

7239
6738

7913

7918

7266
7404
7403
7213
7209
5968
6185

7318
8288
8291
7231
7223
5992
6353

7323
8375
8378
8351
8318
5996
6354

8381
8383
8442
8320
6013
6356

8397
6025
6359

6041
6725

6045
6819

6073
6823

6057
6030
8404
5176
6056
7686
2170
2171
6965
7260
3663

6062
6060
8454
6058
6061
7692
7255
7246
8755
7264
7652

7839
7936

7911
7957

7922
8208

7937
8547

7960

6063
8219
7694
7288
7253

6930
8229
7926
7298
7285

6945
8231
7955

6954
8233
7958

7299

7302

7319
7655

7660

7672

7674

15:34 27-JULY-1984
7942
7951
8544
1020
1061
1062
1063
1064
1039
1034
1036
1037
1038
1035
1041
1021
1022
1051
1052
103;
1048
1032
1065
1070
1069
1024
1066
1067
1043
1044
1047
1049
1040
1046
1023
1057
1073
1074
1033
1030
1045
6181
6957
1027
1026
1016
1029
1028
1025
1055
1056
1075
1058
1072
1353

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#

7944
7953
8627

7949
8387
8834

7950
8391

6080
6825

6174
6939

6178
6953

8212

8539

8767

8209
8235
8198

8541
8540
8211

8725
8499

8742

8452

8736

5029

6403
6382
8483
6143

8751

r,

T 10KL .1VIt.:~R [ 10, 1141 ]
(U) WRITE CYCLE

(U) WRITE TEST

(U) WRU CYCLE
(U) #

.~.

~,

15:34 27-JULY-1984
1128 #
2785
3405
4036
5147
7470
7949
1127 #
2785
3405
4036
5147
7440
7847
8438
1164 #
975 #
2260
3042
3592
3925
4023
4538
5018
5294
5553
5888
6155
6290
6437
6603
6790
7007
7025
7066
7155
7381
7430
7590
7809
8241
3407
8514
8701

2569
2791
3630
4058
5152
7618
7952
2569
2791
3630
4058
5152
7454
7861
8518
7441
2149
2263
3113
3606
3927
4031
4545
5052
5295
5633
5890
6160
6303
6453
6619
6794
7008
7026
7078
7181
7392
7431
7598
7811
8251
8410
8516
8704

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 308

2575
2804
3633
4072
5246
7629
3438
2575
2804
3633
4072
5246
7470
7930
8524

2589
2814
3641
4124
5444
7635
8459
2589
2814
3641
4124
5444
7487
7933
8795

2689
2824
3682
4130
5448
7832
3518
2689
2824
3632
4130
5448
7496
7940
8818

2691
2856
3732
4153
5494
7844
8523
2691
2856
3732
4153
5494
7579
7943
8831

2724
2866
3737
4155
5516
7847
8579
2724
2866
3737
4155
5516
7582
7946
8834

2730
2386
3315
4730
6543
7930
8713
2730
2886
3815
4730
6543
7618
7949

2738
2896
3826
4736
6589
7933
8795
2738
2896
3826
4736
6589
7629
7952

2740
2907
3965
4891
7305
7940
8818
2740
2907
3965
4891
7305
7635
8249

2759
2917
3979
5123
7309
7943
8834
2759
2917
3979
5123
7309
7832
8294

2761
2947
4026
5131
7370
7844
8302

2151
2420
3115
3607
3929
4038
4636
5056
5319
5653
5892
6167
6305
·6465
6638
6804
7009
7028
7088
7190
7394
7432
7604
7813
8254
8418
8529
8707

2153
2422
3529
3627
3931
4105
4801
5063
5320
5654
5894
6172
6312
6468
6659
6310
7014
7031
7091
7198
7421
7433
7617
7849
8260
8425
8530
8716.

2155
2435
3538
3640
3933
4106
4945
5116
5324
5673
5896
6179
6317

2158
2457
3541
3726
3940
4358
4947
5212
5352
5676
5913
6183
6324
6488
6673
6919
7016
7052
7109
7240
7423
7437
7651
7863
8297
8435
8537
8729

2188
2458
3543
3755
3943
4395
4952
5217
5353
5704
5916
6199
6327
6491
6676
6986
7019
7053
7114
7249
7424
7448
7665
7915
8305
8461
8572
8791

2202
2745
3544
3818
3983
4396
4970
5226
5389
5706
5940
6241
6383
6508
6752
6991
7020
7056
7117
7268
7425
7457
7708
8193
8316
8465
8593

2238
2747
3545
3833
3988
4406
4974
5232
5393
5880
5956
6257
6397

2242
2752
3578
3919
3990
4414
4980
5237
5413
5882
5960
6258
6399
6581
6778
7001
7022
7059
7136
7335
7427
7473
7803
8200
8340
8493
8604

2245
2754
3583
3921
3993
4459
4984
5290
5414
5884
6095
6264
6406
6592
6782
7002
7023
7062
7153
7336
7428
7493
7805
8225
8347
8506
8610

2257
2771
3586
3923
3995
4512
5013
5291
5551
5886
6097
6270
6431
6601
6786
7006
7024
7064
7154
7379
7429
7500
7807
8227
8395
8510
8698

6A76

6664
6903
7015
7037
7095
7218
7422
7434
7649
7852
8268
8432
8532
8721

65i3

6774
7000
7021
7057
7121
7283
7426
7458
7794
8197
8323
8468
8599

2761'
2947
4026
5131
7370
7946

/

\

2

3

4

5

5849
5858
5868
3853
3864
3872
3880
3888

5850
5859
5869
3854
3865
3873
3881
3889

5851
5860
5870
3855
3866
3874
3882
3890

5852
5862
5871
3856
3867
3875
3883
3891

5853
5863
58:]'2
3e57
3868
3876
3884
3892

5854
5864
5873
3858
3869
3877
3885
3893

5855
5865
5874
3859
3870
3878
3886
3894

3898
5534
2766
3909
5260
5268
5305
5334

3899
5535
2767
3910
3911
3912
3913
3914

3900
5623
5419
5385
5261
5269
5306
5335

3901
5684
5908
4682
5262
5270
5307
5336

3906
4079
2775
4683
5263
5271
5309
5338

3766
4080
2776
4684
5264
5272
5310
5339

3907
4163
5420
4685
5265
5273
5311
5340

3908
4381
5384
4686
5266
5274
5312
5341

2548
2558
4113
4305
2953
5109
3670
4051

2549
2559
4114
4306
2954
3504
3671
4052

2550
2560
4115
4307
2955
3505
3672
4053

2552
2562
4137
4309
2956
3516
3799
4064

2553
2563
4138
4310
2957
3518
3800
4065

2554
2564
4139
4311
2958
3647
3801
1066

2555
2565
4140
4312
3915
8188
3802
4067

T 1OKL. MCR [ 10, 1141 ]

,
/

Dcode Loc'n

0

0000
0010
0020
0030
0040
0050
0060
0070

3905
5857
5867
3852
3863
3871
3879
3887

D
0
0
0
0
0
0

0100
0110
0120
0130
0140
0150
0160
D 0170
D 0200

D
D
D
D
D
D
D
D

\

KS10 MICROCODE V124, 27-JUL-84
Location / Line Number Index
6
7

15': 34 27-JULY-1984

MICRO 31(254)

D
D
D
D
D
D

0220
0230
0240
0250
0260
0270

2547
2557
4112
4304
2952
2584
3669
4050

0
D
0
0
0
D
0
0

0300
0310
0320
0330
0340
0350
0360
0370

3350
3359
3462
3376
3476
3393
3490
3409

3351
3360
3463
3377
3477
3394
3491
3410

3352
3361
3464
3378
3478
3395
3492
3411

3353
3362
3465
3379
3479
3396
3493
3412

3354
3363
3466
3380
3480
3397
3494
3413

3355
3364
3467
3381
3481
3398
3495
3414

3356
3365
3468
3382
3482
3399
3496
3415

3357
3366
3469
3383
3483
3400
3497
3416

D
0
D
D
D
D
0
D

0400
0410
0420
0430
0440
0450
0460
0470

2797
2817
2832
2849
2869
2889
2910
2930

2798
2818
2833
2850
2870
2890
2911
2931

2799
2819
2834
2851
2871
2891
2912
2932

2800
2820
2835
2852
2872
2892
2913
2933

2807
2827
2842
2859
2879
2899
2920
2940

2808
2828
2843
2860
2880
2900
2921"
2941

2809
2829
2844
2861
2881
2901
2922
2942

2810
2830
2845
2862
2882
2902
2923
2943

D 0500

2600
2610
2620
2630
2642
2652
2662
2672

2601
2611
2621
2631
2643
2653
2663
2673

2602
2612
2622
2632
2644
2654
2664
2674

2603
2613
2623
2633
2645
2655
2665
2675

2605
2615
2625
2635
2647
2657
2667
2677

2606
2616
2626
2636
2648
2658
2668
2678

2607
2617
2627
2637
2649
2659
2669
2679

2608
2618
2628
2638
2650
2660
2670
2680

0 0210

0 0510
0 0520

D 0530
0540
0550
0560
0570

D
D
D
D

Page 309

0

T10KL.MCR[ 10,1141]
Dcode Loc'n

~

.~
15:34 27-JULY-1984

0

MICRO 31(254)

2

3

4

5

KS10 MICROCODE V124, 27-JUL-84
Location! Line Number Index
6
7

D 0600
D 0610
D 0620
0 0630
D 0640
0 0650
0 0660
0 0670

3175
3184
3193
3202
3211
3220
3228
3237

3176
3185
3194
3203
3212
3221
3229
3238

3177
3186
3195
3204
3213
3222
3230
3239

3178
3187
3196
3205
3214
3223
3231
3240

3179
3188
3197
3206
3215
3224
3232
3241

3180
3189
3198
3207
3216
3225
3233
3242

3181
3190
3199
3208
3217
3226
3234
3243

3182
3191
3200
3209
3218
3227
3235
3244

D 0700

6996
7525
7527
7747
7756
7765
7774
7783

6997
7526
7528
7748
7757
7766
7775
7784

7204
7536
7538
7749
7758
7767
7776
7785

7737
7537
7539
7750
7759
7768
7777
7786

7818
7550
7552
7751
7760
7769
7778
7787

7819
7551
7553
7752
7761
7770
7779
7788

7738
7741
7744
7753
7762
7771
7780
7789

7739
7742
7745
7754
7763
7772
7781
7790

0 0710
0 0720

D
D
D
D
D

0730
0740
0750
0760
0770

Page 310

Tl0KL.MCR[10,1141]
Ucode Loc'n

15:34 27-JULY-1984

0

2

3

MICRO 31(254)
4

5

KS10 MICROCODE V124, 27-JUL-84
Location / Line Number Index
6
7

0010
0020
0030
0040
0050
0060
0070

2149:
2182=
3971=
3559=
2354:
2407:
3631=
4752=

7912:
7913:
4121=
4149=
2358:
2413:
2153
2156

2150
2183=
3977=
3563=
2362:
2434:
5042=
4756=

2158:
2151
3980=
4490=
2370:
2152
5443=
5444=

7853:
3285=
7914=
3567=
2380:
4412=
3634=
. 4760=

7855:
3288=
4122=
4150=
2383·:
4414=
3636=
4416=

5209=
3291=
7915=
3571=
2390:
4448=
5049=
4763=

5212=
3294=
3983=
4491=
2394:
4449=
7581=
7582=

U
U
U
U
U

0100
0110
0120
0130
0140
U 0150
U 0160
U 01:70

2160
2163
4176=
3829=
2191=
3551=
4332=
5925=

2241=
2259=
4178=
2168
2194=
2202=
4335=
4185=

2244=
2262=
4269=
5689=
4287=
3552=
2171
5927=

2247=
2265=
4273=
5691=
4291=
5599=
5323=
5600=

7840=
-7842=
4179=
3832=
5368=
5371=
4338=
5928=

2248=
2266=
2166
3836=
5369=
5373=
4339=
4186=

2161
7844=
4277=
2170
4295=
5375=
4341=
5929=

2252=
2271=
4281=
7047:
4299=
5376=
5325=
5377=

U 0200
U 0210
U 0220
U 0230
U 0240
U 0250
U 0260
U 0270

5782=
5790=
3709=
6893=
4691=
3326=
2231=
3429=

2292=
2317=
3711 =
6845=
4692=
3329=
2232=
3432=

5784=
2173
3713=
6894=
2178
3332=
5523=
3435=

2298=
2321=
2175
6846=
5670=
3335=
5671=
3438=

5786=
2174
2187=
6895=
2179
3338=
4720=
3441=

2304=
2331=
2188=
2177
4693=
3341=
4723=
3444=

5788=
5791=
2176
6896=
6534=
3344=
5524=
3447=

2309=
2335=
7617=
7618=
6535=
3347=
4724=
3450=

U 0300
U 0310

3586=
4195=
3606=
4357=
4788=
4730=
4884=
4514=

3590=
4197=
3607=
4359=
4791=
4731=
4885=
2367

5528=
5832=
6693=
2220
4792=
4732=
4886=
2416=

3592=
2180
2185
4362=
2279
4733=
2346
2419=

2399=
4198=
2218
3967=
4793=
4434=
4887=
4515=

2401=
2184
3608=
3610=
4794=
4474=
4888=
4516=

5529=
5834=
6694=
3969=
2341
4435=
2364
4517=

3593=
3594=
5508'=
5510=
4795=
4475=
4889=
4518=

0400
0410
0420
0430
0440
0450
0460
0470

4036:
4810=
5481=
5489=
5501=
5505=
6178=
7472=

2372
4444=
5482=
2386
6321=
2425
6180=
2431

2435=
4811 =
5483=
2421
5502=
2426
5836=
5606=

2436=
4445=
5484=
5582=
6323=
5616=
5840=
5608=

7349=
4706=
5485=
2457=
5503=
2539=
6182=
7474=

7350=
7352=
5486=
2458=
2422
2542=
6184=
7476=

2384
4708=
5487=
5490=
5504=
5506=
5843=
5609=

5526=
5527=
5488=
5583=
6324=
5617=
2428
5610=

U 0500

5993=
6379=
5743=
5755=
6074=
5013=
6212=
5214=

5995=
2722
5744=
2787
6076=
5015=
6215=
5216=

2991=
2728
5746=
2792
6078=
2907
6371=
2986

2995=
5729=
5747=
6818=
4205=
5019=
4228=
5217=

5997=
3021=
5749=
3040=
3071=
3075=
2973
5972=

5999=
3022=
5750=
3041=
3072=
3076=
6216=
5973=

2592
6380=
5752=
5756=
6081=
5936=
6372=
5975=

6001=
5730=
5753=
6820=
4207=
5937=
4230=
5978=

U 0000

U
U
U
U
U
U
U

U 0320

U 0330
U 0340

U 0350
U 0360

U 0370
U
U
U
U
U

U
U

U

U 0510
U 0520
U 0530
U 0540
U 0550
U 0560
U 0570

Page 311

~
\ _/
T10KL.MCR[10,1141]

{

~

~,
15:34 27-JULY-1984
2

3

4

5

KS10 MICROCOOE V124, 27-JUL-84
Location I Line Number Index
7;
6

6221=
5236=
6230=
3007
6360=
6024=
6477=
6486=

3088=
3005
6234=
5796=
3114=
3010
4972=
5203=

3089=
'5237=
5639=
5798=
3116=
6026=
6480=
6489=

2989
3095=
3101 =
3108=
3143=
6462=
4981=
5285=

6222=
3097=
3103=
3110=
3144=
6463=
6482=
6492=

6578=
6170=
6235=
6377=
3008
6464=
49-32=
5286=

6579=
617.3=
5643=
6378=
6361=
6465=
6484=
6494=

6040=
6625=
7420=

3013
6504=
6769=
6783=
6602=
6042=
6626=
7421=

6559=
6506=
5428=
5656"
3147=
6044=
3453=
7422=

6561=
6509=
6771=
6787=
3149=
6045=
3454=
7423=

6562=
6510=
5429=
5645=
3389=
6808=
3457=
7424=

6565=
6512=
6775=
6791=
3390=
6811=
3458=
7425=

3024
6731=
5430=
5657=
6604=
6813=
6627=
7426=

6567=
6732=
6779=
6795=
3042
6815=
3043
7427=

U 1000
U 1010
U 1020
U 1030
U 1040
U 1050
U 1060
U 1070

8314=
8331=
6084=
6117=
8377=
6126=
8217=
8229=

8317=
8332=
6085=
6119=
8380=
6128=
8219=
8231=

8319=
5663=
5914=
6120=
8382=
6129=
3141
8233=

8321=
7562=
6086=
3078
8384=
3117
8223=
8235=

3578=
3077
3583=
3627=
3640=
5717=
5721=
6193=

3579=
8333=
3584=
3628=
3641=
7659=
8225=
6195=

3069
5668=
5916=
3092
3112
5718=
5722=
6196=

8323=
7564=
7590=
7591=
8388=
7661=
8227=
3299

U 1100
U 1110
U 1120
U 1130
U 1140
U 1150
U 1160
U 1170

8766=
8782=
7281=
7687=
8422=
8569=
3733=
3793=

8768=
8783=
7284=
7690=
8426=
8570=
3737=
3794=

8770=
8784=
3405
7693=
3554
3657=
3758=
3946=

8772=
8786=
7286=
7695=
8432=
3661=
3761=
3959=

8774=
6727=
7303=
8393=
8738=
8572=
3779=
3962=

8776=
6728=
7305=
8396=
8739=
3580
3784=
3965=

8778=
6729=
7306=
8398=
8740=
3697=
3787=
3991=

8780=
3300
3406
8403=
3575
3701=
378·9=
3993=

U 1200
U 1210

3996=
4123=
4155=
4347=
4394=
4427=
4464=
4542=

4000=
4124=
4157=
4350=
4395=
4428=
4465=
4543=

4090=
4129=
4210=
4368=
4404=
4429=
4482=
4552=

4091=
4130=
4211 =
4372=
4405=
4430=
4483=
4553=

4100=
4132=
4218=
4374=
4420=
4438=
4533=
4556=

4102=
4133=
4219=
4376=
4421=
4439=
4534=
4557=

4105=
4153=
4320=
4390=_
4423=
4454=
4535=
4581=

4106=
4154=
4322=
4392=
4424=
4455=
4536=
4584=

4598=
4640=
4966=
5097=
5148=
5294=
5352=
5390=

4602=
4642=
4967=
5099=
5153=
5295=
5353=
5391=

4614=
4646=
4997=
5125=
5165=
5299=
5358=
5394=

46.15=
4647=
4998=
5132=
5166=
5300=
5359=
5395=

4619=
4942=
5032=
5136=
5250=
5319=
5361=
5397=

4620=
4945=
5034=
5139=
5251'=
5320=
5362=
5398=

4624=
4961=
5061=
5141=
5290=
5349=
5365=
5405=

4625=
4963=
5064=
5143=
5291=
5350=
5366=
5406=

Ucode Loc'n

0

0600
0610
0620
0630
0640
0650
0660
0670

6218=
5234=
6229=
5794=
6358=
6022=
4971=
5202=

U
U
U
U
U
U
U

0700
0710
0720
0730
0740
0750
0760
U 0770

6555=
6502=
5427=
5644=

U
U
U
U
U
U
U
U

r

U 1220
U 1230
U 1240
U 1250

U 1260
U 1270
U 1300
U 1310
U 1320

U 1330
U 1340
U 1350
U 1360
U 1370

6600~

MICRO 31(254).

Page 312

2

3

4

5

22"29:
2716:
2740:
3404:
2804:
2896:
7547:
3140:

2569:
2718:
2743:
2759:
2814:
2906:
301i:
3269:

2572:
2721:
2750:
2761 :
2824:
2917:
7544:
3271:

2575:
2724:
2745:
2771 :
2839:
2927:
3067:
3274:

2579:
2727:
2747:
8541
2856:
2937:
3068:
3277:

2589:
2730:
2752:
2772:
2866:
2947:
3086:
3370:

2689:
2736:
2754:
3420:
2876:
4085:
5912:
3388:

8544
8597
3525:
3537:
3601 :
3806:
4058:
5318:

8548
8626
3526:
3538:
3651 :
3771 :
4072:
4145:

8567
8640
3528:
3540:
3501 :
3813:
8722
8734

8593
8698
3529:
3541 :
3678:
8194:
8725
8743

2485:
2517:
3530:
3542:
3691":
3826:
8732
5346:

2490:
2522:
3533:
3543:
3720:
3840:
2781 :
8746

2496:
2528:
3534:
3544:
3753:
3941 :
4168":
5280:

8595
2534:
3535:
3545:
3511 :
4031 :
2786:
5283:

U 1600
U 1610
U 1620
U 1630
U 1640
U 1650
U 1660
U 1670

4316:
4689:
·4697:
4711 :
5113 :
7794:
3931 :

4325:
3487:
5410:
5628:
4118 :
7800:
3919:

8756
2967:
2981 :
3002:
5115 :
7803:
3921 :

8795
2970:
2983:
3004:
5118 :
7805:
3923:

8816
7532:
4701 :
4713:
7558:
7807:
3925:

88,32
4097:
4702:
5544:

8834
5389:
5426:
5687:

7809:
3933:

7811 :
3927:

7533:
4386:
5547:
7560:
7813:
3929:

U 1700
U 1730
U 1740
U 1750
U 1760
U 1770

7037:
7006:
7014:
7019:
5880:
5894:
7209:
7221 :

7000:
7007:
7187:
7020:
5882:
5896:
7211 :
7225:

7001 :
7008:
7377:
7021 ;
5884:

7002:
7009:
7103:
7022:
5886:

7084:
7329:
7178:
7024:

7003:
7010:
7015:
7025:
5890:

7004:
7011 :
7016:
7026:
5892:

7213:
7229:

7215:
7233:

7050:
7332:
7147:
7023:
5888:
7825:
7292:
7276:

7833:
7324:
7316:

7217 :
7237:

7218:
7240:

U
U
U
U
U
U

2000
2010
2020
2030
2040
2050
U 2060
U 2070

5413=
5448=
5514=
5571=
5674=
5713=
5770=
5820=

5414=
5450=
5515=
5572=
5675=
5714=
5771=
5821=

5435=
5493=
5552=
5613=
56.77=
5715=
5775=
5939=

5436=
5494=
5554=
5614=
5679=
57·16=
5777=
5941=

5439=
5497=
5557=
5631=
5694=
5732=
5802=
5961=

5440=
5499=
5559=
5632=
5695=
5733=
5803=
5964=

5446=
5512=
5563=
5653=
5704=
5765=
5810=
5966=

5447=
5513=
5564=
5654=
5705=
5766=
5811 =
5967=

U 2100
U 2110
U 2120

5957=
6015=
6059=
6099=
6147=
6204=
6261=
6291=

5983=
6016=
6095=
6100=
6150=
6206=
6262=
6292=

3613
6030=
6060=
6103=
6165=
6240=
6267=
6301=

5984=
6032=
6097=
6105=
6168=
6241=
6269=
6303=

5958=
6035=
6162=
6113=
6186=
6253=
6270=
6296=

3616
6037=
6096=
611'1=
6190=
6254=
6272=
6305=

6009=
6048=
6163=
6140=
6200=
6257=
6280=
6298=

6011 =
6050=
6098=
6141=
6201 =
6258=
6281=
6307=

Ucode Loc'n

0

1400
1410
1420
1430
1440
1450
1460
1470

2228:
2691 :
2738:
2757:
3473:
2886:
7543:
3139:

U 1500

U
U
U
U
U
U
U
U

U 1510

U 1520
U 1530
U ·1540
U 1550
U 1560
U 1570

U 1710
U 1720

U 2130
U 2140
U 2150

U 2160
U 2170

15:34 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Location / Line Number Index
6
7

Tl0KL.MCR[10,1141]

Page 313

f)

\

;

T10KL.MCR[ 10,1141]
Ucode Loc'n

~,

r~
15:34 27-JULY-1984

0

MICRO 31(254)

2

3

4

5

KSlO MICROCODE V124, 27-JUL-84
Location / Line·Number Index
6
7

6318=
6346=

6329=
6385=
6401=
6426=
6460=
6501=
6595=
6666=

6333=
6389=
6418=
6432=
6455=
6525=
6617=
6668=

6334=
6390=
6419=
6433=
8340=
6528=
6619=
6670=

U 2200
U 2210
U 2220
U 2230
U 2240
U 2250
U 2260
U 2270

6309=
6339=
6396=
6422=
6438=
6467=
6542=
6621=

6310=
6340=
6397=
6552=
6440=
6468=
6543=
6622=

6315=
6342=
6398~

6399=

6424=
6454=
6473=
6572=
6639=

6553=
8339=
6474=
6573=
6641=

6328=
6384=
6400=
6425=
6459=
6500=
6593=
6662=

U
U
U
U
U
U
U
U

2300
2310
2320
2330
2340
2350
2360
2370

6697=
6824=
6875=
6943=
7058=
7068=
7149=
7197=

6698=
6826=
6887=
6944=
7059=
7069=
7152=
7198=

6751=
6841=
6876=
6946=
7060=
7112=
7155=
7254=

6752=
6842=
6888=
6947=
7061=
7115=
7156=
7255=

6756=
6851=
6927=
6973=
7063=
7122=
7180=
7257=

6758=
6855=
6928=
6981=
7064=
7127=
7181=
7931=

6802=
6870=
6935=
6990=
7065=
7134=
7188=
7259=

6804=
6873=
6936=
6991=
7066=
7137=
7191=
7932=

U
U
U
U
U
U
U
U

2400
2410
2420
2430
2440
2450
2460
2470

7265=
7339=
7347=
7401=
7469=
7500=
7586=
7622=

7266=
7340=
7348=
7403=
7470=
7501=
7589=
7623=

7297=
7341=
7380=
7442=
7486=
7515=
7596=
7628=

7298=
7342=
7382=
7445=
7488=
7516=
7598=
7630=

7333=
7343=
7388=
7446=
7490=
7519=
7602=
7634=

7334=
7344=
7389=
7447=
7492=
7520=
7604=
7636=

7335=
7345=
7393=
7458=
7494=
7577=
7615=
7647=

7336=
7346=
7395=
7459=
7496=
7578=
7616=
7648=

U
U
U
U
U
U

2500
2510
2520
2530
2540
2550
2560
2570

7651=
7701=
7864=
7938=
7950=
8201=
8295=
8359=

7653=
7702=
7868=
7941=
7953=
8202=
8298=
8416=

7656=
7707=
7921=
7939=
7951=
8252=
8303=
8365=

7657=
7708=
7923=
7942=
7954=
8255=
8305=
8374=

7666=
7848=
7934=
7944=
7955=
8266=
8325=
8361=

7667=
7849=
7936=
7947=
8350=
8268=
8327=
8418=

7673=
7860=
7935=
7945=
7956=
8290=
8345=
8405=

7674=
7861=
7937=
7948=
8351=
8292=
8347=
8408=

U
U
U
U
U
U
U
U

2600
2610
2620
2630
2640
2650
2660
2670

8412=
8453=
8498=
8537=
8605=
8638=
8705=
8750=

8413=
3618
8500=
8538=
8606=
8639=
8707=
8752=

8436=
8455=
8504=
8575=
8611 =
8641=
8711 =
8754=

8438=
8484=
8507=
8576=
8612=
8642=
8713=
8755=

8439=
8470=
8514=
8580=
8615=
8694=
8717=
8758=

8443=
8474=
8516=
8581=
8616=
8697=
8718=
8759=

8463=
3620
8532=
8600=
8629=
8700=
8727=
8761=

8465,=
8493=
8534=
8601=
8630=
8701=
8730=
3622

U
U
U
U
U
U
U
U

2700
2710
2720
2730
2740
2750
2760
2770

8792=
3642
3757
3843
4024
4127
4200
4224

8793=
3664
3774
3846
4027
4146
4209
4225

8798=
3686
3809
3943
4039
4147
4212
4232

8805=
3704
3815
3985
4041
4151
4213
4248

8818=
3723
3817
3986
4045
4169
4214
4251

8819=
3728
3821
3988
4093
4171
4215
4263

8826=
3742
3827
4002
4104
4188
4217
4318

8827=
3747
3841
4007
4119
4189
4223
4326

U
U

Page 314

/

2

3

4

5

KS10 MICROCODE V124, 27-JUL-84
Location I Line Number Index
7
6

4329
4407
4453
4471
454,5
4562
4629
4745

4352
4409
4457
4477
4546
4592
4636
4747

4354
4433
4459
4480
4547
4610
4638
4768

4388
4436
4460
4485
4548
4612
4645
4772

4397
4437
4462
4493
4549
4617
4716
4805

4398
4440
4467
4532
4554
4622
4717
4814

4401
4446
4468
4538
4558
4627
4736
4817

4818
4898
4911
4975
5039
5101
5163
5223

4819
4899
4913
4976
5040
5103
5171
5224

4822
4900
4938
4977
5052
5105
5175
5226

4823
4901
4948
4978
5054
5106
5177
5228

4824
4903
4949
4984
5057
5120
5179
5229

4891
4906
4952
4992
5066
5135
5207
5230

4892
4909
4954
5022
5093
5158
5220
5232

4895
4910
4956
5036
5100
5160
5222
5241

5243
5289
5379
5565
5588
5652
5706
5805

5244
5297
5402
5569
5601
5658
5707
5807

5247
5321
5411
5570
5603
5672
5710'
5813

5248
5326
5412
5573
5618
5673
5725
5918

5249
5329
5432
5578
5633
5676
5759
5920

5254
5354
5516
5580
5634
5696
5762
5922

5287
5355
5545
5585
5638
5700
5772
5923

5288
5356
5550
5587
5646
5703
5800
5931

T10KL.MCR[10,1141]
Ucode Loc'n

0

U
U
U
U
U
U
U
U

3000
3010
3020
3030
3040
3050
3060
3070

4327
4406
4452
4470
4539
4559
4628
4737

U
U
U
U
U
U
U
U

3100
3110
3120
3130
3140
3150
3160
3170

U 3200
U 3210

U
U
U
U
U

3220
3230
3240
3250
3260
U 3270

I

MICRO 31 (254)

U
U
U
U
U
U
U

3310
3320
3330
3340
3350
3360
3370

5969
6029
6064
6124
6143
6243
6282
6350

5980
6046
6070
6132
6156
6246
6293
6351

5981
6053
6071
6133
6158
6248
6294
6352

5986
6056
6088
6134
6160
6256
6313
6353

6007
6057
6089
6135
6174
6259
6335
6354

6013
6058
6115
6136
6199
6264
6337
6357

6014
6061
6122
6137
6202
6266
6347
6363

6017
6062
6123
6142
6225
6273
6348
6368

U
U
U
U
U
U
U
U

3400
3410
3420
3430
3440
3450
3460
3470

6375
6407
6520
6590
6651
6676
6822
6898

6381
6427
6521
6591
6652
6678
6844
6899

6382
6429
6523
6609
6653
6679
6847
6913

6383
6434
6545
6630
'6654
6696
6849
6915

6386
6435
6546
6632
6656
6737
6868
6920

6387
6456
6582
6642
6659
6740
6886
6930

6388
6457
6588
6645
6671
6745
6889
6931

640.3
6471
6589
6650
6674
674'1
6891
6939

U
U
U
U
U
U
U
U

3500
3510
3520
3530
3540
3550
3560
3570

6941
6964
7052
7076
7097
7154
7199
7235

6949
6966
7053
7078
7106
7157
7222
7238

6951
6984
7054
7081
7118
7174
7223
7239

6953
6987
7056
7086
7130
7184
7226
7247

6954
7028
7057
7089
7139
7194
7227
7249

6955
7029
7062
7092
7140

6957
7031
7071
7093
7144
6908:
7231
7251

6960
7032
7073
7095
7153
6909:
7234
7260

U 3300

{

15:34 27-JULY-1984

7195

7230
7250

Page 315

..

~.

"

.

"".",

'\

(

/

T10KL.MCR[ 10,1141)
Ucode Loc'n

15:34 27-JULY-1984

0

MICRO 31(254)

2

3

4

5

KS10 MICROCODE V124, 27-JUL-84
Location / Line Number Index
6
7

U
U
U
U
U
U

3600
3610
3620
3630
3640
3650
U 3660
U 3670

7262
7296
7337
7378
7431
7451
7505
7676

7267
7300
7338
7383
7432
7454
7518
7683

7268
7308
7360
7396
7433
7456
7567
7698

7271
7309
7361
7405
7434
7457
7620
7714

7278
7310
7362
7408
7437
7461
7649
7716

7289
7317
7364
7428
7438
7484
7664
7718

7293
7318
7370
7429
7439
7498
7665
7720

7294
7320
7371
7430
7449
7502
7669
7722

U 3700
U 3710
U 3720
U 3730
U 3740
U 3750
U 3760
U 3770

7724
7919
7949
8198
6094:
8248
8310
8525

7726
7925
7952
8199
6451 :
6452:
8433
8527

7728
7927
7957
8200
6155·:
8249
8459
8529

7730
7930
7958
8209
6288:
8260
8508
8530

7732
7933
7959
8210
5954:
5955:
8511
8531

7828
7940
7961
8211
8240
8262
8512
8539

7835
7943
8195
8213
8241
8277
8518
8540

7846
7946
8197
8:/.39
8245
8308
8520
8208:

No errors detected
End of microcode assembly
318 pages of 1 i st i ng
Used 48.24 seconds, 118 pages of core
Symbol table: 31P
Text strings: 9P
Loc'n assignment: 18P
Cross reference: 53P

Page 316

\



---

Source Exif Data:

File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.6
Linearized                      : No
Create Date                     : 2013:12:02 17:57:07-08:00
Modify Date                     : 2013:12:03 06:06:32-08:00
Has XFA                         : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Metadata Date                   : 2013:12:03 06:06:32-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:022503e3-7a75-4605-a25d-1a4ebbac4216
Instance ID                     : uuid:da07a8c3-7a9e-334a-95a5-9910a5b57bcf
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 323

EXIF Metadata provided by EXIF.tools